[Rio-pm] LWP e redir

[Andre Luis]

Lucas, valeu pela dica, vou testar, mas eu queria realmente entender
porque no redirecionamento o LWP nao consegue achar a pagina e o lynx
sim :(

abs


2009/3/31 Lucas Mateus <lucasmateus.oliveira em gmail.com>:
> Acho o WWW::Mechanize mais descomplicado. Veja um exemplo:
>
> [CODE]
>
> #! /usr/bin/perl
>
> use warnings;
> use strict;
> use WWW::Mechanize;
>
> my ($m, $xml, $url);
>
> $m = WWW::Mechanize->new(
>                'agent' => 'Mozilla/4.0',
>                'timeout' => 60
>        );
>
> ## XML a ser postado
> $xml = q|<?xml ....>|;
>
> ## Url para post
> $url = 'http://1.2.3.4:60243/target';
>
> eval
> {
>   $m->post($url,
>      'Content_Type' => 'text/xml',
>      'Content'      => [ $xml ]
>   )
> }
> or print 'ERRO NO POST: '.$@;
>
>
> [/CODE]
>
>
> On Tue, 31 Mar 2009 18:16:21 -0300, Andre Luis <alpbs2003 em gmail.com> wrote:
>
>> Entaum,
>> desculpe a falta de clareza.
>>
>> Eu preciso fazer um post de um xml para uma url.
>>
>> quando eu fiz o post retornou erro 404.
>> entaum eu fiz um teste para saber se a url estava correta
>>
>> echo "<?xml ......" | POST http://1.2.3.4:60243/target
>> e isso retornou :
>> <action> OK </action>
>>
>> o que indica q a url nao estava errada.
>>
>>
>> pelo dumper da resposta eu vi que teve um redirecionamento de porta no
>> servidor web apontando para 'client-peer' => '1.2.3.4:60124',
>>
>> dando uma pesquisada eu li q method POST nao eh default no
>> requests_redirectable do LWP, mas mesmo depois de add o method POST
>> nao funcionou
>>
>> Lindolfo:
>>
>> Eu copie errado do script:
>>
>>  push(@{$ua->requests_redirectable}, 'POST');
>>    $request = new HTTP::Request(POST => $url, $header);
>>    $request->content($xml);
>>    $response = $ua->request($request);
>>
>> esse eh o trexo certo
>>
>>
>> 2009/3/31 Daniel de Oliveira Mantovani
>> <daniel.oliveira.mantovani em gmail.com>:
>>>
>>> Escreva de forma exata o que você quer fazer.
>>>
>>> 2009/3/31 Lindolfo "Lorn" Rodrigues <lorn.br em gmail.com>
>>>>
>>>> Você arrumou o POST para ser feito com o LWP::UserAgent e fez ele com o
>>>> HTTP::Request, isto está certo?
>>>>
>>>> 2009/3/31 Andre Luis <alpbs2003 em gmail.com>
>>>>>
>>>>> A respota foi a esperada ... um XML.
>>>>>
>>>>> na requisição pelo script retorna erro 404, como se a url estivesse
>>>>> errada.
>>>>>
>>>>>
>>>>>
>>>>> 2009/3/31 Eden Cardim <edencardim em gmail.com>:
>>>>> > 2009/3/31 Andre Luis <alpbs2003 em gmail.com>:
>>>>> >> eu tentei usar o lynx e funcionou.
>>>>> >
>>>>> > Como assim "funcionou"? O que é "funcionar" pro seu caso?
>>>>> >
>>>>> > --
>>>>> >   Eden Cardim       Need help with your Catalyst or DBIx::Class
>>>>> > project?
>>>>> >  Code Monkey                    http://www.shadowcat.co.uk/catalyst/
>>>>> >  Shadowcat Systems Ltd.  Want a managed development or deployment
>>>>> > platform?
>>>>> > http://edenc.vox.com/            http://www.shadowcat.co.uk/servers/
>>>>> > _______________________________________________
>>>>> > Rio-pm mailing list
>>>>> > Rio-pm em pm.org
>>>>> > http://mail.pm.org/mailman/listinfo/rio-pm
>>>>> >
>>>>> _______________________________________________
>>>>> Rio-pm mailing list
>>>>> Rio-pm em pm.org
>>>>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>>
>>>>
>>>>
>>>> --
>>>> --Lindolfo "Lorn" Rodrigues
>>>> www.slackwarezine.com.br
>>>> http://lornlab.org
>>>> http://sao-paulo.pm.org
>>>> use Catalyst;
>>>>
>>>> _______________________________________________
>>>> Rio-pm mailing list
>>>> Rio-pm em pm.org
>>>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>
>>>
>>>
>>> --
>>> http://mantovanihouse.blogspot.com/
>>> This is my poney:
>>> -------(\_------------_/)-----------
>>> -------)--(----------)--(-----------
>>> ------(----(---------)----)----------
>>> -------)----(-------)----(-----------
>>> -------(----(-------)----)-----------
>>> --------\_-(\\.---.//)-_/------------
>>> ----------\)' -8--8- '(/--------------
>>> -----------/------------\---------------
>>> ----------(--)--------(--)--------------
>>> ------------(_c__c_)----------------
>>> ----------------------------------------
>>>
>>> _______________________________________________
>>> Rio-pm mailing list
>>> Rio-pm em pm.org
>>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>
>> _______________________________________________
>> Rio-pm mailing list
>> Rio-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/rio-pm
>
>
>
> --
> Lucas Mateus
> Núcleo de Páginas Rápidas e SEO
> Fone: 55 11 3065-9978
> MSN: lucasmateus_777 em hotmail.com
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>