| Server IP : 202.155.9.38 / Your IP : 216.73.216.124 Web Server : LiteSpeed System : Linux srv733443859 5.15.0-179-generic #189-Ubuntu SMP Tue May 5 18:20:56 UTC 2026 x86_64 User : rabbi4843 ( 1044) PHP Version : 8.1.34 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /lib/geoip/ |
Upload File : |
#!/usr/bin/perl
use warnings;
use strict;
# Script from Boris Zentner (Maxmind)
# This script converts the IPv4 csv database to the same
# format as the IPv6 database.
sub _x {
sprintf("%02x%02x:%02x%02x", split(/\./, $_[0]));
}
while(<STDIN>){
chomp;
my($f, $t, $tail) = split /,/, $_, 3;
for($t, $f){
s/^"//;
s/"$//;
}
my $xxxxf = _x($f);
my $xxxxt = _x($t);
print <<__OUT__;
"::$f", "::$t", $tail
"::ffff:$f", "::ffff:$t", $tail
"2002:${xxxxf}::", "2002:${xxxxt}:ffff:ffff:ffff:ffff:ffff", $tail
__OUT__
}
exit(0);