Yo estoy haciendo una página que requiere autenticación de usuarios bajo Perl, entonces conseguí un ejemplo sencillo de cómo lograrlo en una página distinta así:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- #
- # Sample application
- #
- # Just place this file in a CGI enabled part of your website, and
- # load it up in your browser. The only valid username/password
- # combination is 'test' and '123'.
- #
- use strict;
- use warnings;
- {
- package SampleLogin;
- use base qw(CGI::Application);
- use CGI::Application::Plugin::Session;
- use CGI::Application::Plugin::Authentication;
- use CGI::Application::Plugin::AutoRunmode;
- use CGI::Carp qw(fatalsToBrowser);
- my %config = (
- DRIVER => [ 'Generic', { test => '123' } ],
- STORE => 'Cookie',
- LOGOUT_RUNMODE => 'one',
- LOGIN_FORM => {
- TITLE => 'Ingreso al Sistema',
- USERNAME_LABEL => 'Usuario',
- PASSWORD_LABEL => 'Clave',
- SUBMIT_LABEL => 'Ingresar',
- REMEMBERUSER_OPTION=> 0,
- COMMENT => 'Por Favor, Ingrese Su Usuario y Clave',
- INVALIDPASSWORD_MESSAGE=> 'Usuario o Clave Incorrectos',
- BASE_COLOUR => 'GRAY',
- LIGHTER_COLOUR => '#F2F2F2',
- DARK_COLOUR => '50%',
- }
- );
- SampleLogin->authen->config(%config);
- SampleLogin->authen->protected_runmodes('two');
- sub setup {
- my $self = shift;
- $self->start_mode('one');
- }
- sub one : Runmode {
- my $self = shift;
- return CGI::start_html( -style => { -code => $self->authen->login_styles } )
- . CGI::h2('This page is NOT protected')
- . CGI::a( { -href => '?rm=two' }, 'Protected Runmode' )
- . CGI::end_html();
- }
- sub two : Runmode {
- my $self = shift;
- return CGI::start_html( -style => { -code => $self->authen->login_styles } )
- . CGI::h2('This page is protected')
- . CGI::h2( 'username: ' . $self->authen->username )
- . CGI::a( { -href => '?rm=one' }, 'Un-Protected Runmode' )
- . CGI::br()
- . CGI::a( { -href => '?authen_logout=1' }, 'Logout' )
- . CGI::end_html();
- }
- }
- SampleLogin->new->run;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Este es el ejemplo, funciona muy bien, pero yo quiero que este formulario esté dentro de una tabla en una página principal... ¿¿¿es eso posible??? ¿¿¿podrían ayudarme???