chiark / gitweb /
Some stylistic fixups; get rid of warning when processing pre-publish-rejection log...
[modbot-mtm.git] / xlog / bin / report
index 7d0bb50..d250717 100755 (executable)
@@ -21,6 +21,7 @@ sub processlog ($$) {
     while (<F>) {
        chomp;
        @s= split /\t/;
+       push @s, '' if @s<=6;
         $s[0]= strftime "%Y-%m-%d %H:%M:%S %Z", localtime $s[0];
        &$processline();
        $oddeven =~ y/oe/eo/;
@@ -55,7 +56,7 @@ sub processline_print () {
 
     print "<tr class='$oddeven'><td>$sp[0]</td>";
     print "<td class='ref'>$sp[1] $sp[2]</td>";
-    print "<td>$sp[3]</td><td>$sp[4]</td><td>$sp[5]</td></tr>\n";
+    print td([@sp[3..5]]),"</tr>\n";
 }
 
 sub processline_print_ifsingle () {
@@ -105,8 +106,8 @@ if ($pi =~ m,^/message/(\d+)/(.*)$,) {
 }
 
 my $css=<<EOJ;
-span.hole:before {content: " "; }
-td.ref {font-size: 0.75em; }
+span.hole:before { content: " "; }
+td.ref { font-size: 0.75em; }
 tr.o { background: #ddddff; }
 EOJ