1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
#!/usr/bin/perl -T
#
# 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',
);
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;
|
