From 347e5d328ffd3e4a236cd30bb6a7bbd5ced000b3 Mon Sep 17 00:00:00 2001
From: John Peacock <jpeacock@cpan.org>
Date: Fri, 27 Jan 2006 17:16:13 +0000
Subject: [PATCH] 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
---
 lib/Qpsmtpd/PollServer.pm      | 1 -
 lib/Qpsmtpd/SMTP.pm            | 1 -
 plugins/auth/auth_vpopmail_sql | 5 +++--
 3 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/lib/Qpsmtpd/PollServer.pm b/lib/Qpsmtpd/PollServer.pm
index a6db0d4..afa1ec0 100644
--- a/lib/Qpsmtpd/PollServer.pm
+++ b/lib/Qpsmtpd/PollServer.pm
@@ -28,7 +28,6 @@ use fields qw(
     _continuation
 );
 use Qpsmtpd::Constants;
-use Qpsmtpd::Auth;
 use Qpsmtpd::Address;
 use Danga::DNS;
 use Mail::Header;
diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm
index 87f0118..ec29377 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -8,7 +8,6 @@ use Carp;
 
 use Qpsmtpd::Plugin;
 use Qpsmtpd::Constants;
-use Qpsmtpd::Auth;
 use Qpsmtpd::Address ();
 
 use Mail::Header ();
diff --git a/plugins/auth/auth_vpopmail_sql b/plugins/auth/auth_vpopmail_sql
index 8f07479..81de033 100644
--- a/plugins/auth/auth_vpopmail_sql
+++ b/plugins/auth/auth_vpopmail_sql
@@ -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 ) =
       @_;