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)) {
