use updated crypto api

rebar.config

@@ -1,6 +1,6 @@
 %% -*- mode: erlang -*-
 
-{deps, [
-			{mochiweb, ".*", {git, "git://github.com/mochi/mochiweb.git", {branch, "master"}}}
-		]
-}.
+%% {deps, [
+%% 			{mochiweb, ".*", {git, "git://github.com/mochi/mochiweb.git", {branch, "master"}}}
+%% 		]
+%% }.

src/log4erl_utils.erl

@@ -66,7 +66,7 @@ to_log(Cur, Level) ->
     end.
 
 get_id() ->
-    {_,_,N} = now(),
+    {_,_,N} = os:timestamp(),
     Id = "log4erl_" ++ integer_to_list(random:uniform(N)),
     list_to_atom(Id).
 

src/log_manager.erl

@@ -45,7 +45,7 @@ change_filename(Logger, Appender, Filename) ->
 %% Logger API functions
 %%--------------------------------------------------------------------
 log(Logger, Level, Log, Data) ->
-    Now = {_, _, Ms} = erlang:now(),
+    Now = {_, _, Ms} = os:timestamp(),
     T = calendar:now_to_local_time(Now),
     ?LOG2("Logging:~n ~p ~p ~p ~p~n",[Logger, Level, Log, Data]),
     LL = #log{level=Level, msg=Log, data=Data, time=T, millis = Ms div 1000},

src/smtp_fsm.erl

@@ -108,7 +108,7 @@ hexit(Int) ->
 %% generates MD5 mac and returns as hex string
 md5_hmac(Challenge,Pwd) ->
     crypto:start(),
-    Md5_bin = crypto:md5_mac(Pwd,Challenge),
+    Md5_bin = crypto:hmac(md5, Pwd,Challenge),
     crypto:stop(),
     hexdigest(Md5_bin).
 

src/xml_appender.erl

@@ -236,7 +236,7 @@ escape_attr(S) when is_list(S) ->
 escape_attr(I) when is_integer(I) ->
     escape_attr(integer_to_list(I), []);
 escape_attr(F) when is_float(F) ->
-    escape_attr(mochinum:digits(F), []).
+    escape_attr("voided", []).%%mochinum:digits(F), []).
 
 escape([], Acc) ->
     lists:reverse(Acc);