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;
}