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

temp DEFINE for test code for online ANSI editor

This commit is contained in:
mysticbbs 2013-08-31 00:40:22 -04:00
parent f454ff07c2
commit 9c51bfd0de
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
mystic/mystic.pas
View File

@ -46,19 +46,22 @@ Uses
bbs_DataBase, bbs_DataBase,
bbs_Core, bbs_Core,
bbs_NodeInfo, bbs_NodeInfo,
{$IFDEF TESTEDITOR}
BBS_Edit_Ansi,
{$ENDIF}
bbs_Cfg_Main; bbs_Cfg_Main;
(* {$IFDEF TESTEDITOR}
Procedure TestEditor; Procedure TestEditor;
Var Var
T : TEditorANSI; T : TEditorANSI;
Begin Begin
T := TEditorANSI.Create(Pointer(Session)); T := TEditorANSI.Create(Pointer(Session), 'ansiedit');
T.Edit; T.Edit;
T.Free; T.Free;
End; End;
*) {$ENDIF}
Procedure InitClasses; Procedure InitClasses;
Begin Begin
@ -209,11 +212,11 @@ Begin
// SIGHUP : Halt; // SIGHUP : Halt;
// SIGTERM : Halt; // SIGTERM : Halt;
SIGHUP : Begin SIGHUP : Begin
FileErase (Config.DataPath + 'chat' + strI2S(Session.NodeNum) + '.dat'); FileErase (bbsCfg.DataPath + 'chat' + strI2S(Session.NodeNum) + '.dat');
Halt; Halt;
End; End;
SIGTERM : Begin SIGTERM : Begin
FileErase (Config.DataPath + 'chat' + strI2S(Session.NodeNum) + '.dat'); FileErase (bbsCfg.DataPath + 'chat' + strI2S(Session.NodeNum) + '.dat');
Halt; Halt;
End; End;
SIGUSR1 : Session.CheckTimeOut := False; SIGUSR1 : Session.CheckTimeOut := False;
@ -485,8 +488,10 @@ Begin
Set_Node_Action (Session.GetPrompt(345)); Set_Node_Action (Session.GetPrompt(345));
// TestEditor; {$IFDEF TESTEDITOR}
// Halt(0); TestEditor;
Halt(0);
{$ENDIF}
Session.User.UserLogon1 (Script); Session.User.UserLogon1 (Script);