From 7f21a95101e095598000e413f25ec57551011ebe Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Sun, 24 Feb 2013 23:29:12 -0500 Subject: [PATCH] Ghost node chat in Windows --- mystic/mis_client_telnet.pas | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/mystic/mis_client_telnet.pas b/mystic/mis_client_telnet.pas index 7d85e92..48de631 100644 --- a/mystic/mis_client_telnet.pas +++ b/mystic/mis_client_telnet.pas @@ -17,6 +17,7 @@ Uses {$ENDIF} m_io_Base, m_io_Sockets, + m_FileIO, m_Strings, MIS_Common, MIS_NodeData, @@ -101,6 +102,8 @@ Begin NI.Action := ''; ND.SetNodeInfo(Num, NI); + + FileErase (bbsConfig.DataPath + 'chat' + strI2S(Num) + '.dat'); End; {$ENDIF} @@ -154,16 +157,14 @@ Begin Proc.Free; - FileMode := 66; - - FileErase (bbsConfig.DataPath + 'chat' + strI2S(NI.Num) + '.dat'); - NI.Busy := False; NI.IP := ''; NI.User := ''; NI.Action := ''; ND.SetNodeInfo(Num, NI); + + FileErase (bbsConfig.DataPath + 'chat' + strI2S(NI.Num) + '.dat'); End; {$ENDIF}