128 lines
6.2 KiB
ObjectPascal
128 lines
6.2 KiB
ObjectPascal
Unit bbs_cfg_Events;
|
|
|
|
{$I M_OPS.PAS}
|
|
|
|
Interface
|
|
|
|
Procedure Event_Editor;
|
|
|
|
Implementation
|
|
|
|
Uses
|
|
m_Strings,
|
|
m_DateTime,
|
|
bbs_Core,
|
|
bbs_Common,
|
|
bbs_User;
|
|
|
|
Procedure Event_Editor;
|
|
Var
|
|
A, B : Integer;
|
|
Begin
|
|
Session.SystemLog ('*EVENT EDITOR*');
|
|
|
|
Assign (Session.EventFile, Config.DataPath + 'events.dat');
|
|
{$I-} Reset (Session.EventFile); {$I+}
|
|
If IoResult <> 0 Then ReWrite(Session.EventFile);
|
|
|
|
Repeat
|
|
Session.io.OutFullLn ('|CL|14Event Editor|CR|CR|09### Name|CR--- ------------------------------ -----|14');
|
|
Reset (Session.EventFile);
|
|
While Not Eof(Session.EventFile) do begin
|
|
read (Session.EventFile, session.event);
|
|
if session.event.active then Session.io.BufAddChar('+') else Session.io.BufAddChar('-');
|
|
Session.io.OutFullLn ('|15' + strPadR(strI2S(filepos(Session.EventFile)), 4, ' ') + '|14' + strPadR(session.event.name, 32, ' ') +
|
|
strZero(session.event.exectime div 60) + ':' + strZero(session.event.exectime mod 60));
|
|
end;
|
|
Session.io.OutFull ('|CR|09(I)nsert, (D)elete, (E)dit, (Q)uit? ');
|
|
case Session.io.OneKey ('DIEQ', True) of
|
|
'D' : begin
|
|
Session.io.OutRaw ('Delete which? ');
|
|
a := strS2I(Session.io.GetInput(3, 3, 11, ''));
|
|
KillRecord (Session.EventFile, A, SizeOf(EventRec));
|
|
end;
|
|
'I' : begin
|
|
Session.io.OutRaw ('Insert before? (1-' + strI2S(filesize(Session.EventFile)+1) + '): ');
|
|
a := strS2I(Session.io.GetInput(3, 3, 11, ''));
|
|
if (a > 0) and (a <= filesize(Session.EventFile)+1) then begin
|
|
AddRecord (Session.EventFile, A, SizeOf(EventRec));
|
|
session.event.active := false;
|
|
Session.Event.Name := 'New Event';
|
|
Session.Event.errlevel := 0;
|
|
Session.Event.exectime := 0;
|
|
Session.Event.warning := 0;
|
|
Session.Event.lastran := 0;
|
|
Session.Event.offhook := false;
|
|
Session.Event.node := 0;
|
|
write (Session.EventFile, Session.event);
|
|
end;
|
|
end;
|
|
'E' : begin
|
|
Session.io.OutRaw ('Edit which? ');
|
|
a := strS2I(Session.io.GetInput(3, 3, 11, ''));
|
|
if (a > 0) and (a <= filesize(Session.EventFile)) then begin
|
|
seek (Session.EventFile, a-1);
|
|
read (Session.EventFile, Session.event);
|
|
repeat
|
|
Session.io.OutFullLn ('|CL|14Event ' + strI2S(FilePos(Session.EventFile)) + ' of ' + strI2S(FileSize(Session.EventFile)) + '|CR|03');
|
|
Session.io.OutRawln ('!. Active : ' + Session.io.OutYN(Session.Event.active));
|
|
Session.io.OutRawln ('A. Description : ' + Session.Event.Name);
|
|
Session.io.OutRawln ('B. Forced : ' + Session.io.OutYN(Session.Event.forced));
|
|
Session.io.OutRawln ('C. Errorlevel : ' + strI2S(Session.Event.ErrLevel));
|
|
Session.io.OutRaw ('D. Execution Time : ');
|
|
a := Session.Event.exectime div 60;
|
|
b := Session.Event.exectime mod 60;
|
|
Session.io.OutRawln (strZero(a) + ':' + strZero(b));
|
|
Session.io.OutRawln ('E. Busy Warning : ' + strI2S(Session.Event.Warning));
|
|
Session.io.OutRawln ('F. Last Ran on : ' + DateDos2Str(Session.Event.LastRan, Session.User.ThisUser.DateType));
|
|
Session.io.OutRawln ('G. Offhook Modem : ' + Session.io.OutYN(Session.Event.Offhook));
|
|
Session.io.OutRaw ('H. Node Number : ');
|
|
If Session.Event.Node = 0 Then
|
|
Session.io.OutRawLn ('All')
|
|
Else
|
|
Session.io.OutRawLn (strI2S(Session.Event.Node));
|
|
Session.io.OutFull ('|CR|09Command (Q/Quit): ');
|
|
case Session.io.OneKey('[]!ABCDEFGHQ', True) of
|
|
'[' : If FilePos(Session.EventFile) > 1 Then Begin
|
|
Seek (Session.EventFile, FilePos(Session.EventFile)-1);
|
|
Write (Session.EventFile, Session.Event);
|
|
Seek (Session.EventFile, FilePos(Session.EventFile)-2);
|
|
Read (Session.EventFile, Session.Event);
|
|
End;
|
|
']' : If FilePos(Session.EventFile) < FileSize(Session.EventFile) Then Begin
|
|
Seek (Session.EventFile, FilePos(Session.EventFile)-1);
|
|
Write (Session.EventFile, Session.Event);
|
|
Read (Session.EventFile, Session.Event);
|
|
End;
|
|
'!' : Session.Event.active := not Session.Event.active;
|
|
'A' : Session.Event.name := Session.io.InXY(21, 4, 30, 30, 11, Session.Event.name);
|
|
'B' : Session.Event.forced := not Session.Event.forced;
|
|
'C' : Session.Event.errlevel := strS2I(Session.io.InXY(21, 6, 3, 3, 12, strI2S(Session.Event.errlevel)));
|
|
'D' : Begin
|
|
a := strS2I(Session.io.InXY(21, 7, 2, 2, 12, ''));
|
|
b := strS2I(Session.io.InXY(24, 7, 2, 2, 12, ''));
|
|
if (a > -1) and (a < 24) and (b >= 0) and (b < 60) then
|
|
Session.Event.exectime := (a * 60) + b;
|
|
end;
|
|
'E' : Session.Event.Warning := strS2I(Session.io.InXY(21, 8, 2, 2, 12, strI2S(Session.Event.Warning)));
|
|
'F' : Session.Event.LastRan := DateStr2Dos(Session.io.InXY(21, 9, 8, 8, 15, DateDos2Str(Session.Event.lastran, Session.User.ThisUser.DateType)));
|
|
'G' : Session.Event.Offhook := Not Session.Event.Offhook;
|
|
'H' : Session.Event.Node := strS2I(Session.io.InXY(21, 11, 3, 3, 12, strI2S(Session.Event.Node)));
|
|
'Q' : Break;
|
|
end
|
|
until false;
|
|
seek (Session.EventFile, filepos(Session.EventFile)-1);
|
|
write (Session.EventFile, Session.Event);
|
|
end;
|
|
end;
|
|
'Q' : break;
|
|
end;
|
|
until False;
|
|
|
|
Close (Session.EventFile);
|
|
|
|
Session.FindNextEvent;
|
|
End;
|
|
|
|
End.
|