#! /usr/local/bin/perl
$count_file = "./count";
$targetfile = "log";
$jump=".";
sleep(3);
if (open(FILE,"<$count_file")) {
$access = <FILE>;
close(FILE);
}
open(FILE,"<$targetfile");
while(<FILE>){
chop;
($a,$b,$c)=split(":::",$_);
}
close(FILE);

$ad=$ENV{'REMOTE_ADDR'};
$ad=~ s/[^0-9\.]//gs;
$b=~ s/[^0-9\.]//gs;
$jump1=$jump."/picture.cgi?mode=res_msg&resno=$access";
$jump2=$jump."/picture.cgi";
if($ad eq $b)
{
print "Location: $jump1\n\n";
}
else 
{
print "Location: $jump2\n\n";
}