MBonaldo/hfs2
1
0
Fork 0
mirror of https://github.com/rejetto/hfs2.git synced 2025-12-19 10:03:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

new 'init' section for events file, executed at each reload

Browse Source
This commit is contained in:
Massimo Melina 2020-06-16 23:13:22 +02:00
parent 07f5f2ca6b
commit 65d4a142e4
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
main.pas
View File

@ -1,4 +1,4 @@
{ {
Copyright (C) 2002-2020 Massimo Melina (www.rejetto.com) Copyright (C) 2002-2020 Massimo Melina (www.rejetto.com)
This file is part of HFS ~ HTTP File Server. This file is part of HFS ~ HTTP File Server.
@ -7867,7 +7867,12 @@ finally freeAndNIL(info) end;
end; // autoCheckUpdates end; // autoCheckUpdates
procedure loadEvents(); procedure loadEvents();
begin eventScripts.fullText:=loadTextFile(cfgpath+EVENTSCRIPTS_FILE) end; begin
if not newMtime(cfgpath+EVENTSCRIPTS_FILE, eventScriptsLast) then
exit;
eventScripts.fullText:=loadTextFile(cfgpath+EVENTSCRIPTS_FILE);
runEventScript('init');
end;
procedure Tmainfrm.updateCopyBtn(); procedure Tmainfrm.updateCopyBtn();
resourcestring resourcestring
@ -8124,9 +8129,7 @@ var
updateCopyBtn(); updateCopyBtn();
keepTplUpdated(); keepTplUpdated();
updateCurrentCFG(); updateCurrentCFG();
loadEvents();
if newMtime(cfgpath+EVENTSCRIPTS_FILE, eventScriptsLast) then
loadEvents();
if assigned(runScriptFrm) and runScriptFrm.visible if assigned(runScriptFrm) and runScriptFrm.visible
and runScriptFrm.autorunChk.checked and newMtime(tempScriptFilename, runScriptLast) then and runScriptFrm.autorunChk.checked and newMtime(tempScriptFilename, runScriptLast) then