[Rio-pm] LWP e redir

Andre Luis alpbs2003 em gmail.com
Terça Março 31 12:05:58 PDT 2009


Ola monges,
mais uma vez recorro a ajuda de vcs.



estou fazendo o seguinte:

$ua = LWP::UserAgent->new;
$xml = <<XML;
qq ... xml
XML

 my $header = HTTP::Headers->new('Content-Type' => 'text/xml');
 push(@{$ua->requests_redirectable}, 'POST');
 $request = new HTTP::Request(POST => $url, $header);
 $request->content($xml);


eu printei o dump da resposta desse post e eh a seguinte

$VAR1 = bless( {
                 '_protocol' => 'HTTP/1.1',
                 '_content' => '',
                 '_rc' => '404',
                 '_headers' => bless( {
                                        'client-date' => 'Tue, 31 Mar
2009 18:38:04 GMT',
                                        'content-type' => 'text/plain',
                                        'connection' => 'Close',
                                        'client-response-num' => 1,
                                        'date' => 'Tue, 31 Mar 2009
18:38:01 GMT',
                                        'client-peer' => '1.2.3.4:60124',
                                        'server' => 'HTTPServer/3.0'
                                      }, 'HTTP::Headers' ),
                 '_msg' => 'OK',
                 '_request' => bless( {
                                        '_content' => '<?xml
version="1.0" encoding="ISO-8859-1"?>
something
',
                                        '_uri' => bless( do{\(my $o =
'http://1.2.3.4:60243/target')}, 'URI::http' ),
                                        '_headers' => bless( {

'user-agent' => 'libwww-perl/',

'content-type' => 'text/xml'
                                                             },
'HTTP::Headers' ),
                                        '_method' => 'POST'
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );

eu tentei usar o lynx e funcionou.

eu coloquei um debug tb assim
print "OK" if ($ua->redirect_ok($request, $response) ) ;
e a funcao redirect_ok esta retornando TRUE o que indica que foi redirecionado

mas pq o post pelo lynx funciona e pela script perl nao :( ?

alguem me da uma luz ?

abs
André


Mais detalhes sobre a lista de discussão Rio-pm