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

Now escapes outbound Telnet IAC

This commit is contained in:
mysticbbs 2012-08-13 22:00:19 -04:00
parent a08882b93e
commit 9e7f0ae4ed
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/mis_client_telnet.pas
View File

@ -109,7 +109,8 @@ Var
Num : LongInt; Num : LongInt;
NI : TNodeInfoRec; NI : TNodeInfoRec;
Proc : TProcess; Proc : TProcess;
Buffer : Array[1..BufferSize] of Char; // Buffer : Array[1..BufferSize] of Char;
Buffer : TIOBuffer;
bRead : LongInt; bRead : LongInt;
bWrite : LongInt; bWrite : LongInt;
Begin Begin
@ -137,7 +138,7 @@ Begin
If Proc.Output.NumBytesAvailable > 0 Then Begin If Proc.Output.NumBytesAvailable > 0 Then Begin
While Proc.Output.NumBytesAvailable > 0 Do Begin While Proc.Output.NumBytesAvailable > 0 Do Begin
bRead := Proc.Output.Read(Buffer, BufferSize); bRead := Proc.Output.Read(Buffer, BufferSize);
Client.WriteBuf (Buffer, bRead); Client.WriteBufEscaped (Buffer, bRead);
If Snooping Then If Snooping Then
Term.ProcessBuf(Buffer[1], bRead); Term.ProcessBuf(Buffer[1], bRead);