Initial commit.

multitail/convert-geoip.pl

@@ -0,0 +1,21 @@
+#!/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";
+}

multitail/convert-simple.pl

@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+# disable I/O buffering (this is essential)
+$| = 1;
+
+while(<>)
+{
+	# add 'bla' in front of the string
+	print "bla".$_;
+}