#!/usr/bin/perl -w # Web page reporting the requester's IP address. # Copyright (c) 2014 by James F. Carter # To the URL append a query string of "?debug" to get debug info. use CGI; use DateTime; use Net::DNS; use Socket qw(inet_pton AF_INET AF_INET6); our $opt_D = ($ENV{QUERY_STRING} // '') eq 'debug'; # Print the HTML header, HTTP head area, and page title. print < What Is My IP Address
Valid HTML 4.01 Transitional

What Is My IP Address

This program reports the IP address from which a web request came. If the requester is using Network Address Translation (NAT), the translated or wild-side address will be reported.

EOH chomp(my $HOSTNAME = $ENV{HOSTNAME} // qx(uname -n)); my $peer = CGI::remote_addr(); # For a HTTPS connection from Surya, (try to) retrieve the real client. # (CGI has remote_addr() but not remote_port()) my ($proxy, $proxyhn); # Filled in with proxy IP and name if detected. PROXY: { my $srvp = ($ENV{SERVER_PORT} // '0'); print "
DEBUG Server port = $srvp peer = $peer\n" if $opt_D; my %proxyadr = qw( 192.9.200.185 1 2600:3c01:e000:306::8:1 1 192.9.200.193 1 2600:3c01:e000:306::c1 1 ); last unless $srvp eq '443' && $proxyadr{$peer}; my $remp = ($ENV{REMOTE_PORT} // '0'); $rema6 = (index($peer, ':') >= 0) ? "[$peer]" : $peer; my $url = "http://$rema6:80/proxysrc.cgi?$peer:$remp"; $url .= ';debug' if $opt_D; my $realpeer = qx(curl $url 2> /dev/null); printf "
DEBUG rmport = %d url = '%s' realpeer = '%s'\n", $remp, $url, ($realpeer // '(undef)') if $opt_D; last if !defined($realpeer) || $realpeer eq ''; $realpeer =~ s/:\d+$//; # Remove port (last colon separated unit) $realpeer =~ s/^.*\]//; # Remove [address family] leaving IP $proxy = $peer; $peer = $realpeer; } my $svrq = CGI::server_name(); # This is the host the client requested my $selfip = $ENV{SERVER_ADDR} // ''; my($fam, $famint) = (index($peer,':') >= 0) ? ('IPv6', AF_INET6) : ('IPv4', AF_INET); my $selfhn; # Hostname corresp. to the requested server IP if ($selfip ne '') { my $famint = (index($selfip,':') >= 0) ? AF_INET6 : AF_INET; $selfhn = gethostbyaddr(inet_pton($famint, $selfip), $famint) // 'name unknown'; } else { $selfip = 'IP not available'; $selfhn = $HOSTNAME; } $selfhn = "req. $svrq, actual $selfhn" if $svrq ne $selfhn; my $dns = Net::DNS::Resolver->new(); my ($peerhn) = rr($dns, $peer); $peerhn = ($peerhn && $peerhn->can('ptrdname')) ? $peerhn->ptrdname() : 'name unknown'; my $peeraf = (index($peer,':') >= 0) ? 'IPv6' : 'IPv4'; if (defined($proxy)) { ($proxyhn) = rr($dns, $proxy); $proxyhn = ($proxyhn && $proxyhn->can('ptrdname')) ? $proxyhn->ptrdname() : 'name unknown'; } my $dt = DateTime->now()->set_time_zone('local'); my $now = $dt->format_cldr('yyyy-MM-dd HH:mm:ss ZZZZ'); my $utc = $dt->set_time_zone('UTC')->format_cldr('yyyy-MM-dd HH:mm:ss zzz'); printf "
Address Family %s\n", $fam; print "
Your IP Address $peer ($peerhn)\n"; print "
Proxy From $proxy ($proxyhn)\n" if defined($proxy); print "
Server's IP Address $selfip ($selfhn)\n"; print "
Time on Server $now = $utc\n"; print <

An outside site with a more extensive test of your IPv6 connectivity:

EOF