[Rio-pm] LWP e redir
Lucas Mateus
lucasmateus.oliveira em gmail.com
Terça Março 31 14:31:40 PDT 2009
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
Mais detalhes sobre a lista de discussão Rio-pm