byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

If the connection fails while in DATA we would just accept the

Browse Source 
message. Ouch! Thanks to Devin Carraway <qpsmtpd@devin.com> for the
  patch.

  bumped version number to 0.07


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@16 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2002-04-21 03:28:20 +00:00
parent f4f1427fb9
commit e2cc2f7464
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Changes
View File

@ -1,9 +1,15 @@
2002/04/20 2002/04/20
Bumped version number to 0.07
Support comments in configuration files (prefix the line with #) Support comments in configuration files (prefix the line with #)
Support RELAYCLIENT like qmail-smtpd (thanks to Marius Kjeldahl Support RELAYCLIENT like qmail-smtpd (thanks to Marius Kjeldahl
<marius@kjeldahl.net>) ) <marius@kjeldahl.net>) )
If the connection fails while in DATA we would just accept the
message. Ouch! Thanks to Devin Carraway <qpsmtpd@devin.com> for the
patch.
2002/01/26 2002/01/26
Allow [1.2.3.4] for the hostname when checking if the dns resolves Allow [1.2.3.4] for the hostname when checking if the dns resolves

11
qpsmtpd
View File

@ -11,7 +11,7 @@
# #
package QPsmtpd; package QPsmtpd;
$QPsmtpd::VERSION = "0.06"; $QPsmtpd::VERSION = "0.07";
use strict; use strict;
$| = 1; $| = 1;
use Mail::Address (); use Mail::Address ();
@ -178,18 +178,19 @@ sub data {
respond(503, "MAIL first"), return 1 unless $state{transaction}->{from}; respond(503, "MAIL first"), return 1 unless $state{transaction}->{from};
respond(503, "RCPT first"), return 1 unless $state{transaction}->{rcpt}; respond(503, "RCPT first"), return 1 unless $state{transaction}->{rcpt};
respond(354, "go ahead"); respond(354, "go ahead");
my $buffer; my $buffer = '';
my $size = 0; my $size = 0;
my $i = 0; my $i = 0;
my $max_size = (get_config('databytes'))[0] || 0; my $max_size = (get_config('databytes'))[0] || 0;
my $blocked = ""; my $blocked = "";
my %matches; my %matches;
my $header = 1; my $header = 1;
my $complete = 0;
warn "$$ max_size: $max_size / size: $size" if $TRACE > 5; warn "$$ max_size: $max_size / size: $size" if $TRACE > 5;
while (<STDIN>) { while (<STDIN>) {
last if $_ eq ".\r\n"; $complete++, last if $_ eq ".\r\n";
$i++; $i++;
respond(451, "See http://develooper.com/code/qpsmtpd/barelf.html"), exit respond(451, "See http://develooper.com/code/qpsmtpd/barelf.html"), exit
if $_ eq ".\n"; if $_ eq ".\n";
@ -223,6 +224,10 @@ sub data {
warn "$$ max_size: $max_size / size: $size" if $TRACE > 5; warn "$$ max_size: $max_size / size: $size" if $TRACE > 5;
# if we get here without seeing a terminator, the connection is
# probably dead.
respond(451, "Incomplete DATA"), return 1 unless $complete;
respond(550, $blocked),return 1 if $blocked; respond(550, $blocked),return 1 if $blocked;
respond(552, "Message too big!"),return 1 if $max_size and $size > $max_size; respond(552, "Message too big!"),return 1 if $max_size and $size > $max_size;