git.maemo.org Git - pkg-perl/blob - deb-src/libwww-perl/libwww-perl-5.813/t/net/cgi-bin/test

   1 #!/usr/local/bin/perl
   2
   3 $| = 1;
   4 print "Content-type: text/plain
   5
   6 ";
   7
   8 if (@ARGV) {
   9     print "ARGS: ";
  10     print join(", ", map { $_ = qq{"$_"} } @ARGV);
  11     print "\n\n";
  12 } else {
  13     print "No command line arguments passed to script\n\n";
  14 }
  15
  16 while (($key,$val) = each %ENV) {
  17    print "$key=$val\n";
  18 }
  19
  20 if ($ENV{CONTENT_LENGTH}) {
  21     $len = $ENV{CONTENT_LENGTH};
  22     while ($len) {
  23         $n = sysread(STDIN, $content, $len, length $content);
  24         last unless defined $n;
  25         $len -= $n;
  26     }
  27     print "\nContent\n-------\n$content";
  28 }