http://www.perlmonks.org?node_id=935523

rhumbliner has asked for the wisdom of the Perl Monks concerning the following question:

thank you for taking my call ...

i'm using CGI::Simple for a web app running under mod_perl and i've noticed a strange behavior. the following code runs as expected outside of mod_perl: 

use CGI::Simple;
my $q = new CGI::Simple;
my $qh = $q->Vars;
...
print $q->header(-charset=>'utf8', -expires=>'+10m');
warn $q->header(-charset=>'utf8', -expires=>'+10m');

[download]

where i see the proper header at the client and in apache's error log

but running under mod_perl this code places an empty string in the error log and repeats the expiration date in the header presented to the client! furthermore, if i simply call $q->header() without the print, the header is set properly. i never have to even print the header! 

$q->header(-charset=>'utf8', -expires=>'+10m');

[download]

i assume this issue has something to do with PerlSendHeader. i've read thru the documentation for porting cgi applications to mod_perl and i'm fairly sure my code is clean. can someone explain to me what's happening here?

Replies are listed 'Best First'.
Re: CGI::Simple and mod_perl
by Anonymous Monk on Nov 03, 2011 at 03:35 UTC

    i assume this issue has something to do with PerlSendHeader

    Nope. 

    sub header {
...
  if ( $self->{'.mod_perl'} and not $nph ) {
    my $r = $self->_mod_perl_request();
    $r->send_cgi_header( $header );
    return '';
  }
  return $header;
}

    [download]

    In short, mod_perl is not CGI

[reply]
[d/l]

      well i admit that response went right over my head, but i'm reading up on Apache2::Response to see if i can make any sense of it.

[reply]
        Why? sub CGI::Simple::header doesn't return a header under mod_perl, because mod_perl is not http://tools.ietf.org/html/rfc3875(CGI), so printing the header to STDOUT, is the wrong thing to do
[reply]
Re: CGI::Simple and mod_perl
by Anonymous Monk on Nov 03, 2011 at 02:05 UTC
[reply]

      yup

      "i've read thru the documentation for porting cgi applications to mod_perl..."

      but nothing jumped out at me

[reply]

Back to Seekers of Perl Wisdom