i-scream CVS Commit Logs
$heading
END print `$updatecmd >/dev/null 2>&1`; my(@modules) = split (/\s+/, $modulelist); foreach my $module (@modules) { print "\n$module module\n |
\n";
my(@lines) = `$logcmd $module 2>&1`;
if(@lines == 0) {
print "There have been no commits in this module during this period.\n";
}
else {
foreach my $line (@lines) {
if ($line =~ /^([0-9]{4}-[0-9]{2}-[0-9]{2}.*?)\s+([^\s]+)\s+<([^\s]+)>$/) {
print "\n\n";
print HTML_encode($1);
print "\n";
print " committed by ";
print HTML_encode("$2");
print "\n\n"
}
elsif ($line =~ /^([0-9]{4}-[0-9]{2}-[0-9]{2}.*?)\s+([^\s]+)$/) {
print "\n\n";
print HTML_encode($1);
print "\n";
print " committed by ";
print HTML_encode("$2");
print "\n\n"
}
elsif($line =~ /([^\s]+) (\([^,^\)]+(,[^\)]+)?\))([,:])/) {
my ($file, $rev, $tags, $ext) = ($1, $2, $3, $4);
print "";
print "";
print HTML_encode($file);
print " ";
if($rev =~ /\(([^\s]+)\.(\d+)(.*)\)/) {
my $start = $1;
my $end = $2;
my $other = $3;
my $newrev = "$start.$end";
my $oldrev;
if($end != 1) {
my $oldminver = $end-1;
$oldrev = "$start.$oldminver";
}
elsif($start =~ /^((\d+\.)+)(\d+)$/) {
$oldrev = $1;
# take trailing . off old revision
chop $oldrev;
}
if(defined $oldrev) {
my $diff = ".diff?r1=$oldrev&r2=$newrev";
print "(";
print HTML_encode("$start.$end");
print "";
print HTML_encode("$other)");
}
else {
print HTML_encode($rev);
}
}
else {
print HTML_encode($rev);
}
print HTML_encode($ext);
print " \n" } else { chomp $line; print " ";
print HTML_encode($line);
print " \n" } } } print " |
\n\n"; } print "