15c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)#!/usr/bin/perl -w 25c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 35c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)print "Content-type: text/html\n\n"; 45c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 55c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)if ($ENV{'REQUEST_METHOD'} eq "POST") { 65c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) read(STDIN, $request, $ENV{'CONTENT_LENGTH'}) 75c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) || die "Could not get query\n"; 85c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) print "<pre>$request</pre>"; 95c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) print "<script>if (window.testRunner) testRunner.notifyDone();</script>"; 105c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)} else { 115c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; 125c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)} 13