Oops, forgot to remove all traces of Qmsptmd::Auth while I was at it.
Also made auth_vpopmail_sql be quieter about problems authenticating. git-svn-id: https://svn.perl.org/qpsmtpd/trunk@607 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
29d739b009
commit
347e5d328f
@ -28,7 +28,6 @@ use fields qw(
|
||||
_continuation
|
||||
);
|
||||
use Qpsmtpd::Constants;
|
||||
use Qpsmtpd::Auth;
|
||||
use Qpsmtpd::Address;
|
||||
use Danga::DNS;
|
||||
use Mail::Header;
|
||||
|
@ -8,7 +8,6 @@ use Carp;
|
||||
|
||||
use Qpsmtpd::Plugin;
|
||||
use Qpsmtpd::Constants;
|
||||
use Qpsmtpd::Auth;
|
||||
use Qpsmtpd::Address ();
|
||||
|
||||
use Mail::Header ();
|
||||
|
@ -67,8 +67,9 @@ sub authsql {
|
||||
my $dbuser = "vpopmailuser";
|
||||
my $dbpasswd = "**********";
|
||||
|
||||
my $dbh = DBI->connect( $connect, $dbuser, $dbpasswd );
|
||||
$dbh->{ShowErrorStatement} = 1;
|
||||
my $dbh = DBI->connect( $connect, $dbuser, $dbpasswd,
|
||||
{ PrintError => 0, } )
|
||||
or return DECLINED;
|
||||
|
||||
my ( $self, $transaction, $method, $user, $passClear, $passHash, $ticket ) =
|
||||
@_;
|
||||
|
Loading…
Reference in New Issue
Block a user