use_uri_for
/);
-our $VERSION = '1.009';
+our $VERSION = '1.012';
sub new {
my ($class, $config, $app, $realm) = @_;
$config->{username_field} ||= 'username';
# _config is shity back-compat with our base class.
- my $self = { %$config, _config => $config, _debug => $app->debug };
+ my $self = { %$config, _config => $config, _debug => $app->debug ? 1 : 0 };
bless $self, $class;
$self->realm($realm);
}
else {
$c->log->debug("Password mismatch!") if $c->debug;
+ return;
}
}
else {
$c->log->debug("Unable to locate user matching user info provided")
if $c->debug;
- }
- else {
- $c->log->debug("Unable to locate user matching user info provided") if $c->debug;
return;
}
}
$A2_digest );
my $rq_digest = Digest::MD5::md5_hex($digest_in);
$nonce->nonce_count($nonce_count);
- $c->cache->set( __PACKAGE__ . '::opaque:' . $nonce->opaque,
- $nonce );
+ my $key = __PACKAGE__ . '::opaque:' . $nonce->opaque;
+ $self->store_digest_authorization_nonce( $c, $key, $nonce );
if ($rq_digest eq $res{response}) {
return $user_obj;
}
=item Peter Corlett
+=item Devin Austin (dhoss) C<dhoss@cpan.org>
+
=back
=head1 SEE ALSO