What's the error msg you see?
Nguyen Vu Hung wrote:
> Hi all,
>
> The following code run without problems under Apache 1.3.29, Perl 5.6.1,
> mod_perl 1.29.
>
> Under the new environment which is Apache 2.0.52, Perl 5.8.8, mod_perl
> 2.0.3 ( Cent OS 4.5 ), it won't run.
>
> I have read through mod_perl2's compat page[1] and rename[2] page, but I
> didn't find any useful information on how to get this code running under
> the new environment.
>
> Please shed me a light!
>
> use LWP::UserAgent;
> use HTTP::Request;
>
> my $user_agent = LWP::UserAgent->new;
> my $ua_request HTTP::Request->request->new($some_request});
> $ua_request->content_type('application/x-www-form-urlencoded');
> $ua_request->content($param);
> my $rreq = $ua_request->content_ref;
> $$rreq =~ s/%2F/\//g;
> $req->header('Content-Length' => length($ua_request->content));
> my $respond = $user_agent->request($ua_request);
>
> unless ($respond->is_success) {
> # $respond failed HERE! why?
> }
>
> [1] http://perl.apache.org/docs/2.0/user/porting/compat.html
> [2] http://perl.apache.org/docs/2.0/rename.html
>
