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/;
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 () {
}
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