From 03455aff9afbdd7eede9b1e9f128f4028bde622b Mon Sep 17 00:00:00 2001
From: John Peacock <jpeacock@cpan.org>
Date: Thu, 23 Sep 2004 16:14:56 +0000
Subject: [PATCH] Add username for AUTH success/failure log entry

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@328 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/Auth.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Qpsmtpd/Auth.pm b/lib/Qpsmtpd/Auth.pm
index d1de77f..7230b51 100644
--- a/lib/Qpsmtpd/Auth.pm
+++ b/lib/Qpsmtpd/Auth.pm
@@ -316,7 +316,7 @@ sub SASL {
     }
 
     if ( $rc == OK ) {
-        $msg = "Authentication successful" .
+        $msg = "Authentication successful for $user" .
 	    ( defined $msg ? " - " . $msg : "" );
         $session->respond( 235, $msg );
         $session->connection->relay_client(1);
@@ -324,7 +324,7 @@ sub SASL {
         return OK;
     }
     else {
-        $msg = "Authentication failed" .
+        $msg = "Authentication failed for $user" .
 	    ( defined $msg ? " - " . $msg : "" );
         $session->respond( 535, $msg );
         $session->log( LOGERROR, $msg );