[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