My post_it.cgi:
Expand|Select|Wrap|Line Numbers
- #!C:/perl/bin/perl.exe
- print "Content-type:text/html\n\n";
- @values = split(/&/,$ENV{'QUERY_STRING'});
- foreach $i(@values) {
- ($varname, $mydata)=split(/=/,$i);
- print "$varname = $mydata\n";
- }
- print "<html><head><title>FORM OUTPUT</title></head><body>";
- print "<h2>Results from FORM post</h2>\n";
- foreach $key (keys(%FORM)) {
- print "$key = $FORM{$key}<br>";
- }
- print "</body></html>";
[HTML]<html><head><title>Post.html</title></head>
<body>
<form action="/cgi-bin/post_it.cgi" method="GET">
<pre>
Your Name: <input type="text" name="name">
</pre>
<input type="submit" value="Send">
</form>
</body>
</html>[/HTML]