#!/usr/bin/perl -I./lib
use strict;
use util_ipv6;
## MAIN --------------------------------------------------------------------
my $url6 = "http://metric6.inetcore.com/46checker/ip6addr.cgi";
my $url4 = "http://metric4.inetcore.com/46checker/ip4addr.cgi";
my $url46 = "http://metric624.inetcore.com/46checker/ip6addr.cgi";
my $url64 = "http://metric624.inetcore.com/46checker/ip4addr.cgi";
my $ipv6 = 0;
$ipv6 = 1 if ($ENV{'REMOTE_ADDR'} =~ /:/);
my $type = checkAddrType($ENV{'REMOTE_ADDR'});
my $mac = 0;
$mac = 1 if ($ENV{'HTTP_USER_AGENT'} =~ /Mac/);
my $id = 0;
my $lang = "e";
my @query_pair = split('&', $ENV{'QUERY_STRING'});
my $pair;
foreach $pair (@query_pair) {
my ($name, $value) = split('=', $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($name eq 'i') {
$id = $value;
} elsif ($name eq 'l') {
$lang = $value;
}
}
print "Content-type: text/html\n";
print "\n";
printHtmlHead();
if ($id == 0) {
printInitData();
} else {
my $str = sprintf ("?i=%d", $id);
$url6 .= $str;
$url4 .= $str;
$url46 .= $str;
$url64 .= $str;
printUpdateData();
}
printHtmlTail();
exit 0;
# --------------------------------------------------------------------------
sub printHtmlHead {
print << "END";
IPv4/IPv6 checker
END
}
# --------------------------------------------------------------------------
sub printHtmlTail {
print << "END";
END
}
# --------------------------------------------------------------------------
sub printFormData($) {
my $id = shift;
print "\n";
}
# --------------------------------------------------------------------------
sub printInitData {
my $id = int(rand(100000000));
printFormData($id);
print "";
print "XXX.XXX.XXX.XXX
\n";
print "";
print "XXXX:XXXX:XXXX:XXXX:XXXX:XXXX:XXXX:XXXX
\n";
}
# --------------------------------------------------------------------------
sub printUpdateData {
my $id = int(rand(100000000));
printFormData($id);
my $str_iframe = "", $str_iframe, $url4);
} else {
$str_ip4 = sprintf ("%s src=\"%s\">", $str_iframe, $url64);
}
$str_ip6 = sprintf ("%s src=\"%s\">", $str_iframe, $url6);
printf ("%s
\n", $str_ip4);
printf ("%s
\n", $str_ip6);
print "♦
\n";
} else {
$str_ip4 = sprintf ("%s src=\"%s\">", $str_iframe, $url4);
$str_ip6 = sprintf ("%s src=\"%s\">", $str_iframe, $url46);
printf ("%s
\n", $str_ip4);
printf ("%s
\n", $str_ip6);
print "♦
\n";
}
}