#!/usr/local/bin/perl -w
# irc.pl
# A simple IRC robot.
# Usage: perl irc.pl

use strict;
use IO::Socket;

# De server naarwaar we verbinden en onze gegevens.
my $server = "irc.travian.org";
my $nick = "Guard";
my $login = "Guard";
my $channel = "#trofobot";
my $sock = new IO::Socket::INET(PeerAddr => $server,PeerPort => 6667,Proto => 'tcp') or die "Can't connect\n";

print $sock "USER $login 0 $server Guard IRC Bot\r\n";
print $sock "NICK $nick\r\n";
print $sock "NS IDENTIFY fifa34\r\n";
print $sock "JOIN #trofobot\r\n";


while (my $input = <$sock>) {
    chop $input;
    if ($input =~ /^PING(.*)$/i) {
        print $sock "PONG $1\r\n";    
    }
    else {
        print "$input\n";
    }
	
	if ($input =~ /:!quit/i) {
		print $sock "QUIT Guard IRC Bot\r\n";
	}
	if ($input =~ /:!op /i) {
		print $sock "MODE #trofobot +o \r\n";
	}
	if ($input =~ /:!op/i) {
		print $sock "MODE $2 +o \r\n";
	}
}