Tons of new stuff
This commit is contained in:
mysticbbs
parent
ec72b8cb54
commit
f72b920e48
|
|
@ -1,10 +1,29 @@
|
||||||
|
// ====================================================================
|
||||||
|
// Mystic BBS Software Copyright 1997-2012 By James Coyle
|
||||||
|
// ====================================================================
|
||||||
|
//
|
||||||
|
// This file is part of Mystic BBS.
|
||||||
|
//
|
||||||
|
// Mystic BBS is free software: you can redistribute it and/or modify
|
||||||
|
// it under the terms of the GNU General Public License as published by
|
||||||
|
// the Free Software Foundation, either version 3 of the License, or
|
||||||
|
// (at your option) any later version.
|
||||||
|
//
|
||||||
|
// Mystic BBS is distributed in the hope that it will be useful,
|
||||||
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
// GNU General Public License for more details.
|
||||||
|
//
|
||||||
|
// You should have received a copy of the GNU General Public License
|
||||||
|
// along with Mystic BBS. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
//
|
||||||
|
// ====================================================================
|
||||||
|
|
||||||
Program NodeSpy;
|
Program NodeSpy;
|
||||||
|
|
||||||
// page chat
|
// page chat notification
|
||||||
// user editor
|
// user editor
|
||||||
// split chat
|
// split chat
|
||||||
// auto snoop
|
|
||||||
// local login
|
|
||||||
// terminal mode
|
// terminal mode
|
||||||
|
|
||||||
{$I M_OPS.PAS}
|
{$I M_OPS.PAS}
|
||||||
|
|
@ -21,6 +40,8 @@ Uses
|
||||||
m_Pipe_Disk,
|
m_Pipe_Disk,
|
||||||
m_Input,
|
m_Input,
|
||||||
m_Output,
|
m_Output,
|
||||||
|
m_io_Base,
|
||||||
|
m_io_Sockets,
|
||||||
m_Term_Ansi,
|
m_Term_Ansi,
|
||||||
m_MenuBox,
|
m_MenuBox,
|
||||||
m_MenuInput;
|
m_MenuInput;
|
||||||
|
|
@ -32,17 +53,39 @@ Const
|
||||||
UpdateNode = 500;
|
UpdateNode = 500;
|
||||||
UpdateStats = 6000 * 10;
|
UpdateStats = 6000 * 10;
|
||||||
|
|
||||||
AutoSnoop : Boolean = True;
|
AutoSnoop : Boolean = True;
|
||||||
|
AutoSnoopID : LongInt = 0;
|
||||||
|
|
||||||
Type
|
Type
|
||||||
|
StatsRec = Record
|
||||||
|
TotalDays : LongInt;
|
||||||
|
TodayCalls : LongInt;
|
||||||
|
TotalCalls : LongInt;
|
||||||
|
TodayNewUsers : LongInt;
|
||||||
|
TotalNewUsers : LongInt;
|
||||||
|
TodayPosts : LongInt;
|
||||||
|
TotalPosts : LongInt;
|
||||||
|
TodayEmail : LongInt;
|
||||||
|
TotalEmail : LongInt;
|
||||||
|
TodayDownloads : LongInt;
|
||||||
|
TotalDownloads : LongInt;
|
||||||
|
TodayUploads : LongInt;
|
||||||
|
TotalUploads : LongInt;
|
||||||
|
Weekly : Array[0..6] of LongInt;
|
||||||
|
Monthly : Array[1..12] of LongInt;
|
||||||
|
Hourly : Array[0..23] of LongInt;
|
||||||
|
End;
|
||||||
|
|
||||||
PNodeInfo = ^TNodeInfo;
|
PNodeInfo = ^TNodeInfo;
|
||||||
TNodeInfo = Record
|
TNodeInfo = Record
|
||||||
|
ID : LongInt;
|
||||||
Node : Byte;
|
Node : Byte;
|
||||||
User : String[30];
|
User : String[30];
|
||||||
Action : String[50];
|
Action : String[50];
|
||||||
End;
|
End;
|
||||||
|
|
||||||
Var
|
Var
|
||||||
|
Stats : StatsRec;
|
||||||
NodeInfo : Array[1..255] of PNodeInfo;
|
NodeInfo : Array[1..255] of PNodeInfo;
|
||||||
ChatFile : File of ChatRec;
|
ChatFile : File of ChatRec;
|
||||||
Chat : ChatRec;
|
Chat : ChatRec;
|
||||||
|
|
@ -53,6 +96,7 @@ Var
|
||||||
BasePath : String;
|
BasePath : String;
|
||||||
Screen : TOutput;
|
Screen : TOutput;
|
||||||
Keyboard : TInput;
|
Keyboard : TInput;
|
||||||
|
Term : TTermAnsi;
|
||||||
|
|
||||||
{$I NODESPY_ANSI.PAS}
|
{$I NODESPY_ANSI.PAS}
|
||||||
|
|
||||||
|
|
@ -451,7 +495,6 @@ End;
|
||||||
Procedure SnoopNode (Node: Byte);
|
Procedure SnoopNode (Node: Byte);
|
||||||
Var
|
Var
|
||||||
Pipe : TPipeDisk;
|
Pipe : TPipeDisk;
|
||||||
Term : TTermAnsi;
|
|
||||||
Buffer : Array[1..4 * 1024] of Char;
|
Buffer : Array[1..4 * 1024] of Char;
|
||||||
BufRead : LongInt;
|
BufRead : LongInt;
|
||||||
Update : LongInt;
|
Update : LongInt;
|
||||||
|
|
@ -499,7 +542,7 @@ Begin
|
||||||
|
|
||||||
Term := TTermAnsi.Create(Screen);
|
Term := TTermAnsi.Create(Screen);
|
||||||
|
|
||||||
Screen.SetWindowTitle('[NodeSpy] Snooping ' + strI2S(Node));
|
Screen.SetWindowTitle('NodeSpy/Snoop ' + strI2S(Node));
|
||||||
|
|
||||||
DrawStatus;
|
DrawStatus;
|
||||||
|
|
||||||
|
|
@ -546,6 +589,84 @@ Begin
|
||||||
Pipe.Disconnect;
|
Pipe.Disconnect;
|
||||||
Pipe.Free;
|
Pipe.Free;
|
||||||
Term.Free;
|
Term.Free;
|
||||||
|
|
||||||
|
AutoSnoopID := NodeInfo[Node]^.ID;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Procedure LocalLogin;
|
||||||
|
Const
|
||||||
|
BufferSize = 1024 * 4;
|
||||||
|
Var
|
||||||
|
Client : TIOSocket;
|
||||||
|
Res : LongInt;
|
||||||
|
Buffer : Array[1..BufferSize] of Char;
|
||||||
|
Done : Boolean;
|
||||||
|
Ch : Char;
|
||||||
|
Begin
|
||||||
|
Screen.SetWindowTitle('NodeSpy/Local login');
|
||||||
|
|
||||||
|
Screen.TextAttr := 7;
|
||||||
|
Screen.ClearScreen;
|
||||||
|
Screen.WriteStr ('Connecting to 127.0.0.1... ');
|
||||||
|
|
||||||
|
Client := TIOSocket.Create;
|
||||||
|
|
||||||
|
If Not Client.Connect('127.0.0.1', Config.InetTNPort) Then
|
||||||
|
ShowMsgBox (0, 'Unable to connect')
|
||||||
|
Else Begin
|
||||||
|
Done := False;
|
||||||
|
Term := TTermAnsi.Create(Screen);
|
||||||
|
|
||||||
|
If Config.UseStatusBar Then Begin
|
||||||
|
Screen.SetWindow (1, 1, 80, 24, True);
|
||||||
|
Screen.WriteXY (1, 25, Config.StatusColor3, strPadC('Local TELNET: ALT-X to Quit', 80, ' '));
|
||||||
|
End;
|
||||||
|
|
||||||
|
Term.SetReplyClient(TIOBase(Client));
|
||||||
|
|
||||||
|
Repeat
|
||||||
|
If Client.WaitForData(0) > 0 Then Begin
|
||||||
|
Repeat
|
||||||
|
Res := Client.ReadBuf (Buffer, BufferSize);
|
||||||
|
|
||||||
|
If Res < 0 Then Begin
|
||||||
|
Done := True;
|
||||||
|
Break;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Term.ProcessBuf(Buffer, Res);
|
||||||
|
Until Res <> BufferSize;
|
||||||
|
End Else
|
||||||
|
If Keyboard.KeyPressed Then Begin
|
||||||
|
Ch := Keyboard.ReadKey;
|
||||||
|
Case Ch of
|
||||||
|
#00 : Case Keyboard.ReadKey of
|
||||||
|
#45 : Break;
|
||||||
|
#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(5);
|
||||||
|
Until Done;
|
||||||
|
|
||||||
|
Term.Free;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Client.Free;
|
||||||
|
|
||||||
|
Screen.TextAttr := 7;
|
||||||
|
Screen.SetWindow (1, 1, 80, 25, True);
|
||||||
End;
|
End;
|
||||||
|
|
||||||
Procedure UpdateOnlineStatus;
|
Procedure UpdateOnlineStatus;
|
||||||
|
|
@ -557,7 +678,11 @@ Begin
|
||||||
NodeInfo[Count]^.Node := Count;
|
NodeInfo[Count]^.Node := Count;
|
||||||
NodeInfo[Count]^.User := Chat.Name;
|
NodeInfo[Count]^.User := Chat.Name;
|
||||||
NodeInfo[Count]^.Action := Chat.Action;
|
NodeInfo[Count]^.Action := Chat.Action;
|
||||||
|
|
||||||
|
If NodeInfo[Count]^.ID = 0 Then
|
||||||
|
NodeInfo[Count]^.ID := CurDateDos + Count;
|
||||||
End Else Begin
|
End Else Begin
|
||||||
|
NodeInfo[Count]^.ID := 0;
|
||||||
NodeInfo[Count]^.Node := Count;
|
NodeInfo[Count]^.Node := Count;
|
||||||
NodeInfo[Count]^.User := 'Waiting';
|
NodeInfo[Count]^.User := 'Waiting';
|
||||||
NodeInfo[Count]^.Action := 'Waiting';
|
NodeInfo[Count]^.Action := 'Waiting';
|
||||||
|
|
@ -566,46 +691,60 @@ End;
|
||||||
|
|
||||||
Procedure MainMenu;
|
Procedure MainMenu;
|
||||||
Var
|
Var
|
||||||
StatTotalDays : LongInt = 0;
|
|
||||||
StatTodayCalls : LongInt = 0;
|
|
||||||
StatTotalCalls : LongInt = 0;
|
|
||||||
StatTodayNewUsers : LongInt = 0;
|
|
||||||
StatTotalNewUsers : LongInt = 0;
|
|
||||||
StatTodayPosts : LongInt = 0;
|
|
||||||
StatTotalPosts : LongInt = 0;
|
|
||||||
StatTodayEmail : LongInt = 0;
|
|
||||||
StatTotalEmail : LongInt = 0;
|
|
||||||
StatTodayDownloads : LongInt = 0;
|
|
||||||
StatTotalDownloads : LongInt = 0;
|
|
||||||
StatTodayUploads : LongInt = 0;
|
|
||||||
StatTotalUploads : LongInt = 0;
|
|
||||||
|
|
||||||
NodeTimer : LongInt;
|
NodeTimer : LongInt;
|
||||||
TopPage : SmallInt = 1;
|
TopPage : SmallInt = 1;
|
||||||
CurNode : SmallInt = 1;
|
CurNode : SmallInt = 1;
|
||||||
|
|
||||||
Procedure DrawStats;
|
Procedure DrawStats;
|
||||||
Begin
|
|
||||||
Screen.WriteXY (12, 18, 9, strPadL(strI2S(StatTodayCalls), 6, ' '));
|
|
||||||
Screen.WriteXY (12, 19, 9, strPadL(strI2S(StatTodayNewUsers), 6, ' '));
|
|
||||||
Screen.WriteXY (12, 20, 9, strPadL(strI2S(StatTodayPosts), 6, ' '));
|
|
||||||
Screen.WriteXY (12, 21, 9, strPadL(strI2S(StatTodayEmail), 6, ' '));
|
|
||||||
Screen.WriteXY (12, 22, 9, strPadL(strI2S(StatTodayDownloads), 6, ' '));
|
|
||||||
Screen.WriteXY (12, 23, 9, strPadL(strI2S(StatTodayUploads), 6, ' '));
|
|
||||||
|
|
||||||
Screen.WriteXY (19, 18, 9, strPadL(strComma(StatTotalCalls), 12, ' '));
|
Procedure DrawBar (PosX: Byte; Value: Byte);
|
||||||
Screen.WriteXY (19, 19, 9, strPadL(strComma(StatTotalNewUsers), 12, ' '));
|
Var
|
||||||
Screen.WriteXY (19, 20, 9, strPadL(strComma(StatTotalPosts), 12, ' '));
|
Count : Byte;
|
||||||
Screen.WriteXY (19, 21, 9, strPadL(strComma(StatTotalEmail), 12, ' '));
|
Begin
|
||||||
Screen.WriteXY (19, 22, 9, strPadL(strComma(StatTotalDownloads), 12, ' '));
|
For Count := 1 to 5 Do
|
||||||
Screen.WriteXY (19, 23, 9, strPadL(strComma(StatTotalUploads), 12, ' '));
|
Screen.WriteXY (PosX, 23 - Count, 1, ' ');
|
||||||
|
|
||||||
|
For Count := 1 to Value Do
|
||||||
|
Screen.WriteXY (PosX, 23 - Count, 1, #219);
|
||||||
|
End;
|
||||||
|
|
||||||
|
Var
|
||||||
|
Count : Byte;
|
||||||
|
Begin
|
||||||
|
Screen.WriteXY (12, 18, 9, strPadL(strI2S(Stats.TodayCalls), 6, ' '));
|
||||||
|
Screen.WriteXY (12, 19, 9, strPadL(strI2S(Stats.TodayNewUsers), 6, ' '));
|
||||||
|
Screen.WriteXY (12, 20, 9, strPadL(strI2S(Stats.TodayPosts), 6, ' '));
|
||||||
|
Screen.WriteXY (12, 21, 9, strPadL(strI2S(Stats.TodayEmail), 6, ' '));
|
||||||
|
Screen.WriteXY (12, 22, 9, strPadL(strI2S(Stats.TodayDownloads), 6, ' '));
|
||||||
|
Screen.WriteXY (12, 23, 9, strPadL(strI2S(Stats.TodayUploads), 6, ' '));
|
||||||
|
|
||||||
|
Screen.WriteXY (19, 18, 9, strPadL(strComma(Stats.TotalCalls), 12, ' '));
|
||||||
|
Screen.WriteXY (19, 19, 9, strPadL(strComma(Stats.TotalNewUsers), 12, ' '));
|
||||||
|
Screen.WriteXY (19, 20, 9, strPadL(strComma(Stats.TotalPosts), 12, ' '));
|
||||||
|
Screen.WriteXY (19, 21, 9, strPadL(strComma(Stats.TotalEmail), 12, ' '));
|
||||||
|
Screen.WriteXY (19, 22, 9, strPadL(strComma(Stats.TotalDownloads), 12, ' '));
|
||||||
|
Screen.WriteXY (19, 23, 9, strPadL(strComma(Stats.TotalUploads), 12, ' '));
|
||||||
|
|
||||||
|
For Count := 0 to 6 Do
|
||||||
|
DrawBar (59 + Count, Stats.Weekly[Count]);
|
||||||
|
|
||||||
|
For Count := 1 to 12 Do
|
||||||
|
DrawBar (67 + Count, Stats.Monthly[Count]);
|
||||||
|
|
||||||
|
For Count := 0 to 23 Do
|
||||||
|
DrawBar (33 + Count, Stats.Hourly[Count]);
|
||||||
End;
|
End;
|
||||||
|
|
||||||
Procedure UpdateStats;
|
Procedure UpdateStats;
|
||||||
Var
|
Var
|
||||||
HistFile : File of RecHistory;
|
HistFile : File of RecHistory;
|
||||||
Hist : RecHistory;
|
Hist : RecHistory;
|
||||||
|
Count : LongInt;
|
||||||
|
Highest : LongInt;
|
||||||
|
Temp : Real;
|
||||||
Begin
|
Begin
|
||||||
|
ShowMsgBox(3, 'Calculating statistics');
|
||||||
|
|
||||||
FileMode := 66;
|
FileMode := 66;
|
||||||
|
|
||||||
Assign (HistFile, Config.DataPath + 'history.dat');
|
Assign (HistFile, Config.DataPath + 'history.dat');
|
||||||
|
|
@ -613,33 +752,70 @@ Var
|
||||||
|
|
||||||
If IoResult <> 0 Then Exit;
|
If IoResult <> 0 Then Exit;
|
||||||
|
|
||||||
StatTotalDays := 0;
|
FillChar (Stats, SizeOf(Stats), 0);
|
||||||
|
|
||||||
While Not Eof(HistFile) Do Begin
|
While Not Eof(HistFile) Do Begin
|
||||||
Read (HistFile, Hist);
|
Read (HistFile, Hist);
|
||||||
|
|
||||||
Inc (StatTotalDays);
|
Inc (Stats.TotalDays);
|
||||||
|
|
||||||
Inc (StatTotalCalls, Hist.Calls);
|
Inc (Stats.TotalCalls, Hist.Calls);
|
||||||
Inc (StatTotalNewUsers, Hist.NewUsers);
|
Inc (Stats.TotalNewUsers, Hist.NewUsers);
|
||||||
Inc (StatTotalDownloads, Hist.Downloads);
|
Inc (Stats.TotalDownloads, Hist.Downloads);
|
||||||
Inc (StatTotalPosts, Hist.Posts);
|
Inc (Stats.TotalPosts, Hist.Posts);
|
||||||
Inc (StatTotalEmail, Hist.Emails);
|
Inc (Stats.TotalEmail, Hist.Emails);
|
||||||
Inc (StatTotalUploads, Hist.Uploads);
|
Inc (Stats.TotalUploads, Hist.Uploads);
|
||||||
|
|
||||||
If DateDos2Str(Hist.Date, 1) = DateDos2Str(CurDateDos, 1) Then Begin
|
If DateDos2Str(Hist.Date, 1) = DateDos2Str(CurDateDos, 1) Then Begin
|
||||||
Inc (StatTodayCalls, Hist.Calls);
|
Inc (Stats.TodayCalls, Hist.Calls);
|
||||||
Inc (StatTodayNewUsers, Hist.NewUsers);
|
Inc (Stats.TodayNewUsers, Hist.NewUsers);
|
||||||
Inc (StatTodayDownloads, Hist.Downloads);
|
Inc (Stats.TodayDownloads, Hist.Downloads);
|
||||||
Inc (StatTodayPosts, Hist.Posts);
|
Inc (Stats.TodayPosts, Hist.Posts);
|
||||||
Inc (StatTodayEmail, Hist.Emails);
|
Inc (Stats.TodayEmail, Hist.Emails);
|
||||||
Inc (StatTodayUploads, Hist.Uploads);
|
Inc (Stats.TodayUploads, Hist.Uploads);
|
||||||
End;
|
End;
|
||||||
|
|
||||||
|
Inc (Stats.Monthly[strS2I(Copy(DateDos2Str(Hist.Date, 1), 1, 2))], Hist.Calls);
|
||||||
|
Inc (Stats.Weekly[DayOfWeek(Hist.Date)], Hist.Calls);
|
||||||
|
|
||||||
|
For Count := 0 to 23 Do
|
||||||
|
Inc (Stats.Hourly[Count], Hist.Hourly[Count]);
|
||||||
End;
|
End;
|
||||||
|
|
||||||
Close (HistFile);
|
Highest := 0;
|
||||||
|
|
||||||
DrawStats;
|
For Count := 1 to 12 Do
|
||||||
|
If Stats.Monthly[Count] > Highest Then Highest := Stats.Monthly[Count];
|
||||||
|
|
||||||
|
For Count := 1 to 12 Do
|
||||||
|
If Stats.Monthly[Count] > 0 Then Begin
|
||||||
|
Temp := Stats.Monthly[Count] / Highest * 100;
|
||||||
|
Stats.Monthly[Count] := Trunc(Temp) DIV 20;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Highest := 0;
|
||||||
|
|
||||||
|
For Count := 0 to 6 Do
|
||||||
|
If Stats.Weekly[Count] > Highest Then Highest := Stats.Weekly[Count];
|
||||||
|
|
||||||
|
For Count := 0 to 6 Do
|
||||||
|
If Stats.Weekly[Count] > 0 Then Begin
|
||||||
|
Temp := Stats.Weekly[Count] / Highest * 100;
|
||||||
|
Stats.Weekly[Count] := Trunc(Temp) DIV 20;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Highest := 0;
|
||||||
|
|
||||||
|
For Count := 0 to 23 Do
|
||||||
|
If Stats.Hourly[Count] > Highest Then Highest := Stats.Hourly[Count];
|
||||||
|
|
||||||
|
For Count := 0 to 23 Do
|
||||||
|
If Stats.Hourly[Count] > 0 Then Begin
|
||||||
|
Temp := Stats.Hourly[Count] / Highest * 100;
|
||||||
|
Stats.Hourly[Count] := Trunc(Temp) DIV 20;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Close (HistFile);
|
||||||
End;
|
End;
|
||||||
|
|
||||||
Procedure DrawNodes;
|
Procedure DrawNodes;
|
||||||
|
|
@ -665,14 +841,21 @@ Var
|
||||||
End;
|
End;
|
||||||
End;
|
End;
|
||||||
|
|
||||||
|
Procedure FullReDraw;
|
||||||
|
Begin
|
||||||
|
UpdateStats;
|
||||||
|
UpdateOnlineStatus;
|
||||||
|
DrawNodeSpyScreen;
|
||||||
|
DrawNodes;
|
||||||
|
DrawStats;
|
||||||
|
|
||||||
|
Screen.SetWindowTitle('NodeSpy/Main');
|
||||||
|
End;
|
||||||
|
|
||||||
Var
|
Var
|
||||||
Count : Byte;
|
Count : Byte;
|
||||||
Begin
|
Begin
|
||||||
DrawNodeSpyScreen;
|
FullReDraw;
|
||||||
UpdateStats;
|
|
||||||
UpdateOnlineStatus;
|
|
||||||
|
|
||||||
DrawNodes;
|
|
||||||
|
|
||||||
NodeTimer := TimerSet(UpdateNode);
|
NodeTimer := TimerSet(UpdateNode);
|
||||||
|
|
||||||
|
|
@ -731,10 +914,11 @@ Begin
|
||||||
End;
|
End;
|
||||||
#13 : Begin
|
#13 : Begin
|
||||||
SnoopNode(NodeInfo[CurNode]^.Node);
|
SnoopNode(NodeInfo[CurNode]^.Node);
|
||||||
DrawNodeSpyScreen;
|
FullReDraw;
|
||||||
UpdateOnlineStatus;
|
End;
|
||||||
DrawNodes;
|
#32 : Begin
|
||||||
DrawStats;
|
LocalLogin;
|
||||||
|
FullReDraw;
|
||||||
End;
|
End;
|
||||||
#27 : Break;
|
#27 : Break;
|
||||||
End;
|
End;
|
||||||
|
|
@ -745,20 +929,23 @@ Begin
|
||||||
|
|
||||||
NodeTimer := TimerSet(UpdateNode);
|
NodeTimer := TimerSet(UpdateNode);
|
||||||
|
|
||||||
For Count := 1 to Config.inetTNNodes Do
|
If AutoSnoop Then
|
||||||
If NodeInfo[Count]^.User <> 'Waiting' Then Begin
|
For Count := 1 to Config.inetTNNodes Do
|
||||||
SnoopNode(NodeInfo[Count]^.Node);
|
If (NodeInfo[Count]^.User <> 'Waiting') and
|
||||||
DrawNodeSpyScreen;
|
(NodeInfo[Count]^.ID <> AutoSnoopID) Then Begin
|
||||||
UpdateOnlineStatus;
|
SnoopNode(NodeInfo[Count]^.Node);
|
||||||
DrawNodes;
|
FullReDraw;
|
||||||
DrawStats;
|
End;
|
||||||
End;
|
|
||||||
End;
|
End;
|
||||||
Until False;
|
Until False;
|
||||||
|
|
||||||
|
Screen.TextAttr := 7;
|
||||||
|
Screen.ClearScreen;
|
||||||
|
Screen.WriteLine('NodeSpy Shutdown');
|
||||||
End;
|
End;
|
||||||
|
|
||||||
Begin
|
Begin
|
||||||
ApplicationInit;
|
ApplicationInit;
|
||||||
|
|
||||||
MainMenu;
|
MainMenu;
|
||||||
End.
|
End.
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue