#!/usr/bin/perl
# irclog2html.pl Version 1.5 - 11th May 2000
# Copyright (C) 2000, Jeffrey W. Waugh
# Author:
# Jeff Waugh
# Contributors:
# Rick Welykochy
# Alexander Else
# Released under the terms of the GNU GPL
# http://www.gnu.org/copyleft/gpl.html
# Usage: irclog2html filename
# irclog2html will write out a colourised irc log, appending a .html
# extension to the output file.
####################################################################################
# Perl Configuration
use strict;
$^W = 1; #RW# turn on warnings
####################################################################################
# Preferences
# Comment out the "table" assignment to use the plain version
#my $STYLE = "tt";
#my $STYLE = "simplett";
my $STYLE = "table";
#my $STYLE = "simpletable";
my $colour_left = "#000099"; # nick leaving channel
my $colour_joined = "#009900"; # nick joining channel
my $colour_server = "#009900"; # server message (***)
my $colour_nickchange = "#009900"; # nick change
my $colour_action = "#CC00CC"; # nick action (/me waves)
my %prefs_colour_nick = (
"jdub" => "#993333",
"cantanker" => "#006600",
"chuckd" => "#339999",
);
####################################################################################
# Utility Functions
sub output_nicktext {
my ($nick, $text, $htmlcolour) = @_;
if ($STYLE eq "table") {
print OUTPUT "| $nick | ";
print OUTPUT "$text<\/font> |
|---|
\n";
}
elsif ($STYLE eq "simpletable") {
print OUTPUT "| $nick | ";
print OUTPUT "$text |
|---|
\n";
}
elsif ($STYLE eq "simplett") {
print OUTPUT "<\;$nick>\; $text
\n";
}
else {
print OUTPUT "<\;$nick>\; $text<\/font>
\n";
}
}
sub output_servermsg {
my ($line) = @_;
if ($STYLE =~ /table/) {
print OUTPUT "| $line |
\n";
}
else {
print OUTPUT "$line
\n";
}
}
sub html_rgb
{
my ($i,$ncolours) = @_;
$ncolours = 1 if $ncolours == 0;
my $rgbmax = 125; # tune these two for the outmost ranges of colour depth
my $rgbmin = 240;
my $a = 0.95; # tune these for the starting and ending concentrations of R,G,B
my $b = 0.5;
my $rgb = [ [$a,$b,$b], [$b,$a,$b], [$b,$b,$a], [$a,$a,$b], [$a,$b,$a], [$b,$a,$a] ];
my $n = $i % @$rgb;
my $m = $rgbmin + ($rgbmax - $rgbmin) * ($ncolours - $i) / $ncolours;
my $r = $rgb->[$n][0] * $m;
my $g = $rgb->[$n][1] * $m;
my $b = $rgb->[$n][2] * $m;
sprintf("#%02x%02x%02x",$r,$g,$b);
}
####################################################################################
# Main
sub main {
my $files;
my $filecount = 0;
my $line;
my $nick;
my $text;
my $htmlcolour;
my $nickcount = 0;
my $NICKMAX = 30;
my %colour_nick = %prefs_colour_nick;
# Quit if there is no filename specified on the command line #
if ($#ARGV == -1) {
die "Required parameter missing\n\nUsage: irclog2html filenames\n\n";
}
# Loop through parameters, bringing filenames into $files #
while ($ARGV[$filecount]) {
$filecount++;
}
# Open input and output files #
if (!open(INPUT, "$ARGV[0]")) {
die "Cannot open $ARGV[0] for reading!\n\n";
}
if (!open(OUTPUT, ">$ARGV[0].html")) {
die "Cannot open $ARGV[0].html for writing!\n\n";
}
# Begin output #
print OUTPUT qq{
$ARGV[0]
};
if ($STYLE =~ /table/) {
print OUTPUT "\n";
}
print OUTPUT qq{
Generated by irclog2html.pl by Jeff Waugh
- find it at freshmeat.net!
};
close INPUT;
close OUTPUT;
return 0;
}
exit main;