[svn:qpsmtpd] r892 - trunk/lib/Qpsmtpd

Author: msergeant
Date: Fri May  9 08:27:11 2008
New Revision: 892

Modified:
   trunk/lib/Qpsmtpd/PollServer.pm

Log:
Provide original_string in PollServer


Modified: trunk/lib/Qpsmtpd/PollServer.pm
==============================================================================
--- trunk/lib/Qpsmtpd/PollServer.pm	(original)
+++ trunk/lib/Qpsmtpd/PollServer.pm	Fri May  9 08:27:11 2008
@@ -108,7 +108,8 @@
     my $line = shift || return;
     if ($::DEBUG > 1) { print "$$:".($self+0)."C($self->{mode}): $line"; }
     if ($self->{mode} eq 'cmd') {
-        $line =~ s/\r?\n//;
+        $line =~ s/\r?\n$//s;
+        $self->connection->notes('original_string', $line);
         my ($cmd, @params) = split(/ +/, $line, 2);
         my $meth = lc($cmd);
         if (my $lookup = $cmd_cache{$meth} || $self->{_commands}->{$meth} && $self->can($meth)) {

• [svn:qpsmtpd] r892 - trunk/lib/Qpsmtpd by msergeant