cvs commit: qpsmtpd/plugins/auth auth_vpopmail_sql

[email protected]
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
cvsuser     05/02/10 06:33:14

  Modified:    plugins/auth auth_vpopmail_sql
  Log:
  *   plugins/auth/auth_vpopmail_sql
      Handle case where pw_clear_passwd doesn't exists in vpopmail database
  
  Revision  Changes    Path
  1.5       +6 -2      qpsmtpd/plugins/auth/auth_vpopmail_sql
  
  Index: auth_vpopmail_sql
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/plugins/auth/auth_vpopmail_sql,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- auth_vpopmail_sql	30 Jan 2005 17:24:49 -0000	1.4
  +++ auth_vpopmail_sql	10 Feb 2005 14:33:13 -0000	1.5
  @@ -94,8 +94,12 @@
       $sth->finish;
       $dbh->disconnect;
   
  -    my $pw_clear_passwd = $passwd_hash->{'pw_clear_passwd'};
  -    my $pw_passwd = $passwd_hash->{'pw_passwd'};
  +    # if vpopmail was not built with '--enable-clear-passwd=y'
  +    # 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
            ( $method =~ /CRAM-MD5/i and not defined $pw_clear_passwd )
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.