From: timriker Date: Wed, 28 Dec 2011 23:15:19 +0000 (+0000) Subject: process * style /me lines too X-Git-Url: https://git.donarmstrong.com/?p=infobot.git;a=commitdiff_plain;h=a9d992a562cbb003f0f3ee4af8a5d0166abdedf9 process * style /me lines too git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1917 c11ca15a-4712-0410-83d8-924469b57eb5 --- diff --git a/scripts/irclog2html.pl b/scripts/irclog2html.pl index c2affbe..ad7cb1b 100755 --- a/scripts/irclog2html.pl +++ b/scripts/irclog2html.pl @@ -34,9 +34,9 @@ use POSIX qw(strftime); # Comment out the "table" assignment to use the plain version -#my $STYLE = "tt"; -#my $STYLE = "simplett"; -#my $STYLE = "table"; +#my $STYLE = "tt"; +#my $STYLE = "simplett"; +#my $STYLE = "table"; my $STYLE = "simpletable"; my $colour_left = "#000099"; # nick leaving channel @@ -62,10 +62,10 @@ sub header { qq{ - irclog2html for $channel on $date - - - + irclog2html for $channel on $date + + +

irclog2html for $channel on $date

@@ -284,14 +284,32 @@ sub main { # new nick $nickcount++; - # if we've exceeded our estimate of the number of nicks, double it + # if we've exceeded our estimate of the number of nicks, double it $NICKMAX *= 2 if $nickcount >= $NICKMAX; $htmlcolour = $colour_nick{$nick} = html_rgb( $nickcount, $NICKMAX ); } - output_timenicktext( $date, $time, $channel, $nick, $text, - $htmlcolour ); + output_timenicktext( $date, $time, $channel, $nick, $text, $htmlcolour ); + } + elsif ( $line =~ /^\* ([^ \/]+)\/(\#[^ ]+) (.+)/ ) { + # Colourise the /me's # + $nick=$1; + $channel=$2; + $text="$3"; + $htmlcolour = $colour_nick{$nick}; + if ( !defined($htmlcolour) ) { + + # new nick + $nickcount++; + + # if we've exceeded our estimate of the number of nicks, double it + $NICKMAX *= 2 if $nickcount >= $NICKMAX; + + $htmlcolour = $colour_nick{$nick} = + html_rgb( $nickcount, $NICKMAX ); + } + output_timenicktext( $date, $time, $channel, $nick, $text, $htmlcolour ); } elsif ( $line =~ /^>\;>\;>\; / ) { $line =~ s/^>\;>\;>\; /\*\*\* /; @@ -309,8 +327,7 @@ sub main { $colour_nick{$nick_new} = $colour_nick{$nick_old}; $colour_nick{$nick_old} = undef; - $line =~ -s/(\*\*\* .*)/$1<\/font>/; + $line =~ s/(\*\*\* .*)/$1<\/font>/; } elsif ( $line =~ /\*\*\* (join|mode|topic)\/(.*?) .*/ ) { $channel = lc $2;