#!/usr/bin/perl5
# status.cgi
# Copyright 2002 - JP Software, Inc. - webmaster@jpsoft.com
##############################################################################
   $date = `date -u`; chop($date);
   $server_URL ="http://$ENV{'SERVER_NAME'}";
   if ($ENV{'HTTP_REFERER'}) {
   if ( $ENV{'HTTP_REFERER'} eq "\[unknown origin\]" ) {
     $return = "$server_URL/"
   } else {
     $return = $ENV{'HTTP_REFERER'};
   }
  $referer = $ENV{'HTTP_REFERER'};
   } else {
     $return = "$server_URL/";
     $referer= "$server_URL$ENV{'DOCUMENT_URI'}" ;
   }
   print "Content-type: text/html\n\n";
   open (FILE, "../jphead.ssi"); print <FILE>; close (FILE);
   open (FILE, "../jpstyle.ssi"); print <FILE>; close (FILE);
   print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"300; URL=$return\">\n";
   print "<META HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\">\n";
   print "<META NAME=\"ROBOTS\" CONTENT=\"NOFOLLOW,NOINDEX,NOARCHIVE\">\n";
   if ($ENV{'HTTP_REFERER'} ) {
     $current = "\<A TARGET=\"JP_Link\" HREF\=\"$ENV{'HTTP_REFERER'}\"\>$ENV{'HTTP_REFERER'}\<\/A>";
   } else {
     $current = $referer;
   }
   if ( $ENV{'HTTP_REFERER'} eq "\[unknown origin\]" ) {
     $return = "$server_URL/"
   }
   print "<TITLE>IP Status - JP Software</TITLE></HEAD>\n";
   open (FILE, "../jptop.ssi"); print <FILE>; close (FILE);
   print "<FONT FACE=\"Helvetica,Arial,Geneva,Swiss,sans-serif\" SIZE=2>\n";
   print "<CENTER><IMG ALT=\"$ENV{'REMOTE_ADDR'} on $ENV{'HTTP_USER_AGENT'}\" SRC=\"http://www.danasoft.com/sig/jpsoft.jpg\"></CENTER>\n";
   if ($ENV{'QUERY_STRING'}) {
     $addr = $ENV{'QUERY_STRING'};
     $host = $ENV{'QUERY_STRING'};
     $return = "$server_URL/";
     print "<CENTER><H1>IP / Name Lookup for \"$addr\"</H1></CENTER>\n";
   } else {
     $addr = $ENV{'REMOTE_ADDR'};
     $host = $ENV{'REMOTE_HOST'};
     print "<CENTER><H1>Your Numeric IP is \"$addr\"</H1></CENTER>\n";
   }
   @fields = split(/\./, $addr);
   if ( "$fields[3]" ne "" ) {
     $ip=($fields[0]*16777216)+($fields[1]*65536)+($fields[2]*256)+$fields[3];
     print "<CENTER><H2>Packed (dword) IP is \"$ip\"</H2></CENTER>\n";
   }
   $x = `nslookup $addr | head -n6`;
   if ($x) {
     $x =~ s/Server:.+//;
     $x =~ s/Address:.+//;
     $x =~ s/\n/\<BR\>/g;
     $x =~ s/\<BR\>\<BR\>\<BR\>//g;
     print "<CENTER><H3><FONT ID=\"lowlight\"><B>$x</B></FONT></B></H3></CENTER>\n";
   }
   if (! $ENV{'QUERY_STRING'}) {
     print "<UL><LI><STRONG>Server ($ENV{'HTTP_HOST'}) uptime</STRONG>:\n";
     $x = `uptime | cut -c 12- | cut -f 1-2 -d,`;
     print "$x</UL>\n";
     print "</CENTER><UL><LI><STRONG>Environment:</STRONG><P><UL>\n";
       foreach $key (sort keys %ENV) {
         if ( $key eq DOCUMENT_ROOT || $key eq PATH || $key eq SCRIPT_FILENAME || $key eq USER ) {
           print $key, " = <FONT ID=\"neon\"><SMALL>(suppressed for security)</SMALL></FONT><BR>\n";
         } else {
           print $key, " = ", $ENV{$key}, "<BR>\n";
         }
       }
     print "</UL></UL>\n";
   }
   $x = `grep -his "$host" /usr/local/etc/httpd/logs/jpsoft/access_log`;
   if ($x) {
     $x =~ s/\n/<BR>\n/g;
     $x =~ s/$host/<FONT ID=\"neon\">$host<\/FONT>/g;
     print "<UL><LI><STRONG>Recent Accesses for $host:</STRONG><P><UL>\n";
     print "$x</UL></UL><P>\n";
   }
   $x = `grep -his "$host" /usr/local/etc/httpd/logs/jpsoft/error_log`;
   if ($x) {
     $x =~ s/\n/<BR>\n/g;
     $x =~ s/$host/<FONT ID=\"neon\">$host<\/FONT>/g;
     print "<UL><LI><STRONG>Recent Errors for $host:</STRONG><P><UL>\n";
     print "$x</UL></UL><P>\n";
   }
   print "<UL><LI><STRONG>Return to <A HREF=\"$return\">$return</A></STRONG></UL>\n";
   print "<UL><LI><STRONG><A HREF=\"../exit.htm\">Exit</A> the Web</STRONG></UL>\n";
   print "<CENTER>";
   print '<TABLE bgcolor="#D2E2FF" CELLSPACING=0 CELLPADDING=2 BORDER=0>';
   print '<TR><TD>';
   print "<SMALL><STRONG>Tip:</STRONG> This script can also be invoked to lookup a host name or a numeric IP (dotted-decimal, dword, or octal):<BR>\n";
   print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$server_URL$ENV{'SCRIPT_NAME'}?jpsoft.net<BR>";
   print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$server_URL$ENV{'SCRIPT_NAME'}?192.220.109.228<BR>";
   print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$server_URL$ENV{'SCRIPT_NAME'}?3235671524<BR>";
   print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$server_URL$ENV{'SCRIPT_NAME'}?0300.0334.0155.0344<BR>";
   print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;etc...<BR>";
   print "<STRONG>All queries are logged.</STRONG> You're on your own for hex, mixed, and other formats!<BR>";
   print "</SMALL></TD></TR></TABLE>";
   print "<SMALL>(Generated by \"$^X $]\" on \"$date\" for \"$ENV{'REMOTE_ADDR'}\".)</SMALL></CENTER>\n";
   open (FILE, "../jpfoot2.ssi"); print <FILE>; close (FILE);