From d26797c6d218057e197f99002f1a44d535a2c27f Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Sun, 30 Jan 2005 05:40:24 +0000
Subject: [PATCH] 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 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Qpsmtpd/TcpServer.pm b/lib/Qpsmtpd/TcpServer.pm
index d2240c5..dcac57d 100644
--- a/lib/Qpsmtpd/TcpServer.pm
+++ b/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;