Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 21ebb58770
Fetching contributors…

Cannot retrieve contributors at this time

30 lines (24 sloc) 1.103 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, []).
Jump to Line
Something went wrong with that request. Please try again.