Sophie: multitail-5.2.6-1.fc14 x86

multitail-5.2.6-1.fc14.x86_64.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse

#!/usr/bin/perl

use Geo::IP;

my $gi = Geo::IP->new(GEOIP_STANDARD);

$| = 1;

while(<>)
{
	chomp($_);

	$country = $gi->country_code_by_addr($_);

	if ($country eq '')
	{
		$country = '?';
	}

	print "$_ ($country)\n";
}