hello, i use a simple log script on my site.. very basic..
i would like to modify it, and am having issues..
here is what i would like...
i would like to be able to have it filter out certian HOST names.. but not exact.. say for instance, i dont want it logging yahoo slurp.. the host name changes, but always ends in yahoo.com
so, i would like to filter out djfdk.388338.djdk.yahoo.com
and i would like to be able to add more than one, a list of filtered hosts, not IP's, that will not be logged..
so, i would like to change the $me var, to host, but not exact host, just domain (like i stated earlier) and then to create a list, by coma.
thanks a bunch
pj
here is the script:
#!/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;