Stas Bekman wrote:
> That's not what your server returns, that's a fake page that your
> browser gives to you. You need to test with a command line tool, like
> LWP's GET, lynx, links or whatever is available on your OS.
>
> I remember someone asked that question before. Something about STDOUT
> being detached from $r. You could test with a simple script:
>
> # test.pl
> my $r = shift;
> $r->print("Content-type: text/plain\n\n");
> $r->print("It works");
>
> They recompiled Apache/mod_perl by themselves and it all worked.
>
> I'm not on OSX and don't have personal experience with it, so I'm just
> relaying someone's else words...
>
I modified this to:
#!/usr/bin/perl -w
use strict;
my $r = shift;
$r->print("Content-type: text/html\n\n");
my $html = qq#
<html>
<head>
<title>It works</title>
</head>
<body>
<h1>It works at last!</h1>
</body>
</html>
#;
$r->print($html);
exit(0);
It works but can you explain what value $r receives from 'shift' when no
argument is supplied via @ARGV? Also, I was only intending to use
Apache::Registry to speed-up my CGI scripts but you seem to be using a
handler approach which I'm not familiar with. Does this mean that my
mod_perl is working with handlers but just isn't treating normal CGI properly?
Garry
--
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html
