src/third_party/WebKit/LayoutTests/http/tests/plugins/resources/dump-post.pl

   1 #!/usr/bin/perl -wT
   2
   3 use CGI;
   4
   5 my $cgi = new CGI;
   6
   7 # Just dump whatever was POSTed to us as text/plain.
   8
   9 print $cgi->header('text/plain');
  10
  11 # Different versions of the CGI module use different conventions for accessing
  12 # the POST data. Because at least one of them will be empty, there is no harm
  13 # in printing both.
  14 print $cgi->param('POSTDATA');
  15 print $cgi->param('keywords');