Ola monges,
Estou desenvolvendo um scriptzinho teste que se der tudo certo transformo em
modulo e faço o upload para o CPAN.
O script trabalha com calculo de frete, semelhante ao WWW::Correios::PrecoPrazo
do Garu.
A diferença é que ele calcula o frete com o desconto oferecido pelo PagSeguro
para Envio Fácil (e-sedex) quando o pagamento é efetuado via PagSeguro.
Estou usando o WWW::Mechanize, mas algo da errado. Quando preencho os fields e
submito retorna o seguinte erro:'Error GETing
https://pagseguro.uol.com.br/para_seu_negocio/howItWorksCalculator.jhtml?originCep=74491626&destinyCep=36072130&width=30&height=6&length=40&weight=0.300:
Not Found at C:\Users\Aureliano\Desktop\CEP\CEP.pl line 29.'
Mas não sei exato qual o problema, mas parece que ta tentando puxar essa uri,
ou sei la o que ta acontecendo.
Alguem tem alguma ideia?
link do script completo: http://pastebin.com/Cg7XWBgB
Rotina onde acredito estar o problema:sub envio_facil{ my ($o, $d, $c, $a, $l)
= @_; my $url = WWW::Mechanize->new();
$url->get('http://www.pagseguro.uol.com.br/para_seu_negocio/envio-facil.jhtml');
$url->submit_form( form_id =>
'simulateCep', fields => {originCep => $c,
destinyCep => $d,
width => $l,
height => $a, length
=> $c, ,
}, );
my $preco = $url->decoded_content; return
$preco;}
_______________________________________________
Rio-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/rio-pm
