develooper Front page | perl.qpsmtpd.dev | Postings from May 2008

[svn:qpsmtpd] r895 - trunk/lib/Apache

From:
msergeant
Date:
May 9, 2008 11:17
Subject:
[svn:qpsmtpd] r895 - trunk/lib/Apache
Author: msergeant
Date: Fri May  9 11:17:38 2008
New Revision: 895

Modified:
   trunk/lib/Apache/Qpsmtpd.pm

Log:
Support original_string in Apache


Modified: trunk/lib/Apache/Qpsmtpd.pm
==============================================================================
--- trunk/lib/Apache/Qpsmtpd.pm	(original)
+++ trunk/lib/Apache/Qpsmtpd.pm	Fri May  9 11:17:38 2008
@@ -119,6 +119,7 @@
 
     while (defined(my $data = $self->getline)) {
         $data =~ s/\r?\n$//s; # advanced chomp
+        $self->connection->notes('original_string', $data);
         $self->log(LOGDEBUG, "dispatching $data");
         defined $self->dispatch(split / +/, $data, 2)
             or $self->respond(502, "command unrecognized: '$data'");



Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About