use Digest::MD5 qw(md5_hex);
use CGI::Ex;
-$VERSION = '2.19';
+$VERSION = '2.20';
###----------------------------------------------------------------###
### if they have cookies we are done
} elsif (scalar(keys %{$self->cookies}) || $self->no_cookie_verify) {
+ $self->success_hook;
return $self;
### need to verify cookies are set-able
}
}
+sub success_hook {
+ my $self = shift;
+ if (my $meth = $self->{'success_hook'}) {
+ return $meth->($self);
+ }
+ return;
+}
+
sub handle_failure {
my $self = shift;
my $args = shift || {};
### allow for a sleep to help prevent brute force
sleep($self->failed_sleep) if defined($data) && $data->error ne 'Login expired' && $self->failed_sleep;
+ $self->failure_hook;
return;
}
+sub failure_hook {
+ my $self = shift;
+ if (my $meth = $self->{'failure_hook'}) {
+ return $meth->($self);
+ }
+ return;
+}
+
sub check_valid_auth {
my $self = shift;
$self = $self->new(@_) if ! ref $self;
login_template
handle_success
handle_failure
+ success_hook
+ failure_hook
no_cookie_verify
path_info
script_name