nyarko escribió:Pues la verdad es que si estaria interesado, todo lo que me dijeras me seria util. Ya que voy perdio con los formularios. Los hago y luego... me kedo hay los he estado probando pero claro los kiero q me rulen con algun GCI de estos.

entonces esta xungo meterlos en servidores tipo tripod o iespana, no? me imagino q keires decir q solo te dan libertad para meterlos cuando compras un dominio.no??

espero tu ayuda.

y mil gracias

maxtorete escribió:No te vendría mejor trabajar en PHP?

LSR

ki
ro
gu
fran


Copy-pastea

#!/usr/bin/perl
print "Content-type: text/html\r\n\r\n";
print "\n";

# Obtiene la entrada
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

# Divide las variables entre nombre y valor.
@pairs = split(/&/, $buffer);

# Optiene todas las variables y sus valores
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$FORM{$name} = $value;
}
# Si la respuesta es vacia, se llama a una función que la trata
&blank_response unless $FORM{'estamento'};

# Imprime el título y la cabecera
print "\n";
print "\n\n";
print " \n";
print "\n";

print "\n

Muchas Gracias, sus ciudades seran bienvenidas

\n";
# Imprime el texto del texto a mostar.
system("/usr/lib/cgi-bin/hello2.pl $FORM{'estamento'} $FORM{'nombre'}" );#, $FORM{'estamento'}, $FORM{'nombre'}");
print "\n

$FORM{'estamento'}

";
print "\n

$FORM{'nombre'}

";
print "Gracias por enviar sus comentarios a __________

";
print "\n";
print "\n";

# subrutina blank_response para comentarios en blanco
sub blank_response
{
print "Sus comentarios estan en blanco, de manera que no seran";
print " enviados a __________. Por favor vuelva a introducirlos o vuelva";
print " a la página inicial si lo desea.

";
exit;
}

gorku_gum escribió:Es un tema interesante para salsear en casa, pq como ya te han dicho arriba, no te van a dejar meter tus CGI's en cualquier sitio