From ca6b45ef59fdae78e3e8058705d0cf2c6c077d4e Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Wed, 5 Jan 2005 21:52:48 +0000
Subject: [PATCH] (to_date): Fix RFC 822 format.

---
 changelog-to-rss | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/changelog-to-rss b/changelog-to-rss
index c1ee6ce4..1870de4f 100755
--- a/changelog-to-rss
+++ b/changelog-to-rss
@@ -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 {