#!/usr/bin/perl

use strict;
use Net::IRC;

my $irc = new Net::IRC;

my $conn = $irc->newconn(Server   => ($ARGV[0]  ||  'irc.nerim.net'),
                         Port     => 6667,
                         Nick     => 'hou',
                         Ircname  => 'hou',
                         Username => 'hou')
    or die "irctest: Can't connect to IRC server.\n";

# handlers

sub on_connect {
        my $self = shift;
        
        print "Joining #ensea...\n";
        $self->join("#ensea");
}

sub on_msg {
    my ($self, $event) = @_;

    my $ev = join(',',$event->args);

    if($ev =~ /bing/i) {
        print "hou!\n";
        $self->privmsg("#ensea", "hou !");
    }

    if($ev =~ /hou/i) {
        print "bing!\n";
        $self->privmsg("#ensea", "bing !");
    }

}

$conn->add_global_handler(376, \&on_connect);
$conn->add_global_handler('public', \&on_msg);

print " done.\n";

print "starting...\n";
$irc->start;