| Subject: | Problem with Net-Server-Mail-ESMTP-SIZE-0.02 |
| Date: | Sat, 17 Apr 2010 01:10:42 +0200 |
| To: | bug-Net-Server-Mail-ESMTP-SIZE [...] rt.cpan.org |
| From: | Christian Felsing <hostmaster [...] taunusstein.net> |
Hello,
I experienced a problem with Net-Server-Mail-ESMTP-SIZE-0.02.
expected result:
cf@pf-test:~$ telnet localhost 31337
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
220 pf-test ESMTP Net::Server::Mail (Perl) Service ready
ehlo localhost
250-pf-test Service ready
250-8BITMIME
250-PIPELINING
250-XFORWARD NAME ADDR PROTO HELO SOURCE
250 SIZE 10240000
mail from: <james.bond@nothing.de>
250 sender <james.bond@nothing.de> OK
real result:
cf@pf-test:~$ telnet localhost 31337
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
220 pf-test ESMTP Net::Server::Mail (Perl) Service ready
ehlo localhost
250-pf-test Service ready
250-8BITMIME
250-PIPELINING
250-XFORWARD NAME ADDR PROTO HELO SOURCE
250 SIZE 10240000
mail from: <james.bond@nothing.de>
Ok
After applying following patch I got the expected result:
pf-test:/usr/local/share/perl/5.10.0/Net/Server/Mail/ESMTP# diff -Naur
SIZE.pm.ORIG SIZE.pm
--- SIZE.pm.ORIG 2010-04-17 03:02:26.000000000 +0200
+++ SIZE.pm 2010-04-17 03:01:19.000000000 +0200
@@ -12,8 +12,9 @@
}
sub reply {
- return (['DATA' => \&reply_mail_body],
- ['MAIL' => \&reply_mail_from]);
+# return (['DATA' => \&reply_mail_body],
+# ['MAIL' => \&reply_mail_from]);
+ return (['DATA' => \&reply_mail_body]);
}
sub option {
I am not sure if that patch is the right way to fix that problem.
best regards
Christian Felsing