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

Correct handling for vpopmail built without clear password option

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@358 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2005-01-30 17:24:49 +00:00
parent d26797c6d2
commit 1d1799feb6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
plugins/auth/auth_vpopmail_sql
View File

@ -82,18 +82,21 @@ sub authsql {
"Authentication to vpopmail via mysql: $pw_name\@$pw_domain"); "Authentication to vpopmail via mysql: $pw_name\@$pw_domain");
my $sth = $dbh->prepare(<<SQL); my $sth = $dbh->prepare(<<SQL);
select pw_passwd, pw_clear_passwd select *
from vpopmail from vpopmail
where pw_name = ? and pw_domain = ? where pw_name = ? and pw_domain = ?
SQL SQL
$sth->execute( $pw_name, $pw_domain ); $sth->execute( $pw_name, $pw_domain );
my ($pw_passwd, $pw_clear_passwd) = $sth->fetchrow_array; my $passwd_hash = $sth->fetchrow_hashref;
$sth->finish; $sth->finish;
$dbh->disconnect; $dbh->disconnect;
my $pw_clear_passwd = $passwd_hash->{'pw_clear_passwd'};
my $pw_passwd = $passwd_hash->{'pw_passwd'};
if ( # clear_passwd isn't defined so we cannot support CRAM-MD5 if ( # clear_passwd isn't defined so we cannot support CRAM-MD5
( $method =~ /CRAM-MD5/i and not defined $pw_clear_passwd ) ( $method =~ /CRAM-MD5/i and not defined $pw_clear_passwd )
or or