bagder: curl-www last20threads.pl,1.12,1.13
[email protected] Tue, 24 May 2005 22:06:36 +0000
Newsgroups
gmane.comp.web.curl.www.cvs
Message-ID
<[email protected] >
Update of /cvsroot/curl/curl-www
In directory labb:/tmp/cvs-serv4537
Modified Files:
last20threads.pl
Log Message:
added curlpp stuff
Index: last20threads.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/last20threads.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- last20threads.pl 13 May 2005 14:57:19 -0000 1.12
+++ last20threads.pl 24 May 2005 22:06:34 -0000 1.13
@@ -10,13 +10,15 @@
'lib' => 'Library',
'curlphp' => 'PHP',
'curlpython' => 'Python',
- 'tracker' => 'Tracker');
+ 'tracker' => 'Tracker',
+ 'curlpp' => 'cURLpp');
my %listrealname = ('archive' => 'curl-users',
'lib' => 'curl-library',
'curlphp' => 'curl-and-php',
'curlpython' => 'curl-and-python',
- 'tracker' => 'curl-tracker');
+ 'tracker' => 'curl-tracker',
+ 'curlpp' => 'curlpp');
opendir(DIR, $tree) || die "can't opendir $tree: $!";
my @archives = grep { /^(.*)-(\d\d\d\d)-(\d\d)$/ && -d "$tree/$_" } readdir(DIR);
@@ -220,6 +222,10 @@
$s =~ s/^((Sv|Réf[. ]*|Re *|RE\.|Fwd|FW|Re\[(\d+)\]): *)*//ig;
$s =~ s/[ \t\n]+/ /g;
+ # Here's a special to strip off the subject prefix of the curlpp
+ # mailing list:
+ $s =~ s/\[cURLpp\] *//g;
+
$store{$s}++;
if(!$inreplyto) {
_______________________________________________
http://cool.haxx.se/mailman/listinfo/curl-www-commits