#!/usr/bin/perl
 
$me = "38.117.78.220";  
$log = "/home/to/my/log.html";
 
#############################
 
if (!$ENV{'REMOTE_HOST'}) {my @subnet_numbers = split (/\./, $ENV{'REMOTE_ADDR'});
$ENV{'REMOTE_HOST'} = gethostbyaddr(pack("C4", @subnet_numbers), 2) || $ENV{'REMOTE_ADDR'};
	}
 
$ippjrey = $ENV{'REMOTE_ADDR'};
$hostpjrey = $ENV{'REMOTE_HOST'};
$privatepjrey = $ENV{'HTTP_X_FORWARDED_FOR'};
 
$getdate = `date +"%A %B %d, %Y, %r"`; 
chop ($getdate);
 
 
if ($ENV{'REMOTE_ADDR'} eq $me) {
   open (LOG, "$log");
   @lines = <LOG>;
   close (LOG);
   print "Content-type: text/html\n\n";
   open (LOG, ">$log");
   print LOG @lines;
   close (LOG);  
 
 
 
}
 
else {
 
   open (LOG, "$log");
   @lines = <LOG>;
   close (LOG);
   print "Content-type: text/html\n\n";
   open (LOG, ">$log");
    print LOG " [ <font size=-2 face=Verdana, Arial><B>Time:</B> $getdate ] </font>- \n";
    print LOG " [ <font size=-2 face=Verdana, Arial><B>With:</B> $ENV{'HTTP_USER_AGENT'} ]<BR></font>\n";
    print LOG " [ <font size=-2 face=Verdana, Arial color=red><B>Host: $ippjrey/$hostpjrey || [ $privatepjrey ] </B>]</font>\n";
    print LOG " [ <font size=-2 face=Verdana><B>From:</B> <font color=blue><A HREF=$ENV{'HTTP_REFERER'}>$ENV{'HTTP_REFERER'}</font></A></font>]<BR>\n";
    print LOG " [ <font size=-2 face=Verdana><B>Pages:</B> $here $ENV{'DOCUMENT_URI'} ]<BR><BR></font>\n\n";
   print LOG @lines;
 
   close (LOG);  
 
 
 
}
exit;