#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<Head><Title>Thank you</Title></Head>";
print "<Body><H1>Thank you </H1>";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);

    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
}
#    Save to std.html
open(F,">/usr/local/etc/httpd/htdocs/devel/std.out");

for($i=0;$i<$FORM{max};$i++)
{
	$put="rate9$i";
	print F "<a href=http://$FORM{$put}/>";
	$put="rate8$i";
	print F "$FORM{$put}@";
	$put="rate1$i";
	print F "$FORM{$put}@";
	$put="rate2$i";
	print F "$FORM{$put}@";
	$put="rate3$i";
	print F "$FORM{$put}@";
	$put="rate4$i";
	print F "$FORM{$put}@";
	$put="rate5$i";
	print F "$FORM{$put}@";
	$put="rate6$i";
	print F "$FORM{$put}@";
	$put="rate7$i";
	print F "$FORM{$put}\n";
}
close(F);
#    Save to std.in
open(F,">/usr/local/etc/httpd/htdocs/devel/stdl.in");
for($i=0;$i<$FORM{max};$i++)
{
	$put="rate9$i";
	print  F "$FORM{$put}@";
	$put="rate8$i";
	print  F "$FORM{$put}@";
	$put="rate1$i";
	print F  "$FORM{$put}@";
	$put="rate2$i";
	print F "$FORM{$put}@";
	$put="rate3$i";
	print F "$FORM{$put}@";
	$put="rate4$i";
	print F "$FORM{$put}@";
	$put="rate5$i";
	print F "$FORM{$put}@";
	$put="rate6$i";
	print F "$FORM{$put}@";
	$put="rate7$i";
	print F "$FORM{$put}\n";
}
close(F);
