--- trunk/irc-logger.pl 2006/03/01 23:35:56 9 +++ trunk/irc-logger.pl 2006/03/02 00:19:12 10 @@ -18,7 +18,7 @@ ## CONFIG -my $NICK = 'irc-logger-dev'; +my $NICK = 'irc-logger'; my $CONNECT = {Server => 'irc.freenode.net', Nick => $NICK, @@ -115,6 +115,12 @@ $res = "usage: /msg $NICK stat - shows user statistics | /msg $NICK last - show backtrace of conversations"; + } elsif ($msg =~ m/^msg\s+(\S+)\s+(.*)$/i) { + + print ">> /msg $1 $2\n"; + $_[KERNEL]->post( $IRC_ALIAS => privmsg => $1, $2 ); + $res = ''; + } elsif ($msg =~ m/^stat.*?\s*(\d*)/i) { my $nr = $1 || 10; @@ -198,26 +204,43 @@ } }, + irc_477 => sub { + print "# irc_477: ",$_[ARG1], "\n"; + $_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "register $NICK" ); + }, irc_505 => sub { - print "# irc_505: ",$_[ARG1], "\n"; + print "# irc_505: ",$_[ARG1], "\n"; $_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "register $NICK" ); - warn "## register $NICK\n"; +# $_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "set hide email on" ); +# $_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "set email dpavlin\@rot13.org" ); }, irc_registered => sub { + warn "## indetify $NICK\n"; $_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "IDENTIFY $NICK" ); + }, + irc_433 => sub { + print "# irc_433: ",$_[ARG1], "\n"; warn "## indetify $NICK\n"; + $_[KERNEL]->post( $IRC_ALIAS => privmsg => 'nickserv', "IDENTIFY $NICK" ); + }, + irc_372 => sub { + print "MOTD: ", $_[ARG1], "\n"; + }, + irc_snotice => sub { + print "(server notice): ", $_[ARG0], "\n"; }, (map { ;"irc_$_" => sub { }} - qw(join - ctcp_version - connected snotice ctcp_action ping notice mode part quit - 001 002 003 004 005 - 250 251 252 253 254 265 266 - 332 333 353 366 372 375 376 - 477 + qw( )), +# join +# ctcp_version +# connected snotice ctcp_action ping notice mode part quit +# 001 002 003 004 005 +# 250 251 252 253 254 265 266 +# 332 333 353 366 372 375 376 +# 477 _child => sub {}, _default => sub { printf "%s: session %s caught an unhandled %s event.\n",