From 9d37f0d9e60cec94bc7b2469fca0468292b5cc97 Mon Sep 17 00:00:00 2001
From: iliajie <gpg@ilia.engineer>
Date: Tue, 20 Dec 2022 20:28:53 +0200
Subject: [PATCH] Fix to also check if session keys are set

---
 xterm/shellserver.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/xterm/shellserver.pl b/xterm/shellserver.pl
index 23da516b2..b152c4bfd 100755
--- a/xterm/shellserver.pl
+++ b/xterm/shellserver.pl
@@ -125,7 +125,7 @@ Net::WebSocket::Server->new(
 				my $dsess = &encode_base64($main::session_id);
 				$key   =~ s/\s//g;
 				$dsess =~ s/\s//g;
-				if ($key ne $dsess) {
+				if (!$key || !$dsess || $key ne $dsess) {
 					print STDERR "Key $key does not match session ID $dsess\n";
 					$conn->disconnect();
 					}