Handling SVDRP commands case insensitive

This commit is contained in:
Klaus Schmidinger 2018-03-09 10:49:48 +01:00
parent 1275de1b07
commit ec0e368a7f
1 changed files with 5 additions and 5 deletions

View File

@ -76,20 +76,20 @@ while (1) {
$fh->recv($Request, 1024); $fh->recv($Request, 1024);
chomp($Request); chomp($Request);
Log('<', $fh, $Request) if ($Request); Log('<', $fh, $Request) if ($Request);
if ($Request =~ /^CONN/) { if ($Request =~ /^CONN/i) {
Reply($fh, "250 OK"); Reply($fh, "250 OK");
ReportVDR($Request, $fh->peerhost()); ReportVDR($Request, $fh->peerhost());
} }
elsif ($Request =~ /^LSTT/) { elsif ($Request =~ /^LSTT/i) {
Reply($fh, "550 No timers defined"); Reply($fh, "550 No timers defined");
} }
elsif ($Request =~ /^POLL/) { elsif ($Request =~ /^POLL/i) {
Reply($fh, "250 OK"); Reply($fh, "250 OK");
} }
elsif ($Request =~ /^PING/) { elsif ($Request =~ /^PING/i) {
Reply($fh, "250 $Name is alive"); Reply($fh, "250 $Name is alive");
} }
elsif ($Request =~ /^QUIT/ || !$Request) { elsif ($Request =~ /^QUIT/i || !$Request) {
# close connection: # close connection:
Log('<', $fh, "connection closed"); Log('<', $fh, "connection closed");
$SvdrpSelect->remove($fh); $SvdrpSelect->remove($fh);