Hi,
Even with optRedirectStdout set, I'm still seeing HTTP headers in my Embperl
doc.
The apache config
-----------------
### Perl
PerlRequire /usr/local/etc/apache/startup.pl
PerlFreshRestart On
PerlSetupEnv Off
PerlWarn On
PerlTaintCheck On
<FilesMatch "\.htm$">
SetHandler perl-script
PerlSetEnv EMBPERL_OPTIONS 16400
PerlSetEnv EMBPERL_ESCMODE 0
PerlHandler HTML::Embperl
</FilesMatch>
The embperl file
----------------
<html>
<head>
<title>Stuff</title>
</head>
<body>
<p>
[+ $ENV{EMBPERL_OPTIONS} +]
<br>
[- Axis::printHeader -]
<p>
<b>Some Docs</b>
<snip>
The function from my own module
-------------------------------
sub printHeader
{
print qq(
<table border=0 cellspacing=0 cellpadding=0 bgcolor=e8d35e><tr>
<td><a href=/>Home</a></td><td>:</td>
<td><a href=/section1>Section 1</a></td><td>:</td>
<td><a href=/section2>Section 2</a></td><td>:</td>
<td><a href=/section3>Section 3</a></td>
</tr></table>
);
}
But I get this output (netscape source)
---------------------------------------
<table border=0 cellspacing=0 cellpadding=0 bgcolor=e8d35e><tr>
<td><a href=/>Home</a></td><td>:</td>
<td><a href=/section1>Section 1</a></td><td>:</td>
<td><a href=/section2>Section 2</a></td><td>:</td>
<td><a href=/section3>Section 3</a></td>
</tr></table>
HTTP/1.1 200 OK
Date: Sat, 30 Oct 1999 17:20:08 GMT
Server: Apache/1.3.9 (Unix) mod_perl/1.21 mod_ssl/2.4.2 OpenSSL/0.9.4
Content-Length: 5254
Keep-Alive: timeout=15, max=100
Connection: Keep-Alive
Content-Type: text/html
<html>
<head>
<title>Stuff</title>
</head>
<body>
<p>
16400 <br>
<p>
<b>Some Docs</b>
Embperl options is set to 16400, which includes optRedirectStdout, no? What
did I not do?
r.
