#!/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 =~ s/\+/ /g;
     $value =~ s/\r/\n/g;    
     $value =~ s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
#    $value =~ tr/+/ /;
#    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
     $FORM{$name} = $value;
}
$passwd=$FORM{'password'};
$usr=$FORM{'username'};
$passwd="$passwd:$usr";
$file=$FORM{'savefile'};
$test = 0;
open(F,"passwd");
while(<F>){
	if( $_ =~ /$passwd/ ){
		$test=1;
	}
}
close(F);	
if ($test == 0){
	print "<BODY BGCOLOR=#774455 TEXT=#FFFFFF>";
	print "<BLINK><H2>Password Fail</H2></BLINK>";
	exit (3);
}
#&blank_response unless $FORM{'comments'};
open (LOGFILE, ">$file");
print LOGFILE "<HEAD><TITLE>$FORM{'title'}</TITLE></HEAD>\n";
print LOGFILE "<BODY BGCOLOR=$FORM{'bgcolorValue'} TEXT=$FORM{'textcolorValue'}>\n";
print LOGFILE "<$FORM{'alignHeadImageValue'}>\n";
print LOGFILE "<IMG SRC=\"/$FORM{'username'}/$FORM{'Headimage'}\">\n";
print LOGFILE "</$FORM{'alignHeadImageValue'}>\n";
print LOGFILE "<FONT SIZE=$FORM{'HeadfontValue'}>\n";
print LOGFILE "$FORM{'heading'}\n";
print LOGFILE "</FONT>\n";
print LOGFILE "<HR><BR>";
print LOGFILE "<FONT SIZE=$FORM{'BodyfontValue'}>\n";
print LOGFILE "<$FORM{'alignBodyValue'}>\n";
print LOGFILE "$FORM{'body'}";
print LOGFILE "</$FORM{'alignBodyValue'}>\n";
print LOGFILE "</BODY>";
close(LOGFILE);
#open (LOGFILE, "$dir/$usr/$file");
#open(F, ">temp");
#while(<LOGFILE>){
#        if(/^\r/){
#        }
#        else{
#        print F $_;
#        }
#}
#close(F);
#close(LOGFILE);

#open (LOGFILE, "temp");
#open(F, ">$dir/$usr/$file");
#while(<LOGFILE>){
#        print F $_;
#}
#print F "\r";
###close(F);

#open(F,"$dir/$usr/$file");
#while(<F>){
#        print $_;
#}
#close(F);
print "<HR>";
print "<BR><H4><CENTER>The above is a preview of your page</H4>";
print "<BR>Use the back button on your browser to go back</CENTER>";

sub blank_response
{
    print "Your comments appear to be blank, and thus were not sent ";
    print "to our webmasters.  Please re-enter your comments, or ";
    print "return to our <A HREF=\"/\">home page</A>, if you want.<P>";
    exit;
}
