, , - . ,
. , mail.ru, rambler.ru.
1. . ( , ) .
2. .
. ,
3. perl , . perl:
PHP:
#!/usr/bin/perl -w
# -
$LogFile="log.txt";
# -
$mlength=500;
#
print "Location: image.gif\n\n";
# CGI
$input = $ENV{'QUERY_STRING'} if $ENV{'QUERY_STRING'};
$input =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# HTTP_REFERER
$now_string = localtime;
$ref = $ENV{'HTTP_REFERER'};
# -
open (LOG,"$LogFile") || die "Can't Open $LogFile: $!\n";
@LOGtext=<log>;
close (LOG);
#
open (LOG, ">$LogFile");
#
print LOG "[$now_string] IP=$ENV{'REMOTE_ADDR'} REFERER=$ref QUERY=$input\n";
# , - mlength
$counter=1;
foreach $LOGitem (@LOGtext)
{if ($counter<$mlength){ print LOG "$LOGitem"; };
$counter++;};
#
close (LOG);
exit;
font>
