Foro - Perl en Español

por **BigBear** » 2009-11-08 16:47 @741

Hola. Tengo una duda de cómo llamar mi script CGI en Lycos, porque tengo el siguiente código HTML.

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<html><title>Scanner Port by Guason</title>
<BODY text=#006600>
<style type="text/css">
body {
        background-color: #000000;
        
        background-repeat: repeat-y;
        margin-left: 0px;
        margin-top: 0px;
}
.posthidden {display:none} .postshown {display:inline}
-->
</style>
<script type="text/Javascript">
function expandcollapse (postid) {
whichpost = document.getElementById(postid);
if (whichpost.className=="postshown") { whichpost.className="posthidden"; }
else { whichpost.className="postshown"; }
}
</script>
 
<center><h1></h1><br><br><br>
<form action="http://guasoncracker.super-red.es/cgi-bin/hola.cgi">
 
IP: <input type="text" name="ip"><br><br>
<input type="submit" value="VENGA!">
</form>
</body>
</html>
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

También el código CGI llamado hola.cgi que está en la carpeta cgi-bin.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
print "Content-type: text/html\n\n";
use CGI;
$q = CGI->new;
 
print "<b>Hi broder yo funciono!</b><br>\n";
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pero cuando le pongo los datos me demora la página y se pone en blanco o a veces pone que no existe o acceso restringido.

El problema es que ya que he seguido todos los datos del manual Lycos, pues también le dí los permisos necesarios.

La página pueden verla en http://guasoncracker.super-red.es/sa.htm.

¿Alguien me explica cómo llamar mi script CGI sin problema en Lycos?

Estás mezclando varias cosas en el CGI: si usas el módulo CGI.pm, no necesitas usar el print() primero para mandar el 'Content-type'. Luego, ejecutas el new() como si fueras a usarlo de forma orientado a objetos, pero luego no haces ningún uso de él.

El uso del módulo CGI ahorra mucho trabajo si se saben de sus posibilidades. Y hay dos formas básicas de usarlo: orientado a funciones y orientado a objetos.

De la primera forma, orientado a funciones:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use CGI qw/:standard/;
 
print header,
      start_html(),
      b('Hi broder yo funciono!'), br(),"\n"
      end_html()
      ;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y de la segunda forma, orientado a objetos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use CGI;
 
$q = CGI->new;
 
print $q->header,
      $q->start_html(),
      $q->b('Hi broder yo funciono!'), $q->br(),"\n"
      $q->end_html()
      ;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Las diferencias son pequeñas, pero hay que seguirlas (o una u otra, pero no mezclarlas).

Puedes probar mi CGI Mínimo para ver si te funciona bien el sistema cgi de Lycos.

Ya hemos hablado de este tema, de Lycos, antes.

Foro - Perl en Español

Cómo llamo a mi CGI en Lycos

Cómo llamo a mi CGI en Lycos

Publicidad

Re: Cómo llamo a mi CGI en Lycos

¿Quién está conectado?