byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

auth_vpopmail_sql, refactor, log, tests

Browse Source 
added strict and warnings pragma
refactored
added tests
added more logging
standard log prefixes
tests run pretests to assure tests can succeed
This commit is contained in:
Matt Simerson 2012-05-07 03:35:59 -04:00 committed by Robert
parent adbbfe6f67
commit 57d72b3cb4
2 changed files with 93 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

101
plugins/auth/auth_vpopmail_sql
View File

@ -63,6 +63,9 @@ Please see the LICENSE file included with qpsmtpd for details.
=cut =cut
use strict;
use warnings;
use DBI; use DBI;
use Qpsmtpd::Constants; use Qpsmtpd::Constants;
use Digest::HMAC_MD5 qw(hmac_md5_hex); use Digest::HMAC_MD5 qw(hmac_md5_hex);
@ -75,73 +78,89 @@ sub register {
$self->register_hook('auth-cram-md5', 'auth_vmysql'); $self->register_hook('auth-cram-md5', 'auth_vmysql');
} }
sub auth_vmysql { sub get_db_handle {
my ( $self, $transaction, $method, $user, $passClear, $passHash, $ticket ) = @_; my $self = shift;
# $DB::single = 1;
my $dsn = $self->qp->config("vpopmail_mysql_dsn") || "dbi:mysql:dbname=vpopmail;host=127.0.0.1"; my $dsn = $self->qp->config("vpopmail_mysql_dsn") || "dbi:mysql:dbname=vpopmail;host=127.0.0.1";
my $dbuser = $self->qp->config("vpopmail_mysql_user") || "vpopmailuser"; my $dbuser = $self->qp->config("vpopmail_mysql_user") || "vpopmailuser";
my $dbpass = $self->qp->config("vpopmail_mysql_pass") || "vpoppasswd"; my $dbpass = $self->qp->config("vpopmail_mysql_pass") || "vpoppasswd";
my $dbh = DBI->connect( $dsn, $dbuser, $dbpass ) or do { my $dbh = DBI->connect( $dsn, $dbuser, $dbpass ) or do {
$self->log(LOGERROR, "auth_vpopmail_sql: db connection failed"); $self->log(LOGERROR, "skip: db connection failed");
return DECLINED; return;
}; };
$dbh->{ShowErrorStatement} = 1; $dbh->{ShowErrorStatement} = 1;
return $dbh;
};
sub get_vpopmail_user {
my ( $self, $dbh, $user ) = @_;
my ( $pw_name, $pw_domain ) = split '@', lc($user); my ( $pw_name, $pw_domain ) = split '@', lc($user);
return DECLINED if ! defined $pw_domain; if ( ! defined $pw_domain ) {
$self->log(LOGINFO, "skip: missing domain: " . lc $user );
return;
};
$self->log(LOGDEBUG, "auth_vpopmail_sql: $pw_name\@$pw_domain"); $self->log(LOGDEBUG, "auth_vpopmail_sql: $user");
my $sth = $dbh->prepare(<<SQL); my $query = "SELECT pw_passwd,pw_clear_passwd
SELECT *
FROM vpopmail FROM vpopmail
WHERE pw_name = ? AND pw_domain = ? WHERE pw_name = ?
SQL AND pw_domain = ?";
my $sth = $dbh->prepare( $query );
$sth->execute( $pw_name, $pw_domain ); $sth->execute( $pw_name, $pw_domain );
my $userd_ref = $sth->fetchrow_hashref;
my $passwd_hash = $sth->fetchrow_hashref;
$sth->finish; $sth->finish;
$dbh->disconnect; $dbh->disconnect;
return $userd_ref;
};
sub auth_vmysql {
my ( $self, $transaction, $method, $user, $passClear, $passHash, $ticket ) = @_;
my $dbh = $self->get_db_handle() or return DECLINED;
my $db_user = $self->get_vpopmail_user($dbh, $user) or return DECLINED;
# if vpopmail was not built with '--enable-clear-passwd=y' # if vpopmail was not built with '--enable-clear-passwd=y'
# then pw_clear_passwd may not even exist # then pw_clear_passwd may not even exist
my $pw_clear_passwd = exists $passwd_hash->{'pw_clear_passwd'} my $pw_clear_passwd = $db_user->{'pw_clear_passwd'};
? $passwd_hash->{'pw_clear_passwd'} my $pw_passwd = $db_user->{'pw_passwd'}; # always present
: undef;
my $pw_passwd = $passwd_hash->{'pw_passwd'}; # this is always present
if ( # clear_passwd isn't defined so we cannot support CRAM-MD5 if ( ! $pw_passwd && ! $pw_clear_passwd ) {
( $method =~ /CRAM-MD5/i and not defined $pw_clear_passwd ) $self->log(LOGINFO, "fail: no such user");
or return ( DENY, "auth_vmysql - no such user" );
# user doesn't exist in this domain };
( not defined $pw_passwd )
) { # at this point, the user name has matched
if ( ! $pw_clear_passwd && $method =~ /CRAM-MD5/i ) {
$self->log(LOGINFO, "skip: cram-md5 not supported w/o clear pass");
return ( DECLINED, "auth_vmysql" ); return ( DECLINED, "auth_vmysql" );
} }
# at this point we can assume the user name matched if ( defined $passClear ) {
if ( if ( $pw_clear_passwd && $pw_clear_passwd eq $passClear ) {
( defined $passClear and $self->log(LOGINFO, "pass: clear match");
( return ( OK, "auth_vmysql" );
($pw_clear_passwd eq $passClear) };
or ($pw_passwd eq crypt( $passClear, $pw_passwd ) )
)
)
or ( defined $passHash
and $passHash eq hmac_md5_hex( $ticket, $pw_clear_passwd ) )
)
{
if ( $pw_passwd eq crypt( $passClear, $pw_passwd ) ) {
$self->log(LOGINFO, "pass: crypt match");
return ( OK, "auth_vmysql" );
}
};
if ( defined $passHash && $pw_clear_passwd &&
$passHash eq hmac_md5_hex( $ticket, $pw_clear_passwd )
) {
$self->log(LOGINFO, "pass: hash match");
return ( OK, "auth_vmysql" ); return ( OK, "auth_vmysql" );
} };
else {
return ( DENY, "auth_vmysql - wrong password" ); $self->log(LOGINFO, "fail: wrong password");
} return ( DENY, "auth_vmysql - wrong password" );
} }

50
t/plugin_tests/auth/auth_vpopmail_sql
View File

@ -1,27 +1,43 @@
#!perl -w #!perl -w
use strict;
use warnings;
sub register_tests { sub register_tests {
my $self = shift; my $self = shift;
$self->register_test("auth_vpopmail_sql", 3); $self->register_test("auth_vpopmail_sql", 3);
} }
my @u_list = qw ( good bad none );
my %u_data = (
good => [ 'postmaster@example.com', OK, 'Good Strong Passphrase' ],
bad => [ 'bad@example.com', DENY, 'not_bad_pass' ],
none => [ 'none@example.com', DECLINED, '' ],
);
sub auth_vpopmail_sql { sub auth_vpopmail_sql {
my $self = shift; my $self = shift;
my ($tran, $ret, $note, $u, $r, $p, $a ); my ( $transaction, $method, $user, $passClear, $passHash, $ticket ) = @_;
$tran = $self->qp->transaction;
for $u ( @u_list ) { my $dbh = $self->get_db_handle() or do {
( $a,$r,$p ) = @{$u_data{$u}}; foreach ( 0..2 ) {
eval { ($ret, $note) = $self->auth_vmysql($tran,'PLAIN',$a,$p); }; ok( 1, "auth_vpopmail_sql, skipped (no DB)" );
defined $note or $note='auth_vpopmail_sql: No-Message'; };
is ($ret, $r, $note); return;
# - for debugging. };
# warn "$note\n"; ok( $dbh, "auth_vpopmail_sql, got a dbh" );
}
my $vuser = $self->get_vpopmail_user( $dbh, 'postmaster@example.com' );
if ( ! $vuser || ! $vuser->{pw_passwd} ) {
foreach ( 0..1 ) {
ok( 1, "auth_vpopmail_sql, no example.com domain" );
};
return;
};
ok( ref $vuser, "auth_vpopmail_sql, found example.com domain" );
ok( $self->auth_vmysql(
$self->qp->transaction,
'PLAIN',
'postmaster@example.com',
$vuser->{pw_clear_passwd},
$vuser->{pw_passwd},
$ticket,
),
"auth_vpopmail_sql, postmaster"
);
} }