cvsuser 05/01/29 21:40:24
Modified: lib/Qpsmtpd TcpServer.pm
Log:
Make the original string available in the Connection notes
Revision Changes Path
1.15 +1 -0 qpsmtpd/lib/Qpsmtpd/TcpServer.pm
Index: TcpServer.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/TcpServer.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- TcpServer.pm 27 Nov 2004 06:41:06 -0000 1.14
+++ TcpServer.pm 30 Jan 2005 05:40:24 -0000 1.15
@@ -62,6 +62,7 @@
alarm 0;
$_ =~ s/\r?\n$//s; # advanced chomp
$self->log(LOGDEBUG, "dispatching $_");
+ $self->connection->notes('original_string', $_);
defined $self->dispatch(split / +/, $_)
or $self->respond(502, "command unrecognized: '$_'");
alarm $timeout;
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.