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

Footprint/psuedocode for "ddtelnet" type integration to MIS for Linux/OSX

This commit is contained in:
mysticbbs 2012-02-18 02:47:18 -05:00
parent cb9d67bc39
commit a951d7f2e7
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
mystic/mis_client_telnet.pas
View File

@ -72,7 +72,7 @@ Begin
NI.User := 'Unknown'; NI.User := 'Unknown';
NI.Action := 'Logging In'; NI.Action := 'Logging In';
ND.SetNodeInfo(Num, NI); ND.SetNodeInfo(Num, NI);
FillChar(SI, SizeOf(SI), 0); FillChar(SI, SizeOf(SI), 0);
FillChar(PI, SizeOf(PI), 0); FillChar(PI, SizeOf(PI), 0);
@ -99,12 +99,9 @@ Var
Cmd : String; Cmd : String;
Num : LongInt; Num : LongInt;
NI : TNodeInfoRec; NI : TNodeInfoRec;
PassHandle : LongInt;
Begin Begin
PassHandle := Client.FSocketHandle;
Num := ND.GetFreeNode; Num := ND.GetFreeNode;
Cmd := './mystic -n' + strI2S(Num) + ' -TID' + strI2S(PassHandle) + ' -UID' + Client.FPeerIP; Cmd := './mystic -n' + strI2S(Num) + ' -IP' + Client.FPeerIP + ' -HOST' + Client.FPeerName;
FillChar(NI, SizeOf(NI), 0); FillChar(NI, SizeOf(NI), 0);
@ -114,9 +111,20 @@ Begin
NI.User := 'Unknown'; NI.User := 'Unknown';
NI.Action := 'Logging In'; NI.Action := 'Logging In';
ND.SetNodeInfo(Num, NI); ND.SetNodeInfo(Num, NI);
fpSystem(Cmd); // setup and execute Cmd as defined above, setting up STDIO handles
fpSystem(Cmd); // placeholder for above
// redirection of STDIO psuedocode loop here
// NOTE client class already escapes telnet protocol, no need for that.
//
// while processGoing do begin
// case waitEvent(Input or output)
// input : push input to Client class
// output : push output to client class
// end
NI.Busy := False; NI.Busy := False;
NI.IP := ''; NI.IP := '';
@ -132,4 +140,4 @@ Begin
Inherited Destroy; Inherited Destroy;
End; End;
End. End.