bagder: curl-www/auto last5commits.pl,1.9,1.10

[email protected] Sun, 01 Aug 2010 18:49:22 +0000
Newsgroups gmane.comp.web.curl.www.cvs
Message-ID <[email protected]>
Update of /cvsroot/curl/curl-www/auto
In directory giant.haxx.se:/var/tmp/cvs-serv32479

Modified Files:
	last5commits.pl 
Log Message:
nicer look


Index: last5commits.pl
===================================================================
RCS file: /cvsroot/curl/curl-www/auto/last5commits.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- last5commits.pl	28 Mar 2010 21:29:49 -0000	1.9
+++ last5commits.pl	1 Aug 2010 18:49:20 -0000	1.10
@@ -27,19 +27,17 @@
     if($c{'commit'}) {
         my $auth = $c{'Author:'};
         my $desc = $c{'desc'};
-        $auth =~ s/</[/g;
-        $auth =~ s/>/]/g;
-        $auth =~ s/@/ at /g;
-        $auth =~ s/ at (.)/ at $1 /;
-
+        my $date = $c{'Date:'};
+        $auth =~ s/<.*//g;
         $desc =~ s/   */<p>/g;
 
-        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,
+        printf("<tr class=\"$cl\"><td colspan=\"2\"><b>%s</b> at <a href=\"%s/%s\">%s</a></td></tr><tr class=\"$cl\"><td>%s</td><td><pre>%s</pre></td></tr>\n",
+               $auth,
                "http://github.com/bagder/curl/commit",
                $c{'commit'},
-               $c{'Date:'}, $auth,
-               $c{'files'}, $desc);
+               $date,
+               $desc,
+               $c{'files'});
     }
     undef %c;
 }