#!/usr/bin/perl

print "Content-type: text/html\n\n";
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/cerr.out");

for($i=0;$i<$FORM{max};$i++)
{

	#$put="rateq$i";
	#print F "$FORM{$put}";
	$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}";

	if($i==($FORM{'loop'})){
		print F "\n";
	}
}
close(F);
#    Save to std.in
open(F,">/usr/local/etc/httpd/htdocs/devel/cerr.in");
for($i=0;$i<$FORM{max};$i++)
{

	#$put="rateq$i";
	#print  F "$FORM{$put}@";
	$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}";
	if($i==($FORM{'loop'})){
		print F "\n";
	}
}
close(F);
print "<Head><Title>Thank you</Title></Head>";
print "<Body><H1>Thank you </H1>";
print "<Body><H1>Saved </H1>";
print "<Body><H1><a href=superadmin>Back to Admin</H1></a>";
print $FORM{$loop};
