Fixed handling close of connections

This commit is contained in:
Klaus Schmidinger 2018-03-01 15:00:32 +01:00
parent 4d7455e783
commit 7b77f400a1
1 changed files with 3 additions and 2 deletions

View File

@ -75,7 +75,7 @@ while (1) {
my $Request = ""; my $Request = "";
$fh->recv($Request, 1024); $fh->recv($Request, 1024);
chomp($Request); chomp($Request);
Log('<', $fh, $Request); Log('<', $fh, $Request) if ($Request);
if ($Request =~ /^CONN/) { if ($Request =~ /^CONN/) {
Reply($fh, "250 OK"); Reply($fh, "250 OK");
ReportVDR($Request, $fh->peerhost()); ReportVDR($Request, $fh->peerhost());
@ -89,8 +89,9 @@ while (1) {
elsif ($Request =~ /^PING/) { elsif ($Request =~ /^PING/) {
Reply($fh, "250 $Name is alive"); Reply($fh, "250 $Name is alive");
} }
elsif ($Request =~ /^QUIT/) { elsif ($Request =~ /^QUIT/ || !$Request) {
# close connection: # close connection:
Log('<', $fh, "connection closed");
$SvdrpSelect->remove($fh); $SvdrpSelect->remove($fh);
$fh->close; $fh->close;
} }