forked from github/kensanata.oddmuse
(to_date): Fix RFC 822 format.
This commit is contained in:
@@ -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 {
|
||||
|
||||
Reference in New Issue
Block a user