--Apple-Mail-2-806561879
Content-Type: text/plain;
charset=US-ASCII;
format=flowed;
delsp=yes
Content-Transfer-Encoding: 7bit

Hi,

I can't seem to find a resource that helps me with this problem.
Dropping in mod_perl2 seems to change the status code of a simple CGI
script:

use CGI;
use CGI::Carp qw(fatalsToBrowser); # show fatal error messages
in browser
my $query = new CGI;
my $status = "400 Bad Request";
print $query->header( -type => 'text/plain', -status => $status );
print "TESTING 400 BAD REQUEST";
exit;

Under plain CGI, this returns a response:

TESTING 400 BAD REQUEST

and a check of the response gives back 400.

However, under mod_perl2, I get back this

TESTING 400 BAD REQUEST EN">

200 OK

OK


Your browser sent a request that this server could not
understand.




Apache/2.2.8 (Unix) DAV/2 mod_perl/2.0.3 Perl/v5.8.8 Server
at localhost Port 8080




The html message is from a 400 document, but the title (and response
status) are 200 OK (not to mention their shouldn't be a html message
for plain text). No amount of fiddling with options or googling has
had any yield.

Any help would be appreciated.

Michael Yoder
yoder@mystrands.com

Additional Info:
This is a fresh install of darwinports, and via darwinports
perl,apache2,mod_perl2 on a OSX 10.5 Leopard macbook pro.

Server configuration:
NameVirtualHost *

ServerAdmin mod_perl@localhost
ServerSignature On
DocumentRoot /opt/local/apache2/cgi-bin
LogLevel warn
ErrorLog /opt/local/apache2/logs/error_log
CustomLog /opt/local/apache2/logs/access_log combined

PerlOptions +ParseHeaders
PerlTaintCheck On
PerlWarn On
PerlConfigRequire /opt/local/apache2/cgi-bin/rec/
mod_perl_startup.pl

# ModPerl::Registry mode (just change URL to run in different mode)
Alias /perl-bin/ /opt/local/apache2/cgi-bin/
# ModPerl::PerlRun mode (just change URL to run in different mode)
Alias /perlrun-bin/ /opt/local/apache2/cgi-bin/

# perl stays in memory, scripts loaded at startup as well

Options +ExecCGI
PerlOptions +ParseHeaders
SetHandler perl-script
PerlHandler ModPerl::Registry
Order allow,deny
Allow from all


# perl stays in memory, scripts loaded each time

Options +ExecCGI
PerlOptions +ParseHeaders
SetHandler perl-script
PerlHandler ModPerl::PerlRun
Order allow,deny
Allow from all



Startup Script:
use lib "/opt/local/apache2/cgi-bin/rec";
use Log::Log4perl ();
use ModPerl::Registry ();
1;






--Apple-Mail-2-806561879
Content-Type: text/html;
charset=US-ASCII
Content-Transfer-Encoding: quoted-printable

-webkit-line-break: after-white-space; ">Hi,

class=3D"webkit-block-placeholder">
I can't seem to find a =
resource that helps me with this problem. Dropping in mod_perl2 seems to =
change the status code of a simple CGI script:

class=3D"webkit-block-placeholder">
margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font: normal =
normal normal 11px/normal Monaco; color: rgb(160, 32, 240); =
">    use CGI style=3D"color: #b22200">;
margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font: normal =
normal normal 11px/normal Monaco; color: rgb(178, 0, 34); "> style=3D"color: #a020f0">    use style=3D"color: #000000">CGI::Carp #a020f0">qw(fatalsToBrowser); =
 
# show fatal error messages in browser

margin-left: 0px; font: normal normal normal 11px/normal Monaco; color: =
rgb(178, 34, 0); ">    my =
$ #a000f0">query =3D style=3D"color: #a020f0">new #000000">CGI;
0px; margin-bottom: 0px; margin-left: 0px; font: normal normal normal =
11px/normal Monaco; color: rgb(0, 0, 255); "> #b22200">    my =
$ #a000f0">status style=3D"color: #b22200">=3D "400 Bad Request" #b22200">;
0px; margin-bottom: 0px; margin-left: 0px; font: normal normal normal =
11px/normal Monaco; color: rgb(178, 0, 34); "> class=3D"Apple-style-span" style=3D"color: rgb(0, 0, 0); ">   =
 print $ #a000f0">query #b22200">->header( -type =
=3D> #0000ff">'text/plain', =
-s
tatus =3D> $ style=3D"color: #a000f0">status #b22200">);
margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font: normal =
normal normal 11px/normal Monaco; color: rgb(0, 0, 255); "> style=3D"color: #b22200">     #a000f0">print "TESTING 400 BAD REQUEST" #b22200">;
margin-bottom: 0px; margin-left: 0px; font: normal normal normal =
11px/normal Monaco; color: rgb(178, 34, 0); ">     style=3D"color: #a020f0">exit;

  
Under plain CGI, this returns a =
response:

class=3D"webkit-block-placeholder">
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;"> class=3D"Apple-style-span" color=3D"#030303">   =
 
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;"> color=3D"#030303">TESTING 400 BAD =
REQUEST

and a check of the =
response gives back 400.

class=3D"webkit-block-placeholder">
However, under =
mod_perl2, I get back this

class=3D"webkit-block-placeholder">
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">TESTING 400 BAD =
REQUEST<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML =
2.0//EN">
margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font: normal =
normal normal 12px/normal Helvetica; "> face=3D"'Courier New'"><html><head>
style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; font: normal normal normal 12px/normal Helvetica; =
"> New'"><title>200 OK</title>
style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; font: normal normal normal 12px/normal Helvetica; =
"> New'"></head><body>
0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font: =
normal normal normal 12px/normal Helvetica; "> class=3D"Apple-style-span" face=3D"'Courier =
New'"><h1>OK</h1>
margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font: normal =
normal normal 12px/normal Helvetica; "> face=3D"'Courier New'"><p>Your browser sent a request that this =
server could not understand.<br />
style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; font: normal normal normal 12px/normal Helvetica; =
"> New'"></p>
margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font: normal =
normal normal 12px/normal Helvetica; "> face=3D"'Courier New'"><hr>
0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font: =
normal normal normal 12px/normal Helvetica; "> class=3D"Apple-style-span" face=3D"'Courier =
New'"><address>Apache/2.2.8 (Unix) DAV/2 mod_perl/2.0.3 =
Perl/v5.8.8 Server at localhost Port =
8080</address>
margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font: normal =
normal normal 12px/normal Helvetica; "> face=3D"'Courier New'"></body></html>



The html message is from a 400 =
document, but the title (and response status) are 200 OK (not to mention =
their shouldn't be a html message for plain text). No amount of fiddling =
with options or googling has had any yield. 

class=3D"webkit-block-placeholder">
Any help would be =
appreciated.

class=3D"webkit-block-placeholder">
Michael Yoder

class=3D"webkit-block-placeholder">
Additional =
Info:
This is a fresh install of darwinports, and via =
darwinports perl,apache2,mod_perl2 on a OSX 10.5 Leopard macbook =
pro.

Server configuration:
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">NameVirtualHost =
*
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;"><VirtualHost =
*>
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">    ServerAdmin =
mod_perl@localhost
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">   =
 ServerSignature On
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">   =
 DocumentRoot =
/opt/local/apache2/cgi-bin
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">   =
 LogLevel warn
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">   =
 ErrorLog =
/opt/local/apache2/logs/error_log
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">   =
 CustomLog /opt/local/apache2/logs/access_log =
combined
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">
class=3D"webkit-block-placeholder">
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">   =
 PerlOptions +ParseHeaders
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">   =
 PerlTaintCheck On 
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">   =
 PerlWarn On
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">    PerlConfigRequire =
/opt/local/apache2/cgi-bin/rec/mod_perl_startup.pl

>
class=3D"Apple-style-span" style=3D"font-size: 12px;">
class=3D"webkit-block-placeholder">
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">   =
 # ModPerl::Registry mode (just change URL to run in different =
mode)
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">    Alias /perl-bin/ =
/opt/local/apache2/cgi-bin/
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">   =
 # ModPerl::PerlRun mode (just change URL to run in different =
mode)
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">    Alias /perlrun-bin/ =
/opt/local/apache2/cgi-bin/
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">
class=3D"webkit-block-placeholder">
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">   =
 # perl stays in memory, scripts loaded at startup as =
well
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">    <Location =
/perl-bin/>
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">        Options =
+ExecCGI
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">        PerlOptions =
+ParseHeaders
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">        SetHandler =
perl-script
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">        PerlHandler =
ModPerl::Registry
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">        Order =
allow,deny
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">        Allow from =
all
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">   =
 </Location>
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">
class=3D"webkit-block-placeholder">
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">   =
 # perl stays in memory, scripts loaded each =
time
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">    <Location =
/perlrun-bin/>
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">        Options =
+ExecCGI
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">        PerlOptions =
+ParseHeaders
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">        SetHandler =
perl-script
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">        PerlHandler =
ModPerl::PerlRun
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">        Order =
allow,deny
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">        Allow from =
all
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">   =
 </Location>
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: =
12px;"></VirtualHost>

class=3D"webkit-block-placeholder">
Startup =
Script:
New'" size=3D"3"> 12px;">use lib =
"/opt/local/apache2/cgi-bin/rec";
class=3D"Apple-style-span" face=3D"'Courier New'" size=3D"3"> class=3D"Apple-style-span" style=3D"font-size: 12px;">use Log::Log4perl =
();
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: 12px;">use ModPerl::Registry =
();
face=3D"'Courier New'" size=3D"3"> style=3D"font-size: =
12px;">1;


class=3D"webkit-block-placeholder">

class=3D"webkit-block-placeholder">

class=3D"webkit-block-placeholder">

class=3D"webkit-block-placeholder">