diff options
| author | Mickaël Rémond <mickael.remond@process-one.net> | 2007-07-26 10:08:41 +0000 |
|---|---|---|
| committer | Mickaël Rémond <mickael.remond@process-one.net> | 2007-07-26 10:08:41 +0000 |
| commit | 59fa698967b5483bd7faa027560923f216358ebc (patch) | |
| tree | 57fce835e7c1c56a879f7b08c2c6035a063c00ee /src | |
| parent | * src/gen_mod.erl: Throw error more cleanly. (diff) | |
* src/mod_offline.erl: Code clean-up.
SVN Revision: 832
Diffstat (limited to 'src')
| -rw-r--r-- | src/mod_offline.erl | 24 |
1 files changed, 10 insertions, 14 deletions
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; |
