diff options
| -rw-r--r-- | ChangeLog | 2 | ||||
| -rw-r--r-- | src/mod_offline.erl | 24 |
2 files changed, 12 insertions, 14 deletions
@@ -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 0f5f89935..b9fde8833 100644 --- 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; |