#  geoip
#
#  Created by Tamara Temple on 2010-05-30.
#  Copyright (c) 2010 Tamara Temple Development. All rights reserved.
#

use Irssi qw(command_bind);
use strict;
use vars qw($VERSION %IRSSI);

$VERSION = "1.0";

%IRSSI = (
    authors     => 'Tamara Temple',
    contact     => 'tamouse@gmail.com',
    name        => 'geoip',
    description => 'get geoip information for a webaddress',
    license     => 'GPLv2',
);


sub cmd_geoip {
	my ($data, $server, $witem) = @_;

	my ($addr,$rest) = split(/ /,$data,2);
	my $gi = `geoiplookup $addr`;
	if (!$witem) {
		Irssi::active_win()->print("GeoIP of $addr: $gi");
	} else {
		$witem->print("GeoIP of $addr: $gi");
	}


}

Irssi::command_bind('geoip', 'cmd_geoip');




Irssi::active_win()->print($IRSSI{name} . ' ' . $VERSION . ' loaded.');