Foro - Perl en Español

por **BigBear** » 2015-11-17 19:11 @841

Hola, tengo el siguiente formulario en HTML y JavaScript en mi servidor Apache y quería saber cómo hacer un registro desde Perl, pero nunca funciona el registro. Creo que es por lo de "onsubmit" en el <form>.

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<form method='post' action='foro_autenticar.php' onSubmit="return noVaciosCampos (this);">
<input type=hidden value='nottrue'  name=alfacode>  
 
<input type='hidden' name='secforo' value='3'><input type='hidden' name='idenc' value='0'> 
<tr>
<td align=right bgcolor="#FF9933"><b><font face="Arial, Helvetica, sans-serif" size="2">Autor:</font></b></td>
<td bgcolor="#CCCCCC"><font face="Arial, Helvetica, sans-serif" size="2"><input name='autor' type=text value='' size=20 maxlength="18">
 (m&aacute;ximo 16 caracteres) </font></td></tr>
<tr>
<td align=right bgcolor="#FF9933"><b><font face="Arial, Helvetica, sans-serif" size="2">Tema:</font></b></td>
<td bgcolor="#CCCCCC"><font face="Arial, Helvetica, sans-serif" size="2"><input type=text name='tema' value='' size=48></font></td>
</tr>
<tr>
<td align=right bgcolor="#FF9933"> <b><font face="Arial, Helvetica, sans-serif" size="2"> 
&nbsp;&nbsp;&nbsp;Texto:</font> </b></td>
<td bgcolor="#CCCCCC"> <textarea name="texto" cols="44" rows="12" wrap="VIRTUAL"></textarea> </td>
</tr>
<tr>
<td colspan=2 align=center> <input type=submit value='Enviar &raquo;' name="submit"  >&nbsp;&nbsp;</td>
</tr>
</form>
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El código en Perl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
 
use LWP::UserAgent;
use URI::Escape;
 
my $nave = LWP::UserAgent->new;
$nave->agent( "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0" );
$nave->timeout(10);
 
my $autor = "test2";
my $tema = "test2";
my $contenido = "test2";
 
my $code = tomar("http://localhost/form.php?secforo=3&operation=insertar",{ "alfacode" => "nottrue","secforo"=>"3","idenc"=>"0","autor"=>$autor,"tema"=>$tema,"texto"=>$contenido,"submit"=>"Enviar &raquo;"});
 
sub tomar {
    my ( $web, $var ) = @_;
    return $nave->post( $web, [ %{$var} ] )->content;
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

¿ Alguien sabe cómo solucionar esto ?

En el código HTML se hace referencia a un código JavaScript que se activa en el momento del envío, seguramente para comprobar si hay campos vacíos, y si no los hay, realizar el envío del formulario.

El programa Perl no debe preocuparse por esa parte, si solo hace eso. Pero sí si hace algo más. Quizás haga alguna preparación de algún campo o algún formateo.

Lo que puedes hacer es usar alguna herramienta de análisis de tráfico HTTP, como por ejemplo Firebug, el complemento para el Firefox, que te permita ver el diálogo que se mantiene entre la página y el servidor, y así saber qué variables se intercambian, y de ahí, igualarlo con el programa.

Foro - Perl en Español

Formulario con JavaScript

Formulario con JavaScript

Publicidad

Re: Formulario con JavaScript

¿Quién está conectado?