* src/mod_offline.erl: Code clean-up.

SVN Revision: 832

diff --git a/ChangeLog b/ChangeLog
index dcdad2ae28913520cfdfea4804a412b47dddbc09..c7758a58f00d5aa6f2664701c79cf2326a8f659b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2007-07-26  Mickael Remond  <mickael.remond@process-one.net>
 
+       * src/mod_offline.erl: Code clean-up.
+
        * src/gen_mod.erl: Throw error more cleanly.
        
        * src/mod_configure.erl: One ACL call was not virtual host

diff --git a/src/mod_offline.erl b/src/mod_offline.erl
index 0f5f89935c14d9241b4bd1a0a5430e248790a476..b9fde8833a2c83fb6b4deec0dc62ab6af7c08196 100644 (file)
--- a/src/mod_offline.erl
+++ b/src/mod_offline.erl
@@ -171,20 +171,16 @@ find_x_expire(TimeStamp, [{xmlcdata, _} | Els]) ->
 find_x_expire(TimeStamp, [El | Els]) ->
     case xml:get_tag_attr_s("xmlns", El) of
        ?NS_EXPIRE ->
-           case xml:get_tag_attr_s("seconds", El) of
-               Val ->
-                   case catch list_to_integer(Val) of
-                       {'EXIT', _} ->
-                           never;
-                       Int when Int > 0 ->
-                           {MegaSecs, Secs, MicroSecs} = TimeStamp,
-                           S = MegaSecs * 1000000 + Secs + Int,
-                           MegaSecs1 = S div 1000000,
-                           Secs1 = S rem 1000000,
-                           {MegaSecs1, Secs1, MicroSecs};
-                       _ ->
-                           never
-                   end;
+           Val = xml:get_tag_attr_s("seconds", El),
+           case catch list_to_integer(Val) of
+               {'EXIT', _} ->
+                   never;
+               Int when Int > 0 ->
+                   {MegaSecs, Secs, MicroSecs} = TimeStamp,
+                   S = MegaSecs * 1000000 + Secs + Int,
+                   MegaSecs1 = S div 1000000,
+                   Secs1 = S rem 1000000,
+                   {MegaSecs1, Secs1, MicroSecs};
                _ ->
                    never
            end;