Sleepless boring night, everyone left to hurghada, and #eglug silent. Wanted to learn something new, I picked up something at random, PERL. Yuck.
--- bot-0.0.2-orig.pl 2005-04-28 08:27:45.000000000 +0200 +++ bot-0.0.2-seen.pl 2005-04-28 08:40:59.000000000 +0200 @@ -53,6 +53,7 @@ $conn->add_global_handler('376', \&on_connect); $conn->add_handler('public', \&on_public); $conn->add_handler('msg', \&on_msg); +$conn->add_handler('notice', \&on_notice); $irc->start; @@ -85,6 +86,12 @@ &return_back("$nick: Don't talk about my mother."); return; } +if (/^!seen/) +{ + &seen($arg); + return; +} + $arg =~ /^$mynick:/i || return; $arg = substr($arg, length($mynick)+1); @@ -217,6 +224,30 @@ print "*** @args\n"; } +sub on_notice { + my ($self, $event) = @_; + + if ($nick eq 'SeenServ'){ + &return_back("$body\n"); + #print "*** NOTICE: ($nick)($body)\n"; + } + return; +} + +sub seen { + my $arg = shift; + #print "*** arg = $arg\n"; + $arg =~ s/!seen //s; + #print "*** arg = $arg\n"; + + $conn->privmsg("SeenServ", "SEEN $arg"); + + return; +} + + sub google {
- &return_back("B0rked.");
- return;
