Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (hermes.apache.org: local policy)
Message-ID: <427F6802.3060201@stason.org>
Date: Mon, 09 May 2005 09:39:14 -0400
From: Stas Bekman <stas@stason.org>
Organization: Hope, Humanized
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.6) Gecko/20050322
MIME-Version: 1.0
To: dan.horne@redbone.co.nz
CC: modperl@perl.apache.org
Subject: Re: Can't retrieve page I just created with LWP under mod_perl
References: <000201c5544e$4f8a8eb0$6403a8c0@rdbxp01>
In-Reply-To: <000201c5544e$4f8a8eb0$6403a8c0@rdbxp01>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit

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.

-- 
__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@stason.org http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com