third_party/WebKit/LayoutTests/http/tests/xmlhttprequest/methods.cgi

   1 #!/usr/bin/perl -wT
   2
   3 print "Content-type: text/plain\n";
   4 print "Content-Length: 0\n";
   5 my $cl = $ENV{'CONTENT_LENGTH'};
   6 my $ct = $ENV{'CONTENT_TYPE'};
   7 my $method = $ENV{'REQUEST_METHOD'};
   8 if (defined $cl) {
   9     print "REQLENGTH: $cl\n";
  10 }
  11 if (defined $ct) {
  12     print "REQTYPE: $ct\n";
  13 }
  14 print "REQMETHOD: $method\n";
  15
  16 print "\n";