From f51ed5b2fc0bd8728d611d18b93c7306e735fc68 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <kane.root@gmail.com>
Date: Fri, 24 Aug 2012 04:24:35 +0200
Subject: [PATCH] bot improved

---
 perl/irc_bot.pl | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/perl/irc_bot.pl b/perl/irc_bot.pl
index 5335a05..d28acb9 100755
--- a/perl/irc_bot.pl
+++ b/perl/irc_bot.pl
@@ -6,6 +6,8 @@ use AnyEvent::IRC::Client;
 
 my $c = AnyEvent->condvar;
 my $cl = AnyEvent::IRC::Client->new;
+my $timer;
+
 $cl->reg_cb (connect => sub {
 		my ($con, $err) = @_;
 		if (defined $err) {
@@ -13,8 +15,31 @@ $cl->reg_cb (connect => sub {
 			return;
 		}
 	});
+
+$cl->reg_cb (registered => sub { say "I'm in!"; });
+$cl->reg_cb (disconnect => sub { say "I'm out!";  $c->broadcast });
+
+$cl->reg_cb (
+	sent => sub {
+		my ($con) = @_;
+
+		if ($_[2] eq 'PRIVMSG') {
+			print "Sent message!\n";
+
+			$timer = AnyEvent->timer (
+				after => 1,
+				cb => sub {
+					undef $timer;
+					say "on est dans cb";
+					$con->disconnect ('done')
+				}
+			);
+		}
+	}
+);
+
 $cl->connect ('irc.geeknode.org', 6667, { nick => '[bot]kanette' });
-$cl->send_srv ( PRIVMSG => 'karchnu', 'Hi there!');
+$cl->send_srv ( PRIVMSG => 'karchnu', 'Bot enabled : woot');
 $c->wait;
 
 $cl->disconnect;