> Your proposal works.
which one did work for you:
PerlSendHeader On or $r->send_http_header?
>
> Then, how to solve "the problem with "\n\n" ? To be compatible It should
> also work.
>
>
> This example would work only if you have PerlSendHeader set to 'On'
> in the
> config file. Is it On? May be this is not a problem "\r\n", if this
> is
> your case
>
> Generally "\n\n" is enough for most (all?) of the widely used
> browsers
> (clients), but to be complient with HTTP RFCs one has to use
> "\r\n\r\n".
>
> what do you get when you replace this mod_cgi'ish header sending
> with
> true mod_perl'ish:
>
> my $r = shift;
> $r->content_type('text/html');
> $r->send_http_header;
>
> or simpler:
>
> my $r = shift;
> $r->send_http_header('text/html');
>
> Does it work?
>
> >
> > #!/usr/local/bin/perl -w
> > use strict;
> >
> > print "Content-type: text/html\r\n\r\n";
> >
> > my $counter = 0;
> >
> > for (1..5) {
> > increment_counter();
> > }
> >
> > sub increment_counter{
> > $counter++;
> > print "Counter is equal to ..... $counter !<BR>\n";
> > }
> >
> > The result that I have is:
> >
> > HTTP/1.1 200 OK
> > Date: Mon, 15 Nov 1999 09:36:57 GMT
> > Server: Apache/1.3.9 (BS2000) mod_perl/1.21 ApacheJServ/1.0
> > Connection: close
> > Content-Type: text/plain
> >
> > Counter is equal to ..... 1 !<BR>
> > Counter is equal to ..... 2 !<BR>
> > Counter is equal to ..... 3 !<BR>
> > Counter is equal to ..... 4 !<BR>
> > Counter is equal to ..... 5 !<BR>
> > Connection closed by foreign host.
> >
> > The content-type is text/plain instead text/html, mod_perl loses
> this header
> > probably due to EBCDIC conversion of the "\n" character. Trying
> with
> > print "Content-type: text/html\r\n";
> > or with
> > print "Content-type: text/html\r\r\n";
> > the content-type is text/html, as it should be.
> >
> > I looked the sources of mod_perl for some part where the mod_perl
> is
> > preparing the headers from the output of perl5 and to pass them to
> the
> > apache. I don't understand who is doing that. Can someone help me
> to find
> > where the content-type header is lost.
> >
> > -- Ignasi Roca
> >
>
>
>
>
> _______________________________________________________________________
> Stas Bekman mailto:[EMAIL PROTECTED]
> www.singlesheaven.com/stas
> Perl,CGI,Apache,Linux,Web,Java,PC at
> www.singlesheaven.com/stas/TULARC
> www.apache.org & www.perl.com == www.modperl.com ||
> perl.apache.org
> single o-> + single o-+ = singlesheaven
> http://www.singlesheaven.com
>
_______________________________________________________________________
Stas Bekman mailto:[EMAIL PROTECTED] www.singlesheaven.com/stas
Perl,CGI,Apache,Linux,Web,Java,PC at www.singlesheaven.com/stas/TULARC
www.apache.org & www.perl.com == www.modperl.com || perl.apache.org
single o-> + single o-+ = singlesheaven http://www.singlesheaven.com