Messages

1771

HTML & templates / Re: Macros

« on: January 04, 2008, 02:01:45 PM »

It is the same difference when you define

{{set|myvar|{{cut|1|8|It is the same difference}} /set}}

and

{{set|mymacro| {{\ {{cut|1|$1|$2}}  /}} /set}}

if you use

{{append|file|{{another macro}} }}

{{another macro}} is immediatly evaluated and result is stored in file

but with

{{append|file| {{\ {{another macro}} /}} }}

it is  {{another macro}} who is stored in file

and when you include this file in your template {{load|file}}, it is here that the macro {{another macro}} is evaluated.

1772

RAWR-Designs / Re: New template in the works.

« on: January 04, 2008, 12:10:15 PM »

TSG

put this in your template

{{?recursive=}}&{{?rev=}}&{{?search=}}&{{?filter=}}&{{?files-filter=}}&{{?folders-filter=}}

if you put nothing in your url you obtain 1&1&1&1&1&1

this work in URL  with all symbol you use

1773

HTML & templates / Re: Macros

« on: January 04, 2008, 08:04:57 AM »

limit is {{div|2147483647|1024}}

 

Min longint value = -2147483648
 Max longint value = 2147483647

rejetto must change storage to

Min int64 value = -9223372036854775808
 Max int64 value = 9223372036854775807

function parI(idx:int64; def:int64=0):int64;
  begin result:=strToIntDef(par(idx), def) end;

and more if necessary 

1774

HTML & templates / Re: Macros

« on: January 03, 2008, 09:51:04 PM »

une autre idée me trotte dans la tête

can you update function inc() as this:

  procedure inc(v:integer=+1);
  begin
  if not satisfied(md.cd) then exit;
  try
  if not(md.cd.params.indexOf(p) >= 0) then md.cd.vars.values[p]:='0';
      result:='';
    with md.cd.vars do values[p]:=intToStr(strToInt(values[p])+v*parI(1,1))
  except end;
  end; // inc

Ainsi on pourra définir une variable à 0 par défaut (sans connaitre son nom à l'avance) simplement par un appel à INC ou DEC comme par exemple  {{inc|file.%item-ext%}}, car je ne peux prédire à l'avance quelles EXT seront utilisées dans %files%
et éviter d'utiliser   la combinaison {{set|count|{{count|file.%item-ext%}} /set}}  {{^count}}

mais plutôt  {{inc|file.%item-ext%}} et {{^file.%item-ext%}}

tout comme avec %sequential% il n'y a pas %number-sequential%
ainsi avec {{count|....}} il manque l'équivalent de {{special end|{{^count|....}}}}

donc au lieu d'avoir

{{set |myvar|0}}    .....   {{inc/dec|myvar|n}} ...  {{^myvar}} = n

alors
 {{inc|myvar|n}} ...  {{^myvar}} = n

serait équivalent et suffisant.

1775

Programmers corner / Re: Personal propositions for the code source of hfs

« on: January 03, 2008, 08:59:08 PM »

comme dans toute science, tant qu'une théorie ne peut pas être vérifiée avec les outils appropriés, elle n'est qu'une hypothèse.

sans 'nosort' je ne peux explorer d'autres voies de développement, si cela n'est pas trop demander de l'inclure dans la version 168 et de la supprimer dès la 169, ceci afin que je puisse avoir un support réel pour pouvoir travailler sur cette idée
 

1776

HTML & templates / Re: Macros

« on: January 03, 2008, 06:37:27 PM »

I see no way to create the macro you want, but you can just change algorithm.

my solution: attached file

Il ne reste plus qu'à tester...

1777

Programmers corner / Re: Personal propositions for the code source of hfs

« on: January 02, 2008, 09:26:10 PM »

who needs this nosort ?

au moins une personne: moi

ce n'est pas un caprice mais une possibilité qui est offerte à l'administarteur de CHOISIR

j'en ai besoin pour tester une architecture de %files%  en rapport avec le mode 'page' que j'ai mis en place dans le template visible sur le site de silentpliz, si ce n'est actif que dans une version specifique je m'en contenterai ou alors laisser la possibilité à l'utilisateur en ligne url ?sort=x  ,  voici un compromis:

case sortby of
    SB_SIZE: result:=compare_(f1.size, f2.size);
    SB_TIME: result:=-compare_(f1.mtime, f2.mtime);
    SB_DL: result:=-compare_(f1.DLcount, f2.DLcount);
    SB_EXT: result:=compareExt(f1.name, f2.name);
    else  begin
            result:=0;
            if sortby=SB_NOSORT then exit;
            end;
    end;

  sortBy: ( SB_NAME, SB_EXT, SB_SIZE, SB_TIME, SB_DL , SB_NOSORT );
...

if v > '' then
  case v[1] of
    'n': sortBy:=SB_NAME;
    'e': sortBy:=SB_EXT;
    's': sortBy:=SB_SIZE;
    't': sortBy:=SB_TIME;
    'd': sortBy:=SB_DL;
    'x': sortBy:=SB_NOSORT;
    end;

merci de prendre en considération.

1778

HFS ~ HTTP File Server / Re: Sort by comment

« on: January 01, 2008, 05:52:47 PM »

rejetto et ma demand epour No Sort?

http://www.rejetto.com/forum/index.php?topic=5433.msg1031637#msg1031637

1779

Beta / Re: Testing build #166

« on: January 01, 2008, 05:42:19 PM »

filter,files-filter,search   have same bug

search=*.* works when exist files as name.ext

search=*        give no files
search=\*       list all files

1780

Bug reports / Re: 2.3 build 166

« on: January 01, 2008, 03:34:15 PM »

  if name = '%host' then
      result:=md.cd.conn.getHeader('host')

% is missing in code delphi

1781

Beta / Re: Testing build #166

« on: January 01, 2008, 03:26:51 PM »

all %symbol% are now included where are defined macros then some bugs will been corrected

  if name = '%host%' then
      result:=md.cd.conn.getHeader('host')

1782

Beta / Re: Testing build #166

« on: December 31, 2007, 08:06:00 PM »

Speed limit for single address is a limit that one connection can't exced  exple 10ko by connect

Speed limit is a limit to hfs (sum of all connections)

1783

Beta / Re: Testing build #166

« on: December 31, 2007, 07:09:32 PM »

Enfin du neuf pour la nouvelle année
 

1784

HTML & templates / Re: Macros

« on: December 31, 2007, 01:51:43 AM »

see this example:
after [file] put {{comment| {{count|ext.%item-ext%}} }}
Then, after the list you can put something like I saw {{count|ext.mp3}} mp3 files
Or you can store the value using {{set}}, as you wish.

after the list mon problème est ici, je dois pouvoir utiliser la valeur finale de chaque {{count|ext.%item-ext%}} n'importe où dans le template, et spécialement dans la liste à un endroit quelconque

1785

Programmers corner / Personal propositions for the code source of hfs

« on: December 30, 2007, 11:55:57 PM »

To rejetto:
main.pas line 3356-> // applySequential

procedure applySequential();
  const
    PATTERN = '%sequential%';
    NBPATTERN= '%number-sequential%"
  var
    idx, p: integer;
    idxS: string;
  begin
  idx:=0;
    repeat
    p:=pos(PATTERN, result);
    if p = 0 then exit;
    inc(idx);
    idxS:=intToStr(idx);
    delete(result, p, length(PATTERN)-length(idxS));
    move(idxS[1], result[p], length(idxS));
    until false;
    repeat      //replace all %number-sequential% by last value of %sequential%
    p:=pos(NBPATTERN, result);
    if p = 0 then exit;
    delete(result, p, length(NBPATTERN)-length(idxS));
    move(idxS[1], result[p], length(idxS));
    until false;
  end; // applySequential

main.pas line 8188

if FA_VIS_ONLY_ANON in f.flags then
  loadingVFS.visOnlyAnon:=TRUE;
if f.isVirtualFolder() then f.mtime:=f.atime;
if f.isLink() then f.mtime:=f.atime; // because [link]:%item-modified% give the  instant server date-time when list created and can't be sort by time correctly
if assigned(f.uploadAccounts) and (f.resource > '') then
  addString(f.resource, uploadPaths);
f.setupImage();
if after.resetLetBrowse then
  f.recursiveApply(setBrowsable, integer(FA_BROWSABLE in f.flags));
end; // setVFS

********************************************************************
Menu -->Default Sorting-->No Sort option
main.dfm line 2322

       object NoSort1: TMenuItem
          Caption = 'No Sort'
          GroupIndex = 1
          RadioItem = True
          OnClick = NoSort1Click
        end

main.pas line 612

    NoSort1: TMenuItem;

main.pas line 840

    procedure NoSort1Click(Sender: TObject);

main.pas line 7832

procedure TmainFrm.NoSort1Click(Sender: TObject);
begin defSorting:='nosort' end;

main.pas line 10284

NoSort1.Checked:= defSorting='nosort';

main.pas line 1166

if linksBefore and (f1.isLink() <> f2.isLink()) then
    begin
    if f1.isLink() then result:=-1
    else result:=+1;
    exit;
    end;
  if foldersBefore and (f1.isFolder() <> f2.isFolder()) then
    begin
    if f1.isFolder() then result:=-1
    else result:=+1;
    exit;
    end;
result=0;   
if defSorting = 'nosort' then exit;   
  case sortby of
    SB_SIZE: result:=compare_(f1.size, f2.size);
    SB_TIME: result:=-compare_(f1.mtime, f2.mtime);
    SB_DL: result:=-compare_(f1.DLcount, f2.DLcount);
    SB_EXT: result:=compareExt(f1.name, f2.name);
    else result:=0;
    end;

********************************************************************

editDlg.dfm

possible d'ajouter deux raccoucis clavier?pour la pcochaine version?

CTRL+F  as ALT+F
and
F3 as click on GO button