cvs commit: qpsmtpd/lib/Qpsmtpd SMTP.pm
[email protected] (Ask "Bj?rn" Hansen)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/02/13 05:10:18
Modified: lib/Qpsmtpd SMTP.pm
Log:
don't call exit from the SMTP object, call the disconnect method instead
minor tweaks
Revision Changes Path
1.22 +4 -4 qpsmtpd/lib/Qpsmtpd/SMTP.pm
Index: SMTP.pm
===================================================================
RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/SMTP.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -w -r1.21 -r1.22
--- SMTP.pm 3 Dec 2003 20:58:30 -0000 1.21
+++ SMTP.pm 13 Feb 2004 13:10:18 -0000 1.22
@@ -13,7 +13,6 @@
use Mail::Address ();
use Mail::Header ();
-use IPC::Open2;
#use Data::Dumper;
use POSIX qw(strftime);
use Net::DNS;
@@ -291,7 +290,7 @@
$self->respond(214,
"This is qpsmtpd " . $self->version,
"See http://develooper.com/code/qpsmtpd/",
- 'To report bugs or send comments, mail to <[email protected]>.');
+ 'To report bugs or send comments, mail to <[email protected]>.');
}
sub noop {
@@ -348,8 +347,9 @@
while (<STDIN>) {
$complete++, last if $_ eq ".\r\n";
$i++;
- $self->respond(451, "See http://develooper.com/code/qpsmtpd/barelf.html"), exit
- if $_ eq ".\n";
+ $_ eq ".\n"
+ and $self->respond(451, "See http://develooper.com/code/qpsmtpd/barelf.html")
+ and $self->disconnect;
# add a transaction->blocked check back here when we have line by line plugin access...
unless (($max_size and $size > $max_size)) {
s/\r\n$/\n/;