| #!/usr/bin/perl |
| # Simple script to generate a POST result. |
| # |
| # Depending on which button was pushed in the form, we either generate a direct |
| # result page, or we use the pattern where the post returns a 303 redirect, |
| # and then the resulting GET yields the true POST result. Sites do this trick |
| # to avoid having POSTS in the b/f list, so you don't run into POSTs getting |
| # resubmitted by accident. |
| |
| use CGI; |
| $query = new CGI; |
| $method = $query->request_method(); |
| |
| if ($method eq "POST") { |
| |
| print "Content-type: text/html\r\n"; |
| print "\r\n"; |
| |
| print <<HERE_DOC_END |
| <html> |
| Test failure: reloadresult.pl was called with an unexpected method ($method). |
| </body> |
| </html> |
| HERE_DOC_END |
| |
| } elsif ($method eq "GET") { |
| |
| print "Content-type: text/html\r\n"; |
| print "\r\n"; |
| |
| print <<HERE_DOC_END |
| <html> |
| <body> |
| PASS |
| </body> |
| </html> |
| HERE_DOC_END |
| |
| } |
