Bug#162588: www.debian.org: Patch

[Frank Lichtenheld <frank@lichtenheld.de>]

Package: www.debian.org
Version: N/A; reported 2003-03-08
Tags: patch
Followup-For: Bug #162588

The following patch should make the requested changes.
But someone has to decide if to add it.

Index: pages.pl
===================================================================
RCS file: /cvs/webwml/packages/htmlscripts/pages.pl,v
retrieving revision 1.9
diff -u -r1.9 pages.pl
--- pages.pl    30 Jan 2003 14:43:59 -0000      1.9
+++ pages.pl    8 Mar 2003 16:48:20 -0000
@@ -83,7 +83,7 @@
        if(file_changed("$dest_dir/index.html", $index_page)) {
                open(FILEH, ">$dest_dir/index.html") || die "Can\'t open file $d
est_dir/index.html: $!";
                sysopen(FILEH, "$dest_dir/index.html", O_WRONLY | O_TRUNC | O_CR
EAT, 0664) || die "Can\'t open file $dest_dir/index.html: $!";
-               $now_time = gmtime();
+               $now_time = time_stamp();
                $index_page =~ s/LAST_MODIFIED_DATE/$now_time/;
                print FILEH $index_page;
                close FILEH;
@@ -120,7 +120,7 @@
        if(file_changed("$dest_dir/allpackages.html", $all_package)) {
                open(FILEH, ">$dest_dir/allpackages.html") || die "Can\'t open f
ile $dest_dir/allpackages.html: $!";
                sysopen(FILEH, "$dest_dir/allpackages.html", O_WRONLY | O_TRUNC 
| O_CREAT, 0664) || die "Can\'t open file $dest_dir/allpackages.html: $!";
-               $now_time = gmtime();
+               $now_time = time_stamp();
                $all_package =~ s/LAST_MODIFIED_DATE/$now_time/;
                print FILEH $all_package;
                close FILEH;
@@ -131,7 +131,7 @@
        my ($dest_dir, $section) = @_;
        my $res;
 
-       $now_time = gmtime();
+       $now_time = time_stamp();
        @htmldir = split /\//, $dest_dir; $distro = pop @htmldir;
        $section_page = header("Software Packages in `$distro\', $section sectio
n", '../../..', '../../..');
        if ($distro eq "experimental") {
@@ -415,4 +415,15 @@
                print MD5H "$md5s{$_} $_\n";
        }
        close MD5H;
+}
+
+sub time_stamp() {
+    my ($sec,$min,$hour,$mday,undef,$year) = gmtime();
+    my $time_str = gmtime();
+    my ($wday, $month) = ($time_str =~ /^(\w{3})\s+(\w+)/);
+
+    $year += 1900;
+    $time_str = sprintf "$wday, $mday $month $year %02d:%02d:%02d +0000", $hour
, $min, $sec;
+
+    return $time_str;
 }

-- System Information
Debian Release: 3.0
Architecture: i386
Kernel: Linux djpig 2.4.20 #1 Fri Mar 7 14:16:01 CET 2003 i686
Locale: LANG=de_DE, LC_CTYPE=de_DE