[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