1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
package TestCompat::request_body;
# $r->"method" tests that are validated by the client
use strict;
use warnings FATAL => 'all';
use Apache::TestUtil;
use Apache::Test ();
use Apache2::compat ();
use Apache::Constants qw(OK M_POST DECLINED);
use subs qw(ok debug);
my $gr;
sub handler {
my $r = shift;
$gr = $r;
$r->send_http_header('text/plain');
my $cfg = Apache::Test::config();
my $vars = $cfg->{vars};
my %data;
if ($r->method_number == M_POST) {
%data = $r->content;
}
else {
%data = $r->Apache::args;
}
return DECLINED unless exists $data{test};
if ($data{test} eq 'content' || $data{test} eq 'args') {
$r->print("test $data{test}");
}
elsif ($data{test} eq 'decoding') {
$r->print(encode($data{body}));
}
elsif ($data{test} eq 'big_input') {
$r->print(length $data{body});
}
else {
# nothing
}
OK;
}
sub encode {
my $val = shift;
$val =~ s/(.)/sprintf "%%%02X", ord $1/eg;
$val =~ s/\%20/+/g;
return $val;
}
1;
__END__
PerlOptions +GlobalRequest
|
