¿Alguien sabe si se puede agregar código HTML5 a una página CGI?
Este es el código de la página en CGI.
Using perl Syntax Highlighting
- #!/usr/bin/perl
- #
- # Ejemplo de CGI::Session para login
- #
- use strict;
- use warnings;
- use diagnostics;
- use CGI::Session;
- use CGI ':standard';
- use CGI::Carp qw'fatalsToBrowser warningsToBrowser';
- ## Creamos el objeto CGI
- my $cgi = CGI->new();
- ## Creamos el objeto CGI::Session
- my $session = CGI::Session->new("driver:File", $cgi, {'Directory'=>'/tmp/'})
- or die CGI::Session->errstr;
- ## Enviamos la cookie de sesión al usuario
- print $session->header;
- # Aquí guardaremos el perfil del usuario
- my $perfil;
- ## Inicialización
- if ( not $session->param('~registrado') ) { # si el usuario no está registrado
- # vemos si se está registrando en este momento
- if (my $nombre = $cgi->param('login_nombre')) {
- my $passwd = $cgi->param('login_passwd');
- # Vemos si es un usuario conocido por nosotros
- # si lo es, obtenemos su perfil
- if ($perfil = usuario_registrado($nombre, $passwd)) {
- # Guardamos el perfil asociado a la sesión
- $session->param('perfil', $perfil);
- $session->param('~registrado', 1);
- }
- else { # Es un desconocido, le pedimos que rellene el registro otra vez
- presenta_login('Usuario desconocido');
- exit;
- }
- }
- else { # No está registrado ni se está registrando
- presenta_login('Identifíquese');
- exit;
- }
- }
- else { # es un usuario registrado (hay una sesión de él)
- # recuperamos el perfil, desde la sesión
- $perfil = $session->param('perfil');
- }
- # A partir de aquí, sabemos qué usuario es, y su perfil
- # Podemos presentarle las opciones propias de un usuario registrado
- my $nombre = $perfil->{nombre}; # otra forma de hacerlo sería recuperar esta información
- my $email = $perfil->{email}; # desde la base de datos, ya que sabemos qué usuario es
- if ($cgi->param('Desconectar')) { # caso de que el usuario quiera desconectarse
- $session->clear(['~registrado']); # olvidamos que estaba registrado
- print # despedida
- start_html('Desconexión'),
- h1('Desconexión'),
- hr(),
- p("Adios, $nombre"),
- end_html()
- ;
- }
- else { # una página normal
- print
- start_html('Bienvenido'),
- h1('Bienvenido'),
- hr(),
- p("Bienvenido $nombre ($email)"),
- hr(),
- p(a({-href=>'ficheros.html'},'Ver lista de ficheros')),
- p(a({-href=>$cgi->url() . '?Desconectar=1'},'Desconectar')),
- end_html()
- ;
- }
- # Perfil de un determinado usuario
- sub usuario_registrado {
- my ($nombre, $passwd) = @_;
- # aquí consultaríamos una base de datos, por ejemplo
- if ($nombre eq 'JF' and $passwd eq '2010') {
- # si es un usuario en nuestra base de datos, recuperamos su perfil
- }
- return;
- }
- # Presenta el formulario de entrada
- sub presenta_login {
- my $titulo = shift;
- print
- start_html,
- h1('Registro de entrada: ' . $titulo),
- start_form,
- p('Nombre: ' . textfield('login_nombre')),
- p('Contraseña: ' . password_field('login_passwd','',8,8)),
- p(),
- submit('Entrar'),
- end_form,
- end_html()
- ;
- }
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
y este https://superdevresources.com/responsive-table/ es un ejemplo de una tabla adaptativa en HTML5 que me gustaría agregar cuando el usuario se registre.
Saludos, compañeros. Que tengan un día chingon.