package HTMLPlog;
use strict;
sub makehtml {
my $filename = shift;
open FILE, $filename;
my @lines = ;
close FILE;
print <
Perlbot Log
END
foreach (@lines) {
s//\>\;/g;
s/(\<\;.*?\>\;)/$1<\/b>/;
s|^(\d+:\d+:\d+) \* (\w+) (.*)|$1 * $2 $3|;
s/^(\d+:\d+:\d+\s)(.*? joined \#.*?$)/$1$2<\/FONT>/;
s/^(\d+:\d+:\d+\s)(.*? left \#.*?$)/$1$2<\/FONT>/;
s/^(\d+:\d+:\d+\s)(\[.*?\])/$1$2<\/FONT>/;
s/(\d+\:\d+:\d+)/$1<\/A>/;
print " $_
";
}
print <
END
}
1;