Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
30 lines (24 sloc) 1.08 KB
;; This buffer is for notes you don't want to save, and for Lisp evaluation.
;; If you want to create a file, visit that file with C-x C-f,
;; then enter the text in that file's own buffer.
Name = "client-release".
Vsn1 = "1.0".
Path = "/home/ghaskins/sandbox/git/edist/demo/client".
ok = edist_controller:create_release(Name, Vsn1, "", []).
{ok, ODev} = edist_controller:upload_release(Name, Vsn1, matchall, []).
{ok, IDev} = file:open(filename:join([Path, Name ++ "-" ++ Vsn1 ++ ".tar.gz"]), [read, binary]).
file:copy(IDev, ODev).
file:close(IDev).
edist_controller:close_stream(ODev).
ok = edist_controller:commit_release(Name, Vsn1, []).
ok = edist_controller:create_group("default", matchall, [Name], []).
f(ODev).
f(IDev).
Vsn2 = "1.1".
ok = edist_controller:create_update(Name, Vsn2, []).
{ok, ODev} = edist_controller:upload_release(Name, Vsn2, matchall, []).
{ok, IDev} = file:open(filename:join([Path, Name ++ "-" ++ Vsn2 ++ ".tar.gz"]), [read, binary]).
file:copy(IDev, ODev).
file:close(IDev).
edist_controller:close_stream(ODev).
ok = edist_controller:commit_release(Name, Vsn2, []).