#!/usr/bin/perl -w

use strict;
use IO::Socket::INET;

# CONFIG OPTIONS:
my $irc_server="irc.spnet.net";
my $server_port=6667;
my $nick="weby_";
my $chanel="weby";

my $s=IO::Socket::INET->new(
	PeerAddr=>$irc_server,
	PeerPort=>$server_port, 
	Timeout=>1);

($s)?(print "connected to server $irc_server:$server_port\n"):(print "connection error $!\n\n" and exit);


print "sending nickname [$nick] to server [",$irc_server,':',$server_port,"]...\n";
$s->print("user $nick B C D\n");
$s->print("nick $nick\n");

print "join to chanel : $chanel\n";
$s->print("JOIN #$chanel\n");
$s->print("PRIVMSG #",$chanel," :Official Kumcho Vulcho WebPage is: http://www.vulcho.com/\n");

die "connetction sucks \n\n" unless $s;

while (<$s>) {
	# :weby!weby@r00t.bastun.net PRIVMSG weby_NA :hei
	chomp;
	$s->print("PONG :$1") && print STDERR "pong $1...\n" if /^PING :(.*?)/;
	
	if(/^\:(.*?)\!(.*?) PRIVMSG $nick :(.*?)$/i) {
		print "$1 : $3\n";
		next;
	}
	elsif(/^\:(.*?)\!(.*?) PRIVMSG \#$chanel :(.*?)$/i){
		print "$1 : $3\n";
		next;
	}
	else{
		print $_;
	}
}


print "leaving IRC...";
($s->close)?(print "OK\n"):(print "ERROR-$!\n");