hidden1.cgi
#!/usr/bin/perl if ($ENV{'REQUEST_METHOD'} eq 'GET') { @pairs = split(/&/, $ENV{'QUERY_STRING'}); } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); if ($ENV{'QUERY_STRING'}) { @getpairs =split(/&/, $ENV{'QUERY_STRING'}); push(@pairs,@getpairs); } } else { print "Content-type: text/html\n\n"; print "<P>Use Post or Get"; } print "Content-type:text/html\n\n"; print "<HTML><HEAD><title>Using Hidden Fields</title></HEAD><BODY>\n"; print "Thanks, $formdata{'name'}, for entering your personal data. Now you can choose which items you'd like to purchase.\n"; print "<FORM METHOD=POST ACTION=\"hidden2.cgi\">\n"; print "Item <INPUT TYPE=text NAME=item>\n"; foreach $key (keys %formdata) { print "<INPUT TYPE=hidden NAME=$key VALUE=$formdata{$key}>\n"; } print "<INPUT TYPE=submit VALUE=\"Send order\">\n"; print "</FORM></BODY></HTML>\n";