| OLD | NEW |
| 1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -wT |
| 2 | 2 |
| 3 print "Content-type: text/html\n\n"; | 3 print "Content-type: text/html\n\n"; |
| 4 | 4 |
| 5 print "<p>Test for <a href='https://bugs.webkit.org/show_bug.cgi?id=32140'>bug 3
2140</a>: Mailman administrative functionality is broken.</p>"; | 5 print "<p>Test for <a href='https://bugs.webkit.org/show_bug.cgi?id=32140'>bug 3
2140</a>: Mailman administrative functionality is broken.</p>"; |
| 6 print "<pre>"; | 6 print "<pre>"; |
| 7 | 7 |
| 8 if ($ENV{'REQUEST_METHOD'} eq "POST") { | 8 if ($ENV{'REQUEST_METHOD'} eq "POST") { |
| 9 read(STDIN, $request, $ENV{'CONTENT_LENGTH'}) | 9 read(STDIN, $request, $ENV{'CONTENT_LENGTH'}) |
| 10 || die "Could not get query\n"; | 10 || die "Could not get query\n"; |
| 11 print $request; | 11 print $request; |
| 12 } else { | 12 } else { |
| 13 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; | 13 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; |
| 14 } | 14 } |
| 15 | 15 |
| 16 print "</pre><script>\n"; | 16 print "</pre><script>\n"; |
| 17 print "var pre = document.getElementsByTagName('pre')[0];\n"; | 17 print "var pre = document.getElementsByTagName('pre')[0];\n"; |
| 18 print "if (pre.textContent.match('abc%40def'))\n"; | 18 print "if (pre.textContent.match('abc%40def'))\n"; |
| 19 print " document.write('PASS')\n"; | 19 print " document.write('PASS')\n"; |
| 20 print "else\n"; | 20 print "else\n"; |
| 21 print " document.write('FAIL')\n"; | 21 print " document.write('FAIL')\n"; |
| 22 print "if (window.testRunner) {\n"; | 22 print "if (window.testRunner) {\n"; |
| 23 print " pre.setAttribute('style', 'display:none');\n"; | 23 print " pre.setAttribute('style', 'display:none');\n"; |
| 24 print " testRunner.notifyDone();\n"; | 24 print " testRunner.notifyDone();\n"; |
| 25 print "}\n"; | 25 print "}\n"; |
| 26 print "</script>\n"; | 26 print "</script>\n"; |
| OLD | NEW |