Permalink
Browse files

auth: adding tests (should have attached with a previous commit)

  • Loading branch information...
1 parent 7eaeecc commit 1402737f8246e244941028b6df9b0f06ceaab384 @msimerson committed May 21, 2012
Showing with 3 additions and 52 deletions.
  1. +3 −52 t/Test/Qpsmtpd/Plugin.pm
View
@@ -5,8 +5,10 @@ package Test::Qpsmtpd::Plugin;
package Qpsmtpd::Plugin;
use strict;
-use Test::More;
+use warnings;
+
use Qpsmtpd::Constants;
+use Test::More;
sub register_tests {
# Virtual base method - implement in plugin
@@ -38,55 +40,4 @@ sub run_tests {
}
}
-sub validate_password {
- my ( $self, %a ) = @_;
-
- my ($pkg, $file, $line) = caller();
-
- my $src_clear = $a{src_clear};
- my $src_crypt = $a{src_crypt};
- my $attempt_clear = $a{attempt_clear};
- my $attempt_hash = $a{attempt_hash};
- my $method = $a{method} or die "missing method";
- my $ticket = $a{ticket};
- my $deny = $a{deny} || DENY;
-
- if ( ! $src_crypt && ! $src_clear ) {
- $self->log(LOGINFO, "fail: missing password");
- return ( $deny, "$file - no such user" );
- };
-
- if ( ! $src_clear && $method =~ /CRAM-MD5/i ) {
- $self->log(LOGINFO, "skip: cram-md5 not supported w/o clear pass");
- return ( DECLINED, $file );
- }
-
- if ( defined $attempt_clear ) {
- if ( $src_clear && $src_clear eq $attempt_clear ) {
- $self->log(LOGINFO, "pass: clear match");
- return ( OK, $file );
- };
-
- if ( $src_crypt && $src_crypt eq crypt( $attempt_clear, $src_crypt ) ) {
- $self->log(LOGINFO, "pass: crypt match");
- return ( OK, $file );
- }
- };
-
- if ( defined $attempt_hash && $src_clear ) {
- if ( ! $ticket ) {
- $self->log(LOGERROR, "skip: missing ticket");
- return ( DECLINED, $file );
- };
-
- if ( $attempt_hash eq hmac_md5_hex( $ticket, $src_clear ) ) {
- $self->log(LOGINFO, "pass: hash match");
- return ( OK, $file );
- };
- };
-
- $self->log(LOGINFO, "fail: wrong password");
- return ( $deny, "$file - wrong password" );
-};
-
1;

0 comments on commit 1402737

Please sign in to comment.