#! /usr/local/bin/perl
# CGI script that demonstrates how to store data
# from a form in a local text file.

# file where the data will be stored
$OUTFILE="/tmp/sample.txt";

# where to send the user after processing the output
$FINALURL="http://www.abiglime.com/webmaster/";

# process POST input
if ($ENV{'CONTENT_LENGTH'} > 0) {
    # read POST data from STDIN
    read STDIN, $temp, $ENV{'CONTENT_LENGTH'};
    # add in GET data
    $temp.="&".$ENV{'QUERY_STRING'} if length $ENV{'QUERY_STRING'};
} else {
    # read only the GET data
    $temp=$ENV{'QUERY_STRING'};
}
# check the command line for offline debugging:
$temp=join("&", @ARGV, $temp) if ($#ARGV > -1);

# open the file
unless (open FILE, ">>$OUTFILE") {
    # error message 
    print "Content-type: text/plain\n\nCannot open $OUTFILE: $!\n";
} else {
    print FILE "-------------".(scalar localtime)."-------------\n";
    print FILE "    User agent: $ENV{'HTTP_USER_AGENT'}\n";
    print FILE "Remote address: $ENV{'REMOTE_ADDR'}\n";

    # split each keyword
    foreach ( split( /&/, $temp ) ) {
	# separate the key and value
	( $key, $val ) = split( /=/, $_, 2 );

	# translate + to spaces
	$key=~s/\+/ /g;
	$val=~s/\+/ /g;

	# translate %xx codes to characters
	$key=~s/%([0-9a-f]{2})/pack("c",hex($1))/gie;
	$val=~s/%([0-9a-f]{2})/pack("c",hex($1))/gie;

	# write the key and value
	print FILE "$key = $val\n";
    }
    close FILE;

    # redirect browser to new URL
    print "Location: $FINALURL\n\n";
}
exit 0;