1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
=head1 NAME
APR::Date - Perl API for APR date manipulating functions
=head1 Synopsis
use APR::Date ();
# parse HTTP-complient date string
$date_string = 'Sun, 06 Nov 1994 08:49:37 GMT';
$date_parsed = APR::Date::parse_http($date_string);
# parse RFC822-complient date string
$date_string = 'Sun, 6 Nov 94 8:49:37 GMT';
$date_parsed = APR::Date::parse_rfc($date_string);
=head1 Description
C<APR::Socket> provides the Perl interface to APR date manipulating
functions.
=head1 API
C<APR::Date> provides the following functions and/or methods:
=head2 C<parse_http>
Parse HTTP date strings
$date_parsed = parse_http($date_string);
=over 4
=item arg1: C<$date_string> ( string )
The date string can be in one of the following formats:
Sun, 06 Nov 1994 08:49:37 GMT ; RFC 822, updated by RFC 1123
Sunday, 06-Nov-94 08:49:37 GMT ; RFC 850, obsoleted by RFC 1036
Sun Nov 6 08:49:37 1994 ; ANSI C's asctime() format
refer to RFC2616 for the details (GMT is assumed, regardless of the
used timezone).
=item ret: C<$date_parsed> ( number )
the number of microseconds since 1 Jan 1970 GMT, or 0 if out of range
or if the date is invalid.
=item since: 2.0.00
=back
Remember to divide the return value by 1_000_000 if you need it in
seconds.
=head2 C<parse_rfc>
Parse a string resembling an RFC 822 date. It's meant to be lenient
in its parsing of dates. Hence, this will parse a wider range of
dates than C<L<parse_http()|/C_parse_http_>>.
$date_parsed = parse_rfc($date_string);
=over 4
=item arg1: C<$date_string> ( string )
The date string can be in one of the following formats:
Sun, 06 Nov 1994 08:49:37 GMT ; RFC 822, updated by RFC 1123
Sunday, 06-Nov-94 08:49:37 GMT ; RFC 850, obsoleted by RFC 1036
Sun Nov 6 08:49:37 1994 ; ANSI C's asctime() format
Sun, 6 Nov 1994 08:49:37 GMT ; RFC 822, updated by RFC 1123
Sun, 06 Nov 94 08:49:37 GMT ; RFC 822
Sun, 6 Nov 94 08:49:37 GMT ; RFC 822
Sun, 06 Nov 94 08:49 GMT ; Unknown [drtr\@ast.cam.ac.uk]
Sun, 6 Nov 94 08:49 GMT ; Unknown [drtr\@ast.cam.ac.uk]
Sun, 06 Nov 94 8:49:37 GMT ; Unknown [Elm 70.85]
Sun, 6 Nov 94 8:49:37 GMT ; Unknown [Elm 70.85]
=item ret: C<$date_parsed> ( number )
the number of microseconds since 1 Jan 1970 GMT, or 0 if out of range
or if the date is invalid.
=item since: 2.0.00
=back
Remember to divide the return value by 1_000_000 if you need it in
seconds.
=head1 See Also
L<mod_perl 2.0 documentation|docs::2.0::index>.
=head1 Copyright
mod_perl 2.0 and its core modules are copyrighted under
The Apache Software License, Version 2.0.
=head1 Authors
L<The mod_perl development team and numerous
contributors|about::contributors::people>.
=cut
|
