# hack to make a colored html version of irssi logs.
#
# Published at http://barfooze.de/stuff/irssi/color_logs.pl
#
# Please see the LICENSE file for copyright information
use warnings;
use HTML::Entities;
# Source: http://www.perlmonks.org/?node_id=441359
sub getColor {
my $index = shift; # Numerical index (integer from 0 to .. +.)
my @color; # Color components
my @hue_matrix = (
#
# R G B Component to modify(0=R, 1=G, 2=B)
# | | | |
# V V V V Add or subtract the offset
# | from (r,g,b) triplet
# V
[ 255, 0, 0, 2, 1 ], # Sector 1 R -> R+B
[ 255, 0, 255, 0, -1 ], # Sector 2 R+B -> B
[ 0, 0, 255, 1, 1 ], # ... B -> Cyan
[ 0, 255, 255, 2, -1 ], # ... Cyan-> G
[ 0, 255, 0, 0, 1 ], # ... ...
[ 255, 255, 0, 1, -1 ],
[ 255, 0, 0, 2, 1 ]
);
# Select a "spectrum sector", according to my hue matrix
my $sector = $hue_matrix[ int($index / 42) % @hue_matrix ];
# Calculate an offset to be applied to starting color
my $offset = ($index % 42) * 6;
@color = @$sector[0..2];
# Modify selected component to generate a "continuous gradient"
$color[$sector->[3]] += ($sector->[4] > 0 ? $offset : -$offset);
return(@color);
}
my $n = 0;
my $factor = 10;
my $colors = {};
print '';
print "";
while (<>) {
if(/(\d{2}:\d{2}) ([^[:alpha:]]+)([[:alpha:]][[:alnum:]~_^`-]+)([\W]*) (.*)/){
my ($ts, $prenick, $nick, $postnick, $txt) = ($1,$2,$3,$4,$5);
$colors->{$nick} ||= $n++;
next if $prenick eq "*** " or $prenick eq "-!- "; # strange.theme or default irssi theme. add yours if need be
if ($prenick =~ /^ ?\*/) { # /me
printf('%s * %s %s%s',
$ts, getColor($colors->{$nick} * $factor),
$nick, encode_entities($txt),"\r\n");
} else { # generic msg
printf('%s <%s> %s%s',
$ts, getColor($colors->{$nick} * $factor),
$nick, encode_entities($txt),"\r\n");
}
}
}
print "";