Improved the resulting HTML, making it vaguely readable.

diff --git a/cgi-bin/cvslog.cgi b/cgi-bin/cvslog.cgi
index 5374744168952c18cc7cfc35f55a8f7348b4fee0..aef970c2a4623b7cfc9ebd9b732a5f54c7e00ee6 100755 (executable)
--- a/cgi-bin/cvslog.cgi
+++ b/cgi-bin/cvslog.cgi
@@ -59,8 +59,8 @@ my(@modules) = split (/\s+/, $modulelist);
 
 foreach my $module (@modules) {
 
-    print "<table border=\"0\" bgcolor=\"#000066\" cellpadding=\"5\" width=\"100%\">";
-    print "<tr><td><font size=\"4\"><b><a href=\"/cgi-bin/cvs/viewcvs.cgi/$module\">$module module</a></b></font></td></tr>";
+    print "<table border=\"0\" bgcolor=\"#000066\" cellpadding=\"5\" width=\"100%\">\n\n";
+    print "<tr><td>\n<font size=\"4\"><b><a href=\"/cgi-bin/cvs/viewcvs.cgi/$module\">$module module</a></b></font>\n</td></tr>\n\n";
     print "<tr><td bgcolor=\"white\">\n";
 
     my(@lines) = `$logcmd $module 2>&1`;
@@ -71,17 +71,17 @@ foreach my $module (@modules) {
         foreach my $line (@lines) {
 
             if ($line =~ /^([0-9]{4}-[0-9]{2}-[0-9]{2}.*?)([^\s]+)$/) {
-                print "<font color=\"blue\"><b>";
+                print "\n<font color=\"blue\"><b>";
                 print HTML_encode($1);
                 print "</b><i>";
                 print HTML_encode("by $2");
-                print "</i></font>"
+                print "</i></font>\n"
             }
             else {
                 chop $line;
                 print "<code>";
                 print HTML_encode($line);
-                print "</code><br>"
+                print "</code><br>\n"
             }
         }
     }