perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "jk jk" <jk.lists.questi...@gmail.com>
Subject Re: Problem with RequestRec and Headers
Date Sat, 22 Sep 2007 01:59:11 GMT
I should have also noted that I'm using ModPerl2, Apache2, It's running
under Registry, and keep-alive if off. Thanks again. --JAK

On 9/21/07, jk jk <jk.lists.questions@gmail.com> wrote:
>
> I'm trying to port a preexisting CGI app to mod_perl2 and could use some
> help.
>
> Here goes a test case that should illustrate my problem:
>
> The code pasted below loads the page properly the first time it's
> accessed.  However, upon multiple reloads in firefox, the headers either
> disappear altogether or the page is downloaded in the download manager.  I
> assume this is because the wrong $r object is being accessed by the
> request?  In any case, I'm at a loss and would really appreciate some
> input.  Thanks in advance.
>
> ---------------------------
> ---------------------------
> File: tester.cgi
> =============
> #!/usr/bin/perl
>
>
> use strict;
> use lib qw(.....);
>
> use testme::testmod;
>
> my $r = shift;
>
> my $object = testme::testmod->instance($r);
> $object->printme();
> 1;
>
>
> =============
> File: testme/testmod.pm
> =============
>
> package testme::testmod;
>
> use Apache2::RequestUtil;
> use strict;
>
> use base qw /Class::Singleton/;
>
> sub printme{
>
>     my ( $self, $args ) = @_;
>
>     my $r = Apache2::RequestUtil->request;
>
>     $self->{r}->content_type('text/html');
>
>     print "A Page of Rendered HTML\n";
> }
>
> sub _new_instance{
>
>     my ( $class, $r ) = @_;
>
>     my $self = {};
>
>     bless $self, $class;
>
>     $self->{r} = $r;
>
>     return ( $self );
>
> }
>
> 1;
>
>
>
>

Mime
View raw message