Handling SVDRP commands case insensitive

1 files changed, 5 insertions, 5 deletions

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