cvs commit: qpsmtpd/lib/Qpsmtpd Auth.pm
[email protected] (John Peacock)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/09/23 09:14:56
Modified: lib/Qpsmtpd Auth.pm
Log:
Add username for AUTH success/failure log entry
Revision Changes Path
1.5 +2 -2 qpsmtpd/lib/Qpsmtpd/Auth.pm
Index: Auth.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/Auth.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- Auth.pm 22 Sep 2004 16:01:16 -0000 1.4
+++ Auth.pm 23 Sep 2004 16:14:56 -0000 1.5
@@ -316,7 +316,7 @@
}
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 @@
return OK;
}
else {
- $msg = "Authentication failed" .
+ $msg = "Authentication failed for $user" .
( defined $msg ? " - " . $msg : "" );
$session->respond( 535, $msg );
$session->log( LOGERROR, $msg );