END -&print_html($title); +&print_html($header); print <<"END"; +

i-scream CVS Commit Logs

$heading

END @@ -90,7 +95,7 @@ my(@modules) = split (/\s+/, $modulelist); foreach my $module (@modules) { print "\n\n"; - print "\n\n"; + print "\n\n"; print "

\n$module module\n

\n"; my(@lines) = `$logcmd $module 2>&1`; @@ -116,13 +121,13 @@ foreach my $module (@modules) { print HTML_encode("$2"); print "\n\n" } - elsif($line =~ /(\S+) ($\S+$)([,:])/ || $line =~ /(\S+) ($\S+,\s+\S+$)([,:])/) { - my ($file, $rest, $ext) = ($1, $2, $3); + elsif($line =~ /([^\s]+) ($[^,^$]+(,[^\)]+)?\))([,:])/) { + my ($file, $rev, $tags, $ext) = ($1, $2, $3, $4); print "

";
                 print "";
                 print HTML_encode($file);
                 print " ";
-                if($rest =~ /\((\S+)\.(\d+)(.*)\)/) {
+                if($rev =~ /\(([^\s]+)\.(\d+)(.*)\)/) {
                     my $start = $1;
                     my $end = $2;
                     my $other = $3;
@@ -145,20 +150,20 @@ foreach my $module (@modules) {
                         print HTML_encode("$other)");
                     }
                     else {
-                        print HTML_encode($rest);
+                        print HTML_encode($rev);
                     }
                 }
                 else {
-                    print HTML_encode($rest);
+                    print HTML_encode($rev);
                 }
                 print HTML_encode($ext);
-                print "

\n" + print "
\n" } else { - chop $line; + chomp $line; print "

";
                 print HTML_encode($line);
-                print "

\n" + print "
\n" } } } @@ -167,16 +172,18 @@ foreach my $module (@modules) { print "

\n\n"; } -&print_html($bottom); +print "

"; -print <<"END"; +&print_html($footer); -