07-jul-2002, 22:53
|
#1 (permalink) |
 
Fecha de Ingreso: noviembre-2002
Mensajes: 57
|
SOS...Ayúdenme a insertar un texto. ¡¡POR FAV
 En concreto es lo siguiente: Tengo una página, y quiero redireccionarla (mediante un "button") hacia la misma página, pero con un comentario insertado (Ej: en una página de autenticación, insertar el texto "usuario inexistente" debajo del form, si el usuario no está registrado e intenta hacerlo).¿Qué opinan?  |
|
|
|
08-jul-2002, 17:31
|
#2 (permalink) |
|
Fecha de Ingreso: noviembre-2002
Ubicación: Uruguay
Mensajes: 424
|
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 webmaster@elanime.com.ar 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 |
|
|
|
|
08-jul-2002, 17:43
|
#3 (permalink) |
|
Fecha de Ingreso: noviembre-2002
Mensajes: 57
|
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  ! |
|
|
|
|
08-jul-2002, 18:04
|
#4 (permalink) |
|
Fecha de Ingreso: noviembre-2002
Mensajes: 415
|
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. |
|
|
|
Mode Lineal
