593 lines
15 KiB
ObjectPascal
593 lines
15 KiB
ObjectPascal
Unit NodeSpy_Term;
|
||
|
||
{$I M_OPS.PAS}
|
||
|
||
Interface
|
||
|
||
Procedure Terminal;
|
||
|
||
Implementation
|
||
|
||
Uses
|
||
m_Types,
|
||
m_DateTime,
|
||
m_Strings,
|
||
m_FileIO,
|
||
m_IniReader,
|
||
m_io_Base,
|
||
m_io_Sockets,
|
||
m_Input,
|
||
m_Output,
|
||
m_Term_Ansi,
|
||
m_MenuBox,
|
||
m_MenuForm,
|
||
NodeSpy_Common;
|
||
|
||
{$I NODESPY_ANSITERM.PAS}
|
||
|
||
Type
|
||
PhoneRec = Record
|
||
Name : String[26];
|
||
Address : String[60];
|
||
User : String[30];
|
||
Password : String[20];
|
||
StatusBar : Boolean;
|
||
LastCall : String[8];
|
||
Calls : String[5];
|
||
End;
|
||
|
||
PhoneBookRec = Array[1..100] of PhoneRec;
|
||
|
||
Var
|
||
IsBookLoaded : Boolean;
|
||
|
||
Function StripAddressPort (Str : String) : String;
|
||
Var
|
||
A : Byte;
|
||
Begin
|
||
A := Pos(':', Str);
|
||
|
||
If A > 0 Then
|
||
StripAddressPort := Copy(Str, 1, A - 1)
|
||
Else
|
||
StripAddressPort := Str;
|
||
End;
|
||
|
||
Function GetAddressPort (Addr : String) : Word;
|
||
Var
|
||
A : Byte;
|
||
Begin
|
||
A := Pos(':', Addr);
|
||
|
||
If A > 0 Then
|
||
GetAddressPort := strS2I(Copy(Addr, A+1, Length(Addr)))
|
||
Else
|
||
GetAddressPort := 23;
|
||
End;
|
||
|
||
Function GetNewRecord : PhoneRec;
|
||
Begin
|
||
FillChar (Result, SizeOf(PhoneRec), 0);
|
||
|
||
Result.StatusBar := True;
|
||
Result.LastCall := '00/00/00';
|
||
Result.Calls := '0';
|
||
End;
|
||
|
||
Procedure InitializeBook (Var Book: PhoneBookRec);
|
||
Var
|
||
Count : SmallInt;
|
||
Begin
|
||
For Count := 1 to 100 Do
|
||
Book[Count] := GetNewRecord;
|
||
|
||
Book[1].Name := 'Local Login';
|
||
Book[1].Address := 'localhost:' + strI2S(Config.INetTNPort);
|
||
End;
|
||
|
||
Procedure WriteBook (Var Book: PhoneBookRec);
|
||
Var
|
||
OutFile : Text;
|
||
Buffer : Array[1..4096] of Char;
|
||
Count : SmallInt;
|
||
Begin
|
||
//ShowMsgBox (2, 'Saving phonebook');
|
||
|
||
Assign (OutFile, 'nodespy.phn');
|
||
SetTextBuf (OutFile, Buffer);
|
||
ReWrite (OutFile);
|
||
|
||
For Count := 1 to 100 Do Begin
|
||
WriteLn (OutFile, '[' + strI2S(Count) + ']');
|
||
WriteLn (OutFile, #9 + 'name=' + Book[Count].Name);
|
||
WriteLn (OutFile, #9 + 'address=' + Book[Count].Address);
|
||
WriteLn (OutFile, #9 + 'user=' + Book[Count].User);
|
||
WriteLn (OutFile, #9 + 'pass=' + Book[Count].Password);
|
||
WriteLn (OutFile, #9 + 'statusbar=', Ord(Book[Count].StatusBar));
|
||
WriteLn (OutFile, #9 + 'last=' + Book[Count].LastCall);
|
||
WriteLn (OutFile, #9 + 'calls=' + Book[Count].Calls);
|
||
WriteLn (OutFile, '');
|
||
End;
|
||
|
||
Close (OutFile);
|
||
End;
|
||
|
||
Procedure LoadBook (Var Book: PhoneBookRec);
|
||
Var
|
||
INI : TIniReader;
|
||
Count : SmallInt;
|
||
Begin
|
||
ShowMsgBox (2, 'Loading phonebook');
|
||
|
||
INI := TIniReader.Create('nodespy.phn');
|
||
|
||
INI.Sequential := True;
|
||
|
||
For Count := 1 to 100 Do Begin
|
||
Book[Count].Name := INI.ReadString(strI2S(Count), 'name', '');
|
||
Book[Count].Address := INI.ReadString(strI2S(Count), 'address', '');
|
||
Book[Count].User := INI.ReadString(strI2S(Count), 'user', '');
|
||
Book[Count].Password := INI.ReadString(strI2S(Count), 'pass', '');
|
||
Book[Count].StatusBar := INI.ReadString(strI2S(Count), 'statusbar', '1') = '1';
|
||
Book[Count].LastCall := INI.ReadString(strI2S(Count), 'last', '');
|
||
Book[Count].Calls := INI.ReadString(strI2S(Count), 'calls', '');
|
||
End;
|
||
|
||
INI.Free;
|
||
End;
|
||
|
||
Procedure ActivateScrollback;
|
||
Var
|
||
TopPage : Integer;
|
||
BotPage : Integer;
|
||
WinSize : Byte;
|
||
Image : TConsoleImageRec;
|
||
|
||
Procedure DrawPage;
|
||
Var
|
||
Count : Integer;
|
||
YPos : Integer;
|
||
Begin
|
||
YPos := 1;
|
||
|
||
For Count := TopPage to BotPage Do Begin
|
||
Screen.WriteLineRec (YPos, Screen.ScrollBuf[Count + 1]);
|
||
Inc (YPos);
|
||
End;
|
||
End;
|
||
|
||
Var
|
||
Per : Byte;
|
||
LastPer : Byte;
|
||
BarPos : Byte;
|
||
Offset : Byte;
|
||
StatusOn : Boolean;
|
||
|
||
Procedure DrawStatus;
|
||
Begin
|
||
LastPer := 0;
|
||
StatusOn := True;
|
||
|
||
Screen.WriteXY (1, 23 + Offset, 15, strRep('<27>', 80));
|
||
Screen.WriteXY (1, 25 + Offset, 8, strRep('<27>', 80));
|
||
Screen.WriteXYPipe (1, 24 + Offset, 112, 80, ' Scrollback |01ESC|00/|01Quit |01Space|00/|01Status |00( /|01' + strPadR(strI2S(Screen.ScrollPos-1), 4, ' ') + '|00) ');
|
||
End;
|
||
|
||
Begin
|
||
If Screen.ScrollPos <= 0 Then Begin
|
||
ShowMsgBox(0, 'No scrollback data');
|
||
Exit;
|
||
End;
|
||
|
||
Case Screen.ScreenSize of
|
||
25 : Begin
|
||
Offset := 0;
|
||
WinSize := 21;
|
||
End;
|
||
50 : Begin
|
||
Offset := 25;
|
||
WinSize := 46;
|
||
End;
|
||
End;
|
||
|
||
Screen.GetScreenImage(1, 1, 80, Screen.ScreenSize, Image);
|
||
Screen.ClearScreen;
|
||
|
||
TopPage := Screen.ScrollPos - WinSize - 1;
|
||
BotPage := Screen.ScrollPos - 1;
|
||
|
||
If TopPage < 0 Then TopPage := 0;
|
||
|
||
DrawStatus;
|
||
DrawPage;
|
||
|
||
Repeat
|
||
If StatusOn Then Begin
|
||
Screen.WriteXY (70, 24 + Offset, 113, strPadL(strI2S(BotPage), 4, ' '));
|
||
|
||
Per := Round(BotPage / Screen.ScrollPos * 100 / 10);
|
||
|
||
If Per = 0 Then Per := 1;
|
||
|
||
If LastPer <> Per Then Begin
|
||
BarPos := 0;
|
||
|
||
Screen.WriteXY (58, 24 + Offset, 8, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
|
||
Repeat
|
||
Inc (BarPos);
|
||
|
||
Case BarPos of
|
||
1 : Screen.WriteXY (58, 24 + Offset, 1, '<27>');
|
||
2 : Screen.WriteXY (59, 24 + Offset, 1, '<27>');
|
||
3 : Screen.WriteXY (60, 24 + Offset, 1, '<27>');
|
||
4 : Screen.WriteXY (61, 24 + Offset, 1, '<27>');
|
||
5 : Screen.WriteXY (62, 24 + Offset, 25, '<27>');
|
||
6 : Screen.WriteXY (63, 24 + Offset, 25, '<27>');
|
||
7 : Screen.WriteXY (64, 24 + Offset, 25, '<27>');
|
||
8 : Screen.WriteXY (65, 24 + Offset, 9, '<27>');
|
||
9 : Screen.WriteXY (66, 24 + Offset, 27, '<27>');
|
||
10: Screen.WriteXY (67, 24 + Offset, 27, '<27>');
|
||
End;
|
||
Until BarPos = Per;
|
||
|
||
LastPer := Per;
|
||
End;
|
||
End;
|
||
|
||
Case Keyboard.ReadKey of
|
||
#00 : Case Keyboard.ReadKey of
|
||
keyHOME : If TopPage > 0 Then Begin
|
||
TopPage := 0;
|
||
BotPage := WinSize;
|
||
DrawPage;
|
||
End;
|
||
keyEND : If BotPage <> Screen.ScrollPos - 1 Then Begin
|
||
TopPage := Screen.ScrollPos - 1 - WinSize;
|
||
BotPage := Screen.ScrollPos - 1;
|
||
DrawPage;
|
||
End;
|
||
keyUP : If TopPage > 0 Then Begin
|
||
Dec (TopPage);
|
||
Dec (BotPage);
|
||
DrawPage;
|
||
End;
|
||
keyDOWN : If BotPage < Screen.ScrollPos - 1 Then Begin
|
||
Inc (TopPage);
|
||
Inc (BotPage);
|
||
DrawPage;
|
||
End;
|
||
keyPGUP : If TopPage - WinSize > 0 Then Begin
|
||
Dec (TopPage, WinSize);
|
||
Dec (BotPage, WinSize);
|
||
DrawPage;
|
||
End Else Begin
|
||
TopPage := 0;
|
||
BotPage := WinSize;
|
||
DrawPage;
|
||
End;
|
||
keyPGDN : If BotPage + WinSize < Screen.ScrollPos - 1 Then Begin
|
||
Inc (TopPage, WinSize + 1);
|
||
Inc (BotPage, WinSize + 1);
|
||
DrawPage;
|
||
End Else Begin
|
||
TopPage := Screen.ScrollPos - WinSize - 1;
|
||
BotPage := Screen.ScrollPos - 1;
|
||
DrawPage;
|
||
End;
|
||
End;
|
||
#27 : Break;
|
||
#32 : Begin
|
||
If StatusOn Then Begin
|
||
Case Screen.ScreenSize of
|
||
25 : WinSize := 24;
|
||
50 : WinSize := 49;
|
||
End;
|
||
StatusOn := False;
|
||
|
||
Inc (BotPage, 3);
|
||
|
||
If BotPage > Screen.ScrollPos - 1 Then Begin
|
||
TopPage := Screen.ScrollPos - WinSize - 1;
|
||
BotPage := Screen.ScrollPos - 1;
|
||
If TopPage < 0 Then TopPage := 0;
|
||
End;
|
||
|
||
DrawPage;
|
||
End Else Begin
|
||
StatusOn := True;
|
||
|
||
Case Screen.ScreenSize of
|
||
25 : WinSize := 21;
|
||
50 : WinSize := 46;
|
||
End;
|
||
|
||
Dec (BotPage, 3);
|
||
DrawStatus;
|
||
DrawPage;
|
||
End;
|
||
End;
|
||
End;
|
||
Until False;
|
||
|
||
Screen.PutScreenImage(Image);
|
||
End;
|
||
|
||
Procedure TelnetClient (Dial: PhoneRec);
|
||
|
||
Procedure DrawStatus;
|
||
Begin
|
||
If Dial.StatusBar Then Begin
|
||
Screen.SetWindow (1, 1, 80, 24, True);
|
||
Screen.WriteXY (1, 25, Config.StatusColor3, strPadC('ALT/B-Scrollback ALT/L-Send Login ALT-X/Quit', 80, ' '));
|
||
End;
|
||
End;
|
||
|
||
Const
|
||
BufferSize = 1024 * 4;
|
||
Var
|
||
Client : TIOSocket;
|
||
Res : LongInt;
|
||
Buffer : Array[1..BufferSize] of Char;
|
||
Done : Boolean;
|
||
Ch : Char;
|
||
Begin
|
||
ShowMsgBox (2, 'Connecting to ' + Dial.Address);
|
||
|
||
Client := TIOSocket.Create;
|
||
|
||
Client.FTelnetClient := True;
|
||
|
||
If Not Client.Connect(StripAddressPort(Dial.Address), GetAddressPort(Dial.Address)) Then
|
||
ShowMsgBox (0, 'Unable to connect')
|
||
Else Begin
|
||
Screen.TextAttr := 7;
|
||
Screen.ClearScreen;
|
||
|
||
Done := False;
|
||
Term := TTermAnsi.Create(TOutput(Screen));
|
||
|
||
DrawStatus;
|
||
|
||
Term.SetReplyClient(TIOBase(Client));
|
||
|
||
Repeat
|
||
If Client.DataWaiting Then Begin
|
||
Res := Client.ReadBuf (Buffer, BufferSize);
|
||
|
||
If Res < 0 Then Begin
|
||
ShowMsgBox (0, 'Connection terminated');
|
||
|
||
Done := True;
|
||
|
||
Break;
|
||
End;
|
||
|
||
Screen.Capture := True;
|
||
|
||
Term.ProcessBuf(Buffer, Res);
|
||
|
||
Screen.Capture := False;
|
||
End Else
|
||
If Keyboard.KeyPressed Then Begin
|
||
Ch := Keyboard.ReadKey;
|
||
|
||
Case Ch of
|
||
#00 : Case Keyboard.ReadKey of
|
||
#38 : Begin
|
||
Client.WriteStr (Dial.User + #13);
|
||
Client.WriteStr (Dial.Password + #13);
|
||
End;
|
||
#45 : Break;
|
||
#48 : Begin
|
||
ActivateScrollBack;
|
||
DrawStatus;
|
||
End;
|
||
#71 : Client.WriteStr(#27 + '[H');
|
||
#72 : Client.WriteStr(#27 + '[A');
|
||
#73 : Client.WriteStr(#27 + '[V');
|
||
#75 : Client.WriteStr(#27 + '[D');
|
||
#77 : Client.WriteStr(#27 + '[C');
|
||
#79 : Client.WriteStr(#27 + '[K');
|
||
#80 : Client.WriteStr(#27 + '[B');
|
||
#81 : Client.WriteStr(#27 + '[U');
|
||
#83 : Client.WriteStr(#127);
|
||
End;
|
||
Else
|
||
Client.WriteBuf(Ch, 1);
|
||
|
||
If Client.FTelnetEcho Then Term.Process(Ch);
|
||
End;
|
||
End Else
|
||
WaitMS(10);
|
||
Until Done;
|
||
|
||
Term.Free;
|
||
End;
|
||
|
||
Client.Free;
|
||
|
||
Screen.TextAttr := 7;
|
||
Screen.SetWindow (1, 1, 80, 25, True);
|
||
End;
|
||
|
||
Procedure EditEntry (Var Book: PhoneBookRec; Num: SmallInt);
|
||
Var
|
||
Box : TMenuBox;
|
||
Form : TMenuForm;
|
||
NewRec : PhoneRec;
|
||
Begin
|
||
NewRec := Book[Num];
|
||
Box := TMenuBox.Create(TOutput(Screen));
|
||
Form := TMenuForm.Create(TOutput(Screen));
|
||
|
||
Box.HeadAttr := 1 + 7 * 16;
|
||
Box.Header := ' Book Editor ';
|
||
|
||
Box.Open (17, 8, 63, 16);
|
||
|
||
Form.HelpSize := 0;
|
||
|
||
Form.AddStr ('N', ' Name' , 24, 10, 32, 10, 6, 26, 26, @NewRec.Name, '');
|
||
Form.AddStr ('A', ' Address', 21, 11, 32, 11, 9, 30, 60, @NewRec.Address, '');
|
||
Form.AddStr ('U', ' User Name', 19, 12, 32, 12, 11, 30, 30, @NewRec.User, '');
|
||
Form.AddPass ('P', ' Password', 20, 13, 32, 13, 10, 20, 20, @NewRec.Password, '');
|
||
Form.AddBol ('S', ' StatusBar', 19, 14, 32, 14, 11, 3, @NewRec.StatusBar, '');
|
||
|
||
|
||
Form.Execute;
|
||
|
||
If Form.Changed Then
|
||
If ShowMsgBox(1, 'Save changes?') Then Begin
|
||
Book[Num] := NewRec;
|
||
WriteBook(Book);
|
||
End;
|
||
|
||
Form.Free;
|
||
|
||
Box.Close;
|
||
Box.Free;
|
||
End;
|
||
|
||
Procedure SearchEntry (Var Owner: Pointer; Str: String);
|
||
Begin
|
||
If Str = '' Then
|
||
Str := strRep(' ', 17)
|
||
Else Begin
|
||
If Length(Str) > 15 Then
|
||
Str := Copy(Str, Length(Str) - 15 + 1, 255);
|
||
|
||
Str := '[' + strLower(Str) + ']';
|
||
|
||
While Length(Str) < 17 Do
|
||
Str := Str + ' ';
|
||
End;
|
||
|
||
Screen.WriteXY (TMenuList(Owner).SearchX,
|
||
23,
|
||
8 + 7 * 16,
|
||
Str);
|
||
End;
|
||
|
||
Function GetTerminalEntry (Var Book: PhoneBookRec; Var Dial: PhoneRec) : Boolean;
|
||
Var
|
||
Count : SmallInt;
|
||
Count2 : SmallInt;
|
||
List : TMenuList;
|
||
Found : Boolean;
|
||
Picked : SmallInt;
|
||
Begin
|
||
Result := False;
|
||
|
||
If Not FileExist('nodespy.phn') Then Begin
|
||
ShowMsgBox (2, 'Creating phone book');
|
||
WriteBook (Book);
|
||
|
||
IsBookLoaded := True;
|
||
End Else
|
||
If Not IsBookLoaded Then Begin
|
||
LoadBook(Book);
|
||
IsBookLoaded := True;
|
||
End;
|
||
|
||
DrawTerminalAnsi;
|
||
|
||
Picked := 1;
|
||
|
||
List := TMenuList.Create(TOutput(Screen));
|
||
|
||
List.NoWindow := True;
|
||
List.LoAttr := 7;
|
||
List.HiAttr := 9 + 1 * 16;
|
||
List.LoChars := #13#27;
|
||
List.HiChars := #18#82#83;
|
||
List.SetSearchProc(SearchEntry);
|
||
|
||
Repeat
|
||
List.Clear;
|
||
|
||
List.Picked := Picked;
|
||
|
||
For Count := 1 to 100 Do
|
||
List.Add(strPadR(Book[Count].Name, 26, ' ') + ' ' +
|
||
strPadR(Book[Count].Address, 26, ' ') + ' ' +
|
||
Book[Count].LastCall + ' ' +
|
||
strPadL(Book[Count].Calls, 6, ' '),
|
||
2);
|
||
|
||
List.Open(1, 12, 80, 22);
|
||
|
||
Picked := List.Picked;
|
||
|
||
Case List.ExitCode of
|
||
#13 : If Book[List.Picked].Address = '' Then
|
||
ShowMsgBox(0, 'Address is empty')
|
||
Else Begin
|
||
With Book[List.Picked] Do Begin
|
||
LastCall := DateDos2Str(CurDateDos, 1);
|
||
Calls := strI2S(strS2I(Calls) + 1);
|
||
End;
|
||
|
||
WriteBook(Book);
|
||
|
||
Dial := Book[List.Picked];
|
||
Result := True;
|
||
|
||
Break;
|
||
End;
|
||
#18 : EditEntry(Book, List.Picked);
|
||
#27 : Break;
|
||
#82 : Begin
|
||
Found := False;
|
||
|
||
For Count := List.Picked to 100 Do
|
||
If (Book[Count].Name = '') and (Book[Count].Address = '') and (Book[Count].Calls = '0') Then Begin
|
||
Found := True;
|
||
Break;
|
||
End;
|
||
|
||
If Not Found Then
|
||
ShowMsgBox (0, 'No blank entries available')
|
||
Else Begin
|
||
For Count2 := Count DownTo List.Picked + 1 Do
|
||
Book[Count2] := Book[Count2 - 1];
|
||
|
||
Book[List.Picked] := GetNewRecord;
|
||
|
||
WriteBook(Book);
|
||
End;
|
||
End;
|
||
#83 : If ShowMsgBox(1, 'Delete this record?') Then Begin
|
||
For Count := List.Picked to 100 - 1 Do
|
||
Book[Count] := Book[Count + 1];
|
||
|
||
Book[100] := GetNewRecord;
|
||
|
||
WriteBook(Book);
|
||
End;
|
||
End;
|
||
Until False;
|
||
|
||
List.Free;
|
||
End;
|
||
|
||
Procedure Terminal;
|
||
Var
|
||
Dial : PhoneRec;
|
||
Book : PhoneBookRec;
|
||
Begin
|
||
Screen.SetWindowTitle('NodeSpy/Terminal');
|
||
|
||
InitializeBook(Book);
|
||
|
||
IsBookLoaded := False;
|
||
|
||
Repeat
|
||
If Not GetTerminalEntry(Book, Dial) Then Break;
|
||
|
||
TelnetClient(Dial);
|
||
Until False;
|
||
End;
|
||
|
||
End.
|