eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ghost node chat in Windows

This commit is contained in:
mysticbbs 2013-02-24 23:29:12 -05:00
parent d38108c1c9
commit 7f21a95101
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
mystic/mis_client_telnet.pas
View File

@ -17,6 +17,7 @@ Uses
{$ENDIF} {$ENDIF}
m_io_Base, m_io_Base,
m_io_Sockets, m_io_Sockets,
m_FileIO,
m_Strings, m_Strings,
MIS_Common, MIS_Common,
MIS_NodeData, MIS_NodeData,
@ -101,6 +102,8 @@ Begin
NI.Action := ''; NI.Action := '';
ND.SetNodeInfo(Num, NI); ND.SetNodeInfo(Num, NI);
FileErase (bbsConfig.DataPath + 'chat' + strI2S(Num) + '.dat');
End; End;
{$ENDIF} {$ENDIF}
@ -154,16 +157,14 @@ Begin
Proc.Free; Proc.Free;
FileMode := 66;
FileErase (bbsConfig.DataPath + 'chat' + strI2S(NI.Num) + '.dat');
NI.Busy := False; NI.Busy := False;
NI.IP := ''; NI.IP := '';
NI.User := ''; NI.User := '';
NI.Action := ''; NI.Action := '';
ND.SetNodeInfo(Num, NI); ND.SetNodeInfo(Num, NI);
FileErase (bbsConfig.DataPath + 'chat' + strI2S(NI.Num) + '.dat');
End; End;
{$ENDIF} {$ENDIF}