Make the original string available in the Connection notes

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@357 958fd67b-6ff1-0310-b445-bb7760255be9

lib/Qpsmtpd/TcpServer.pm

@@ -62,6 +62,7 @@ sub read_input {
     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;