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

Update of /cvsroot/curl/curl-www
In directory labb.contactor.se:/tmp/cvs-serv9956

Modified Files:
	last20threads.pl 
Log Message:
shorter subjects, cut off domain names from the name field if it was gotten
from the email address


Index: last20threads.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/last20threads.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- last20threads.pl	21 Dec 2004 16:50:56 -0000	1.4
+++ last20threads.pl	5 Jan 2005 10:45:10 -0000	1.5
@@ -104,8 +104,8 @@
         my $line=$c&1?"odd":"even";
 
         my $subj = $subject{$_};
-        if(length($subj) > 50) {
-            $subj = substr($subj, 0, 50)."...";
+        if(length($subj) > 40) {
+            $subj = substr($subj, 0, 40)."...";
         }
 
         my $subjectline=sprintf("<tr class=\"%s\"><td><a href=\"%s\">%s</a></td>\n",
@@ -135,7 +135,7 @@
 
         print $subjectline, $infoline;
 
-        if($c++>=$numberoutput) {
+        if(++$c>=$numberoutput) {
             last;
         }
         $shown{$s}++;
@@ -224,6 +224,8 @@
             }
         }
 
+        $name =~ s/(.*)_at_(.*)/$1/;
+
         $log{$file}=$date;
         $name{$file}=$name;
         $email{$file}=$email;

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