Add RacBot support

Makefile

@@ -68,6 +68,7 @@ FORMAT_MODULES = $(MODULESDIR)/Pisg/Parser/Format/axur.pm \
 		 $(MODULESDIR)/Pisg/Parser/Format/virc98.pm \
 		 $(MODULESDIR)/Pisg/Parser/Format/Trillian.pm \
 		 $(MODULESDIR)/Pisg/Parser/Format/Template.pm \
+		 $(MODULESDIR)/Pisg/Parser/Format/RacBot.pm \
 		 $(MODULESDIR)/Pisg/Parser/Format/xchat.pm \
 		 $(MODULESDIR)/Pisg/Parser/Format/winbot.pm \
 		 $(MODULESDIR)/Pisg/Parser/Format/zcbot.pm \

docs/Changelog

@@ -1,6 +1,7 @@
 pisg (x.xx)
    * When ShowMostAtiveByHour was enabled, unitialized values could appear
      which caused the HTML file not to be created. (thanks, Gissehel)
+   * RacBot logfile support added (thanks, Hanno Hecker)
 
 pisg (0.39) - Tue May, 14th 2002
    * ShowFoulLine option added (thanks, Adam Spiers <adam@spiers.net>).

docs/FORMATS

@@ -275,3 +275,13 @@ time"
   Example:
     1013630386748 :nick!ident@hostname PRIVMSG #channel :Hello world.
 
+
+* Eggdrop RacBot
+  - the Eggdrop RacBot is an IRC bot, which dreived from the original eggdrop
+    sources (see http://www.eggheads.org)
+
+  - Homepage: http://www.racbot.org/
+
+  - In order to use this, format must be set to 'RacBot'.
+
+

modules/Pisg/Parser/Format/RacBot.pm

@@ -0,0 +1,104 @@
+package Pisg::Parser::Format::RacBot;
+
+# Documentation for the Pisg::Parser::Format modules is found in Template.pm
+
+use strict;
+$^W = 1;
+
+sub new
+{
+    my ($type, %args) = @_;
+    my $self = {
+        cfg => $args{cfg},
+        normalline => '^\[(\d+):\d+:\d+\]\s+<([^>]+)> (.*)',
+        actionline => '^\[(\d+):\d+:\d+\]\s+\*(\S+)\s+(.*)',
+        thirdline  => '^\[(\d+):(\d+):\d+\]\s+([^-\$!#].*)',
+    };
+
+    bless($self, $type);
+    return $self;
+}
+
+# Parse a normal line - returns a hash with 'hour', 'nick' and 'saying'
+sub normalline
+{
+    my ($self, $line, $lines) = @_;
+    my %hash;
+
+    if ($line =~ /$self->{normalline}/o) {
+
+        $hash{hour}   = $1;
+        $hash{nick}   = $2;
+        $hash{saying} = $3;
+
+        return \%hash;
+    } else {
+        return;
+    }
+}
+
+# Parse an action line - returns a hash with 'hour', 'nick' and 'saying'
+sub actionline
+{
+    my ($self, $line, $lines) = @_;
+    my %hash;
+
+    if ($line =~ /$self->{actionline}/o) {
+
+        $hash{hour}   = $1;
+        $hash{nick}   = $2;
+        $hash{saying} = $3;
+
+        return \%hash;
+    } else {
+        return;
+    }
+}
+
+sub thirdline
+{
+    my ($self, $line, $lines) = @_;
+    my %hash;
+
+    if ($line =~ /$self->{thirdline}/o) {
+
+        $hash{hour} = $1;
+        $hash{min}  = $2;
+        my @line = split /\s+/, $3;
+        if ($#line >= 5 && $line[1].$line[2].$line[3] eq 'hasbeenkicked') {
+            ($hash{kicker} = $line[5]) =~ s/!.*$//;
+            ($hash{nick} = $line[0]) =~ s/!.*$//;
+        } elsif ($line[0].$line[1] eq 'Topicchanged') {
+            if ($line[2] eq 'to') {
+                $hash{newtopic} = join ' ', @line[3 .. ($#line-2)];
+                $hash{newtopic} =~ s/^"//;
+                $hash{newtopic} =~ s/"$//;
+                ($hash{nick} = $line[$#line]) =~ s/!.*$//;
+            } elsif ($line[2] eq 'on') {
+                $hash{newtopic} = join ' ', @line[7 .. $#line];
+                $hash{newtopic} =~ s/^"//;
+                $hash{newtopic} =~ s/"$//;
+                ($hash{nick} = $line[5]) =~ s/!.*$//;
+            } else {
+                return;
+            }
+        } elsif ($#line >= 4 && $line[2].$line[3] eq 'hasjoined') {
+            $hash{newjoin} = $line[0];
+        } elsif ($#line >= 5 && $line[1].$line[2].$line[3].$line[4] eq 'isnowknownas') {
+             $hash{newnick} = $line[5];
+             $hash{nick} = $line[0];
+        } elsif ($line[0].$line[$#line-1] eq 'MODEby') {
+            ($hash{nick} = $line[$#line]) =~ s/!.*$//;
+            $hash{newmode} = $line[1];
+            $hash{newmode} =~ s/^"//;
+        } else {
+            return;
+        }
+        return \%hash;
+
+    } else {
+        return;
+    }
+}
+
+1;