bagder: curl-www last20threads.pl,1.5,1.6

Update of /cvsroot/curl/curl-www
In directory labb:/tmp/cvs-serv26559

Modified Files:
	last20threads.pl 
Log Message:
provide links to the archive page and fix some more Re: stuff

Index: last20threads.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/last20threads.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- last20threads.pl	5 Jan 2005 10:45:10 -0000	1.5
+++ last20threads.pl	28 Jan 2005 19:06:00 -0000	1.6
@@ -11,6 +11,11 @@
                  'curlphp' => 'PHP',
                  'curlpython' => 'Python');
 
+my %listrealname = ('archive' => 'curl-users',
+                    'lib' => 'curl-library',
+                    'curlphp' => 'curl-and-php',
+                    'curlpython' => 'curl-and-python');
+
 opendir(DIR, $tree) || die "can't opendir $tree: $!";
 my @archives = grep { /^(.*)-(\d\d\d\d)-(\d\d)$/ && -d "$tree/$_" } readdir(DIR);
 closedir DIR;
@@ -124,7 +129,7 @@
 
         my $list=file2list($_);
         my $listdesc = listname2desc($list);
-        my $listurl="http://curl.haxx.se/mail/";
+        my $listurl="http://curl.haxx.se/mail/list.cgi?list=".$listrealname{$list};
 
         my $infoline=sprintf("<td>%s</td><td>%s</td><td>%s</td><td><a href=\"%s\">%s</a></td></tr>\n",
                              $stamp,
@@ -209,7 +214,7 @@
 
         my $s= $subject;
 
-        $s =~ s/^((Sv|Re): *)*//i;
+        $s =~ s/^((Sv|Réf[. ]*|Re|Re\[(\d+)\]): *)*//i;
         $s =~ s/[ \t\n]+/ /g;
 
         $store{$s}++;

_______________________________________________
http://cool.haxx.se/mailman/listinfo/curl-www-commits