X-Git-Url: http://git.i-scream.org/?a=blobdiff_plain;f=cgi-bin%2Fcvslog.cgi;h=1e165941f72438c2256caa467fe0c5cb930f8dbf;hb=b1187e39d07b29bb57d567a4e600b65bc2a380ef;hp=c234d8f28a3efd3f075cdc9e9e3d17fb49b78ec1;hpb=bbcc7379f05c35c7f302c0f9b191100e9a40fa03;p=www.i-scream.org.git
diff --git a/cgi-bin/cvslog.cgi b/cgi-bin/cvslog.cgi
index c234d8f..1e16594 100755
--- a/cgi-bin/cvslog.cgi
+++ b/cgi-bin/cvslog.cgi
@@ -108,22 +108,31 @@ foreach my $module (@modules) {
print HTML_encode("$2");
print "\n\n"
}
- elsif($line =~ /(\S+) (\(\S+\))([,:])/) {
+ elsif ($line =~ /^([0-9]{4}-[0-9]{2}-[0-9]{2}.*?)\s+([^\s]+)$/) {
+ print "\n\n";
+ print HTML_encode($1);
+ print "\n";
+ print " commited by ";
+ print HTML_encode("$2");
+ print "\n\n"
+ }
+ elsif($line =~ /(\S+) (\(\S+\))([,:])/ || $line =~ /(\S+) (\(\S+,\s+\S+\))([,:])/) {
#chop $line;
my ($file, $rest, $ext) = ($1, $2, $3);
print "";
print "";
print HTML_encode($file);
print " ";
- if($rest =~ /\((\S).(\S+)\)/) {
+ if($rest =~ /\((\d+).(\d+)(.*)\)/) {
my $newrev = "$1.$2";
my $oldminver = $2-1;
my $oldrev = "$1.$oldminver";
if(!($1==1 && $2==1)) {
my $diff = ".diff?r1=$oldrev&r2=$newrev";
- print "";
- print HTML_encode($rest);
+ print "(";
+ print HTML_encode("$1.$2");
print "";
+ print HTML_encode("$3)");
}
else {
print HTML_encode($rest);