test/support/dump-request.cgi

#!/usr/bin/perl
use strict;

sub escape ($) {
  my $s = shift;
  $s =~ s/([^\x20-\x5B\x5D-\x7E])/sprintf '\x%02X', ord $1/ge;
  return $s;
} # escape

print "Content-Type: text/plain; charset=us-ascii\n\n";

print "Request-Method: {", escape ($ENV{REQUEST_METHOD}), "}\n\n";

print "Request-URI: {", escape ($ENV{REQUEST_URI}), "}\n\n";

print "HTTP header fields:\n";
for (sort {$a cmp $b} ('CONTENT_TYPE', grep /^HTTP_/, keys %ENV)) {
  print "{", escape ($_), "}: {", escape ($ENV{$_}), "}\n";
}
print "\n";

print "Request-body:\n";
if (defined $ENV{CONTENT_LENGTH}) {
  my $size = $ENV{CONTENT_LENGTH};
  $size = 10 * 1024 if $size > 10 * 1024;
  read STDIN, my $bytes, $size;
  $bytes = escape ($bytes);
  $bytes =~ s/\\x0A/\\x0A\n/g;
  print "[", $bytes, ($size == 10 * 1024 ? "..." : "}"), "\n";
}
print "\n";
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3
4			sub escape ($) {
5			my $s = shift;
6			$s =~ s/([^\x20-\x5B\x5D-\x7E])/sprintf '\x%02X', ord $1/ge;
7			return $s;
8			} # escape
9
10			print "Content-Type: text/plain; charset=us-ascii\n\n";
11
12			print "Request-Method: {", escape ($ENV{REQUEST_METHOD}), "}\n\n";
13
14			print "Request-URI: {", escape ($ENV{REQUEST_URI}), "}\n\n";
15
16			print "HTTP header fields:\n";
17			for (sort {$a cmp $b} ('CONTENT_TYPE', grep /^HTTP_/, keys %ENV)) {
18			print "{", escape ($_), "}: {", escape ($ENV{$_}), "}\n";
19			}
20			print "\n";
21
22			print "Request-body:\n";
23			if (defined $ENV{CONTENT_LENGTH}) {
24			my $size = $ENV{CONTENT_LENGTH};
25			$size = 10 * 1024 if $size > 10 * 1024;
26			read STDIN, my $bytes, $size;
27			$bytes = escape ($bytes);
28			$bytes =~ s/\\x0A/\\x0A\n/g;
29			print "[", $bytes, ($size == 10 * 1024 ? "..." : "}"), "\n";
30			}
31			print "\n";