Testing build #200

[rejetto]

yes, i know a new build was published few hours ago, but i got excited with the news and decided to push you this long-awaited {.exec.} (please refer the wiki documentation)

and since commands are executed inside the %cwd%, i thought it was useful for you to access this value, and be able to change it through {.chdir.}

download @ www.dovedove.it/hfs/hfs200.exe

what's new
+ new template macros: exec chdir
+ new template symbol: %cwd% (current working directory of HFS process)
+ little improvements on file sorting (tpl side)
- "enable macros" was affecting also %symbols%, while it shouldn't

[ebola]

uhhhh


###################################################################
Access violation at address 0053CB84 in module 'hfs.exe'. Read of address 00000030
HFS 2.3 beta (200)
----------------------------------------------------------------
Stack list, generated 02.09.2008 08:40:57
[0053CB84]{hfs.exe     } main.TmainFrm.add2log (Line 4712, "main.pas" + 28) + $3D
[0054AE2F]{hfs.exe     } main.TmainFrm.autoCheckUpdates (Line 7507, "main.pas" + 17) + $11
[0054B1D3]{hfs.exe     } main.everyMinute (Line 7559, "main.pas" + 2) + $6
[0054BB3B]{hfs.exe     } main.TmainFrm.timerEvent (Line 7746, "main.pas" + 17) + $F
[00450553]{hfs.exe     } ExtCtrls.TTimer.Timer (Line 2250, "ExtCtrls.pas" + 1) + $13
[004503BF]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2208, "ExtCtrls.pas" + 4) + $7
[0042ABB0]{hfs.exe     } Classes.StdWndProc (Line 11572, "classes.pas" + + $0
[0046E7EA]{hfs.exe     } Forms.TApplication.ProcessMessage (Line 7670, "Forms.pas" + 23) + $4
[0046E82F]{hfs.exe     } Forms.TApplication.HandleMessage (Line 7689, "Forms.pas" + 1) + $6
[0046EACA]{hfs.exe     } Forms.TApplication.Run (Line 7773, "Forms.pas" + 16) + $3
[0056288F]{hfs.exe     } hfs.hfs (Line 94, "" + 21) + $2
----------------------------------------------------------------
System   : Windows 2000 Professional, Version: 5.0, Build: 893, "Service Pack 4"
Processor: Via, VIA Nehemiah, 800 MHz
Display  : 1024x768 pixels, 32 bpp
----------------------------------------------------------------
----------------------------------------------------------------
Product Versions

hfs.exe: Build: 0 02.09.2008 08:38:14
hfs.old.exe: Build: 0 28.08.2008 17:51:34
###################################################################



Stucked with eating 100% of my little Via-Processor and pushing the temp inside the passiv case to a new dimension *gg*


ebola

[Mars]

Big greetings to you rejetto , Start of the school year obliges , I start again of the service

procedure TmainFrm.enableMacrosChkClick(Sender: TObject);
const
  MSG = 'The current template is using macros.'
    +#13'Do you want to cancel this action?';
begin
if (anyMacroMarkerIn(tpl.fullText) and not enableMacrosChk.Checked) then
  enableMacrosChk.Checked:=msgDlg(MSG, MB_ICONWARNING+MB_YESNO) = MRYES;
end;

This first version misled me, and at the time I believed in a bug, where from my idea to modify the dialog box as follows:

procedure TmainFrm.enableMacrosChkClick(Sender: TObject);
const
  MSG = 'The current template is using macros.'
    +#13'Confirm you want to disable macros.';
begin
if (anyMacroMarkerIn(tpl.fullText) and not enableMacrosChk.Checked) then
  enableMacrosChk.Checked:=msgDlg(MSG, MB_ICONWARNING+MB_YESNO) = MRNO;
  if not enableMacrosChk.Checked then msgDlg('ALL MACRO ARE DISABLE', MB_ICONWARNING+MB_OK);
end;

[rejetto]

The dialog is made this way intentionally.
I want "you" to be careful while using that option. If you use it without reading you will end by not disabling.
Lots of people would click just to try, without understanding, and would then come to the forum complaining their HFS is working no more.
That's why...

[rejetto]

Stucked with eating 100% of my little Via-Processor and pushing the temp inside the passiv case to a new dimension *gg*

ok fixed, but i will wait some more bugs before publishing the next beta.
in the while you can avoid the problem by disabling: update -> autocheck every day

[Pit]

1. In Build 200 "Server Stop" and "Server Start" are not logged to screen in the Log-Window. I get no entries.

[ebola]

Hi

Just want to let you know that exec is working just to good.
Wrote a little program to check out if arguments will be passed correct from hfs to the application - and you did a great job.


Thx for this feature!!!!!!!!!!!!!!!!!!!!!!
ebola

[r][m]

Testing 200
No start - stop problems and it does log here.
The exec macro is great! 
I'd been looking for a way to do that.
Thank you!

[Lord]

Hi, i've this error:

Access violation at address 0053CB84 in module 'hfs.exe'. Read of address 00000030
HFS 2.3 beta (200)
----------------------------------------------------------------
Stack list, generated 02/09/2008 18.02.11
[0053CB84]{hfs.exe     } main.TmainFrm.add2log (Line 4712, "main.pas" + 28) + $3D
[0053121A]{hfs.exe     } main.updateDynDNS (Line 2096, "main.pas" + 9) + $2C
[0054B37C]{hfs.exe     } main.everySec (Line 7593, "main.pas" + 13) + $0
[0054BA2A]{hfs.exe     } main.everyTenth (Line 7725, "main.pas" + 45) + $15
[0054BB65]{hfs.exe     } main.TmainFrm.timerEvent (Line 7748, "main.pas" + 19) + $F
[00450553]{hfs.exe     } ExtCtrls.TTimer.Timer (Line 2250, "ExtCtrls.pas" + 1) + $13
[004503BF]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2208, "ExtCtrls.pas" + 4) + $7
[0042ABB0]{hfs.exe     } Classes.StdWndProc (Line 11572, "classes.pas" + + $0
[004772E4]{hfs.exe     } Controls.FindControl (Line 2103, "Controls.pas" + 6) + $C
[0046E7EA]{hfs.exe     } Forms.TApplication.ProcessMessage (Line 7670, "Forms.pas" + 23) + $4
[0046E82F]{hfs.exe     } Forms.TApplication.HandleMessage (Line 7689, "Forms.pas" + 1) + $6
[0046EACA]{hfs.exe     } Forms.TApplication.Run (Line 7773, "Forms.pas" + 16) + $3
[0056288F]{hfs.exe     } hfs.hfs (Line 94, "" + 21) + $2
----------------------------------------------------------------
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
----------------------------------------------------------------
Product Versions

hfs.exe: Build: 0 02/09/2008 12.53.30

[TEA-Time]

Hi rejetto,

Yup, I'm getting the error with this one too when the No-IP dynamic DNS updater tries to update.


Access violation at address 0053CB84 in module 'hfs.exe'. Read of address 00000030
HFS 2.3 beta (200)
----------------------------------------------------------------
Stack list, generated 9/2/2008 10:23:23 AM
[0053CB84]{hfs.exe     } main.TmainFrm.add2log (Line 4712, "main.pas" + 28) + $3D
[0053121A]{hfs.exe     } main.updateDynDNS (Line 2096, "main.pas" + 9) + $2C
[0054B37C]{hfs.exe     } main.everySec (Line 7593, "main.pas" + 13) + $0
[0054BA2A]{hfs.exe     } main.everyTenth (Line 7725, "main.pas" + 45) + $15
[0054BB65]{hfs.exe     } main.TmainFrm.timerEvent (Line 7748, "main.pas" + 19) + $F
[00450553]{hfs.exe     } ExtCtrls.TTimer.Timer (Line 2250, "ExtCtrls.pas" + 1) + $13
[004503BF]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2208, "ExtCtrls.pas" + 4) + $7
[0042ABB0]{hfs.exe     } Classes.StdWndProc (Line 11572, "classes.pas" + + $0
[004772E4]{hfs.exe     } Controls.FindControl (Line 2103, "Controls.pas" + 6) + $C
[0046E7EA]{hfs.exe     } Forms.TApplication.ProcessMessage (Line 7670, "Forms.pas" + 23) + $4
[0046E82F]{hfs.exe     } Forms.TApplication.HandleMessage (Line 7689, "Forms.pas" + 1) + $6
[0046EACA]{hfs.exe     } Forms.TApplication.Run (Line 7773, "Forms.pas" + 16) + $3
[0056288F]{hfs.exe     } hfs.hfs (Line 94, "" + 21) + $2
----------------------------------------------------------------
System   : Windows XP Home Edition, Version: 5.1, Build: A28, "Service Pack 2"
Processor: Intel,          Mobile Intel(R) Celeron(R) CPU 1.50GHz, 1500 MHz MMX
Display  : 1024x768 pixels, 32 bpp
----------------------------------------------------------------
----------------------------------------------------------------
Product Versions

hfs.exe: Build: 0 9/2/2008 1:26:00 AM
hfs.v2.2d.exe: Build: 0 2/4/2008 12:48:18 AM

[MarkV]

Start and stop is NOT logged for me in 200. Additionally, the 'Server is currently OFF' does not appear every time, only every other time.

[rejetto]

all this reports are the result of the same bug, and it is already fixed.
i said i would wait some more, but i see it is annoying you, so let's take the new build out of the oven.