Of course, get rid of nph! You tell CGI.pm that you want non-parsed
headers - so you should send them yourself! Why did you put it there?
These 2 are close equivalents:
> print $q->header(-type=>'text/html'); # Line 1
> print "Content-Type: text/html\n\n"; # Line 2
There are not!
> print $q->header(-type=>'text/html', -nph=>1); # Line 1
> print "Content-Type: text/html\n\n"; # Line 2
> Howdy all.
>
> I see that this sort of question has been asked a few times in the resources
> listed around, but I'm finding myself with a slightly different incarnation
> of the 'my headers aren't working right' problem.
>
> Basically I can't use the CGI modules header() function, and I don't know why
> not. I do a print "content-type: text/html\n\n" with PerlSendHeader both On
> or Off and my perl script (simple hello world) works dandy. But doing a
> print header() results in the content type in the headers being sent as an
> "application/x-perl" and netscape prompting me to save the .pl file.
>
> Now from what I understood from the faq, mailing list archives and so on,
> this shouldn't happen. I should be able to take a perl .cgi and move it over
> to mod_perl with minimul problems. Now other parts of the CGI module
> (param(), dump(), etc) work fine.
>
> Here's the skinny:
> My hello.pl (in /var/www/perl/)
> -----------------------
> #!/usr/bin/perl -w
>
> use strict;
> use CGI;
>
> my $q = new CGI;
>
> #print $q->header(-type=>'text/html', -nph=>1); # Line 1
> print "Content-Type: text/html\n\n"; # Line 2
>
> print "Hello World<P>";
> -----------------------
>
> My httpd.conf perl section
> -----------------------
> <FilesMatch ".pl$">
> SetHandler perl-script
> PerlHandler Apache::Registry
> PerlSendHeader Off
> Options ExecCGI
> </FilesMatch>
> -----------------------
>
> So if I comment out line 2 in the .pl file and and uncomment line 1, I get
> promted to save a application/x-perl (which matches the pl pm line in my
> mime.types file incidently, but I'm not sure that has anything to do with
> this).
>
> The result of a lynx -mime_header WITHOUT using $q->header():
> -------------------------
> fishbowl:/var/www/perl# lynx -mime_header http://localhost
> HTTP/1.1 200 OK
> Date: Sat, 08 Jan 2000 09:56:10 GMT
> Server: mod_perl/1.16 Apache/1.3.3 (Unix) Debian/GNU PHP/3.0.5 mod_perl/1.16
> Connection: close
> Content-Type: text/html
>
> Hello World<P>
> fishbowl:/var/www/perl#
> -------------------------
>
> .. and with $q->header()
> -------------------------
> fishbowl:/var/www/perl# lynx -mime_header http://localhost/perl/hello.pl
> HTTP/1.1 200 OK
> Date: Sat, 08 Jan 2000 09:58:00 GMT
> Server: mod_perl/1.16 Apache/1.3.3 (Unix) Debian/GNU PHP/3.0.5 mod_perl/1.16
> Connection: close
> Content-Type: application/x-perl
>
> Content-type: text/html
>
> Hello World<P>
> fishbowl:/var/www/perl#
> -------------------------
>
> I've scoured the net, faqs, and archives all night to no avail. I hope
> someone here can help me with a better answer than 'just print out the
> content-type yourself' :)
>
> My system is a debian box running a stable distro with apache 1.3.3 and
> mod_perl 1.16.
>
> Thanks a million.
> --
> Alan -=|=- <[EMAIL PROTECTED]> -=|=- http://arcterex.ufies.org
> If you sell diamonds, you cannot expect to have many customers.
> But a diamond is a diamond even if there are no customers.
> -- Swami Prabhupada
>
>
_______________________________________________________________________
Stas Bekman mailto:[EMAIL PROTECTED] http://www.stason.org/stas
Perl,CGI,Apache,Linux,Web,Java,PC http://www.stason.org/stas/TULARC
perl.apache.org modperl.sourcegarden.org perlmonth.com perl.org
single o-> + single o-+ = singlesheaven http://www.singlesheaven.com
