1#!/usr/bin/perl -w 2 3print "Content-type: text/html\n\n"; 4 5if ($ENV{'REQUEST_METHOD'} eq "POST") { 6 read(STDIN, $request, $ENV{'CONTENT_LENGTH'}) 7 || die "Could not get query\n"; 8 print "<pre>$request</pre>"; 9 print "<script>if (window.layoutTestController) layoutTestController.notifyDone();</script>"; 10} else { 11 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; 12} 13