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
|
# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
package TestApache::send_cgi_header;
use strict;
use warnings FATAL => 'all';
use Apache2::Response ();
use Apache2::Const -compile => qw(OK);
sub handler {
my $r = shift;
# at the same time test the \0 binary at the beginning of the data
my $response = <<EOF;
Content-type: text/plain
X-Foo: X-Bar
Set-Cookie: Bad Programmer, No cookie!
\000\000This not the end of the world\000\000
EOF
# bah, we can send the header and the response here
# don't tell anybody
$r->send_cgi_header($response);
Apache2::Const::OK;
}
1;
__END__
# this should work regardless whether parse headers is on or off
PerlOptions -ParseHeaders
|
