Loading tests/ftpserver.pl +58 −44 Original line number Diff line number Diff line Loading @@ -871,8 +871,13 @@ sub RCPT_smtp { } sub DATA_smtp { my ($args) = @_; my $testno = $smtp_rcpt; if ($args) { sendcontrol "501 Unrecognized parameter\r\n"; } else { $testno =~ s/^([^0-9]*)([0-9]+).*/$2/; sendcontrol "354 Show me the mail\r\n"; Loading Loading @@ -910,7 +915,9 @@ sub DATA_smtp { # end of data marker! $eob = 1; } logmsg "> Appending $size bytes to file\n"; if($eob) { logmsg "Found SMTP EOB marker\n"; last; Loading @@ -926,13 +933,19 @@ sub DATA_smtp { last; } } if($nosave) { print FILE "$ulsize bytes would've been stored here\n"; } close(FILE); sendcontrol "250 OK, data received!\r\n"; logmsg "received $ulsize bytes upload\n"; sendcontrol "250 OK, data received!\r\n"; } return 0; } sub QUIT_smtp { Loading Loading @@ -1163,6 +1176,7 @@ sub APPEND_imap { if($nosave) { print FILE "$size bytes would've been stored here\n"; } close(FILE); logmsg "received $size bytes upload\n"; Loading Loading
tests/ftpserver.pl +58 −44 Original line number Diff line number Diff line Loading @@ -871,8 +871,13 @@ sub RCPT_smtp { } sub DATA_smtp { my ($args) = @_; my $testno = $smtp_rcpt; if ($args) { sendcontrol "501 Unrecognized parameter\r\n"; } else { $testno =~ s/^([^0-9]*)([0-9]+).*/$2/; sendcontrol "354 Show me the mail\r\n"; Loading Loading @@ -910,7 +915,9 @@ sub DATA_smtp { # end of data marker! $eob = 1; } logmsg "> Appending $size bytes to file\n"; if($eob) { logmsg "Found SMTP EOB marker\n"; last; Loading @@ -926,13 +933,19 @@ sub DATA_smtp { last; } } if($nosave) { print FILE "$ulsize bytes would've been stored here\n"; } close(FILE); sendcontrol "250 OK, data received!\r\n"; logmsg "received $ulsize bytes upload\n"; sendcontrol "250 OK, data received!\r\n"; } return 0; } sub QUIT_smtp { Loading Loading @@ -1163,6 +1176,7 @@ sub APPEND_imap { if($nosave) { print FILE "$size bytes would've been stored here\n"; } close(FILE); logmsg "received $size bytes upload\n"; Loading