From 5298e93a180e6db87a33f26eb6a2db06e8065dc7 Mon Sep 17 00:00:00 2001
From: joewilliams <joe@joetify.com>
Date: Thu, 27 Jan 2011 18:15:25 +0100
Subject: Add 'generate-upgrade' command

To support OTP release upgrades I have added support for building
upgrade packages. Support for this is included in the
rebar_upgrade module, specifically generate_upgrade/2. It requires
one variable to be set on the command line 'previous_release' which
is the absolute path or relative path from 'rel/' to the previous
release one is upgrading from. Running an upgrade will create the
needed files, including a relup and result in a tarball containing
the upgrade being written to 'rel/'. When done it cleans up the
temporary files systools created.

Usage:
$ rebar generate-upgrade previous_release=/path/to/old/version

This also includes a dummy application that can be used to test
upgrades as well as an example.

Special thanks to Daniel Reverri, Jesper Louis Andersen and
Richard Jones for comments and patches.
---
 test/upgrade_project/apps/dummy/src/dummy.app.src  |  9 ++++
 test/upgrade_project/apps/dummy/src/dummy_app.erl  |  9 ++++
 .../apps/dummy/src/dummy_server.erl                | 56 ++++++++++++++++++++++
 test/upgrade_project/apps/dummy/src/dummy_sup.erl  | 15 ++++++
 4 files changed, 89 insertions(+)
 create mode 100644 test/upgrade_project/apps/dummy/src/dummy.app.src
 create mode 100644 test/upgrade_project/apps/dummy/src/dummy_app.erl
 create mode 100644 test/upgrade_project/apps/dummy/src/dummy_server.erl
 create mode 100644 test/upgrade_project/apps/dummy/src/dummy_sup.erl

(limited to 'test/upgrade_project/apps/dummy/src')

diff --git a/test/upgrade_project/apps/dummy/src/dummy.app.src b/test/upgrade_project/apps/dummy/src/dummy.app.src
new file mode 100644
index 0000000..dd06752
--- /dev/null
+++ b/test/upgrade_project/apps/dummy/src/dummy.app.src
@@ -0,0 +1,9 @@
+{application, dummy, [
+    {description, "a dummy app"},
+    {vsn, "0.1"},
+    {registered, [
+      dummy_app
+    ]},
+    {mod, {dummy_app, []}},
+    {applications, [kernel, stdlib, sasl]}
+]}.
diff --git a/test/upgrade_project/apps/dummy/src/dummy_app.erl b/test/upgrade_project/apps/dummy/src/dummy_app.erl
new file mode 100644
index 0000000..51363b3
--- /dev/null
+++ b/test/upgrade_project/apps/dummy/src/dummy_app.erl
@@ -0,0 +1,9 @@
+-module(dummy_app).
+-behaviour(application).
+
+-export([start/2, stop/1]).
+
+start(_,_) ->
+    dummy_sup:start_link().
+
+stop(_) -> ok.
diff --git a/test/upgrade_project/apps/dummy/src/dummy_server.erl b/test/upgrade_project/apps/dummy/src/dummy_server.erl
new file mode 100644
index 0000000..382251e
--- /dev/null
+++ b/test/upgrade_project/apps/dummy/src/dummy_server.erl
@@ -0,0 +1,56 @@
+-module(dummy_server).
+-behaviour(gen_server).
+
+-export([start_link/0, set_state/1, get_state/0]).
+
+-export([init/1,
+         handle_call/3,
+         handle_cast/2,
+         handle_info/2,
+         terminate/2,
+         code_change/3]).
+
+%%
+
+start_link() ->
+    gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).
+
+set_state(What) ->
+    gen_server:call(?MODULE, {set_state, What}).
+
+get_state() ->
+    gen_server:call(?MODULE, get_state).
+
+
+%%
+
+init([]) ->
+    say("init, setting state to 0", []),
+    {ok, 0}.
+
+
+handle_call({set_state, NewState}, _From, _State) ->
+    {reply, {ok, NewState}, NewState};
+
+handle_call(get_state, _From, State) ->
+    {reply, State, State}.
+
+handle_cast('__not_implemented', State) ->
+    {noreply, State}.
+
+handle_info(_Info, State) ->
+    say("info ~p, ~p.", [_Info, State]),
+    {noreply, State}.
+
+terminate(_Reason, _State) ->
+    say("terminate ~p, ~p", [_Reason, _State]),
+    ok.
+
+code_change(_OldVsn, State, _Extra) ->
+    say("code_change ~p, ~p, ~p", [_OldVsn, State, _Extra]),
+    {ok, State}.
+
+%% Internal
+
+say(Format, Data) ->
+    io:format("~p:~p: ~s~n", [?MODULE, self(), io_lib:format(Format, Data)]).
diff --git a/test/upgrade_project/apps/dummy/src/dummy_sup.erl b/test/upgrade_project/apps/dummy/src/dummy_sup.erl
new file mode 100644
index 0000000..b5617c7
--- /dev/null
+++ b/test/upgrade_project/apps/dummy/src/dummy_sup.erl
@@ -0,0 +1,15 @@
+-module(dummy_sup).
+-behaviour(supervisor).
+
+-export([start_link/0]).
+-export([init/1]).
+
+start_link() ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+init([]) ->
+    Dummy = {dummy_server,
+             {dummy_server, start_link, []},
+             permanent, 5000, worker, [dummy_server]},
+
+    {ok, {{one_for_one, 10, 10}, [Dummy]}}.
-- 
cgit v1.1