UDPHP

#!/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;