Foro - Perl en Español

package MinimalApp;
use base 'CGI::Application';
use strict;
use CGI::Application::Plugin::TT;
use CGI::Application::Plugin::Session;
use CGI::Application::Plugin::Authentication;
use CGI::Application::Plugin::AutoRunmode;

use Data::Dumper;



sub cgiapp_init {
 my $self    = shift;
 $self->authen->protected_runmodes(':all');
}


sub setup {
my $self = shift;
$self->start_mode('index');
$self->run_modes(
'index' => 'index',
'prin' => 'prin',
'logout' => 'logout'
                );
                               

$self->tt_config(TEMPLATE_OPTIONS => {INCLUDE_PATH => '/var/www/sga/template',POST_CHOMP   => 1}
       );

$self->authen->config (
       DRIVER => [ Generic => { test => '123' } ],
       STORE  => 'Session',
       LOGIN_SESSION_TIMEOUT => {IDLE_FOR => '1m',EVERY => '1d'},
       CREDENTIALS => ['usuario','contrasena','codigo'],
       LOGOUT_RUNMODE => 'logout',
       POST_LOGIN_RUNMODE => 'prin',
       LOGIN_RUNMODE => 'index'
                         );
}
MinimalApp->authen->protected_runmodes('prin');


sub processtmpl{
    my ($self,$tmplname) = @_;
    my $query = $self->query();
    my %params= (
    PROFILE => $self->session->param("profile"),
    BADLOGINS => $self->session->param("badlogins"),
    MYURL => $query->url()
            );
    return $self->tt_process($tmplname, \%params);
}

sub logout{
    my $self = shift;
#    $self->session_delete;
    $self->authen->logout();
    return $self->index();
}

sub index{
    my $self = shift;
    return $self->processtmpl('contenedor');
}

sub prin{
    my $self = shift;
   
    return $self->processtmpl('contenedor2');
}
1;    # Perl requires this at the end of all modules

#!/usr/bin/perl -w
use strict;
use warnings;
use Template;
use CGI;
use CGI qw/:standard/;

print CGI::header();

if ($ENV{REQUEST_METHOD} eq 'POST'){

my $q = new CGI;

my $usuario = $q->param('usuario');
my $contrasena = $q->param('contrasena');
my $codigo = $q->param('codigo');
my $ccrypt = crypt($contrasena,'aa');

my $file = 'contenedor2';
my $vars = {
   usuario => $usuario,
   contrasena => $ccrypt,
   codigo => $codigo,
   };

my $template = Template->new({
        INCLUDE_PATH =>'/var/www/sga/template',
        EVAL_PERL    =>1,
}) || die $Template::ERROR,"\n";

$template->process($file, $vars);
}