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

Cleanup

This commit is contained in:
mysticbbs 2012-09-04 07:56:45 -04:00
parent 8ea3545cb4
commit 762abd4e6e
1 changed files with 1 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
mystic/mis.pas
View File

@ -110,36 +110,6 @@ Begin
DirChange(bbsConfig.SystemPath); DirChange(bbsConfig.SystemPath);
End; End;
(*
Procedure ReadChatData;
Var
ChatFile : File of ChatRec;
Chat : ChatRec;
Nodes : LongInt;
Count : LongInt;
NI : TNodeInfoRec;
Begin
Nodes := NodeData.GetNodeTotal;
For Count := 1 to Nodes Do
If NodeData.GetNodeInfo(Count, NI) Then Begin
Assign (ChatFile, bbsConfig.DataPath + 'chat' + strI2S(NI.Num) + '.dat');
If ioReset(ChatFile, SizeOf(ChatRec), fmReadWrite + fmDenyNone) Then Begin
If ioRead(ChatFile, Chat) Then Begin
If Chat.Active Then Begin
NI.User := Chat.Name;
NI.Action := Chat.Action;
NodeData.SetNodeInfo(NI.Num, NI);
End;
End;
Close (ChatFile);
End;
End;
End;
*)
Function GetFocusPtr : TServerManager; Function GetFocusPtr : TServerManager;
Begin Begin
Result := NIL; Result := NIL;
@ -646,4 +616,4 @@ Begin
Console.Free; Console.Free;
Halt(255); Halt(255);
End. End.