+
+ if ($line =~ /^([0-9]{4}-[0-9]{2}-[0-9]{2}.*?)([^\s]+)$/) {
+ print "\n<font color=\"blue\"><b>";
+ print HTML_encode($1);
+ print "</b><i>";
+ print HTML_encode("by $2");
+ print "</i></font>\n"
+ }
+ else {
+ chop $line;
+ print "<code>";
+ print HTML_encode($line);
+ print "</code><br>\n"
+ }