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

0.03 tar.gz

Browse Source
This commit is contained in:
Ask Bjørn Hansen 2001-10-30 00:39:00 -08:00
parent 997691c1dd
commit e74bec2479
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
qpsmtpd
View File

@ -12,7 +12,7 @@
# #
package QPsmtpd; package QPsmtpd;
$QPsmtpd::VERSION = "0.02"; $QPsmtpd::VERSION = "0.03";
use strict; use strict;
$| = 1; $| = 1;
use Mail::Address (); use Mail::Address ();
@ -167,6 +167,7 @@ sub data {
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";
unless ($max_size and $size > $max_size) { unless ($max_size and $size > $max_size) {
s/\r\n$/\n/;
$buffer .= $_; $buffer .= $_;
$size += length $_; $size += length $_;
} }