Sends IAC_DO_BINARY now

mdl/m_io_sockets.pas

@@ -79,24 +79,69 @@ Type
 
 Implementation
 
+{.$DEFINE SOCKETLOG}
+
 { TELNET NEGOTIATION CONSTANTS }
 
 Const
-  Telnet_IAC    = #255;
+  Telnet_IAC      = #255;
-  Telnet_DONT   = #254;
+  Telnet_DONT     = #254;
-  Telnet_DO     = #253;
+  Telnet_DO       = #253;
-  Telnet_WONT   = #252;
+  Telnet_WONT     = #252;
-  Telnet_WILL   = #251;
+  Telnet_WILL     = #251;
-  Telnet_SB     = #250;
+  Telnet_SB       = #250;
-  Telnet_BINARY = #000;
+  Telnet_BINARY   = #000;
-  Telnet_ECHO   = #001;
+  Telnet_ECHO     = #001;
-  Telnet_SE     = #240;
+  Telnet_SE       = #240;
-  Telnet_TERM   = #24;
+  Telnet_TERM     = #24;
-  Telnet_SGA    = #003;
+  Telnet_SGA      = #003;
+  Telnet_WINSIZE  = #31;
+  Telnet_SPEED    = #32;
+  Telnet_FLOW     = #33;
+  Telnet_LINEMODE = #34;
 
   FPSENDOPT     = 0;
   FPRECVOPT     = 0;
 
+{$IFDEF SOCKETLOG}
+Function sCmd (C: Char) : String;
+Begin
+  Case C of
+    Telnet_IAC      : Result := ' IAC ';
+    Telnet_DONT     : Result := ' DONT ';
+    Telnet_DO       : Result := ' DO ';
+    Telnet_WONT     : Result := ' WONT ';
+    Telnet_WILL     : Result := ' WILL ';
+    Telnet_SB       : Result := ' SB ';
+    Telnet_BINARY   : Result := ' BINARY ';
+    Telnet_ECHO     : Result := ' ECHO ';
+    Telnet_SE       : Result := ' SE ';
+    Telnet_TERM     : Result := ' TERM ';
+    Telnet_SGA      : Result := ' SGA ';
+    Telnet_WINSIZE  : Result := ' WINSIZE ';
+    Telnet_SPEED    : Result := ' SPEED ';
+    Telnet_FLOW     : Result := ' FLOW ';
+    Telnet_LINEMODE : Result := ' LINEMODE ';
+  Else
+    Result := ' UNKNOWN ' + strI2S(Ord(C)) + ' ';
+  End;
+End;
+
+Procedure sLog (S: String);
+Var
+  T : Text;
+Begin
+  Assign (T, 'socket.log');
+  Append (T);
+
+  If IoResult <> 0 Then ReWrite(T);
+
+  WriteLn(T, S);
+
+  Close(T);
+End;
+{$ENDIF}
+
 Constructor TIOSocket.Create;
 Begin
   Inherited Create;
@@ -143,6 +188,8 @@ Begin
   Result := fpSend(FSocketHandle, @Buf, Len, FPSENDOPT);
 
   While (Result = -1) and (SocketError = ESOCKEWOULDBLOCK) Do Begin
+    {$IFDEF SOCKETLOG} sLog('WriteBuf Blocking'); {$ENDIF}
+
     WaitMS(10);
 
     Result := fpSend(FSocketHandle, @Buf, Len, FPSENDOPT);
@@ -246,6 +293,8 @@ Begin
   Result := fpSend(FSocketHandle, @Temp, TempPos, FPSENDOPT);
 
   While (Result = -1) and (SocketError = ESOCKEWOULDBLOCK) Do Begin
+    {$IFDEF SOCKETLOG} sLog('WriteBuf Blocking'); {$ENDIF}
+
     WaitMS(10);
 
     Result := fpSend(FSocketHandle, @Temp, TempPos, FPSENDOPT);
@@ -263,6 +312,8 @@ Procedure TIOSocket.TelnetInBuffer (Var Buf: TIOBuffer; Var Len: LongInt);
     Reply[3] := CmdType;
 
     fpSend (FSocketHandle, @Reply[1], 3, FPSENDOPT);
+
+    {$IFDEF SOCKETLOG} sLog('Sending cmd: ' + sCmd(YesNo) + sCmd(CmdType)); sLog(''); {$ENDIF}
   End;
 
   Procedure SendData (CmdType: Char; Data: String);
@@ -283,6 +334,8 @@ Procedure TIOSocket.TelnetInBuffer (Var Buf: TIOBuffer; Var Len: LongInt);
     Reply[7 + DataLen] := Telnet_SE;
 
     fpSend (FSocketHandle, @Reply[1], 7 + DataLen, FPSENDOPT);
+
+    {$IFDEF SOCKETLOG} sLog('Sending data: ' + sCmd(CmdType) + Data); {$ENDIF}
   End;
 
 Var
@@ -295,6 +348,8 @@ Begin
   TempPos := 0;
 
   For Count := 0 to Len - 1 Do Begin
+    {$IFDEF SOCKETLOG} sLog('State loop: ' + strI2S(FTelnetState) + ' Cmd: ' + sCmd(Buf[Count]));{$ENDIF}
+
     Case FTelnetState of
       1 : If Buf[Count] = Telnet_IAC Then Begin
             FTelnetState := 0;
@@ -305,7 +360,7 @@ Begin
             FTelnetCmd := Buf[Count];
           End;
       2 : Begin
-            FTelnetState := 0;
+            FTelnetState := 0;    // reset state after command
 
             Case FTelnetCmd of
               Telnet_WONT : Begin
@@ -330,26 +385,17 @@ Begin
                                 ReplyBad  := Telnet_DONT;
                               End;
 
-                              If FTelnetClient Then Begin
+                              Case Buf[Count] of
-                                Case Buf[Count] of
+                                Telnet_BINARY,
-                                  Telnet_BINARY,
+                                Telnet_ECHO,
-                                  Telnet_ECHO,
+                                Telnet_SGA,
-                                  Telnet_SGA,
+                                Telnet_TERM : SendCommand(ReplyGood, Buf[Count])
-                                  Telnet_TERM : SendCommand(ReplyGood, Buf[Count])
+                              Else
-                                Else
+                                SendCommand(ReplyBad, Buf[Count]);
-                                  SendCommand(ReplyBad, Buf[Count]);
-                                End;
-
-                                If Buf[Count] = Telnet_Echo Then
-                                  FTelnetEcho := (FTelnetCmd = Telnet_DO);
-                              End Else Begin
-                                Case Buf[Count] of
-                                  Telnet_ECHO : FTelnetEcho := True;
-                                  Telnet_SGA  : ;
-                                Else
-                                  SendCommand(ReplyBad, Buf[Count]);
-                                End;
                               End;
+
+                              If Buf[Count] = Telnet_Echo Then
+                                FTelnetEcho := True;
                             End;
             End;
           End;
@@ -365,9 +411,10 @@ Begin
             FTelnetSubData := FTelnetSubData + Buf[Count];
     Else
       If Buf[Count] = Telnet_IAC Then Begin
-        Inc (FTelnetState);
+        Inc (FTelnetState); // might need to make this := 1;
       End Else Begin
         Temp[TempPos] := Buf[Count];
+
         Inc (TempPos);
       End;
     End;
@@ -578,8 +625,14 @@ Begin
   Client.FTelnetServer := FTelnetServer;
   Client.FTelnetClient := FTelnetClient;
 
-  If FTelnetServer Then
+  If FTelnetServer Then Begin
-    Client.WriteStr(#255#251#001#255#251#003);  // IAC WILL ECHO
+    {$IFDEF SOCKETLOG} sLog('Sending cmd: DO ECHO'); {$ENDIF}
+    {$IFDEF SOCKETLOG} sLog('Sending cmd: WILL SGA'); {$ENDIF}
+
+    Client.WriteStr (TELNET_IAC + TELNET_WILL + TELNET_ECHO +
+                     TELNET_IAC + TELNET_WILL + TELNET_SGA  +
+                     TELNET_IAC + TELNET_DO   + TELNET_BINARY);
+  End;
 
   Result := Client;
 End;