#!/usr/bin/perl
use Fcntl;

print "Content-type:text/html\n\n";
print "hello world";

if ($ENV{'REQUEST_METHOD'} eq "GET") {

	$request = $ENV{'QUERY_STRING'};

} elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
	read(STDIN, $request,$ENV{'CONTENT_LENGTH'}) 
		|| die "Could not get query\n";

} 

@parameter_list = split(/&/,$request); 
foreach (@parameter_list) {                            # split each variable=value pair
    ($name, $value) = split(/=/);
    $name =~ s/\+/ /g;                                 # replace "+" with  spaces
    $name =~ s/%([0-9A-F][0-9A-F])/pack("c",hex($1))/ge;
                                                       # replace %nn with characters
    $value =~ s/\+/ /g;                                # repeat for the value ...
    $name =~ s/%([0-9A-F][0-9A-F])/pack("c",hex($1))/ge;
    if (!(defined $passed{$name})) {
        $passed{$name} = $value;
    } else {
        $passed{$name} .= ":$value";
    }
}


 
#print "$request";
#print "$passed{'username'}";
#print "<br/>$passed{'Submit'}";

print "<br/>";
print "<input type=submit name=Back value=Back onClick='Javascipt:history.back(0);'/>";
$file = ".forward";
#$file = "/home/$passed{'username'}/>.forward";
#$file = "c:/$passed{'username'}/.forward";
print "<br/>$file";
if($passed{'Submit'} eq "Submit"){
	if($passed{'mforward'} eq "on"){
		print "<br/>turn mail forward on";
		sysopen (FWD, $file, O_RDWR|O_EXCL|O_CREAT, 0644);
		if($passed{'rcopy'} eq "Yes"){
			printf FWD "\\$passed{'username'}\n";
		}
		print FWD "$passed{'faddress'}";
		close (FWD);

		print "<br/>Mail Forwarding ON mail for: ";
		print "$passed{'username'} forward to $passed{'faddress'} <br/>";
		print "$passed{'rcopy'} Copy Retained!";
	
	} else{
		print "<br/>turn mail forward off<br/>";
		if (unlink($file) == 0) {
			print "Forward Removed";
		} else {
			print "ERROR Forward NOT REMOVED";
		}	
	}
} else { 
	

}