#!/usr/local/bin/perl -w
# アドレス データkey共有秘密鍵
# .cgi?データkey共有秘密鍵
$log = "log.txt";
print "Content-type: text/plain\n\n";
open(DATA,"$log") || die $!;
while(<DATA>)
{
chomp;
next unless(/ /);
($q,$p) = ($`,$');
next unless( $p =~ /key/ );
($k,$v) = ($`,$');
$tmp = $q . ' ' . $k . 'key' . $v . "\n";
if( $ENV{QUERY_STRING} =~ /key/ && $' eq $v )
{
print $tmp;
}
$data .= $tmp;
}
close(DATA);
if( $ENV{QUERY_STRING} ) {
open(DATA,">>$log") || die $!;
print DATA "$data" . "$ENV{REMOTE_ADDR} $ENV{QUERY_STRING}\n";
close(DATA);
}
END;