Author: msergeant
Date: Fri Dec 8 11:37:47 2006
New Revision: 678
Modified:
branches/0.3x/lib/Qpsmtpd/Command.pm
Log:
Fix a showstopper of a bug in Command.pm which meant all commands would be
parsed wrong
Modified: branches/0.3x/lib/Qpsmtpd/Command.pm
==============================================================================
--- branches/0.3x/lib/Qpsmtpd/Command.pm (original)
+++ branches/0.3x/lib/Qpsmtpd/Command.pm Fri Dec 8 11:37:47 2006
@@ -63,7 +63,7 @@
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_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:
