google is there, I forgot to add it to the post, I've added it now.

seen is really a good idea, but i'm not free these days to think of how to implement it.

-- Mohammed Sameer
Katoob Main developer
PekSysTray - GtkFlame

Sleepless boring night, everyone left to hurghada, and #eglug silent. Wanted to learn something new, I picked up something at random, PERL. Yuck.

Anyway. I dove into Uniball's perl bot (http://www.eglug.org/bot), our beloved na6oosh. after a night of cursing and head scratching, and lots of googling, I got !seen support working.

--- 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);
 $conn->add_global_handler(251,252,253,254,302,255, \&on_init);
$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) = @_;
+ my $body = ($event->args)[0];
+ my $nick = ($event->nick)[0];
+
+ 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;