From 7320e3db69d4ad79cb504aefd741c87e5aebfcea Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Sat, 10 Mar 2012 03:49:11 -0500 Subject: [PATCH] MIS telnet linux updates --- mystic/mis_client_telnet.pas | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/mystic/mis_client_telnet.pas b/mystic/mis_client_telnet.pas index 203ce3c..a5bb58d 100644 --- a/mystic/mis_client_telnet.pas +++ b/mystic/mis_client_telnet.pas @@ -10,6 +10,7 @@ Uses Classes, Process, SysUtils, + m_FileIO, {$ENDIF} {$IFDEF WINDOWS} Windows, @@ -142,11 +143,13 @@ Begin If bWrite > 0 Then Proc.Input.Write(Buffer, bWrite); End Else - Sleep(25); + Sleep(10); End; Proc.Free; + FileErase (bbsConfig.DataPath + 'chat' + strI2S(NI.Num) + '.dat'); + NI.Busy := False; NI.IP := ''; NI.User := ''; @@ -161,4 +164,4 @@ Begin Inherited Destroy; End; -End. \ No newline at end of file +End.