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

my $kanalas = '#perl';
my $irc = new Net::IRC;
my $conn = $irc->newconn(Nick => 'Robomonk',
			Server => 'irc.delfi.lt',
			Port => 6667,
			Ircname => 'blah...');

sub on_connect {
	my $self = shift;
#	print "Joining ";
	$self->join($kanalas);
#	$self->privmsg('#robomonk', 'Hi there');
}
sub on_public {
	my ($self, $event) = @_;
	my @to = $event->to;
	my ($nick, $mynick) = ($event->nick, $self->nick);
	my ($arg) = ($event->args);
#	my ($a, $b);

	if ($arg =~ /^!XP/) {
		my $cont = get('http://www.lietuvoje.lt/wap/perl.php');
		my @heh = split(/\n/, $cont);
		my %hmm = map { /([^:]+): (\d+)/; $1 => $2 } @heh;
		@heh = map {$_ . ': ' . $hmm{$_}} sort { $hmm{$b} <=> $hmm{$a} } keys %hmm;
		for my $a (@heh) {
			$self->privmsg($kanalas, $a);
		}
#		print $cont;
	}
	if ($arg =~ /^!quit/ && ($nick eq 'moxliukas' || $nick eq 'NB' || $nick eq 'mr2')) {
		$self->quit('Einu papostint i perlmonks...');
		exit(0);
	}
}
$conn->add_handler('public', \&on_public);
$conn->add_global_handler('376', \&on_connect);

$irc->start;