cvs commit: qpsmtpd/lib/Qpsmtpd TcpServer.pm
[email protected] (Robert Spier)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/11/26 22:41:06
Modified: lib/Qpsmtpd TcpServer.pm
Log:
more logging
Revision Changes Path
1.14 +1 -0 qpsmtpd/lib/Qpsmtpd/TcpServer.pm
Index: TcpServer.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/TcpServer.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- TcpServer.pm 25 Nov 2004 19:50:18 -0000 1.13
+++ TcpServer.pm 27 Nov 2004 06:41:06 -0000 1.14
@@ -81,6 +81,7 @@
sub disconnect {
my $self = shift;
+ $self->log(LOGDEBUG,"click, disconnecting");
$self->SUPER::disconnect(@_);
exit;
}