RE: Can't retrieve page I just created with LWP under mod_perl

[prev] [thread] [next] [Date index for 2005/05/09]

> -----Original Message-----
> From: Stas Bekman [mailto:stas@xxxxxx.xxx]
> Sent: Tuesday, 10 May 2005 1:39 a.m.
> To: dan.horne@xxxxxxx.xx.xx
> Cc: modperl@xxxx.xxxxxx.xxx
> Subject: Re: Can't retrieve page I just created with LWP under mod_perl
> 
> Dan Horne wrote:
> > I've written a small CGI::Application CMS that publishes content to flat
> > files via. The file-type can be any that the designers decide, but
> generally
> > it will be something that supports includes such as SSI or PHP. This is
> fine
> > most of the time but occasionally I need to produce dynamic pages - e.g.
> a
> > search result.
> >
> > To do this, I generate the search result php/shtml page to the file
> system,
> > and then request it from the web server using LWP:
> >
> >     my $file = $self->get_value('cms_document_root') . "/" . $page;
> >     $self->logger->debug("Creating $file");
> >
> >     # write the results to the temporary file
> >     open(FH, ">$file") || die "Cannot create $file";
> >     print FH $template->output();
> >     close FH || die "Cannot close $file";
> >     $self->logger->debug("Created $file");
> >
> >     # request the temporary file
> >     my $request_page = "http://"; . $ENV{SERVER_NAME} .
> >         $self->get_value('cms_publish_url') . "/$page";
> >     $self->logger->debug("request_page: $request_page");
> >     my $agent        = LWP::UserAgent->new;
> >     my $request      = HTTP::Request->new(GET => $request_page);
> >
> > This works fine under standard CGI, but the LWP request times out under
> > mod_perl. The temporary page name is random, so I know that it's not a
> file
> > conflict.
> >
> > Have I missed something? I'm using Apache 1.3.31 and mod_perl 1.29 on
> > Windows XP, but whatever I do has to also work under vanilla CGI.
> 
> Not sure if there is something specific under win32, but mod_perl differs
> from mod_cgi since:
> 
> 1) it is running under the same username the server runs with
> 2) the environment persists
> 
> In the script above, you don't use LWP, you create an agent, but you don't
> use it. I can't see where the actual request is.
> 
Sorry - the request is on the next line - missed it when I pasted the code:

my $response = $agent->request($request);

Assuming caveats one and two above, can anyone see anything obviously wrong?
The temp file gets created - I can see it on the file system. I'm guessing
it's due to the Win32 envronment.

Dan