[openserverplatform] r123 committed - Fixed a mnesia bug and added warm-upgrade support for servlets

[openserve...@googlecode.com]

Revision: 123
Author: discipleofranok
Date: Sat Dec 26 09:09:21 2009
Log: Fixed a mnesia bug and added warm-upgrade support for servlets

http://code.google.com/p/openserverplatform/source/detail?r=123

Modified:
/trunk/src/osp_manager.erl

=======================================
--- /trunk/src/osp_manager.erl Tue Dec 8 06:25:13 2009
+++ /trunk/src/osp_manager.erl Sat Dec 26 09:09:21 2009
@@ -94,6 +94,7 @@
retrieve(nodeapp).

%% @todo This needs to update on every start of a new application
+%% @doc Backs up all the existing tables to a node for replication
%% @spec bkup_db(node(), atom()) -> ok
bkup_db(Node, Type) ->
Tables = mnesia:system_info(tables),
@@ -154,9 +155,11 @@
true ->
if
Node =:= node() ->
- osp_broker:stop(App);
+ osp_broker:stop(App),
+ code:purge(App);
true->
- rpc:call(Node, osp_broker, stop, [App])
+ rpc:call(Node, osp_broker, stop, [App]),
+ rpc:call(Node, code, purge, [App])
end,
del_app_from_list(Node, App),
ok;
@@ -222,7 +225,7 @@
end,
lists:foreach(F, nodes()),
store(uptime, undefined),
- store(nodeapp, []),
+ store(nodeapp, undefined),
init:stop().

%% @doc A boolean test function for whether a servlet is running on a
given node