Complete program code |
#!/usr/bin/perl -w use strict; use CGI; use Socket; # necessary for gethostbyaddr() my $q; sub get_hostname($) { my $ip_dotted = shift; my $xhost=""; my $iaddr; $iaddr = inet_aton($ip_dotted); $xhost = gethostbyaddr($iaddr,AF_INET); if (defined $xhost) { return($xhost); } return("-"); } sub perlmain($) { $q = new CGI; print $q->header("text/html"); print $q->start_html( -title => "Mirror", -bgcolor => "#ffffcc" ); print $q->h2 ("That is your browsers mirror image in the internet"); print $q->p( "remote_addr: " . $q->remote_addr ); my $hostname = get_hostname($q->remote_addr); print $q->p( "remote_host: " . $hostname); print $q->p( "user_agent: " . $q->user_agent ); print $q->end_html; return(0); } my $globex = perlmain(1); exit 0; |