From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 4 Mar 2010 16:13:34 +0000 (+0000)
Subject: Some stylistic fixups; get rid of warning when processing pre-publish-rejection log... 
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~webstump/git?p=modbot-mtm.git;a=commitdiff_plain;h=a86612b822c666bc56dd84724f06b7a6e40c2d9d;hp=04e4ec16a8c42202d3c207067b81c513b7eff740

Some stylistic fixups; get rid of warning when processing pre-publish-rejection log lines
---

diff --git a/xlog/bin/report b/xlog/bin/report
index 7d0bb50..d250717 100755
--- a/xlog/bin/report
+++ b/xlog/bin/report
@@ -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