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	#!/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";