
¿Qué opinan?

| |||
Re: SOS...Ayúdenme a insertar un texto. ¡¡POR FAV tengo dudas, pero tu lo que quieras es hacer algo como foros del web que dice... estas registrado como... o no estas registrado... puedes hacer un sistema de usuarios pero no conviene... porque privar contenidos de internet para que los usuarios se registren hace una internet con candado, por ser un medio mundial .... tiene que ser gratuita y por ende todos lo contenidos libre... Lamento todas las webs que te tenes que registrar para que puedas ver por ejemplo videos en ultimatefirej... BYE Leandro Ignacio Burgoa [email protected] http://www.elanime.com.ar <A href=http://www.elanime.com.ar><img src="http://www.elanime.com.ar/elanime.gif" alt="El anime :: El mejor sitio de animacion japonesa" border="0"></a |
| ||||
Re: SOS...Ayúdenme a insertar un texto. ¡¡POR FAV Leandro: En realidad lo que estoy implementando es una aplicación web que requiere necesariamente autenticación, o sea, clasifica dentro de las aplicaciones de propósito general para ser utilizadas por determinadas personas. En esencia, yo llamo a un CGI en perl desde la página para validar una password, el cgi valida y lo que quiero obtener, en caso de password incorrecta, es un redireccionamiento a la misma página anterior, con el texto indicado. Lo de la validación en Perl ya lo he hecho, mi duda está en ese "dichoso" redireccionamiento con texto incluido... Ojalá no ande yo pidiendo mucho, y que puedas ayudarme... y gracias por responderme ![]() ![]() ![]() ![]() ![]() ![]() |
| |||
Re: SOS...Ayúdenme a insertar un texto. ¡¡POR FAV archivo: template.html
Código:
archivo: validar.cgi (omito detalles como validacion de usuarios, etc)<html> <head><title>Titulo</title></head> <body> --TEXTO-- </body> </html>
Código:
#!/usr/bin/perl -w use CGI; use strict; my $query = CGI->new(); my $usuario = $query->param('usuario'); my $pass = $query->param('pass'); my $archivo_template = "/directorio/template.html"; my $texto; OPEN ARCHIVO, $archivo_template || die ("No se pudo abrir el template!!!"); while <ARCHIVO> { $template .= $_; } close ARCHIVO; if (!$usuario || !$pass) { $texto = "Falta ingresar Usuario/Contraseña<br>\n"; } elsif (! &usuarioValido($usuario, $pass) ) { $texto = "Usuario Inexistente/Contraseña incorrecta<br>\n"; } else { $texto = <<FORM <form name="formulario" action="validar.cgi" method="post"> <input type="text" name="usuario"><br> <input type="password" name="pass"><br> <input type="submit" value="Entrar">&nbsp;<input type="reset" value="Reestablecer"> </form> FORM ; } $template =~ s/--TEXTO--/$texto/; print "Content-type: text/html\n\n", $template; exit; sub usuarioValido { my ($usuario, $pass) = (shift, shift); # la validacion necesaria return $valido; } obviamente, lo escribi asi nomas aca, dudo que funcione, pero esa sería la idea, mas o menos. |