X-Git-Url: http://git.annexia.org/?p=xavierbot.git;a=blobdiff_plain;f=xavierbot.pl;fp=xavierbot.pl;h=d1c63f5ee31d11def6dca8e87fefd1ff9765f9e5;hp=393c0eb86437c85aa3d4044c683f828700e659c5;hb=3cd6e84fb16187e3d85775397d35f5c432064e63;hpb=2b6a98ffb4f27938326bfae6eb1521e2d7d22d58 diff --git a/xavierbot.pl b/xavierbot.pl index 393c0eb..d1c63f5 100755 --- a/xavierbot.pl +++ b/xavierbot.pl @@ -2,7 +2,7 @@ # xavierbot : an OCaml interpreter IRC bot. # By Richard W.M. Jones . # This code is in the Public Domain. -# $Id: xavierbot.pl,v 1.12 2008/01/23 15:44:46 rjones Exp $ +# $Id: xavierbot.pl,v 1.13 2008/02/13 17:35:32 rjones Exp $ use strict; use POE qw(Component::IRC Wheel::Run); @@ -108,7 +108,7 @@ sub irc_public if ($what =~ /^\s*xavierbot\b.*\bhelp\b/) { my $nick = (split /!/, $who)[0]; $kernel->post ($sender => privmsg => $channel => - "hello $nick, I am xavierbot 0.7, an OCaml toplevel"); + "hello $nick, I am xavierbot 0.8, an OCaml toplevel"); $kernel->post ($sender => privmsg => $channel => $_) foreach (@usage); }