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

* plugins/auth/auth_vpopmail_sql

Browse Source 
Handle case where pw_clear_passwd doesn't exists in vpopmail database


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@360 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2005-02-10 14:33:13 +00:00
parent 31a8e7d438
commit 60cab010f8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
plugins/auth/auth_vpopmail_sql
View File

@ -94,8 +94,12 @@ SQL
$sth->finish; $sth->finish;
$dbh->disconnect; $dbh->disconnect;
my $pw_clear_passwd = $passwd_hash->{'pw_clear_passwd'}; # if vpopmail was not built with '--enable-clear-passwd=y'
my $pw_passwd = $passwd_hash->{'pw_passwd'}; # then pw_clear_passwd may not even exist
my $pw_clear_passwd = exists $passwd_hash->{'pw_clear_passwd'}
? $passwd_hash->{'pw_clear_passwd'}
: 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 ( # 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 )