(to_date): Fix RFC 822 format.

This commit is contained in:
Alex Schroeder
2005-01-05 21:52:48 +00:00
parent 7cb7249039
commit ca6b45ef59

View File

@@ -31,7 +31,7 @@ if (not $url) {
$q->start_html('ChangeLog to RSS'),
$q->h1('ChangeLog to RSS'),
$q->p('Translates ChangeLog output to RSS 2.0.'),
$q->p(q{$Id: changelog-to-rss,v 1.2 2005/01/05 21:46:54 as Exp $}),
$q->p(q{$Id: changelog-to-rss,v 1.3 2005/01/05 21:52:48 as Exp $}),
$q->start_form(-method=>'GET'),
$q->p('ChangeLog URL: ', $q->textfield('url', '', 70)),
$q->p('Limit number of entries returned: ', $q->textfield('limit', '15', 5)),
@@ -102,7 +102,9 @@ sub output {
sub to_date {
$_ = shift;
my ($year, $month, $day) = split(/-/);
return strftime("", 0, 0, 0, $day - 1, $month - 1, $year - 1900);
# Wed, 02 Oct 2002 00:00:00 GMT
return strftime("%a, %d %b %Y 00:00:00 GMT",
0, 0, 0, $day - 1, $month - 1, $year - 1900);
}
sub quote_html {