#!/usr/bin/perl # #licq log to html version 1.0 #Stupid little script to read in licq history files and make a pretty little #HTML page out of them #2000-12-04 #James Terhune # # See the fun with ICQ users page! http://terhune.net/content/funwithicq/ #usage: #log-html.pl < 12345678.history > output.shtml use strict; my @log = ; #print "Title\n"; #print "\n"; #print "
Title goes Here
Comments go here\n"; print " foreach my $logg (@log) { if ($logg =~ /\:(.*)/) { print "$1\n"; } if ($logg =~ /\[ R \| [0-9]{4} \| [0-9]{4} \| [0-9]{4} \| ([0-9]*) \]/) { print "
" . localtime($1) . "Human:"; } if ($logg =~ /\[ S \| [0-9]{4} \| [0-9]{4} \| [0-9]{4} \| ([0-9]*) \]/) { print "
" . localtime($1) . "Bot:"; } } print "
\n\n\n"; #print ""; print "