[Cascavel-pm] Sistema de frete

[Igor Sutton]

Nova versão :)

<code>
use strict;
use warnings;

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use HTTP::Request::Common;
use LWP::UserAgent;

use constant {
    BASE_URL => "http://www.correios.com.br/encomendas/precos/calculo.cfm",
};

print header, start_html;

my $servico     = param('servico');
my $peso        = param('peso');
my $cep_origem  = param('cep_origem');
my $cep_destino = param('cep_destino');

#################
# Linhas dos corrios
#41017 = Encomenda Normal
#40010 = Sedex
#40290 = Sedex Hoje
#40215 = Sedex 10
#40045 = Sedex a Cobrar
###############

my $ua       = LWP::UserAgent->new;
my $response = $ua->get(
    BASE_URL,
    servico    => $servico,
    CepOrigem  => $cep_origem,
    CepDestino => $cep_destino,
    Peso       => $peso
);

if ( $response->is_success ) {
    if ( $response->content =~ /Tarifa=(.+?)&erro/ ) {
        printf 'Valor: R$ %.2f', $1;
    }
    else {
        print 'Valor nao encontrado';
    }
}
else {
    die $response->status_line;
}

print end_html;

</code>
-- 
Igor Sutton Lopes <igor.sutton em gmail.com>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070109/df462e29/attachment.html