Código:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- binmode STDOUT, ":encoding(ISO-8859-1)";
- use CGI;
- use CGI::Carp qw(fatalsToBrowser);
- use Mod_dir::buscar;
- #use strict;
- #use warnings;
- print error;
- print "Content-type: text/html\n\n";
- my $q = new CGI;
- print $q->start_html({-script=>"$codigo_javascript"});
- print $q->header('text/html');
- print $q->startform(-method=>'POST');
- print $q->p('Nombre:'.$q->textfield({-name=>'nombre'}));
- print $q->p('Login:'.$q->textfield({-name=>'login'}));
- print $q->p('Contraseña:'.$q->password_field({-name=>'contraseña'}));
- print $q->submit({-value=>'Guardar'});
- print $q->reset({-value=>'Borrar Formulario'})."<br>";
- print $q->end_form;
- #print $query->end_html();
- my $tno=$q->param('nombre');
- my $log=$q->param('login');
- my $con=$q->param('contraseña');
- if ($tno =~ /\w/){
- my $formu=buscar->new;
- my $insertado=0;
- $insertado=$formu->enviar_admin($tno,$log,$con);
- if ($insertado=1){
- print "Registro insertado correctamente";
- }
- else{
- print "Registro no fue insertado";
- }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
y así se ve en el navegador:
¿Por qué me aparece el Content-type: text/html\n\n? Y si lo quito, no veo en el navegador el formulario. Gracias por la ayuda que me puedan dar.
