#!/usr/bin/perl -w
use Net::IRC;

$kanal = '#r2';
$admin = 'qbbr1';
$password = 'qwe123';


$irc = new Net::IRC;

$conn = $irc->newconn(Nick=>'qbbr_bot',Server=>'irc.antichat.net',Port=>7771);

$conn->add_global_handler('376', \&on_connect);
$conn->add_global_handler('disconnect', \&on_disconnect);
$conn->add_global_handler('kick', \&on_kick);
$conn->add_handler('msg', \&on_msg);
$conn->add_handler('public', \&on_public);

$irc->start;

sub on_connect {
	$self = shift;
	$self->privmsg('nickserv', "identify $password");
	$self->join($kanal);
	$self->privmsg($kanal, "HIHO ALL xD");
}

sub on_disconnect {
	$self = shift;
	$self->connect();
}

sub on_kick {
	$self = shift;
	$self->join($kanal);
	$self->privmsg($kanal, "SLIW...nah kick?");
}

sub on_msg {
	$self = shift;
	$self->privmsg($admin, "private msg");
}

sub on_public {
	$self = shift;
	$self->privmsg($kanal, "Im bot");
}