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