1
Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
2
HFS ~ HTTP File Server / MOVED: Looking for updated version of Terayon template
« on: April 20, 2022, 02:49:11 PM »3
router & port problems / MOVED: [solved] Strange multiple connections on multiple ports
« on: February 21, 2021, 12:20:55 PM »4
Bug reports / MOVED: Self test ok - Port open - Internet acces not working
« on: March 21, 2020, 06:19:41 PM »7
HFS ~ HTTP File Server / MOVED: Changing The Default Search Option
« on: October 15, 2013, 08:27:12 AM »9
HFS ~ HTTP File Server / MOVED: Error: no response was received
« on: September 16, 2013, 06:57:45 AM »10
HTML & templates / MOVED: Re: Get path of currently selected file
« on: July 30, 2011, 10:36:30 AM »11
HTML & templates / MOVED: Need help plz.. load thumbnail image - korean file name
« on: July 05, 2011, 01:25:40 PM »12
Bug reports / How putting in check of hfs
« on: March 24, 2011, 08:57:01 PM »Quote from: Used reference text
procedure keepTplUpdated();
begin
if fileExists(tplFilename) then
if newMtime(tplFilename, tplLast) then
setTplText(loadFile(tplFilename))
else
else
if tplLast <> 0 then
begin
tplLast:=0; // we have no modified-time in this case, but this will stop the refresh
setTplText(defaultTpl);
end;
end; // keepTplUpdated
1) Execute hfs with a personalized template
2) Verify the web page by means of the browser
3) Rename the template filename without closing hfs
4) Refresh the web page of the browser, the default template is used on the place of the other one
5) close hfs with saving options
6) Relaunch hfs and refresh the web page
The shown page is of one such whiteness
if you restore the personalized template, everything becomes again normal
Conclusion: To resolve this loss of external template it is enough to settle by adding a line
Quote from: main.pas
......
if h = 'tpl-file' then tplFilename:=l;
if h = 'tpl-editor' then tplEditor:=l;
if h = 'graph-visible' then
if yes then showGraph()
else hideGraph();
// extra commands for external use
if h = 'load-tpl-from' then setNewTplFile(l); //WARNING TO REJETTO This line is not any more used
except end;
end;
if not fileExists(tplFilename) then tplfilename:='' end;
if not alreadyStarted then
// i was already seeing all the stuff, so please don't hide it
if (build > '') and (build < '006') then easyMode:=FALSE;
******************
other bug with his solution
if you replace the external template by one with the same name, the modification is not taken into account in hfs because of the following line in classeslib.pas:
result:=o.tpl;
if getMtime(fn) <= o.ts then exit; //remove the < char
o.ts:=getMtime(fn);
14
Everything else / MOVED: Merry Christmas to all! Joyeux noël à tous !
« on: December 27, 2010, 05:59:40 PM »15
Programmers corner / build 272 what is wrong or missing
« on: December 18, 2010, 08:21:53 PM »
Already indicated
New: The rerouting login is wrong when the destination does not exist,It was necessary to me to erase cookies concerning HFS under firefox to obtain the web page because hfs jammed because of it.
this can help the admin to detect bad redirect path under accounts dialogbox
Quote
procedure handleItem(f:Tfile); //main.pas
var
type_, s, url, fingerprint, itemFolder: string;
nonPerc: TStringDynArray;
begin
//We have to make an exception with virtual links
if not f.isLink and ansiContainsStr(f.resource, '?') then exit; // unicode filename?
if f.size > 0 then inc(totalBytes, f.size);
New: The rerouting login is wrong when the destination does not exist,It was necessary to me to erase cookies concerning HFS under firefox to obtain the web page because hfs jammed because of it.
Quote
function getAccountRedirect():string; //main.pas
var
acc: Paccount;
begin
result:='';
acc:=accountRecursion(data.account, ARSC_REDIR);
if acc = NIL then exit;
result:=acc.redir;
if (result = '') or ansiContainsStr(result, '://') then exit;
// if it's not a complete url, it may require some fixing
if not ansiStartsStr('/', result) then result:='/'+result;
result:=xtpl(result,['\','/']);
//add by mars 18/12/2010
if fileExistsByURL(result) then exit;
add2log('Error on redirect with account '+acc.user+crlf+'The path is invalid :'+ result);
result:='';
end; // getAccountRedirect
this can help the admin to detect bad redirect path under accounts dialogbox
Quote
procedure ToptionsFrm.loadAccountProperties(); //optionsdlg.pas
....
redirBox.Text:=a.redir;
notesBox.text:=a.notes;
//add by mars 18/12/20010
redirBox.color:=clWindow;
if (a.redir>'') and not fileExistsByURL(a.redir) then redirBox.color:=clRed;
groupsBtn.enabled:=FALSE;
for i:=0 to length(tempAccounts)-1 do
if tempAccounts.group and (i <> accountsBox.itemIndex) then
groupsBtn.enabled:=TRUE;
updateAccessBox();
accountsBox.invalidate();
end; // loadAccountProperties
procedure ToptionsFrm.applyBtnClick(Sender: TObject);
begin
saveValues();
// this is necessary to refresh the account box when we click on the apply button
selectAccount(accountsBox.itemIndex); //add by mars 18/12/2010
end;