Perl input submit + proxy

[geolado]

Pessoal , to com um problema aqui , quero ativar um input submit numa pagina asp ( que só tem html ) usando um proxy pelo perl , meu codigo ta assim :

-------------------------------------------------------------------------------------------------------

#!/usr/bin/perl

use LWP::UserAgent ;
use HTTP::Request::Common ;
require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->proxy('proxy' , 'http://223.27.113.194:80/') ;

my %form = "form_frase" ;
my $URL = "http://www.planetcosmetics.com.br/concursocultural/beatriz-2433/index.asp";
my $field = "votar_frase" ;
my $value = "Votar" ;
my $response = $ua->post($URL,%form,$field => $value ) ;

if ($response->is_success) {
print "OK \n";
}
else {
print "ERROR ! \n " ;
}

-------------------------------------------------------------------------------------------------------


o que eu to fazendo de errado ?

[fvox]

Hi.

O que está errado, hmm, digamos tudo.

Pra começar, você está definindo uma hash como string:

my %form = "form_frase";  

Desative o env_proxy, senão vai forçar o endereço do proxy a partir do env do linux.

#$ua->env_proxy;  

O modo como o proxy está sendo configurado também está errado. Assim:

$ua->proxy('http', 'http://177.23.24.10:3128/');  

A URL do formulário e a hashref do formulário também está errado. Assim:

my $response = $ua->post( 
    'http://www.planetcosmetics.com.br/concursocultural/atualiza_voto.asp', 
    { 
         id_frase => '2433', 
         nome     => 'BEATRIZ+SANTIAGO+LEITE', 
         frase    => 'O+amor+de+ver%E3o+%E9+quente+como+a+esta%E7%E3o%0D%0AQuando+encontro+um+amor+assim+a+ordem+%E9+aproveitar%0D%0ASem+planos+futuros%2C+sem+promessas%0D%0AMas+com+muito+amor+pra+dar%0D%0AVer%E3o+%E9+tempo+de+mar+e+de+muita+azara%E7%E3o%0D%0AColoca+Planet+Girls+no+corpo%0D%0AE+Summer+Love+pra+sedu%E7%E3o', 
  enviar_frase    => 'Votar', 
    } 
); 
print $response->content, "\n";  

Ainda há algo errado com o envio de post. Se você não conseguir debugar, eu vejo mais tarde porque está dando errado. Segue o script até onde eu o modifiquei:

#!/usr/bin/env perl 
use strict; 
use warnings; 
 
use LWP::UserAgent; 
use HTTP::Request::Common; 
 
my $ua = new LWP::UserAgent; 
$ua->timeout(10); 
$ua->proxy('http', 'http://177.23.24.10:3128/'); 
my $response = $ua->post( 
    'http://www.planetcosmetics.com.br/concursocultural/atualiza_voto.asp', 
    { 
         id_frase => '2433', 
         nome     => 'BEATRIZ+SANTIAGO+LEITE', 
         frase    => 'O+amor+de+ver%E3o+%E9+quente+como+a+esta%E7%E3o%0D%0AQuando+encontro+um+amor+assim+a+ordem+%E9+aproveitar%0D%0ASem+planos+futuros%2C+sem+promessas%0D%0AMas+com+muito+amor+pra+dar%0D%0AVer%E3o+%E9+tempo+de+mar+e+de+muita+azara%E7%E3o%0D%0AColoca+Planet+Girls+no+corpo%0D%0AE+Summer+Love+pra+sedu%E7%E3o', 
  enviar_frase    => 'Votar', 
    } 
); 
print $response->content, "\n";  

Obs: Isso provavelmente está vulnerável à sqli. ;p

[]'s