diff options
author | Micael Karlberg <bmk@erlang.org> | 2011-09-06 12:12:10 +0200 |
---|---|---|
committer | Micael Karlberg <bmk@erlang.org> | 2011-09-06 12:12:10 +0200 |
commit | 68911f0221998d471114b6e6aac73d43d3025c8a (patch) | |
tree | e3a1dd5bf787fa2b1e53a2415f2d150b2ac406ff /lib/inets/src/http_lib/http_util.erl | |
parent | 5bdbfa33f7142b888f833b8f2f80cdf2198d9212 (diff) | |
download | otp-68911f0221998d471114b6e6aac73d43d3025c8a.tar.gz otp-68911f0221998d471114b6e6aac73d43d3025c8a.tar.bz2 otp-68911f0221998d471114b6e6aac73d43d3025c8a.zip |
[httpc] Parsing of a cookie expire date should be more forgiving.
That is, if the parsing fails, the date should be ignored.
Also added support for (yet another) date format: "Tue Jan 01 08:00:01 2036 GMT"
OTP-9433
Diffstat (limited to 'lib/inets/src/http_lib/http_util.erl')
-rw-r--r-- | lib/inets/src/http_lib/http_util.erl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/lib/inets/src/http_lib/http_util.erl b/lib/inets/src/http_lib/http_util.erl index 5511ed388d..973600d7be 100644 --- a/lib/inets/src/http_lib/http_util.erl +++ b/lib/inets/src/http_lib/http_util.erl @@ -104,6 +104,22 @@ convert_netscapecookie_date([_D,_A,_Y, $ , Sec = list_to_integer([S1,S2]), {{Year,Month,Day},{Hour,Min,Sec}}; +%% Example: Tue Jan 01 08:00:01 2036 GMT +convert_netscapecookie_date([_D,_A,_Y, $ , + M,O,N, $ , + D1,D2, $ , + H1,H2, $:, + M1,M2, $:, + S1,S2, $ , + Y1,Y2,Y3,Y4, $ |_Rest]) -> + Year = list_to_integer([Y1,Y2,Y3,Y4]), + Day = list_to_integer([D1,D2]), + Month = convert_month([M,O,N]), + Hour = list_to_integer([H1,H2]), + Min = list_to_integer([M1,M2]), + Sec = list_to_integer([S1,S2]), + {{Year,Month,Day},{Hour,Min,Sec}}; + %% Sloppy... convert_netscapecookie_date([_D,_A,_Y, $,, _SP, D1,D2,_DA, |