diff options
| author | Badlop <badlop@process-one.net> | 2010-05-24 13:46:57 +0200 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2010-05-24 13:58:10 +0200 |
| commit | a2f659a2c64e3b5e22b0ad30d65de7a690b14803 (patch) | |
| tree | ff8c3643912583338dc4cb1d1e2adc996649de72 /src | |
| parent | Update the Polish translation (thanks to Zbyszek Żółkiewski) (diff) | |
Only log when script errors are found
Diffstat (limited to 'src')
| -rw-r--r-- | src/ejabberd_update.erl | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/src/ejabberd_update.erl b/src/ejabberd_update.erl index a9b12e69e..8d626ad13 100644 --- a/src/ejabberd_update.erl +++ b/src/ejabberd_update.erl @@ -84,7 +84,7 @@ update_info() -> update_info(Dir, Files) -> Beams = lists:sort(get_beams(Files)), UpdatedBeams = get_updated_beams(Beams), - ?INFO_MSG("beam files: ~p~n", [UpdatedBeams]), + ?DEBUG("beam files: ~p~n", [UpdatedBeams]), {Script, LowLevelScript, Check} = build_script(Dir, UpdatedBeams), {ok, Dir, UpdatedBeams, Script, LowLevelScript, Check}. @@ -124,14 +124,21 @@ get_current_version(Module) -> %% @spec(Dir::string(), UpdatedBeams::[atom()]) -> {Script,LowLevelScript,Check} build_script(Dir, UpdatedBeams) -> Script = make_script(UpdatedBeams), - ?INFO_MSG("script: ~p~n", [Script]), LowLevelScript = make_low_level_script(UpdatedBeams, Script), - ?INFO_MSG("low level script: ~p~n", [LowLevelScript]), Check = release_handler_1:check_script( LowLevelScript, [{ejabberd, "", filename:join(Dir, "..")}]), - ?INFO_MSG("check: ~p~n", [Check]), + case Check of + ok -> + ?DEBUG("script: ~p~n", [Script]), + ?DEBUG("low level script: ~p~n", [LowLevelScript]), + ?DEBUG("check: ~p~n", [Check]); + _ -> + ?ERROR_MSG("script: ~p~n", [Script]), + ?ERROR_MSG("low level script: ~p~n", [LowLevelScript]), + ?ERROR_MSG("check: ~p~n", [Check]) + end, {Script, LowLevelScript, Check}. %% Copied from Erlang/OTP file: lib/sasl/src/systools.hrl |