From 0449fbfb50404b8ed2cd25f0b8b3bb899dfdb925 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Fri, 8 Dec 2006 19:37:47 +0000
Subject: [PATCH] Fix a showstopper of a bug in Command.pm which meant all
 commands would be parsed wrong

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@678 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/Command.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Qpsmtpd/Command.pm b/lib/Qpsmtpd/Command.pm
index dddb7ae..b06e5ad 100644
--- a/lib/Qpsmtpd/Command.pm
+++ b/lib/Qpsmtpd/Command.pm
@@ -63,7 +63,7 @@ sub parse {
     return (OK) unless defined $line; # trivial case
     my $self = {};
     bless $self, $me;
-    $cmd = lc $1;
+    $cmd = lc $cmd;
     if ($sub and (ref($sub) eq 'CODE')) {
         my @ret = eval { $sub->($self, $cmd, $line); };
         if ($@) {
@@ -99,6 +99,7 @@ sub parse_rcpt {
 sub parse_mail {
     my ($self,$cmd,$line) = @_;
     return (DENY, "Syntax error in command") unless $line =~ s/^from:\s*//i;
+    print "parse_mail: $line\n";
     return &_get_mail_params($cmd, $line);
 }
 ### RFC 1869: