fix: Detect client disconnect, avoiding crash (#8)

meyfa · Apr 2, 2024 · 385ef47 · 385ef47
1 parent 006d803
commit 385ef47
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/server.cob b/server.cob
@@ -51,6 +51,11 @@ AcceptConnection.
 ReceivePacket SECTION.
     *> Read packet length
     CALL "Read-VarInt" USING HNDL ERRNO BYTE-COUNT PACKET-LENGTH.
+    IF ERRNO = 2
+        DISPLAY "Client lost connection"
+        MOVE 255 TO CLIENT-STATE
+        EXIT SECTION
+    END-IF
     PERFORM HandleError.
 
     *> Read packet ID