bagder: curl-www/auto last5commits.pl,1.5,1.6

Update of /cvsroot/curl/curl-www/auto
In directory giant.haxx.se:/var/tmp/cvs-serv12129

Modified Files:
	last5commits.pl 
Log Message:
show the email part of the author as well, only slightly obfuscated


Index: last5commits.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/auto/last5commits.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- last5commits.pl	22 Mar 2010 22:04:01 -0000	1.5
+++ last5commits.pl	22 Mar 2010 22:18:41 -0000	1.6
@@ -25,11 +25,16 @@
 sub showc {
     $cl = $counter++&1?"odd":"even";
     if($c{'commit'}) {
+        my $auth = $c{'Author:'};
+        $auth =~ s/</[/g;
+        $auth =~ s/>/]/g;
+        $auth =~ s/@/ at /g;
+        $auth =~ s/ at (.)/ at $1 /;
         printf("<tr class=\"%s\"><td nowrap><a href=\"%s/%s\">%s</a></td><td>%s</td><td><pre>%s</pre></td><td>%s</td></tr>\n",
                $cl,
                "http://github.com/bagder/curl/commit/",
                $c{'commit'},
-               $c{'Date:'}, $c{'Author:'},
+               $c{'Date:'}, $auth,
                $c{'files'}, $c{'desc'});
     }
     undef %c;