#!/usr/local/bin/perl
$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$buffer);
foreach $pair (@pairs){
($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
$in{$name} = $value;
}
$browser = $in{'browser'};
$referrer = $in{'referrer'};
$compname = $in{'compname'};
$host=$ENV{'REMOTE_HOST'};
$addr=$ENV{'REMOTE_ADDR'};
if ($host eq '') { $host = $addr; }
if ($host eq $addr){ $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr;}
($sec,$min,$hour,$day,$mon,$year) = localtime(time);
$mon++;
$year=$year+1900;
print "Content-type: text/html\n\n";
print "<body>\n";
print "remote host: $host\n";
print "remote addr: $addr\n";
print "refferer: $referrer\n";
print " </body>\n";
$mailto = '@'; #自分のメールアドレス
open(MAIL,"| /usr/sbin/sendmail -t");