commit b654228675cdd273d1cf1bc3d68fc213d1ac1cff
Author: Massimo Melina <a@rejetto.com>
Date:   Sat May 2 19:04:16 2020 +0200

    first commit

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..4f2fd81
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,13 @@
+tmp/
+__history/
+__recovery/
+win32/
+*.vfs
+*.dcu
+*.exe
+*.map
+hfs.ini
+*.tmp
+*.bak
+*.*-
+*.corrupted
\ No newline at end of file
diff --git a/WindowsXP.manifest b/WindowsXP.manifest
new file mode 100644
index 0000000..84283b0
--- /dev/null
+++ b/WindowsXP.manifest
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+<assemblyIdentity
+    name="CiaoSoftware.Ciao.Shell.Contacts"
+    processorArchitecture="x86"
+    version="5.1.0.0"
+    type="win32"/>
+<description>Windows Shell</description>
+<dependency>
+    <dependentAssembly>
+        <assemblyIdentity
+            type="win32"
+            name="Microsoft.Windows.Common-Controls"
+            version="6.0.0.0"
+            processorArchitecture="x86"
+            publicKeyToken="6595b64144ccf1df"
+            language="*"
+        />
+    </dependentAssembly>
+</dependency>
+</assembly>
diff --git a/alias.txt b/alias.txt
new file mode 100644
index 0000000..14e597b
--- /dev/null
+++ b/alias.txt
@@ -0,0 +1,11 @@
+var length=length|var=$1
+cache=trim|{.set|#cache.tmp|{.from table|$1|$2.}.} {.if not|{.^#cache.tmp.}|{:{.set|#cache.tmp|{.dequote|$3.}.}{.set table|$1|$2={.^#cache.tmp.}.}:}.} {.^#cache.tmp.} {.set|#cache.tmp.}
+is substring=pos|$1|$2
+set append=set|$1|$2|mode=append
+123 if 2=if|$2|$1$2$3
+between=if|{.$1 < $3.}|{:{.and|{.$1 <= $2.}|{.$2 <= $3.}:}|{:{.and|{.$3 <= $2.}|{.$2 <= $1.}:}
+between!=if|{.$1 < $3.}|{:{.and|{.$1 < $2.}|{.$2 < $3.}:}|{:{.and|{.$3 < $2.}|{.$2 < $1.}:}
+file changed=if| {.{.filetime|$1.} > {.^#file changed.$1.}.}|{: {.set|#file changed.$1|{.filetime|$1.}.} {.if|$2|{:{.load|$1|var=$2.}:}.} 1:}
+play system event=play
+redirect=add header|Location: $1
+chop={.cut|{.calc|{.pos|$2|var=$1.}+{.length|$2.}.}||var=$1|remainder=#chop.tmp.}{.^#chop.tmp.}
\ No newline at end of file
diff --git a/classesLib.pas b/classesLib.pas
new file mode 100644
index 0000000..05f060a
--- /dev/null
+++ b/classesLib.pas
@@ -0,0 +1,1213 @@
+{
+Copyright (C) 2002-2012  Massimo Melina (www.rejetto.com)
+
+This file is part of HFS ~ HTTP File Server.
+
+    HFS is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    HFS is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with HFS; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+}
+{$INCLUDE defs.inc }
+unit classesLib;
+
+interface
+
+uses
+  iniFiles, types, hslib, strUtils, sysUtils, classes, math;
+
+type
+  TfastStringAppend = class
+  protected
+    buff: string;
+    n: integer;
+  public
+    function length():integer;
+    function reset():string;
+    function get():string;
+    function append(s:string):integer;
+    end;
+
+  PcachedIcon = ^TcachedIcon;
+  TcachedIcon = record
+    data: ansistring;
+    idx: integer;
+    time: Tdatetime;
+    end;
+
+  TiconsCache = class
+    n: integer;
+    icons: array of TcachedIcon;
+    function get(data:ansistring):PcachedIcon;
+    procedure put(data:ansistring; idx:integer; time:Tdatetime);
+    procedure clear();
+    procedure purge(olderThan:Tdatetime);
+    function idxOf(data:shortstring):integer;
+    end;
+
+  TusersInVFS = class
+  protected
+    users: TstringDynArray;
+    pwds: array of TstringDynArray;
+  public
+    procedure reset();
+    procedure track(usr, pwd:string); overload;
+    procedure drop(usr, pwd:string); overload;
+    function match(usr, pwd:string):boolean; overload;
+    function empty():boolean;
+    end;
+
+  TarchiveStream = class(Tstream)
+  protected
+    pos, cachedTotal: int64;
+    cur: integer;
+
+    procedure invalidate();
+    procedure calculate(); virtual; abstract;
+    function getTotal():int64;
+  public
+    flist: array of record
+      src,          // full path of the file on the disk
+      dst: ansistring;  // full path of the file in the archive
+      firstByte,    // offset of the file inside the archive
+      mtime,
+      size: int64;
+      data: Tobject;  // extra data
+      end;
+    onDestroy: TNotifyEvent;
+
+    constructor create;
+    destructor Destroy; override;
+    function addFile(src:ansistring; dst:ansistring=''; data:Tobject=NIL):boolean; virtual;
+    function count():integer;
+    procedure reset(); virtual;
+    property totalSize:int64 read getTotal;
+    property current:integer read cur;
+    end; // TarchiveStream
+
+  TtarStreamWhere = (TW_HEADER, TW_FILE, TW_PAD);
+
+  TtarStream = class(TarchiveStream)
+  protected
+    fs: TFileStream;
+    block: TStringStream;
+    lastSeekFake: int64;
+    where: TtarStreamWhere;
+    function fsInit():boolean;
+    procedure headerInit(); // fill block with header
+    procedure padInit(full:boolean=FALSE); // fill block with pad
+    function headerLengthForFilename(fn:ansistring):integer;
+    procedure calculate(); override;
+  public
+    fileNamesOEM: boolean;
+    constructor create;
+    destructor Destroy; override;
+    function Read(var Buffer; Count: Longint): Longint; override;
+    function Write(const Buffer; Count: Longint): Longint; override;
+    function Seek(const Offset: Int64; Origin: TSeekOrigin=soBeginning): Int64; override;
+
+    procedure reset(); override;
+    end; // TtarStream
+
+  Thasher = class(TstringList)
+    procedure loadFrom(path:string);
+    function getHashFor(fn:string):string;
+    end;
+
+  TstringToIntHash = class(ThashedStringList)
+    constructor create;
+    function getInt(s:string):integer;
+    function getIntByIdx(idx:integer):integer;
+    function incInt(s:string):integer;
+    procedure setInt(s:string; int:integer);
+    end;
+
+  PtplSection = ^TtplSection;
+  TtplSection = record
+    name, txt: string;
+    nolog, nourl, cache: boolean;
+    ts: Tdatetime;
+    end;
+
+  Ttpl = class
+  protected
+    src: string;
+    lastExt,   // cache for getTxtByExt()
+    last: record section:string; idx:integer; end; // cache for getIdx()
+    fileExts: TStringDynArray;
+    strTable: THashedStringList;
+    fUTF8: boolean;
+    fOver: Ttpl;
+    function  getIdx(section:string):integer;
+    function  getTxt(section:string):string;
+    function  newSection(section:string):PtplSection;
+    procedure fromString(txt:string);
+    procedure setOver(v:Ttpl);
+    procedure updateUTF8();
+  public
+    onChange: TNotifyEvent;
+    sections: array of TtplSection;
+    constructor create(txt:string=''; over:Ttpl=NIL);
+    destructor Destroy; override;
+    property txt[section:string]:string read getTxt; default;
+    property fullText:string read src write fromString;
+    property utf8:boolean read fUTF8;
+    property over:Ttpl read fOver write setOver;
+    function sectionExist(section:string):boolean;
+    function getTxtByExt(fileExt:string):string;
+    function getSection(section:string):PtplSection;
+    function getSections():TStringDynArray;
+    procedure appendString(txt:string);
+    function getStrByID(id:string):string;
+    function me():Ttpl;
+    end; // Ttpl
+
+  TcachedTplObj = class
+    ts: Tdatetime;
+    tpl: Ttpl;
+    end;
+
+  TcachedTpls = class(THashedStringList)
+  public
+    function getTplFor(fn:string):Ttpl;
+    destructor Destroy; override;
+    end; // TcachedTpls
+
+  TperIp = class // for every different address, we have an object of this class. These objects are never freed until hfs is closed.
+  public
+    limiter: TspeedLimiter;
+    customizedLimiter: boolean;
+    constructor create();
+    destructor Destroy; override;
+    end;
+
+  Ttlv = class
+  protected
+    cur, bound: integer;
+    whole, lastValue: ansistring;
+    stack: array of integer;
+    stackTop: integer;
+  public
+    procedure parse(data:ansistring);
+    function pop(var value:ansistring):integer;
+    function down():boolean;
+    function up():boolean;
+    function getTotal():integer;
+    function getCursor():integer;
+    function getPerc():real;
+    function isOver():boolean;
+    function getTheRest():ansistring;
+    end;
+
+implementation
+
+uses
+  utilLib, main, windows, dateUtils, forms;
+
+constructor TperIp.create();
+begin
+limiter:=TspeedLimiter.create();
+srv.limiters.add(limiter);
+end;
+
+destructor TperIp.Destroy;
+begin
+srv.limiters.remove(limiter);
+limiter.free;
+end;
+
+//////////// TcachedTpls
+
+destructor TcachedTpls.Destroy;
+var
+  i: integer;
+begin
+for i:=0 to count-1 do
+  objects[i].free;
+end;
+
+function TcachedTpls.getTplFor(fn:string):Ttpl;
+var
+  i: integer;
+  o: TcachedTplObj;
+  s: string;
+begin
+fn:=trim(lowercase(fn));
+i:=indexOf(fn);
+if i >= 0 then
+  o:=objects[i] as TcachedTplObj
+else
+  begin
+  o:=TcachedTplObj.create();
+  if addObject(fn, o) > 100 then
+    delete(0);
+  end;
+result:=o.tpl;
+if getMtime(fn) = o.ts then exit;
+o.ts:=getMtime(fn);
+s:=loadTextFile(fn);
+if o.tpl = NIL then
+  begin
+  result:=Ttpl.create();
+  o.tpl:=result;
+  end;
+o.tpl.fromString(s);
+end; // getTplFor
+
+//////////// TusersInVFS
+
+function TusersInVFS.empty():boolean;
+begin result:= users = NIL end;
+
+procedure TusersInVFS.reset();
+begin
+users:=NIL;
+pwds:=NIL;
+end; // reset
+
+procedure TusersInVFS.track(usr, pwd: string);
+var
+  i: integer;
+begin
+if usr = '' then exit;
+i:=idxOf(usr, users);
+if i < 0 then i:=addString(usr, users);
+if i >= length(pwds) then setLength(pwds, i+1);
+addString(pwd, pwds[i]);
+end; // track
+
+procedure TusersInVFS.drop(usr, pwd: string);
+var
+  i, j: integer;
+begin
+i:=idxOf(usr, users);
+if i < 0 then exit;
+j:=AnsiIndexStr(pwd, pwds[i]);
+if j < 0 then exit;
+removeString(pwds[i], j);
+if assigned(pwds[i]) then exit;
+// this username does not exist with any password
+removeString(users, i);
+while i+1 < length(pwds) do
+  begin
+  pwds[i]:=pwds[i+1];
+  inc(i);
+  end;
+setLength(pwds, i);
+end; // drop
+
+function TusersInVFS.match(usr, pwd:string):boolean;
+var
+  i: integer;
+begin
+result:=FALSE;
+i:=idxOf(usr, users);
+if i < 0 then exit;
+result:= 0 <= AnsiIndexStr(pwd, pwds[i]);
+end; // match
+
+//////////// TiconsCache
+
+function TiconsCache.idxOf(data:shortstring):integer;
+var
+  b, e, c: integer;
+begin
+result:=0;
+if n = 0 then exit;
+// binary search
+b:=0;
+e:=n-1;
+  repeat
+  result:=(b+e) div 2;
+  c:=compareStr(data, icons[result].data);
+  if c = 0 then exit;
+  if c < 0 then e:=result-1;
+  if c > 0 then b:=result+1;
+  until b > e;
+result:=b;
+end; // idxOf
+
+function TiconsCache.get(data:ansistring):PcachedIcon;
+var
+  i: integer;
+begin
+result:=NIL;
+i:=idxOf(data);
+if (i >= 0) and (i < n) and (icons[i].data = data) then
+  result:=@icons[i];
+end; // get
+
+procedure TiconsCache.put(data:ansistring; idx:integer; time:Tdatetime);
+var
+  i, w: integer;
+begin
+if length(icons) <= n then setlength(icons, n+50);
+w:=idxOf(data);
+for i:=n downto w+1 do icons[i]:=icons[i-1]; // shift
+icons[w].data:=data;
+icons[w].idx:=idx;
+icons[w].time:=time;
+inc(n);
+end; // put
+
+procedure TiconsCache.clear();
+begin
+icons:=NIL;
+n:=0;
+end; // clear
+
+procedure TiconsCache.purge(olderThan:Tdatetime);
+var
+  i, m: integer;
+begin
+exit;
+m:=0;
+for i:=0 to n-1 do
+  if icons[i].time < olderThan then dec(n) // this does not shorten the loop
+  else
+    begin
+    if m < i then icons[m]:=icons[i];
+    inc(m);
+    end;
+end; // purge
+
+//////////// TfastStringAppend
+
+function TfastStringAppend.length():integer;
+begin result:=n end;
+
+function TfastStringAppend.get():string;
+begin
+setlength(buff, n);
+result:=buff;
+end; // get
+
+function TfastStringAppend.reset():string;
+begin
+result:=get();
+buff:='';
+n:=0;
+end; // reset
+
+function TfastStringAppend.append(s:string):integer;
+var
+  ls, lb: integer;
+begin
+ls:=system.length(s);
+lb:=system.length(buff);
+if n+ls > lb then setlength(buff, lb+ls+20000);
+moveChars(s[1], buff[n+1], ls);
+inc(n, ls);
+result:=n;
+end; // append
+
+//////////// TarchiveStream
+
+function TarchiveStream.getTotal():int64;
+begin
+if cachedTotal < 0 then calculate();
+result:=cachedTotal;
+end; // getTotal
+
+function TarchiveStream.addFile(src:ansistring; dst:ansistring=''; data:Tobject=NIL):boolean;
+
+  function getMtime(fh:Thandle):int64;
+  var
+    ctime, atime, mtime: Tfiletime;
+    st: TSystemTime;
+  begin
+  getFileTime(fh, @ctime, @atime, @mtime);
+  fileTimeToSystemTime(mtime, st);
+  result:=dateTimeToUnix(SystemTimeToDateTime(st));
+  end; // getMtime
+
+var
+  i, fh: integer;
+begin
+result:=FALSE;
+fh:=fileopen(src, fmOpenRead+fmShareDenyNone);
+if fh = -1 then exit;
+result:=TRUE;
+if dst = '' then
+  dst:=extractFileName(src);
+i:=length(flist);
+setLength(flist, i+1);
+flist[i].src:=src;
+flist[i].dst:=dst;
+flist[i].data:=data;
+flist[i].size:=sizeOfFile(fh);
+flist[i].mtime:=getMtime(fh);
+flist[i].firstByte:=-1;
+fileClose(fh);
+invalidate();
+end; // addFile
+
+procedure TarchiveStream.invalidate();
+begin cachedTotal:=-1 end;
+
+constructor TarchiveStream.create;
+begin
+inherited;
+reset();
+end; // create
+
+destructor TarchiveStream.destroy;
+begin
+if assigned(onDestroy) then onDestroy(self);
+inherited;
+end; // destroy
+
+procedure TarchiveStream.reset();
+begin
+flist:=NIL;
+cur:=0;
+pos:=0;
+invalidate();
+end; // reset
+
+function TarchiveStream.count():integer;
+begin result:=length(flist) end;
+
+//////////// TtarStream
+
+constructor TtarStream.create;
+begin
+block:=TStringStream.create('');
+lastSeekFake:=-1;
+where:=TW_HEADER;
+fileNamesOEM:=FALSE;
+inherited;
+end; // create
+
+destructor TtarStream.destroy;
+begin
+freeAndNIL(fs);
+inherited;
+end; // destroy
+
+procedure TtarStream.reset();
+begin
+inherited;
+block.size:=0;
+end; // reset
+
+function TtarStream.fsInit():boolean;
+begin
+if assigned(fs) and (fs.FileName = flist[cur].src) then
+  begin
+  result:=TRUE;
+  exit;
+  end;
+result:=FALSE;
+try
+  freeAndNIL(fs);
+  fs:=TfileStream.Create(flist[cur].src, fmOpenRead+fmShareDenyWrite);
+  result:=TRUE;
+except
+  fs:=NIL;
+  end;
+end; // fsInit
+
+procedure TtarStream.headerInit();
+
+  function num(i:int64; fieldLength:integer):ansistring;
+  const
+    CHARS : array [0..7] of ansichar = '01234567';
+  var
+    d: integer;
+  begin
+  d:=fieldLength-1;
+  result:=ansistring(dupeString('0', d))+#0;
+  while d > 0 do
+    begin
+    result[d]:=CHARS[i and 7];
+    dec(d);
+    i:=i shr 3;
+    if i = 0 then break;
+    end;
+  end; // num
+
+  function str(s:ansistring; fieldLength:integer; fill:ansistring=#0):ansistring;
+  begin
+  setLength(s, min(length(s), fieldLength-1));
+  result:=s+ansistring( dupeString(fill, fieldLength-length(s)) );
+  end; // str
+
+  function sum(s:ansistring):integer;
+  var
+    i: integer;
+  begin
+  result:=0;
+  for i:=1 to length(s) do
+    inc(result, ord(s[i]));
+  end; // sum
+
+  procedure applyChecksum(var s:ansistring);
+  var
+    chk: ansistring;
+  begin
+  chk:=num(sum(s), 7)+' ';
+  chk[7]:=#0;
+  move(chk[1], s[100+24+12+12+1], length(chk));
+  end; // applyChecksum
+
+const
+  FAKE_CHECKSUM = '        ';
+  USTAR = 'ustar'#0'00';
+  PERM = '0100777'#0'0000000'#0'0000000'#0; // file mode, uid, gid
+var
+  fn, s, pre: ansistring;
+begin
+fn:=ansistring(replaceStr(flist[cur].dst,'\','/'));
+if fileNamesOEM then
+  CharToOem(pWideChar(string(fn)), pAnsiChar(fn));
+pre:='';
+if length(fn) >= 100 then
+  begin
+  pre:=str('././@LongLink', 100)+PERM
+    +num(length(fn)+1, 12)+num(flist[cur].mtime, 12)
+    +FAKE_CHECKSUM+'L';
+  pre:=str(pre, 256)+str(#0+USTAR,256);
+  applyChecksum(pre);
+  pre:=pre+str(fn, 512);
+  end;
+s:=str(fn, 100)+PERM
+  +num(flist[cur].size, 12) // file size
+  +num(flist[cur].mtime, 12)  // mtime
+  +FAKE_CHECKSUM
+  +'0'+str('', 100)       // link properties
+  +USTAR;
+applyChecksum(s);
+s:=str(s, 512); // pad
+block.Size:=0;
+block.WriteString(pre+s);
+block.seek(0, soBeginning);
+end; // headerInit
+
+function TtarStream.write(const Buffer; Count: Longint): Longint;
+begin raise EWriteError.Create('write unsupproted') end;
+
+function gap512(i:int64):word; inline;
+begin
+result:=i and 511;
+if result > 0 then result:=512-result;
+end; // gap512
+
+procedure TtarStream.padInit(full:boolean=FALSE);
+begin
+block.Size:=0;
+block.WriteString(dupeString(#0, if_(full,512,gap512(pos)) ));
+block.Seek(0, soBeginning);
+end; // padInit
+
+function TtarStream.headerLengthForFilename(fn:ansistring):integer;
+begin
+result:=length(fn);
+result:=512*if_(result<100, 1, 3+result div 512);
+end; // headerLengthForFilename
+
+procedure TtarStream.calculate();
+var
+  pos: int64;
+  i: integer;
+begin
+pos:=0;
+for i:=0 to length(flist)-1 do
+  with flist[i] do
+    begin
+    firstByte:=pos;
+    inc(pos, size+headerLengthForFilename(dst));
+    inc(pos, gap512(pos));
+    end;
+inc(pos, 512); // last empty block
+cachedTotal:=pos;
+end; // calculate
+
+function TtarStream.seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
+
+  function left():int64;
+  begin result:=offset-pos end;
+
+  procedure fineSeek(s:Tstream);
+  begin inc(pos, s.seek(left(), soBeginning)) end;
+
+  function skipMoreThan(size:int64):boolean;
+  begin
+  result:=left() > size;
+  if result then inc(pos, size);
+  end;
+
+var
+  bak: int64;
+  prevCur: integer;
+begin
+{ The lastSeekFake trick is a way to fastly manage a sequence of
+  seek(0,soCurrent); seek(0,soEnd); seek(0,soBeginning);
+  such sequence called very often, while it is used to just read
+  the size of the stream, no real seeking requirement.
+}
+bak:=lastSeekFake;
+lastSeekFake:=-1;
+if (origin = soCurrent) and (offset <> 0) then
+  seek(pos+offset, soBeginning);
+if origin = soEnd then
+  if offset < 0 then
+    seek(totalSize+offset, soBeginning)
+  else
+    begin
+    lastSeekFake:=pos;
+    pos:=totalsize;
+    end;
+result:=pos;
+if origin <> soBeginning then exit;
+if bak >= 0 then
+  begin
+  pos:=bak;
+  exit;
+  end;
+
+// here starts the normal seeking algo
+
+prevCur:=cur;
+cur:=0;  // flist index
+pos:=0;  // current position in the file
+block.size:=0;
+while (left() > 0) and (cur < length(flist)) do
+  begin
+  // are we seeking inside this header?
+  if not skipMoreThan(headerLengthForFilename(flist[cur].dst)) then
+    begin
+    if (prevCur <> cur) or (where <> TW_HEADER) or eos(block) then
+      headerInit();
+    fineSeek(block);
+    where:=TW_HEADER;
+    break;
+    end;
+  // are we seeking inside this file?
+  if not skipMoreThan(flist[cur].size) then
+    begin
+    if not fsInit() then
+      raise Exception.Create('TtarStream.seek: cannot open '+flist[cur].src);
+    fineSeek(fs);
+    where:=TW_FILE;
+    break;
+    end;
+  // are we seeking inside this pad?
+  if not skipMoreThan(gap512(pos)) then
+    begin
+    padInit();
+    fineSeek(block);
+    where:=TW_PAD;
+    break;
+    end;
+  inc(cur);
+  end;//while
+if left() > 0 then
+  begin
+  padInit(TRUE);
+  fineSeek(block);
+  end;
+result:=pos;
+end; // seek
+
+function TtarStream.read(var Buffer; Count: Longint): Longint;
+var
+  p: Pbyte;
+
+  procedure goForth(d: int64);
+  begin
+  dec(count, d);
+  inc(pos, d);
+  inc(p, d);
+  end; // goForth
+
+  procedure goRead(s:Tstream);
+  begin goForth( s.read(p^, count) ) end;
+
+var
+  i, posBak: int64;
+begin
+posBak:=pos;
+p:=@buffer;
+while (count > 0) and (cur < length(flist)) do
+  case where of
+    TW_HEADER:
+      begin
+      if block.size = 0 then
+        headerInit();
+      goRead(block);
+      if not eos(block) then continue;
+      where:=TW_FILE;
+      freeAndNIL(fs); // in case the same files appear twice in a row, we must be sure to reinitialize the reader stream
+      block.size:=0;
+      end;
+    TW_FILE:
+      begin
+      fsInit();
+      if assigned(fs) then
+        goRead(fs);
+      { We reserved a fixed space for this file in the archive, but the file
+        may not exist anymore, or its size may be shorter than expected,
+        so we can't rely on eos(fs) to know if we are done in this section.
+        Lets calculate how far we are from the theoretical end of the file,
+        and decide after it.
+      }
+      i:=headerLengthForFilename(flist[cur].dst);
+      i:=flist[cur].firstByte+i+flist[cur].size-pos;
+      if count >= i then
+        where:=TW_PAD;
+      // In case the file is shorter, we pad the rest with NUL bytes
+      i:=min(count, max(0,i));
+      fillChar(p^,i,0);
+      goForth(i);
+      end;
+    TW_PAD:
+      begin
+      if block.size = 0 then padInit();
+      goRead(block);
+      if not eos(block) then continue;
+      where:=TW_HEADER;
+      block.size:=0;
+      inc(cur);
+      end;
+    end;//case
+
+// last empty block
+if count > 0 then
+  begin
+  padInit(TRUE);
+  goRead(block);
+  end;
+result:=pos-posBak;
+end; // read
+
+//////////// Thasher
+
+procedure Thasher.loadFrom(path:string);
+var
+  sr: TsearchRec;
+  s, l, h: string;
+begin
+if path='' then exit;
+path:=includeTrailingPathDelimiter(lowercase(path));
+if findFirst(path+'*.md5', faAnyFile-faDirectory, sr) <> 0 then exit;
+  repeat
+  s:=loadTextfile(path+sr.name);
+  while s > '' do
+    begin
+    l:=chopline(s);
+    h:=trim(chop('*',l));
+    if h = '' then break;
+    if l = '' then
+      // assume it is referring to the filename without the extention
+      l:=copy(sr.name, 1, length(sr.name)-4);
+    add(path+lowercase(l)+'='+h);
+    end;
+  until findnext(sr) <> 0;
+sysutils.findClose(sr);
+end; // loadFrom
+
+function Thasher.getHashFor(fn:string):string;
+begin
+try result:=values[lowercase(fn)]
+except result:='' end
+end;
+
+//////////// TstringToIntHash
+
+constructor TstringToIntHash.create;
+begin
+inherited create;
+sorted:=TRUE;
+duplicates:=dupIgnore;
+end; // create
+
+function TstringToIntHash.getIntByIdx(idx:integer):integer;
+begin if idx < 0 then result:=0 else result:=integer(objects[idx]) end;
+
+function TstringToIntHash.getInt(s:string):integer;
+begin result:=getIntByIdx(indexOf(s)) end;
+
+procedure TstringToIntHash.setInt(s:string; int:integer);
+begin
+beginUpdate();
+objects[add(s)]:=Tobject(int);
+endUpdate();
+end; // setInt
+
+function TstringToIntHash.incInt(s:string):integer;
+var
+  i: integer;
+begin
+beginUpdate();
+i:=add(s);
+result:=integer(objects[i]);
+inc(result);
+objects[i]:=Tobject(result);
+endUpdate();
+end; // autoupdatedFiles_getCounter
+
+//////////// Ttpl
+
+constructor Ttpl.create(txt:string=''; over:Ttpl=NIL);
+begin
+fullText:=txt;
+self.over:=over;
+end;
+
+destructor Ttpl.destroy;
+begin
+freeAndNIL(strTable);
+inherited;
+end; // destroy
+
+function Ttpl.getStrByID(id:string):string;
+begin
+if strTable = NIL then
+  begin
+  strTable:=THashedStringList.create;
+  strTable.text:=txt['special:strings'];
+  end;
+result:=strTable.values[id];
+if (result = '') and assigned(over) then
+  result:=over.getStrByID(id)
+end; // getStrByID
+
+function Ttpl.getIdx(section:string):integer;
+begin
+if section <> last.section then
+  begin
+  last.section:=section;
+  for result:=0 to length(sections)-1 do
+    if sameText(sections[result].name, section) then
+      begin
+      last.idx:=result;
+      exit;
+      end;
+  last.idx:=-1;
+  end;
+result:=last.idx
+end; // getIdx
+
+function Ttpl.newSection(section:string):PtplSection;
+var
+  i: integer;
+begin
+// add
+i:=length(sections);
+setLength(sections, i+1);
+result:=@sections[i];
+result.name:=section;
+// getIdx just filled 'last' with not-found, so we must update
+last.section:=section;
+last.idx:=i;
+// manage file.EXT sections
+if not ansiStartsText('file.', section) then exit;
+i:=length(fileExts);
+setLength(fileExts, i+2);
+delete(section, 1, 4);
+fileExts[i]:=section;
+fileExts[i+1]:=str_(last.idx);
+lastExt.section:=section;
+lastExt.idx:=last.idx;
+end; // newSection
+
+function Ttpl.sectionExist(section:string):boolean;
+begin
+result:=getIdx(section)>=0;
+if not result and assigned(over) then
+  result:=over.sectionExist(section);
+end;
+
+function Ttpl.getSection(section:string):PtplSection;
+var
+  i: integer;
+begin
+result:=NIL;
+i:=getIdx(section);
+if i >= 0 then result:=@sections[i];
+if assigned(over) and ((result = NIL) or (trim(result.txt) = '')) then
+  result:=over.getSection(section);
+end; // getSection
+
+function Ttpl.getTxt(section:string):string;
+var
+  i: integer;
+begin
+i:=getIdx(section);
+if i >= 0 then
+  result:=sections[i].txt
+else if assigned(over) then
+  result:=over[section]
+else
+  result:=''
+end; // getTxt
+
+function Ttpl.getTxtByExt(fileExt:string):string;
+var
+  i: integer;
+begin
+result:='';
+if (lastExt.section > '') and (fileExt = lastExt.section) then
+  begin
+  if lastExt.idx >= 0 then result:=sections[lastExt.idx].txt;
+  exit;
+  end;
+i:=idxOf(fileExt, fileExts);
+if (i < 0) and assigned(over) then
+  begin
+  result:=over.getTxtByExt(fileExt);
+  if result > '' then exit;
+  end;
+lastExt.section:=fileExt;
+lastExt.idx:=i;
+if i < 0 then exit;
+i:=int_(fileExts[i+1]);
+lastExt.idx:=i;
+result:=sections[i].txt;
+end; // getTxtByExt
+
+procedure Ttpl.fromString(txt:string);
+begin
+src:='';
+sections:=NIL;
+fileExts:=NIL;
+last.section:=#255'null'; // '' is a valid (and often used) section name. This is a better null value.
+freeAndNIL(strTable);  // mod by mars
+
+appendString(txt);
+end; // fromString
+
+procedure Ttpl.appendString(txt:string);
+var
+  ptxt, bos: Pchar;
+  cur_section, next_section: string;
+
+  function pred(p:pchar):pchar; inline;
+  begin
+  result:=p;
+  if p <> NIL then
+    dec(result);
+  end;
+
+  function succ(p:pchar):pchar; inline;
+  begin
+  result:=p;
+  if p <> NIL then
+    inc(result);
+  end;
+
+  procedure findNextSection();
+  begin
+  // find start
+  bos:=ptxt;
+    repeat
+    if bos^ <> '[' then bos:=ansiStrPos(bos, #10'[');
+    if bos = NIL then exit;
+    if bos^ = #10 then inc(bos);
+    if getSectionAt(bos, next_section) then
+      exit;
+    inc(bos);
+    until false;
+  end; // findNextSection
+
+  procedure saveInSection();
+  var
+    ss: TStringDynArray;
+    s: string;
+    i, si: integer;
+    base: TtplSection;
+    till: pchar;
+    append: boolean;
+    sect, from: PtplSection;
+  begin
+  till:=pred(bos);
+  if till = NIL then till:=pred(strEnd(ptxt));
+  if till^ = #10 then dec(till);
+  if till^ = #13 then dec(till);
+
+  base.txt:=getStr(ptxt, till);
+  // there may be flags after |
+  s:=cur_section;
+  cur_section:=chop('|', s);
+  base.nolog:=ansiPos('no log', s) > 0;
+  base.nourl:=ansiPos('private', s) > 0;
+  base.cache:=ansiPos('cache', s) > 0;
+  base.ts:=now();
+
+  s:=cur_section;
+  append:=ansiStartsStr('+', s);
+  if append then
+    delete(s,1,1);
+
+  // there may be several section names separated by =
+  ss:=split('=', s);
+  // handle the main section specific case
+  if ss = NIL then addString('', ss);
+  // assign to every name the same txt
+  for i:=0 to length(ss)-1 do
+    begin
+    s:=trim(ss[i]);
+    si:=getIdx(s);
+    from:=NIL;
+    if si < 0 then // not found
+      begin
+      if append then
+        from:=getSection(s);
+      sect:=newSection(s);
+      end
+    else
+      begin
+      sect:=@sections[si];
+      if append then
+        from:=sect;
+      end;
+    if from<>NIL then
+      begin // inherit from it
+      sect.txt:=from.txt+base.txt;
+      sect.nolog:=from.nolog or base.nolog;
+      sect.nourl:=from.nourl or base.nourl;
+      continue;
+      end;
+    sect^:=base;
+    sect.name:=s; // restore this lost attribute
+    end;
+  end; // saveInSection
+
+const
+  BOM = #$EF#$BB#$BF;
+var
+  first: boolean;
+begin
+// this is used by some unicode files. at the moment we just ignore it.
+if ansiStartsStr(BOM, txt) then
+  delete(txt, 1, length(BOM));
+  
+if txt = '' then exit;
+src:=src+txt;
+cur_section:='';
+ptxt:=@txt[1];
+first:=TRUE;
+  repeat
+  findNextSection();
+  if not first or (trim(getStr(ptxt, pred(bos))) > '') then
+    saveInSection();
+  if bos = NIL then break;
+  cur_section:=next_section;
+  inc(bos, length(cur_section)); // get faster to the end of line
+  ptxt:=succ(ansiStrPos(bos, #10)); // get to the end of line (and then beyond)
+  first:=FALSE;
+  until ptxt = NIL;
+updateUTF8();
+if assigned(onChange) then
+  onChange(self);
+end; // appendString
+
+procedure Ttpl.setOver(v:Ttpl);
+begin
+fOver:=v;
+updateUTF8();
+end; // setOver
+
+procedure Ttpl.updateUTF8();
+begin fUTF8:=assigned(over) and over.utf8 or utf8test(fullText) end;
+
+function Ttpl.getSections():TStringDynArray;
+var
+  i: integer;
+begin
+i:=length(sections);
+setLength(result, i);
+for i:=0 to i-1 do
+  result[i]:=sections[i].name;
+end;
+
+function Ttpl.me():Ttpl;
+begin result:=self end;
+
+
+
+procedure Ttlv.parse(data:ansistring);
+begin
+whole:=data;
+cur:=1;
+bound:=length(data);
+stackTop:=0;
+end; // parse
+
+function Ttlv.pop(var value:ansistring):integer;
+var
+  n: integer;
+begin
+result:=-1;
+if isOver() then exit; // finished
+result:=integer((@whole[cur])^);
+n:=Pinteger(@whole[cur+4])^;
+value:=copy(whole, cur+8, n);
+lastValue:=value;
+inc(cur, 8+n);
+end; // pop
+
+function Ttlv.down():boolean;
+begin
+// do we have anything to recur on?
+if (cur = 1) then
+  begin
+  result:=false;
+  exit;
+  end;
+// push into the stack
+if (stackTop = length(stack)) then // space over
+  setLength(stack, stackTop+10); // make space
+stack[stackTop]:=cur;
+inc(stackTop);
+stack[stackTop]:=bound;
+inc(stackTop);
+
+bound:=cur;
+dec(cur, length(lastValue));
+result:=true;
+end; // down
+
+function Ttlv.up():boolean;
+begin
+if stackTop = 0 then
+  begin
+  result:=false;
+  exit;
+  end;
+dec(stackTop);
+bound:=stack[stackTop];
+dec(stackTop);
+cur:=stack[stackTop];
+result:=true;
+end; // up
+
+function Ttlv.getTotal():integer;
+begin result:=length(whole) end;
+
+function Ttlv.getCursor():integer;
+begin result:=cur end;
+
+function Ttlv.getPerc():real;
+begin
+if length(whole) = 0 then result:=0
+else result:=cur/length(whole)
+end; // getPerc
+
+function Ttlv.isOver():boolean;
+begin result:=(cur+8 > bound) end;
+
+function Ttlv.getTheRest():ansistring;
+begin result:=copy(whole, cur, bound-cur+1) end;
+
+end.
diff --git a/copyright.txt b/copyright.txt
new file mode 100644
index 0000000..7055b61
--- /dev/null
+++ b/copyright.txt
@@ -0,0 +1,6 @@
+HFS version %s, Copyright (C) 2002-2020  Massimo Melina (www.rejetto.com)
+HFS comes with ABSOLUTELY NO WARRANTY; for details click Menu -> Web links -> License
+This is FREE software, and you are welcome to redistribute it
+under certain conditions.
+
+Build #%s
diff --git a/country.cache b/country.cache
new file mode 100644
index 0000000..c570154
--- /dev/null
+++ b/country.cache
@@ -0,0 +1 @@
+127.0.0.1=(Private Address) (XX)
\ No newline at end of file
diff --git a/data.RES b/data.RES
new file mode 100644
index 0000000..f882cec
Binary files /dev/null and b/data.RES differ
diff --git a/data.rc b/data.rc
new file mode 100644
index 0000000..f3ce7e6
--- /dev/null
+++ b/data.rc
@@ -0,0 +1,12 @@
+1 24 "WindowsXP.manifest"
+defaultTpl TEXT default.tpl
+copyright TEXT copyright.txt
+dmBrowserTpl TEXT dmBrowser.tpl
+invertban TEXT invertban.txt
+filelistTpl TEXT filelist.tpl
+uploadDisabled TEXT upload_disabled.txt
+uploadHowTo TEXT upload_how.txt
+alias TEXT alias.txt
+shell GIF shell.gif
+IPservices TEXT ipservices.txt
+jquery TEXT jquery.min.js
diff --git a/default.tpl b/default.tpl
new file mode 100644
index 0000000..d4610e1
--- /dev/null
+++ b/default.tpl
@@ -0,0 +1,1155 @@
+Welcome! This is the default template for HFS 2.4
+template revision TR3.
+
+Here below you'll find some options affecting the template.
+Consider 1 is used for "yes", and 0 is used for "no".
+
+DO NOT EDIT this template just to change options. It's a very bad way to do it, and you'll pay for it!
+Correct way: in Virtual file system, right click on home/root, properties, diff template,
+put this text [+special:strings]
+and following all the options you want to change, using the same syntax you see here.
+
+[+special:strings]
+
+option.newfolder=1
+option.move=1
+option.comment=1
+option.rename=1
+COMMENT with these you can disable some features of the template. Please note this is not about user permissions, this is global!
+
+[common-head]
+<!DOCTYPE html>
+<html>
+<head>
+	<meta http-equiv="content-type" content="text/html; charset=UTF-8">
+	<meta name="viewport" content="width=device-width, initial-scale=1.0">
+	<link rel="shortcut icon" href="/favicon.ico">
+	<link rel="stylesheet" href="/?mode=section&id=style.css" type="text/css">
+
+[]
+{.$common-head.}
+	<title>{.!HFS.} %folder%</title>
+    <script type="text/javascript" src="/?mode=jquery"></script>
+	<style class='trash-me'>
+	.onlyscript, button[onclick] { display:none; }
+	</style>
+    <script>
+    // this object will store some %symbols% in the javascript space, so that libs can read them
+    HFS = { folder:'{.js encode|%folder%.}' };
+    </script>
+	<script type="text/javascript" src="/?mode=section&id=lib.js"></script>
+</head>
+<body>
+	<div id="wrapper">
+	<!--{.comment|--><h1 style='margin-bottom:100em'>WARNING: this template is only to be used with HFS 2.3 (and macros enabled)</h1> <!--.} -->
+	{.$menu panel.}
+	{.$folder panel.}
+	{.$list panel.}
+	</div>
+</body>
+<!-- Build-time: %build-time% -->
+</html>
+
+[list panel]
+{.if not| %number% |{:
+	<div id='nothing'>{.!{.if|{.length|{.?search.}.}|No results|No files.}.}</div> 
+:}|{:
+	<div id='files' class="hideTs {.for each|z|mkdir|comment|move|rename|delete|{: {.if|{.can {.^z.}.}|can-{.^z.} .}:}.}">
+	%list%
+	</div>
+:}.}
+<div id="serverinfo">
+	<a href="http://www.rejetto.com/hfs/"><i class="fa fa-coffee"></i> {.!Uptime.}: %uptime%</a>
+</div>
+
+
+[menu panel]
+<script>
+	$(function(){
+        if ($('#menu-panel').css('position').indexOf('sticky') < 0) // sticky is not supported
+            setInterval(function(){ $('#wrapper').css('margin-top', $('#menu-panel').height()+5) }, 300); // leave space for the fixed panel
+    });
+
+    function changePwd() {
+        {.if|{.can change pwd.}
+        | ask(this.innerHTML, 'password', function(s){
+            s && ajax('changepwd', {'new':s}, getStdAjaxCB([
+                "!{.!Password changed, you'll have to login again..}",
+                '>~login'
+            ]))
+        })
+        | showError("{.!Sorry, you lack permissions for this action.}")
+		.}
+    }//changePwd
+
+    function ajax(method, data, cb) {
+        if (!data)
+            data = {};
+        data.token = "{.cookie|HFS_SID_.}";
+        return $.post("?mode=section&id=ajax."+method, data, cb||getStdAjaxCB());
+    }//ajax
+
+</script>
+
+<div id='menu-panel'>
+	<div id="title-bar">
+		{.$title-bar.}
+	</div>
+	<div id="menu-bar">
+		{.if| {.length|%user%.}
+		| <button class='pure-button' onclick='$("#user-panel").toggle()'><i class='fa fa-user-circle'></i><span>%user%</span></button>
+		| <button class='pure-button' title="{.!Login.}" onclick='location = "~login"'><i class='fa fa-user'></i><span>{.!Login.}</span></button>
+		.}
+		{.if| {.get|can recur.} |
+		<button class='pure-button' onclick="{.if|{.length|{.?search.}.}| location = '.'| $('#search-panel').toggle().find(':input:first').focus().}">
+			<i class='fa fa-search'></i><span>{.!Search.}</span>
+		</button>
+		/if.}
+		<button id="multiselection" class='pure-button' title="{.!Enable multi-selection.}"  onclick='toggleSelection()'>
+			<i class='fa fa-check-square'></i>
+			<span>{.!Selection.}</span>
+		</button>
+		{.if|{.can mkdir.}|
+			<button title="{.!New folder.}" class='pure-button' id='newfolderBtn' onclick='ask(this.innerHTML, "text", name=> ajax("mkdir", { name:name }))'>
+				<i class="fa fa-folder"></i>
+				<span>{.!New folder.}</span>
+			</button>
+		.}
+		<button id="toggleTs" class='pure-button' title="{.!Display timestamps.}"  onclick="toggleTs()">
+			<i class='fa fa-clock-o'></i>
+			<span>{.!Toggle timestamp.}</span>
+		</button>
+
+		{.if|{.get|can archive.}|
+		<button id='archiveBtn' class='pure-button' onclick='ask("{.!Download these files as a single archive?.}", function() { submit({ selection: getSelectedItemsName() }, "{.get|url|mode=archive|recursive.}") })'>
+			<i class="fa fa-file-archive-o"></i>
+			<span>{.!Archive.}</span>
+		</button>
+		.}
+		{.if| {.get|can upload.} |{:
+			<button id="upload" onclick="upload()" class='pure-button' title="{.!Upload.}">
+				<i class='fa fa-upload'></i>
+				<span>{.!Upload.}</span>
+			</button>
+		:}.}
+
+		<button id="sort" onclick="changeSort()" class='pure-button'>
+			<i class='fa fa-sort'></i>
+			<span></span>
+		</button>
+	</div>
+
+    <div id="additional-panels">
+        <div id="user-panel" class="additional-panel" style="display:none;">
+			<span>{.!User.}: %user%</span>
+			<button class="pure-button" onclick='changePwd.call(this)'><i class="fa fa-key"></i> {.!Change password.}</button>
+        </div>
+		{.$search panel.}
+		{.$upload panel.}
+		<div id="selection-panel" class="additional-panel" style="display:none">
+			<label><span id="selected-counter">0</span> {.!selected.}</label>
+			<span class="buttons">
+				<button id="select-mask" class="pure-button"><i class="fa fa-asterisk"></i><span>{.!Mask.}</span></button>
+				<button id="select-invert" class="pure-button"><i class="fa fa-retweet"></i><span>{.!Invert.}</span></button>
+				<button id="delete-selection" class="pure-button"><i class="fa fa-trash"></i><span>{.!Delete.}</span></button>
+				<button id="move-selection" class="pure-button"><i class="fa fa-truck"></i><span>{.!Move.}</span></button>
+			</span>
+		</div>
+    </div>
+</div>
+
+[title-bar]
+<i class="fa fa-globe"></i> {.!title.}
+<i class="fa fa-lightbulb" id="switch-theme"></i>
+<script>
+$('body').addClass(getCookie('theme'))
+$(function(){
+
+    var titleBar = $('#title-bar')
+	var h = titleBar.height()
+	var on = true
+	var k = 'shrink'
+    window.onscroll = function(){
+        if (window.scrollY > h)
+        	titleBar.addClass(k)
+		else if (!window.scrollY)
+            titleBar.removeClass(k)
+    }
+
+    $('#switch-theme').click(function(ev) {
+        var k = 'dark-theme';
+        $('body').toggleClass(k);
+        setCookie('theme', $('body').hasClass(k) ? k : '');
+    });
+});
+</script>
+<style>
+	#title-bar { color:white; height:1.5em; transition:height .2s ease; overflow:hidden; position: relative; top: 0.2em;font-size:120%; }
+	#title-bar.shrink { height:0; }
+	#foldercomment { clear:left; }
+	#switch-theme { color: #aaa; position: absolute; right: .5em; }
+</style>
+
+[folder panel]
+<div id='folder-path'>
+	{.breadcrumbs|{:<a class='pure-button' href="%bread-url%"/> {.if|{.length|%bread-name%.}|/ %bread-name%|<i class='fa fa-home'></i>.}</a>:} .}
+</div>
+{.if|%number%|
+<div id='folder-stats'>
+	%number-folders% {.!folders.}, %number-files% {.!files.}, {.add bytes|%total-size%.}
+</div>
+.}
+{.123 if 2| <div id='foldercomment' class="comment"><i class="fa fa-quote-left"></i>|{.commentNL|%folder-item-comment%.}|</div> .}
+
+[upload panel]
+<div id="upload-panel" class="additional-panel closeable" style="display:none">
+	<div id="upload-counters">
+		{.!Uploaded.}: <span id="upload-ok">0</span> - {.!Failed.}: <span id="upload-ko">0</span> - {.!Queued.}: <span id="upload-q">0</span>
+	</div>
+	<div id="upload-results"></div>
+	<div id="upload-progress">
+		{.!Uploading....} <span id="progress-text"></span>
+		<progress max="1"></progress>
+	</div>
+	<button class="pure-button" onclick="reload()"><i class="fa fa-refresh"></i> {.!Reload page.}</button>
+</div>
+
+[search panel]
+<div id="search-panel" class="additional-panel closeable" style="{.if not|{.length|{.?search.}.}|display:none.}">
+	<form>
+		{.!Search.} <input name="search" value="{.escape attr|{.?search.}.}" />
+		<br><input type='radio' name='where' value='fromhere' checked='true' />  {.!this folder and sub-folders.}
+		<br><input type='radio' name='where' value='here' />  {.!this folder only.}
+		<br><input type='radio' name='where' value='anywhere' />  {.!entire server.}
+		<button type="submit" class="pure-button">{.!Go.}</button>
+	</form>
+</div>
+<style>
+	#search-panel [name=search] { margin: 0 0 0.3em 0.1em; }
+	#search-panel button { float:right }
+</style>
+<script>
+    $('#search-panel').submit(function(){
+        var s = $(this).find('[name=search]').val()
+        var folder = ''
+        var ps = []
+        switch ($('[name=where]:checked').val()) {
+            case 'anywhere': folder = '/'
+            case 'fromhere':
+                ps.push('search='+s)
+                break
+            case 'here':
+                if (s.indexOf('*') < 0)
+                    s = '*'+s+'*'
+                ps.push('files-filter='+s)
+                ps.push('folders-filter='+s)
+                break
+        }
+        location = folder+'?'+ps.join('&')
+        return false
+    })
+</script>
+
+[+special:strings]
+title=HTTP File Server
+max s dl msg=There is a limit on the number of <b>simultaneous</b> downloads on this server.<br>This limit has been reached. Retry later.
+retry later=Please, retry later.
+item folder=in folder
+no files=No files in this folder
+no results=No items match your search query
+confirm=Are you sure?
+
+[icons.css|no log]
+@font-face { font-family: 'fontello';
+	src: url('data:application/x-font-woff;base64,d09GRgABAAAAACNUAA8AAAAAOiAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAABHU1VCAAABWAAAADsAAABUIIslek9TLzIAAAGUAAAAQwAAAFY+IFPDY21hcAAAAdgAAAEVAAADTpFDYxRjdnQgAAAC8AAAABMAAAAgBtX/BGZwZ20AAAMEAAAFkAAAC3CKkZBZZ2FzcAAACJQAAAAIAAAACAAAABBnbHlmAAAInAAAFtMAACOkJRhYdWhlYWQAAB9wAAAAMgAAADYTVdsXaGhlYQAAH6QAAAAgAAAAJAeCA7NobXR4AAAfxAAAAEYAAAB8a2r/7mxvY2EAACAMAAAAQAAAAECDwI6ybWF4cAAAIEwAAAAgAAAAIAGTDbBuYW1lAAAgbAAAAXcAAALNzJ0eIHBvc3QAACHkAAAA8QAAAVrd0oEdcHJlcAAAItgAAAB6AAAAhuVBK7x4nGNgZGBg4GIwYLBjYHJx8wlh4MtJLMljkGJgYYAAkDwymzEnMz2RgQPGA8qxgGkOIGaDiAIAJjsFSAB4nGNgZC5nnMDAysDAVMW0h4GBoQdCMz5gMGRkAooysDIzYAUBaa4pDA4vGD7tZQ76n8UQxRzEMA0ozAiSAwD0igxrAHic5ZK5bcNAEEUfLZq+RF/yfbAClWC4FqkLF+Q2lApw5siRChhAya6gQJn8lzOAFagD7+IR2A+Qs+B/wCEwEGNRQ/VDRVnfSqs+H3Da5zWfOt9xqaSxUfpKi7RM69zmaZ7nzWq23YKxk0/+8j2r0rfedvZ7v0t+oAm1btZwxDEnmn/GkJZzLjT9imtG3HCr9+954JEnnnnhlU4vN3tn/a81LI/qI05dacUpjVqgv4wFxQALigUWFDssUBtYoF6wQA1hgbrCgmKNBeoPC8rtLFCnWKB2sUA9Y4EaxwJ1jwWyAAvkAxbIDDnoyBHSwpEtpKUjb0hrRwaRW0cukSeOrCJPHflFnjsyjbxx5ByrmUP3C41mdBkAAAB4nGNgQAMSEMgc9D8LhAESbAPdAHicrVZpd9NGFB15SZyELCULLWphxMRpsEYmbMGACUGyYyBdnK2VoIsUO+m+8Ynf4F/zZNpz6Dd+Wu8bLySQtOdwmpOjd+fN1czbZRJaktgL65GUmy/F1NYmjew8CemGTctRfCg7eyFlisnfBVEQrZbatx2HREQiULWusEQQ+x5ZmmR86FFGy7akV03KLT3pLlvjQb1V334aOsqxO6GkZjN0aD2yJVUYVaJIpj1S0qZlqPorSSu8v8LMV81QwohOImm8GcbQSN4bZ7TKaDW24yiKbLLcKFIkmuFBFHmU1RLn5IoJDMoHzZDyyqcR5cP8iKzYo5xWsEu20/y+L3mndzk/sV9vUbbkQB/Ijuzg7HQlX4RbW2HctJPtKFQRdtd3QmzZ7FT/Zo/ymkYDtysyvdCMYKl8hRArP6HM/iFZLZxP+ZJHo1qykRNB62VO7Es+gdbjiClxzRhZ0N3RCRHU/ZIzDPaYPh788d4plgsTAngcy3pHJZwIEylhczRJ2jByYCVliyqp9a6YOOV1WsRbwn7t2tGXzmjjUHdiPFsPHVs5UcnxaFKnmUyd2knNoykNopR0JnjMrwMoP6JJXm1jNYmVR9M4ZsaERCICLdxLU0EsO7GkKQTNoxm9uRumuXYtWqTJA/Xco/f05la4udNT2g70s0Z/VqdiOtgL0+lp5C/xadrlIkXp+ukZfkziQdYCMpEtNsOUgwdv/Q7Sy9eWHIXXBtju7fMrqH3WRPCkAfsb0B5P1SkJTIWYVYhWQGKta1mWydWsFqnI1HdDmla+rNMEinIcF8e+jHH9XzMzlpgSvt+J07MjLj1z7UsI0xx8m3U9mtepxXIBcWZ5TqdZlu/rNMfyA53mWZ7X6QhLW6ejLD/UaYHlRzodY3lBC5p038GQizDkAg6QMISlA0NYXoIhLBUMYbkIQ1gWYQjLJRjC8mMYwnIZhrC8rGXV1FNJ49qZWAZsQmBijh65zEXlaiq5VEK7aFRqQ54SbpVUFM+qf2WgXjzyhjmwFkiXyJpfMc6Vj0bl+NYVLW8aO1fAsepvH472OfFS1ouFPwX/1dZUJb1izcOTq/Abhp5sJ6o2qXh0TZfPVT26/l9UVFgL9BtIhVgoyrJscGcihI86nYZqoJVDzGzMPLTrdcuan8P9NzFCFlD9+DcUGgvcg05ZSVnt4KzV19uy3DuDcjgTLEkxN/P6VvgiI7PSfpFZyp6PfB5wBYxKZdhqA60VvNknMQ+Z3iTPBHFbUTZI2tjOBIkNHPOAefOdBCZh6qoN5E7hhg34BWFuwXknXKJ6oyyH7kXs8yik/Fun4kT2qGiMwLPZG2Gv70LKb3EMJDT5pX4MVBWhqRg1FdA0Um6oBl/G2bptQsYO9CMqdsOyrOLDxxb3lZJtGYR8pIjVo6Of1l6iTqrcfmYUl++dvgXBIDUxf3vfdHGQyrtayTJHbQNTtxqVU9eaQ+NVh+rmUfW94+wTOWuabronHnpf06rbwcVcLLD2bQ7SUiYX1PVhhQ2iy8WlUOplNEnvuAcYFhjQ71CKjf+r+th8nitVhdFxJN9O1LfR52AM/A/Yf0f1A9D3Y+hyDS7P95oTn2704WyZrqIX66foNzBrrblZugbc0HQD4iFHrY64yg18pwZxeqS5HOkh4GPdFeIBwCaAxeAT3bWM5lMAo/mMOT7A58xh0GQOgy3mMNhmzhrADnMY7DKHwR5zGHzBnHWAL5nDIGQOg4g5DJ4wJwB4yhwGXzGHwdfMYfANc+4DfMscBjFzGCTMYbCv6dYwzC1e0F2gtkFVoANTT1jcw+JQU2XI/o4Xhv29Qcz+wSCm/qjp9pD6Ey8M9WeDmPqLQUz9VdOdIfU3Xhjq7wYx9Q+DmPpMvxjLZQa/jHyXCgeUXWw+5++J9w/bxUC5AAEAAf//AA94nMVaC5AcxXnuv3veOzv7uNmZvdfqbvdu9zidVmKf6O60Wj33dHeCk3SS7kDIKowwcHpgBUMCWMZAucABKcEyZWOXY1y2U+WnhGyHEBuoCmCXcCVAKleO7VQ5TioRdmK7KrhiK2jJ17N7eoCJU6m4ctqd6e7t7un++n98/z9ixNibp8SNIsTKrLfeVR7JdMUMjRE1GDE6zBi76YrsGFcTyylFEXJoJSVcTc+ks9WyrmVXUraylnJ5Wks1WkblUqVaLHi9VK14y8jTIiTGuhwnExnt/Ohwb6N3hE50jToDjtN94kRXNDIQuar7xHCq0Tv80a6roplItPMEGc5o1xqM2fnF3mEa6fniTrSuwaBdu97pBybePI89vAt7cFk/y7N19VqYgi1wQYLTQWxFEFtgTBFMWWAaE1wT+5iiqsosUxR1jqmKOp3wEknXj+tq93LStTS2VlpLlcIybAYXz/VLeXJEiteo6jqUzqNQSBE/9q+hntBnQ6HVVsra/vFQj73a2rj9w59/eIbPPviFD+26+8iLZ79zSLvrm68/fZQe/mkIXXtCq0Oh7Y9b1upQ6qodH57lM8c+cwzdP7zjfc/ffvvzP5EXAM+4PBt+RtgswVJssJ5mKqmHBZGCg1G4chg9eHBEHX4s5hc0tWv5oKtl+tPZcqkmfK9QLaSEcLV0nipY6ZnNVzYHrtxsJYdrK7acmRxen+0xjt/ztbuU+770wKbxubnxVbO7xodoYiJbm91Fz80dPXryXn4Pexu+9foah4ibxBnxiyAvwQqRUoj9Jni9TDYTwAsRWk7p7BoqVcak0IxRwfvN8NLrlvGkYVnG+y19wLDOvgOyPH1Ot4Iez6Pzd98ZVAWY/lo8IbYzg8VYjq1lG+vrxkk3TMaBZsNEURi6wHaEIjTloEoAHHuUG2Jc4XuYYdjGlrVrBga9dHxwdTJuqb3LB+XiycPaLxSkmuAkcthesR9nsZb6C57wIhSIVrW1cakteqJY4GfclMuTXclH3L4493qSm/u8N17yU9TnkZjq39U/TcLr+4YVPwcpOxczLf+45xx3PDqevDESDORuZKnw8GkPAxOnvb7pPnxoyI+eC4XORf3EuYhLnnOOyTN9882TYl5EmcniLMOG67mQwC6l1ohAX/YxicislMM5KWjTfmd2QFGTy6mUI69YqHGVspm0Q7o76Do8L2pKivMfrmpeN31t7baZwvlX6XNTe3Y8PEP8hxuPfPpLn7ltM19/+6dOfvKOOu27drK5p1CYOXILfa4wc2z7ddfNffoIfr7jk197/Pdr2uSBz7P2WZ0SW/mbEC2XdbIB9qE6IOFqr+foiuCdcsE4HWJKY+pkfGaunmMqV6EWAmqBn6Ab+PHdGjRGoe24kbIbsqlMddezb+/JDr+943w9zlh/X9KPRkwDy9BcHabQr+ZwaAkqZdI6aQm3WKhSJedTpkxuhHIte/FS4f7iBL3LVpXmK0pYVWilSJ1trjortrrXn73eHfPud/Xi/cXxBtdspfmqgivllfeeba58jR7vTVz/2p5E4n5vyQ78Wnwa+reCrWdX16fGSNEGSVWgfDpx0jmkFaIJaYXScUVdYKrgqljAnrhGfB92yMQsE4LNocCmXT+RK68uFw21J9DFwGLEII39BV9aeS2Ty6JN02Ou5/cXKtBTWMJiwfc66FLDSC3DKOJ7NzRXbdi7dwO9nEmZQu/WdDVsN1cNlqgyQC8PltQBTRdK6IPN1eEB5xeOswY+4CN0Cyqw1FOnWkPX7yVH6dB6oHGlwfbgRww1g62R2hx1nF8E/cNyYBgzSEMT6LK0S37dhTGiiyYxUy4K1V9OsYvbk1amN9DCJyaL5+eLk5PF08VJuhPfN5t3yipPymt8csnmzWNum75F/8HvnDppzsytG2ffYn/BnmJ/wh5jD0qLh0cdlzCj9H32N+wgm2fbcEg1VmR9EFmL6YzTp+hj9Bg9TH9Id9H7aD+9mwT7B/YjZmMGnXbQVhrCeMgXvU4/oFfoJXqOnqGrqIg2ku2s0T110sLzN7Sf/iCUQ8WzvyVVFaXf/Rp01sCeCc8itrn7/w+I+fngJOpl6K4uuH6Q6ZrQNXh1Q2jGAjNIGATJp0MmSYmfxY2JOSgL1Hy6BWN9VCEB/Rf7GddVri9gDrU1h9qaQ704h6q25lB3Ye/qZPf/8snz8+s6pcTS92iR/pz+jHbTLvZt9gL7OvsaO8W+wv6A3QGMNOBoo58NxFTmLpc+cMkdwrHohRqV4VwqvuRd+GjZsquXslo5r0i9XAnm4g6Tm9bSegVKXMnminkOfoZmSchSKEC/Pd8DK0Ahm8M/XX4LWb1GGTlpzsMFNswreqVcIeig+bIzHpDDtJg1l5X1FMEi6HiU5ul5ynm5DMq5bLXk5zS9IKfyqz4G656OFWCopqe4W/V0DMPAXFbzinKeZVhQVVsG3+9rcr4yennVSi7Py0UYGC3Fi1h3IaUsE9KNVjC4ml4GPppIkV8pYxZc5O6zFb9QwXaxLVdLZCrSTKFdT+uOyGIJsp6T64IlKGEfXgUzYcFeNcWBTqXqwfzVKFvOlcGYqqUAjQJ6pLGaGhU9ea16lWyNEtVKRq5RAlwoAxBRqWZhGiuSEuMTIewsAbwkHYiAJWcl7hUt4VAiT1Us3AMcmu9qHn359hePLHEZ6uCGIK6IWKLDIpsbmsCRKYqlagoZsHBCKPjTSOOGqSqwjYIMm9Qe+EOODg5x3UQXgtSRbsEZhMEAnQ7FgCOA6zQ5dZiawlXNEoYC4ReaidlUU1EFfIZCjh6KKFGBWRWDDHnDxAJsM64K28bjud3ZLTRV7VBFSAmHSPodQzGVbQX4Hk0VlLSwBlWR68QjQRQtXY8ruqnggVwSR+7AWfGIAYLFhUqKZRFmUG2dC0OYuqdpqmFEFRfzYHLhCIUs1YhZHH8E/0YWF7bgQMOQ1FMP4TnccIWBAXLfKpeEVJCSFKakByLMHQmHgl80rAE4KYpuqLqtoAIPqQYLsRUex3CuOibnlgGoNPgx07Zu+b0ZsimM8QlpNiTQqg2dxx/JlVs4IQ6o0QkLUUIRcGOLRKjNOnFp/j0ZmA2dhRpCN0xhk6UHuBL8v6oBV4Xk4eKGMjckrISd46x1EFJLV1RNtaVoYGu2CVBUbEHEuHAM2S5MHKvQ4EItTKliW5ai6zqZqgFGy2GwMCPEwRLCkT+ris7JMiJcSGPmAABFwz8sYsU1ijx1RYtYWAOou2O6IU5aFycfEidUV4goMFYM1VAolAyrNnat2IajOGSFXB3mE5DjLOLCUhRT1biwAoB51IhL+cU6LN0JjhJ4R9WItMU8hE2jqiQd01FNUBwC1AAdaqLyCGQEdXwM1Ve4ASAdblkqGpSQqUrRwBlgzwoUAhBoYEU4Fml8JVFqhhM75Z41HiGpB4CaW0JDE9B1NC77SHmS86g9Rsx0TJsrUb3NvR7lL7Aou5Ll68vz2cFkIuKEYe1tkvEPTonAH2W0zGHfbxoeyqT7Y67aJh96ppxJIFzOxUzyqroMnXMmtSLnakCgykvMxJdUynMWjy+CptM6/LsnrerQpebR5lE9rGagtvTH8VUdD1rGgmHdpdFQ85fourjoSRtjNH9FA1fIeGV98xl0vUJzVLo6EnnvARk//eNNSrTNJR8VX0RM6bHNbFv96jikkNaWoePj1SFId6WvC6KlNAJiQYiDBFw6XwCxVG6T3ok0REJcVfkswgMZ2nGEdpmVgx2Drci5lE2DEfuIDGC3YUNzCBUqBBzgwsq69DsAAAwziFGlDXd10Ok8rUQsWAUaKUEv166thfzkSJ2P7xkny/dX1OgHFUv14l2VuyPDnV6k+dANt1535NYvfP3Ilhcrju3pZsXStS5/pNLFSytqtRW+H6rP1fj64aQfqjU/a1Yo7iZ5+e7oipEo3bHlyJ75Lxyg26+95YZvY3jcjlgV0jq9kdLABb7N7wf309kyGRlBOCW5ZODZnB9CYEBBYEtzDEI5nekYrHREZfDd0V8uZR1oSawd+4F0+kWcbyvI805T7+wds0Qv93nnXwuCu9iJ7z7G4yh+7sAYQtY1TzSfCWI3Wu/10YGbTpy46UCqlQcQ12E9AyBh19ev3TDINXMlqZpP0gzCTDSYaWiGqR3U0QorzA9KbYHigY/IGAl8DOxJNbR9snJpLLB5U3ZwsDIIGjEgA1ly4aGkuOraUnxekHmcFFULIAXVoN7Rjt/hH+U5S0cmq1UwE+zSl9xBTA3808e3fWx8ItTjIeJ0PG5uHbqxOnlfTksqNqTXcaOt1u23TaHRV+3Duk0D//zxbY/LQUnYEHrs6drqiVAw3OsJbR0YpsmadVXYpqfaLVtbdU1p92yd3a+UVfwe1s82sPX1tWlpSBpwA1glaQehegr86QKUXcZOuozqWXCabE5FIMmm19e9/sFkv5cY6ggie1fL4ShXUp6KsUxaZrpaUQ80OdEvS4NuO6YPkhn9rRJCKS+gKDEgws9YxvnXpB2EFC1AY43ToT77SdNzFmidqc4rtN940u4LnTbQ0nxGtlgGTyrBgAXHCwEZ2Dk4jmu8bmvRthetHqi9dkD9cdhaDIcXrW5vUV9Qw3CAUGFDNJ+UgSNHjH8r4qMwzr6fLa8PIWJjDuwD4kbsmhQmkzXSVUKjeZhv8TNuR1xVO6HFedJcD5TTlTuDtoJ/Irz3oawev//Rlx/Fh1Ijo+6zN9498+jN0NQDxz577MA4bXo2Qfe951H+2JmPaQ83H+8dTjy7qXbrH33m2KFRZf1Nj229+8ZnE1LHZOx2BmurQ8PKdSseseCdESEgkO8BQbdlzoXdhmXZfEt33QrCOpLmdf7rva4fRHaAHYIoM5JSVsulakdOXgeD8FtFkBc5s8pO2P95zvZsWvWSs4ySRwH7+ynZR6/ZkRear9mhKOkPPKDHLXAd/4WInVCHmr7fHMJKLuS8BmD3V9VXpBI2nDOjBlPl2lS2T/pihc8K6fPnZD5uOuG7PW5nkIYDE69WcJFEucWWwb9bJBwUNkgHVS5LI37Q2r/fsopWCvdQyiqEQriHClYKdzQWre9dku76kSN/7Q0t9ULx8vojlya9WnmUs/z5IOfVxabZtfXdo/CDlR6umLwRZ3DEm1nICh1mJnqbykFDUgXY/AXYE/UQYhFwBb43iF+2y5zKHKwIsempLZs2rL4qjr/eZMyL20EmLOvwFFVEsZyR205Qu6Ej5jrwvhlXHlb72tIrEO1qWXLztcAiSIv50B7aPzw6zPOV/PcW53T1oMrPtOuPKLZmhbtgSRfxXatEQV4N7kYk4Q0fCqWj857DxyJuvXeED9WySp5WH8d4vfnKUgO/6/wLhiPZ29js7Jj8wlaCR0Ezf6CFE4YZOxRyFiIeuW3snhD5ALsrWJ1trm8o4yTb+UJmauZhg2ABDzNd6IeDJOHspUlDRabPFD69ZjxTzKQLFzOGLViqS/d2HkbmC33EO7CzQXZQaMuXMu45CVjb/Pw3CcOf2ZXM8XQl/DOv7xtm8rgbOY59Hfc7YkHuMN4Lqxvviytd9lLhodNeX5+HCy0bGlqWou1eO084giHWuZjUVxHwoGshQxFo7EpWrZeGSFEN1soBQ1aEqshEk+TeQQ6YZgNBkao+nS3jXzFQjEvSotJGikTLvubapy4uhUHW593oGz8PliNi8kTeuXZjIygGV4pOOPg5ElzJacBd4Ad5oG27+Ld8nP8Lc1gvy9T7WOttATjqYayfH77w6iNRyroy5XmJiZeLzgVrvOAK+Jh1LtQTOgdPRa8Hj23aEZfbAd7Wv0csmX21UljWdwK3FVTbmJ7kNXCxKMux69iu+g5V4rl1y6ZKIa8F+T3JMFiQ16OWNiJakSkH7RAEEs5fmm5osiRjko5wmp7bva5eWzM22uUPuHFTGnOpaxAzCI/0zwg9S3medrjuLuOeX6xUZT6h6upo8cDG2l8t43CErxhYlVZVfhFZBy8WUpw+YdsOH+/VEaCaPZWRuWxtenq6lqVsLDahf8BoaJ6WbazuTPeJrnC40xjoDOULq8yuAdI7HaeLp/s6RwszN99889UVHpPstLPHilrx4d6hjflkMr9xaPVIvGPntm07tS51ZPXutd3D67sjy9xIJNEbDYe7ejp7eJ/fg6mjvYlIxF0W6amPdK3dXd1XG+BDoze2sT2l2IHNi8KGl+sFBkARoh68wGIpQBUAIuDaDgDFnBSB6WxxoBDvT7fZLLRPEtj+llgCy1ymLcIypRiI6BP1kUxmRe2NfeLs7Nj5ytisYh+dz0wWZU4Rpui++aP0bytqi7XmvTA1dBbVeGmCJov0OCTyaEseW3lMyVkq9WIpjtOkhg5VkkYEXI6xQ6oMLgmmBfe5IJifLperZXwv5HEDEhYr1bgkabrULLCzXnI9WVd/Wwf6cn1kcaRO+elbRzOBcmXGZvsS7wf7/uU7/jK6KOk2PTR663Tec6S6zY7Fvb7aindol/qn4mxuFWfFduZD7qvgtLvZnvr8ti22sPi61RCpK6/ggLiT48gkddOk1B+EbzJ009grs2QwwPuYZfG5EECxJ2SSbk6iFGZbdu7YOrVpg5/Fn5sZcAOftKS+IGjtPHDAy9S2sZE8t3iJ8bm0Lg3vEg8Wl723AmKf0J5UHe20YYQXgpAMH77VMpqrpEzTy2hA5RNBZX9QOSfL54LicVnEJa/pT6rqaTMhmGw5z6xrFmRBXsi7WEws6BbZ2luaL8czcjmePYi/L+IZvK9TGvBNGmmCLsNTtPBUgCci+YnAcvO34Ak0EdZJPNW34PBO+A6+pV9HW3OW8O14C978Ty/C0nz97djSnZcheBmyFzHvvADO2rdB+9f/EzzNAM954CmATQioZtgwcJ1kO+gD9dAAMZsaGylOm1up6D1htHCb7Ycptvm7fVhomU8+GEtyPa7p8YWEfEUlSNlreVyEIM4CaMcZyLa7r4s6WDTSEd3nkG2bc8w07YlOikSMOYatG1u6W2+2rr/sGbTwf/yQ+t72/DLE/R08YH6+vnF6avly2zYMhFps5pqpHdM7tjQ2b6qtWV5dXq2US8XClfmR7GB/qtOzI7bMsISMkGUqOuI1Vb6ji3XL/4VQziT8cqa3fU8MyhDrYrQtvbOPWFumVzpiLc6UyJT7Y6DcELY85UrwdeWijMZFoVLKph2Qhf2N4xP40F9FvZR/Pt567fq6V4lMvqrqX9VePIuWxkTzx3RwXJk5ejVX7WpjJByfSg0Pjw/xEX5PozExMdEIrn8XLSXPHw2mEPfg5kWzr8a0r+pvnOTjfYnXJibe+Dx95C8jTr7GR1c5kczTjYbT/IWHKLnHa+vyKREXoSWeBV4wV985BS3WrujvjCF+JUk7baZrtr7PIoT1xmw4xDUFfFS6NRUBnWnCUeBO8ijInJ6f27n9mq2NzRvq2XSHtIzZjCPtYkz6t7QGBL2Ab/6WOhVz2VxG01v6336zlotdsJCSSRRl3IsLpSxjQGoVLscvFo8FL+lR1K3mK+e6FfWUptBPLaPSfuVXlj9+KWeOeE/6w2buy4a1nR6Sbc07A/3+zWVeWAe/qO7A1Od/nt+4Ps87gqddn+ihlHu9Jd/nNaHTPwlsZBI8vlS/0oCz5yEK4ARdIMnWWyktNbCAMqhTwsoW3+tw/URAXiE/CNmyuOgp4CGWXvarriPyosYLKS6225PrB28+cvPg+kl77KnFp7a2/4cFdc088PR3n3pwWpm997nnn7t39j27bjeG8/lh88ju2RtuoO/P38Pv/cp92h2Fm9CJzzzwze9884EZ3P4LH7k+YwB4nGNgZGBgAGJL8fKl8fw2Xxm4mV8ARRhusJzeDaP///2fxWLAHATkcjAwgUQBVVEMwAAAeJxjYGRgYA76n8XAwKL//+//XywGDEARFCAPAJaXBjx4nGN+wcDAvACII///ZToFoaH8/8yRULkFSOJA9UxNID4DA4s+SA6oDiYPNwuoxvr/fyZrJDUvIHrBZgqC2P//AQCSoiKjAAAAAAAAAGIAzgESAXgB/AJOAtIDXgOMB5AH+AiKCNIJaAnuCjwKjAryC5AMFAx6DL4NbA3CDjoO4g+KEMgRdBHSAAEAAAAfAfgACQAAAAAAAgA2AEYAcwAAAMELcAAAAAB4nHWQ3WrCMBiG38yfbQrb2GCny9FQxuoPDEQQBIeebCcyPB211rZSG0mj4G3sHnYxu4ldy17bOIayljTP9+TLl68BcI1vCOTPE0fOAmeMcj7BKXqWC/TPlovkF8slVPFmuUz/brmCBwSWq7jBByuI4jmjBT4tC1yJS8snuBB3lgv0j5aL5J7lEm7Fq+UyvWe5golILVdxL74GarXVURAaWRvUZbvZ6sjpViqqKHFj6a5NqHQq+3KuEuPHsXI8tdzz2A/Wsav34X6e+DqNVCJbTnOvRn7ia9f4s131dBO0jZnLuVZLObQZcqXVwveMExqz6jYaf8/DAAorbKER8apCGEjUaOuc22iihQ5pygzJzDwrQgIXMY2LNXeE2UrKuM8xZ5TQ+syIyQ48fpdHfkwKuD9mFX20ehhPSLszosxL9uWwu8OsESnJMt3Mzn57T7HhaW1aw127LnXWlcTwoIbkfezWFjQevZPdiqHtosH3n//7AelzhFMAeJxtj+lygzAMhL3BHIFA7/tIX4CHMkaOGVyc+Gimb1+YtP2V/SPNzkqfxFbspJKd1xYrJOBIkSFHgTVKVNigRoMLXOIK17jBLe5wjwc84gnPeMEr3vCOLT5YIXwgN/ixlprk2MrBSUM9j55cLo2dLVv09jgZK/qkExOnfgibU9gfonCUKWt6cunO2I64tp+UjPTNl9nckXLk9VzDkShknoSTmvsgXCPFJMn8EdPgohyzuF9AvBPOc29dWJthp0MXTZdJqxRReYg2UGtIhWoJtMKENu7r/345tlGDoXZBDV/U2nm38LpafvrFMfYD3t1bCwAAAHicY/DewXAiKGIjI2Nf5AbGnRwMHAzJBRsZWJ02MTAyaIEYm7mYGDkgLD4GMIvNaRfTAaA0J5DN7rSLwQHCZmZw2ajC2BEYscGhI2Ijc4rLRjUQbxdHAwMji0NHckgESEkkEGzmYWLk0drB+L91A0vvRiYGFwAMdiP0AAA=') format('woff');
+}
+.fa { font-family: "fontello"; font-style: normal; font-weight: normal; }
+.fa-asterisk::before { content:"\e800" }
+.fa-check-circled::before { content:"\e801" }
+.fa-user::before { content:"\e802" }
+.fa-clock-o::before { content:"\e803" }
+.fa-download::before { content:"\e804" }
+.fa-ban::before { content:"\e805" }
+.fa-edit::before { content:"\e806" }
+.fa-check-square::before { content:"\e807" }
+.fa-folder::before { content:"\e808" }
+.fa-globe::before { content:"\e809" }
+.fa-home::before { content:"\e80a" }
+.fa-key::before { content:"\e80b" }
+.fa-lock::before { content:"\e80c" }
+.fa-refresh::before { content:"\e80d" }
+.fa-retweet::before { content:"\e80e" }
+.fa-search::before { content:"\e80f" }
+.fa-star::before { content:"\e810" }
+.fa-cancel-circled::before { content:"\e811"; }
+.fa-truck::before { content:"\e812" }
+.fa-upload::before { content:"\e813" }
+.fa-bars::before { content:"\f0c9" }
+.fa-coffee::before { content:"\f0f4" }
+.fa-quote-left::before { content:"\f10d" }
+.fa-file-archive-o::before { content:"\f1c6" }
+.fa-trash::before { content:"\f1f8" }
+.fa-user-circle::before { content:"\f2bd" }
+.fa-lightbulb:before { content: '\f0eb' }
+.fa-sort:before { content: '\f0dc' }
+.fa-sort-alt-up:before { content: '\f160' }
+.fa-sort-alt-down:before { content: '\f161' }
+
+[style.css|no log|cache]
+/*! normalize.css v8.0.0 | MIT License | github.com/necolas/normalize.css */html{line-height:1.15;-webkit-text-size-adjust:100%}body{margin:0}h1{font-size:2em;margin:.67em 0}hr{box-sizing:content-box;height:0;overflow:visible}pre{font-family:monospace,monospace;font-size:1em}a{background-color:transparent}abbr[title]{border-bottom:none;text-decoration:underline;text-decoration:underline dotted}b,strong{font-weight:bolder}code,kbd,samp{font-family:monospace,monospace;font-size:1em}small{font-size:80%}sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}sub{bottom:-.25em}sup{top:-.5em}img{border-style:none}button,input,optgroup,select,textarea{font-family:inherit;font-size:100%;line-height:1.15;margin:0}button,input{overflow:visible}button,select{text-transform:none}[type=button],[type=reset],[type=submit],button{-webkit-appearance:button}[type=button]::-moz-focus-inner,[type=reset]::-moz-focus-inner,[type=submit]::-moz-focus-inner,button::-moz-focus-inner{border-style:none;padding:0}[type=button]:-moz-focusring,[type=reset]:-moz-focusring,[type=submit]:-moz-focusring,button:-moz-focusring{outline:1px dotted ButtonText}fieldset{padding:.35em .75em .625em}legend{box-sizing:border-box;color:inherit;display:table;max-width:100%;padding:0;white-space:normal}progress{vertical-align:baseline}textarea{overflow:auto}[type=checkbox],[type=radio]{box-sizing:border-box;padding:0}[type=number]::-webkit-inner-spin-button,[type=number]::-webkit-outer-spin-button{height:auto}[type=search]{-webkit-appearance:textfield;outline-offset:-2px}[type=search]::-webkit-search-decoration{-webkit-appearance:none}::-webkit-file-upload-button{-webkit-appearance:button;font:inherit}details{display:block}summary{display:list-item}template{display:none}[hidden]{display:none}
+
+{.$icons.css.}
+
+.pure-button {
+	background-color: #cde; padding: .5em 1em; color: #444; color: rgba(0,0,0,.8); border: 1px solid #999; border: transparent; text-decoration: none; box-sizing: border-box;
+	border-radius: 2px; display: inline-block; zoom: 1; white-space: nowrap; vertical-align: middle; text-align: center; cursor: pointer; user-select: none;
+}
+body { font-family:tahoma, verdana, arial, helvetica, sans; transition:background-color 1s ease; }
+a { text-decoration:none; color:#26c; border:1px solid transparent; padding:0 0.1em; }
+#folder-path { float:left; margin-bottom: 0.2em; }
+#folder-path a { padding: .5em; }
+#folder-path a:first-child { padding:.28em } #folder-path i.fa { font-size:135% }
+button i.fa { font-size:110% }
+.item { margin-bottom:.3em; padding:.3em  .8em; border-top:1px solid #ddd;  }
+.item:hover { background:#f8f8f8; }
+.item-props { float:right; font-size:90%; margin-left:12px; color:#777; margin-top:.2em; }
+.item-link { float:left; word-break:break-word; /* fix long names without spaces on mobile */ }
+.item img { vertical-align: text-bottom; margin:0 0.2em; }
+.item .fa-lock { margin-right: 0.2em; }
+.item .clearer { clear:both }
+.comment { color:#666; padding:.1em .5em .2em; background-color: #f5f5f5; border-radius: 1em; margin-top: 0.1em; }
+.comment>i { margin-right:0.5em; }
+.item-size { margin-left:.3em }
+.selector { float:left; width: 1.2em; height:1.2em; margin-right: .5em;}
+.item-menu { padding:0.1em 0.3em; border-radius:0.6em; border: 1px outset; position: relative; top: -0.1em;}
+.dialog-content .buttons { margin-top:1.5em }
+.dialog-content .buttons button { margin:.5em auto; min-width: 9em; display:block; }
+.dialog-content.error { background: #fcc; }
+.dialog-content.error h2 { text-align:center }
+.dialog-content.error button { background-color: #f77; color: white; }
+#wrapper { max-width:60em; margin:auto; } /* not too wide or it will be harder to follow rows */
+#serverinfo { font-size:80%; text-align:center; margin: 1.5em 0 0.5em; }
+#selection-panel { text-align:center; }
+#selection-panel label { margin-right:0.8em }
+#selection-panel button { vertical-align:baseline; }
+#selection-panel .buttons { white-space:nowrap }
+
+.item-menu { display:none }
+.can-comment .item-menu,
+.can-rename .item-menu,
+.can-delete .item-menu { display:inline-block; display:initial; }
+
+#folder-stats { font-size:90%; padding:.1em .3em; margin:.5em; float:right; }
+#files,#nothing { clear:both }
+#nothing { padding:1em }
+
+.dialog-overlay { background:rgba(0,0,0,.75); position:fixed; top:0; left:0; width:100%; height:100%; z-index:100; }
+.dialog-content { position: absolute; top: 50%; left: 50%;
+	transform: translate(-50%, -50%);
+	-webkit-transform: translate(-50%, -50%);
+	-moz-transform: translate(-50%, -50%);
+	-ms-transform: translate(-50%, -50%);
+	-o-transform: translate(-50%, -50%);
+	background:#fff; border-radius: 1em; padding: 1em; text-align:center; min-width: 10em;
+}
+.ask input { border:1px solid rgba(0,0,0,0.5); padding: .2em; margin-top: .5em; }
+.ask .close { float: right; font-size: 1.2em; color: red; position: relative; top: -0.4em; right: -0.3em; }
+
+#additional-panels input {     color: #555; padding: .1em 0.3em; border-radius: 0.4em; }
+
+.additional-panel { position:relative; max-height: calc(100vh - 5em); text-align:left; margin: 0.5em 1em; padding: 0.5em 1em; border-radius: 1em; background-color:#555; border: 2px solid #aaa; color:#fff; line-height: 1.5em; display:inline-block;  }
+.additional-panel .close { position: absolute; right: -0.8em; top: -0.2em; color: #aaa; font-size: 130%; }
+
+body.dark-theme { background:#222; color:#aaa; }
+body.dark-theme #title-bar { color:#bbb }
+body.dark-theme a { color:#79b }
+body.dark-theme a.pure-button { color:#444 }
+body.dark-theme .item:hover { background:#111; }
+body.dark-theme .pure-button { background:#89a; }
+body.dark-theme .item .comment { background-color:#444; color:#888; }
+body.dark-theme #foldercomment { background-color:#333; color:#999; }
+body.dark-theme .dialog-overlay { background:rgba(100,100,100,.5) }
+body.dark-theme .dialog-content { background:#222; color:#888; }
+body.dark-theme input,
+body.dark-theme textarea,
+body.dark-theme select,
+body.dark-theme #additional-panels input
+{ background: #111; color: #aaa; }
+
+#msgs { display:none; }
+#msgs li:first-child { font-weight:bold; }
+
+#menu-panel { position:fixed; top:0; left:0; width: 100%; background:#555; text-align:center;
+position: -webkit-sticky; position: -moz-sticky; position: -ms-sticky; position: -o-sticky; position: sticky; margin-bottom:0.3em;
+z-index:1; /* without this .item-menu will be over*/ }
+#menu-panel button span { margin-left:.8em }
+#user-panel button { padding:0.3em 0.6em; font-size:smaller; margin-left:1em; }
+#user-panel span { position: relative; top: 0.1em; }
+#menu-bar { padding:0.2em 0 }
+
+@media (min-width: 50em) {
+#toggleTs { display: none }
+}
+@media (max-width: 50em) {
+#menu-panel button { padding: .4em .6em; }
+.additional-panel button span,
+#menu-bar button span { display:none } /* icons only */
+#menu-bar i { font-size:120%; } /* bigger icons */
+#menu-bar button { width: 3em; max-width:10.7vw; padding: .4em 0; }
+.hideTs .item-ts { display:none }
+}
+
+#upload-panel { font-size: 88%;}
+#upload-progress { margin-top:.5em; display:none; }
+#upload-progress progress { width:10em; position:relative; top:.1em; }
+#progress-text { position: absolute; color: #000; font-size: 80%; margin-left:.5em; z-index:1; }
+#upload-results a { color:#b0c2d4; }
+#upload-results>* { display:block; word-break: break-all; }
+#upload-results>span { margin-left:.15em; } /* better alignment */
+#upload-results { max-height: calc(100vh - 11em); overflow: auto;}
+#upload-panel>button { margin: auto; display: block; margin-top:.8em;} /* center it*/
+
+
+[file=folder=link|private]
+<div class='item item-type-%item-type% {.if|{.get|can access.}||cannot-access.} {.if|{.get|can archive item.}|can-archive.}'>
+	<div class="item-link">
+		<a href="%item-url%">
+			<img src="%item-icon%" />
+			%item-name%
+		</a>
+	</div>
+	<div class='item-props'>
+		<span class="item-ts"><i class='fa fa-clock-o'></i> {.cut||-3|%item-modified%.}</span>
+[+file]
+		<span class="item-size"><i class='fa fa-download' title="{.!Download counter:.} %item-dl-count%"></i> %item-size%B</span>
+[+file=folder=link]
+		{.if|{.get|is new.}|<i class='fa fa-star' title="{.!NEW.}"></i>.}
+[+file=folder]
+        <button class='item-menu pure-button' title="{.!More options.}"><i class="fa fa-bars"></i></button>
+[+file=folder=link]
+ 	</div>
+	<div class='clearer'></div>
+[+file=folder=link]
+    {.if| {.length|{.?search.}.} |{:{.123 if 2|<div class='item-folder'>{.!item folder.} |{.breadcrumbs|{:<a href="%bread-url%">%bread-name%/</a>:}|from={.count substring|/|%folder%.}/breadcrumbs.}|</div>.}:} .}
+	{.123 if 2|<div class='comment'><i class="fa fa-quote-left"></i><span class="comment-text">|{.commentNL|%item-comment%.}|</span></div>.}
+</div>
+
+[error-page]
+<!DOCTYPE html>
+<html>
+<head>
+	<meta http-equiv="content-type" content="text/html; charset=UTF-8">
+	<meta name="viewport" content="width=device-width, initial-scale=1.0">
+  <style type="text/css">
+  {.$style.css.}
+  </style>
+  </head>
+<body>
+%content%
+<hr>
+<div style="font-family:tahoma, verdana, arial, helvetica, sans; font-size:8pt;">
+<a href="http://www.rejetto.com/hfs/">HFS</a> - %timestamp%
+</div>
+</body>
+</html>
+
+[not found]
+<h1>{.!Not found.}</h1>
+<a href="/">{.!go to root.}</a>
+
+[overload]
+<h1>{.!Server Too Busy.}</h1>
+{.!The server is too busy to handle your request at this time. Retry later.}
+
+[max contemp downloads]
+<h1>{.!Download limit.}</h1>
+{.!max s dl msg.}
+<br>({.disconnection reason.})
+
+[unauthorized]
+<h1>{.!Unauthorized.}</h1>
+{.!Either your user name and password do not match, or you are not permitted to access this resource..}
+
+[deny]
+<h1>{.!Forbidden.}</h1>
+{.or|%reason%|{.!This resource is not accessible..}.}
+
+[ban]
+<h1>{.!You are banned.}</h1>
+%reason%
+
+[upload]
+
+[upload-file]
+
+[upload-results]
+[{.cut|1|-1|%uploaded-files%.}
+]
+
+[upload-success]
+{
+"url":"%item-url%",
+"name":"%item-name%",
+"size":"%item-size%",
+"speed":"%smart-speed%"
+},
+{.if| {.length|%user%.} |{:
+	{.set item|{.force ansi|%folder%%item-name%.}|comment={.!uploaded by.} %user%.}
+:}.}
+
+[upload-failed]
+{ "err":"{.!%reason%.}", "name":"%item-name%" },
+
+[progress|no log]
+<style>
+#progress .fn { font-weight:bold; }
+.out_bar { margin-top:0.25em; width:100px; font-size:15px; background:#fff; border:#555 1px solid; margin-right:5px; float:left; }
+.in_bar { height:0.5em; background:#47c;  }
+</style>
+<ul style='padding-left:1.5em;'>
+%progress-files%
+</ul>
+
+[progress-nofiles]
+{.!No file exchange in progress..}
+
+[progress-upload-file]
+{.if not|{.{.?only.} = down.}|{:
+	<li> {.!Uploading.} %total% @ %speed-kb% KB/s
+	<br /><span class='fn'>%filename%</span>
+    <br />{.!Time left.} %time-left%"
+	<br /><div class='out_bar'><div class='in_bar' style="width:%perc%px"></div></div> %perc%%
+:}.}
+
+[progress-download-file]
+{.if not|{.{.?only.} = up.}|{:
+	<li> {.!Downloading.} %total% @ %speed-kb% KB/s
+	<br /><span class='fn'>%filename%</span>
+    <br />{.!Time left.} %time-left%"
+	<br><div class='out_bar'><div class='in_bar' style="width:%perc%px"></div></div> %perc%%
+:}.}
+
+[ajax.mkdir|no log]
+{.check session.}
+{.set|x|{.postvar|name.}.}
+{.break|if={.pos|\|var=x.}{.pos|/|var=x.}|result=forbidden.}
+{.break|if={.not|{.can mkdir.}.}|result=not authorized.}
+{.set|x|{.force ansi|%folder%{.^x.}.}.}
+{.break|if={.exists|{.^x.}.}|result=exists.}
+{.break|if={.not|{.length|{.mkdir|{.^x.}.}.}.}|result=failed.}
+{.add to log|{.!User.} %user% {.!created folder.} "{.^x.}".}
+{.pipe|ok.}
+
+[ajax.rename|no log]
+{.check session.}
+{.break|if={.not|{.can rename.}.}|result=forbidden.}
+{.break|if={.is file protected|{.postvar|from.}.}|result=forbidden.}
+{.break|if={.is file protected|{.postvar|to.}.}|result=forbidden.}
+{.set|x|{.force ansi|%folder%{.postvar|from.}.}.}
+{.set|yn|{.force ansi|{.postvar|to.}.}.}
+{.set|y|{.force ansi|%folder%.}{.^yn.}.}
+{.break|if={.not|{.exists|{.^x.}.}.}|result=not found.}
+{.break|if={.exists|{.^y.}.}|result=exists.}
+{.set|comment| {.get item|{.^x.}|comment.} .}
+{.set item|{.^x.}|comment=.}
+{.break|if={.not|{.length|{.rename|{.^x.}|{.^yn.}.}.}.}|result=failed.}
+{.set item|{.^x.}|resource={.filepath|{.get item|{.^x.}|resource.}.}{.^yn.}.}
+{.set item|{.^x.}|name={.^yn.}.}
+{.set item|{.^y.}|comment={.^comment.}.}
+{.add to log|{.if|%user%|{.!User.} %user%|{.!Anonymous.}.} {.!renamed.} "{.^x.}" {.!to.} "{.^yn.}".}
+{.pipe|ok.}
+
+[ajax.move|no log]
+{.check session.}
+{.set|dst|{.force ansi|{.postvar|dst.}.}.}
+{.break|if={.not|{.and|{.can move.}|{.get|can delete.}|{.get|can upload|path={.^dst.}.}/and.}.} |result=forbidden.}
+{.set|log|{.!Moving items to.} {.^dst.}.}
+{.for each|fn|{.replace|:|{.no pipe||.}|{.force ansi|{.postvar|files.}.}.}|{:
+    {.break|if={.is file protected|var=fn.}|result=forbidden.}
+    {.set|x|{.force ansi|%folder%.}{.^fn.}.}
+    {.set|y|{.^dst.}/{.^fn.}.}
+    {.if not |{.exists|{.^x.}.}|{.^x.}: {.!not found.}|{:
+        {.if|{.exists|{.^y.}.}|{.^y.}: {.!already exists.}|{:
+            {.set|comment| {.get item|{.^x.}|comment.} .}
+            {.set item|{.^x.}|comment=.} {.comment| this must be done before moving, or it will fail.}
+            {.if|{.length|{.move|{.^x.}|{.^y.}.}.} |{:
+                {.move|{.^x.}.md5|{.^y.}.md5.}
+                {.set|log|{.chr|13.}{.^fn.}|mode=append.}
+                {.set item|{.^y.}|comment={.^comment.}.}
+            :} | {:
+                {.set|log|{.chr|13.}{.^fn.} (failed)|mode=append.}
+                {.maybe utf8|{.^fn.}.}: {.!not moved.}
+            :}/if.}
+        :}/if.}
+    :}.}
+    ;
+:}.}
+{.add to log|{.^log.}.}
+
+[ajax.comment|no log]
+{.check session.}
+{.break|if={.not|{.can comment.}.} |result=forbidden.}
+{.for each|fn|{.replace|:|{.no pipe||.}|{.postvar|files.}.}|{:
+     {.break|if={.is file protected|var=fn.}|result=forbidden.}
+     {.set item|{.force ansi|%folder%{.^fn.}.}|comment={.force ansi|{.postvar|text.}.}.}
+:}.}
+{.pipe|ok.}
+
+[ajax.changepwd|no log]
+{.check session.}
+{.break|if={.not|{.can change pwd.}.} |result=forbidden.}
+{.if|{.length|{.set account||password={.force ansi|{.postvar|new.}.}.}/length.}|ok|failed.}
+
+[special:alias]
+check session=if|{.{.cookie|HFS_SID_.} != {.postvar|token.}.}|{:{.cookie|HFS_SID_|value=|expires=-1.} {.break|result=bad session.}:}
+can mkdir=and|{.get|can upload.}|{.!option.newfolder.}
+can comment=and|{.get|can upload.}|{.!option.comment.}
+can rename=and|{.get|can delete.}|{.!option.rename.}
+can delete=get|can delete
+can change pwd=member of|can change password
+can move=or|1|1
+escape attr=replace|"|&quot;|$1
+commentNL=if|{.pos|<br|$1.}|$1|{.replace|{.chr|10.}|<br />|$1.}
+add bytes=switch|{.cut|-1||$1.}|,|0,1,2,3,4,5,6,7,8,9|$1 {.!Bytes.}|K,M,G,T|$1B
+
+[special:import]
+{.new account|can change password|enabled=1|is group=1|notes=accounts members of this group will be allowed to change their password.}
+
+[lib.js|no log|cache]
+// <script> // this is here for the syntax highlighter
+
+function outsideV(e, additionalMargin) {
+    outsideV.w || (outsideV.w = $(window));
+    if (!(e instanceof $))
+        e = $(e);
+    return e.offset().top + e.height() > outsideV.w.height() - (additionalMargin || 0) - 17;
+} // outsideV
+
+function selectionChanged() { $('#selected-counter').text( getSelectedItems().length ) }
+
+function getItemName(el) {
+    if (!el)
+        return false
+    el = $(el)
+    var a = el.closest('a')
+    if (!a.length)
+        a = el.closest('.item').find('.item-link:first a')
+    // take the url, and ignore any #anchor part
+    var s = a.attr('href') || a.attr('value');
+    s = s.split('#')[0];
+    // remove protocol and hostname
+    var i = s.indexOf('://');
+    if (i > 0)
+        s = s.slice(s.indexOf('/',i+3));
+    // current folder is specified. Remove it.
+    if (s.indexOf(HFS.folder) == 0)
+        s = s.slice(HFS.folder.length);
+    // folders have a trailing slash that's not truly part of the name
+    if (s.slice(-1) == '/')
+        s = s.slice(0,-1);
+    // it is encoded
+    s = (decodeURIComponent || unescape)(s);
+    return s;
+} // getItemName
+
+function submit(data, url) {
+    var f = $('<form method="post">').attr('action',url||undefined).hide().appendTo('body')
+    for (var k in data) {
+        var v = data[k]
+		if (!Array.isArray(v))
+            f.append("<input type='hidden' name='"+k+"' value='"+v+"' />")
+		else
+		    v.forEach(function(v2) {
+				f.append("<input type='hidden' name='"+k+"' value='"+v2+"' />")
+        	})
+    }
+    f.submit()
+}//submit
+
+RegExp.escape = function(text) {
+    if (!arguments.callee.sRE) {
+        var specials = '/.*+?|()[]{}\\'.split('');
+        arguments.callee.sRE = new RegExp('(\\' + specials.join('|\\') + ')', 'g');
+    }
+    return text.replace(arguments.callee.sRE, '\\$1');
+}//escape
+
+function dialog(content, cb) {
+    var ret = $('<div class="dialog-content">').html(content).keydown(function(ev) {
+		if (ev.keyCode===27)
+			ret.close()
+	})
+	ret.close = function() {
+        ret.closest('.dialog-overlay').remove()
+        cb && cb()
+    }
+    ret.appendTo(
+        $('<div class="dialog-overlay">').appendTo('body')
+            .click(ret.close)
+    ).click(function(ev){
+        ev.stopImmediatePropagation()
+    })
+    return ret
+} // dialog
+
+function showMsg(content, cb) {
+	if (~content.indexOf('<'))
+		content = content.replace(/\n/g, '<br>')
+    var ret = dialog($('<div>').css({ display:'inline-block', textAlign:'left' }).html(content), cb).css('text-align', 'center')
+		.append(
+			$('<div class="buttons">').html(
+				$('<button class="pure-button">').text("{.!Ok.}")	
+					.click(ev=> ret.close() ) ) )
+	return ret
+}//showMsg
+
+function showError(msg, cb) {
+    return msg && showMsg("<h2>{.!Error.}</h2>"+msg, cb).addClass('error')
+}
+
+/*  cb: function(value, dialog)
+	options: type:string(text,textarea,number), value:any, keypress:function
+*/
+function ask(msg, options, cb) {
+    // 2 parameters means "options" is missing
+    if (arguments.length == 2) {
+        cb = options;
+        options = {};
+    }
+	if (typeof options==='string')
+		options = { type:options }
+    msg += '<br />';
+    var v = options.type
+	if (!v)
+	    msg += '<br><button class="pure-button">{.!Ok.}</button>'
+	else if (v == 'textarea')
+		msg += '<textarea name="txt" cols="30" rows="8">'+options.value+'</textarea><br><button type="submit" class="pure-button">Ok</button>';
+	else
+		msg += '<input name="txt" type="'+v+'" value="'+(options.value||'')+'" />';
+	var ret = dialog($('<form class="ask">')
+		//.html($(`<i class="fa fa-times-rectangle close">`).click(ev=>ret.close()))
+		.append(msg)
+		.submit(function(ev) {
+			if (false !== cb(options.type ? $.trim(ret.find(':input').val()) : $(ev.target), $(ev.target).closest('form'))) {
+                ret.close()
+                return false
+            }
+		})
+	)
+
+    ret.find(':input').focus().select() // autofocus attribute seems to work only first time :(
+
+	return ret
+}//ask
+
+// this is a factory for ajax request handlers
+function getStdAjaxCB(what2do) {
+    if (!arguments.length)
+        what2do = true;
+    return function(res){
+        res = $.trim(res);
+
+        if (res !== "ok") {
+            showError("{.!"+res+".}")
+            if (res === 'bad session')
+                location.reload();
+            return;
+        }
+        // what2do is a list of actions we are supposed to do if the ajax result is "ok"
+        if (what2do === null)
+            return;
+        if (!$.isArray(what2do))
+            what2do = [what2do];
+        what2do.forEach(w=>{
+			if (w===true)
+				return location.reload()
+			if (typeof w==='function')
+				return w() // you specify exactly what to do
+			switch (w[0]) {
+				case '!': return showMsg(w.substr(1))
+				case '>': return location = w.substr(1)
+			}
+        })
+    }
+}//getStdAjaxCB
+
+function getSelectedItems() {
+    return $('#files .selector:checked')
+}
+
+function getSelectedItemsName() {
+    return getSelectedItems().get().map(function(x) {
+        return getItemName(x)
+    })
+}//getSelectedItemsName
+
+function deleteFiles(files) {
+	ask("{.!confirm.}", function(){
+		return submit({ action:'delete', selection:files })
+	})
+}
+
+function moveFiles(files) {
+	ask("{.!Enter the destination folder.}", 'text', function(dst) {
+		return ajax('move', { dst: dst, files: files.join(':') }, function(res) {
+			var a = res.split(';')
+			a.pop()
+			if (!a.length)
+				return showMsg($.trim(res))
+			var failed = 0;
+			var ok = 0;
+			var msg = '';
+			a.forEach(function(s) {
+				s = $.trim(s)
+				if (!s.length) {
+					ok++
+					return
+				}
+				failed++;
+				msg += s+'\n'
+			})
+			if (failed)
+				msg = "{.!We met the following problems:.}\n"+msg
+			msg = (ok ? ok+' {.!files were moved..}\n' : "{.!No file was moved..}\n")+msg
+			if (ok)
+				showMsg(msg, reload)
+			else
+				showError(msg)
+		})
+	})
+}//moveFiles
+
+function reload() { location = '.' }
+
+function selectionMask() {
+    ask("{.!Please enter the file mask to select.}", {type:'text', value:'*'}, function(s){
+        if (!s) return;
+        var re = s.match('^/([^/]+)/([a-zA-Z]*)');
+        if (re)
+            re = new RegExp(re[1], re[2]);
+        else {
+            var n = s.match(/^(\\*)/)[0].length;
+            s = s.substring(n);
+            var invert = !!(n % 2); // a leading "\" will invert the logic
+            s = RegExp.escape(s).replace(/[?]/g,".");;
+            if (s.match(/\\\*/)) {
+                s = s.replace(/\\\*/g,".*");
+                s = "^ *"+s+" *$"; // in this case var the user decide exactly how it is placed in the string
+            }
+            re = new RegExp(s, "i");
+        }
+        $("#files .selector")
+            .filter(function(i, e) {
+                return invert ^ re.test(getItemName(e));
+            })
+            .prop('checked',true);
+        selectionChanged()
+    });
+}//selectionMask
+
+function setCookie(name,value,days) {
+    if (days) {
+        var date = new Date();
+        date.setTime(date.getTime()+(days*24*60*60*1000));
+        var expires = "; expires="+date.toGMTString();
+    }
+    else var expires = "";
+    document.cookie = name+"="+value+expires+"; path=/";
+} // setCookie
+
+function delCookie(name) { setCookie(name,'', -1) }
+
+function getCookie(name) {
+	var a = document.cookie.match(new RegExp('(?:^| )' + name + '=([^;]+)'))
+	return a && a[1]
+} // getCookie
+
+// quando in modalità selezione, viene mostrato una checkbox per ogni item, e viene anche mostrato un pannello per all/none/invert
+var multiSelection = false
+function toggleSelection() {
+    $('#selection-panel').toggle()
+	if (multiSelection = !multiSelection)
+		$("<input type='checkbox' class='selector' />")
+			.prependTo('.item-selectable a') // having the checkbox inside the A element will put it on the same line of A even with long A, otherwise A will start on a new line.
+			.click(ev=>{ // we are keeping the checkbox inside an A tag for layout reasons, and firefox72 is triggering the link when the checkbox is clicked. So we reprogram the behaviour.
+				setTimeout(()=>{ 
+					ev.target.checked ^= 1
+					selectionChanged() 
+				})
+				return false 
+			})
+	else
+		$('#files .selector').remove()
+}//toggleSelection
+
+function upload(){
+	$("<input type='file' name='file' multiple>").change(function(){
+		var files = this.files
+		if (!files.length) return
+		$('#upload-panel').slideDown('fast')
+		uploadQ.add(function(done){
+			sendFiles(files, done)
+		})
+  	}).click()
+} //upload
+
+uploadQ = newQ().on('change', function(ev) {
+    var n = Math.max(0, ev.count-1) // we don't consider the one we are working
+    $('#upload-q').text(n)
+})
+
+function newQ(){
+    var a = []
+	var ret = $({})
+    ret.add = function(job) {
+        a.push(job)
+		change()
+        if (a.length!==1) return
+		job(function consume(){
+			a.shift() // trash it
+			if (a.length)
+				a[0](consume) // next
+			else
+				ret.trigger('empty')
+			change()
+		})
+    }
+
+    function change(){ ret.trigger({ type:'change', count:a.length }) }
+
+	return ret
+}//newQ
+
+function changeSort(){
+    dialog([
+        $('<h3>').text('{.!Sort by.}'),
+        $('<div class="buttons">').html(objToArr(sortOptions, function(label,code){
+            return $('<button class="pure-button">')
+				.text(label)
+				.prepend(urlParams.sort===code ? '<i class="fa fa-sort-alt-'+(urlParams.rev?'down':'up')+'"></i> ' : '')
+                .click(function(){
+					urlParams.rev = (urlParams.sort===code && !urlParams.rev) ? 1 : undefined
+					urlParams.sort = code||undefined
+                    location.search = encodeURL(urlParams)
+				})
+		}))
+	])
+}//changeSort
+
+function objToArr(o, cb){
+    var ret = []
+	for (var k in o) {
+	    var v = o[k]
+		ret.push(cb(v,k))
+	}
+	return ret
+}
+
+function sendFiles(files, done) {
+    var formData = new FormData()
+    for (var i = 0; i < files.length; i++)
+        formData.append('file', files[i])
+
+    $.ajax({
+        type: 'POST',
+        data: formData,
+        success: function(data) {
+            try {
+                data = JSON.parse(data)
+                data.forEach(function(r) {
+                    $('#upload-'+(r.err ? 'ko' : 'ok')).text(function(i, s) {
+                        return Number(s) + 1
+                    })
+                    $(r.err ? '<span title="'+r.err+'"><i class="fa fa-ban"></i> '+ r.name+'</span>' 
+						: '<a title="{.!Size.}: '+r.size+'&#013;{.!Speed.}: '+r.speed+'B/s" href="'+r.url+'"><i class="fa fa-'+(r.err ? 'ban' : 'check-circle')+'"></i> '+r.name+'</a>')
+						.appendTo('#upload-results');
+                })
+            }
+            catch(e){
+                console.error(e)
+                showError('Invalid server reply')
+            }
+        },
+        complete: done,
+        cache: false,
+        contentType: false,
+        processData: false,
+        xhr: function() {
+            var e = $('#upload-progress')
+            var prog = e.find('progress').prop('value', 0)
+            e.slideDown('fast')
+            var xhr = $.ajaxSettings.xhr()
+            var last = 0
+            var now = 0
+            xhr.upload.onprogress = function(ev){
+                prog.prop('value', (now = ev.loaded) / ev.total);
+            }
+            var h = setInterval(function() {
+                $('#progress-text').text(smartSize(now)+'B @ '+smartSize(now-last)+'/s')
+                last = now
+            },1000)
+            xhr.upload.onload = function(ev) {
+                e.slideUp('fast')
+                clearInterval(h)
+            }
+            return xhr
+        }
+    })
+}//sendFiles
+
+function smartSize(n, options) {
+    options = options||{}
+	var orders = ['','K','M','G','T','P']
+	var order = options.order||1024
+	var max = options.maxOrder||orders.length-1
+	var i = 0
+	while (n >= order && i<max) {
+		n /= order
+		++i
+	}
+	if (options.decimals===undefined)
+		options.decimals = n<5 ? 1 : 0
+	return round(n, options.decimals)
+		+orders[i]
+}//smartSize
+
+function round(v, digits) {
+	return !digits ? Math.round(v) : Math.round(v*Math.pow(10,digits)) / Math.pow(10,digits)
+}//round
+
+function log(){
+	console.log.apply(console,arguments)
+	return arguments[arguments.length-1]
+}
+
+function toggleTs(){
+    var k = 'hideTs'
+    $('#files').toggleClass(k)
+    setCookie('ts', Number(!$('#files').hasClass(k)));
+}
+
+function decodeURL(urlData) {
+	var ret = {}
+    urlData.split('&').forEach(function(x){
+        if (!x) return
+        x = x.split("=").map(decodeURIComponent)
+		ret[x[0]] = x.length===1 ? true : x[1]
+    })
+	return ret
+}//decodeURL
+
+function encodeURL(obj) {
+    var ret = []
+	for (var k in obj) {
+	    var v = obj[k]
+		if (v===undefined) continue
+		k = encodeURIComponent(k)
+	    if (v !== true)
+	        k += '='+encodeURIComponent(v)
+		ret.push(k)
+	}
+	return ret.join('&')
+}//encodeURL
+
+urlParams = decodeURL(location.search.substring(1))
+sortOptions = {
+	n: "{.!Name.}",
+	e: "{.!Extension.}",
+	s: "{.!Size.}",
+	t: "{.!Timestamp.}",
+	d: "{.!Hits.}",
+	'': '{.!Default.}'
+}
+
+$(function(){
+    $('.trash-me').detach(); // this was hiding things for those w/o js capabilities
+    if (Number(getCookie('ts')))
+        toggleTs()
+
+    $('body').on('click','.item-menu', function(ev){
+        var it = $(ev.target).closest('.item')
+        var acc = it.hasClass('can-access')
+        var name = getItemName(ev.target)
+        dialog([
+            $('<h3>').text(name),
+            it.find('.item-ts').clone(),
+            $('<div class="buttons">').html([
+                it.closest('.can-delete').length > 0
+				&& $('<button class="pure-button"><i class="fa fa-trash"></i> {.!Delete.}</button>')
+					.click(function() { deleteFiles([name]) }),
+                it.closest('.can-rename').length > 0
+				&& $('<button class="pure-button"><i class="fa fa-edit"></i> {.!Rename.}</button>').click(renameItem),
+                it.closest('.can-comment').length > 0
+				&& $('<button class="pure-button"><i class="fa fa-quote-left"></i> {.!Comment.}</button>').click(setComment),
+                it.closest('.can-move').length > 0
+				&& $('<button class="pure-button"><i class="fa fa-truck"></i> {.!Move.}</button>')
+					.click(function(){  moveFiles([name]) })
+            ])
+        ]).addClass('item-menu-dialog')
+
+        //{.if|{.and|{.!option.move.}|{.can move.}.}| <button id='moveBtn' onclick='moveFiles()'>{.!Move.}</button> .}
+
+        function setComment() {
+            var value = it.find('.comment-text').text() || '';
+            ask(this.innerHTML, { type: 'textarea', value: value }, function(s){
+                if (s !== value)
+                    ajax('comment', { text: s, files: name })
+            })
+        }//setComment
+
+        function renameItem() {
+            ask(this.innerHTML+ ' '+name, { type: 'text', value: name }, function(to){
+                ajax("rename", { from: name, to: to });
+            })
+        }
+    })
+
+    $('#select-invert').click(function(ev) {
+        $('#files .selector').prop('checked', function(i,v){ return !v })
+        selectionChanged()
+    })
+    $('#select-mask').click(selectionMask)
+    $('#move-selection').click(function(ev) { moveFiles(getSelectedItemsName()) })
+		.toggle($('.can-delete').length > 0)
+    $('#delete-selection').click(function(ev) { deleteFiles(getSelectedItemsName()) })
+        .toggle($('.can-delete').length > 0)
+
+    $('#files .cannot-access .item-link img').after('<i class="fa fa-lock" title="{.!No access.}"></i>')
+	$('#files.can-delete .item:not(.cannot-access), #files .item.can-archive').addClass('item-selectable')
+    if (! $('.item-selectable').length)
+        $('#multiselection').hide()
+
+    $('.additional-panel.closeable').prepend(
+        $('<i class="fa fa-times-circle close">').click(function(ev){
+            $(ev.target).closest('.closeable').fadeOut('fast').trigger('closed')
+        }))
+
+    $('#upload-panel').on('closed', function(ev){
+        $('#upload-ok,#upload-ko').text('0')
+        $('#upload-results').html('')
+    })
+
+	$('#sort span').text(sortOptions[urlParams.sort]||'{.!Sort.}')
+
+    /* experiment
+    $('.additional-panel.closeable').each(function(i, e) {
+        swipable(e, 'right')
+    })
+
+    function swipable(e, dir) {
+        e = $(e)
+        e.mousedown(function(ev) {
+            e.css('position','relative')
+            var o = { x:ev.pageX, y:ev.pageY }
+            console.warn(o)
+            e.mouseup(function(ev) {
+                e.css({ left: 0, top: 0 })
+                e.off('mousemove.dragging')
+            })
+            e.on('mousemove.dragging', function(ev) { return e.css({ left:ev.pageX-o.x, top:ev.pageY-o.y }) })
+        })
+    }
+    */
+
+    selectionChanged()
+})//onload
diff --git a/defs.inc b/defs.inc
new file mode 100644
index 0000000..cadbe8b
--- /dev/null
+++ b/defs.inc
@@ -0,0 +1,11 @@
+{$DEFINE STABLE }
+{$IFDEF STABLE }
+  {$ASSERTIONS OFF}
+{$ELSE}
+  {$ASSERTIONS ON}
+  {!$DEFINE EX_DEBUG}
+{$ENDIF}
+{$WARN SYMBOL_PLATFORM off }
+{$WARN UNIT_PLATFORM off }
+{$I-}
+{$INLINE AUTO}
diff --git a/deprecated.txt b/deprecated.txt
new file mode 100644
index 0000000..366c9c2
--- /dev/null
+++ b/deprecated.txt
@@ -0,0 +1,18 @@
+In the template system, the following %symbols% and [sections] are currently deprecated, because they have been surpassed by {.macros.}.
+They are still available for backward compatibilty in 2.x versions, but they are likely not be there since version 3.
+
+%sym-ANY%
+  equivalent: {.$sym-ANY.}
+  note: you are not forced anymore to start the section name by "sym-"
+
+%up%
+  equivalent: {.if| {.%folder% = / .} | {.$up.} .}
+  note: you are not forced anymore in keeping the code inside section [up]
+
+%item-added% and %item-modified%
+  equivalent: {.time||when=%item-added-dt%.}
+
+%new%
+  equivalent: {.if| {.get|is new.} | {.$newfile.} .}
+  note: you are not forced anymore in keeping the code inside section [newfile]
+
diff --git a/developer notes.txt b/developer notes.txt
new file mode 100644
index 0000000..e8afe16
--- /dev/null
+++ b/developer notes.txt	
@@ -0,0 +1,29 @@
+=== LIBS USED
+ICS v7 by Fran�ois PIETTE http://www.overbyte.be
+GIFimage v2.2r5 by Anders Melander http://www.tolderlund.eu/delphi/
+delphi zlib v1.2.3 by base2 technologies http://www.base2ti.com
+TRegExpr v0.952 by Andrey V. Sorokin http://www.regexpstudio.com/TRegExpr/TRegExpr.html
+fastMM v4 by Pierre le Riche http://fastmm.sourceforge.net
+Kryvich's Delphi Localizer v3.2 https://sites.google.com/site/kryvich/
+
+
+=== CGI
+see python\Lib\CGIHTTPServer.py
+  
+=== CAPABILITIES OF A SCRIPTING SYSTEMS
+- skip limits on some files
+
+=== UNICODE FILENAMES
+widgets required:
+    - treeview (vfs)
+    - listbox (connections)
+    - richedit (log)
+
+code to adapt
+    - TfileListing.fromFolder()
+    - getVFS()
+    - setVFS()
+    
+=== DEFAULT TEMPLATE
+- detect mobile and use special template
+
diff --git a/diffDlg.dfm b/diffDlg.dfm
new file mode 100644
index 0000000..03d5d82
--- /dev/null
+++ b/diffDlg.dfm
@@ -0,0 +1,27 @@
+object diffFrm: TdiffFrm
+  Left = 261
+  Top = 149
+  Caption = 'Customized options'
+  ClientHeight = 334
+  ClientWidth = 432
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object memoBox: TMemo
+    Left = 0
+    Top = 0
+    Width = 432
+    Height = 334
+    Align = alClient
+    ReadOnly = True
+    ScrollBars = ssBoth
+    TabOrder = 0
+  end
+end
diff --git a/diffDlg.pas b/diffDlg.pas
new file mode 100644
index 0000000..54a38a8
--- /dev/null
+++ b/diffDlg.pas
@@ -0,0 +1,25 @@
+unit diffDlg;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls;
+
+type
+  TdiffFrm = class(TForm)
+    memoBox: TMemo;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  diffFrm: TdiffFrm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/dmBrowser.tpl b/dmBrowser.tpl
new file mode 100644
index 0000000..c146554
--- /dev/null
+++ b/dmBrowser.tpl
@@ -0,0 +1,40 @@
+<html>
+<head>
+<title>HFS %folder%</title>
+</head><body>
+%up%
+%files%
+</body>
+</html>
+
+[up]
+<a class=folder href="%parent-folder%">UP</a>
+
+[nofiles]
+<div class=folder>No files</div>
+
+[files]
+%list%
+
+[file]
+<a href="%item-url%">%item-name%</a>
+
+[folder]
+<a href="%item-url%">%item-name%</a>
+
+[comment]
+<div class=comment>%item-comment%</div>
+
+[error-page]
+<html><head></head><body>
+%content%
+</body>
+</html>
+
+[not found]
+<h1>404 -  Not found</h1>
+<a href='/'>go to root</a>
+
+[overload]
+<h1>Server busy</h1>
+Please, retry later.
diff --git a/filelist.tpl b/filelist.tpl
new file mode 100644
index 0000000..738e39a
--- /dev/null
+++ b/filelist.tpl
@@ -0,0 +1,11 @@
+%files%
+
+[files]
+%list%
+
+[file]
+%item-full-url%
+
+[folder]
+%item-full-url%
+
diff --git a/filepropDlg.dfm b/filepropDlg.dfm
new file mode 100644
index 0000000..23e9308
--- /dev/null
+++ b/filepropDlg.dfm
@@ -0,0 +1,417 @@
+object filepropFrm: TfilepropFrm
+  Left = 0
+  Top = 0
+  Caption = 'filepropFrm'
+  ClientHeight = 401
+  ClientWidth = 393
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  KeyPreview = True
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  ShowHint = True
+  OnClose = FormClose
+  OnKeyPress = FormKeyPress
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object pages: TPageControl
+    Left = 0
+    Top = 0
+    Width = 393
+    Height = 366
+    ActivePage = flagsTab
+    Align = alClient
+    ParentShowHint = False
+    RaggedRight = True
+    ShowHint = True
+    TabOrder = 0
+    object permTab: TTabSheet
+      Caption = 'Permissions'
+      ImageIndex = 1
+      object actionTabs: TTabControl
+        Left = 0
+        Top = 0
+        Width = 385
+        Height = 338
+        Align = alClient
+        MultiLine = True
+        TabOrder = 0
+        OnChange = actionTabsChange
+        DesignSize = (
+          385
+          338)
+        object newaccBtn: TButton
+          Left = 278
+          Top = 56
+          Width = 92
+          Height = 25
+          Anchors = [akTop, akRight]
+          Caption = 'New account'
+          TabOrder = 0
+          OnClick = newaccBtnClick
+        end
+        object anyAccChk: TCheckBox
+          Left = 278
+          Top = 151
+          Width = 97
+          Height = 17
+          Anchors = [akTop, akRight]
+          Caption = 'Any account'
+          TabOrder = 1
+          OnClick = anonChkClick
+        end
+        object anonChk: TCheckBox
+          Left = 278
+          Top = 183
+          Width = 97
+          Height = 17
+          Anchors = [akTop, akRight]
+          Caption = 'Anonymous'
+          TabOrder = 2
+          OnClick = anonChkClick
+        end
+        object allBtn: TButton
+          Left = 278
+          Top = 95
+          Width = 92
+          Height = 25
+          Anchors = [akTop, akRight]
+          Caption = 'All / None'
+          TabOrder = 3
+          OnClick = allBtnClick
+        end
+        object accountsBox: TListView
+          Left = 16
+          Top = 40
+          Width = 247
+          Height = 285
+          Anchors = [akLeft, akTop, akRight, akBottom]
+          Checkboxes = True
+          Columns = <>
+          TabOrder = 4
+          ViewStyle = vsList
+          OnChange = accountsBoxChange
+          OnGetImageIndex = accountsBoxGetImageIndex
+        end
+        object anyoneChk: TCheckBox
+          Left = 278
+          Top = 216
+          Width = 97
+          Height = 17
+          Anchors = [akTop, akRight]
+          Caption = 'Anyone'
+          TabOrder = 5
+          OnClick = anonChkClick
+        end
+        object goToAccountsBtn: TButton
+          Left = 278
+          Top = 288
+          Width = 92
+          Height = 33
+          Anchors = [akTop, akRight]
+          Caption = 'Manage  accounts'
+          TabOrder = 6
+          WordWrap = True
+          OnClick = goToAccountsBtnClick
+        end
+      end
+    end
+    object flagsTab: TTabSheet
+      Caption = 'Flags'
+      ImageIndex = 2
+      object hiddenChk: TCheckBox
+        Left = 32
+        Top = 24
+        Width = 180
+        Height = 17
+        Hint = 'Test'
+        Caption = 'Hidden'
+        Enabled = False
+        TabOrder = 0
+      end
+      object hidetreeChk: TCheckBox
+        Left = 32
+        Top = 56
+        Width = 180
+        Height = 17
+        Caption = 'Recursively  hidden'
+        Enabled = False
+        TabOrder = 1
+      end
+      object archivableChk: TCheckBox
+        Left = 32
+        Top = 121
+        Width = 273
+        Height = 17
+        Caption = 'Archivable'
+        Enabled = False
+        TabOrder = 2
+      end
+      object browsableChk: TCheckBox
+        Left = 32
+        Top = 88
+        Width = 97
+        Height = 17
+        Caption = 'Browsable'
+        Enabled = False
+        TabOrder = 3
+      end
+      object dontlogChk: TCheckBox
+        Left = 32
+        Top = 184
+        Width = 97
+        Height = 17
+        Caption = 'Don'#39't log'
+        Enabled = False
+        TabOrder = 4
+      end
+      object nodlChk: TCheckBox
+        Left = 32
+        Top = 152
+        Width = 97
+        Height = 17
+        Caption = 'No download'
+        Enabled = False
+        TabOrder = 5
+      end
+      object dontconsiderChk: TCheckBox
+        Left = 32
+        Top = 216
+        Width = 273
+        Height = 17
+        Caption = 'Don'#39't consider as download'
+        Enabled = False
+        TabOrder = 6
+      end
+      object hideemptyChk: TCheckBox
+        Left = 32
+        Top = 249
+        Width = 313
+        Height = 17
+        Caption = 'Auto-hide empty folders'
+        Enabled = False
+        TabOrder = 7
+      end
+      object hideextChk: TCheckBox
+        Left = 32
+        Top = 280
+        Width = 201
+        Height = 17
+        Caption = 'Hide file extension in listing'
+        Enabled = False
+        TabOrder = 8
+      end
+    end
+    object diffTab: TTabSheet
+      Caption = 'Diff template'
+      ImageIndex = 3
+      object difftplBox: TMemo
+        Left = 0
+        Top = 0
+        Width = 385
+        Height = 338
+        Hint = 
+          'Here you can put a partial template that will overlap the main o' +
+          'ne.'
+        Align = alClient
+        ScrollBars = ssVertical
+        TabOrder = 0
+        OnEnter = textinputEnter
+      end
+    end
+    object commentTab: TTabSheet
+      Caption = 'Comment'
+      ImageIndex = 4
+      object commentBox: TMemo
+        Left = 0
+        Top = 0
+        Width = 385
+        Height = 338
+        Align = alClient
+        ScrollBars = ssVertical
+        TabOrder = 0
+        OnEnter = textinputEnter
+      end
+    end
+    object maskTab: TTabSheet
+      Caption = 'File masks'
+      ImageIndex = 5
+      DesignSize = (
+        385
+        338)
+      object filesfilterBox: TLabeledEdit
+        Left = 10
+        Top = 32
+        Width = 365
+        Height = 21
+        Anchors = [akLeft, akTop, akRight]
+        EditLabel.Width = 46
+        EditLabel.Height = 13
+        EditLabel.Caption = 'Files filter'
+        Enabled = False
+        TabOrder = 0
+        OnEnter = textinputEnter
+      end
+      object foldersfilterBox: TLabeledEdit
+        Left = 10
+        Top = 78
+        Width = 365
+        Height = 21
+        Anchors = [akLeft, akTop, akRight]
+        EditLabel.Width = 60
+        EditLabel.Height = 13
+        EditLabel.Caption = 'Folders filter'
+        Enabled = False
+        TabOrder = 1
+        OnEnter = textinputEnter
+      end
+      object deffileBox: TLabeledEdit
+        Left = 10
+        Top = 125
+        Width = 365
+        Height = 21
+        Hint = 
+          'When a folder is browsed, the default file mask is used to find ' +
+          'a file to serve in place of the folder page. If no file is found' +
+          ', the folder page is served.'
+        Anchors = [akLeft, akTop, akRight]
+        EditLabel.Width = 79
+        EditLabel.Height = 13
+        EditLabel.Caption = 'Default file mask'
+        Enabled = False
+        TabOrder = 2
+        OnEnter = textinputEnter
+      end
+      object uploadfilterBox: TLabeledEdit
+        Left = 10
+        Top = 171
+        Width = 365
+        Height = 21
+        Hint = 'Uploaded files are allowed only complying with this file mask'
+        Anchors = [akLeft, akTop, akRight]
+        EditLabel.Width = 85
+        EditLabel.Height = 13
+        EditLabel.Caption = 'Upload filter mask'
+        Enabled = False
+        TabOrder = 3
+        OnEnter = textinputEnter
+      end
+      object dontconsiderBox: TLabeledEdit
+        Left = 10
+        Top = 218
+        Width = 365
+        Height = 21
+        Hint = 
+          'Files matching this filemask are not considered for global downl' +
+          'oads counter. Moreover they never get tray icon.'
+        Anchors = [akLeft, akTop, akRight]
+        EditLabel.Width = 166
+        EditLabel.Height = 13
+        EditLabel.Caption = 'Don'#39't consider as download (mask)'
+        Enabled = False
+        TabOrder = 4
+        OnEnter = textinputEnter
+      end
+    end
+    object otherTab: TTabSheet
+      Caption = 'Other'
+      ImageIndex = 5
+      DesignSize = (
+        385
+        338)
+      object Label1: TLabel
+        Left = 10
+        Top = 72
+        Width = 21
+        Height = 13
+        Caption = 'Icon'
+        FocusControl = iconBox
+      end
+      object realmBox: TLabeledEdit
+        Left = 10
+        Top = 32
+        Width = 365
+        Height = 21
+        Hint = 
+          'The realm string is shown on the user/pass dialog of the browser' +
+          '. This realm will be used for selected files and their descendan' +
+          'ts.'
+        Anchors = [akLeft, akTop, akRight]
+        EditLabel.Width = 29
+        EditLabel.Height = 13
+        EditLabel.Caption = 'Realm'
+        Enabled = False
+        TabOrder = 0
+        OnEnter = textinputEnter
+      end
+      object iconBox: TComboBoxEx
+        Left = 10
+        Top = 91
+        Width = 127
+        Height = 22
+        ItemsEx = <>
+        Style = csExDropDownList
+        ItemHeight = 16
+        TabOrder = 1
+        Images = mainFrm.images
+      end
+      object addiconBtn: TButton
+        Left = 152
+        Top = 91
+        Width = 75
+        Height = 22
+        Caption = 'Add new...'
+        TabOrder = 2
+        OnClick = addiconBtnClick
+      end
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 366
+    Width = 393
+    Height = 35
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 1
+    DesignSize = (
+      393
+      35)
+    object okBtn: TButton
+      Left = 152
+      Top = 6
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = '&OK'
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+    end
+    object cancelBtn: TButton
+      Left = 313
+      Top = 6
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = 'Cancel'
+      ModalResult = 2
+      TabOrder = 1
+    end
+    object applyBtn: TButton
+      Left = 232
+      Top = 6
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = '&Apply'
+      TabOrder = 2
+      OnClick = applyBtnClick
+    end
+  end
+end
diff --git a/filepropDlg.pas b/filepropDlg.pas
new file mode 100644
index 0000000..fd61f0e
--- /dev/null
+++ b/filepropDlg.pas
@@ -0,0 +1,521 @@
+unit filepropDlg;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ComCtrls, StdCtrls, ExtCtrls, CheckLst, utilLib, main, types, Grids,
+  ValEdit, strutils, hslib, math;
+
+type
+  TfilepropFrm = class(TForm)
+    pages: TPageControl;
+    permTab: TTabSheet;
+    flagsTab: TTabSheet;
+    diffTab: TTabSheet;
+    commentTab: TTabSheet;
+    maskTab: TTabSheet;
+    hiddenChk: TCheckBox;
+    hidetreeChk: TCheckBox;
+    archivableChk: TCheckBox;
+    browsableChk: TCheckBox;
+    dontlogChk: TCheckBox;
+    nodlChk: TCheckBox;
+    dontconsiderChk: TCheckBox;
+    hideemptyChk: TCheckBox;
+    hideextChk: TCheckBox;
+    Panel1: TPanel;
+    okBtn: TButton;
+    cancelBtn: TButton;
+    difftplBox: TMemo;
+    commentBox: TMemo;
+    actionTabs: TTabControl;
+    newaccBtn: TButton;
+    anyAccChk: TCheckBox;
+    anonChk: TCheckBox;
+    allBtn: TButton;
+    accountsBox: TListView;
+    filesfilterBox: TLabeledEdit;
+    foldersfilterBox: TLabeledEdit;
+    deffileBox: TLabeledEdit;
+    uploadfilterBox: TLabeledEdit;
+    dontconsiderBox: TLabeledEdit;
+    otherTab: TTabSheet;
+    realmBox: TLabeledEdit;
+    anyoneChk: TCheckBox;
+    iconBox: TComboBoxEx;
+    Label1: TLabel;
+    addiconBtn: TButton;
+    goToAccountsBtn: TButton;
+    applyBtn: TButton;
+    procedure accountsBoxGetImageIndex(Sender: TObject; Item: TListItem);
+    procedure actionTabsChange(Sender: TObject);
+    procedure newaccBtnClick(Sender: TObject);
+    procedure allBtnClick(Sender: TObject);
+    procedure accountsBoxChange(Sender: TObject; Item: TListItem; Change: TItemChange);
+    procedure anonChkClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure textinputEnter(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormKeyPress(Sender: TObject; var Key: Char);
+    procedure addiconBtnClick(Sender: TObject);
+    procedure goToAccountsBtnClick(Sender: TObject);
+    procedure applyBtnClick(Sender: TObject);
+  private
+    iconOfs: integer;
+  public
+    firstActionChange: boolean;
+    users: array [TfileAction] of TStringDynArray;
+    savePerm: array [TfileAction] of boolean; // should we apply/save permissions for this TfileAction ?
+    currAction, prevAction: TfileAction;
+    procedure updateAccountsBox;
+  end;
+
+var
+  filepropFrm: TfilepropFrm;
+
+implementation
+
+uses optionsDlg;
+
+{$R *.dfm}
+
+procedure TfilepropFrm.accountsBoxChange(Sender: TObject; Item: TListItem; Change: TItemChange);
+begin
+if (change = ctState)
+and (item.caption > '')
+and (stringExists(item.caption, users[currAction]) <> item.checked) then
+  begin
+  savePerm[currAction]:=TRUE;
+  toggleString(item.caption, users[currAction])
+  end;
+end;
+
+procedure TfilepropFrm.accountsBoxGetImageIndex(Sender: TObject; Item: TListItem);
+begin item.ImageIndex:=accountIcon(item.data) end;
+
+function str2fileaction(s:string):TfileAction;
+begin
+for result:=low(result) to high(result) do
+  if FILEACTION2STR[result] = s then
+    exit;
+result:=TfileAction(-1);
+end; // str2fileaction
+
+procedure TfilepropFrm.actionTabsChange(Sender: TObject);
+var
+  l: TstringList;
+  i: integer;
+  ar: TstringDynArray;
+begin
+currAction:=str2fileaction(actionTabs.tabs[actionTabs.tabIndex]);
+if not firstActionChange then
+  begin
+  // we must save current selection before updating the checkmarks
+  ar:=users[prevAction];
+  // now 'ar' is actually an alias, no duplication
+  setLength(ar, 0);
+  if anonChk.checked then addString(USER_ANONYMOUS, ar);
+  if anyAccChk.checked then addString(USER_ANY_ACCOUNT, ar);
+  if anyoneChk.checked then addString(USER_ANYONE, ar);
+  for i:=0 to accountsBox.Items.Count-1 do
+    with accountsBox.Items[i] do
+      if checked then
+        addString(caption, ar);
+
+  prevAction:=currAction;
+  end;
+firstActionChange:=FALSE;
+
+l:=arrayToList(users[currAction]);
+try
+  for i:=0 to accountsBox.Items.Count-1 do
+    with accountsBox.Items[i] do
+      checked:=l.IndexOf(caption) >= 0;
+  anonChk.checked:=l.IndexOf(USER_ANONYMOUS) >= 0;
+  anyAccChk.checked:=l.indexOf(USER_ANY_ACCOUNT) >= 0;
+  anyoneChk.checked:=l.indexOf(USER_ANYONE) >= 0;
+finally l.free end;
+
+end;
+
+procedure TfilepropFrm.addiconBtnClick(Sender: TObject);
+var
+  fn: string;
+  i: integer;
+begin
+if not promptForFileName(fn) then exit;
+i:=getImageIndexForFile(fn);
+if i < 0 then exit;
+iconBox.itemsEx.addItem(idx_label(i), i, i, -1, 0, NIL);
+iconBox.itemIndex:=iconOfs+i;
+end;
+
+procedure TfilepropFrm.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+if (action = caHide) and (modalResult = mrOk) then
+  applyBtnClick(applyBtn);
+end;
+
+procedure TfilepropFrm.FormKeyPress(Sender: TObject; var Key: Char);
+begin
+if pages.focused then
+  if key in ['1'..'9'] then
+    try pages.TabIndex:=ord(key)-ord('0')-1
+    except end;
+end;
+
+procedure TfilepropFrm.FormShow(Sender: TObject);
+var
+  i: integer;
+  f: Tfile;
+
+  procedure setFlag(flag:TfileAttribute; cb:TCheckBox);
+  var
+    should: TCheckBoxState;
+  begin
+  cb.enabled:=TRUE;
+  if flag in f.flags then
+    should:=cbChecked
+  else
+    should:=cbUnchecked;
+  if i = 0 then
+    cb.state:=should
+  else
+    if (cb.state <> cbGrayed) and (cb.state <> should) then
+      cb.state:=cbGrayed;
+  end; // setFlag
+
+  procedure setText(var v:string; box:TCustomEdit);
+  const
+    COLOR = clInfoBk;
+  var
+    n: integer;
+  begin
+  n:=countSubstr(#0, box.hint);
+  box.enabled:=TRUE;
+  if n = 0 then
+    begin // init this edit box
+    box.text:=v;
+    box.hint:=box.hint+#0;
+    exit;
+    end;
+  if (pos(#0+v+#0, box.hint) > 0)
+  or (box.hint = #0) and (v = box.text) then
+    exit; // the value is already there
+  if n > 1 then
+    begin // add the value to the list of values
+    box.hint:=box.hint+v+#0;
+    exit;
+    end;
+  box.hint:=box.hint+box.text+#0+v+#0; // init the list of values
+  box.text:='(more values)'; // message to be shown
+  // these properties are unhappily kept unaccessible through TcustomEdit interface
+  try (box as Tlabelededit).color:=COLOR except end;
+  try (box as Tmemo).color:=COLOR except end;
+  end; // setText
+
+  procedure setCaption();
+  const
+    MAX = 2;
+  var
+    a: TStringDynArray;
+    i: integer;
+  begin
+  a:=NIL;
+  for i:=0 to min(mainFrm.filesBox.SelectionCount, MAX)-1 do
+    addString(mainFrm.filesBox.Selections[i].Text, a);
+  if mainFrm.filesBox.SelectionCount > MAX then
+    addString('...', a);
+  caption:='Properties for '+join(', ', a);
+  end; // setCaption
+
+var
+  act: TfileAction;
+  actions: set of TfileAction;
+begin
+firstActionChange:=TRUE;
+
+accountsBox.smallImages:=mainfrm.images;
+updateAccountsBox();
+
+maskTab.tabVisible:=FALSE;
+diffTab.tabVisible:=FALSE;
+
+iconBox.clear();
+iconBox.Enabled:=FALSE;
+addiconBtn.Enabled:=FALSE;
+i:=if_(mainfrm.filesBox.SelectionCount > 1, -1, selectedFile.getIconForTreeview());
+iconBox.itemsEx.addItem('Default', i, i, -1, 0, NIL);
+iconOfs:=iconBox.ItemsEx.count;
+for i:=0 to mainfrm.images.Count-1 do
+  iconBox.itemsEx.addItem(idx_label(i), i, i, -1, 0, NIL);
+
+actions:=[FA_ACCESS];
+for i:=0 to mainFrm.filesBox.SelectionCount-1 do
+  begin
+  f:=mainFrm.filesBox.Selections[i].data;
+
+  setText(f.comment, commentBox);
+  setText(f.realm, realmBox);
+
+  if f.isRealFolder() then
+    begin
+    include(actions, FA_UPLOAD);
+    setText(f.uploadFilterMask, uploadfilterBox);
+    end;
+
+  if f.isFileOrFolder() then
+    setFlag(FA_DONT_LOG, dontlogChk);
+
+  if f.isFile() or f.isRealFolder() then
+    setFlag(FA_DL_FORBIDDEN, nodlChk);
+
+  if not f.isRoot() then
+    begin
+    setFlag(FA_HIDDEN, hiddenChk);
+    if not iconBox.enabled then
+      begin
+      iconBox.enabled:=TRUE;
+      iconBox.itemIndex:=f.icon+iconOfs;
+      addiconBtn.Enabled:=TRUE;
+      end
+    else
+      if iconBox.itemIndex <> f.icon+iconOfs then
+        iconBox.itemIndex:=-1;
+    end;
+
+  if f.isFile() then
+    setFlag(FA_DONT_COUNT_AS_DL, dontconsiderChk);
+
+  if f.isFolder() then
+    begin
+    include(actions, FA_DELETE);
+
+    diffTab.tabVisible:=TRUE;
+    maskTab.tabVisible:=TRUE;
+    setText(f.filesFilter, filesfilterBox);
+    setText(f.foldersFilter, foldersfilterBox);
+    setText(f.defaultFileMask, deffileBox);
+    setText(f.dontCountAsDownloadMask, dontconsiderBox);
+    setText(f.diffTpl, difftplBox);
+
+    setFlag(FA_HIDDENTREE, hidetreeChk);
+    setFlag(FA_HIDE_EXT, hideextChk);
+    setFlag(FA_BROWSABLE, browsableChk);
+    setFlag(FA_ARCHIVABLE, archivableChk);
+    setFlag(FA_HIDE_EMPTY_FOLDERS, hideemptyChk);
+
+    end;
+
+  // collect usernames
+  for act:=low(act) to high(act) do
+    addUniqueArray(users[act], f.accounts[act]);
+  end;
+
+for act:=low(act) to high(act) do
+  begin
+  savePerm[act]:=FALSE;
+  if act in actions then
+    actionTabs.tabs.add(FILEACTION2STR[act]);
+  end;
+
+if easyMode then
+  onlyForExperts([browsableChk, commentTab, realmBox, dontconsiderChk, maskTab, dontlogChk, hideextChk]);
+
+actionTabs.tabIndex:=0;
+actionTabsChange(NIL);
+setCaption();
+pages.TabIndex:=0;
+end;
+
+procedure TfilepropFrm.goToAccountsBtnClick(Sender: TObject);
+begin
+showOptions(optionsFrm.accountsPage);
+updateAccountsBox();
+actionTabsChange(NIL);
+end;
+
+procedure TfilepropFrm.allBtnClick(Sender: TObject);
+var
+  i: integer;
+  b: boolean;
+begin
+if accountsBox.items.Count = 0 then exit;
+with accountsBox.Items[0] do
+  begin
+  b:=not checked;
+  checked:=b;
+  end;
+for i:=1 to accountsBox.items.count-1 do
+  accountsBox.Items[i].checked:=b;
+end;
+
+procedure TfilepropFrm.anonChkClick(Sender: TObject);
+var
+  s: string;
+begin
+savePerm[currAction]:=TRUE;
+if sender = anonChk then s:=USER_ANONYMOUS
+else if sender = anyAccChk then
+  begin
+  s:=USER_ANY_ACCOUNT;
+  accountsBox.enabled:=not anyAccChk.Checked;
+  end
+else if sender = anyoneChk then
+  begin
+  s:=USER_ANYONE;
+  accountsBox.enabled:=not anyoneChk.Checked;
+  anonChk.enabled:=accountsBox.enabled;
+  anyAccChk.enabled:=accountsBox.enabled;
+  newaccBtn.Enabled:=accountsBox.enabled;
+  end;
+allBtn.Enabled:=accountsBox.enabled;
+with sender as Tcheckbox do
+  if checked then addUniqueString(s, users[currAction])
+  else removeString(s, users[currAction]);
+end;
+
+procedure TfilepropFrm.applyBtnClick(Sender: TObject);
+var
+  i: integer;
+  f: Tfile;
+  act: TfileAction;
+
+  procedure applyFlag(flag:TfileAttribute; cb:TCheckBox);
+  begin
+  if (cb.State = cbGrayed)
+  or not cb.Enabled
+  or not cb.Visible then exit;
+
+  if cb.Checked then include(f.flags, flag)
+  else exclude(f.flags, flag);
+  end; // applyFlag
+
+  procedure applyText(var v:string; box:TCustomEdit);
+  begin
+  if box.modified then
+    v:=box.Text;
+  end; // applyText
+
+begin
+for act:=low(act) to high(act) do
+  sortArray(users[act]);
+
+for i:=0 to mainFrm.filesBox.SelectionCount-1 do
+  begin
+  f:=mainFrm.filesBox.Selections[i].data;
+
+  for act:=low(act) to high(act) do
+    if savePerm[act]
+    and ((act <> FA_UPLOAD) or f.isRealFolder())
+    and ((act <> FA_DELETE) or f.isFolder()) then
+      begin
+
+      // The following is because we monitor every upload path
+      if (act = FA_UPLOAD)
+      and ((f.accounts[act] = NIL) <> (users[act] = NIL)) then // something has changed
+        // WARNING: toggleString() can't be used here, it's not equivalent
+        if users[act] <> NIL then addString(f.resource, uploadPaths)
+        else removeString(f.resource, uploadPaths);
+
+      f.accounts[act]:=users[act];
+      end;
+
+  applyText(f.comment, commentBox);
+  applyText(f.realm, realmBox);
+
+  if f.isFile() then
+    applyFlag(FA_DONT_COUNT_AS_DL, dontconsiderChk);
+
+  if f.isFolder() then
+    begin
+    applyText(f.diffTpl, difftplBox);
+    applyText(f.filesFilter, filesfilterBox);
+    applyText(f.foldersFilter, foldersfilterBox);
+    applyText(f.defaultFileMask, deffileBox);
+    applyText(f.dontCountAsDownloadMask, dontconsiderBox);
+
+    applyFlag(FA_HIDDENTREE, hidetreeChk);
+    applyFlag(FA_HIDE_EXT, hideextChk);
+    applyFlag(FA_HIDE_EMPTY_FOLDERS, hideemptyChk);
+    applyFlag(FA_BROWSABLE, browsableChk);
+    applyFlag(FA_ARCHIVABLE, archivableChk);
+    end;
+
+  if not f.isRoot() then
+    begin
+    applyFlag(FA_HIDDEN, hiddenChk);
+    if iconBox.itemIndex > -1 then
+      f.setupImage(iconBox.itemIndex-iconOfs);
+    end;
+
+  if f.isRealFolder() then
+    applyText(f.uploadFilterMask, uploadfilterBox);
+
+  if f.isFileOrFolder() then
+    applyFlag(FA_DONT_LOG, dontlogChk);
+
+  if f.isFile() or f.isRealFolder() then
+    applyFlag(FA_DL_FORBIDDEN, nodlChk);
+  end;
+end;
+
+procedure TfilepropFrm.newaccBtnClick(Sender: TObject);
+var
+  acc: Paccount;
+begin
+acc:=createAccountOnTheFly();
+if acc = NIL then exit;
+with accountsBox.Items.add() do
+  begin
+  caption:=acc.user;
+  data:=acc;
+  checked:=TRUE;
+  end;
+end;
+
+procedure TfilepropFrm.textinputEnter(Sender: TObject);
+
+  function chooseValue(var s:string):boolean;
+  var
+    l: string;
+  begin
+  l:=s;
+  repeat s:=chop(#0, l)
+  until (s > '') or (l = '');
+  result:=TRUE;
+  end; // chooseValue
+
+var
+  box: TcustomEdit;
+  s, h: string;
+begin
+box:=sender as TcustomEdit;
+if countSubstr(#0, box.hint) < 2 then exit;
+
+s:=box.hint;
+h:=chop(#0, s);
+if not chooseValue(s) then exit;
+box.text:=s;
+box.hint:=h;
+// these properties are unhappily kept unaccessible through TcustomEdit interface
+try (box as Tlabelededit).color:=clWindow except end;
+try (box as Tmemo).color:=clWindow except end;
+end;
+
+procedure TfilepropFrm.updateAccountsBox;
+var
+  i: integer;
+  a: Paccount;
+begin
+accountsBox.clear();
+for i:=0 to length(accounts)-1 do
+  begin
+  a:=@accounts[i];
+  if not a.enabled then continue;
+  accountsBox.addItem(a.user, Tobject(a));
+  end;
+end; // updateAccountsBox
+
+end.
diff --git a/folderKindDlg.dfm b/folderKindDlg.dfm
new file mode 100644
index 0000000..12b43a3
--- /dev/null
+++ b/folderKindDlg.dfm
@@ -0,0 +1,145 @@
+object folderKindFrm: TfolderKindFrm
+  Left = 257
+  Top = 199
+  BorderIcons = [biSystemMenu, biMinimize]
+  BorderStyle = bsDialog
+  Caption = 'What kind of folder do you want?'
+  ClientHeight = 206
+  ClientWidth = 367
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object realLbl: TLabel
+    Left = 136
+    Top = 40
+    Width = 191
+    Height = 13
+    Caption = 'A real folder is faster, good for big folders'
+  end
+  object virtuaLbl: TLabel
+    Left = 136
+    Top = 96
+    Width = 213
+    Height = 13
+    Caption = 'A virtual folder is easier, good for small folders'
+    WordWrap = True
+  end
+  object Label3: TLabel
+    Left = 48
+    Top = 128
+    Width = 28
+    Height = 63
+    Caption = '?'
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -56
+    Font.Name = 'Times New Roman'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object hintLbl: TLabel
+    Left = 80
+    Top = 152
+    Width = 201
+    Height = 33
+    AutoSize = False
+    Caption = 'Not sure? Hint: most time you need real folders!'
+  end
+  object realBtn: TBitBtn
+    Left = 20
+    Top = 34
+    Width = 107
+    Height = 25
+    Caption = '&Real folder'
+    Default = True
+    ModalResult = 7
+    TabOrder = 0
+    Glyph.Data = {
+      36040000424D3604000000000000360000002800000010000000100000000100
+      2000000000000004000000000000000000000000000000000000FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF006D6DED001B1BC9001B1BC9003838E6007676EE00B2B2F600FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF006161EB008383EF006565EB004343E7001E1EDE001919BD001A1AC0002828
+      E4006565EB00A4A4F400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF004848E8009494F2008686F0008686F0008686F0008686F0007C7CEE005A5A
+      EA002C2CE4001B1BCD001919BB009393F100FF00FF00FF00FF00FF00FF00FF00
+      FF002727E3009A9AF2008D8DF1008D8DF1008D8DF1008D8DF1008D8DF1008D8D
+      F1008D8DF1008D8DF1003838E6005353E900FF00FF00FF00FF00FF00FF00FF00
+      FF003131E500B1B1F5009696F2009696F2009696F2009696F2009696F2009696
+      F2009696F2009696F2005E5EEA003535E500FF00FF00FF00FF00FF00FF00FF00
+      FF002727E300B1B1F5009F9FF3009F9FF3009F9FF3009F9FF3009F9FF3009F9F
+      F3009F9FF3009F9FF3007878EE001D1DDB00FF00FF00FF00FF00FF00FF00FF00
+      FF004848E800A4A4F400A4A4F400A4A4F400A4A4F400A4A4F400A4A4F400A4A4
+      F400A4A4F400A4A4F4009494F2001A1AC600FF00FF00FF00FF00FF00FF00FF00
+      FF005E5EEA00AFAFF500C6C6F800C1C1F700BBBBF700BBBBF700BBBBF700BBBB
+      F700BBBBF700BBBBF700ABABF5001B1BCB00FF00FF00FF00FF00FF00FF00D9D9
+      FB008F8FF1006161EB006D6DED006F6FED009191F100D9D9FB00D1D1F900D2D2
+      FA00D1D1F900D2D2FA00BBBBF7001E1EE200B4B4F600FF00FF00FF00FF00D9D9
+      FB00B1B1F500A4A4F400A4A4F400A4A4F4008686F0006C6CEC009898F200BABA
+      F600DDDDFB00EDEDFD00CFCFF9003C3CE6009F9FF300FF00FF00FF00FF00FF00
+      FF00A1A1F300A4A4F400A4A4F400A4A4F400B2B2F6009191F1009494F2009494
+      F2008686F0007171ED005151E9006161EB00FF00FF00FF00FF00FF00FF00FF00
+      FF00A8A8F4009B9BF300A4A4F400B6B6F6007F7FEF00E4E4FC00FF00FF00CDCD
+      F900AAAAF400ABABF500B4B4F600FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00D9D9FB00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
+  end
+  object virtuaBtn: TBitBtn
+    Left = 20
+    Top = 90
+    Width = 107
+    Height = 25
+    Caption = '&Virtual folder'
+    ModalResult = 6
+    TabOrder = 1
+    Glyph.Data = {
+      36040000424D3604000000000000360000002800000010000000100000000100
+      2000000000000004000000000000000000000000000000000000FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF0086BED40049869B005A7E89008D8F9100B1B2B100D6D1D100FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF006AC3E20075DCFD005BCAF40043BCE70035A1C7003587A0004C7C8E008089
+      8C00A8A8A800CCCCCB00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF0052B9DD0087E1FE0078DEFD0078DEFD0078DEFD0078DEFD006FD8FB0056C8
+      EE0043A9CD003C8FAB0049798A00C1C2C100FF00FF00FF00FF00FF00FF00FF00
+      FF0031ADD9008DE6FE0080E6FE0080E6FE0080E6FE0080E6FE0080E6FE0080E6
+      FE0080E6FE0080E6FE003FB7DE009D9E9E00FF00FF00FF00FF00FF00FF00FF00
+      FF003CB1D900A8F2FE0088EFFF0088EFFF0088EFFF0088EFFF0088EFFF0088EF
+      FF0088EFFF0088EFFF0059CBEF0087919300FF00FF00FF00FF00FF00FF00FF00
+      FF0031ADD900A7F8FE0093F8FF0093F8FF0093F8FF0093F8FF0093F8FF0093F8
+      FF0093F8FF0093F8FF006ED8F80067859000FF00FF00FF00FF00FF00FF00FF00
+      FF004CBAE300A2EDF60099FDFF0099FDFF0099FDFF0099FDFF0099FDFF0099FD
+      FF0099FDFF0099FDFF0088E8FE004E7F9100FF00FF00FF00FF00FF00FF00FF00
+      FF0065C1E200B0E8F400C0FCFE00B9FCFE00B3FDFF00B3FDFF00B3FDFF00B3FD
+      FF00B3FDFF00B3FDFF00A1F3FF004A859B00FF00FF00FF00FF00FF00FF00DBEF
+      F8008CE0F3005ED4ED006CCFED0074CDE80093D9EE00D6FBFD00CBFCFE00CDFB
+      FE00CBFCFE00CDFBFE00B3F1FE005A93A600D4D4D500FF00FF00FF00FF00DBEF
+      F800AFEDF60099FDFF0099FDFF0099FDFF0080ECF60072CBE5009CDBEE00BBEA
+      F500DDF6FB00ECFDFE00CAF3FD0061A5C000C9C9C800FF00FF00FF00FF00FF00
+      FF00A5DDEF0099FDFF0099FDFF0099FDFF00AFF1F90099D9E90093DFF20094DB
+      F20089D8ED0074D4EA0062B9D8007ABAD200FF00FF00FF00FF00FF00FF00FF00
+      FF00ADDDEF00A0DBED00A6E3F200B5ECF60098C3D500F0F0F000FF00FF00D0EB
+      F600AFDEEE00B0DFF000BEE0EC00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00DBEFF800FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
+  end
+end
diff --git a/folderKindDlg.pas b/folderKindDlg.pas
new file mode 100644
index 0000000..aacb5e6
--- /dev/null
+++ b/folderKindDlg.pas
@@ -0,0 +1,34 @@
+unit folderKindDlg;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, Buttons, strUtils, ExtCtrls;
+
+type
+  TfolderKindFrm = class(TForm)
+    realLbl: TLabel;
+    virtuaLbl: TLabel;
+    realBtn: TBitBtn;
+    virtuaBtn: TBitBtn;
+    Label3: TLabel;
+    hintLbl: TLabel;
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfolderKindFrm.FormCreate(Sender: TObject);
+begin
+realBtn.Font.Style:=[fsBold];
+with hintLbl do caption:=ansiReplaceStr(caption,'? ','?'#13);
+end;
+
+end.
diff --git a/hfs.bdsproj b/hfs.bdsproj
new file mode 100644
index 0000000..78403eb
--- /dev/null
+++ b/hfs.bdsproj
@@ -0,0 +1,184 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType">VCLApplication</Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{3BBE6A58-B0E7-4454-B009-5B21EFD56A84}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">hfs.dpr</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">1</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">2</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">3</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">HFS ~ HTTP File Server - www.rejetto.com/hfs</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir"></Directories>
+			<Directories Name="PackageDLLOutputDir"></Directories>
+			<Directories Name="PackageDCPOutputDir"></Directories>
+			<Directories Name="SearchPath">$(DELPHI)\Lib\Debug;C:\code\other\jcl\source\include</Directories>
+			<Directories Name="Packages">vcl;rtl;vclx;VclSmp;DJCL60;IcsDel60</Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs">C:\code\other\ics\Delphi\Vc32\</Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">2</VersionInfo>
+			<VersionInfo Name="MinorVer">3</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Debug">True</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1040</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">rejetto</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">2.4.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName">HFS</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright">Copyright (C) 2002  Massimo Melina (www.rejetto.com)</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename">hfs.exe</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">Http File Server</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">2.4</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
+		</VersionInfoKeys>  
+    
+    <Excluded_Packages>
+      <Excluded_Packages Name="c:\program files (x86)\borland\bds\4.0\Bin\dclib100.bpl">Borland InterBase Express Components</Excluded_Packages>
+      <Excluded_Packages Name="c:\program files (x86)\borland\bds\4.0\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
+      <Excluded_Packages Name="c:\program files (x86)\borland\bds\4.0\Bin\dclIndyCore100.bpl">Indy 10 Core Design Time</Excluded_Packages>
+      <Excluded_Packages Name="c:\program files (x86)\borland\bds\4.0\Bin\dclsmp100.bpl">Borland Sample Components</Excluded_Packages>
+      <Excluded_Packages Name="c:\program files (x86)\borland\bds\4.0\Bin\dclIndyProtocols100.bpl">Indy 10 Protocols Design Time</Excluded_Packages>
+      <Excluded_Packages Name="c:\program files (x86)\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
+    </Excluded_Packages>
+  </Delphi.Personality>
+</BorlandProject>
diff --git a/hfs.cfg b/hfs.cfg
new file mode 100644
index 0000000..14b144e
--- /dev/null
+++ b/hfs.cfg
@@ -0,0 +1,43 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W+
+-$X+
+-$Y+
+-$Z1
+-GD
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"C:\Users\rejetto\Documents\Borland Studio Projects\Bpl"
+-LN"C:\Users\rejetto\Documents\Borland Studio Projects\Bpl"
+-U"c:\program files (x86)\borland\bds\4.0\Lib\Debug;C:\code\other\jcl\source\include"
+-O"c:\program files (x86)\borland\bds\4.0\Lib\Debug;C:\code\other\jcl\source\include"
+-I"c:\program files (x86)\borland\bds\4.0\Lib\Debug;C:\code\other\jcl\source\include"
+-R"c:\program files (x86)\borland\bds\4.0\Lib\Debug;C:\code\other\jcl\source\include"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
diff --git a/hfs.dfm b/hfs.dfm
new file mode 100644
index 0000000..c458c58
--- /dev/null
+++ b/hfs.dfm
@@ -0,0 +1,16 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  Caption = 'Form1'
+  ClientHeight = 231
+  ClientWidth = 505
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+end
diff --git a/hfs.dof b/hfs.dof
new file mode 100644
index 0000000..f566561
--- /dev/null
+++ b/hfs.dof
@@ -0,0 +1,133 @@
+[FileVersion]
+Version=6.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=1
+X=1
+Y=2
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[Linker]
+MapFile=3
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Http File Server - www.rejetto.com/hfs
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=$(DELPHI)\Lib\Debug;C:\code\other\compiled
+Packages=vcl;rtl;vclx;VclSmp;DJCL60;IcsDel60
+Conditionals=
+DebugSourceDirs=C:\code\other\ics\Delphi\Vc32\
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=6
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1040
+CodePage=1252
+[Version Info Keys]
+CompanyName=rejetto
+FileDescription=
+FileVersion=1.6.0.0
+InternalName=HFS
+LegalCopyright=Copyright (C) 2002-2004  Massimo Melina (www.rejetto.com)
+LegalTrademarks=
+OriginalFilename=hfs.exe
+ProductName=Http File Server
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+c:\programmi\borland\delphi6\Bin\dclshlctrls60.bpl=Shell Control Property and Component Editors
+c:\programmi\borland\delphi6\Projects\Bpl\dclusr60.bpl=Borland User Components
+C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\JclBaseExpertD60.bpl=JCL Package containing common units for JCL Experts
+C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\JclDebugExpertD60.bpl=JCL Debug IDE extension
+C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\JclProjectAnalysisExpertD60.bpl=JCL Project Analyzer
+C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\JclFavoriteFoldersExpertD60.bpl=JCL Open and Save IDE dialogs with favorite folders
+C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\JclThreadNameExpertD60.bpl=JCL Thread Name IDE expert
+C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\JclUsesExpertD60.bpl=JCL Uses Wizard
+C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\JclSIMDViewExpertD60.bpl=JCL Debug Window of XMM registers
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvAppFrmD6D.bpl=JVCL Application and Form Components
+C:\PROGRA~1\Borland\Delphi6\Projects\Bpl\JvCoreD6D.bpl=JVCL Core Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvBandsD6D.bpl=JVCL Band Objects
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvCmpD6D.bpl=JVCL Non-Visual Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvCryptD6D.bpl=JVCL Encryption and Compression Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvCtrlsD6D.bpl=JVCL Visual Controls
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvCustomD6D.bpl=JVCL Custom Controls
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvDlgsD6D.bpl=JVCL Dialog Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvDockingD6D.bpl=JVCL Docking Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvDotNetCtrlsD6D.bpl=JVCL DotNet Controls
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvGlobusD6D.bpl=JVCL Globus Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvHMID6D.bpl=JVCL HMI Controls design time unit
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvInterpreterD6D.bpl=JVCL Interpreter Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvJansD6D.bpl=JVCL Jans Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvManagedThreadsD6D.bpl=JVCL Managed Threads
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvMMD6D.bpl=JVCL Multimedia and Image Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvNetD6D.bpl=JVCL Network Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvPageCompsD6D.bpl=JVCL Page Style Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvPluginD6D.bpl=JVCL Plugin Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvPrintPreviewD6D.bpl=JVCL Print Preview Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvRuntimeDesignD6D.bpl=JVCL Runtime Design Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvStdCtrlsD6D.bpl=JVCL Standard Controls
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvSystemD6D.bpl=JVCL System Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvTimeFrameworkD6D.bpl=JVCL Time Framework
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvUIBD6D.bpl=JVCL Unified Interbase Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvValidatorsD6D.bpl=JVCL Validators and Error Provider Components
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvWizardD6D.bpl=JVCL Wizard Design Time Package
+C:\Programmi\Borland\Delphi6\Projects\Bpl\JvXPCtrlsD6D.bpl=JVCL XP Controls
+C:\PROGRAMMI\BORLAND\DELPHI6\Bin\PDIFac60.bpl=Interface for ProDelphi viewer
+c:\programmi\borland\delphi6\Bin\dcl31w60.bpl=Delphi 1.0 Compatibility Components
+c:\programmi\borland\delphi6\Projects\Bpl\VirtualTreesD6D.bpl=Virtual Treeview
+[HistoryLists\hlDebugSourcePath]
+Count=1
+Item0=C:\code\other\ics\Delphi\Vc32\
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=1
+Item0=$(DELPHI)\Lib\Debug;C:\code\other\compiled
diff --git a/hfs.dpr b/hfs.dpr
new file mode 100644
index 0000000..fd508fd
--- /dev/null
+++ b/hfs.dpr
@@ -0,0 +1,115 @@
+{
+Copyright (C) 2002-2014  Massimo Melina (www.rejetto.com)
+
+This file is part of HFS ~ HTTP File Server.
+
+    HFS is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    HFS is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with HSG; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+}
+{$INCLUDE defs.inc }
+{$SetPEOptFlags $100 } //IMAGE_DLLCHARACTERISTICS_NX_COMPAT
+program hfs;
+
+uses
+  //FastMM4,
+  //uFreeLocalizer,
+  {$IFDEF EX_DEBUG}
+  ftmExceptionForm,
+  {$ENDIF }
+  monoLib,
+  Forms,
+  windows,
+  types,
+  hslib,
+  sysUtils,
+  main in 'main.pas' {mainFrm},
+  newuserpassDlg in 'newuserpassDlg.pas' {newuserpassFrm},
+  optionsDlg in 'optionsDlg.pas' {optionsFrm},
+  utillib in 'utillib.pas',
+  longinputDlg in 'longinputDlg.pas' {longinputFrm},
+  folderKindDlg in 'folderKindDlg.pas' {folderKindFrm},
+  shellExtDlg in 'shellExtDlg.pas' {shellExtFrm},
+  diffDlg in 'diffDlg.pas' {diffFrm},
+  classesLib in 'classesLib.pas',
+  ipsEverDlg in 'ipsEverDlg.pas' {ipsEverFrm},
+  parserLib in 'parserLib.pas',
+  purgeDlg in 'purgeDlg.pas' {purgeFrm},
+  listSelectDlg in 'listSelectDlg.pas' {listSelectFrm},
+  filepropDlg in 'filepropDlg.pas' {filepropFrm},
+  runscriptDlg in 'runscriptDlg.pas' {runScriptFrm},
+  scriptLib in 'scriptLib.pas';
+
+{$R *.res}
+
+  procedure processSlaveParams(params:string);
+  var
+    ss: TStringDynArray;
+  begin
+  if mainfrm = NIL then exit;
+  ss:=split(#13,params);
+  processParams_before(ss);
+  mainfrm.processParams_after(ss);
+  end;
+
+  function isSingleInstance():boolean;
+  var
+    params:TStringDynArray;
+    ini, tpl:string;
+  begin
+  result:=FALSE;
+  // the -i parameter affects loadCfg()
+  params:=paramsAsArray();
+  processParams_before(params, 'i');
+  loadCfg(ini, tpl);
+  chop('only-1-instance=', ini);
+  if ini = '' then exit;
+  ini:=chopLine(ini);
+  result:=sameText(ini, 'yes');
+  end; // isSingleInstance
+
+begin
+  mono.onSlaveParams:=processSlaveParams;
+  if not holdingKey(VK_CONTROL) then
+    begin
+    if not mono.init('HttpFileServer') then
+      begin
+      msgDlg('monoLib error: '+mono.error, MB_ICONERROR+MB_OK);
+      halt(1);
+      end;
+    if not mono.master and isSingleInstance() then
+      begin
+      mono.sendParams();
+      exit;
+      end;
+    end;
+  {$IFDEF EX_DEBUG}initErrorHandler(format('HFS %s (%s)', [VERSION, VERSION_BUILD]));{$ENDIF}
+  Application.Initialize();
+{
+  if fileExists('hfs.lng') then
+    begin
+    FreeLocalizer.AutoTranslate := True;
+    try FreeLocalizer.LanguageFile := 'hfs.lng';
+    except msgDlg('Localization not supporting your codepage', MB_ICONERROR+MB_OK) end;
+    end;
+}
+  Application.CreateForm(TmainFrm, mainFrm);
+  Application.CreateForm(TnewuserpassFrm, newuserpassFrm);
+  Application.CreateForm(ToptionsFrm, optionsFrm);
+  Application.CreateForm(TdiffFrm, diffFrm);
+  Application.CreateForm(TipsEverFrm, ipsEverFrm);
+  Application.CreateForm(TrunScriptFrm, runScriptFrm);
+  mainfrm.finalInit();
+  Application.Run;
+  {$IFDEF EX_DEBUG}closeErrorHandler();{$ENDIF}
+end.
diff --git a/hfs.dproj b/hfs.dproj
new file mode 100644
index 0000000..b9f2fec
--- /dev/null
+++ b/hfs.dproj
@@ -0,0 +1,973 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{3BBE6A58-B0E7-4454-B009-5B21EFD56A84}</ProjectGuid>
+        <MainSource>hfs.dpr</MainSource>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+        <ProjectVersion>18.8</ProjectVersion>
+        <Base>True</Base>
+        <AppType>Application</AppType>
+        <FrameworkType>VCL</FrameworkType>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <TargetedPlatforms>1</TargetedPlatforms>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+        <Cfg_1_Win32>true</Cfg_1_Win32>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
+        <Cfg_2_Win32>true</Cfg_2_Win32>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <DCC_DependencyCheckOutputName>hfs.exe</DCC_DependencyCheckOutputName>
+        <DCC_ImageBase>00400000</DCC_ImageBase>
+        <DCC_MapFile>3</DCC_MapFile>
+        <DCC_UnitSearchPath>$(DELPHI)\Lib\Debug;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+        <DCC_Platform>x86</DCC_Platform>
+        <DCC_Description>HFS ~ HTTP File Server - www.rejetto.com/hfs</DCC_Description>
+        <DCC_UsePackage>vcl;rtl;vclx;VclSmp;DJCL60;IcsDel60;$(DCC_UsePackage)</DCC_UsePackage>
+        <DCC_K>false</DCC_K>
+        <DCC_N>true</DCC_N>
+        <DCC_S>false</DCC_S>
+        <DCC_F>false</DCC_F>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DebugSourcePath>C:\code\other\ics\Delphi\Vc32\;$(DebugSourcePath)</DebugSourcePath>
+        <DCC_E>false</DCC_E>
+        <SanitizedProjectName>hfs</SanitizedProjectName>
+        <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;$(DCC_Namespace)</DCC_Namespace>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_MinorVer>6</VerInfo_MinorVer>
+        <VerInfo_Locale>1040</VerInfo_Locale>
+        <VerInfo_Keys>CompanyName=rejetto;FileDescription=;FileVersion=1.6.0.0;InternalName=HFS;LegalCopyright=Copyright (C) 2002-2004  Massimo Melina (www.rejetto.com);LegalTrademarks=;OriginalFilename=hfs.exe;ProductName=Http File Server;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_Namespace>Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+        <Debugger_RunParams>-c only-1-instance=no</Debugger_RunParams>
+        <Icon_MainIcon>hfs_Icon1.ico</Icon_MainIcon>
+        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
+        <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
+        <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
+        <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
+        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
+        <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="main.pas">
+            <Form>mainFrm</Form>
+        </DCCReference>
+        <DCCReference Include="newuserpassDlg.pas">
+            <Form>newuserpassFrm</Form>
+        </DCCReference>
+        <DCCReference Include="optionsDlg.pas">
+            <Form>optionsFrm</Form>
+        </DCCReference>
+        <DCCReference Include="utillib.pas"/>
+        <DCCReference Include="longinputDlg.pas">
+            <Form>longinputFrm</Form>
+        </DCCReference>
+        <DCCReference Include="folderKindDlg.pas">
+            <Form>folderKindFrm</Form>
+        </DCCReference>
+        <DCCReference Include="shellExtDlg.pas">
+            <Form>shellExtFrm</Form>
+        </DCCReference>
+        <DCCReference Include="diffDlg.pas">
+            <Form>diffFrm</Form>
+        </DCCReference>
+        <DCCReference Include="classesLib.pas"/>
+        <DCCReference Include="ipsEverDlg.pas">
+            <Form>ipsEverFrm</Form>
+        </DCCReference>
+        <DCCReference Include="parserLib.pas"/>
+        <DCCReference Include="purgeDlg.pas">
+            <Form>purgeFrm</Form>
+        </DCCReference>
+        <DCCReference Include="listSelectDlg.pas">
+            <Form>listSelectFrm</Form>
+        </DCCReference>
+        <DCCReference Include="filepropDlg.pas">
+            <Form>filepropFrm</Form>
+        </DCCReference>
+        <DCCReference Include="runscriptDlg.pas">
+            <Form>runScriptFrm</Form>
+        </DCCReference>
+        <DCCReference Include="scriptLib.pas"/>
+        <None Include="hfs.dpr"/>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">hfs.dpr</Source>
+                </Source>
+                <Parameters>
+                    <Parameters Name="RunParams">-c only-1-instance=no</Parameters>
+                </Parameters>
+                <VersionInfo>
+                    <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+                    <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+                    <VersionInfo Name="MajorVer">1</VersionInfo>
+                    <VersionInfo Name="MinorVer">6</VersionInfo>
+                    <VersionInfo Name="Release">0</VersionInfo>
+                    <VersionInfo Name="Build">0</VersionInfo>
+                    <VersionInfo Name="Debug">False</VersionInfo>
+                    <VersionInfo Name="PreRelease">False</VersionInfo>
+                    <VersionInfo Name="Special">False</VersionInfo>
+                    <VersionInfo Name="Private">False</VersionInfo>
+                    <VersionInfo Name="DLL">False</VersionInfo>
+                    <VersionInfo Name="Locale">1040</VersionInfo>
+                    <VersionInfo Name="CodePage">1252</VersionInfo>
+                </VersionInfo>
+                <VersionInfoKeys>
+                    <VersionInfoKeys Name="CompanyName">rejetto</VersionInfoKeys>
+                    <VersionInfoKeys Name="FileDescription"/>
+                    <VersionInfoKeys Name="FileVersion">1.6.0.0</VersionInfoKeys>
+                    <VersionInfoKeys Name="InternalName">HFS</VersionInfoKeys>
+                    <VersionInfoKeys Name="LegalCopyright">Copyright (C) 2002-2004  Massimo Melina (www.rejetto.com)</VersionInfoKeys>
+                    <VersionInfoKeys Name="LegalTrademarks"/>
+                    <VersionInfoKeys Name="OriginalFilename">hfs.exe</VersionInfoKeys>
+                    <VersionInfoKeys Name="ProductName">Http File Server</VersionInfoKeys>
+                    <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+                    <VersionInfoKeys Name="Comments"/>
+                </VersionInfoKeys>
+                <Excluded_Packages>
+                    <Excluded_Packages Name="c:\programmi\borland\bds\4.0\Bin\dclib100.bpl">Borland InterBase Express Components</Excluded_Packages>
+                    <Excluded_Packages Name="c:\programmi\borland\bds\4.0\Bin\dclIndyCore100.bpl">Indy 10 Core Design Time</Excluded_Packages>
+                    <Excluded_Packages Name="c:\programmi\borland\bds\4.0\Bin\dclsmp100.bpl">Borland Sample Components</Excluded_Packages>
+                    <Excluded_Packages Name="c:\programmi\borland\bds\4.0\Bin\dclIndyProtocols100.bpl">Indy 10 Protocols Design Time</Excluded_Packages>
+                    <Excluded_Packages Name="c:\programmi\borland\bds\4.0\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
+                </Excluded_Packages>
+            </Delphi.Personality>
+            <Platforms>
+                <Platform value="Win32">True</Platform>
+            </Platforms>
+            <ModelSupport>False</ModelSupport>
+            <Deployment Version="3">
+                <DeployFile LocalName="hfs.exe" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>hfs.exe</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="hfs.dpr" Configuration="Debug" Class="ProjectFile">
+                    <Platform Name="Win32">
+                        <RemoteDir>.\</RemoteDir>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployClass Name="AdditionalDebugSymbols">
+                    <Platform Name="OSX32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidClassesDexFile">
+                    <Platform Name="Android">
+                        <RemoteDir>classes</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>classes</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidFileProvider">
+                    <Platform Name="Android">
+                        <RemoteDir>res\xml</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\xml</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidGDBServer">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeArmeabiFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeArmeabiv7aFile">
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeMipsFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\mips</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\mips</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidServiceOutput">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\arm64-v8a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidServiceOutput_Android32">
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashImageDef">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStyles">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStylesV21">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_Colors">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_DefaultAppIcon">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon144">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon36">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-ldpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-ldpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon48">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon72">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon96">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon24">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon36">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon48">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon72">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon96">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage426">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-small</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-small</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage470">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-normal</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-normal</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage640">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-large</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-large</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage960">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xlarge</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xlarge</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_Strings">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DebugSymbols">
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyFramework">
+                    <Platform Name="OSX32">
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyModule">
+                    <Platform Name="OSX32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.dll;.bpl</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Required="true" Name="DependencyPackage">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.bpl</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="File">
+                    <Platform Name="Android">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch1024x768">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch1536x2048">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch1668">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch1668x2388">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch2048x1536">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch2048x2732">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch2224">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch2388x1668">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch2732x2048">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch768x1024">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch1125">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch1136x640">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch1242">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch1242x2688">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch1334">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch1792">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch2208">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch2436">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch2688x1242">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch320">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch640">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch640x1136">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch750">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch828">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectAndroidManifest">
+                    <Platform Name="Android">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSDeviceDebug">
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSDeviceResourceRules"/>
+                <DeployClass Name="ProjectiOSEntitlements"/>
+                <DeployClass Name="ProjectiOSInfoPList"/>
+                <DeployClass Name="ProjectiOSResource">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXDebug"/>
+                <DeployClass Name="ProjectOSXEntitlements"/>
+                <DeployClass Name="ProjectOSXInfoPList"/>
+                <DeployClass Name="ProjectOSXResource">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Required="true" Name="ProjectOutput">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\arm64-v8a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Linux64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOutput_Android32">
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectUWPManifest">
+                    <Platform Name="Win32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="UWP_DelphiLogo150">
+                    <Platform Name="Win32">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="UWP_DelphiLogo44">
+                    <Platform Name="Win32">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="OSX64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
+            </Deployment>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
+</Project>
diff --git a/hfs.dproj.local b/hfs.dproj.local
new file mode 100644
index 0000000..c008115
--- /dev/null
+++ b/hfs.dproj.local
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<ProjectSortOrder AutoSort="0" SortType="0">
+    <File Path="classesLib.pas"/>
+    <File Path="diffDlg.pas"/>
+    <File Path="diffDlg.dfm"/>
+    <File Path="filepropDlg.pas"/>
+    <File Path="filepropDlg.dfm"/>
+    <File Path="folderKindDlg.pas"/>
+    <File Path="folderKindDlg.dfm"/>
+    <File Path="hfs.dpr"/>
+    <File Path="ipsEverDlg.pas"/>
+    <File Path="ipsEverDlg.dfm"/>
+    <File Path="listSelectDlg.pas"/>
+    <File Path="listSelectDlg.dfm"/>
+    <File Path="longinputDlg.pas"/>
+    <File Path="longinputDlg.dfm"/>
+    <File Path="main.pas"/>
+    <File Path="main.dfm"/>
+    <File Path="newuserpassDlg.pas"/>
+    <File Path="newuserpassDlg.dfm"/>
+    <File Path="optionsDlg.pas"/>
+    <File Path="optionsDlg.dfm"/>
+    <File Path="parserLib.pas"/>
+    <File Path="purgeDlg.pas"/>
+    <File Path="purgeDlg.dfm"/>
+    <File Path="runscriptDlg.pas"/>
+    <File Path="runscriptDlg.dfm"/>
+    <File Path="scriptLib.pas"/>
+    <File Path="shellExtDlg.pas"/>
+    <File Path="shellExtDlg.dfm"/>
+    <File Path="utillib.pas"/>
+  </ProjectSortOrder>
+</BorlandProject>
diff --git a/hfs.drc b/hfs.drc
new file mode 100644
index 0000000..f53f7f7
--- /dev/null
+++ b/hfs.drc
@@ -0,0 +1,1505 @@
+/* VER330
+  Generated by the Embarcadero Delphi Pascal Compiler
+  because -GD or --drc was supplied to the compiler.
+
+  This file contains compiler-generated resources that
+  were bound to the executable.
+  If this file is empty, then no compiler-generated
+  resources were bound to the produced executable.
+*/
+
+#define main_CAPTION 64800
+#define main_MSG 64801
+#define main_REMOVE_SHELL 64802
+#define main_S_OFF 64803
+#define main_S_ON 64804
+#define main_LOG 64805
+#define main_MSG 64806
+#define main_MSG 64807
+#define main_MSG2 64808
+#define main_MSG 64809
+#define main_MSG2 64810
+#define main_MSG 64811
+#define main_MSG 64812
+#define main_MSG 64813
+#define main_MSG 64814
+#define main_MSG 64815
+#define main_MSG 64816
+#define main_MSG 64817
+#define main_MSG 64818
+#define main_MSG 64819
+#define main_MSG 64820
+#define main_MSG 64821
+#define main_MSG 64822
+#define main_MSG_BEFORE 64823
+#define main_MSG_OK 64824
+#define main_MSG_OK_PORT 64825
+#define main_MSG_3 64826
+#define main_MSG_6 64827
+#define main_MSG_7 64828
+#define main_MSG 64829
+#define main_MSG 64830
+#define main_HELP 64831
+#define main_MSG_AUTO_DISABLED 64832
+#define main_MSG_CORRUPTED 64833
+#define main_MSG_MACROS_FOUND 64834
+#define main_MSG_INFO 64835
+#define main_MSG_NEWER 64836
+#define main_ARE_EXPERT 64837
+#define main_ARE_EASY 64838
+#define main_SW2EXPERT 64839
+#define main_SW2EASY 64840
+#define main_MSG 64841
+#define main_MSG 64842
+#define main_MSG 64843
+#define main_MSG 64844
+#define main_MSG 64845
+#define main_MSG 64846
+#define main_MSG 64847
+#define main_ZEROMSG 64848
+#define main_LIMIT 64849
+#define main_MSG_MAX_BW_1 64850
+#define main_LIMIT1 64851
+#define main_NODL 64852
+#define main_MSG 64853
+#define main_MSG 64854
+#define main_MSG2 64855
+#define main_MSG 64856
+#define main_MSG2 64857
+#define main_MSG 64858
+#define main_MSG 64859
+#define main_MSG_TITLE 64860
+#define main_MSG_OLD 64861
+#define main_MSG_UNK_FK 64862
+#define main_MSG_VIS_ONLY_ANON 64863
+#define main_OUT_SPEED 64864
+#define main_IN_SPEED 64865
+#define main_BANS 64866
+#define main_MEMORY 64867
+#define main_CUSTOMIZED 64868
+#define main_ITEMS 64869
+#define main_MSG1 64870
+#define main_MSG 64871
+#define main_MSG_BETTERSTOP 64872
+#define main_MSG_BADCRC 64873
+#define main_MSG_NEWER 64874
+#define main_MSG_ZLIB 64875
+#define main_MSG_BAKAVAILABLE 64876
+#define main_LIMIT 64877
+#define main_TOP_SPEED 64878
+#define main_MSG_MAX_BW 64879
+#define main_MSG 64880
+#define main_AUTOSAVE 64881
+#define main_MSG 64882
+#define main_MSG_MIN 64883
+#define main_MSG_BAN 64884
+#define main_MSG 64885
+#define main_MSG_SAVE_ERROR 64886
+#define main_MSG_LIMITED 64887
+#define main_MSG_UPDATE 64888
+#define main_MSG_FROMDISK 64889
+#define main_COPY 64890
+#define main_ALREADY 64891
+#define main_NOSPACE 64892
+#define main_CONN 64893
+#define main_TOT_IN 64894
+#define main_TOT_OUT 64895
+#define main_MSG_DDNS_911 64896
+#define main_MSG_DDNS_notdonator 64897
+#define main_MSG_DDNS_badagent 64898
+#define main_MSG 64899
+#define main_MSG2 64900
+#define main_MSG 64901
+#define main_MSG2 64902
+#define main_FAILED 64903
+#define main_LIMIT 64904
+#define main_LIMIT 64905
+#define main_LIMIT 64906
+#define main_LIMIT 64907
+#define main_LIMIT 64908
+#define main_LIMIT 64909
+#define main_FINGERPRINT 64910
+#define main_NO_FINGERPRINT 64911
+#define main_MSG_ADDRESSES_EXCEED 64912
+#define main_MSG_NO_TEMP 64913
+#define main_MSG_ERROR_REGISTRY 64914
+#define main_MSG_MANY_ITEMS 64915
+#define main_MSG_ADD_TO_HFS 64916
+#define main_MSG_SINGLE_INSTANCE 64917
+#define main_MSG_ENABLED 64918
+#define main_MSG_DISABLED 64919
+#define main_MSG_COMM_ERROR 64920
+#define main_MSG_DDNS_badauth 64921
+#define main_MSG_DDNS_notfqdn 64922
+#define main_MSG_DDNS_nohost 64923
+#define main_MSG_DDNS_notyours 64924
+#define main_MSG_DDNS_numhost 64925
+#define main_MSG_DDNS_abuse 64926
+#define main_MSG_DDNS_dnserr 64927
+#define JclResources_RsIntelCacheDescrF1 64928
+#define JclResources_RsIntelCacheDescrFF 64929
+#define JclResources_RsOSVersionWin8 64930
+#define JclResources_RsOSVersionWinServer2012 64931
+#define JclResources_RsOSVersionWin81 64932
+#define JclResources_RsOSVersionWinServer2012R2 64933
+#define main_S_PORT_LABEL 64934
+#define main_S_PORT_ANY 64935
+#define main_DISABLED 64936
+#define main_MSG_UNPROTECTED_LINKS 64937
+#define main_MSG_SAME_NAME 64938
+#define main_MSG_OPTIONS_SAVED 64939
+#define main_MSG_SOME_LOCKED 64940
+#define main_MSG_ITEM_LOCKED 64941
+#define main_MSG_INVALID_VALUE 64942
+#define main_MSG_EMPTY_NO_LIMIT 64943
+#define JclResources_RsIntelCacheDescrD0 64944
+#define JclResources_RsIntelCacheDescrD1 64945
+#define JclResources_RsIntelCacheDescrD2 64946
+#define JclResources_RsIntelCacheDescrD6 64947
+#define JclResources_RsIntelCacheDescrD7 64948
+#define JclResources_RsIntelCacheDescrD8 64949
+#define JclResources_RsIntelCacheDescrDC 64950
+#define JclResources_RsIntelCacheDescrDD 64951
+#define JclResources_RsIntelCacheDescrDE 64952
+#define JclResources_RsIntelCacheDescrE2 64953
+#define JclResources_RsIntelCacheDescrE3 64954
+#define JclResources_RsIntelCacheDescrE4 64955
+#define JclResources_RsIntelCacheDescrEA 64956
+#define JclResources_RsIntelCacheDescrEB 64957
+#define JclResources_RsIntelCacheDescrEC 64958
+#define JclResources_RsIntelCacheDescrF0 64959
+#define JclResources_RsIntelCacheDescr7F 64960
+#define JclResources_RsIntelCacheDescr80 64961
+#define JclResources_RsIntelCacheDescr82 64962
+#define JclResources_RsIntelCacheDescr83 64963
+#define JclResources_RsIntelCacheDescr84 64964
+#define JclResources_RsIntelCacheDescr85 64965
+#define JclResources_RsIntelCacheDescr86 64966
+#define JclResources_RsIntelCacheDescr87 64967
+#define JclResources_RsIntelCacheDescrB0 64968
+#define JclResources_RsIntelCacheDescrB1 64969
+#define JclResources_RsIntelCacheDescrB2 64970
+#define JclResources_RsIntelCacheDescrB3 64971
+#define JclResources_RsIntelCacheDescrB4 64972
+#define JclResources_RsIntelCacheDescrBA 64973
+#define JclResources_RsIntelCacheDescrC0 64974
+#define JclResources_RsIntelCacheDescrCA 64975
+#define JclResources_RsIntelCacheDescr5D 64976
+#define JclResources_RsIntelCacheDescr60 64977
+#define JclResources_RsIntelCacheDescr66 64978
+#define JclResources_RsIntelCacheDescr67 64979
+#define JclResources_RsIntelCacheDescr68 64980
+#define JclResources_RsIntelCacheDescr70 64981
+#define JclResources_RsIntelCacheDescr71 64982
+#define JclResources_RsIntelCacheDescr72 64983
+#define JclResources_RsIntelCacheDescr73 64984
+#define JclResources_RsIntelCacheDescr76 64985
+#define JclResources_RsIntelCacheDescr78 64986
+#define JclResources_RsIntelCacheDescr79 64987
+#define JclResources_RsIntelCacheDescr7A 64988
+#define JclResources_RsIntelCacheDescr7B 64989
+#define JclResources_RsIntelCacheDescr7C 64990
+#define JclResources_RsIntelCacheDescr7D 64991
+#define JclResources_RsIntelCacheDescr4A 64992
+#define JclResources_RsIntelCacheDescr4B 64993
+#define JclResources_RsIntelCacheDescr4C 64994
+#define JclResources_RsIntelCacheDescr4D 64995
+#define JclResources_RsIntelCacheDescr4E 64996
+#define JclResources_RsIntelCacheDescr4F 64997
+#define JclResources_RsIntelCacheDescr50 64998
+#define JclResources_RsIntelCacheDescr51 64999
+#define JclResources_RsIntelCacheDescr52 65000
+#define JclResources_RsIntelCacheDescr55 65001
+#define JclResources_RsIntelCacheDescr56 65002
+#define JclResources_RsIntelCacheDescr57 65003
+#define JclResources_RsIntelCacheDescr59 65004
+#define JclResources_RsIntelCacheDescr5A 65005
+#define JclResources_RsIntelCacheDescr5B 65006
+#define JclResources_RsIntelCacheDescr5C 65007
+#define JclResources_RsIntelCacheDescr39 65008
+#define JclResources_RsIntelCacheDescr3A 65009
+#define JclResources_RsIntelCacheDescr3B 65010
+#define JclResources_RsIntelCacheDescr3C 65011
+#define JclResources_RsIntelCacheDescr3D 65012
+#define JclResources_RsIntelCacheDescr3E 65013
+#define JclResources_RsIntelCacheDescr40 65014
+#define JclResources_RsIntelCacheDescr41 65015
+#define JclResources_RsIntelCacheDescr42 65016
+#define JclResources_RsIntelCacheDescr43 65017
+#define JclResources_RsIntelCacheDescr44 65018
+#define JclResources_RsIntelCacheDescr45 65019
+#define JclResources_RsIntelCacheDescr46 65020
+#define JclResources_RsIntelCacheDescr47 65021
+#define JclResources_RsIntelCacheDescr48 65022
+#define JclResources_RsIntelCacheDescr49 65023
+#define JclResources_RsIntelCacheDescr05 65024
+#define JclResources_RsIntelCacheDescr06 65025
+#define JclResources_RsIntelCacheDescr08 65026
+#define JclResources_RsIntelCacheDescr09 65027
+#define JclResources_RsIntelCacheDescr0A 65028
+#define JclResources_RsIntelCacheDescr0B 65029
+#define JclResources_RsIntelCacheDescr0C 65030
+#define JclResources_RsIntelCacheDescr0D 65031
+#define JclResources_RsIntelCacheDescr0E 65032
+#define JclResources_RsIntelCacheDescr21 65033
+#define JclResources_RsIntelCacheDescr22 65034
+#define JclResources_RsIntelCacheDescr23 65035
+#define JclResources_RsIntelCacheDescr25 65036
+#define JclResources_RsIntelCacheDescr29 65037
+#define JclResources_RsIntelCacheDescr2C 65038
+#define JclResources_RsIntelCacheDescr30 65039
+#define GIFImage_sProgressLoading 65040
+#define GIFImage_sProgressSaving 65041
+#define GIFImage_sProgressConverting 65042
+#define GIFImage_sProgressRendering 65043
+#define GIFImage_sProgressCopying 65044
+#define GIFImage_sProgressOptimizing 65045
+#define JclResources_RsEReplacementChar 65046
+#define JclResources_RsUnableToOpenKeyRead 65047
+#define JclResources_RsUnableToAccessValue 65048
+#define JclResources_RsWrongDataType 65049
+#define JclResources_RsInconsistentPath 65050
+#define JclResources_RsIntelCacheDescr00 65051
+#define JclResources_RsIntelCacheDescr01 65052
+#define JclResources_RsIntelCacheDescr02 65053
+#define JclResources_RsIntelCacheDescr03 65054
+#define JclResources_RsIntelCacheDescr04 65055
+#define GIFImage_sBadHeight 65056
+#define GIFImage_sBadWidth 65057
+#define GIFImage_sFailedPaste 65058
+#define GIFImage_sScreenSizeExceeded 65059
+#define GIFImage_sNoColorTable 65060
+#define GIFImage_sBadPixelCoordinates 65061
+#define GIFImage_sInvalidPixelFormat 65062
+#define GIFImage_sBadDimension 65063
+#define GIFImage_sNoDIB 65064
+#define GIFImage_sInvalidStream 65065
+#define GIFImage_sInvalidColor 65066
+#define GIFImage_sInvalidBitSize 65067
+#define GIFImage_sEmptyColorMap 65068
+#define GIFImage_sEmptyImage 65069
+#define GIFImage_sInvalidReduction 65070
+#define GIFImage_sGIFImageFile 65071
+#define GIFImage_sBadColorIndex 65072
+#define GIFImage_sBadVersion 65073
+#define GIFImage_sBadSignature 65074
+#define GIFImage_sScreenBadColorSize 65075
+#define GIFImage_sImageBadColorSize 65076
+#define GIFImage_sUnknownExtension 65077
+#define GIFImage_sBadExtensionLabel 65078
+#define GIFImage_sOutOfMemDIB 65079
+#define GIFImage_sDecodeTooFewBits 65080
+#define GIFImage_sDecodeCircular 65081
+#define GIFImage_sBadTrailer 65082
+#define GIFImage_sBadExtensionInstance 65083
+#define GIFImage_sBadBlockSize 65084
+#define GIFImage_sBadBlock 65085
+#define GIFImage_sUnsupportedClass 65086
+#define GIFImage_sInvalidData 65087
+#define OverbyteIcsCharsetUtils_sHebrewWindows 65088
+#define OverbyteIcsCharsetUtils_sJapaneseJIS 65089
+#define OverbyteIcsCharsetUtils_sKorean 65090
+#define OverbyteIcsCharsetUtils_sKoreanEUC 65091
+#define OverbyteIcsCharsetUtils_sLatin9 65092
+#define OverbyteIcsCharsetUtils_sThaiWindows 65093
+#define OverbyteIcsCharsetUtils_sTurkishISO 65094
+#define OverbyteIcsCharsetUtils_sTurkishWindows 65095
+#define OverbyteIcsCharsetUtils_sUnicodeUTF7 65096
+#define OverbyteIcsCharsetUtils_sUnicodeUTF8 65097
+#define OverbyteIcsCharsetUtils_sVietnameseWindows 65098
+#define OverbyteIcsCharsetUtils_sWesternEuropeanISO 65099
+#define OverbyteIcsCharsetUtils_sWesternEuropeanWindows 65100
+#define OverbyteIcsHttpContCod_ERR_GETCODING_OVERRIDE 65101
+#define GIFImage_sOutOfData 65102
+#define GIFImage_sTooManyColors 65103
+#define OverbyteIcsCharsetUtils_sBalticWindows 65104
+#define OverbyteIcsCharsetUtils_sCentralEuropeanISO 65105
+#define OverbyteIcsCharsetUtils_sCentralEuropeanWindows 65106
+#define OverbyteIcsCharsetUtils_sChineseTraditionalBig5 65107
+#define OverbyteIcsCharsetUtils_sChineseSimplifiedGB18030 65108
+#define OverbyteIcsCharsetUtils_sChineseSimplifiedGB2312 65109
+#define OverbyteIcsCharsetUtils_sChineseSimplifiedHZ 65110
+#define OverbyteIcsCharsetUtils_sCyrillicISO 65111
+#define OverbyteIcsCharsetUtils_sCyrillicKOI8R 65112
+#define OverbyteIcsCharsetUtils_sCyrillicKOI8U 65113
+#define OverbyteIcsCharsetUtils_sCyrillicWindows 65114
+#define OverbyteIcsCharsetUtils_sEstonianISO 65115
+#define OverbyteIcsCharsetUtils_sGreekISO 65116
+#define OverbyteIcsCharsetUtils_sGreekWindows 65117
+#define OverbyteIcsCharsetUtils_sHebrewISOLogical 65118
+#define OverbyteIcsCharsetUtils_sHebrewISOVisual 65119
+#define Vcl_ComStrs_sTabFailSetObject 65120
+#define Vcl_ComStrs_sTabMustBeMultiLine 65121
+#define Vcl_ComStrs_sInvalidLevel 65122
+#define Vcl_ComStrs_sInvalidLevelEx 65123
+#define Vcl_ComStrs_sInvalidIndex 65124
+#define Vcl_ComStrs_sInsertError 65125
+#define Vcl_ComStrs_sInvalidOwner 65126
+#define Vcl_ComStrs_sRichEditInsertError 65127
+#define Vcl_ComStrs_sRichEditLoadFail 65128
+#define Vcl_ComStrs_sRichEditSaveFail 65129
+#define Vcl_ComStrs_sUDAssociated 65130
+#define Vcl_ComStrs_sPageIndexError 65131
+#define Vcl_ComStrs_sInvalidComCtl32 65132
+#define OverbyteIcsCharsetUtils_sArabicISO 65133
+#define OverbyteIcsCharsetUtils_sArabicWindows 65134
+#define OverbyteIcsCharsetUtils_sBalticISO 65135
+#define Vcl_Consts_SStyleHookClassNotRegistered 65136
+#define Vcl_Consts_SStyleInvalidParameter 65137
+#define Vcl_Consts_SStyleFeatureNotSupported 65138
+#define Vcl_Consts_SStyleNotRegistered 65139
+#define Vcl_Consts_SStyleUnregisterError 65140
+#define Vcl_Consts_SStyleNotRegisteredNoName 65141
+#define Vcl_Consts_sBeginInvokeNoHandle 65142
+#define System_Win_ComConst_SOleError 65143
+#define System_Win_ComConst_SNoMethod 65144
+#define System_Win_ComConst_SVarNotObject 65145
+#define System_Win_ComConst_STooManyParams 65146
+#define Vcl_ComStrs_sTabFailClear 65147
+#define Vcl_ComStrs_sTabFailDelete 65148
+#define Vcl_ComStrs_sTabFailRetrieve 65149
+#define Vcl_ComStrs_sTabFailGetObject 65150
+#define Vcl_ComStrs_sTabFailSet 65151
+#define Vcl_Consts_SNoGetItemEventHandler 65152
+#define Vcl_Consts_STrayIconRemoveError 65153
+#define Vcl_Consts_SPageControlNotSet 65154
+#define Vcl_Consts_SWindowsVistaRequired 65155
+#define Vcl_Consts_STaskDlgButtonCaption 65156
+#define Vcl_Consts_STaskDlgRadioButtonCaption 65157
+#define Vcl_Consts_SInvalidTaskDlgButtonCaption 65158
+#define Vcl_Consts_SStyleLoadError 65159
+#define Vcl_Consts_SStyleLoadErrors 65160
+#define Vcl_Consts_SStyleRegisterError 65161
+#define Vcl_Consts_SStyleClassRegisterError 65162
+#define Vcl_Consts_SStyleNotFound 65163
+#define Vcl_Consts_SStyleClassNotFound 65164
+#define Vcl_Consts_SStyleInvalidHandle 65165
+#define Vcl_Consts_SStyleFormatError 65166
+#define Vcl_Consts_SStyleHookClassRegistered 65167
+#define Vcl_Consts_SMultiSelectRequired 65168
+#define Vcl_Consts_SPromptArrayTooShort 65169
+#define Vcl_Consts_SPromptArrayEmpty 65170
+#define Vcl_Consts_SUsername 65171
+#define Vcl_Consts_SPassword 65172
+#define Vcl_Consts_SDomain 65173
+#define Vcl_Consts_SLogin 65174
+#define Vcl_Consts_SKeyCaption 65175
+#define Vcl_Consts_SValueCaption 65176
+#define Vcl_Consts_SKeyConflict 65177
+#define Vcl_Consts_SKeyNotFound 65178
+#define Vcl_Consts_SNoColumnMoving 65179
+#define Vcl_Consts_SNoEqualsInKey 65180
+#define Vcl_Consts_SSeparator 65181
+#define Vcl_Consts_SErrorSettingCount 65182
+#define Vcl_Consts_SListBoxMustBeVirtual 65183
+#define Vcl_Consts_SOutOfRange 65184
+#define Vcl_Consts_SDefaultFilter 65185
+#define Vcl_Consts_sAllFilter 65186
+#define Vcl_Consts_SInsertLineError 65187
+#define Vcl_Consts_SInvalidClipFmt 65188
+#define Vcl_Consts_SIconToClipboard 65189
+#define Vcl_Consts_SCannotOpenClipboard 65190
+#define Vcl_Consts_SInvalidMemoSize 65191
+#define Vcl_Consts_SInvalidPrinterOp 65192
+#define Vcl_Consts_SNoDefaultPrinter 65193
+#define Vcl_Consts_SDuplicateMenus 65194
+#define Vcl_Consts_SDockedCtlNeedsName 65195
+#define Vcl_Consts_SDockTreeRemoveError 65196
+#define Vcl_Consts_SDockZoneNotFound 65197
+#define Vcl_Consts_SDockZoneHasNoCtl 65198
+#define Vcl_Consts_SDockZoneVersionConflict 65199
+#define Vcl_Consts_SmkcEsc 65200
+#define Vcl_Consts_SmkcEnter 65201
+#define Vcl_Consts_SmkcSpace 65202
+#define Vcl_Consts_SmkcPgUp 65203
+#define Vcl_Consts_SmkcPgDn 65204
+#define Vcl_Consts_SmkcEnd 65205
+#define Vcl_Consts_SmkcHome 65206
+#define Vcl_Consts_SmkcLeft 65207
+#define Vcl_Consts_SmkcUp 65208
+#define Vcl_Consts_SmkcRight 65209
+#define Vcl_Consts_SmkcDown 65210
+#define Vcl_Consts_SmkcIns 65211
+#define Vcl_Consts_SmkcDel 65212
+#define Vcl_Consts_SmkcShift 65213
+#define Vcl_Consts_SmkcCtrl 65214
+#define Vcl_Consts_SmkcAlt 65215
+#define Vcl_Consts_SMsgDlgInformation 65216
+#define Vcl_Consts_SMsgDlgConfirm 65217
+#define Vcl_Consts_SMsgDlgYes 65218
+#define Vcl_Consts_SMsgDlgNo 65219
+#define Vcl_Consts_SMsgDlgOK 65220
+#define Vcl_Consts_SMsgDlgCancel 65221
+#define Vcl_Consts_SMsgDlgHelp 65222
+#define Vcl_Consts_SMsgDlgAbort 65223
+#define Vcl_Consts_SMsgDlgRetry 65224
+#define Vcl_Consts_SMsgDlgIgnore 65225
+#define Vcl_Consts_SMsgDlgAll 65226
+#define Vcl_Consts_SMsgDlgNoToAll 65227
+#define Vcl_Consts_SMsgDlgYesToAll 65228
+#define Vcl_Consts_SMsgDlgClose 65229
+#define Vcl_Consts_SmkcBkSp 65230
+#define Vcl_Consts_SmkcTab 65231
+#define Vcl_Consts_SAllButton 65232
+#define Vcl_Consts_SCannotDragForm 65233
+#define Vcl_Consts_SVMetafiles 65234
+#define Vcl_Consts_SVEnhMetafiles 65235
+#define Vcl_Consts_SVIcons 65236
+#define Vcl_Consts_SVBitmaps 65237
+#define Vcl_Consts_SVTIFFImages 65238
+#define Vcl_Consts_SGridTooLarge 65239
+#define Vcl_Consts_STooManyDeleted 65240
+#define Vcl_Consts_SIndexOutOfRange 65241
+#define Vcl_Consts_SFixedColTooBig 65242
+#define Vcl_Consts_SFixedRowTooBig 65243
+#define Vcl_Consts_SMaskErr 65244
+#define Vcl_Consts_SMaskEditErr 65245
+#define Vcl_Consts_SMsgDlgWarning 65246
+#define Vcl_Consts_SMsgDlgError 65247
+#define Vcl_Consts_SPrinterIndexError 65248
+#define Vcl_Consts_SInvalidPrinter 65249
+#define Vcl_Consts_SDeviceOnPort 65250
+#define Vcl_Consts_SGroupIndexTooLow 65251
+#define Vcl_Consts_SNoMDIForm 65252
+#define Vcl_Consts_SImageCanvasNeedsBitmap 65253
+#define Vcl_Consts_SControlParentSetToSelf 65254
+#define Vcl_Consts_SOKButton 65255
+#define Vcl_Consts_SCancelButton 65256
+#define Vcl_Consts_SYesButton 65257
+#define Vcl_Consts_SNoButton 65258
+#define Vcl_Consts_SHelpButton 65259
+#define Vcl_Consts_SCloseButton 65260
+#define Vcl_Consts_SIgnoreButton 65261
+#define Vcl_Consts_SRetryButton 65262
+#define Vcl_Consts_SAbortButton 65263
+#define Vcl_Consts_SWindowClass 65264
+#define Vcl_Consts_SCannotFocus 65265
+#define Vcl_Consts_SParentRequired 65266
+#define Vcl_Consts_SControlPath 65267
+#define Vcl_Consts_SParentGivenNotAParent 65268
+#define Vcl_Consts_SMDIChildNotVisible 65269
+#define Vcl_Consts_SVisibleChanged 65270
+#define Vcl_Consts_SCannotShowModal 65271
+#define Vcl_Consts_SScrollBarRange 65272
+#define Vcl_Consts_SPropertyOutOfRange 65273
+#define Vcl_Consts_SMenuIndexError 65274
+#define Vcl_Consts_SMenuReinserted 65275
+#define Vcl_Consts_SMenuNotFound 65276
+#define Vcl_Consts_SNoTimers 65277
+#define Vcl_Consts_SNotPrinting 65278
+#define Vcl_Consts_SPrinting 65279
+#define Vcl_Consts_SChangeIconSize 65280
+#define Vcl_Consts_SChangeWicSize 65281
+#define Vcl_Consts_SUnknownExtension 65282
+#define Vcl_Consts_SUnknownClipboardFormat 65283
+#define Vcl_Consts_SUnknownStreamFormat 65284
+#define Vcl_Consts_SOutOfResources 65285
+#define Vcl_Consts_SNoCanvasHandle 65286
+#define Vcl_Consts_SInvalidTextFormatFlag 65287
+#define Vcl_Consts_SInvalidImageSize 65288
+#define Vcl_Consts_SInvalidImageList 65289
+#define Vcl_Consts_SReplaceImage 65290
+#define Vcl_Consts_SInsertImage 65291
+#define Vcl_Consts_SImageIndexError 65292
+#define Vcl_Consts_SImageReadFail 65293
+#define Vcl_Consts_SImageWriteFail 65294
+#define Vcl_Consts_SWindowDCError 65295
+#define System_RTLConsts_sObserverNoSinglecastFound 65296
+#define System_RTLConsts_sObserverNoMulticastFound 65297
+#define System_RTLConsts_sObserverNotAvailable 65298
+#define System_RTLConsts_SInvalidDateString 65299
+#define System_RTLConsts_SInvalidTimeString 65300
+#define System_RTLConsts_SInvalidOffsetString 65301
+#define System_RTLConsts_sMustWaitOnOneEvent 65302
+#define System_RTLConsts_sBeginInvokeDestroying 65303
+#define Vcl_Consts_SInvalidTabPosition 65304
+#define Vcl_Consts_SInvalidTabStyle 65305
+#define Vcl_Consts_SInvalidBitmap 65306
+#define Vcl_Consts_SInvalidIcon 65307
+#define Vcl_Consts_SInvalidMetafile 65308
+#define Vcl_Consts_SInvalidPixelFormat 65309
+#define Vcl_Consts_SInvalidImage 65310
+#define Vcl_Consts_SScanLine 65311
+#define System_RTLConsts_SWindowsServer2008 65312
+#define System_RTLConsts_SWindows7 65313
+#define System_RTLConsts_SWindowsServer2008R2 65314
+#define System_RTLConsts_SWindows2000 65315
+#define System_RTLConsts_SWindowsXP 65316
+#define System_RTLConsts_SWindowsServer2003 65317
+#define System_RTLConsts_SWindowsServer2003R2 65318
+#define System_RTLConsts_SWindowsServer2012 65319
+#define System_RTLConsts_SWindowsServer2012R2 65320
+#define System_RTLConsts_SWindowsServer2016 65321
+#define System_RTLConsts_SWindows8 65322
+#define System_RTLConsts_SWindows8Point1 65323
+#define System_RTLConsts_SWindows10 65324
+#define System_RTLConsts_sObserverUnsupported 65325
+#define System_RTLConsts_sObserverMultipleSingleCast 65326
+#define System_RTLConsts_sObserverNoInterface 65327
+#define System_RTLConsts_SNothingFound 65328
+#define System_RTLConsts_SArgumentOutOfRange 65329
+#define System_RTLConsts_SArgumentNil 65330
+#define System_RTLConsts_SGenericItemNotFound 65331
+#define System_RTLConsts_SGenericDuplicateItem 65332
+#define System_RTLConsts_SInsufficientRtti 65333
+#define System_RTLConsts_SParameterCountMismatch 65334
+#define System_RTLConsts_SNonPublicType 65335
+#define System_RTLConsts_SByRefArgMismatch 65336
+#define System_RTLConsts_SServiceNotFound 65337
+#define System_RTLConsts_SVersionStr 65338
+#define System_RTLConsts_SSPVersionStr 65339
+#define System_RTLConsts_SVersion32 65340
+#define System_RTLConsts_SVersion64 65341
+#define System_RTLConsts_SWindows 65342
+#define System_RTLConsts_SWindowsVista 65343
+#define System_RTLConsts_sInvalidStringAndObjectArrays 65344
+#define System_RTLConsts_sNoConstruct 65345
+#define System_RTLConsts_sInvalidTimeoutValue 65346
+#define System_RTLConsts_sSpinCountOutOfRange 65347
+#define System_RTLConsts_sTimespanTooLong 65348
+#define System_RTLConsts_sInvalidTimespanDuration 65349
+#define System_RTLConsts_sTimespanValueCannotBeNan 65350
+#define System_RTLConsts_sCannotNegateTimespan 65351
+#define System_RTLConsts_sInvalidTimespanFormat 65352
+#define System_RTLConsts_sTimespanElementTooLong 65353
+#define System_RTLConsts_SNoContext 65354
+#define System_RTLConsts_SNoContextFound 65355
+#define System_RTLConsts_SNoIndex 65356
+#define System_RTLConsts_SNoSearch 65357
+#define System_RTLConsts_SNoTableOfContents 65358
+#define System_RTLConsts_SNoTopics 65359
+#define System_RTLConsts_SThreadStartError 65360
+#define System_RTLConsts_SThreadExternalCheckTerminated 65361
+#define System_RTLConsts_SThreadExternalSetReturnValue 65362
+#define System_RTLConsts_SParamIsNil 65363
+#define System_RTLConsts_SParamIsNegative 65364
+#define System_RTLConsts_SInputBufferExceed 65365
+#define System_RTLConsts_SInvalidCharsInPath 65366
+#define System_RTLConsts_SPathTooLong 65367
+#define System_RTLConsts_SPathNotFound 65368
+#define System_RTLConsts_SPathFormatNotSupported 65369
+#define System_RTLConsts_SDriveNotFound 65370
+#define System_RTLConsts_SSpecifiedFileNotFound 65371
+#define System_RTLConsts_SLocalTimeInvalid 65372
+#define System_RTLConsts_hNoFilterViewer 65373
+#define System_RTLConsts_sArgumentInvalid 65374
+#define System_RTLConsts_sArgumentOutOfRange_Index 65375
+#define System_RTLConsts_SPropertyException 65376
+#define System_RTLConsts_SReadError 65377
+#define System_RTLConsts_SReadOnlyProperty 65378
+#define System_RTLConsts_SRegCreateFailed 65379
+#define System_RTLConsts_SRegGetDataFailed 65380
+#define System_RTLConsts_SRegSetDataFailed 65381
+#define System_RTLConsts_SResNotFound 65382
+#define System_RTLConsts_SSeekNotImplemented 65383
+#define System_RTLConsts_SSortedListError 65384
+#define System_RTLConsts_SUnknownGroup 65385
+#define System_RTLConsts_SUnknownProperty 65386
+#define System_RTLConsts_SWriteError 65387
+#define System_RTLConsts_SThreadCreateError 65388
+#define System_RTLConsts_SThreadError 65389
+#define System_RTLConsts_SThreadExternalTerminate 65390
+#define System_RTLConsts_SThreadExternalWait 65391
+#define System_RTLConsts_SDuplicateName 65392
+#define System_RTLConsts_SDuplicateString 65393
+#define System_RTLConsts_SFCreateErrorEx 65394
+#define System_RTLConsts_SFOpenErrorEx 65395
+#define System_RTLConsts_SInvalidImage 65396
+#define System_RTLConsts_SInvalidMask 65397
+#define System_RTLConsts_SInvalidName 65398
+#define System_RTLConsts_SInvalidProperty 65399
+#define System_RTLConsts_SInvalidPropertyPath 65400
+#define System_RTLConsts_SInvalidPropertyValue 65401
+#define System_RTLConsts_SInvalidRegType 65402
+#define System_RTLConsts_SListCapacityError 65403
+#define System_RTLConsts_SListCountError 65404
+#define System_RTLConsts_SListIndexError 65405
+#define System_RTLConsts_SMemoryStreamError 65406
+#define System_RTLConsts_SNoComSupport 65407
+#define System_SysConst_SCharIndexOutOfBounds 65408
+#define System_SysConst_SByteIndexOutOfBounds 65409
+#define System_SysConst_SInvalidCharCount 65410
+#define System_SysConst_SInvalidDestinationIndex 65411
+#define System_SysConst_SInvalidCodePage 65412
+#define System_SysConst_SInvalidEncodingName 65413
+#define System_SysConst_SNoMappingForUnicodeCharacter 65414
+#define System_SysConst_SInvalidStringBaseIndex 65415
+#define System_RTLConsts_SAncestorNotFound 65416
+#define System_RTLConsts_SAssignError 65417
+#define System_RTLConsts_SBitsIndexError 65418
+#define System_RTLConsts_SCantWriteResourceStreamError 65419
+#define System_RTLConsts_SCheckSynchronizeError 65420
+#define System_RTLConsts_SClassNotFound 65421
+#define System_RTLConsts_SDuplicateClass 65422
+#define System_RTLConsts_SDuplicateItem 65423
+#define System_SysConst_SShortDayNameSun 65424
+#define System_SysConst_SShortDayNameMon 65425
+#define System_SysConst_SShortDayNameTue 65426
+#define System_SysConst_SShortDayNameWed 65427
+#define System_SysConst_SShortDayNameThu 65428
+#define System_SysConst_SShortDayNameFri 65429
+#define System_SysConst_SShortDayNameSat 65430
+#define System_SysConst_SLongDayNameSun 65431
+#define System_SysConst_SLongDayNameMon 65432
+#define System_SysConst_SLongDayNameTue 65433
+#define System_SysConst_SLongDayNameWed 65434
+#define System_SysConst_SLongDayNameThu 65435
+#define System_SysConst_SLongDayNameFri 65436
+#define System_SysConst_SLongDayNameSat 65437
+#define System_SysConst_SInvalidSourceArray 65438
+#define System_SysConst_SInvalidDestinationArray 65439
+#define System_SysConst_SShortMonthNameSep 65440
+#define System_SysConst_SShortMonthNameOct 65441
+#define System_SysConst_SShortMonthNameNov 65442
+#define System_SysConst_SShortMonthNameDec 65443
+#define System_SysConst_SLongMonthNameJan 65444
+#define System_SysConst_SLongMonthNameFeb 65445
+#define System_SysConst_SLongMonthNameMar 65446
+#define System_SysConst_SLongMonthNameApr 65447
+#define System_SysConst_SLongMonthNameMay 65448
+#define System_SysConst_SLongMonthNameJun 65449
+#define System_SysConst_SLongMonthNameJul 65450
+#define System_SysConst_SLongMonthNameAug 65451
+#define System_SysConst_SLongMonthNameSep 65452
+#define System_SysConst_SLongMonthNameOct 65453
+#define System_SysConst_SLongMonthNameNov 65454
+#define System_SysConst_SLongMonthNameDec 65455
+#define System_SysConst_SNoMonitorSupportException 65456
+#define System_SysConst_SNotImplemented 65457
+#define System_SysConst_SObjectDisposed 65458
+#define System_SysConst_SAssertError 65459
+#define System_SysConst_SAbstractError 65460
+#define System_SysConst_SModuleAccessViolation 65461
+#define System_SysConst_SOSError 65462
+#define System_SysConst_SUnkOSError 65463
+#define System_SysConst_SShortMonthNameJan 65464
+#define System_SysConst_SShortMonthNameFeb 65465
+#define System_SysConst_SShortMonthNameMar 65466
+#define System_SysConst_SShortMonthNameApr 65467
+#define System_SysConst_SShortMonthNameMay 65468
+#define System_SysConst_SShortMonthNameJun 65469
+#define System_SysConst_SShortMonthNameJul 65470
+#define System_SysConst_SShortMonthNameAug 65471
+#define System_SysConst_SVarTypeOutOfRangeWithPrefix 65472
+#define System_SysConst_SVarTypeAlreadyUsedWithPrefix 65473
+#define System_SysConst_SVarTypeNotUsableWithPrefix 65474
+#define System_SysConst_SVarTypeTooManyCustom 65475
+#define System_SysConst_SVarTypeCouldNotConvert 65476
+#define System_SysConst_SVarTypeConvertOverflow 65477
+#define System_SysConst_SVarOverflow 65478
+#define System_SysConst_SVarInvalid 65479
+#define System_SysConst_SVarBadType 65480
+#define System_SysConst_SVarNotImplemented 65481
+#define System_SysConst_SVarUnexpected 65482
+#define System_SysConst_SExternalException 65483
+#define System_SysConst_SAssertionFailed 65484
+#define System_SysConst_SIntfCastError 65485
+#define System_SysConst_SSafecallException 65486
+#define System_SysConst_SMonitorLockException 65487
+#define System_SysConst_SExceptTitle 65488
+#define System_SysConst_SInvalidFormat 65489
+#define System_SysConst_SArgumentMissing 65490
+#define System_SysConst_SDispatchError 65491
+#define System_SysConst_SReadAccess 65492
+#define System_SysConst_SWriteAccess 65493
+#define System_SysConst_SExecuteAccess 65494
+#define System_SysConst_SInvalidAccess 65495
+#define System_SysConst_SFormatTooLong 65496
+#define System_SysConst_SVarArrayCreate 65497
+#define System_SysConst_SVarArrayBounds 65498
+#define System_SysConst_SVarArrayLocked 65499
+#define System_SysConst_SInvalidVarCast 65500
+#define System_SysConst_SInvalidVarOp 65501
+#define System_SysConst_SInvalidVarNullOp 65502
+#define System_SysConst_SInvalidVarOpWithHResultWithPrefix 65503
+#define System_SysConst_SInvalidInput 65504
+#define System_SysConst_SDivByZero 65505
+#define System_SysConst_SRangeError 65506
+#define System_SysConst_SIntOverflow 65507
+#define System_SysConst_SInvalidOp 65508
+#define System_SysConst_SZeroDivide 65509
+#define System_SysConst_SOverflow 65510
+#define System_SysConst_SUnderflow 65511
+#define System_SysConst_SInvalidPointer 65512
+#define System_SysConst_SInvalidCast 65513
+#define System_SysConst_SAccessViolationArg3 65514
+#define System_SysConst_SAccessViolationNoArg 65515
+#define System_SysConst_SStackOverflow 65516
+#define System_SysConst_SControlC 65517
+#define System_SysConst_SPrivilege 65518
+#define System_SysConst_SException 65519
+#define System_SysConst_SUnknown 65520
+#define System_SysConst_SInvalidInteger 65521
+#define System_SysConst_SInvalidFloat 65522
+#define System_SysConst_SInvalidDateTime 65523
+#define System_SysConst_SInvalidTimeStamp 65524
+#define System_SysConst_SInvalidGUID 65525
+#define System_SysConst_STimeEncodeError 65526
+#define System_SysConst_SDateEncodeError 65527
+#define System_SysConst_SOutOfMemory 65528
+#define System_SysConst_SInOutError 65529
+#define System_SysConst_SFileNotFound 65530
+#define System_SysConst_SInvalidUnknownFilename 65531
+#define System_SysConst_STooManyOpenFiles 65532
+#define System_SysConst_SAccessDenied 65533
+#define System_SysConst_SEndOfFile 65534
+#define System_SysConst_SDiskFull 65535
+STRINGTABLE
+BEGIN
+	main_CAPTION,	L"Edit resource"
+	main_MSG,	L"The current template is using macros.\rDo you want to cancel this action?"
+	main_REMOVE_SHELL,	L"Remove from shell context menu"
+	main_S_OFF,	L"Switch OFF"
+	main_S_ON,	L"Switch ON"
+	main_LOG,	L"Log"
+	main_MSG,	L"You are invited to re-insert your No-IP configuration, otherwise the updater won't work as expected."
+	main_MSG,	L"Max simultaneous addresses."
+	main_MSG2,	L"In this moment there are %d different addresses"
+	main_MSG,	L"Max simultaneous addresses downloading."
+	main_MSG2,	L"In this moment there are %d different addresses downloading"
+	main_MSG,	L"Max lines on screen"
+	main_MSG,	L"Here you can specify how to format the log file complying Apache standard.\rLeave blank to get bare copy of screen on file.\r\rExample:\r   %h %l %u %t \"%r\" %>s %b"
+	main_MSG,	L"This option creates an .md5 file for every new calculated fingerprint.\rUse with care to get not your disk invaded by these files."
+	main_MSG,	L"When you add files and no fingerprint is found, it is calculated.\rTo avoid long waitings, set a limit to file size (in KiloBytes).\rLeave empty to disable, and have no fingerprint created."
+	main_MSG,	L"This feature is INCOMPATIBLE with Internet Explorer."
+	main_MSG,	L"Any event from the following IP address mask will be not logged."
+	main_MSG,	L"Specify your addresses, each per line"
+	main_MSG,	L"Can't find external address\r( %s )"
+	main_MSG,	L"This option makes pointless the option \"Find external address at startup\", which has now been disabled for your convenience."
+	main_MSG,	L"Enter URL for updating.\r%ip% will be translated to your external IP."
+	main_MSG,	L"The upload will fail if your disk has less than the specified amount of free MegaBytes."
+	main_MSG,	L"This string will be appended to the filename.\r\rIf you need more control, enter a string with %name% in it, and this symbol will be replaced by the original filename."
+	main_MSG_BEFORE,	L"Here you can test if your server does work on the Internet.\rIf you are not interested in serving files over the Internet, this is NOT for you.\r\rWe'll now perform a test involving network activity.\rIn order to complete this test, you may need to allow HFS's activity in your firewall, by clicking Allow on the warning prompt.\r\rWARNING: for the duration of the test, all ban rules and limits on the number of connections won't apply."
+	main_MSG_OK,	L"The test is successful. The server should be working fine."
+	main_MSG_OK_PORT,	L"Port %s is not working, but another working port has been found and set: %s."
+	main_MSG_3,	L"You may be behind a router or firewall."
+	main_MSG_6,	L"You are behind a router.\rEnsure it is configured to forward port %s to your computer."
+	main_MSG_7,	L"You may be behind a firewall.\rEnsure nothing is blocking HFS."
+	main_MSG,	L"\"Suggest\" the browser to open directly the specified files.\rOther files should pop up a save dialog."
+	main_MSG,	L"You should not use this option unless you really know its meaning.\rContinue?"
+	main_HELP,	L"For help on how to use this file please refer http://www.rejetto.com/wiki/?title=HFS:_Event_scripts"
+	main_MSG_AUTO_DISABLED,	L"Because of the problems encountered in loading,\rautomatic saving has been disabled\runtil you save manually or load another one."
+	main_MSG_CORRUPTED,	L"This file does not contain valid data."
+	main_MSG_MACROS_FOUND,	L"!!!!!!!!! DANGER !!!!!!!!!\rThis file contains macros.\rDon't accept macros from people you don't trust.\r\rTrust this file?"
+	main_MSG_INFO,	L"Last stable version: %s\r\rLast untested version: %s\r"
+	main_MSG_NEWER,	L"There's a new version available online: %s"
+	main_ARE_EXPERT,	L"You are in Expert mode"
+	main_ARE_EASY,	L"You are in Easy mode"
+	main_SW2EXPERT,	L"Switch to Expert mode"
+	main_SW2EASY,	L"Switch to Easy mode"
+	main_MSG,	L"Enter the number of MINUTES with no download after which the program automatically shuts down.\rLeave blank to get no timeout."
+	main_MSG,	L"This function does not save any previous information to the log file.\rInstead, it saves all information that appears in the log box in real-time (from when you click \"OK\", below).\rSpecify a filename for the log.\rIf you leave the filename blank, no log file is saved.\r\rHere are some symbols you can use in the filename to split the log:\r  %d% -- day of the month (1..31)\r  %m% -- month (1..12)\r  %y% -- year (2000..)\r  %dow% -- day of the week (0..6)\r  %w% -- week of the year (1..53)\r  %user% -- username surrounded by parenthesis"
+	main_MSG,	L"Please insert an URL for the link\r\rDo not forget to specify http:// or whatever.\r%%ip%% will be translated to your address"
+	main_MSG,	L"The realm string is shown on the user/pass dialog of the browser.\rHere you can customize the realm for the login button"
+	main_MSG,	L"The connection is kicked after a timeout.\rSpecify in seconds.\rLeave blank to get no timeout."
+	main_MSG,	L"All changes will be lost\rContinue?"
+	main_MSG,	L"Enter the number of MINUTES files stay flagged from their addition.\rLeave blank to disable."
+	main_ZEROMSG,	L"Zero is an effective limit.\rTo disable instead, leave empty."
+	main_LIMIT,	L"Speed limit"
+	main_MSG_MAX_BW_1,	L"Max bandwidth for single address (KB/s)."
+	main_LIMIT1,	L"Speed limit for single address"
+	main_NODL,	L"No downloads timeout: "
+	main_MSG,	L"Graph refresh rate: %d (tenths of second)"
+	main_MSG,	L"Max simultaneous connections to serve.\rMost people don't know this function well, and have problems. If you are unsure, please use the \"Max simultaneous downloads\"."
+	main_MSG2,	L"In this moment there are %d active connections"
+	main_MSG,	L"Max simultaneous downloads."
+	main_MSG2,	L"In this moment there are %d active downloads"
+	main_MSG,	L"Max simultaneous connections to accept from a single IP address.\rMost people don't know this function well, and have problems. If you are unsure, please use the \"Max simultaneous downloads from a single IP address\"."
+	main_MSG,	L"Max simultaneous downloads from a single IP address."
+	main_MSG_TITLE,	L"Loading VFS"
+	main_MSG_OLD,	L"This file is old and uses different settings.\rThe \"let browse\" folder option will be reset.\rRe-saving the file will update its format."
+	main_MSG_UNK_FK,	L"This file has been created with a newer version.\rSome data was discarded because unknown.\rIf you save the file now, the discarded data will NOT be saved."
+	main_MSG_VIS_ONLY_ANON,	L"This VFS file uses the \"Visible only to anonymous users\" feature.\rThis feature is not available anymore.\rYou can achieve similar results by restricting access to @anonymous,\rthen enabling \"List protected items only for allowed users\"."
+	main_OUT_SPEED,	L"Out: %.1f KB/s"
+	main_IN_SPEED,	L"In: %.1f KB/s"
+	main_BANS,	L"Ban rules: %d"
+	main_MEMORY,	L"Mem"
+	main_CUSTOMIZED,	L"Customized template"
+	main_ITEMS,	L"VFS: %d items"
+	main_MSG1,	L"%s item(s) already exists:\r%s\r\rContinue?"
+	main_MSG,	L"Leave empty to disable this feature.\rHere you can specify a mask.\rWhen a file is requested, if the mask doesn't match the \"Referer\" HTTP field, the request is rejected."
+	main_MSG_BETTERSTOP,	L"\rGoing on may lead to problems.\rIt is adviced to stop loading.\rStop?"
+	main_MSG_BADCRC,	L"This file is corrupted (CRC)."
+	main_MSG_NEWER,	L"This file has been created with a newer and incompatible version."
+	main_MSG_ZLIB,	L"This file is corrupted (ZLIB)."
+	main_MSG_BAKAVAILABLE,	L"This file is corrupted but a backup is available.\rContinue with backup?"
+	main_LIMIT,	L"Limit"
+	main_TOP_SPEED,	L"Top speed"
+	main_MSG_MAX_BW,	L"Max bandwidth (KB/s)."
+	main_MSG,	L"Please insert a comment for \"%s\".\rYou should use HTML: <br> for break line."
+	main_AUTOSAVE,	L"Auto save every: "
+	main_MSG,	L"Auto-save %s.\rSpecify in seconds.\rLeave blank to disable."
+	main_MSG_MIN,	L"We don't accept less than %d"
+	main_MSG_BAN,	L"Your ban configuration may have been screwed up.\rPlease verify it."
+	main_MSG,	L"Can't save options there.\rShould I try to save to user registry?"
+	main_MSG_SAVE_ERROR,	L"Cannot save the update"
+	main_MSG_LIMITED,	L"The auto-update feature cannot work because it requires the \"Only 1 instance\" option enabled.\r\rYour browser will now be pointed to the update, so you can install it manually."
+	main_MSG_UPDATE,	L"You are invited to use the new version.\r\rUpdate now?"
+	main_MSG_FROMDISK,	L"Update info has been read from local file.\rTo resume normal operation of the updater, delete the file hfs.updateinfo.txt from the HFS program folder."
+	main_COPY,	L"Copy to clipboard"
+	main_ALREADY,	L"Already in clipboard"
+	main_NOSPACE,	L"Out of space"
+	main_CONN,	L"Connections: %d"
+	main_TOT_IN,	L"Total In: %s"
+	main_TOT_OUT,	L"Total Out: %s"
+	main_MSG_DDNS_911,	L"server error"
+	main_MSG_DDNS_notdonator,	L"an option specified requires payment"
+	main_MSG_DDNS_badagent,	L"banned client"
+	main_MSG,	L"There are %d open connections from this address.\rDo you want to kick them all now?"
+	main_MSG2,	L"You can edit the address.\rMasks and ranges are allowed."
+	main_MSG,	L"This option is NOT compatible with \"dynamic dns updater\".\rContinue?"
+	main_MSG2,	L"There are %d connections open.\rDo you want to close them now?"
+	main_FAILED,	L"Login failed"
+	main_LIMIT,	L"Max simultaneous addresses: %s ..."
+	main_LIMIT,	L"Max simultaneous addresses downloading: %s ..."
+	main_LIMIT,	L"Max connections: %s ..."
+	main_LIMIT,	L"Max connections from single address: %s ..."
+	main_LIMIT,	L"Max simultaneous downloads: %s ..."
+	main_LIMIT,	L"Max simultaneous downloads from single address: %s ..."
+	main_FINGERPRINT,	L"Create fingerprint on addition under %d KB"
+	main_NO_FINGERPRINT,	L"Create fingerprint on addition: disabled"
+	main_MSG_ADDRESSES_EXCEED,	L"The following addresses exceed the limit:\r%s"
+	main_MSG_NO_TEMP,	L"Cannot save temporary file"
+	main_MSG_ERROR_REGISTRY,	L"Can't write to registry.\rYou may lack necessary rights."
+	main_MSG_MANY_ITEMS,	L"You are putting many files.\rTry using real folders instead of virtual folders.\rRead documentation or ask on the forum for help."
+	main_MSG_ADD_TO_HFS,	L"\"Add to HFS\" has been added to your Window's Explorer right-click menu."
+	main_MSG_SINGLE_INSTANCE,	L"Sorry, this feature only works with the \"Only 1 instance\" option enabled.\r\rYou can find this option under Menu -> Start/Exit\r(only in expert mode)"
+	main_MSG_ENABLED,	L"Option enabled"
+	main_MSG_DISABLED,	L"Option disabled"
+	main_MSG_COMM_ERROR,	L"Network error. Request failed."
+	main_MSG_DDNS_badauth,	L"invalid user/password"
+	main_MSG_DDNS_notfqdn,	L"incomplete hostname, required form aaa.bbb.com"
+	main_MSG_DDNS_nohost,	L"specified hostname does not exist"
+	main_MSG_DDNS_notyours,	L"specified hostname belongs to another username"
+	main_MSG_DDNS_numhost,	L"too many or too few hosts found"
+	main_MSG_DDNS_abuse,	L"specified hostname is blocked for update abuse"
+	main_MSG_DDNS_dnserr,	L"server error"
+	JclResources_RsIntelCacheDescrF1,	L"128-Byte Prefetching"
+	JclResources_RsIntelCacheDescrFF,	L"CPUID leaf 2 does not report cache descriptor information, use CPUID leaf 4 to query cache parameters"
+	JclResources_RsOSVersionWin8,	L"Windows 8"
+	JclResources_RsOSVersionWinServer2012,	L"Windows Server 2012"
+	JclResources_RsOSVersionWin81,	L"Windows 8.1"
+	JclResources_RsOSVersionWinServer2012R2,	L"Windows Server 2012 R2"
+	main_S_PORT_LABEL,	L"Port: %s"
+	main_S_PORT_ANY,	L"any"
+	main_DISABLED,	L"disabled"
+	main_MSG_UNPROTECTED_LINKS,	L"Links are NOT actually protected.\rThe feature is there to be used with the \"list protected items only...\" option.\rContinue?"
+	main_MSG_SAME_NAME,	L"An item with the same name is already present in this folder.\rContinue?"
+	main_MSG_OPTIONS_SAVED,	L"Options saved"
+	main_MSG_SOME_LOCKED,	L"Some items were not affected because locked"
+	main_MSG_ITEM_LOCKED,	L"The item is locked"
+	main_MSG_INVALID_VALUE,	L"Invalid value"
+	main_MSG_EMPTY_NO_LIMIT,	L"Leave blank to get no limits."
+	JclResources_RsIntelCacheDescrD0,	L"3rd-level cache: 512 KByte, 4-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrD1,	L"3rd-level cache: 1 MByte, 4-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrD2,	L"3rd-level cache: 2 MByte, 4-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrD6,	L"3rd-level cache: 1 MByte, 8-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrD7,	L"3rd-level cache: 2 MByte, 8-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrD8,	L"3rd-level cache: 4 MByte, 8-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrDC,	L"3rd-level cache: 1.5 MByte, 12-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrDD,	L"3rd-level cache: 3 MByte, 12-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrDE,	L"3rd-level cache: 6 MByte, 12-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrE2,	L"3rd-level cache: 2 MByte, 16-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrE3,	L"3rd-level cache: 4 MByte, 16-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrE4,	L"3rd-level cache: 8 MByte, 16-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrEA,	L"3rd-level cache: 12 MByte, 24-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrEB,	L"3rd-level cache: 18 MByte, 24-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrEC,	L"3rd-level cache: 24 MByte, 24-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrF0,	L"64-Byte Prefetching"
+	JclResources_RsIntelCacheDescr7F,	L"2nd-level cache: 512 KBytes, 2-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr80,	L"2nd-level cache: 512 KBytes, 8-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr82,	L"2nd-level cache: 256 KBytes, 8-way associative, 32 byte line size"
+	JclResources_RsIntelCacheDescr83,	L"2nd-level cache: 512 KBytes, 8-way associative, 32 byte line size"
+	JclResources_RsIntelCacheDescr84,	L"2nd-level cache: 1 MBytes, 8-way associative, 32 byte line size"
+	JclResources_RsIntelCacheDescr85,	L"2nd-level cache: 2 MBytes, 8-way associative, 32 byte line size"
+	JclResources_RsIntelCacheDescr86,	L"2nd-level cache: 512 KByte, 4-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr87,	L"2nd-level cache: 1 MByte, 8-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescrB0,	L"Instruction TLB: 4 KByte pages, 4-way set associative, 128 entries"
+	JclResources_RsIntelCacheDescrB1,	L"Instruction TLB: 2 MByte pages, 4-way, 8 entries or 4 MByte pages, 4-way, 4 entries"
+	JclResources_RsIntelCacheDescrB2,	L"Instruction TLB: 4 KByte pages, 4-way set associative, 64 entries"
+	JclResources_RsIntelCacheDescrB3,	L"Data TLB: 4 KByte pages, 4-way set associative, 128 entries"
+	JclResources_RsIntelCacheDescrB4,	L"Data TLB1: 4 KByte pages, 4-way set associative, 256 entries"
+	JclResources_RsIntelCacheDescrBA,	L"Data TLB1: 4 KByte pages, 4-way set associative, 64 entries"
+	JclResources_RsIntelCacheDescrC0,	L"Data TLB: 4 KByte and 4 MByte pages, 4-way set associative, 8 entries"
+	JclResources_RsIntelCacheDescrCA,	L"Shared 2nd-Level TLB: 4 KByte pages, 4-way associative, 512 entries"
+	JclResources_RsIntelCacheDescr5D,	L"Data TLB: 4 KByte and 4 MByte pages, 256 Entries"
+	JclResources_RsIntelCacheDescr60,	L"1st-level data cache: 16 KByte, 8-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr66,	L"1st-level data cache: 8 KBytes, 4-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr67,	L"1st-level data cache: 16 KBytes, 4-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr68,	L"1st-level data cache: 32 KBytes, 4-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr70,	L"Trace cache: 12 K-Ops, 8-way set associative"
+	JclResources_RsIntelCacheDescr71,	L"Trace cache: 16 K-Ops, 8-way set associative"
+	JclResources_RsIntelCacheDescr72,	L"Trace cache: 32 K-Ops, 8-way set associative"
+	JclResources_RsIntelCacheDescr73,	L"Trace cache: 64 K-Ops, 8-way set associative"
+	JclResources_RsIntelCacheDescr76,	L"Instruction TLB: 2M/4M pages, fully associative, 8 entries"
+	JclResources_RsIntelCacheDescr78,	L"2nd-level cache: 1 MBytes, 4-way set associative, 64 bytes line size"
+	JclResources_RsIntelCacheDescr79,	L"2nd-level cache: 128 KBytes, 8-way set associative, 64 bytes line size, 2 lines per sector"
+	JclResources_RsIntelCacheDescr7A,	L"2nd-level cache: 256 KBytes, 8-way set associative, 64 bytes line size, 2 lines per sector"
+	JclResources_RsIntelCacheDescr7B,	L"2nd-level cache: 512 KBytes, 8-way set associative, 64 bytes line size, 2 lines per sector"
+	JclResources_RsIntelCacheDescr7C,	L"2nd-level cache: 1 MBytes, 8-way set associative, 64 bytes line size, 2 lines per sector"
+	JclResources_RsIntelCacheDescr7D,	L"2nd-level cache: 2 MBytes, 8-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr4A,	L"3rd-level cache: 6MByte, 12-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr4B,	L"3rd-level cache: 8MByte, 16-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr4C,	L"3rd-level cache: 12MByte, 12-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr4D,	L"3rd-level cache: 16MByte, 16-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr4E,	L"2nd-level cache: 6MByte, 24-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr4F,	L"Instruction TLB: 4 KByte pages, 32 Entries"
+	JclResources_RsIntelCacheDescr50,	L"Instruction TLB: 4 KByte and 2 MByte or 4 MByte pages, 64 Entries"
+	JclResources_RsIntelCacheDescr51,	L"Instruction TLB: 4 KByte and 2 MByte or 4 MByte pages, 128 Entries"
+	JclResources_RsIntelCacheDescr52,	L"Instruction TLB: 4 KByte and 2 MByte or 4 MByte pages, 256 Entries"
+	JclResources_RsIntelCacheDescr55,	L"Instruction TLB: 2-MByte or 4-MByte pages, fully associative, 7 entries"
+	JclResources_RsIntelCacheDescr56,	L"Data TLB0: 4 MByte pages, 4-way set associative, 16 entries"
+	JclResources_RsIntelCacheDescr57,	L"Data TLB0: 4 KByte pages, 4-way associative, 16 entries"
+	JclResources_RsIntelCacheDescr59,	L"Data TLB0: 4 KByte pages, fully associative, 16 entries"
+	JclResources_RsIntelCacheDescr5A,	L"Data TLB0: 2 MByte or 4 MByte pages, 4-way set associative, 32 entries"
+	JclResources_RsIntelCacheDescr5B,	L"Data TLB: 4 KByte and 4 MByte pages, 64 Entries"
+	JclResources_RsIntelCacheDescr5C,	L"Data TLB: 4 KByte and 4 MByte pages, 128 Entries"
+	JclResources_RsIntelCacheDescr39,	L"2nd-level cache: 128 KBytes, 4-way set associative, sectored cache, 64-byte line size"
+	JclResources_RsIntelCacheDescr3A,	L"2nd-level cache: 192 KBytes, 6-way set associative, sectored cache, 64-byte line size"
+	JclResources_RsIntelCacheDescr3B,	L"2nd-level cache: 128 KBytes, 2-way set associative, sectored cache, 64-byte line size"
+	JclResources_RsIntelCacheDescr3C,	L"2nd-level cache: 256 KBytes, 4-way set associative, sectored cache, 64-byte line size"
+	JclResources_RsIntelCacheDescr3D,	L"2nd-level cache: 384 KBytes, 6-way set associative, sectored cache, 64-byte line size"
+	JclResources_RsIntelCacheDescr3E,	L"2nd-level cache: 512 KBytes, 4-way set associative, sectored cache, 64-byte line size"
+	JclResources_RsIntelCacheDescr40,	L"No 2nd-level cache or, if processor contains a valid 2nd-level cache, no 3rd-level cache"
+	JclResources_RsIntelCacheDescr41,	L"2nd-level cache: 128 KBytes, 4-way set associative, 32 byte line size"
+	JclResources_RsIntelCacheDescr42,	L"2nd-level cache: 256 KBytes, 4-way set associative, 32 byte line size"
+	JclResources_RsIntelCacheDescr43,	L"2nd-level cache: 512 KBytes, 4-way set associative, 32 byte line size"
+	JclResources_RsIntelCacheDescr44,	L"2nd-level cache: 1 MBytes, 4-way set associative, 32 byte line size"
+	JclResources_RsIntelCacheDescr45,	L"2nd-level cache: 2 MBytes, 4-way set associative, 32 byte line size"
+	JclResources_RsIntelCacheDescr46,	L"3rd-level cache: 4 MBytes, 4-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr47,	L"3rd-level cache: 8 MBytes, 4-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr48,	L"3rd-level cache: 8 MByte, 8-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr49,	L"2nd-level cache: 4 MBytes, 16-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr05,	L"Data TLB1: 4 MByte pages, 4-way set associative, 32 entries"
+	JclResources_RsIntelCacheDescr06,	L"1st level instruction cache: 8 KBytes, 4-way set associative, 32 byte line size"
+	JclResources_RsIntelCacheDescr08,	L"1st level instruction cache: 16 KBytes, 4-way set associative, 32 byte line size"
+	JclResources_RsIntelCacheDescr09,	L"1st level instruction cache: 32 KBytes, 4-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr0A,	L"1st level data cache: 8 KBytes, 2-way set associative, 32 byte line size"
+	JclResources_RsIntelCacheDescr0B,	L"Instruction TLB: 4 MByte pages, 4-way set associative, 4 entries"
+	JclResources_RsIntelCacheDescr0C,	L"1st level data cache: 16 KBytes, 4-way set associative, 32 byte line size"
+	JclResources_RsIntelCacheDescr0D,	L"1st level data cache: 16 KBytes, 4-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr0E,	L"1st level data cache: 24 KBytes, 6-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr21,	L"2nd level cache: 256 KBytes, 8-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr22,	L"3rd level cache: 512 KBytes, 4-way set associative, 64 byte line size, 2 lines per sector"
+	JclResources_RsIntelCacheDescr23,	L"3rd level cache: 1 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector"
+	JclResources_RsIntelCacheDescr25,	L"3rd level cache: 2 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector"
+	JclResources_RsIntelCacheDescr29,	L"3rd level cache: 4 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector"
+	JclResources_RsIntelCacheDescr2C,	L"1st level data cache: 32 KBytes, 8-way set associative, 64 byte line size"
+	JclResources_RsIntelCacheDescr30,	L"1st level instruction cache: 32 KBytes, 8-way set associative, 64 byte line size"
+	GIFImage_sProgressLoading,	L"Loading..."
+	GIFImage_sProgressSaving,	L"Saving..."
+	GIFImage_sProgressConverting,	L"Converting..."
+	GIFImage_sProgressRendering,	L"Rendering..."
+	GIFImage_sProgressCopying,	L"Copying..."
+	GIFImage_sProgressOptimizing,	L"Optimizing..."
+	JclResources_RsEReplacementChar,	L"Failed to get ANSI replacement character"
+	JclResources_RsUnableToOpenKeyRead,	L"Unable to open key \"%s\\%s\" for read"
+	JclResources_RsUnableToAccessValue,	L"Unable to open key \"%s\\%s\" and access value \"%s\""
+	JclResources_RsWrongDataType,	L"\"%s\\%s\\%s\" is of wrong kind or size"
+	JclResources_RsInconsistentPath,	L"\"%s\" does not match RootKey"
+	JclResources_RsIntelCacheDescr00,	L"Null descriptor"
+	JclResources_RsIntelCacheDescr01,	L"Instruction TLB: 4 KByte pages, 4-way set associative, 32 entries"
+	JclResources_RsIntelCacheDescr02,	L"Instruction TLB: 4 MByte pages, 4-way set associative, 2 entries"
+	JclResources_RsIntelCacheDescr03,	L"Data TLB: 4 KByte pages, 4-way set associative, 64 entries"
+	JclResources_RsIntelCacheDescr04,	L"Data TLB: 4 MByte pages, 4-way set associative, 8 entries"
+	GIFImage_sBadHeight,	L"Image height too small for contained frames"
+	GIFImage_sBadWidth,	L"Image width too small for contained frames"
+	GIFImage_sFailedPaste,	L"Failed to store GIF on clipboard"
+	GIFImage_sScreenSizeExceeded,	L"Image exceeds Logical Screen size"
+	GIFImage_sNoColorTable,	L"No global or local color table defined"
+	GIFImage_sBadPixelCoordinates,	L"Invalid pixel coordinates"
+	GIFImage_sInvalidPixelFormat,	L"Unsupported PixelFormat"
+	GIFImage_sBadDimension,	L"Invalid image dimensions"
+	GIFImage_sNoDIB,	L"Image has no DIB"
+	GIFImage_sInvalidStream,	L"Invalid stream operation"
+	GIFImage_sInvalidColor,	L"Color not in color table"
+	GIFImage_sInvalidBitSize,	L"Invalid Bits Per Pixel value"
+	GIFImage_sEmptyColorMap,	L"Color table is empty"
+	GIFImage_sEmptyImage,	L"Image is empty"
+	GIFImage_sInvalidReduction,	L"Invalid reduction method"
+	GIFImage_sGIFImageFile,	L"GIF Image"
+	GIFImage_sBadColorIndex,	L"Invalid color index"
+	GIFImage_sBadVersion,	L"Unsupported GIF version"
+	GIFImage_sBadSignature,	L"Invalid GIF signature"
+	GIFImage_sScreenBadColorSize,	L"Invalid number of colors specified in Screen Descriptor"
+	GIFImage_sImageBadColorSize,	L"Invalid number of colors specified in Image Descriptor"
+	GIFImage_sUnknownExtension,	L"Unknown extension type"
+	GIFImage_sBadExtensionLabel,	L"Invalid extension introducer"
+	GIFImage_sOutOfMemDIB,	L"Failed to allocate memory for GIF DIB"
+	GIFImage_sDecodeTooFewBits,	L"Decoder bit buffer under-run"
+	GIFImage_sDecodeCircular,	L"Circular decoder table entry"
+	GIFImage_sBadTrailer,	L"Invalid Image trailer"
+	GIFImage_sBadExtensionInstance,	L"Internal error: Extension Instance does not match Extension Label"
+	GIFImage_sBadBlockSize,	L"Unsupported Application Extension block size"
+	GIFImage_sBadBlock,	L"Unknown GIF block type"
+	GIFImage_sUnsupportedClass,	L"Object type not supported for operation"
+	GIFImage_sInvalidData,	L"Invalid GIF data"
+	OverbyteIcsCharsetUtils_sHebrewWindows,	L"Hebrew (Windows)"
+	OverbyteIcsCharsetUtils_sJapaneseJIS,	L"Japanese (JIS)"
+	OverbyteIcsCharsetUtils_sKorean,	L"Korean"
+	OverbyteIcsCharsetUtils_sKoreanEUC,	L"Korean (EUC)"
+	OverbyteIcsCharsetUtils_sLatin9,	L"Latin 9 (ISO)"
+	OverbyteIcsCharsetUtils_sThaiWindows,	L"Thai (Windows)"
+	OverbyteIcsCharsetUtils_sTurkishISO,	L"Turkish (ISO)"
+	OverbyteIcsCharsetUtils_sTurkishWindows,	L"Turkish (Windows)"
+	OverbyteIcsCharsetUtils_sUnicodeUTF7,	L"Unicode (UTF-7)"
+	OverbyteIcsCharsetUtils_sUnicodeUTF8,	L"Unicode (UTF-8)"
+	OverbyteIcsCharsetUtils_sVietnameseWindows,	L"Vietnamese (Windows)"
+	OverbyteIcsCharsetUtils_sWesternEuropeanISO,	L"Western European (ISO)"
+	OverbyteIcsCharsetUtils_sWesternEuropeanWindows,	L"Western European (Windows)"
+	OverbyteIcsHttpContCod_ERR_GETCODING_OVERRIDE,	L"GetCoding must be overridden in %s"
+	GIFImage_sOutOfData,	L"Premature end of data"
+	GIFImage_sTooManyColors,	L"Color table overflow"
+	OverbyteIcsCharsetUtils_sBalticWindows,	L"Baltic (Windows)"
+	OverbyteIcsCharsetUtils_sCentralEuropeanISO,	L"Central European (ISO)"
+	OverbyteIcsCharsetUtils_sCentralEuropeanWindows,	L"Central European (Windows)"
+	OverbyteIcsCharsetUtils_sChineseTraditionalBig5,	L"Chinese Traditional (Big5)"
+	OverbyteIcsCharsetUtils_sChineseSimplifiedGB18030,	L"Chinese Simplified (GB18030)"
+	OverbyteIcsCharsetUtils_sChineseSimplifiedGB2312,	L"Chinese Simplified (GB2312)"
+	OverbyteIcsCharsetUtils_sChineseSimplifiedHZ,	L"Chinese Simplified (HZ)"
+	OverbyteIcsCharsetUtils_sCyrillicISO,	L"Cyrillic (ISO)"
+	OverbyteIcsCharsetUtils_sCyrillicKOI8R,	L"Cyrillic (KOI8-R)"
+	OverbyteIcsCharsetUtils_sCyrillicKOI8U,	L"Cyrillic (KOI8-U)"
+	OverbyteIcsCharsetUtils_sCyrillicWindows,	L"Cyrillic (Windows)"
+	OverbyteIcsCharsetUtils_sEstonianISO,	L"Estonian (ISO)"
+	OverbyteIcsCharsetUtils_sGreekISO,	L"Greek (ISO)"
+	OverbyteIcsCharsetUtils_sGreekWindows,	L"Greek (Windows)"
+	OverbyteIcsCharsetUtils_sHebrewISOLogical,	L"Hebrew (ISO-Logical)"
+	OverbyteIcsCharsetUtils_sHebrewISOVisual,	L"Hebrew (ISO-Visual)"
+	Vcl_ComStrs_sTabFailSetObject,	L"Failed to set object at index %d"
+	Vcl_ComStrs_sTabMustBeMultiLine,	L"MultiLine must be True when TabPosition is tpLeft or tpRight"
+	Vcl_ComStrs_sInvalidLevel,	L"Invalid item level assignment"
+	Vcl_ComStrs_sInvalidLevelEx,	L"Invalid level (%d) for item \"%s\""
+	Vcl_ComStrs_sInvalidIndex,	L"Invalid index"
+	Vcl_ComStrs_sInsertError,	L"Unable to insert an item"
+	Vcl_ComStrs_sInvalidOwner,	L"Invalid owner"
+	Vcl_ComStrs_sRichEditInsertError,	L"RichEdit line insertion error"
+	Vcl_ComStrs_sRichEditLoadFail,	L"Failed to Load Stream"
+	Vcl_ComStrs_sRichEditSaveFail,	L"Failed to Save Stream"
+	Vcl_ComStrs_sUDAssociated,	L"%s is already associated with %s"
+	Vcl_ComStrs_sPageIndexError,	L"%d is an invalid PageIndex value.  PageIndex must be between 0 and %d"
+	Vcl_ComStrs_sInvalidComCtl32,	L"This control requires version 4.70 or greater of COMCTL32.DLL"
+	OverbyteIcsCharsetUtils_sArabicISO,	L"Arabic (ISO)"
+	OverbyteIcsCharsetUtils_sArabicWindows,	L"Arabic (Windows)"
+	OverbyteIcsCharsetUtils_sBalticISO,	L"Baltic (ISO)"
+	Vcl_Consts_SStyleHookClassNotRegistered,	L"Class '%s' is not registered for '%s'"
+	Vcl_Consts_SStyleInvalidParameter,	L"%s parameter cannot be nil"
+	Vcl_Consts_SStyleFeatureNotSupported,	L"Feature not supported by this style"
+	Vcl_Consts_SStyleNotRegistered,	L"Style '%s' is not registered"
+	Vcl_Consts_SStyleUnregisterError,	L"Cannot unregister the system style"
+	Vcl_Consts_SStyleNotRegisteredNoName,	L"Style not registered"
+	Vcl_Consts_sBeginInvokeNoHandle,	L"Cannot call BeginInvoke on a control with no parent or window handle"
+	System_Win_ComConst_SOleError,	L"OLE error %.8x"
+	System_Win_ComConst_SNoMethod,	L"Method '%s' not supported by automation object"
+	System_Win_ComConst_SVarNotObject,	L"Variant does not reference an automation object"
+	System_Win_ComConst_STooManyParams,	L"Dispatch methods do not support more than 64 parameters"
+	Vcl_ComStrs_sTabFailClear,	L"Failed to clear tab control"
+	Vcl_ComStrs_sTabFailDelete,	L"Failed to delete tab at index %d"
+	Vcl_ComStrs_sTabFailRetrieve,	L"Failed to retrieve tab at index %d"
+	Vcl_ComStrs_sTabFailGetObject,	L"Failed to get object at index %d"
+	Vcl_ComStrs_sTabFailSet,	L"Failed to set tab \"%s\" at index %d"
+	Vcl_Consts_SNoGetItemEventHandler,	L"No OnGetItem event handler assigned"
+	Vcl_Consts_STrayIconRemoveError,	L"Cannot remove shell notification icon"
+	Vcl_Consts_SPageControlNotSet,	L"PageControl must first be assigned"
+	Vcl_Consts_SWindowsVistaRequired,	L"%s requires Windows Vista or later"
+	Vcl_Consts_STaskDlgButtonCaption,	L"Button%d"
+	Vcl_Consts_STaskDlgRadioButtonCaption,	L"RadioButton%d"
+	Vcl_Consts_SInvalidTaskDlgButtonCaption,	L"Caption cannot be empty"
+	Vcl_Consts_SStyleLoadError,	L"Unable to load style '%s'"
+	Vcl_Consts_SStyleLoadErrors,	L"Unable to load styles: %s"
+	Vcl_Consts_SStyleRegisterError,	L"Style '%s' already registered"
+	Vcl_Consts_SStyleClassRegisterError,	L"Style class '%s' already registered"
+	Vcl_Consts_SStyleNotFound,	L"Style '%s' not found"
+	Vcl_Consts_SStyleClassNotFound,	L"Style class '%s' not found"
+	Vcl_Consts_SStyleInvalidHandle,	L"Invalid style handle"
+	Vcl_Consts_SStyleFormatError,	L"Invalid style format"
+	Vcl_Consts_SStyleHookClassRegistered,	L"Class '%s' is already registered for '%s'"
+	Vcl_Consts_SMultiSelectRequired,	L"Multiselect mode must be on for this feature"
+	Vcl_Consts_SPromptArrayTooShort,	L"Length of value array must be >= length of prompt array"
+	Vcl_Consts_SPromptArrayEmpty,	L"Prompt array must not be empty"
+	Vcl_Consts_SUsername,	L"&Username"
+	Vcl_Consts_SPassword,	L"&Password"
+	Vcl_Consts_SDomain,	L"&Domain"
+	Vcl_Consts_SLogin,	L"Login"
+	Vcl_Consts_SKeyCaption,	L"Key"
+	Vcl_Consts_SValueCaption,	L"Value"
+	Vcl_Consts_SKeyConflict,	L"A key with the name of \"%s\" already exists"
+	Vcl_Consts_SKeyNotFound,	L"Key \"%s\" not found"
+	Vcl_Consts_SNoColumnMoving,	L"goColMoving is not a supported option"
+	Vcl_Consts_SNoEqualsInKey,	L"Key may not contain equals sign (\"=\")"
+	Vcl_Consts_SSeparator,	L"Separator"
+	Vcl_Consts_SErrorSettingCount,	L"Error setting %s.Count"
+	Vcl_Consts_SListBoxMustBeVirtual,	L"Listbox (%s) style must be virtual in order to set Count"
+	Vcl_Consts_SOutOfRange,	L"Value must be between %d and %d"
+	Vcl_Consts_SDefaultFilter,	L"All files (*.*)|*.*"
+	Vcl_Consts_sAllFilter,	L"All"
+	Vcl_Consts_SInsertLineError,	L"Unable to insert a line"
+	Vcl_Consts_SInvalidClipFmt,	L"Invalid clipboard format"
+	Vcl_Consts_SIconToClipboard,	L"Clipboard does not support Icons"
+	Vcl_Consts_SCannotOpenClipboard,	L"Cannot open clipboard: %s"
+	Vcl_Consts_SInvalidMemoSize,	L"Text exceeds memo capacity"
+	Vcl_Consts_SInvalidPrinterOp,	L"Operation not supported on selected printer"
+	Vcl_Consts_SNoDefaultPrinter,	L"There is no default printer currently selected"
+	Vcl_Consts_SDuplicateMenus,	L"Menu '%s' is already being used by another form"
+	Vcl_Consts_SDockedCtlNeedsName,	L"Docked control must have a name"
+	Vcl_Consts_SDockTreeRemoveError,	L"Error removing control from dock tree"
+	Vcl_Consts_SDockZoneNotFound,	L" - Dock zone not found"
+	Vcl_Consts_SDockZoneHasNoCtl,	L" - Dock zone has no control"
+	Vcl_Consts_SDockZoneVersionConflict,	L"Error loading dock zone from the stream. Expecting version %d, but found %d."
+	Vcl_Consts_SmkcEsc,	L"Esc"
+	Vcl_Consts_SmkcEnter,	L"Enter"
+	Vcl_Consts_SmkcSpace,	L"Space"
+	Vcl_Consts_SmkcPgUp,	L"PgUp"
+	Vcl_Consts_SmkcPgDn,	L"PgDn"
+	Vcl_Consts_SmkcEnd,	L"End"
+	Vcl_Consts_SmkcHome,	L"Home"
+	Vcl_Consts_SmkcLeft,	L"Left"
+	Vcl_Consts_SmkcUp,	L"Up"
+	Vcl_Consts_SmkcRight,	L"Right"
+	Vcl_Consts_SmkcDown,	L"Down"
+	Vcl_Consts_SmkcIns,	L"Ins"
+	Vcl_Consts_SmkcDel,	L"Del"
+	Vcl_Consts_SmkcShift,	L"Shift+"
+	Vcl_Consts_SmkcCtrl,	L"Ctrl+"
+	Vcl_Consts_SmkcAlt,	L"Alt+"
+	Vcl_Consts_SMsgDlgInformation,	L"Information"
+	Vcl_Consts_SMsgDlgConfirm,	L"Confirm"
+	Vcl_Consts_SMsgDlgYes,	L"&Yes"
+	Vcl_Consts_SMsgDlgNo,	L"&No"
+	Vcl_Consts_SMsgDlgOK,	L"OK"
+	Vcl_Consts_SMsgDlgCancel,	L"Cancel"
+	Vcl_Consts_SMsgDlgHelp,	L"&Help"
+	Vcl_Consts_SMsgDlgAbort,	L"&Abort"
+	Vcl_Consts_SMsgDlgRetry,	L"&Retry"
+	Vcl_Consts_SMsgDlgIgnore,	L"&Ignore"
+	Vcl_Consts_SMsgDlgAll,	L"&All"
+	Vcl_Consts_SMsgDlgNoToAll,	L"N&o to All"
+	Vcl_Consts_SMsgDlgYesToAll,	L"Yes to &All"
+	Vcl_Consts_SMsgDlgClose,	L"&Close"
+	Vcl_Consts_SmkcBkSp,	L"BkSp"
+	Vcl_Consts_SmkcTab,	L"Tab"
+	Vcl_Consts_SAllButton,	L"&All"
+	Vcl_Consts_SCannotDragForm,	L"Cannot drag a form"
+	Vcl_Consts_SVMetafiles,	L"Metafiles"
+	Vcl_Consts_SVEnhMetafiles,	L"Enhanced Metafiles"
+	Vcl_Consts_SVIcons,	L"Icons"
+	Vcl_Consts_SVBitmaps,	L"Bitmaps"
+	Vcl_Consts_SVTIFFImages,	L"TIFF Images"
+	Vcl_Consts_SGridTooLarge,	L"Grid too large for operation"
+	Vcl_Consts_STooManyDeleted,	L"Too many rows or columns deleted"
+	Vcl_Consts_SIndexOutOfRange,	L"Grid index out of range"
+	Vcl_Consts_SFixedColTooBig,	L"Fixed column count must be less than column count"
+	Vcl_Consts_SFixedRowTooBig,	L"Fixed row count must be less than row count"
+	Vcl_Consts_SMaskErr,	L"Invalid input value"
+	Vcl_Consts_SMaskEditErr,	L"Invalid input value.  Use escape key to abandon changes"
+	Vcl_Consts_SMsgDlgWarning,	L"Warning"
+	Vcl_Consts_SMsgDlgError,	L"Error"
+	Vcl_Consts_SPrinterIndexError,	L"Printer index out of range"
+	Vcl_Consts_SInvalidPrinter,	L"Printer selected is not valid"
+	Vcl_Consts_SDeviceOnPort,	L"%s on %s"
+	Vcl_Consts_SGroupIndexTooLow,	L"GroupIndex cannot be less than a previous menu item's GroupIndex"
+	Vcl_Consts_SNoMDIForm,	L"Cannot create form. No MDI forms are currently active"
+	Vcl_Consts_SImageCanvasNeedsBitmap,	L"Can only modify an image if it contains a bitmap"
+	Vcl_Consts_SControlParentSetToSelf,	L"A control cannot have itself as its parent"
+	Vcl_Consts_SOKButton,	L"OK"
+	Vcl_Consts_SCancelButton,	L"Cancel"
+	Vcl_Consts_SYesButton,	L"&Yes"
+	Vcl_Consts_SNoButton,	L"&No"
+	Vcl_Consts_SHelpButton,	L"&Help"
+	Vcl_Consts_SCloseButton,	L"&Close"
+	Vcl_Consts_SIgnoreButton,	L"&Ignore"
+	Vcl_Consts_SRetryButton,	L"&Retry"
+	Vcl_Consts_SAbortButton,	L"Abort"
+	Vcl_Consts_SWindowClass,	L"Error creating window class"
+	Vcl_Consts_SCannotFocus,	L"Cannot focus a disabled or invisible window"
+	Vcl_Consts_SParentRequired,	L"Control '%s' has no parent window"
+	Vcl_Consts_SControlPath,	L". Path:\r\n%s"
+	Vcl_Consts_SParentGivenNotAParent,	L"Parent given is not a parent of '%s'"
+	Vcl_Consts_SMDIChildNotVisible,	L"Cannot hide an MDI Child Form"
+	Vcl_Consts_SVisibleChanged,	L"Cannot change Visible in OnShow or OnHide"
+	Vcl_Consts_SCannotShowModal,	L"Cannot make a visible window modal"
+	Vcl_Consts_SScrollBarRange,	L"Scrollbar property out of range"
+	Vcl_Consts_SPropertyOutOfRange,	L"%s property out of range"
+	Vcl_Consts_SMenuIndexError,	L"Menu index out of range"
+	Vcl_Consts_SMenuReinserted,	L"Menu inserted twice"
+	Vcl_Consts_SMenuNotFound,	L"Sub-menu is not in menu"
+	Vcl_Consts_SNoTimers,	L"Not enough timers available"
+	Vcl_Consts_SNotPrinting,	L"Printer is not currently printing"
+	Vcl_Consts_SPrinting,	L"Printing in progress"
+	Vcl_Consts_SChangeIconSize,	L"Cannot change the size of an icon"
+	Vcl_Consts_SChangeWicSize,	L"Cannot change the size of a WIC Image"
+	Vcl_Consts_SUnknownExtension,	L"Unknown picture file extension (.%s)"
+	Vcl_Consts_SUnknownClipboardFormat,	L"Unsupported clipboard format"
+	Vcl_Consts_SUnknownStreamFormat,	L"Unsupported stream format"
+	Vcl_Consts_SOutOfResources,	L"Out of system resources"
+	Vcl_Consts_SNoCanvasHandle,	L"Canvas does not allow drawing"
+	Vcl_Consts_SInvalidTextFormatFlag,	L"Text format flag '%s' not supported"
+	Vcl_Consts_SInvalidImageSize,	L"Invalid image size"
+	Vcl_Consts_SInvalidImageList,	L"Invalid ImageList"
+	Vcl_Consts_SReplaceImage,	L"Unable to Replace Image"
+	Vcl_Consts_SInsertImage,	L"Unable to Insert Image"
+	Vcl_Consts_SImageIndexError,	L"Invalid ImageList Index"
+	Vcl_Consts_SImageReadFail,	L"Failed to read ImageList data from stream"
+	Vcl_Consts_SImageWriteFail,	L"Failed to write ImageList data to stream"
+	Vcl_Consts_SWindowDCError,	L"Error creating window device context"
+	System_RTLConsts_sObserverNoSinglecastFound,	L"No single cast observer with ID %d was added to the observer collection"
+	System_RTLConsts_sObserverNoMulticastFound,	L"No multi cast observer with ID %d was added to the observer collection"
+	System_RTLConsts_sObserverNotAvailable,	L"Observer is not available"
+	System_RTLConsts_SInvalidDateString,	L"Invalid date string: %s"
+	System_RTLConsts_SInvalidTimeString,	L"Invalid time string: %s"
+	System_RTLConsts_SInvalidOffsetString,	L"Invalid time Offset string: %s"
+	System_RTLConsts_sMustWaitOnOneEvent,	L"Must wait on at least one event"
+	System_RTLConsts_sBeginInvokeDestroying,	L"Cannot call BeginInvoke on a TComponent in the process of destruction"
+	Vcl_Consts_SInvalidTabPosition,	L"Tab position incompatible with current tab style"
+	Vcl_Consts_SInvalidTabStyle,	L"Tab style incompatible with current tab position"
+	Vcl_Consts_SInvalidBitmap,	L"Bitmap image is not valid"
+	Vcl_Consts_SInvalidIcon,	L"Icon image is not valid"
+	Vcl_Consts_SInvalidMetafile,	L"Metafile is not valid"
+	Vcl_Consts_SInvalidPixelFormat,	L"Invalid pixel format"
+	Vcl_Consts_SInvalidImage,	L"Invalid image"
+	Vcl_Consts_SScanLine,	L"Scan line index out of range"
+	System_RTLConsts_SWindowsServer2008,	L"Windows Server 2008"
+	System_RTLConsts_SWindows7,	L"Windows 7"
+	System_RTLConsts_SWindowsServer2008R2,	L"Windows Server 2008 R2"
+	System_RTLConsts_SWindows2000,	L"Windows 2000"
+	System_RTLConsts_SWindowsXP,	L"Windows XP"
+	System_RTLConsts_SWindowsServer2003,	L"Windows Server 2003"
+	System_RTLConsts_SWindowsServer2003R2,	L"Windows Server 2003 R2"
+	System_RTLConsts_SWindowsServer2012,	L"Windows Server 2012"
+	System_RTLConsts_SWindowsServer2012R2,	L"Windows Server 2012 R2"
+	System_RTLConsts_SWindowsServer2016,	L"Windows Server 2016"
+	System_RTLConsts_SWindows8,	L"Windows 8"
+	System_RTLConsts_SWindows8Point1,	L"Windows 8.1"
+	System_RTLConsts_SWindows10,	L"Windows 10"
+	System_RTLConsts_sObserverUnsupported,	L"Observer is not supported"
+	System_RTLConsts_sObserverMultipleSingleCast,	L"Cannot have multiple single cast observers added to the observers collection"
+	System_RTLConsts_sObserverNoInterface,	L"The object does not implement the observer interface"
+	System_RTLConsts_SNothingFound,	L"No help found for %s"
+	System_RTLConsts_SArgumentOutOfRange,	L"Argument out of range"
+	System_RTLConsts_SArgumentNil,	L"Argument must not be nil"
+	System_RTLConsts_SGenericItemNotFound,	L"Item not found"
+	System_RTLConsts_SGenericDuplicateItem,	L"Duplicates not allowed"
+	System_RTLConsts_SInsufficientRtti,	L"Insufficient RTTI available to support this operation"
+	System_RTLConsts_SParameterCountMismatch,	L"Parameter count mismatch"
+	System_RTLConsts_SNonPublicType,	L"Type '%s' is not declared in the interface section of a unit"
+	System_RTLConsts_SByRefArgMismatch,	L"VAR and OUT arguments must match parameter type exactly"
+	System_RTLConsts_SServiceNotFound,	L"Specified Login Credential Service not found"
+	System_RTLConsts_SVersionStr,	L"%s (Version %d.%d, Build %d, %5:s)"
+	System_RTLConsts_SSPVersionStr,	L"%s Service Pack %4:d (Version %1:d.%2:d, Build %3:d, %5:s)"
+	System_RTLConsts_SVersion32,	L"32-bit Edition"
+	System_RTLConsts_SVersion64,	L"64-bit Edition"
+	System_RTLConsts_SWindows,	L"Windows"
+	System_RTLConsts_SWindowsVista,	L"Windows Vista"
+	System_RTLConsts_sInvalidStringAndObjectArrays,	L"Length of Strings and Objects arrays must be equal"
+	System_RTLConsts_sNoConstruct,	L"Class %s is not intended to be constructed"
+	System_RTLConsts_sInvalidTimeoutValue,	L"Invalid Timeout value: %s"
+	System_RTLConsts_sSpinCountOutOfRange,	L"SpinCount out of range. Must be between 0 and %d"
+	System_RTLConsts_sTimespanTooLong,	L"Timespan too long"
+	System_RTLConsts_sInvalidTimespanDuration,	L"The duration cannot be returned because the absolute value exceeds the value of TTimeSpan.MaxValue"
+	System_RTLConsts_sTimespanValueCannotBeNan,	L"Value cannot be NaN"
+	System_RTLConsts_sCannotNegateTimespan,	L"Negating the minimum value of a Timespan is invalid"
+	System_RTLConsts_sInvalidTimespanFormat,	L"Invalid Timespan format"
+	System_RTLConsts_sTimespanElementTooLong,	L"Timespan element too long"
+	System_RTLConsts_SNoContext,	L"No context-sensitive help installed"
+	System_RTLConsts_SNoContextFound,	L"No help found for context %d"
+	System_RTLConsts_SNoIndex,	L"Unable to open Index"
+	System_RTLConsts_SNoSearch,	L"Unable to open Search"
+	System_RTLConsts_SNoTableOfContents,	L"Unable to find a Table of Contents"
+	System_RTLConsts_SNoTopics,	L"No topic-based help system installed"
+	System_RTLConsts_SThreadStartError,	L"Cannot call Start on a running or suspended thread"
+	System_RTLConsts_SThreadExternalCheckTerminated,	L"Cannot call CheckTerminated on an externally created thread"
+	System_RTLConsts_SThreadExternalSetReturnValue,	L"Cannot call SetReturnValue on an externally create thread"
+	System_RTLConsts_SParamIsNil,	L"Parameter %s cannot be nil"
+	System_RTLConsts_SParamIsNegative,	L"Parameter %s cannot be a negative value"
+	System_RTLConsts_SInputBufferExceed,	L"Input buffer exceeded for %s = %d, %s = %d"
+	System_RTLConsts_SInvalidCharsInPath,	L"Invalid characters in path"
+	System_RTLConsts_SPathTooLong,	L"The specified path is too long"
+	System_RTLConsts_SPathNotFound,	L"The specified path was not found"
+	System_RTLConsts_SPathFormatNotSupported,	L"The path format is not supported"
+	System_RTLConsts_SDriveNotFound,	L"The drive cannot be found"
+	System_RTLConsts_SSpecifiedFileNotFound,	L"The specified file was not found"
+	System_RTLConsts_SLocalTimeInvalid,	L"The given \"%s\" local time is invalid (situated within the missing period prior to DST)."
+	System_RTLConsts_hNoFilterViewer,	L"No help viewer that supports filters"
+	System_RTLConsts_sArgumentInvalid,	L"Invalid argument"
+	System_RTLConsts_sArgumentOutOfRange_Index,	L"Index out of range (%d).  Must be >= 0 and < %d"
+	System_RTLConsts_SPropertyException,	L"Error reading %s%s%s: %s"
+	System_RTLConsts_SReadError,	L"Stream read error"
+	System_RTLConsts_SReadOnlyProperty,	L"Property is read-only"
+	System_RTLConsts_SRegCreateFailed,	L"Failed to create key %s"
+	System_RTLConsts_SRegGetDataFailed,	L"Failed to get data for '%s'"
+	System_RTLConsts_SRegSetDataFailed,	L"Failed to set data for '%s'"
+	System_RTLConsts_SResNotFound,	L"Resource %s not found"
+	System_RTLConsts_SSeekNotImplemented,	L"%s.Seek not implemented"
+	System_RTLConsts_SSortedListError,	L"Operation not allowed on sorted list"
+	System_RTLConsts_SUnknownGroup,	L"%s not in a class registration group"
+	System_RTLConsts_SUnknownProperty,	L"Property %s does not exist"
+	System_RTLConsts_SWriteError,	L"Stream write error"
+	System_RTLConsts_SThreadCreateError,	L"Thread creation error: %s"
+	System_RTLConsts_SThreadError,	L"Thread Error: %s (%d)"
+	System_RTLConsts_SThreadExternalTerminate,	L"Cannot terminate an externally created thread"
+	System_RTLConsts_SThreadExternalWait,	L"Cannot wait for an externally created thread"
+	System_RTLConsts_SDuplicateName,	L"A component named %s already exists"
+	System_RTLConsts_SDuplicateString,	L"String list does not allow duplicates"
+	System_RTLConsts_SFCreateErrorEx,	L"Cannot create file \"%s\". %s"
+	System_RTLConsts_SFOpenErrorEx,	L"Cannot open file \"%s\". %s"
+	System_RTLConsts_SInvalidImage,	L"Invalid stream format"
+	System_RTLConsts_SInvalidMask,	L"'%s' is an invalid mask at (%d)"
+	System_RTLConsts_SInvalidName,	L"''%s'' is not a valid component name"
+	System_RTLConsts_SInvalidProperty,	L"Invalid property value"
+	System_RTLConsts_SInvalidPropertyPath,	L"Invalid property path"
+	System_RTLConsts_SInvalidPropertyValue,	L"Invalid property value"
+	System_RTLConsts_SInvalidRegType,	L"Invalid data type for '%s'"
+	System_RTLConsts_SListCapacityError,	L"List capacity out of bounds (%d)"
+	System_RTLConsts_SListCountError,	L"List count out of bounds (%d)"
+	System_RTLConsts_SListIndexError,	L"List index out of bounds (%d)"
+	System_RTLConsts_SMemoryStreamError,	L"Out of memory while expanding memory stream"
+	System_RTLConsts_SNoComSupport,	L"%s has not been registered as a COM class"
+	System_SysConst_SCharIndexOutOfBounds,	L"Character index out of bounds (%d)"
+	System_SysConst_SByteIndexOutOfBounds,	L"Start index out of bounds (%d)"
+	System_SysConst_SInvalidCharCount,	L"Invalid count (%d)"
+	System_SysConst_SInvalidDestinationIndex,	L"Invalid destination index (%d)"
+	System_SysConst_SInvalidCodePage,	L"Invalid code page"
+	System_SysConst_SInvalidEncodingName,	L"Invalid encoding name"
+	System_SysConst_SNoMappingForUnicodeCharacter,	L"No mapping for the Unicode character exists in the target multi-byte code page"
+	System_SysConst_SInvalidStringBaseIndex,	L"Invalid StringBaseIndex"
+	System_RTLConsts_SAncestorNotFound,	L"Ancestor for '%s' not found"
+	System_RTLConsts_SAssignError,	L"Cannot assign a %s to a %s"
+	System_RTLConsts_SBitsIndexError,	L"Bits index out of range"
+	System_RTLConsts_SCantWriteResourceStreamError,	L"Can't write to a read-only resource stream"
+	System_RTLConsts_SCheckSynchronizeError,	L"CheckSynchronize called from thread $%x, which is NOT the main thread"
+	System_RTLConsts_SClassNotFound,	L"Class %s not found"
+	System_RTLConsts_SDuplicateClass,	L"A class named %s already exists"
+	System_RTLConsts_SDuplicateItem,	L"List does not allow duplicates ($0%x)"
+	System_SysConst_SShortDayNameSun,	L"Sun"
+	System_SysConst_SShortDayNameMon,	L"Mon"
+	System_SysConst_SShortDayNameTue,	L"Tue"
+	System_SysConst_SShortDayNameWed,	L"Wed"
+	System_SysConst_SShortDayNameThu,	L"Thu"
+	System_SysConst_SShortDayNameFri,	L"Fri"
+	System_SysConst_SShortDayNameSat,	L"Sat"
+	System_SysConst_SLongDayNameSun,	L"Sunday"
+	System_SysConst_SLongDayNameMon,	L"Monday"
+	System_SysConst_SLongDayNameTue,	L"Tuesday"
+	System_SysConst_SLongDayNameWed,	L"Wednesday"
+	System_SysConst_SLongDayNameThu,	L"Thursday"
+	System_SysConst_SLongDayNameFri,	L"Friday"
+	System_SysConst_SLongDayNameSat,	L"Saturday"
+	System_SysConst_SInvalidSourceArray,	L"Invalid source array"
+	System_SysConst_SInvalidDestinationArray,	L"Invalid destination array"
+	System_SysConst_SShortMonthNameSep,	L"Sep"
+	System_SysConst_SShortMonthNameOct,	L"Oct"
+	System_SysConst_SShortMonthNameNov,	L"Nov"
+	System_SysConst_SShortMonthNameDec,	L"Dec"
+	System_SysConst_SLongMonthNameJan,	L"January"
+	System_SysConst_SLongMonthNameFeb,	L"February"
+	System_SysConst_SLongMonthNameMar,	L"March"
+	System_SysConst_SLongMonthNameApr,	L"April"
+	System_SysConst_SLongMonthNameMay,	L"May"
+	System_SysConst_SLongMonthNameJun,	L"June"
+	System_SysConst_SLongMonthNameJul,	L"July"
+	System_SysConst_SLongMonthNameAug,	L"August"
+	System_SysConst_SLongMonthNameSep,	L"September"
+	System_SysConst_SLongMonthNameOct,	L"October"
+	System_SysConst_SLongMonthNameNov,	L"November"
+	System_SysConst_SLongMonthNameDec,	L"December"
+	System_SysConst_SNoMonitorSupportException,	L"Monitor support function not initialized"
+	System_SysConst_SNotImplemented,	L"Feature not implemented"
+	System_SysConst_SObjectDisposed,	L"Method called on disposed object"
+	System_SysConst_SAssertError,	L"%s (%s, line %d)"
+	System_SysConst_SAbstractError,	L"Abstract Error"
+	System_SysConst_SModuleAccessViolation,	L"Access violation at address %p in module '%s'. %s of address %p"
+	System_SysConst_SOSError,	L"System Error.  Code: %d.\r\n%s%s"
+	System_SysConst_SUnkOSError,	L"A call to an OS function failed"
+	System_SysConst_SShortMonthNameJan,	L"Jan"
+	System_SysConst_SShortMonthNameFeb,	L"Feb"
+	System_SysConst_SShortMonthNameMar,	L"Mar"
+	System_SysConst_SShortMonthNameApr,	L"Apr"
+	System_SysConst_SShortMonthNameMay,	L"May"
+	System_SysConst_SShortMonthNameJun,	L"Jun"
+	System_SysConst_SShortMonthNameJul,	L"Jul"
+	System_SysConst_SShortMonthNameAug,	L"Aug"
+	System_SysConst_SVarTypeOutOfRangeWithPrefix,	L"Custom variant type (%s%.4x) is out of range"
+	System_SysConst_SVarTypeAlreadyUsedWithPrefix,	L"Custom variant type (%s%.4x) already used by %s"
+	System_SysConst_SVarTypeNotUsableWithPrefix,	L"Custom variant type (%s%.4x) is not usable"
+	System_SysConst_SVarTypeTooManyCustom,	L"Too many custom variant types have been registered"
+	System_SysConst_SVarTypeCouldNotConvert,	L"Could not convert variant of type (%s) into type (%s)"
+	System_SysConst_SVarTypeConvertOverflow,	L"Overflow while converting variant of type (%s) into type (%s)"
+	System_SysConst_SVarOverflow,	L"Variant overflow"
+	System_SysConst_SVarInvalid,	L"Invalid argument"
+	System_SysConst_SVarBadType,	L"Invalid variant type"
+	System_SysConst_SVarNotImplemented,	L"Operation not supported"
+	System_SysConst_SVarUnexpected,	L"Unexpected variant error"
+	System_SysConst_SExternalException,	L"External exception %x"
+	System_SysConst_SAssertionFailed,	L"Assertion failed"
+	System_SysConst_SIntfCastError,	L"Interface not supported"
+	System_SysConst_SSafecallException,	L"Exception in safecall method"
+	System_SysConst_SMonitorLockException,	L"Object lock not owned"
+	System_SysConst_SExceptTitle,	L"Application Error"
+	System_SysConst_SInvalidFormat,	L"Format '%s' invalid or incompatible with argument"
+	System_SysConst_SArgumentMissing,	L"No argument for format '%s'"
+	System_SysConst_SDispatchError,	L"Variant method calls not supported"
+	System_SysConst_SReadAccess,	L"Read"
+	System_SysConst_SWriteAccess,	L"Write"
+	System_SysConst_SExecuteAccess,	L"Execution"
+	System_SysConst_SInvalidAccess,	L"Invalid access"
+	System_SysConst_SFormatTooLong,	L"Format string too long"
+	System_SysConst_SVarArrayCreate,	L"Error creating variant or safe array"
+	System_SysConst_SVarArrayBounds,	L"Variant or safe array index out of bounds"
+	System_SysConst_SVarArrayLocked,	L"Variant or safe array is locked"
+	System_SysConst_SInvalidVarCast,	L"Invalid variant type conversion"
+	System_SysConst_SInvalidVarOp,	L"Invalid variant operation"
+	System_SysConst_SInvalidVarNullOp,	L"Invalid NULL variant operation"
+	System_SysConst_SInvalidVarOpWithHResultWithPrefix,	L"Invalid variant operation (%s%.8x)\n%s"
+	System_SysConst_SInvalidInput,	L"Invalid numeric input"
+	System_SysConst_SDivByZero,	L"Division by zero"
+	System_SysConst_SRangeError,	L"Range check error"
+	System_SysConst_SIntOverflow,	L"Integer overflow"
+	System_SysConst_SInvalidOp,	L"Invalid floating point operation"
+	System_SysConst_SZeroDivide,	L"Floating point division by zero"
+	System_SysConst_SOverflow,	L"Floating point overflow"
+	System_SysConst_SUnderflow,	L"Floating point underflow"
+	System_SysConst_SInvalidPointer,	L"Invalid pointer operation"
+	System_SysConst_SInvalidCast,	L"Invalid class typecast"
+	System_SysConst_SAccessViolationArg3,	L"Access violation at address %p. %s of address %p"
+	System_SysConst_SAccessViolationNoArg,	L"Access violation"
+	System_SysConst_SStackOverflow,	L"Stack overflow"
+	System_SysConst_SControlC,	L"Control-C hit"
+	System_SysConst_SPrivilege,	L"Privileged instruction"
+	System_SysConst_SException,	L"Exception %s in module %s at %p.\r\n%s%s\r\n"
+	System_SysConst_SUnknown,	L"<unknown>"
+	System_SysConst_SInvalidInteger,	L"'%s' is not a valid integer value"
+	System_SysConst_SInvalidFloat,	L"'%s' is not a valid floating point value"
+	System_SysConst_SInvalidDateTime,	L"'%s' is not a valid date and time"
+	System_SysConst_SInvalidTimeStamp,	L"'%d.%d' is not a valid timestamp"
+	System_SysConst_SInvalidGUID,	L"'%s' is not a valid GUID value"
+	System_SysConst_STimeEncodeError,	L"Invalid argument to time encode"
+	System_SysConst_SDateEncodeError,	L"Invalid argument to date encode"
+	System_SysConst_SOutOfMemory,	L"Out of memory"
+	System_SysConst_SInOutError,	L"I/O error %d"
+	System_SysConst_SFileNotFound,	L"File not found"
+	System_SysConst_SInvalidUnknownFilename,	L"Invalid filename"
+	System_SysConst_STooManyOpenFiles,	L"Too many open files"
+	System_SysConst_SAccessDenied,	L"File access denied"
+	System_SysConst_SEndOfFile,	L"Read beyond end of file"
+	System_SysConst_SDiskFull,	L"Disk full"
+END
+
+/* c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release\Controls.res */
+/* c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release\Buttons.res */
+/* c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release\FileCtrl.res */
+/* C:\code\mine\hfs\longinputDlg.dfm */
+/* c:\code\other\jcl\source\common\JclUnicode.res */
+/* C:\code\mine\hfs\newuserpassDlg.dfm */
+/* C:\code\mine\hfs\listSelectDlg.dfm */
+/* C:\code\mine\hfs\optionsDlg.dfm */
+/* C:\code\mine\hfs\folderKindDlg.dfm */
+/* C:\code\mine\hfs\shellExtDlg.dfm */
+/* C:\code\mine\hfs\diffDlg.dfm */
+/* C:\code\mine\hfs\ipsEverDlg.dfm */
+/* C:\code\mine\hfs\purgeDlg.dfm */
+/* C:\code\mine\hfs\filepropDlg.dfm */
+/* C:\code\mine\hfs\runscriptDlg.dfm */
+/* C:\code\mine\hfs\main.dfm */
+/* C:\code\mine\hfs\data.res */
+/* C:\code\mine\hfs\hfs.res */
+/* C:\code\mine\hfs\hfs.drf */
diff --git a/hfs.dsk b/hfs.dsk
new file mode 100644
index 0000000..aff5baa
--- /dev/null
+++ b/hfs.dsk
@@ -0,0 +1,185 @@
+[Closed Files]
+File_0=SourceModule,'C:\code\mine\hfs\whatsnew.txt',0,1,13,28,45,0,0
+File_1=SourceModule,'C:\code\mine\hslib\hslib.pas',0,1,901,26,924,0,0
+File_2=SourceModule,'C:\code\mine\hfs\utillib.pas',0,1,46,1,80,0,0
+File_3=SourceModule,'C:\code\mine\hfs\todo.txt',0,1,1,1,1,0,0
+File_4=SourceModule,'C:\code\other\ics\Delphi\Vc32\WSocket.pas',0,1,2948,36,2957,0,0
+File_5=SourceModule,'C:\code\other\ics\Delphi\Vc32\WSocketS.pas',0,1,48,46,265,0,0
+File_6=SourceModule,'C:\code\other\ics\Delphi\Vc32\UUEncode.pas',0,1,64,21,82,0,0
+File_7=SourceModule,'C:\code\mine\andrq\utilLib.pas',0,1,3737,25,3767,0,0
+File_8=SourceModule,'C:\code\mine\andrq\prefDlg.pas',0,1,570,27,590,1,0
+
+[Modules]
+Module0=C:\code\mine\hfs\main.pas
+Count=1
+EditWindowCount=1
+
+[C:\code\mine\hfs\main.pas]
+ModuleType=SourceModule
+FormState=1
+FormOnTop=0
+
+[C:\Programmi\Borland\Delphi6\Projects\ProjectGroup1.bpg]
+FormState=0
+FormOnTop=0
+
+[C:\code\mine\hfs\hfs.dpr]
+FormState=0
+FormOnTop=0
+
+[EditWindow0]
+ViewCount=1
+CurrentView=0
+View0=0
+MessageView=MessageView@EditWindow0
+Create=1
+Visible=1
+State=0
+Left=190
+Top=101
+Width=834
+Height=639
+MaxLeft=-4
+MaxTop=97
+ClientWidth=826
+ClientHeight=612
+LeftPanelSize=0
+RightPanelSize=0
+BottomPanelSize=0
+BottomPanelClients=MessageView@EditWindow0
+BottomPanelData=00000400010000000B0000004D6573736167655669657700000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
+
+[View0]
+Module=C:\code\mine\hfs\main.pas
+CursorX=33
+CursorY=63
+TopLine=41
+LeftCol=1
+
+[Watches]
+Count=1
+Watch0='h',256,0,18,1,0
+
+[Breakpoints]
+Count=0
+
+[AddressBreakpoints]
+Count=0
+
+[Main Window]
+Create=1
+Visible=1
+State=2
+Left=0
+Top=0
+Width=1024
+Height=105
+MaxLeft=-4
+MaxTop=-4
+MaxWidth=1032
+MaxHeight=105
+ClientWidth=1024
+ClientHeight=78
+
+[ProjectManager]
+Create=1
+Visible=0
+State=0
+Left=369
+Top=372
+Width=438
+Height=303
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=430
+ClientHeight=279
+TBDockHeight=303
+LRDockWidth=438
+Dockable=1
+
+[CPUWindow]
+Create=1
+Visible=0
+State=0
+Left=245
+Top=207
+Width=533
+Height=353
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=525
+ClientHeight=326
+DumpPane=79
+DisassemblyPane=187
+RegisterPane=231
+FlagPane=64
+
+[AlignmentPalette]
+Create=1
+Visible=0
+State=0
+Left=200
+Top=107
+Width=156
+Height=82
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=150
+ClientHeight=60
+
+[PropertyInspector]
+Create=1
+Visible=1
+State=0
+Left=0
+Top=119
+Width=190
+Height=621
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=182
+ClientHeight=597
+TBDockHeight=621
+LRDockWidth=190
+Dockable=1
+SplitPos=85
+ArrangeBy=Name
+SelectedItem=Caption
+ExpandedItems=
+HiddenCategories=
+
+[ObjectTree]
+Create=1
+Visible=1
+State=0
+Left=1
+Top=99
+Width=190
+Height=252
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=182
+ClientHeight=228
+TBDockHeight=252
+LRDockWidth=190
+Dockable=1
+
+[MessageView@EditWindow0]
+Create=1
+Visible=0
+State=0
+Left=12
+Top=0
+Width=814
+Height=52
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=814
+ClientHeight=52
+TBDockHeight=52
+LRDockWidth=443
+Dockable=1
+
+[DockHosts]
+DockHostCount=0
+
diff --git a/hfs.events b/hfs.events
new file mode 100644
index 0000000..15cda8a
--- /dev/null
+++ b/hfs.events
@@ -0,0 +1,3 @@
+[+download]
+{.remove header|ETag.}
+{.remove header|Set-cookie.}
diff --git a/hfs.identcache b/hfs.identcache
new file mode 100644
index 0000000..6a681d8
Binary files /dev/null and b/hfs.identcache differ
diff --git a/hfs.otares b/hfs.otares
new file mode 100644
index 0000000..7435995
Binary files /dev/null and b/hfs.otares differ
diff --git a/hfs.pas b/hfs.pas
new file mode 100644
index 0000000..a4427d1
--- /dev/null
+++ b/hfs.pas
@@ -0,0 +1,28 @@
+unit hfs;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
+
+type
+  TForm1 = class(TForm)
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+initialization
+  showMessage('test');
+
+
+end.
diff --git a/hfs.res b/hfs.res
new file mode 100644
index 0000000..5d6ffd6
Binary files /dev/null and b/hfs.res differ
diff --git a/hfs.tpl b/hfs.tpl
new file mode 100644
index 0000000..cdd8253
Binary files /dev/null and b/hfs.tpl differ
diff --git a/hfs.vrc b/hfs.vrc
new file mode 100644
index 0000000..ab96e4d
Binary files /dev/null and b/hfs.vrc differ
diff --git a/hfs_Icon.ico b/hfs_Icon.ico
new file mode 100644
index 0000000..ff2ffad
Binary files /dev/null and b/hfs_Icon.ico differ
diff --git a/hfs_Icon1.ico b/hfs_Icon1.ico
new file mode 100644
index 0000000..ff2ffad
Binary files /dev/null and b/hfs_Icon1.ico differ
diff --git a/hfs_Icon2.ico b/hfs_Icon2.ico
new file mode 100644
index 0000000..ff2ffad
Binary files /dev/null and b/hfs_Icon2.ico differ
diff --git a/hslib.pas b/hslib.pas
new file mode 100644
index 0000000..636658d
--- /dev/null
+++ b/hslib.pas
@@ -0,0 +1,1689 @@
+{
+Copyright (C) 2002-2014 Massimo Melina (www.rejetto.com)
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+
+HTTP Server Lib
+
+==== TO DO
+* upload bandwidth control (can it be done without multi-threading?)
+
+}
+{$I- }
+
+unit HSlib;
+
+interface
+
+uses
+  OverbyteIcsWSocket, classes, messages, winprocs, forms, extctrls, sysutils, contnrs, strUtils, winsock, inifiles, types;
+
+const
+  VERSION = '2.10.1';
+
+type
+  ThttpSrv=class;
+
+  ThttpConn=class;
+
+  ThttpMethod=( HM_UNK, HM_GET, HM_POST, HM_HEAD );
+
+  ThttpEvent=(
+    HE_OPEN,            // server is listening
+    HE_CLOSE,           // server does not listen anymore
+    HE_CONNECTED,       // a client just connected
+    HE_DISCONNECTED,    // client communication terminated
+    HE_GOT,             // other peer sent sth
+    HE_SENT,            // we sent sth
+    HE_REQUESTING,      // a possible new request starts here
+    HE_GOT_HEADER,      // header part was fully received
+    HE_REQUESTED,       // a full request has been submitted
+    HE_STREAM_READY,    // reply stream ready
+    HE_REPLIED,         // the reply has been sent
+    HE_POST_FILE,       // new file is posted
+    HE_POST_MORE_FILE,  // more data has come for the previous file
+    HE_POST_END_FILE,   // last file done
+    HE_POST_VARS,       // variables are available
+    HE_POST_VAR,        // single variable available
+    HE_POST_END,        // POST section terminated
+    HE_LAST_BYTE_DONE,  // useful to count full downloads
+    HE_CANT_OPEN_FILE   // error
+  );
+
+  ThttpConnState=(
+    HCS_IDLE,               // connected but idle
+    HCS_REQUESTING,         // getting request
+    HCS_POSTING,            // getting post data
+    HCS_REPLYING,           // a reply is pending
+    HCS_REPLYING_HEADER,    // sending header
+    HCS_REPLYING_BODY,      // sending body
+    HCS_DISCONNECTED        // disconnected
+  );
+
+  ThttpReplyMode=(
+    HRM_REPLY,              // reply header+body
+    HRM_REPLY_HEADER,       // reply header only
+    HRM_DENY,               // answer a deny code
+    HRM_UNAUTHORIZED,       // bad user/pwd
+    HRM_NOT_FOUND,          // answer a not-found code
+    HRM_BAD_REQUEST,        // answer a bad-request code
+    HRM_INTERNAL_ERROR,     // answer an internal-error code
+    HRM_CLOSE,              // close connection with no reply
+    HRM_IGNORE,             // does nothing, connection remains open
+    HRM_METHOD_NOT_ALLOWED, // answer a method-not-allowed code
+    HRM_REDIRECT,           // redirection to another URL
+    HRM_OVERLOAD,           // server is overloaded, retry later
+    HRM_TOO_LARGE,          // the request has exceeded the max length allowed
+    HRM_MOVED,              // moved permanently to another url
+    HRM_NOT_MODIFIED        // use the one in your cache, client
+  );
+
+  ThttpReply = record
+    mode: ThttpReplyMode;
+    header: ansistring;            // full raw header (optional)
+    contentType: ansistring;       // ContentType header (optional)
+    additionalHeaders: ansistring; // these are appended to predefined headers (opt)
+    bodyMode :(
+      RBM_FILE,         // variable body specifies a file
+      RBM_STRING,       // variable body specifies byte content
+      RBM_STREAM        // refer to bodyStream
+    );
+    body: ansistring;    // specifies reply body according to bodyMode
+    bodyStream: Tstream;   // note: the stream is automatically freed 
+    firstByte, lastByte: int64;  // body interval for partial replies (206)
+    realm: ansistring;   // this will appear in the authentication dialog
+    url: ansistring;     // used for redirections
+    reason: ansistring;  // customized reason phrase
+    resumeForbidden: boolean;
+    end;
+
+  ThttpRequest = record
+    full: ansistring;           // the raw request, byte by byte
+    method: ThttpMethod;
+    url: ansistring;
+    ver: ansistring;
+    firstByte, lastByte: int64;  // body interval for partial requests
+    headers, cookies: ThashedStringList;
+    user,pwd: ansistring;
+    end;
+
+  ThttpPost = record
+    length: int64;          // multipart form-data length
+    boundary,               // multipart form-data boundary
+    header,                 // contextual header
+    data,                   // misc data
+    varname,                // post variable name
+    filename: string;       // name of posted file
+    mode: (PM_NONE, PM_URLENCODED, PM_MULTIPART);
+    end;
+
+  TspeedLimiter = class
+  { connections can be bound to a limiter. The limiter is a common limited
+  { resource (the bandwidth) that is consumed. }
+  protected
+    P_maxSpeed: integer;              // this is the limit we set. MAXINT means disabled.
+    procedure setMaxSpeed(v:integer);
+  public
+    availableBandwidth: integer;    // this is the resource itself
+    property maxSpeed: integer read P_maxSpeed write setMaxSpeed;
+    constructor create(max:integer=MAXINT);
+    end;
+
+  ThttpConn = class
+  protected
+    srv: ThttpSrv;          // reference to the server
+    stream: Tstream;
+    P_address: string;
+    P_port: string;
+    brecvd: int64;          // bytes received from the client
+    bsent: int64;           // bytes sent to the client
+    bsent_body: int64;      // bytes sent to the client (current body only)
+    bsent_bodies: int64;    // bytes sent to the client (for all bodies)
+    P_requestCount: integer;
+    P_destroying: boolean;  // destroying is in progress
+    P_sndBuf: integer;
+    persistent: boolean;
+    disconnecting: boolean; // disconnected() has been called
+    lockCount: integer;     // prevent freeing of the object
+    dontFulFil: boolean;
+    firstPostFile: boolean;
+    lastPostItemPos, FbytesPostedLastItem: int64;
+    // post handling
+    inBoundaries: boolean;   // we are between form-data boundaries
+    postDataReceived: int64; // bytes received in post data
+    // used to calculate actual speed
+    lastBsent, lastBrecvd: int64;
+    lastSpeedTime: int64;
+    P_speedOut, P_speedIn: real;
+
+    buffer: ansistring;       // internal buffer for incoming data
+    // event handlers
+    procedure disconnected(Sender: TObject; Error: Word);
+    procedure dataavailable(Sender: TObject; Error: Word);
+    procedure senddata(sender:Tobject; bytes:integer);
+    procedure datasent(sender:Tobject; error:word);
+    function  fullBodySize():int64;
+    function  partialBodySize():int64;
+    function  sendNextChunk(max:integer=MAXINT):integer;
+    function  getBytesToSend():int64;
+    function  getBytesToPost():int64;
+    function  getBytesGot():int64;
+    procedure notify(ev:ThttpEvent);
+    procedure tryNotify(ev:ThttpEvent);
+    procedure calculateSpeed();
+	  procedure sendheader(h:ansistring='');
+		function  replyHeader_mode(mode:ThttpReplyMode):ansistring;
+		function  replyHeader_code(code:integer):ansistring;
+    function  getDontFree():boolean;
+    procedure processInputBuffer();
+    procedure clearRequest();
+    procedure clearReply();
+    procedure setSndbuf(v:integer);
+  public
+    sock: Twsocket;             // client-server communication socket
+    state: ThttpConnState;      // what is doing now with this
+    request: ThttpRequest;      // it requests
+    reply: ThttpReply;          // we serve
+    post: ThttpPost;            // it posts
+    data: pointer;              // user data
+    paused: boolean;            // while (not paused) do senddata()
+    eventData: ansistring;
+    ignoreSpeedLimit: boolean;
+    limiters: TobjectList;     // every connection can be bound to a number of TspeedLimiter
+    constructor create(server:ThttpSrv);
+    destructor Destroy; override;
+    procedure disconnect();
+    procedure addHeader(s:ansistring; overwrite:boolean=TRUE); // set an additional header line. If overwrite=false will always append.
+    function  setHeaderIfNone(s:string):boolean; // set header if not already existing
+    procedure removeHeader(name:ansistring);
+    function  getHeader(h:string):string;  // extract the value associated to the specified header field
+    function  getCookie(k:string):string;
+    procedure setCookie(k, v:string; pairs:array of string; extra:string='');
+    function getBuffer():ansistring;
+    function  initInputStream():boolean;
+    property address:string read P_address;      // other peer ip address
+    property port:string read P_port;            // other peer port
+    property requestCount:integer read P_requestCount;
+    property bytesToSend:int64 read getBytesToSend;
+    property bytesToPost:int64 read getBytesToPost;
+    property bytesSent:int64 read bsent_bodies;
+    property bytesSentLastItem:int64 read bsent_body;
+    property bytesPartial:int64 read partialBodySize;
+    property bytesFullBody:int64 read fullBodySize;
+    property bytesGot:int64 read getBytesGot;
+    property bytesPosted:int64 read postDataReceived;
+    property bytesPostedLastItem:int64 read FbytesPostedLastItem;
+    property speedIn:real read P_speedIn;  // (bytes_recvd/s)
+    property speedOut:real read P_speedOut;  // (bytes_sent/s)
+    property disconnectedByServer:boolean read disconnecting;
+    property destroying:boolean read P_destroying;
+    property dontFree:boolean read getDontFree;
+    property getLockCount:integer read lockCount;
+    property sndBuf:integer read P_sndBuf write setSndBuf;
+    end;
+
+  ThttpSrv = class
+  protected
+    timer: Ttimer;
+    lockTimerevent: boolean;
+    lastHertz: Tdatetime;
+
+    P_port: string;
+    P_autoFree: boolean;
+    P_speedIn, P_speedOut: real;
+    bsent, brecvd: int64;
+    procedure setPort(v:string);
+    function  getActive():boolean;
+    procedure setActive(v:boolean);
+    procedure connected(Sender: TObject; Error: Word);
+    procedure disconnected(Sender: TObject; Error: Word);
+    procedure bgexception(Sender: TObject; E:Exception; var CanClose:Boolean);
+    procedure setAutoFree(v:boolean);
+    procedure notify(ev:ThttpEvent; conn:ThttpConn);
+    procedure hertzEvent();
+    procedure timerEvent(sender:Tobject);
+    procedure calculateSpeed();
+    procedure processDisconnecting();
+  public
+    sock: Twsocket;     // listening socket
+    conns,          // full list of connected clients
+    disconnecting,  // list of pending disconnections
+    offlines,       // disconnected clients to be freed
+    q,              // clients waiting for data to be sent
+    limiters: TobjectList;
+    data: pointer;      // user data
+    persistentConnections: boolean;  // if FALSE disconnect clients after they're served
+    onEvent: procedure(event:ThttpEvent; conn:ThttpConn) of object;
+    constructor create(); overload;
+    destructor Destroy(); override;
+    property active:boolean read getActive write setActive; // r we listening?
+    property port:string read P_port write setPort;
+    property bytesSent:int64 read bsent;
+    property bytesReceived:int64 read brecvd;
+    property speedIn:real read P_speedIn;  // (bytes_recvd/s)
+    property speedOut:real read P_speedOut;  // (bytes_sent/s)
+    property autoFreeDisconnectedClients: boolean read P_autoFree write setAutoFree;
+    function start(onAddress:string='*'):boolean; // returns true if all is ok
+    procedure stop();
+    procedure disconnectAll(wait:boolean=FALSE);
+    procedure freeConnList(l:TobjectList);
+    end;
+
+const
+  TIMER_HZ = 100;
+  MINIMUM_CHUNK_SIZE = 2*1024;
+  MAXIMUM_CHUNK_SIZE = 1024*1024;
+  HRM2CODE: array [ThttpReplyMode] of integer = (200, 200, 403, 401, 404, 400,
+  	500, 0, 0, 405, 302, 503, 413, 301, 304 );
+  METHOD2STR: array [ThttpMethod] of ansistring = ('UNK','GET','POST','HEAD');
+  HRM2STR: array [ThttpReplyMode] of ansistring = ('Head+Body', 'Head only', 'Deny',
+    'Unauthorized', 'Not found', 'Bad request', 'Internal error', 'Close',
+    'Ignore', 'Unallowed method', 'Redirect', 'Overload', 'Request too large',
+    'Moved permanently', 'Not Modified');
+
+{ split S in position where SS is found, the first part is returned
+  the second part following SS is left in S }
+function chop(ss:string; var s:string):string; overload;
+function chop(ss:ansistring; var s:ansistring):ansistring; overload;
+// same as before, but separator is I
+function chop(i:integer; var s:string):string; overload;
+// same as before, but specifying separator length
+function chop(i, l:integer; var s:string):string; overload;
+function chop(i, l:integer; var s:ansistring):ansistring; overload;
+// same as chop(lineterminator, s)
+function chopLine(var s:string):string; overload;
+// decode/decode url
+function decodeURL(url:ansistring; utf8:boolean=TRUE):string;
+function encodeURL(url:string; nonascii:boolean=TRUE; spaces:boolean=TRUE;
+  unicode:boolean=FALSE):string;
+// returns true if address is not suitable for the internet
+function isLocalIP(ip:string):boolean;
+// base64 encoding
+function base64encode(s:string):string;
+function base64decode(s:string):string;
+function base64decodeA(s:string):Tbytes;
+// an ip address where we are listening
+function getIP():string;
+// ensure a string ends with a specific string
+procedure includeTrailingString(var s:string; ss:string);
+// gets unicode code for specified character
+function charToUnicode(c:char):dword;
+// this version of pos() is able to skip the pattern if inside quotes
+function nonQuotedPos(ss, s:string; ofs:integer=1; quote:string='"'; unquote:string='"'):integer;
+// case insensitive version
+function ipos(ss, s:string; ofs:integer=1):integer; overload;
+
+implementation
+
+uses
+  Windows;
+const
+  CRLF = #13#10;
+  MAX_REQUEST_LENGTH = 64*1024;
+  MAX_INPUT_BUFFER_LENGTH = 256*1024;
+  // used as body content when the user did not specify any
+  HRM2BODY: array [ThttpReplyMode] of string = (
+  	'200 - OK',
+    '200 - OK (header only)',
+    '403 - You are not allowed to access this file',
+    '401 - You are not authorized to access this file',
+    '404 - File not found',
+    '400 - Bad request',
+    '500 - Internal server error',
+    '',
+    '',
+    '405 - Method not allowed',
+    '<html><head><meta http-equiv="refresh" content="url=%url%" /></head><body onload=''window.location="%url%"''>302 - <a href="%url%">Redirection to %url%</a></body></html>',
+    '503 - Server is overloaded, retry later',
+    '413 - The request has exceeded the max length allowed',
+    '301 - Moved permanently to <a href="%url%">%url%</a>',
+    '' // RFC2616: The 304 response MUST NOT contain a message-body
+  );
+var
+  freq: int64;
+
+procedure includeTrailingString(var s:string; ss:string); overload;
+begin if copy(s, length(s)-length(ss)+1, length(ss)) <> ss then s:=s+ss end;
+
+procedure includeTrailingString(var s:ansistring; ss:ansistring); overload;
+begin if copy(s, length(s)-length(ss)+1, length(ss)) <> ss then s:=s+ss end;
+
+function charToUnicode(c:char):dword;
+begin stringToWideChar(c,@result,4) end;
+
+function isLocalIP(ip:string):boolean;
+var
+  r: record d,c,b,a:byte end;
+begin
+dword(r):=WSocket_ntohl(WSocket_inet_addr(ansiString(ip)));
+result:=(r.a in [0,10,23,127])
+  or (r.a = 192) and ((r.b = 168) or (r.b = 0) and (r.c = 2))
+  or (r.a = 169) and (r.b = 254)
+  or (r.a = 172) and (r.b in [16..31])
+end; // isLocalIP
+
+function ifThen(c:boolean; a:integer; b:integer=0):integer; overload;
+begin if c then result:=a else result:=b end;
+
+function min(a,b:integer):integer;
+begin if a < b then result:=a else result:=b end;
+
+// this table is to be used by ipos(), to be calculated once
+var
+  upcaseTab: array [char] of char;
+function ipos(ss, s: string; ofs:integer=1):integer; overload;
+
+  procedure initTab();
+  var
+    i: char;
+    tmp: string;
+  begin
+  for i:=#0 to #255 do
+    begin
+    tmp:=ansiUppercase(i);
+    upcaseTab[i]:=tmp[1];
+    end;
+  end;
+
+var
+  rss, rs, rss1, p: pchar;
+  l: integer;
+begin
+if upcaseTab[#1] = #0 then initTab();
+result:=0;
+l:=length(s);
+if (l < ofs) or (l = 0) or (ss = '') then exit;
+// every strange thing you may notice here is an optimization based on the produced asm
+ss:=uppercase(ss);
+rss1:=@ss[1];
+rs:=@s[ofs];
+for result:=ofs to l do
+  begin
+  rss:=rss1;
+  p:=rs;
+  while (rss^ <> #0) and (rss^ = upcaseTab[p^]) do
+    begin
+    inc(rss);
+    inc(p);
+    end;
+  if rss^ = #0 then exit; // we saw it all, and we saw it was good
+  inc(rs);
+  end;
+result:=0;
+end; // ipos
+
+function nonQuotedPos(ss, s:string; ofs:integer=1; quote:string='"'; unquote:string='"'):integer;
+var
+  qpos: integer;
+begin
+  repeat
+  result:=posEx(ss, s, ofs);
+  if result = 0 then exit;
+  
+    repeat
+    qpos:=posEx(quote, s, ofs);
+    if qpos = 0 then exit; // there's no quoting, our result will fit
+    if qpos > result then exit; // the quoting doesn't affect the piece, accept the result
+    ofs:=posEx(unquote, s, qpos+1);
+    if ofs = 0 then exit; // it is not closed, we don't consider it quoting
+    inc(ofs);
+    until ofs > result; // this quoting was short, let's see if we have another
+  until false;
+end; // nonQuotedPos
+
+function base64encode(s:string):string;
+const
+  TABLE='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
+type
+  Ttriple=array [0..2] of byte;
+var
+  p: ^Ttriple;
+  i: integer;
+begin
+result:='';
+p:=@s[1];
+for i:=1 to length(s) div 3 do
+  begin
+  result:=result+TABLE[1+p[0] shr 2]
+  	+TABLE[1+(p[0] and 3) shl 4+p[1] shr 4]
+    +TABLE[1+(p[1] and 15) shl 2+p[2] shr 6]
+    +TABLE[1+(p[2] and 63)];
+  inc(p);
+  end;
+if length(s) mod 3 > 0 then
+	result:=result+TABLE[1+p[0] shr 2]+TABLE[1+(p[0] and 3) shl 4+p[1] shr 4]
+    +ifThen(length(s) mod 3=1,'==',TABLE[1+(p[1] and 15) shl 2+p[2] shr 6]+'=');
+end; // base64encode
+
+function base64decode(s:string):string;
+const
+  TABLE:array[#43..#122] of byte=(
+  	62,0,0,0,63,52,53,54,55,56,57,58,59,60,61,0,0,0,0,0,0,0,0,1,2,3,4,5,6,7,
+    8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,0,0,0,0,0,0,26,27,28,
+    29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+var
+  i: integer;
+begin
+result:='';
+i:=1;
+while i <= length(s) do
+  begin
+	result:=result
+  	+chr(TABLE[s[i]] shl 2+TABLE[s[i+1]] shr 4)
+    +ifThen(s[i+2]<>'=', chr(TABLE[s[i+1]] shl 4+TABLE[s[i+2]] shr 2))
+    +ifThen(s[i+3]<>'=', chr(TABLE[s[i+2]] shl 6+TABLE[s[i+3]]));
+  inc(i,4);
+  end;
+end; // base64decode
+
+function base64decodeA(s:string):Tbytes;
+const
+  TABLE:array[#43..#122] of byte=(
+  	62,0,0,0,63,52,53,54,55,56,57,58,59,60,61,0,0,0,0,0,0,0,0,1,2,3,4,5,6,7,
+    8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,0,0,0,0,0,0,26,27,28,
+    29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51);
+var
+  i, n: integer;
+begin
+setLength(result, length(s));
+i:=1;
+n:=0;
+while i <= length(s) do
+  begin
+	result[n]:=TABLE[s[i]] shl 2+TABLE[s[i+1]] shr 4;
+  inc(n);
+  result[n]:=ifThen(s[i+2]<>'=', TABLE[s[i+1]] shl 4+TABLE[s[i+2]] shr 2);
+  inc(n);
+  result[n]:=ifThen(s[i+3]<>'=', TABLE[s[i+2]] shl 6+TABLE[s[i+3]]);
+  inc(n);
+  inc(i,4);
+  end;
+setLength(result, n);
+end; // base64decode
+
+function decodeURL(url:ansistring; utf8:boolean=TRUE):string;
+var
+  i, j: integer;
+begin
+j:=0;
+i:=0;
+while i<length(url) do
+  begin
+  inc(i);
+  inc(j);
+  if (url[i] = '%') and (i+2 <= length(url)) then
+    try
+      url[j]:=ansichar(strToInt( '$'+url[i+1]+url[i+2] ));
+      inc(i,2); // three chars for one
+    except url[j]:='_' end;
+  end;
+setLength(url, j);
+if utf8 then
+  begin
+  result:=utf8ToString(url);
+  if result='' then  // if the string is not UTF8 compliant, the result is empty
+    result:=url;
+  end
+else
+  result:=url;
+end; // decodeURL
+
+function encodeURL(url:string; nonascii:boolean=TRUE; spaces:boolean=TRUE;
+  unicode:boolean=FALSE):string;
+var
+  i: integer;
+  encodePerc, encodeUni: set of char;
+begin
+result:='';
+encodeUni:=[];
+if nonascii then encodeUni:=[#128..#255];
+encodePerc:=[#0..#31,'#','%','?','"','''','&','<','>',':'];
+// actually ':' needs encoding only in relative url
+if spaces then include(encodePerc,' ');
+if not unicode then
+  begin
+  encodePerc:=encodePerc+encodeUni;
+  encodeUni:=[];
+  end;
+for i:=1 to length(url) do
+	if charInSet(url[i], encodePerc) then
+    result:=result+'%'+intToHex(ord(url[i]),2)
+  else if charInSet(url[i], encodeUni) then
+    result:=result+'&#'+intToStr(charToUnicode(url[i]))+';'
+  else
+    result:=result+url[i];
+end; // encodeURL
+
+function getIP():string;
+var
+  i: integer;
+  ips: Tstrings;
+begin
+ips:=LocalIPlist();
+case ips.count of
+  0: result:='';
+  1: result:=ips[0];
+  else
+    i:=0;
+    while (i < ips.count-1) and isLocalIP(ips[i]) do
+      inc(i);
+    result:=ips[i];
+  end;
+end; // getIP
+
+function replyHeader_IntPositive(name:ansistring; int:int64):ansistring;
+begin
+result:='';
+if int >= 0 then result:=name+': '+intToStr(int)+CRLF;
+end;
+
+function replyHeader_Str(name:ansistring; str:ansistring):ansistring;
+begin
+result:='';
+if str > '' then result:=name+': '+str+CRLF;
+end;
+
+function chop(i, l:integer; var s:string):string; overload;
+begin
+if i=0 then
+  begin
+  result:=s;
+  s:='';
+  exit;
+  end;
+result:=copy(s,1,i-1);
+delete(s,1,i-1+l);
+end; // chop
+
+function chop(i, l:integer; var s:ansistring):ansistring; overload;
+begin
+if i=0 then
+  begin
+  result:=s;
+  s:='';
+  exit;
+  end;
+result:=copy(s,1,i-1);
+delete(s,1,i-1+l);
+end; // chop
+
+function chop(ss:string; var s:string):string; overload;
+begin result:=chop(pos(ss,s),length(ss),s) end;
+
+function chop(ss:ansistring; var s:ansistring):ansistring; overload;
+begin result:=chop(pos(ss,s),length(ss),s) end;
+
+function chop(i:integer; var s:string):string;
+begin result:=chop(i,1,s) end;
+
+function chopLine(var s:string):string; overload;
+begin
+result:=chop(#10,s);
+if (result>'') and (result[length(result)]=#13) then
+  setlength(result, length(result)-1);
+end; // chopline
+
+function chopLine(var s:ansistring):ansistring; overload;
+begin
+result:=chop(pos(#10,s),1,s);
+if (result>'') and (result[length(result)]=#13) then
+  setlength(result, length(result)-1);
+end; // chopline
+
+/////// SERVER
+
+function ThttpSrv.start(onAddress:string='*'):boolean;
+begin
+result:=FALSE;
+if active or not assigned(sock) then exit;
+try
+  if onAddress = '' then onAddress:='*';
+  if (onAddress = '') or (onAddress = '*') then sock.addr:='0.0.0.0'
+  else sock.addr:=onAddress;
+  sock.port:=port;
+  sock.proto:='6';
+  sock.listen();
+  if port = '0' then
+    P_port:=sock.getxport();
+  result:=TRUE;
+  notify(HE_OPEN, NIL);
+except
+  end;
+end; // start
+
+procedure ThttpSrv.stop();
+begin
+if assigned(sock) then
+  try sock.Close() except end;
+end;
+
+procedure ThttpSrv.connected(Sender: TObject; Error: Word);
+begin if error=0 then ThttpConn.create(self) end;
+
+procedure ThttpSrv.disconnected(Sender: TObject; Error: Word);
+begin notify(HE_CLOSE, NIL) end;
+
+constructor ThttpSrv.create();
+begin
+sock:=TWSocket.create(NIL);
+sock.OnSessionAvailable:=connected;
+sock.OnSessionClosed:=disconnected;
+sock.OnBgException:=bgexception;
+
+conns:=TobjectList.create;
+conns.OwnsObjects:=FALSE;
+offlines:=TobjectList.create;
+offlines.OwnsObjects:=FALSE;
+q:=TobjectList.create;
+q.OwnsObjects:=FALSE;
+disconnecting:=TobjectList.create;
+disconnecting.OwnsObjects:=FALSE;
+limiters:=TobjectList.create;
+limiters.OwnsObjects:=FALSE;
+timer:=Ttimer.create(NIL);
+timer.OnTimer:=timerEvent;
+timer.Interval:=1000 div TIMER_HZ;
+timer.Enabled:=TRUE;
+Port:='80';
+autoFreeDisconnectedClients:=TRUE;
+persistentConnections:=TRUE;
+end; // create
+
+destructor ThttpSrv.destroy();
+begin
+freeAndNIL(timer);
+stop();
+disconnectAll(TRUE);
+processDisconnecting();
+freeAndNIL(sock);
+freeConnList(conns);
+freeAndNIL(conns);
+freeAndNIL(disconnecting);
+freeAndNIL(offlines);
+freeAndNIL(q);
+freeAndNIL(limiters);
+inherited;
+end; // destroy
+
+procedure ThttpSrv.hertzEvent();
+var
+  i: integer;
+begin
+if now()-lastHertz < 1/(24*60*60) then exit;
+lastHertz:=now();
+calculateSpeed();
+for i:=0 to limiters.Count-1 do
+  try
+    with limiters[i] as TspeedLimiter do
+      availableBandwidth:=maxSpeed;
+  except end;
+end; // hertzEvent
+
+procedure ThttpSrv.processDisconnecting();
+var
+  c: ThttpConn;
+  i: integer;
+begin
+i:=0;
+while i < disconnecting.Count do
+  begin
+  c:=disconnecting[i] as ThttpConn;
+  inc(i);
+  if c.dontFree then continue;
+  c.processInputBuffer(); // serve, till the end.
+  disconnecting.delete(i-1);
+  q.remove(c);
+  conns.remove(c);
+  offlines.add(c);
+  notify(HE_DISCONNECTED, c);
+  end;
+end; // processDisconnecting
+
+procedure ThttpSrv.timerEvent(sender:Tobject);
+
+  procedure processPipelines();
+  var
+    i: integer;
+  begin
+  for i:=0 to conns.count-1 do
+    try
+      with ThttpConn(conns[i]) do
+        if (state in [HCS_IDLE, HCS_DISCONNECTED]) and (buffer > '') then
+          processInputBuffer();
+    except end;
+  end; // processPipelines
+
+  procedure processQ();
+  var
+    c: ThttpConn;
+    toQ: Tobjectlist;
+    i, chunkSize: integer;
+  begin
+  toQ:=Tobjectlist.create;
+  try
+    toQ.ownsObjects:=FALSE;
+    while q.count > 0 do
+      begin
+      c:=NIL;
+      try
+        c:=q.first() as ThttpConn; // got an AV here, had no better solution than adding a try statement www.rejetto.com/forum/?topic=6204
+        q.delete(0);
+      except end;
+      if c = NIL then continue;
+
+      try
+        chunkSize:=ifThen(c.paused, 0, MAXINT);
+        if not c.ignoreSpeedLimit then
+          for i:=0 to c.limiters.Count-1 do
+            with c.limiters[i] as TspeedLimiter do
+              if availableBandwidth >= 0 then
+                chunkSize:=min(chunkSize, availableBandwidth);
+        if chunkSize <= 0 then
+          begin
+          toQ.add(c);
+          continue;
+          end;
+        if c.destroying or (c.state = HCS_DISCONNECTED)
+        or (c.sock = NIL) or (c.sock.State <> wsConnected) then
+          continue;
+        // serve the pending connection with a data chunk
+        chunkSize:=c.sendNextChunk(chunkSize);
+        for i:=0 to c.limiters.Count-1 do
+          with c.limiters[i] as TspeedLimiter do
+            dec(availableBandwidth, chunkSize);
+      except end;
+      end;
+    q.assign(toQ, laOR);
+  finally toQ.Free end;
+  end; // processQ
+
+begin
+hertzEvent();
+
+lockTimerevent:=TRUE;
+try
+  processDisconnecting();
+  if autoFreeDisconnectedClients then freeConnList(offlines);
+  processPipelines();
+  processQ();
+finally
+  lockTimerevent:=FALSE
+  end;
+end; // timerEvent
+
+procedure ThttpSrv.notify(ev:ThttpEvent; conn:ThttpConn);
+begin
+if not assigned(onEvent) then exit;
+//if assigned(sock) then sock.pause();
+if assigned(conn) then
+  begin
+  inc(conn.lockCount);
+  conn.sock.pause();
+  end;
+// event handler shall not break our thing
+try onEvent(ev, conn);
+finally
+  //if assigned(sock) then sock.resume();
+  if assigned(conn) then
+    begin
+    dec(conn.lockCount);
+    conn.sock.resume();
+    end;
+  end;
+end;
+
+function Thttpsrv.getActive():boolean;
+begin result:=assigned(sock) and (sock.State=wsListening) end;
+
+procedure ThttpSrv.setActive(v:boolean);
+begin
+if v <> active then
+  if v then start() else stop()
+end; // setactive
+
+procedure ThttpSrv.freeConnList(l:TobjectList);
+begin
+while l.count > 0 do
+  with l.first() as ThttpConn do
+    try
+      try l.delete(0)
+      finally free end
+    except end;
+end; // freeConnList
+
+procedure ThttpSrv.calculateSpeed();
+var
+  i: integer;
+begin
+P_speedOut:=0;
+P_speedIn:=0;
+i:=0;
+while i < conns.count do
+  begin
+  ThttpConn(conns[i]).calculateSpeed();
+  P_speedOut:=P_speedOut+ThttpConn(conns[i]).speedOut;
+  P_speedIn:=P_speedIn+ThttpConn(conns[i]).speedIn;
+  inc(i);
+  end;
+end; // calculateSpeed
+
+procedure ThttpSrv.setPort(v:string);
+begin
+if active then
+  raise Exception.Create(classname+': cannot change port while active');
+P_port:=v
+end; // setPort
+
+procedure ThttpSrv.disconnectAll(wait:boolean=FALSE);
+var
+  i: integer;
+  clone: Tlist;
+begin
+// on disconnection <conns> list changes. clone it for safer enumeration.
+clone:=Tlist.Create;
+clone.Assign(conns);
+// cast disconnection
+for i:=0 to clone.count-1 do
+  ThttpConn(clone[i]).disconnect();
+if wait then
+  for i:=0 to clone.count-1 do
+    if conns.IndexOf(clone[i]) >= 0 then
+      ThttpConn(clone[i]).sock.WaitForClose();
+clone.free;
+end; // disconnectAll
+
+procedure ThttpSrv.setAutoFree(v:boolean);
+begin P_autofree:=v end;
+
+procedure ThttpSrv.bgexception(Sender: TObject; E: Exception; var CanClose: Boolean);
+begin canClose:=FALSE end;
+
+////////// CLIENT
+
+constructor ThttpConn.create(server:ThttpSrv);
+var
+  i: integer;
+begin
+// init socket
+sock:=Twsocket.create(NIL);
+sock.Dup(server.sock.Accept);
+sock.OnDataAvailable:=dataavailable;
+sock.OnSessionClosed:=disconnected;
+sock.onSendData:=senddata;
+sock.onDataSent:=datasent;
+sock.LineMode:=FALSE;
+
+request.headers:=ThashedStringList.create;
+request.headers.nameValueSeparator:=':';
+limiters:=TObjectList.create;
+limiters.ownsObjects:=FALSE;
+P_address:=sock.GetPeerAddr();
+P_port:=sock.GetPeerPort();
+state:=HCS_IDLE;
+srv:=server;
+srv.conns.add(self);
+clearRequest();
+clearReply();
+QueryPerformanceCounter(lastSpeedTime);
+
+i:=sizeOf(P_sndBuf);
+if WSocket_getsockopt(sock.HSocket, SOL_SOCKET, SO_SNDBUF, @P_sndBuf, i) <> NO_ERROR then
+  P_sndBuf:=0;
+
+server.notify(HE_CONNECTED, self);
+if reply.mode <> HRM_CLOSE then exit;
+dontFulFil:=TRUE;
+disconnect();
+end;
+
+destructor ThttpConn.destroy;
+begin
+if dontFree then
+  raise exception.Create('still in use');
+P_destroying:=TRUE;
+if assigned(sock) then
+  try
+    sock.Shutdown(SD_BOTH);
+    sock.WaitForClose();
+  except
+    end;
+if assigned(srv) and assigned(srv.offlines) then
+  srv.offlines.remove(self);
+freeAndNIL(request.headers);
+freeAndNIL(request.cookies);
+freeAndNil(stream);
+freeAndNIL(sock);
+freeAndNIL(limiters);
+inherited;
+end; // destroy
+
+procedure ThttpConn.calculateSpeed();
+var
+	bytes: int64;
+  now: int64;
+  elapsed: Tdatetime;
+begin
+if freq = 0 then exit;
+
+QueryPerformanceCounter(now);
+elapsed:=(now-lastSpeedTime)/freq;
+lastSpeedTime:=now;
+
+bytes:=bsent-lastBsent;
+lastBsent:=bsent;
+P_speedOut:=bytes/elapsed;
+
+bytes:=brecvd-lastBrecvd;
+lastBrecvd:=brecvd;
+P_speedIn:=bytes/elapsed;
+end; // calculateSpeed
+
+procedure ThttpConn.disconnected(Sender: TObject; Error: Word);
+begin
+state:=HCS_DISCONNECTED;
+srv.disconnecting.Add(self);
+end;
+
+function ThttpConn.getHeader(h:string):string;
+begin
+result:='';
+if request.method = HM_UNK then exit;
+result:=trim(request.headers.values[h]);
+end; // getHeader
+
+function ThttpConn.getBuffer():ansistring;
+begin result:=buffer end;
+
+function ThttpConn.getCookie(k:string):string;
+begin
+result:='';
+if request.method = HM_UNK then exit;
+if request.cookies = NIL then
+  begin
+  request.cookies:=ThashedStringList.create;
+  request.cookies.delimiter:=';';
+  request.cookies.QuoteChar:=#0;
+  request.cookies.delimitedText:=getHeader('cookie');
+  end;
+result:=decodeURL(ansistring(trim(request.cookies.values[k])));
+end; // getCookie
+
+procedure ThttpConn.setCookie(k, v:string; pairs:array of string; extra:string='');
+var
+  i: integer;
+begin
+v:='Set-Cookie: '+k+'='+v+'; ';
+i:=0;
+while i < length(pairs)-1 do
+  begin
+  v:=v+lowerCase(pairs[i])+'='+pairs[i+1]+'; ';
+  inc(i,2);
+  end;
+addHeader(v+extra);
+end; // setCookie
+
+procedure ThttpConn.clearRequest();
+begin
+request.method:=HM_UNK;
+request.ver:='';
+request.url:='';
+request.firstByte:=-1;
+request.lastByte:=-1;
+request.headers.clear();
+freeAndNIL(request.cookies);
+request.user:='';
+request.pwd:='';
+end; // clearRequest
+
+procedure ThttpConn.clearReply();
+begin
+reply.header:='';
+reply.bodyMode:=RBM_STRING;
+reply.body:='';
+reply.additionalHeaders:='';
+reply.mode:=HRM_IGNORE;
+reply.firstByte:=request.firstByte;
+reply.lastByte:=request.lastByte;
+reply.realm:='Password protected resource';
+reply.reason:='';
+end; // clearReply
+
+procedure ThttpConn.processInputBuffer();
+
+  function parseHeader():boolean;
+  var
+    r, s: ansistring;
+    i : integer;
+  begin
+  result:=FALSE;
+  r:=request.full;
+
+  // find first blank space
+  for i:=1 to 10 do
+    if i > length(r) then exit
+    else if r[i]=' ' then break;
+
+  clearRequest();
+  post.header:='';
+  post.mode:=PM_NONE;
+
+  s:=ansiUppercase(chop(i, 1, r));
+  if s='GET' then request.method:=HM_GET else
+  if s='POST' then request.method:=HM_POST else
+  if s='HEAD' then request.method:=HM_HEAD else;
+
+  request.url:=chop(' ', r);
+
+  s:=uppercase(chopLine(r));
+  // if 'HTTP/' is not found, chop returns S
+  if chop('HTTP/',s) = '' then request.ver:=s;
+
+  request.headers.text:=r;
+
+  s:=getHeader('Range');
+  if ansiStartsText('bytes=',s) then
+    begin
+    delete(s,1,6);
+    r:=chop('-',s);
+    try
+      if r>'' then request.firstByte:=strToInt64(r);
+      if s>'' then request.lastByte:=strToInt64(s);
+    except end;
+    end;
+
+  s:=getHeader('Authorization');
+  if AnsiStartsText('Basic',s) then
+    begin
+    delete(s,1,6);
+    s:=base64decode(s);
+    request.user:=trim(chop(':',s));
+    request.pwd:=s;
+    end;
+
+  s:=getHeader('Connection');
+  persistent:=srv.persistentConnections and
+    (ansiStartsText('Keep-Alive',s) or (request.ver >= '1.1') and (ipos('close',s)=0));
+
+  s:=getHeader('Content-Type');
+  if ansiStartsText('application/x-www-form-urlencoded', s) then
+    post.mode:=PM_URLENCODED
+  else if ansiStartsText('multipart/form-data', s) then
+    begin
+    post.mode:=PM_MULTIPART;
+    chop('boundary=', s);
+    post.boundary:='--'+s;
+    end;
+  post.length:=StrToInt64Def(getHeader('Content-Length'), 0);
+  // the browser may not support 2GB+ files. This workaround works only for files under 4GB.
+  if post.length < 0 then inc(post.length, int64(2) shl 31);
+
+  result:=TRUE;
+  end; // parseHeader
+
+  procedure handlePostMultipart();
+
+    procedure handleLeftData(i:integer);
+    begin
+    // the data processed below is related to the previous file
+    post.data:=chop(i, length(post.boundary), buffer);
+    // if data was found, we must trim the CRLF between data and boundary
+    setlength(post.data, length(post.data)-2);
+    // we expect this data to have a filename, otherwise it is just discarded
+    if post.filename > '' then
+      tryNotify(HE_POST_MORE_FILE)
+    else if post.varname > '' then
+      tryNotify(HE_POST_VAR);
+    FbytesPostedLastItem:=bytesPosted-length(buffer)-lastPostItemPos-length(post.boundary)-2;
+    if post.filename > '' then
+      tryNotify(HE_POST_END_FILE);
+    end; // handleLeftData
+
+  var
+    i: integer;
+    s, l, k, c: string;
+
+  begin
+    repeat
+    { When the buffer is stuffed with file bytes only, we can avoid calling pos() and chop().
+    { Unexpectedly this did not speed up anything. I report the try so you don't waste your time.
+    if (bytesPosted < post.length-length(post.boundary)) and (post.filename > '') then
+      begin
+      post.data:=buffer;
+      buffer:='';
+      notify(HE_POST_MORE_FILE);
+      break;
+      end;
+    }
+
+    // a boundary point at a (sub)header or to the end of the post section
+    i:=pos(post.boundary, buffer);
+    if i = 0 then
+      begin
+      if post.filename = '' then
+        post.data:=post.data+chop(length(buffer)-length(post.boundary), 0, buffer)
+      else
+        { no boundary, this is a chunk of the file we are receiving. notify the listener
+        { only about the data we are sure it doesn't overlap a possibly coming boundary }
+        begin
+        post.data:=chop(length(buffer)-length(post.boundary), 0, buffer);
+        if post.data > '' then tryNotify(HE_POST_MORE_FILE);
+        end;
+      break;
+      end;
+    // was it the end of the post section?
+    if copy(buffer, i+length(post.boundary), 4) = '--'+CRLF then
+      begin
+      handleLeftData(i);
+      chop('--'+CRLF, buffer);
+      tryNotify(HE_POST_END);
+      state:=HCS_REPLYING;
+      post.filename:='';
+      break;
+      end;
+    // we wait for the header to be complete
+    if posEx(CRLF+CRLF, buffer, i+length(post.boundary)) = 0 then break;
+    handleLeftData(i);
+    post.filename:='';
+    post.data:='';
+    post.header:=chop(CRLF+CRLF, buffer);
+    chopLine(post.header);
+    // parse the header part
+    s:=post.header;
+    while s > '' do
+      begin
+      l:=chopLine(s);
+      if l = '' then continue;
+      k:=chop(':', l);
+      if not sameText(k, 'Content-Disposition') then continue; // we are not interested in other fields
+      k:=trim(chop(';', l));
+      if not sameText(k, 'form-data') then continue;
+      while l > '' do
+        begin
+        c:=chop(nonQuotedPos(';', l), l);
+        k:=trim(chop('=', c));
+        c:=ansiDequotedStr(c,'"');
+        if sameText(k, 'filename') then
+          begin
+          delete(c, 1, lastDelimiter('/\',c));
+          post.filename:=c;
+          end;
+        if sameText(k, 'name') then
+          post.varname:=c;
+        end;
+      end;
+    lastPostItemPos:=bytesPosted-length(buffer);
+    if post.filename = '' then continue;
+    firstPostFile:=FALSE;
+    tryNotify(HE_POST_FILE);
+    until false;
+  end; // handlePostMultipart
+
+  procedure handlePostData();
+  begin
+  case post.mode of
+    PM_MULTIPART: handlePostMultipart();
+    PM_URLENCODED:
+      if bytesToPost <= 0 then
+        begin
+        post.data:=chop(bytesPosted+1, 0, buffer);
+        tryNotify(HE_POST_VARS);
+        end;
+    end;
+  if bytesToPost <= 0 then
+    begin
+    tryNotify(HE_POST_END);
+    state:=HCS_REPLYING
+    end;
+  end; // handlePostData
+
+  procedure handleHeaderData();
+  var
+    i, sepLen: integer;
+  begin
+  // try to identify header length and position
+  i:=pos(CRLF+CRLF, buffer);
+  sepLen:=4;
+  if i <= 0 then
+    begin
+    // support for non-standard line separator
+    i:=pos(#13#13, buffer);
+    sepLen:=2;
+    end;
+  if i <= 0 then
+    begin
+    // no full header yet
+    if pos(#3,buffer) > 0 then // search for a CTRL+C issued with a telnet session
+      begin
+      reply.mode:=HRM_CLOSE;
+      disconnect();
+      end;
+    if length(buffer) > MAX_REQUEST_LENGTH then // and check for max length
+      begin
+      reply.mode:=HRM_TOO_LARGE;
+      sendHeader(replyheader_mode(reply.mode));
+      end;
+    exit;
+    end;
+  request.full:=chop(i,sepLen,buffer);
+  if not parseHeader() then exit;
+  notify(HE_GOT_HEADER);
+  if request.method <> HM_POST then
+    begin
+    state:=HCS_REPLYING;
+    exit;
+    end;
+  state:=HCS_POSTING;
+  firstPostFile:=TRUE;
+  postDataReceived:=length(buffer);
+  handlePostData();
+  end; // handleHeaderData
+
+  function replyHeader_OK(contentLength:int64=-1):string;
+  begin
+  result:=replyheader_code(200)
+    +format('Content-Length: %d'+CRLF, [contentLength]);
+  end; // replyHeader_OK
+
+  function replyHeader_PARTIAL( firstB, lastB, totalB:int64):string;
+  begin
+  result:=replyheader_code(206)
+    +format('Content-Range: bytes %d-%d/%d'+CRLF+'Content-Length: %d'+CRLF,
+          [firstB, lastB, totalB, lastB-firstB+1 ])
+  end; // replyheader_PARTIAL
+
+begin
+if buffer = '' then exit;
+if state = HCS_IDLE then
+  begin
+  state:=HCS_REQUESTING;
+  reply.contentType:='text/html';
+  notify(HE_REQUESTING);
+  end;
+case state of
+  HCS_REPLYING,
+  HCS_REPLYING_HEADER,
+  HCS_REPLYING_BODY: exit; // wait until the job is done
+  HCS_POSTING: handlePostData();
+  HCS_REQUESTING: handleHeaderData();
+  end;
+if state <> HCS_REPLYING then exit;
+// handle reply
+clearReply();
+inc(P_requestCount);
+notify(HE_REQUESTED);
+if not initInputStream() then
+  begin
+  reply.mode:=HRM_INTERNAL_ERROR;
+  reply.contentType:='text/html';
+  notify(HE_CANT_OPEN_FILE);
+  end;
+notify(HE_STREAM_READY);
+case reply.mode of
+  HRM_CLOSE: disconnect();
+  HRM_IGNORE: ;
+  HRM_NOT_FOUND,
+  HRM_BAD_REQUEST,
+  HRM_METHOD_NOT_ALLOWED,
+  HRM_INTERNAL_ERROR,
+  HRM_OVERLOAD,
+  HRM_NOT_MODIFIED,
+  HRM_DENY: sendHeader( replyheader_mode(reply.mode) );
+  HRM_UNAUTHORIZED:
+    sendHeader(replyheader_mode(reply.mode)
+      +replyHeader_Str('WWW-Authenticate','Basic realm="'+reply.realm+'"') );
+  HRM_REDIRECT, HRM_MOVED:
+    sendHeader(replyheader_mode(reply.mode)+'Location: '+reply.url );
+  HRM_REPLY, HRM_REPLY_HEADER:
+    if stream = NIL then
+      sendHeader( replyHeader_code(404) )
+    else if (request.firstByte >= bytesFullBody) or (request.lastByte >= bytesFullBody) then
+      sendHeader( replyHeader_code(400) )
+    else if reply.header > '' then
+        sendHeader()
+    else if partialBodySize = fullBodySize then
+      sendHeader( replyHeader_OK(bytesFullBody) )
+    else
+      with reply do
+        sendHeader( replyHeader_PARTIAL(firstByte, lastByte, bytesFullBody) );
+  end;//case
+end; // processInputBuffer
+
+procedure ThttpConn.dataavailable(Sender: TObject; Error: Word);
+var
+  s: string;
+begin
+if error <> 0 then exit;
+s:=sock.ReceiveStr();
+inc(brecvd, length(s));
+inc(srv.brecvd, length(s));
+if (s = '') or dontFulFil then exit;
+if state = HCS_POSTING then inc(postDataReceived, length(s));
+buffer:=buffer+s;
+if length(buffer) > MAX_INPUT_BUFFER_LENGTH then
+  begin
+  disconnect();
+  try sock.Abort() except end; // please, brutally
+  exit;
+  end;
+eventData:=s;
+notify(HE_GOT);
+processInputBuffer();
+end; // dataavailable
+
+procedure ThttpConn.senddata(sender:Tobject; bytes:integer);
+begin
+if bytes <= 0 then exit;
+inc(bsent, bytes);
+inc(srv.bsent, bytes);
+if state = HCS_REPLYING_BODY then
+  begin
+  inc(bsent_body, bytes);
+  inc(bsent_bodies, bytes);
+  end;
+notify(HE_SENT);
+end; // senddata
+
+procedure ThttpConn.datasent(sender:Tobject; error:word);
+
+  function toBeQueued():boolean;
+  var
+    i: integer;
+  begin
+  result:=TRUE;
+  if paused then exit;
+  for i:=0 to limiters.Count-1 do
+    with limiters[i] as TspeedLimiter do
+      if maxSpeed < MAXINT then
+        exit;
+  result:=FALSE;
+  end; // toBeQueued
+
+var
+  notifyReplied: boolean;
+begin
+if not (state in [HCS_REPLYING_HEADER, HCS_REPLYING_BODY]) then exit;
+
+if (state = HCS_REPLYING_HEADER) and (reply.mode <> HRM_REPLY_HEADER) then
+  begin // the header is never sent splitted, so we know that at this stage we already sent it all
+  state:=HCS_REPLYING_BODY;
+  // set up a default body for errors with no body set
+  if ((stream = NIL) or (stream.size = 0)) and (reply.mode <> HRM_REPLY) then
+    begin
+    reply.bodyMode:=RBM_STRING;
+    reply.body:=HRM2BODY[reply.mode];
+    if reply.mode in [HRM_REDIRECT, HRM_MOVED] then
+      reply.body:=stringReplace(reply.body, '%url%', reply.url, [rfReplaceAll]);
+    initInputStream();
+    end;
+  end;
+if (state = HCS_REPLYING_BODY) and (bytesToSend > 0) then
+  begin
+  if toBeQueued() then srv.q.add(self)
+  else sendNextChunk();
+  exit;
+  end;
+notifyReplied:=FALSE;
+if (state in [HCS_REPLYING_HEADER, HCS_REPLYING_BODY, HCS_DISCONNECTED])
+and (bytesToSend = 0) then
+  begin
+  notifyReplied:=TRUE;
+  state:=HCS_IDLE;
+  end;
+
+if not persistent or not (reply.mode in [HRM_REPLY, HRM_REPLY_HEADER]) then
+  disconnect()
+else
+  { we must check the socket state, because a disconnection could happen while
+  { this method is executing }
+  if sock.State <> wsClosed then state:=HCS_IDLE;
+if notifyReplied then
+  begin
+  notify(HE_REPLIED);
+  if stream.position = stream.size then
+    begin
+    freeAndNil(stream); // free file handle
+    notify(HE_LAST_BYTE_DONE);
+    end;
+  end;
+// once the event has been notified, we reset the current counter
+if state = HCS_IDLE then bsent_body:=0;
+
+freeAndNil(stream);
+end; // datasent
+
+procedure ThttpConn.disconnect();
+begin
+if disconnecting then exit;
+disconnecting:=TRUE;
+if sock = NIL then exit;
+try
+  sock.Shutdown(SD_BOTH);
+  sock.CloseDelayed();
+except
+  end;
+end; // disconnect
+
+function ThttpConn.fullBodySize():int64;
+begin if stream = NIL then result:=0 else result:=stream.Size end;
+
+function ThttpConn.partialBodySize():int64;
+begin
+if (reply.lastByte<0) and (reply.firstByte<0) then result:=bytesFullBody
+else result:=reply.lastByte-reply.firstByte+1
+end; // partialBodySize
+
+function ThttpConn.initInputStream():boolean;
+var
+  i: integer;
+  buf: ansistring;
+begin
+result:=FALSE;
+FreeAndNil(stream);
+try
+  case reply.bodyMode of
+    RBM_STRING:
+      begin
+      stream:=TmemoryStream.create();
+      stream.write(reply.body[1], length(reply.body));
+      stream.Seek(0, soFromBeginning);
+      end;
+    RBM_FILE:
+      begin
+      i:=fileopen(reply.body, fmOpenRead+fmShareDenyNone);
+      if i = -1 then exit;
+      stream:=TFileStream.Create(i);
+      end;
+    RBM_STREAM: stream:=reply.bodyStream;
+    end;
+  with reply do
+    if resumeForbidden or (firstByte < 0) and (lastByte < 0) then
+      begin
+      firstByte:=0;
+      lastbyte:=bytesFullBody-1;
+      end
+    else
+      if lastByte < 0 then lastbyte:=bytesFullBody-1
+      else
+        if firstbyte < 0 then
+          begin
+          firstByte:=bytesFullBody-lastByte;
+          lastByte:=bytesFullBody;
+          end;
+
+  if (reply.firstByte > 0) and (reply.mode = HRM_REPLY) then
+    stream.Seek(request.firstByte, soBeginning);
+
+  result:=TRUE;
+except end;
+end; // initInputStream
+
+function ThttpConn.sendNextChunk(max:integer=MAXINT):integer;
+var
+  n: int64;
+  buf: ansistring;
+begin
+result:=0;
+if stream = NIL then exit;
+n:=trunc(speedOut*1.5);
+// the following line helps fast networks to reach max speed sooner.
+// in a test, a 3MB file has been downloaded locally at doubled speed.
+if (n = 0) or (bytesSentLastItem = 0) then n:=max;
+if n > MAXIMUM_CHUNK_SIZE then n:=MAXIMUM_CHUNK_SIZE;
+if n < MINIMUM_CHUNK_SIZE then n:=MINIMUM_CHUNK_SIZE;
+if n > max then n:=max;
+if n > bytesToSend then n:=bytesToSend;
+if n = 0 then exit;
+setLength(buf, n);
+n:=stream.read(buf[1], n);
+setLength(buf, n);
+try result:=sock.SendStr(buf)
+except end; // the socket may be accidentally closed
+if result < n then stream.Seek(n-result, soCurrent);
+end; // sendNextChunk
+
+function ThttpConn.getBytesToSend():int64;
+begin result:=bytesPartial-bsent_body end;
+
+function ThttpConn.getBytesToPost():int64;
+begin result:=post.length-bytesPosted end;
+
+function ThttpConn.getbytesGot():int64;
+begin result:=length(buffer) end;
+
+procedure ThttpConn.notify(ev:ThttpEvent);
+begin srv.notify(ev, self) end;
+
+procedure ThttpConn.tryNotify(ev:ThttpEvent);
+begin try srv.notify(ev, self) except end end;
+
+procedure ThttpConn.sendheader(h:ansistring='');
+begin
+state:=HCS_REPLYING_HEADER;
+if reply.header = '' then
+  reply.header:=h;
+includeTrailingString(reply.header, CRLF);
+reply.header:=reply.header+reply.additionalHeaders;
+includeTrailingString(reply.header, CRLF);
+try sock.sendStr(reply.header+CRLF);
+except end;
+end; // sendHeader
+
+function replycode2reason(code:integer):string;
+begin
+case code of
+  200: result:='OK';
+  206: result:='Partial Content';
+  301: result:='Moved Permanently';
+  302: result:='Found';
+  400: result:='Bad Request';
+  401: result:='Unauthorized';
+  403: result:='Forbidden';
+  404: result:='Not Found';
+  405: result:='Method Not Allowed';
+  413: result:='Payload Too Large';
+  500: result:='Internal Server Error';
+  503: result:='Service Unavailable';
+  else result:='';
+  end;
+end; // replycode2reason
+
+function ThttpConn.replyHeader_code(code:integer):ansistring;
+begin
+if reply.reason = '' then reply.reason:=replycode2reason(code);
+result:=format('HTTP/1.1 %d %s'+CRLF, [code,reply.reason])
+  + replyHeader_Str('Content-Type',reply.contentType)
+end;
+
+function ThttpConn.replyHeader_mode(mode:ThttpReplyMode):ansistring;
+begin result:=replyHeader_code(HRM2CODE[mode]) end;
+
+function getNameOf(s:ansistring):string; // colon included
+begin result:=copy(s, 1, pos(':', s)) end;
+
+// return 0 if not found
+function namePos(name:string; headers:string; from:integer=1):integer;
+begin
+result:=from;
+  repeat
+  result:=ipos(name, headers, result);
+  until (result<=1) // both not found and found at the start of the string
+    or (headers[result-1] = #10) // or start of the line
+end; // namePos
+
+// return true if the operation succeded
+function ThttpConn.setHeaderIfNone(s:string):boolean;
+var
+  name: string;
+begin
+name:=getNameOf(s);
+if name = '' then
+  raise Exception.Create('Missing colon');
+result:=namePos(name, reply.additionalHeaders) = 0; // empty text will also be considered as existing
+if result then
+  addHeader(s, FALSE); // with FALSE it's faster
+end; // setHeaderIfNone
+
+procedure ThttpConn.removeHeader(name:ansistring);
+var
+    i, eol: integer;
+    s: ansistring;
+begin
+s:=reply.additionalHeaders;
+includeTrailingString(name,':');
+// see if it already exists
+i:=1;
+  repeat
+  i:=namePos(name, s, i);
+  if i = 0 then break;
+  // yes it does
+  eol:=posEx(#10, s, i);
+  if eol = 0 then // this never happens, unless the string is corrupted. Just to be sounder.
+    eol:=length(s);
+  delete(s, i, eol-i+1); // remove it
+  until false;
+reply.additionalHeaders:=s;
+end; // removeHeader
+
+procedure ThttpConn.addHeader(s:ansistring; overwrite:boolean=TRUE);
+begin
+if overwrite then
+  removeHeader(getNameOf(s));
+reply.additionalHeaders:=reply.additionalHeaders+ s+CRLF;
+end; // addHeader
+
+function ThttpConn.getDontFree():boolean;
+begin result:=lockCount > 0 end;
+
+procedure ThttpConn.setSndbuf(v:integer);
+begin
+if P_sndBuf = v then exit;
+P_sndBuf:=v;
+WSocket_setsockopt(sock.HSocket, SOL_SOCKET , SO_SNDBUF, @v, SizeOf(v));
+end;
+
+constructor TspeedLimiter.create(max:integer=MAXINT);
+begin maxSpeed:=max end;
+
+procedure TspeedLimiter.setMaxSpeed(v:integer);
+begin
+P_maxSpeed:=v;
+availableBandwidth:=min(availableBandwidth, v);
+end;
+
+INITIALIZATION
+queryPerformanceFrequency(freq);
+
+end.
diff --git a/invertban.txt b/invertban.txt
new file mode 100644
index 0000000..3a09c9d
--- /dev/null
+++ b/invertban.txt
@@ -0,0 +1,10 @@
+This is already explained in the docs, but people don't read docs.
+If you want to allow only specified addresses to access your files, you can.
+You need only 1 row to get it.
+
+Let say you want 1 and 2 to pass, others to be blocked.
+Just put this IP address mask: \1;2
+The opening \ character inverts the logic, so everything that is NOT 1 or 2 will be banned.
+E.g. 3 will be banned.
+
+If you want to know more about address masks, check the guide.
diff --git a/ipsEverDlg.dfm b/ipsEverDlg.dfm
new file mode 100644
index 0000000..5696101
--- /dev/null
+++ b/ipsEverDlg.dfm
@@ -0,0 +1,63 @@
+object ipsEverFrm: TipsEverFrm
+  Left = 0
+  Top = 0
+  BorderStyle = bsDialog
+  Caption = 'Addresses ever connected'
+  ClientHeight = 275
+  ClientWidth = 286
+  Color = clBtnFace
+  Constraints.MaxHeight = 300
+  Constraints.MinHeight = 300
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnShow = FormShow
+  DesignSize = (
+    286
+    275)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object totalLbl: TLabel
+    Left = 197
+    Top = 253
+    Width = 61
+    Height = 13
+    Anchors = [akLeft]
+    Caption = 'Total label...'
+  end
+  object ipsBox: TMemo
+    Left = 0
+    Top = 0
+    Width = 286
+    Height = 242
+    Align = alTop
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    ReadOnly = True
+    ScrollBars = ssVertical
+    TabOrder = 0
+  end
+  object resetBtn: TButton
+    Left = 114
+    Top = 248
+    Width = 75
+    Height = 25
+    Anchors = [akLeft]
+    Caption = '&Reset'
+    TabOrder = 1
+    OnClick = resetBtnClick
+  end
+  object editBtn: TButton
+    Left = 8
+    Top = 248
+    Width = 95
+    Height = 25
+    Anchors = [akLeft]
+    Caption = '&Open in editor'
+    TabOrder = 2
+    OnClick = editBtnClick
+  end
+end
diff --git a/ipsEverDlg.pas b/ipsEverDlg.pas
new file mode 100644
index 0000000..ac36834
--- /dev/null
+++ b/ipsEverDlg.pas
@@ -0,0 +1,60 @@
+unit ipsEverDlg;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls;
+
+type
+  TipsEverFrm = class(TForm)
+    ipsBox: TMemo;
+    resetBtn: TButton;
+    totalLbl: TLabel;
+    editBtn: TButton;
+    procedure resetBtnClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure editBtnClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    procedure refreshData();
+    { Public declarations }
+  end;
+
+var
+  ipsEverFrm: TipsEverFrm;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  main, utilLib;
+
+procedure TipsEverFrm.resetBtnClick(Sender: TObject);
+begin
+ipsEverConnected.clear();
+refreshData();
+end;
+
+procedure TipsEverFrm.editBtnClick(Sender: TObject);
+var
+  fn: string;
+begin
+fn:=saveTempFile(ipsEverConnected.text);
+if renameFile(fn, fn+'.txt') then exec(fn+'.txt')
+else msgDlg(MSG_NO_TEMP, MB_ICONERROR);
+end;
+
+procedure TipsEverFrm.FormShow(Sender: TObject);
+begin refreshData() end;
+
+procedure TipsEverFrm.refreshData();
+begin
+ipsBox.text:=ipsEverConnected.text;
+totalLbl.caption:=format('Total: %d', [ipsEverConnected.count]);
+repaintTray();
+end; // refreshData
+
+end.
diff --git a/ipservices.txt b/ipservices.txt
new file mode 100644
index 0000000..be9fd46
--- /dev/null
+++ b/ipservices.txt
@@ -0,0 +1,2 @@
+http://hfsservice.rejetto.com/ip.php|!
+http://checkip.dyndns.org|:
diff --git a/jquery.min.js b/jquery.min.js
new file mode 100644
index 0000000..18183c2
--- /dev/null
+++ b/jquery.min.js
@@ -0,0 +1,7 @@
+/*! jQuery v1.12.4 | (c) jQuery Foundation | jquery.org/license */
+!function(a,b){"object"==typeof module&&"object"==typeof module.exports?module.exports=a.document?b(a,!0):function(a){if(!a.document)throw new Error("jQuery requires a window with a document");return b(a)}:b(a)}("undefined"!=typeof window?window:this,function(a,b){var c=[],d=a.document,e=c.slice,f=c.concat,g=c.push,h=c.indexOf,i={},j=i.toString,k=i.hasOwnProperty,l={},m="1.12.4",n=function(a,b){return new n.fn.init(a,b)},o=/^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g,p=/^-ms-/,q=/-([\da-z])/gi,r=function(a,b){return b.toUpperCase()};n.fn=n.prototype={jquery:m,constructor:n,selector:"",length:0,toArray:function(){return e.call(this)},get:function(a){return null!=a?0>a?this[a+this.length]:this[a]:e.call(this)},pushStack:function(a){var b=n.merge(this.constructor(),a);return b.prevObject=this,b.context=this.context,b},each:function(a){return n.each(this,a)},map:function(a){return this.pushStack(n.map(this,function(b,c){return a.call(b,c,b)}))},slice:function(){return this.pushStack(e.apply(this,arguments))},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},eq:function(a){var b=this.length,c=+a+(0>a?b:0);return this.pushStack(c>=0&&b>c?[this[c]]:[])},end:function(){return this.prevObject||this.constructor()},push:g,sort:c.sort,splice:c.splice},n.extend=n.fn.extend=function(){var a,b,c,d,e,f,g=arguments[0]||{},h=1,i=arguments.length,j=!1;for("boolean"==typeof g&&(j=g,g=arguments[h]||{},h++),"object"==typeof g||n.isFunction(g)||(g={}),h===i&&(g=this,h--);i>h;h++)if(null!=(e=arguments[h]))for(d in e)a=g[d],c=e[d],g!==c&&(j&&c&&(n.isPlainObject(c)||(b=n.isArray(c)))?(b?(b=!1,f=a&&n.isArray(a)?a:[]):f=a&&n.isPlainObject(a)?a:{},g[d]=n.extend(j,f,c)):void 0!==c&&(g[d]=c));return g},n.extend({expando:"jQuery"+(m+Math.random()).replace(/\D/g,""),isReady:!0,error:function(a){throw new Error(a)},noop:function(){},isFunction:function(a){return"function"===n.type(a)},isArray:Array.isArray||function(a){return"array"===n.type(a)},isWindow:function(a){return null!=a&&a==a.window},isNumeric:function(a){var b=a&&a.toString();return!n.isArray(a)&&b-parseFloat(b)+1>=0},isEmptyObject:function(a){var b;for(b in a)return!1;return!0},isPlainObject:function(a){var b;if(!a||"object"!==n.type(a)||a.nodeType||n.isWindow(a))return!1;try{if(a.constructor&&!k.call(a,"constructor")&&!k.call(a.constructor.prototype,"isPrototypeOf"))return!1}catch(c){return!1}if(!l.ownFirst)for(b in a)return k.call(a,b);for(b in a);return void 0===b||k.call(a,b)},type:function(a){return null==a?a+"":"object"==typeof a||"function"==typeof a?i[j.call(a)]||"object":typeof a},globalEval:function(b){b&&n.trim(b)&&(a.execScript||function(b){a.eval.call(a,b)})(b)},camelCase:function(a){return a.replace(p,"ms-").replace(q,r)},nodeName:function(a,b){return a.nodeName&&a.nodeName.toLowerCase()===b.toLowerCase()},each:function(a,b){var c,d=0;if(s(a)){for(c=a.length;c>d;d++)if(b.call(a[d],d,a[d])===!1)break}else for(d in a)if(b.call(a[d],d,a[d])===!1)break;return a},trim:function(a){return null==a?"":(a+"").replace(o,"")},makeArray:function(a,b){var c=b||[];return null!=a&&(s(Object(a))?n.merge(c,"string"==typeof a?[a]:a):g.call(c,a)),c},inArray:function(a,b,c){var d;if(b){if(h)return h.call(b,a,c);for(d=b.length,c=c?0>c?Math.max(0,d+c):c:0;d>c;c++)if(c in b&&b[c]===a)return c}return-1},merge:function(a,b){var c=+b.length,d=0,e=a.length;while(c>d)a[e++]=b[d++];if(c!==c)while(void 0!==b[d])a[e++]=b[d++];return a.length=e,a},grep:function(a,b,c){for(var d,e=[],f=0,g=a.length,h=!c;g>f;f++)d=!b(a[f],f),d!==h&&e.push(a[f]);return e},map:function(a,b,c){var d,e,g=0,h=[];if(s(a))for(d=a.length;d>g;g++)e=b(a[g],g,c),null!=e&&h.push(e);else for(g in a)e=b(a[g],g,c),null!=e&&h.push(e);return f.apply([],h)},guid:1,proxy:function(a,b){var c,d,f;return"string"==typeof b&&(f=a[b],b=a,a=f),n.isFunction(a)?(c=e.call(arguments,2),d=function(){return a.apply(b||this,c.concat(e.call(arguments)))},d.guid=a.guid=a.guid||n.guid++,d):void 0},now:function(){return+new Date},support:l}),"function"==typeof Symbol&&(n.fn[Symbol.iterator]=c[Symbol.iterator]),n.each("Boolean Number String Function Array Date RegExp Object Error Symbol".split(" "),function(a,b){i["[object "+b+"]"]=b.toLowerCase()});function s(a){var b=!!a&&"length"in a&&a.length,c=n.type(a);return"function"===c||n.isWindow(a)?!1:"array"===c||0===b||"number"==typeof b&&b>0&&b-1 in a}var t=function(a){var b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u="sizzle"+1*new Date,v=a.document,w=0,x=0,y=ga(),z=ga(),A=ga(),B=function(a,b){return a===b&&(l=!0),0},C=1<<31,D={}.hasOwnProperty,E=[],F=E.pop,G=E.push,H=E.push,I=E.slice,J=function(a,b){for(var c=0,d=a.length;d>c;c++)if(a[c]===b)return c;return-1},K="checked|selected|async|autofocus|autoplay|controls|defer|disabled|hidden|ismap|loop|multiple|open|readonly|required|scoped",L="[\\x20\\t\\r\\n\\f]",M="(?:\\\\.|[\\w-]|[^\\x00-\\xa0])+",N="\\["+L+"*("+M+")(?:"+L+"*([*^$|!~]?=)"+L+"*(?:'((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\"|("+M+"))|)"+L+"*\\]",O=":("+M+")(?:\\((('((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\")|((?:\\\\.|[^\\\\()[\\]]|"+N+")*)|.*)\\)|)",P=new RegExp(L+"+","g"),Q=new RegExp("^"+L+"+|((?:^|[^\\\\])(?:\\\\.)*)"+L+"+$","g"),R=new RegExp("^"+L+"*,"+L+"*"),S=new RegExp("^"+L+"*([>+~]|"+L+")"+L+"*"),T=new RegExp("="+L+"*([^\\]'\"]*?)"+L+"*\\]","g"),U=new RegExp(O),V=new RegExp("^"+M+"$"),W={ID:new RegExp("^#("+M+")"),CLASS:new RegExp("^\\.("+M+")"),TAG:new RegExp("^("+M+"|[*])"),ATTR:new RegExp("^"+N),PSEUDO:new RegExp("^"+O),CHILD:new RegExp("^:(only|first|last|nth|nth-last)-(child|of-type)(?:\\("+L+"*(even|odd|(([+-]|)(\\d*)n|)"+L+"*(?:([+-]|)"+L+"*(\\d+)|))"+L+"*\\)|)","i"),bool:new RegExp("^(?:"+K+")$","i"),needsContext:new RegExp("^"+L+"*[>+~]|:(even|odd|eq|gt|lt|nth|first|last)(?:\\("+L+"*((?:-\\d)?\\d*)"+L+"*\\)|)(?=[^-]|$)","i")},X=/^(?:input|select|textarea|button)$/i,Y=/^h\d$/i,Z=/^[^{]+\{\s*\[native \w/,$=/^(?:#([\w-]+)|(\w+)|\.([\w-]+))$/,_=/[+~]/,aa=/'|\\/g,ba=new RegExp("\\\\([\\da-f]{1,6}"+L+"?|("+L+")|.)","ig"),ca=function(a,b,c){var d="0x"+b-65536;return d!==d||c?b:0>d?String.fromCharCode(d+65536):String.fromCharCode(d>>10|55296,1023&d|56320)},da=function(){m()};try{H.apply(E=I.call(v.childNodes),v.childNodes),E[v.childNodes.length].nodeType}catch(ea){H={apply:E.length?function(a,b){G.apply(a,I.call(b))}:function(a,b){var c=a.length,d=0;while(a[c++]=b[d++]);a.length=c-1}}}function fa(a,b,d,e){var f,h,j,k,l,o,r,s,w=b&&b.ownerDocument,x=b?b.nodeType:9;if(d=d||[],"string"!=typeof a||!a||1!==x&&9!==x&&11!==x)return d;if(!e&&((b?b.ownerDocument||b:v)!==n&&m(b),b=b||n,p)){if(11!==x&&(o=$.exec(a)))if(f=o[1]){if(9===x){if(!(j=b.getElementById(f)))return d;if(j.id===f)return d.push(j),d}else if(w&&(j=w.getElementById(f))&&t(b,j)&&j.id===f)return d.push(j),d}else{if(o[2])return H.apply(d,b.getElementsByTagName(a)),d;if((f=o[3])&&c.getElementsByClassName&&b.getElementsByClassName)return H.apply(d,b.getElementsByClassName(f)),d}if(c.qsa&&!A[a+" "]&&(!q||!q.test(a))){if(1!==x)w=b,s=a;else if("object"!==b.nodeName.toLowerCase()){(k=b.getAttribute("id"))?k=k.replace(aa,"\\$&"):b.setAttribute("id",k=u),r=g(a),h=r.length,l=V.test(k)?"#"+k:"[id='"+k+"']";while(h--)r[h]=l+" "+qa(r[h]);s=r.join(","),w=_.test(a)&&oa(b.parentNode)||b}if(s)try{return H.apply(d,w.querySelectorAll(s)),d}catch(y){}finally{k===u&&b.removeAttribute("id")}}}return i(a.replace(Q,"$1"),b,d,e)}function ga(){var a=[];function b(c,e){return a.push(c+" ")>d.cacheLength&&delete b[a.shift()],b[c+" "]=e}return b}function ha(a){return a[u]=!0,a}function ia(a){var b=n.createElement("div");try{return!!a(b)}catch(c){return!1}finally{b.parentNode&&b.parentNode.removeChild(b),b=null}}function ja(a,b){var c=a.split("|"),e=c.length;while(e--)d.attrHandle[c[e]]=b}function ka(a,b){var c=b&&a,d=c&&1===a.nodeType&&1===b.nodeType&&(~b.sourceIndex||C)-(~a.sourceIndex||C);if(d)return d;if(c)while(c=c.nextSibling)if(c===b)return-1;return a?1:-1}function la(a){return function(b){var c=b.nodeName.toLowerCase();return"input"===c&&b.type===a}}function ma(a){return function(b){var c=b.nodeName.toLowerCase();return("input"===c||"button"===c)&&b.type===a}}function na(a){return ha(function(b){return b=+b,ha(function(c,d){var e,f=a([],c.length,b),g=f.length;while(g--)c[e=f[g]]&&(c[e]=!(d[e]=c[e]))})})}function oa(a){return a&&"undefined"!=typeof a.getElementsByTagName&&a}c=fa.support={},f=fa.isXML=function(a){var b=a&&(a.ownerDocument||a).documentElement;return b?"HTML"!==b.nodeName:!1},m=fa.setDocument=function(a){var b,e,g=a?a.ownerDocument||a:v;return g!==n&&9===g.nodeType&&g.documentElement?(n=g,o=n.documentElement,p=!f(n),(e=n.defaultView)&&e.top!==e&&(e.addEventListener?e.addEventListener("unload",da,!1):e.attachEvent&&e.attachEvent("onunload",da)),c.attributes=ia(function(a){return a.className="i",!a.getAttribute("className")}),c.getElementsByTagName=ia(function(a){return a.appendChild(n.createComment("")),!a.getElementsByTagName("*").length}),c.getElementsByClassName=Z.test(n.getElementsByClassName),c.getById=ia(function(a){return o.appendChild(a).id=u,!n.getElementsByName||!n.getElementsByName(u).length}),c.getById?(d.find.ID=function(a,b){if("undefined"!=typeof b.getElementById&&p){var c=b.getElementById(a);return c?[c]:[]}},d.filter.ID=function(a){var b=a.replace(ba,ca);return function(a){return a.getAttribute("id")===b}}):(delete d.find.ID,d.filter.ID=function(a){var b=a.replace(ba,ca);return function(a){var c="undefined"!=typeof a.getAttributeNode&&a.getAttributeNode("id");return c&&c.value===b}}),d.find.TAG=c.getElementsByTagName?function(a,b){return"undefined"!=typeof b.getElementsByTagName?b.getElementsByTagName(a):c.qsa?b.querySelectorAll(a):void 0}:function(a,b){var c,d=[],e=0,f=b.getElementsByTagName(a);if("*"===a){while(c=f[e++])1===c.nodeType&&d.push(c);return d}return f},d.find.CLASS=c.getElementsByClassName&&function(a,b){return"undefined"!=typeof b.getElementsByClassName&&p?b.getElementsByClassName(a):void 0},r=[],q=[],(c.qsa=Z.test(n.querySelectorAll))&&(ia(function(a){o.appendChild(a).innerHTML="<a id='"+u+"'></a><select id='"+u+"-\r\\' msallowcapture=''><option selected=''></option></select>",a.querySelectorAll("[msallowcapture^='']").length&&q.push("[*^$]="+L+"*(?:''|\"\")"),a.querySelectorAll("[selected]").length||q.push("\\["+L+"*(?:value|"+K+")"),a.querySelectorAll("[id~="+u+"-]").length||q.push("~="),a.querySelectorAll(":checked").length||q.push(":checked"),a.querySelectorAll("a#"+u+"+*").length||q.push(".#.+[+~]")}),ia(function(a){var b=n.createElement("input");b.setAttribute("type","hidden"),a.appendChild(b).setAttribute("name","D"),a.querySelectorAll("[name=d]").length&&q.push("name"+L+"*[*^$|!~]?="),a.querySelectorAll(":enabled").length||q.push(":enabled",":disabled"),a.querySelectorAll("*,:x"),q.push(",.*:")})),(c.matchesSelector=Z.test(s=o.matches||o.webkitMatchesSelector||o.mozMatchesSelector||o.oMatchesSelector||o.msMatchesSelector))&&ia(function(a){c.disconnectedMatch=s.call(a,"div"),s.call(a,"[s!='']:x"),r.push("!=",O)}),q=q.length&&new RegExp(q.join("|")),r=r.length&&new RegExp(r.join("|")),b=Z.test(o.compareDocumentPosition),t=b||Z.test(o.contains)?function(a,b){var c=9===a.nodeType?a.documentElement:a,d=b&&b.parentNode;return a===d||!(!d||1!==d.nodeType||!(c.contains?c.contains(d):a.compareDocumentPosition&&16&a.compareDocumentPosition(d)))}:function(a,b){if(b)while(b=b.parentNode)if(b===a)return!0;return!1},B=b?function(a,b){if(a===b)return l=!0,0;var d=!a.compareDocumentPosition-!b.compareDocumentPosition;return d?d:(d=(a.ownerDocument||a)===(b.ownerDocument||b)?a.compareDocumentPosition(b):1,1&d||!c.sortDetached&&b.compareDocumentPosition(a)===d?a===n||a.ownerDocument===v&&t(v,a)?-1:b===n||b.ownerDocument===v&&t(v,b)?1:k?J(k,a)-J(k,b):0:4&d?-1:1)}:function(a,b){if(a===b)return l=!0,0;var c,d=0,e=a.parentNode,f=b.parentNode,g=[a],h=[b];if(!e||!f)return a===n?-1:b===n?1:e?-1:f?1:k?J(k,a)-J(k,b):0;if(e===f)return ka(a,b);c=a;while(c=c.parentNode)g.unshift(c);c=b;while(c=c.parentNode)h.unshift(c);while(g[d]===h[d])d++;return d?ka(g[d],h[d]):g[d]===v?-1:h[d]===v?1:0},n):n},fa.matches=function(a,b){return fa(a,null,null,b)},fa.matchesSelector=function(a,b){if((a.ownerDocument||a)!==n&&m(a),b=b.replace(T,"='$1']"),c.matchesSelector&&p&&!A[b+" "]&&(!r||!r.test(b))&&(!q||!q.test(b)))try{var d=s.call(a,b);if(d||c.disconnectedMatch||a.document&&11!==a.document.nodeType)return d}catch(e){}return fa(b,n,null,[a]).length>0},fa.contains=function(a,b){return(a.ownerDocument||a)!==n&&m(a),t(a,b)},fa.attr=function(a,b){(a.ownerDocument||a)!==n&&m(a);var e=d.attrHandle[b.toLowerCase()],f=e&&D.call(d.attrHandle,b.toLowerCase())?e(a,b,!p):void 0;return void 0!==f?f:c.attributes||!p?a.getAttribute(b):(f=a.getAttributeNode(b))&&f.specified?f.value:null},fa.error=function(a){throw new Error("Syntax error, unrecognized expression: "+a)},fa.uniqueSort=function(a){var b,d=[],e=0,f=0;if(l=!c.detectDuplicates,k=!c.sortStable&&a.slice(0),a.sort(B),l){while(b=a[f++])b===a[f]&&(e=d.push(f));while(e--)a.splice(d[e],1)}return k=null,a},e=fa.getText=function(a){var b,c="",d=0,f=a.nodeType;if(f){if(1===f||9===f||11===f){if("string"==typeof a.textContent)return a.textContent;for(a=a.firstChild;a;a=a.nextSibling)c+=e(a)}else if(3===f||4===f)return a.nodeValue}else while(b=a[d++])c+=e(b);return c},d=fa.selectors={cacheLength:50,createPseudo:ha,match:W,attrHandle:{},find:{},relative:{">":{dir:"parentNode",first:!0}," ":{dir:"parentNode"},"+":{dir:"previousSibling",first:!0},"~":{dir:"previousSibling"}},preFilter:{ATTR:function(a){return a[1]=a[1].replace(ba,ca),a[3]=(a[3]||a[4]||a[5]||"").replace(ba,ca),"~="===a[2]&&(a[3]=" "+a[3]+" "),a.slice(0,4)},CHILD:function(a){return a[1]=a[1].toLowerCase(),"nth"===a[1].slice(0,3)?(a[3]||fa.error(a[0]),a[4]=+(a[4]?a[5]+(a[6]||1):2*("even"===a[3]||"odd"===a[3])),a[5]=+(a[7]+a[8]||"odd"===a[3])):a[3]&&fa.error(a[0]),a},PSEUDO:function(a){var b,c=!a[6]&&a[2];return W.CHILD.test(a[0])?null:(a[3]?a[2]=a[4]||a[5]||"":c&&U.test(c)&&(b=g(c,!0))&&(b=c.indexOf(")",c.length-b)-c.length)&&(a[0]=a[0].slice(0,b),a[2]=c.slice(0,b)),a.slice(0,3))}},filter:{TAG:function(a){var b=a.replace(ba,ca).toLowerCase();return"*"===a?function(){return!0}:function(a){return a.nodeName&&a.nodeName.toLowerCase()===b}},CLASS:function(a){var b=y[a+" "];return b||(b=new RegExp("(^|"+L+")"+a+"("+L+"|$)"))&&y(a,function(a){return b.test("string"==typeof a.className&&a.className||"undefined"!=typeof a.getAttribute&&a.getAttribute("class")||"")})},ATTR:function(a,b,c){return function(d){var e=fa.attr(d,a);return null==e?"!="===b:b?(e+="","="===b?e===c:"!="===b?e!==c:"^="===b?c&&0===e.indexOf(c):"*="===b?c&&e.indexOf(c)>-1:"$="===b?c&&e.slice(-c.length)===c:"~="===b?(" "+e.replace(P," ")+" ").indexOf(c)>-1:"|="===b?e===c||e.slice(0,c.length+1)===c+"-":!1):!0}},CHILD:function(a,b,c,d,e){var f="nth"!==a.slice(0,3),g="last"!==a.slice(-4),h="of-type"===b;return 1===d&&0===e?function(a){return!!a.parentNode}:function(b,c,i){var j,k,l,m,n,o,p=f!==g?"nextSibling":"previousSibling",q=b.parentNode,r=h&&b.nodeName.toLowerCase(),s=!i&&!h,t=!1;if(q){if(f){while(p){m=b;while(m=m[p])if(h?m.nodeName.toLowerCase()===r:1===m.nodeType)return!1;o=p="only"===a&&!o&&"nextSibling"}return!0}if(o=[g?q.firstChild:q.lastChild],g&&s){m=q,l=m[u]||(m[u]={}),k=l[m.uniqueID]||(l[m.uniqueID]={}),j=k[a]||[],n=j[0]===w&&j[1],t=n&&j[2],m=n&&q.childNodes[n];while(m=++n&&m&&m[p]||(t=n=0)||o.pop())if(1===m.nodeType&&++t&&m===b){k[a]=[w,n,t];break}}else if(s&&(m=b,l=m[u]||(m[u]={}),k=l[m.uniqueID]||(l[m.uniqueID]={}),j=k[a]||[],n=j[0]===w&&j[1],t=n),t===!1)while(m=++n&&m&&m[p]||(t=n=0)||o.pop())if((h?m.nodeName.toLowerCase()===r:1===m.nodeType)&&++t&&(s&&(l=m[u]||(m[u]={}),k=l[m.uniqueID]||(l[m.uniqueID]={}),k[a]=[w,t]),m===b))break;return t-=e,t===d||t%d===0&&t/d>=0}}},PSEUDO:function(a,b){var c,e=d.pseudos[a]||d.setFilters[a.toLowerCase()]||fa.error("unsupported pseudo: "+a);return e[u]?e(b):e.length>1?(c=[a,a,"",b],d.setFilters.hasOwnProperty(a.toLowerCase())?ha(function(a,c){var d,f=e(a,b),g=f.length;while(g--)d=J(a,f[g]),a[d]=!(c[d]=f[g])}):function(a){return e(a,0,c)}):e}},pseudos:{not:ha(function(a){var b=[],c=[],d=h(a.replace(Q,"$1"));return d[u]?ha(function(a,b,c,e){var f,g=d(a,null,e,[]),h=a.length;while(h--)(f=g[h])&&(a[h]=!(b[h]=f))}):function(a,e,f){return b[0]=a,d(b,null,f,c),b[0]=null,!c.pop()}}),has:ha(function(a){return function(b){return fa(a,b).length>0}}),contains:ha(function(a){return a=a.replace(ba,ca),function(b){return(b.textContent||b.innerText||e(b)).indexOf(a)>-1}}),lang:ha(function(a){return V.test(a||"")||fa.error("unsupported lang: "+a),a=a.replace(ba,ca).toLowerCase(),function(b){var c;do if(c=p?b.lang:b.getAttribute("xml:lang")||b.getAttribute("lang"))return c=c.toLowerCase(),c===a||0===c.indexOf(a+"-");while((b=b.parentNode)&&1===b.nodeType);return!1}}),target:function(b){var c=a.location&&a.location.hash;return c&&c.slice(1)===b.id},root:function(a){return a===o},focus:function(a){return a===n.activeElement&&(!n.hasFocus||n.hasFocus())&&!!(a.type||a.href||~a.tabIndex)},enabled:function(a){return a.disabled===!1},disabled:function(a){return a.disabled===!0},checked:function(a){var b=a.nodeName.toLowerCase();return"input"===b&&!!a.checked||"option"===b&&!!a.selected},selected:function(a){return a.parentNode&&a.parentNode.selectedIndex,a.selected===!0},empty:function(a){for(a=a.firstChild;a;a=a.nextSibling)if(a.nodeType<6)return!1;return!0},parent:function(a){return!d.pseudos.empty(a)},header:function(a){return Y.test(a.nodeName)},input:function(a){return X.test(a.nodeName)},button:function(a){var b=a.nodeName.toLowerCase();return"input"===b&&"button"===a.type||"button"===b},text:function(a){var b;return"input"===a.nodeName.toLowerCase()&&"text"===a.type&&(null==(b=a.getAttribute("type"))||"text"===b.toLowerCase())},first:na(function(){return[0]}),last:na(function(a,b){return[b-1]}),eq:na(function(a,b,c){return[0>c?c+b:c]}),even:na(function(a,b){for(var c=0;b>c;c+=2)a.push(c);return a}),odd:na(function(a,b){for(var c=1;b>c;c+=2)a.push(c);return a}),lt:na(function(a,b,c){for(var d=0>c?c+b:c;--d>=0;)a.push(d);return a}),gt:na(function(a,b,c){for(var d=0>c?c+b:c;++d<b;)a.push(d);return a})}},d.pseudos.nth=d.pseudos.eq;for(b in{radio:!0,checkbox:!0,file:!0,password:!0,image:!0})d.pseudos[b]=la(b);for(b in{submit:!0,reset:!0})d.pseudos[b]=ma(b);function pa(){}pa.prototype=d.filters=d.pseudos,d.setFilters=new pa,g=fa.tokenize=function(a,b){var c,e,f,g,h,i,j,k=z[a+" "];if(k)return b?0:k.slice(0);h=a,i=[],j=d.preFilter;while(h){c&&!(e=R.exec(h))||(e&&(h=h.slice(e[0].length)||h),i.push(f=[])),c=!1,(e=S.exec(h))&&(c=e.shift(),f.push({value:c,type:e[0].replace(Q," ")}),h=h.slice(c.length));for(g in d.filter)!(e=W[g].exec(h))||j[g]&&!(e=j[g](e))||(c=e.shift(),f.push({value:c,type:g,matches:e}),h=h.slice(c.length));if(!c)break}return b?h.length:h?fa.error(a):z(a,i).slice(0)};function qa(a){for(var b=0,c=a.length,d="";c>b;b++)d+=a[b].value;return d}function ra(a,b,c){var d=b.dir,e=c&&"parentNode"===d,f=x++;return b.first?function(b,c,f){while(b=b[d])if(1===b.nodeType||e)return a(b,c,f)}:function(b,c,g){var h,i,j,k=[w,f];if(g){while(b=b[d])if((1===b.nodeType||e)&&a(b,c,g))return!0}else while(b=b[d])if(1===b.nodeType||e){if(j=b[u]||(b[u]={}),i=j[b.uniqueID]||(j[b.uniqueID]={}),(h=i[d])&&h[0]===w&&h[1]===f)return k[2]=h[2];if(i[d]=k,k[2]=a(b,c,g))return!0}}}function sa(a){return a.length>1?function(b,c,d){var e=a.length;while(e--)if(!a[e](b,c,d))return!1;return!0}:a[0]}function ta(a,b,c){for(var d=0,e=b.length;e>d;d++)fa(a,b[d],c);return c}function ua(a,b,c,d,e){for(var f,g=[],h=0,i=a.length,j=null!=b;i>h;h++)(f=a[h])&&(c&&!c(f,d,e)||(g.push(f),j&&b.push(h)));return g}function va(a,b,c,d,e,f){return d&&!d[u]&&(d=va(d)),e&&!e[u]&&(e=va(e,f)),ha(function(f,g,h,i){var j,k,l,m=[],n=[],o=g.length,p=f||ta(b||"*",h.nodeType?[h]:h,[]),q=!a||!f&&b?p:ua(p,m,a,h,i),r=c?e||(f?a:o||d)?[]:g:q;if(c&&c(q,r,h,i),d){j=ua(r,n),d(j,[],h,i),k=j.length;while(k--)(l=j[k])&&(r[n[k]]=!(q[n[k]]=l))}if(f){if(e||a){if(e){j=[],k=r.length;while(k--)(l=r[k])&&j.push(q[k]=l);e(null,r=[],j,i)}k=r.length;while(k--)(l=r[k])&&(j=e?J(f,l):m[k])>-1&&(f[j]=!(g[j]=l))}}else r=ua(r===g?r.splice(o,r.length):r),e?e(null,g,r,i):H.apply(g,r)})}function wa(a){for(var b,c,e,f=a.length,g=d.relative[a[0].type],h=g||d.relative[" "],i=g?1:0,k=ra(function(a){return a===b},h,!0),l=ra(function(a){return J(b,a)>-1},h,!0),m=[function(a,c,d){var e=!g&&(d||c!==j)||((b=c).nodeType?k(a,c,d):l(a,c,d));return b=null,e}];f>i;i++)if(c=d.relative[a[i].type])m=[ra(sa(m),c)];else{if(c=d.filter[a[i].type].apply(null,a[i].matches),c[u]){for(e=++i;f>e;e++)if(d.relative[a[e].type])break;return va(i>1&&sa(m),i>1&&qa(a.slice(0,i-1).concat({value:" "===a[i-2].type?"*":""})).replace(Q,"$1"),c,e>i&&wa(a.slice(i,e)),f>e&&wa(a=a.slice(e)),f>e&&qa(a))}m.push(c)}return sa(m)}function xa(a,b){var c=b.length>0,e=a.length>0,f=function(f,g,h,i,k){var l,o,q,r=0,s="0",t=f&&[],u=[],v=j,x=f||e&&d.find.TAG("*",k),y=w+=null==v?1:Math.random()||.1,z=x.length;for(k&&(j=g===n||g||k);s!==z&&null!=(l=x[s]);s++){if(e&&l){o=0,g||l.ownerDocument===n||(m(l),h=!p);while(q=a[o++])if(q(l,g||n,h)){i.push(l);break}k&&(w=y)}c&&((l=!q&&l)&&r--,f&&t.push(l))}if(r+=s,c&&s!==r){o=0;while(q=b[o++])q(t,u,g,h);if(f){if(r>0)while(s--)t[s]||u[s]||(u[s]=F.call(i));u=ua(u)}H.apply(i,u),k&&!f&&u.length>0&&r+b.length>1&&fa.uniqueSort(i)}return k&&(w=y,j=v),t};return c?ha(f):f}return h=fa.compile=function(a,b){var c,d=[],e=[],f=A[a+" "];if(!f){b||(b=g(a)),c=b.length;while(c--)f=wa(b[c]),f[u]?d.push(f):e.push(f);f=A(a,xa(e,d)),f.selector=a}return f},i=fa.select=function(a,b,e,f){var i,j,k,l,m,n="function"==typeof a&&a,o=!f&&g(a=n.selector||a);if(e=e||[],1===o.length){if(j=o[0]=o[0].slice(0),j.length>2&&"ID"===(k=j[0]).type&&c.getById&&9===b.nodeType&&p&&d.relative[j[1].type]){if(b=(d.find.ID(k.matches[0].replace(ba,ca),b)||[])[0],!b)return e;n&&(b=b.parentNode),a=a.slice(j.shift().value.length)}i=W.needsContext.test(a)?0:j.length;while(i--){if(k=j[i],d.relative[l=k.type])break;if((m=d.find[l])&&(f=m(k.matches[0].replace(ba,ca),_.test(j[0].type)&&oa(b.parentNode)||b))){if(j.splice(i,1),a=f.length&&qa(j),!a)return H.apply(e,f),e;break}}}return(n||h(a,o))(f,b,!p,e,!b||_.test(a)&&oa(b.parentNode)||b),e},c.sortStable=u.split("").sort(B).join("")===u,c.detectDuplicates=!!l,m(),c.sortDetached=ia(function(a){return 1&a.compareDocumentPosition(n.createElement("div"))}),ia(function(a){return a.innerHTML="<a href='#'></a>","#"===a.firstChild.getAttribute("href")})||ja("type|href|height|width",function(a,b,c){return c?void 0:a.getAttribute(b,"type"===b.toLowerCase()?1:2)}),c.attributes&&ia(function(a){return a.innerHTML="<input/>",a.firstChild.setAttribute("value",""),""===a.firstChild.getAttribute("value")})||ja("value",function(a,b,c){return c||"input"!==a.nodeName.toLowerCase()?void 0:a.defaultValue}),ia(function(a){return null==a.getAttribute("disabled")})||ja(K,function(a,b,c){var d;return c?void 0:a[b]===!0?b.toLowerCase():(d=a.getAttributeNode(b))&&d.specified?d.value:null}),fa}(a);n.find=t,n.expr=t.selectors,n.expr[":"]=n.expr.pseudos,n.uniqueSort=n.unique=t.uniqueSort,n.text=t.getText,n.isXMLDoc=t.isXML,n.contains=t.contains;var u=function(a,b,c){var d=[],e=void 0!==c;while((a=a[b])&&9!==a.nodeType)if(1===a.nodeType){if(e&&n(a).is(c))break;d.push(a)}return d},v=function(a,b){for(var c=[];a;a=a.nextSibling)1===a.nodeType&&a!==b&&c.push(a);return c},w=n.expr.match.needsContext,x=/^<([\w-]+)\s*\/?>(?:<\/\1>|)$/,y=/^.[^:#\[\.,]*$/;function z(a,b,c){if(n.isFunction(b))return n.grep(a,function(a,d){return!!b.call(a,d,a)!==c});if(b.nodeType)return n.grep(a,function(a){return a===b!==c});if("string"==typeof b){if(y.test(b))return n.filter(b,a,c);b=n.filter(b,a)}return n.grep(a,function(a){return n.inArray(a,b)>-1!==c})}n.filter=function(a,b,c){var d=b[0];return c&&(a=":not("+a+")"),1===b.length&&1===d.nodeType?n.find.matchesSelector(d,a)?[d]:[]:n.find.matches(a,n.grep(b,function(a){return 1===a.nodeType}))},n.fn.extend({find:function(a){var b,c=[],d=this,e=d.length;if("string"!=typeof a)return this.pushStack(n(a).filter(function(){for(b=0;e>b;b++)if(n.contains(d[b],this))return!0}));for(b=0;e>b;b++)n.find(a,d[b],c);return c=this.pushStack(e>1?n.unique(c):c),c.selector=this.selector?this.selector+" "+a:a,c},filter:function(a){return this.pushStack(z(this,a||[],!1))},not:function(a){return this.pushStack(z(this,a||[],!0))},is:function(a){return!!z(this,"string"==typeof a&&w.test(a)?n(a):a||[],!1).length}});var A,B=/^(?:\s*(<[\w\W]+>)[^>]*|#([\w-]*))$/,C=n.fn.init=function(a,b,c){var e,f;if(!a)return this;if(c=c||A,"string"==typeof a){if(e="<"===a.charAt(0)&&">"===a.charAt(a.length-1)&&a.length>=3?[null,a,null]:B.exec(a),!e||!e[1]&&b)return!b||b.jquery?(b||c).find(a):this.constructor(b).find(a);if(e[1]){if(b=b instanceof n?b[0]:b,n.merge(this,n.parseHTML(e[1],b&&b.nodeType?b.ownerDocument||b:d,!0)),x.test(e[1])&&n.isPlainObject(b))for(e in b)n.isFunction(this[e])?this[e](b[e]):this.attr(e,b[e]);return this}if(f=d.getElementById(e[2]),f&&f.parentNode){if(f.id!==e[2])return A.find(a);this.length=1,this[0]=f}return this.context=d,this.selector=a,this}return a.nodeType?(this.context=this[0]=a,this.length=1,this):n.isFunction(a)?"undefined"!=typeof c.ready?c.ready(a):a(n):(void 0!==a.selector&&(this.selector=a.selector,this.context=a.context),n.makeArray(a,this))};C.prototype=n.fn,A=n(d);var D=/^(?:parents|prev(?:Until|All))/,E={children:!0,contents:!0,next:!0,prev:!0};n.fn.extend({has:function(a){var b,c=n(a,this),d=c.length;return this.filter(function(){for(b=0;d>b;b++)if(n.contains(this,c[b]))return!0})},closest:function(a,b){for(var c,d=0,e=this.length,f=[],g=w.test(a)||"string"!=typeof a?n(a,b||this.context):0;e>d;d++)for(c=this[d];c&&c!==b;c=c.parentNode)if(c.nodeType<11&&(g?g.index(c)>-1:1===c.nodeType&&n.find.matchesSelector(c,a))){f.push(c);break}return this.pushStack(f.length>1?n.uniqueSort(f):f)},index:function(a){return a?"string"==typeof a?n.inArray(this[0],n(a)):n.inArray(a.jquery?a[0]:a,this):this[0]&&this[0].parentNode?this.first().prevAll().length:-1},add:function(a,b){return this.pushStack(n.uniqueSort(n.merge(this.get(),n(a,b))))},addBack:function(a){return this.add(null==a?this.prevObject:this.prevObject.filter(a))}});function F(a,b){do a=a[b];while(a&&1!==a.nodeType);return a}n.each({parent:function(a){var b=a.parentNode;return b&&11!==b.nodeType?b:null},parents:function(a){return u(a,"parentNode")},parentsUntil:function(a,b,c){return u(a,"parentNode",c)},next:function(a){return F(a,"nextSibling")},prev:function(a){return F(a,"previousSibling")},nextAll:function(a){return u(a,"nextSibling")},prevAll:function(a){return u(a,"previousSibling")},nextUntil:function(a,b,c){return u(a,"nextSibling",c)},prevUntil:function(a,b,c){return u(a,"previousSibling",c)},siblings:function(a){return v((a.parentNode||{}).firstChild,a)},children:function(a){return v(a.firstChild)},contents:function(a){return n.nodeName(a,"iframe")?a.contentDocument||a.contentWindow.document:n.merge([],a.childNodes)}},function(a,b){n.fn[a]=function(c,d){var e=n.map(this,b,c);return"Until"!==a.slice(-5)&&(d=c),d&&"string"==typeof d&&(e=n.filter(d,e)),this.length>1&&(E[a]||(e=n.uniqueSort(e)),D.test(a)&&(e=e.reverse())),this.pushStack(e)}});var G=/\S+/g;function H(a){var b={};return n.each(a.match(G)||[],function(a,c){b[c]=!0}),b}n.Callbacks=function(a){a="string"==typeof a?H(a):n.extend({},a);var b,c,d,e,f=[],g=[],h=-1,i=function(){for(e=a.once,d=b=!0;g.length;h=-1){c=g.shift();while(++h<f.length)f[h].apply(c[0],c[1])===!1&&a.stopOnFalse&&(h=f.length,c=!1)}a.memory||(c=!1),b=!1,e&&(f=c?[]:"")},j={add:function(){return f&&(c&&!b&&(h=f.length-1,g.push(c)),function d(b){n.each(b,function(b,c){n.isFunction(c)?a.unique&&j.has(c)||f.push(c):c&&c.length&&"string"!==n.type(c)&&d(c)})}(arguments),c&&!b&&i()),this},remove:function(){return n.each(arguments,function(a,b){var c;while((c=n.inArray(b,f,c))>-1)f.splice(c,1),h>=c&&h--}),this},has:function(a){return a?n.inArray(a,f)>-1:f.length>0},empty:function(){return f&&(f=[]),this},disable:function(){return e=g=[],f=c="",this},disabled:function(){return!f},lock:function(){return e=!0,c||j.disable(),this},locked:function(){return!!e},fireWith:function(a,c){return e||(c=c||[],c=[a,c.slice?c.slice():c],g.push(c),b||i()),this},fire:function(){return j.fireWith(this,arguments),this},fired:function(){return!!d}};return j},n.extend({Deferred:function(a){var b=[["resolve","done",n.Callbacks("once memory"),"resolved"],["reject","fail",n.Callbacks("once memory"),"rejected"],["notify","progress",n.Callbacks("memory")]],c="pending",d={state:function(){return c},always:function(){return e.done(arguments).fail(arguments),this},then:function(){var a=arguments;return n.Deferred(function(c){n.each(b,function(b,f){var g=n.isFunction(a[b])&&a[b];e[f[1]](function(){var a=g&&g.apply(this,arguments);a&&n.isFunction(a.promise)?a.promise().progress(c.notify).done(c.resolve).fail(c.reject):c[f[0]+"With"](this===d?c.promise():this,g?[a]:arguments)})}),a=null}).promise()},promise:function(a){return null!=a?n.extend(a,d):d}},e={};return d.pipe=d.then,n.each(b,function(a,f){var g=f[2],h=f[3];d[f[1]]=g.add,h&&g.add(function(){c=h},b[1^a][2].disable,b[2][2].lock),e[f[0]]=function(){return e[f[0]+"With"](this===e?d:this,arguments),this},e[f[0]+"With"]=g.fireWith}),d.promise(e),a&&a.call(e,e),e},when:function(a){var b=0,c=e.call(arguments),d=c.length,f=1!==d||a&&n.isFunction(a.promise)?d:0,g=1===f?a:n.Deferred(),h=function(a,b,c){return function(d){b[a]=this,c[a]=arguments.length>1?e.call(arguments):d,c===i?g.notifyWith(b,c):--f||g.resolveWith(b,c)}},i,j,k;if(d>1)for(i=new Array(d),j=new Array(d),k=new Array(d);d>b;b++)c[b]&&n.isFunction(c[b].promise)?c[b].promise().progress(h(b,j,i)).done(h(b,k,c)).fail(g.reject):--f;return f||g.resolveWith(k,c),g.promise()}});var I;n.fn.ready=function(a){return n.ready.promise().done(a),this},n.extend({isReady:!1,readyWait:1,holdReady:function(a){a?n.readyWait++:n.ready(!0)},ready:function(a){(a===!0?--n.readyWait:n.isReady)||(n.isReady=!0,a!==!0&&--n.readyWait>0||(I.resolveWith(d,[n]),n.fn.triggerHandler&&(n(d).triggerHandler("ready"),n(d).off("ready"))))}});function J(){d.addEventListener?(d.removeEventListener("DOMContentLoaded",K),a.removeEventListener("load",K)):(d.detachEvent("onreadystatechange",K),a.detachEvent("onload",K))}function K(){(d.addEventListener||"load"===a.event.type||"complete"===d.readyState)&&(J(),n.ready())}n.ready.promise=function(b){if(!I)if(I=n.Deferred(),"complete"===d.readyState||"loading"!==d.readyState&&!d.documentElement.doScroll)a.setTimeout(n.ready);else if(d.addEventListener)d.addEventListener("DOMContentLoaded",K),a.addEventListener("load",K);else{d.attachEvent("onreadystatechange",K),a.attachEvent("onload",K);var c=!1;try{c=null==a.frameElement&&d.documentElement}catch(e){}c&&c.doScroll&&!function f(){if(!n.isReady){try{c.doScroll("left")}catch(b){return a.setTimeout(f,50)}J(),n.ready()}}()}return I.promise(b)},n.ready.promise();var L;for(L in n(l))break;l.ownFirst="0"===L,l.inlineBlockNeedsLayout=!1,n(function(){var a,b,c,e;c=d.getElementsByTagName("body")[0],c&&c.style&&(b=d.createElement("div"),e=d.createElement("div"),e.style.cssText="position:absolute;border:0;width:0;height:0;top:0;left:-9999px",c.appendChild(e).appendChild(b),"undefined"!=typeof b.style.zoom&&(b.style.cssText="display:inline;margin:0;border:0;padding:1px;width:1px;zoom:1",l.inlineBlockNeedsLayout=a=3===b.offsetWidth,a&&(c.style.zoom=1)),c.removeChild(e))}),function(){var a=d.createElement("div");l.deleteExpando=!0;try{delete a.test}catch(b){l.deleteExpando=!1}a=null}();var M=function(a){var b=n.noData[(a.nodeName+" ").toLowerCase()],c=+a.nodeType||1;return 1!==c&&9!==c?!1:!b||b!==!0&&a.getAttribute("classid")===b},N=/^(?:\{[\w\W]*\}|\[[\w\W]*\])$/,O=/([A-Z])/g;function P(a,b,c){if(void 0===c&&1===a.nodeType){var d="data-"+b.replace(O,"-$1").toLowerCase();if(c=a.getAttribute(d),"string"==typeof c){try{c="true"===c?!0:"false"===c?!1:"null"===c?null:+c+""===c?+c:N.test(c)?n.parseJSON(c):c}catch(e){}n.data(a,b,c)}else c=void 0;
+}return c}function Q(a){var b;for(b in a)if(("data"!==b||!n.isEmptyObject(a[b]))&&"toJSON"!==b)return!1;return!0}function R(a,b,d,e){if(M(a)){var f,g,h=n.expando,i=a.nodeType,j=i?n.cache:a,k=i?a[h]:a[h]&&h;if(k&&j[k]&&(e||j[k].data)||void 0!==d||"string"!=typeof b)return k||(k=i?a[h]=c.pop()||n.guid++:h),j[k]||(j[k]=i?{}:{toJSON:n.noop}),"object"!=typeof b&&"function"!=typeof b||(e?j[k]=n.extend(j[k],b):j[k].data=n.extend(j[k].data,b)),g=j[k],e||(g.data||(g.data={}),g=g.data),void 0!==d&&(g[n.camelCase(b)]=d),"string"==typeof b?(f=g[b],null==f&&(f=g[n.camelCase(b)])):f=g,f}}function S(a,b,c){if(M(a)){var d,e,f=a.nodeType,g=f?n.cache:a,h=f?a[n.expando]:n.expando;if(g[h]){if(b&&(d=c?g[h]:g[h].data)){n.isArray(b)?b=b.concat(n.map(b,n.camelCase)):b in d?b=[b]:(b=n.camelCase(b),b=b in d?[b]:b.split(" ")),e=b.length;while(e--)delete d[b[e]];if(c?!Q(d):!n.isEmptyObject(d))return}(c||(delete g[h].data,Q(g[h])))&&(f?n.cleanData([a],!0):l.deleteExpando||g!=g.window?delete g[h]:g[h]=void 0)}}}n.extend({cache:{},noData:{"applet ":!0,"embed ":!0,"object ":"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"},hasData:function(a){return a=a.nodeType?n.cache[a[n.expando]]:a[n.expando],!!a&&!Q(a)},data:function(a,b,c){return R(a,b,c)},removeData:function(a,b){return S(a,b)},_data:function(a,b,c){return R(a,b,c,!0)},_removeData:function(a,b){return S(a,b,!0)}}),n.fn.extend({data:function(a,b){var c,d,e,f=this[0],g=f&&f.attributes;if(void 0===a){if(this.length&&(e=n.data(f),1===f.nodeType&&!n._data(f,"parsedAttrs"))){c=g.length;while(c--)g[c]&&(d=g[c].name,0===d.indexOf("data-")&&(d=n.camelCase(d.slice(5)),P(f,d,e[d])));n._data(f,"parsedAttrs",!0)}return e}return"object"==typeof a?this.each(function(){n.data(this,a)}):arguments.length>1?this.each(function(){n.data(this,a,b)}):f?P(f,a,n.data(f,a)):void 0},removeData:function(a){return this.each(function(){n.removeData(this,a)})}}),n.extend({queue:function(a,b,c){var d;return a?(b=(b||"fx")+"queue",d=n._data(a,b),c&&(!d||n.isArray(c)?d=n._data(a,b,n.makeArray(c)):d.push(c)),d||[]):void 0},dequeue:function(a,b){b=b||"fx";var c=n.queue(a,b),d=c.length,e=c.shift(),f=n._queueHooks(a,b),g=function(){n.dequeue(a,b)};"inprogress"===e&&(e=c.shift(),d--),e&&("fx"===b&&c.unshift("inprogress"),delete f.stop,e.call(a,g,f)),!d&&f&&f.empty.fire()},_queueHooks:function(a,b){var c=b+"queueHooks";return n._data(a,c)||n._data(a,c,{empty:n.Callbacks("once memory").add(function(){n._removeData(a,b+"queue"),n._removeData(a,c)})})}}),n.fn.extend({queue:function(a,b){var c=2;return"string"!=typeof a&&(b=a,a="fx",c--),arguments.length<c?n.queue(this[0],a):void 0===b?this:this.each(function(){var c=n.queue(this,a,b);n._queueHooks(this,a),"fx"===a&&"inprogress"!==c[0]&&n.dequeue(this,a)})},dequeue:function(a){return this.each(function(){n.dequeue(this,a)})},clearQueue:function(a){return this.queue(a||"fx",[])},promise:function(a,b){var c,d=1,e=n.Deferred(),f=this,g=this.length,h=function(){--d||e.resolveWith(f,[f])};"string"!=typeof a&&(b=a,a=void 0),a=a||"fx";while(g--)c=n._data(f[g],a+"queueHooks"),c&&c.empty&&(d++,c.empty.add(h));return h(),e.promise(b)}}),function(){var a;l.shrinkWrapBlocks=function(){if(null!=a)return a;a=!1;var b,c,e;return c=d.getElementsByTagName("body")[0],c&&c.style?(b=d.createElement("div"),e=d.createElement("div"),e.style.cssText="position:absolute;border:0;width:0;height:0;top:0;left:-9999px",c.appendChild(e).appendChild(b),"undefined"!=typeof b.style.zoom&&(b.style.cssText="-webkit-box-sizing:content-box;-moz-box-sizing:content-box;box-sizing:content-box;display:block;margin:0;border:0;padding:1px;width:1px;zoom:1",b.appendChild(d.createElement("div")).style.width="5px",a=3!==b.offsetWidth),c.removeChild(e),a):void 0}}();var T=/[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/.source,U=new RegExp("^(?:([+-])=|)("+T+")([a-z%]*)$","i"),V=["Top","Right","Bottom","Left"],W=function(a,b){return a=b||a,"none"===n.css(a,"display")||!n.contains(a.ownerDocument,a)};function X(a,b,c,d){var e,f=1,g=20,h=d?function(){return d.cur()}:function(){return n.css(a,b,"")},i=h(),j=c&&c[3]||(n.cssNumber[b]?"":"px"),k=(n.cssNumber[b]||"px"!==j&&+i)&&U.exec(n.css(a,b));if(k&&k[3]!==j){j=j||k[3],c=c||[],k=+i||1;do f=f||".5",k/=f,n.style(a,b,k+j);while(f!==(f=h()/i)&&1!==f&&--g)}return c&&(k=+k||+i||0,e=c[1]?k+(c[1]+1)*c[2]:+c[2],d&&(d.unit=j,d.start=k,d.end=e)),e}var Y=function(a,b,c,d,e,f,g){var h=0,i=a.length,j=null==c;if("object"===n.type(c)){e=!0;for(h in c)Y(a,b,h,c[h],!0,f,g)}else if(void 0!==d&&(e=!0,n.isFunction(d)||(g=!0),j&&(g?(b.call(a,d),b=null):(j=b,b=function(a,b,c){return j.call(n(a),c)})),b))for(;i>h;h++)b(a[h],c,g?d:d.call(a[h],h,b(a[h],c)));return e?a:j?b.call(a):i?b(a[0],c):f},Z=/^(?:checkbox|radio)$/i,$=/<([\w:-]+)/,_=/^$|\/(?:java|ecma)script/i,aa=/^\s+/,ba="abbr|article|aside|audio|bdi|canvas|data|datalist|details|dialog|figcaption|figure|footer|header|hgroup|main|mark|meter|nav|output|picture|progress|section|summary|template|time|video";function ca(a){var b=ba.split("|"),c=a.createDocumentFragment();if(c.createElement)while(b.length)c.createElement(b.pop());return c}!function(){var a=d.createElement("div"),b=d.createDocumentFragment(),c=d.createElement("input");a.innerHTML="  <link/><table></table><a href='/a'>a</a><input type='checkbox'/>",l.leadingWhitespace=3===a.firstChild.nodeType,l.tbody=!a.getElementsByTagName("tbody").length,l.htmlSerialize=!!a.getElementsByTagName("link").length,l.html5Clone="<:nav></:nav>"!==d.createElement("nav").cloneNode(!0).outerHTML,c.type="checkbox",c.checked=!0,b.appendChild(c),l.appendChecked=c.checked,a.innerHTML="<textarea>x</textarea>",l.noCloneChecked=!!a.cloneNode(!0).lastChild.defaultValue,b.appendChild(a),c=d.createElement("input"),c.setAttribute("type","radio"),c.setAttribute("checked","checked"),c.setAttribute("name","t"),a.appendChild(c),l.checkClone=a.cloneNode(!0).cloneNode(!0).lastChild.checked,l.noCloneEvent=!!a.addEventListener,a[n.expando]=1,l.attributes=!a.getAttribute(n.expando)}();var da={option:[1,"<select multiple='multiple'>","</select>"],legend:[1,"<fieldset>","</fieldset>"],area:[1,"<map>","</map>"],param:[1,"<object>","</object>"],thead:[1,"<table>","</table>"],tr:[2,"<table><tbody>","</tbody></table>"],col:[2,"<table><tbody></tbody><colgroup>","</colgroup></table>"],td:[3,"<table><tbody><tr>","</tr></tbody></table>"],_default:l.htmlSerialize?[0,"",""]:[1,"X<div>","</div>"]};da.optgroup=da.option,da.tbody=da.tfoot=da.colgroup=da.caption=da.thead,da.th=da.td;function ea(a,b){var c,d,e=0,f="undefined"!=typeof a.getElementsByTagName?a.getElementsByTagName(b||"*"):"undefined"!=typeof a.querySelectorAll?a.querySelectorAll(b||"*"):void 0;if(!f)for(f=[],c=a.childNodes||a;null!=(d=c[e]);e++)!b||n.nodeName(d,b)?f.push(d):n.merge(f,ea(d,b));return void 0===b||b&&n.nodeName(a,b)?n.merge([a],f):f}function fa(a,b){for(var c,d=0;null!=(c=a[d]);d++)n._data(c,"globalEval",!b||n._data(b[d],"globalEval"))}var ga=/<|&#?\w+;/,ha=/<tbody/i;function ia(a){Z.test(a.type)&&(a.defaultChecked=a.checked)}function ja(a,b,c,d,e){for(var f,g,h,i,j,k,m,o=a.length,p=ca(b),q=[],r=0;o>r;r++)if(g=a[r],g||0===g)if("object"===n.type(g))n.merge(q,g.nodeType?[g]:g);else if(ga.test(g)){i=i||p.appendChild(b.createElement("div")),j=($.exec(g)||["",""])[1].toLowerCase(),m=da[j]||da._default,i.innerHTML=m[1]+n.htmlPrefilter(g)+m[2],f=m[0];while(f--)i=i.lastChild;if(!l.leadingWhitespace&&aa.test(g)&&q.push(b.createTextNode(aa.exec(g)[0])),!l.tbody){g="table"!==j||ha.test(g)?"<table>"!==m[1]||ha.test(g)?0:i:i.firstChild,f=g&&g.childNodes.length;while(f--)n.nodeName(k=g.childNodes[f],"tbody")&&!k.childNodes.length&&g.removeChild(k)}n.merge(q,i.childNodes),i.textContent="";while(i.firstChild)i.removeChild(i.firstChild);i=p.lastChild}else q.push(b.createTextNode(g));i&&p.removeChild(i),l.appendChecked||n.grep(ea(q,"input"),ia),r=0;while(g=q[r++])if(d&&n.inArray(g,d)>-1)e&&e.push(g);else if(h=n.contains(g.ownerDocument,g),i=ea(p.appendChild(g),"script"),h&&fa(i),c){f=0;while(g=i[f++])_.test(g.type||"")&&c.push(g)}return i=null,p}!function(){var b,c,e=d.createElement("div");for(b in{submit:!0,change:!0,focusin:!0})c="on"+b,(l[b]=c in a)||(e.setAttribute(c,"t"),l[b]=e.attributes[c].expando===!1);e=null}();var ka=/^(?:input|select|textarea)$/i,la=/^key/,ma=/^(?:mouse|pointer|contextmenu|drag|drop)|click/,na=/^(?:focusinfocus|focusoutblur)$/,oa=/^([^.]*)(?:\.(.+)|)/;function pa(){return!0}function qa(){return!1}function ra(){try{return d.activeElement}catch(a){}}function sa(a,b,c,d,e,f){var g,h;if("object"==typeof b){"string"!=typeof c&&(d=d||c,c=void 0);for(h in b)sa(a,h,c,d,b[h],f);return a}if(null==d&&null==e?(e=c,d=c=void 0):null==e&&("string"==typeof c?(e=d,d=void 0):(e=d,d=c,c=void 0)),e===!1)e=qa;else if(!e)return a;return 1===f&&(g=e,e=function(a){return n().off(a),g.apply(this,arguments)},e.guid=g.guid||(g.guid=n.guid++)),a.each(function(){n.event.add(this,b,e,d,c)})}n.event={global:{},add:function(a,b,c,d,e){var f,g,h,i,j,k,l,m,o,p,q,r=n._data(a);if(r){c.handler&&(i=c,c=i.handler,e=i.selector),c.guid||(c.guid=n.guid++),(g=r.events)||(g=r.events={}),(k=r.handle)||(k=r.handle=function(a){return"undefined"==typeof n||a&&n.event.triggered===a.type?void 0:n.event.dispatch.apply(k.elem,arguments)},k.elem=a),b=(b||"").match(G)||[""],h=b.length;while(h--)f=oa.exec(b[h])||[],o=q=f[1],p=(f[2]||"").split(".").sort(),o&&(j=n.event.special[o]||{},o=(e?j.delegateType:j.bindType)||o,j=n.event.special[o]||{},l=n.extend({type:o,origType:q,data:d,handler:c,guid:c.guid,selector:e,needsContext:e&&n.expr.match.needsContext.test(e),namespace:p.join(".")},i),(m=g[o])||(m=g[o]=[],m.delegateCount=0,j.setup&&j.setup.call(a,d,p,k)!==!1||(a.addEventListener?a.addEventListener(o,k,!1):a.attachEvent&&a.attachEvent("on"+o,k))),j.add&&(j.add.call(a,l),l.handler.guid||(l.handler.guid=c.guid)),e?m.splice(m.delegateCount++,0,l):m.push(l),n.event.global[o]=!0);a=null}},remove:function(a,b,c,d,e){var f,g,h,i,j,k,l,m,o,p,q,r=n.hasData(a)&&n._data(a);if(r&&(k=r.events)){b=(b||"").match(G)||[""],j=b.length;while(j--)if(h=oa.exec(b[j])||[],o=q=h[1],p=(h[2]||"").split(".").sort(),o){l=n.event.special[o]||{},o=(d?l.delegateType:l.bindType)||o,m=k[o]||[],h=h[2]&&new RegExp("(^|\\.)"+p.join("\\.(?:.*\\.|)")+"(\\.|$)"),i=f=m.length;while(f--)g=m[f],!e&&q!==g.origType||c&&c.guid!==g.guid||h&&!h.test(g.namespace)||d&&d!==g.selector&&("**"!==d||!g.selector)||(m.splice(f,1),g.selector&&m.delegateCount--,l.remove&&l.remove.call(a,g));i&&!m.length&&(l.teardown&&l.teardown.call(a,p,r.handle)!==!1||n.removeEvent(a,o,r.handle),delete k[o])}else for(o in k)n.event.remove(a,o+b[j],c,d,!0);n.isEmptyObject(k)&&(delete r.handle,n._removeData(a,"events"))}},trigger:function(b,c,e,f){var g,h,i,j,l,m,o,p=[e||d],q=k.call(b,"type")?b.type:b,r=k.call(b,"namespace")?b.namespace.split("."):[];if(i=m=e=e||d,3!==e.nodeType&&8!==e.nodeType&&!na.test(q+n.event.triggered)&&(q.indexOf(".")>-1&&(r=q.split("."),q=r.shift(),r.sort()),h=q.indexOf(":")<0&&"on"+q,b=b[n.expando]?b:new n.Event(q,"object"==typeof b&&b),b.isTrigger=f?2:3,b.namespace=r.join("."),b.rnamespace=b.namespace?new RegExp("(^|\\.)"+r.join("\\.(?:.*\\.|)")+"(\\.|$)"):null,b.result=void 0,b.target||(b.target=e),c=null==c?[b]:n.makeArray(c,[b]),l=n.event.special[q]||{},f||!l.trigger||l.trigger.apply(e,c)!==!1)){if(!f&&!l.noBubble&&!n.isWindow(e)){for(j=l.delegateType||q,na.test(j+q)||(i=i.parentNode);i;i=i.parentNode)p.push(i),m=i;m===(e.ownerDocument||d)&&p.push(m.defaultView||m.parentWindow||a)}o=0;while((i=p[o++])&&!b.isPropagationStopped())b.type=o>1?j:l.bindType||q,g=(n._data(i,"events")||{})[b.type]&&n._data(i,"handle"),g&&g.apply(i,c),g=h&&i[h],g&&g.apply&&M(i)&&(b.result=g.apply(i,c),b.result===!1&&b.preventDefault());if(b.type=q,!f&&!b.isDefaultPrevented()&&(!l._default||l._default.apply(p.pop(),c)===!1)&&M(e)&&h&&e[q]&&!n.isWindow(e)){m=e[h],m&&(e[h]=null),n.event.triggered=q;try{e[q]()}catch(s){}n.event.triggered=void 0,m&&(e[h]=m)}return b.result}},dispatch:function(a){a=n.event.fix(a);var b,c,d,f,g,h=[],i=e.call(arguments),j=(n._data(this,"events")||{})[a.type]||[],k=n.event.special[a.type]||{};if(i[0]=a,a.delegateTarget=this,!k.preDispatch||k.preDispatch.call(this,a)!==!1){h=n.event.handlers.call(this,a,j),b=0;while((f=h[b++])&&!a.isPropagationStopped()){a.currentTarget=f.elem,c=0;while((g=f.handlers[c++])&&!a.isImmediatePropagationStopped())a.rnamespace&&!a.rnamespace.test(g.namespace)||(a.handleObj=g,a.data=g.data,d=((n.event.special[g.origType]||{}).handle||g.handler).apply(f.elem,i),void 0!==d&&(a.result=d)===!1&&(a.preventDefault(),a.stopPropagation()))}return k.postDispatch&&k.postDispatch.call(this,a),a.result}},handlers:function(a,b){var c,d,e,f,g=[],h=b.delegateCount,i=a.target;if(h&&i.nodeType&&("click"!==a.type||isNaN(a.button)||a.button<1))for(;i!=this;i=i.parentNode||this)if(1===i.nodeType&&(i.disabled!==!0||"click"!==a.type)){for(d=[],c=0;h>c;c++)f=b[c],e=f.selector+" ",void 0===d[e]&&(d[e]=f.needsContext?n(e,this).index(i)>-1:n.find(e,this,null,[i]).length),d[e]&&d.push(f);d.length&&g.push({elem:i,handlers:d})}return h<b.length&&g.push({elem:this,handlers:b.slice(h)}),g},fix:function(a){if(a[n.expando])return a;var b,c,e,f=a.type,g=a,h=this.fixHooks[f];h||(this.fixHooks[f]=h=ma.test(f)?this.mouseHooks:la.test(f)?this.keyHooks:{}),e=h.props?this.props.concat(h.props):this.props,a=new n.Event(g),b=e.length;while(b--)c=e[b],a[c]=g[c];return a.target||(a.target=g.srcElement||d),3===a.target.nodeType&&(a.target=a.target.parentNode),a.metaKey=!!a.metaKey,h.filter?h.filter(a,g):a},props:"altKey bubbles cancelable ctrlKey currentTarget detail eventPhase metaKey relatedTarget shiftKey target timeStamp view which".split(" "),fixHooks:{},keyHooks:{props:"char charCode key keyCode".split(" "),filter:function(a,b){return null==a.which&&(a.which=null!=b.charCode?b.charCode:b.keyCode),a}},mouseHooks:{props:"button buttons clientX clientY fromElement offsetX offsetY pageX pageY screenX screenY toElement".split(" "),filter:function(a,b){var c,e,f,g=b.button,h=b.fromElement;return null==a.pageX&&null!=b.clientX&&(e=a.target.ownerDocument||d,f=e.documentElement,c=e.body,a.pageX=b.clientX+(f&&f.scrollLeft||c&&c.scrollLeft||0)-(f&&f.clientLeft||c&&c.clientLeft||0),a.pageY=b.clientY+(f&&f.scrollTop||c&&c.scrollTop||0)-(f&&f.clientTop||c&&c.clientTop||0)),!a.relatedTarget&&h&&(a.relatedTarget=h===a.target?b.toElement:h),a.which||void 0===g||(a.which=1&g?1:2&g?3:4&g?2:0),a}},special:{load:{noBubble:!0},focus:{trigger:function(){if(this!==ra()&&this.focus)try{return this.focus(),!1}catch(a){}},delegateType:"focusin"},blur:{trigger:function(){return this===ra()&&this.blur?(this.blur(),!1):void 0},delegateType:"focusout"},click:{trigger:function(){return n.nodeName(this,"input")&&"checkbox"===this.type&&this.click?(this.click(),!1):void 0},_default:function(a){return n.nodeName(a.target,"a")}},beforeunload:{postDispatch:function(a){void 0!==a.result&&a.originalEvent&&(a.originalEvent.returnValue=a.result)}}},simulate:function(a,b,c){var d=n.extend(new n.Event,c,{type:a,isSimulated:!0});n.event.trigger(d,null,b),d.isDefaultPrevented()&&c.preventDefault()}},n.removeEvent=d.removeEventListener?function(a,b,c){a.removeEventListener&&a.removeEventListener(b,c)}:function(a,b,c){var d="on"+b;a.detachEvent&&("undefined"==typeof a[d]&&(a[d]=null),a.detachEvent(d,c))},n.Event=function(a,b){return this instanceof n.Event?(a&&a.type?(this.originalEvent=a,this.type=a.type,this.isDefaultPrevented=a.defaultPrevented||void 0===a.defaultPrevented&&a.returnValue===!1?pa:qa):this.type=a,b&&n.extend(this,b),this.timeStamp=a&&a.timeStamp||n.now(),void(this[n.expando]=!0)):new n.Event(a,b)},n.Event.prototype={constructor:n.Event,isDefaultPrevented:qa,isPropagationStopped:qa,isImmediatePropagationStopped:qa,preventDefault:function(){var a=this.originalEvent;this.isDefaultPrevented=pa,a&&(a.preventDefault?a.preventDefault():a.returnValue=!1)},stopPropagation:function(){var a=this.originalEvent;this.isPropagationStopped=pa,a&&!this.isSimulated&&(a.stopPropagation&&a.stopPropagation(),a.cancelBubble=!0)},stopImmediatePropagation:function(){var a=this.originalEvent;this.isImmediatePropagationStopped=pa,a&&a.stopImmediatePropagation&&a.stopImmediatePropagation(),this.stopPropagation()}},n.each({mouseenter:"mouseover",mouseleave:"mouseout",pointerenter:"pointerover",pointerleave:"pointerout"},function(a,b){n.event.special[a]={delegateType:b,bindType:b,handle:function(a){var c,d=this,e=a.relatedTarget,f=a.handleObj;return e&&(e===d||n.contains(d,e))||(a.type=f.origType,c=f.handler.apply(this,arguments),a.type=b),c}}}),l.submit||(n.event.special.submit={setup:function(){return n.nodeName(this,"form")?!1:void n.event.add(this,"click._submit keypress._submit",function(a){var b=a.target,c=n.nodeName(b,"input")||n.nodeName(b,"button")?n.prop(b,"form"):void 0;c&&!n._data(c,"submit")&&(n.event.add(c,"submit._submit",function(a){a._submitBubble=!0}),n._data(c,"submit",!0))})},postDispatch:function(a){a._submitBubble&&(delete a._submitBubble,this.parentNode&&!a.isTrigger&&n.event.simulate("submit",this.parentNode,a))},teardown:function(){return n.nodeName(this,"form")?!1:void n.event.remove(this,"._submit")}}),l.change||(n.event.special.change={setup:function(){return ka.test(this.nodeName)?("checkbox"!==this.type&&"radio"!==this.type||(n.event.add(this,"propertychange._change",function(a){"checked"===a.originalEvent.propertyName&&(this._justChanged=!0)}),n.event.add(this,"click._change",function(a){this._justChanged&&!a.isTrigger&&(this._justChanged=!1),n.event.simulate("change",this,a)})),!1):void n.event.add(this,"beforeactivate._change",function(a){var b=a.target;ka.test(b.nodeName)&&!n._data(b,"change")&&(n.event.add(b,"change._change",function(a){!this.parentNode||a.isSimulated||a.isTrigger||n.event.simulate("change",this.parentNode,a)}),n._data(b,"change",!0))})},handle:function(a){var b=a.target;return this!==b||a.isSimulated||a.isTrigger||"radio"!==b.type&&"checkbox"!==b.type?a.handleObj.handler.apply(this,arguments):void 0},teardown:function(){return n.event.remove(this,"._change"),!ka.test(this.nodeName)}}),l.focusin||n.each({focus:"focusin",blur:"focusout"},function(a,b){var c=function(a){n.event.simulate(b,a.target,n.event.fix(a))};n.event.special[b]={setup:function(){var d=this.ownerDocument||this,e=n._data(d,b);e||d.addEventListener(a,c,!0),n._data(d,b,(e||0)+1)},teardown:function(){var d=this.ownerDocument||this,e=n._data(d,b)-1;e?n._data(d,b,e):(d.removeEventListener(a,c,!0),n._removeData(d,b))}}}),n.fn.extend({on:function(a,b,c,d){return sa(this,a,b,c,d)},one:function(a,b,c,d){return sa(this,a,b,c,d,1)},off:function(a,b,c){var d,e;if(a&&a.preventDefault&&a.handleObj)return d=a.handleObj,n(a.delegateTarget).off(d.namespace?d.origType+"."+d.namespace:d.origType,d.selector,d.handler),this;if("object"==typeof a){for(e in a)this.off(e,b,a[e]);return this}return b!==!1&&"function"!=typeof b||(c=b,b=void 0),c===!1&&(c=qa),this.each(function(){n.event.remove(this,a,c,b)})},trigger:function(a,b){return this.each(function(){n.event.trigger(a,b,this)})},triggerHandler:function(a,b){var c=this[0];return c?n.event.trigger(a,b,c,!0):void 0}});var ta=/ jQuery\d+="(?:null|\d+)"/g,ua=new RegExp("<(?:"+ba+")[\\s/>]","i"),va=/<(?!area|br|col|embed|hr|img|input|link|meta|param)(([\w:-]+)[^>]*)\/>/gi,wa=/<script|<style|<link/i,xa=/checked\s*(?:[^=]|=\s*.checked.)/i,ya=/^true\/(.*)/,za=/^\s*<!(?:\[CDATA\[|--)|(?:\]\]|--)>\s*$/g,Aa=ca(d),Ba=Aa.appendChild(d.createElement("div"));function Ca(a,b){return n.nodeName(a,"table")&&n.nodeName(11!==b.nodeType?b:b.firstChild,"tr")?a.getElementsByTagName("tbody")[0]||a.appendChild(a.ownerDocument.createElement("tbody")):a}function Da(a){return a.type=(null!==n.find.attr(a,"type"))+"/"+a.type,a}function Ea(a){var b=ya.exec(a.type);return b?a.type=b[1]:a.removeAttribute("type"),a}function Fa(a,b){if(1===b.nodeType&&n.hasData(a)){var c,d,e,f=n._data(a),g=n._data(b,f),h=f.events;if(h){delete g.handle,g.events={};for(c in h)for(d=0,e=h[c].length;e>d;d++)n.event.add(b,c,h[c][d])}g.data&&(g.data=n.extend({},g.data))}}function Ga(a,b){var c,d,e;if(1===b.nodeType){if(c=b.nodeName.toLowerCase(),!l.noCloneEvent&&b[n.expando]){e=n._data(b);for(d in e.events)n.removeEvent(b,d,e.handle);b.removeAttribute(n.expando)}"script"===c&&b.text!==a.text?(Da(b).text=a.text,Ea(b)):"object"===c?(b.parentNode&&(b.outerHTML=a.outerHTML),l.html5Clone&&a.innerHTML&&!n.trim(b.innerHTML)&&(b.innerHTML=a.innerHTML)):"input"===c&&Z.test(a.type)?(b.defaultChecked=b.checked=a.checked,b.value!==a.value&&(b.value=a.value)):"option"===c?b.defaultSelected=b.selected=a.defaultSelected:"input"!==c&&"textarea"!==c||(b.defaultValue=a.defaultValue)}}function Ha(a,b,c,d){b=f.apply([],b);var e,g,h,i,j,k,m=0,o=a.length,p=o-1,q=b[0],r=n.isFunction(q);if(r||o>1&&"string"==typeof q&&!l.checkClone&&xa.test(q))return a.each(function(e){var f=a.eq(e);r&&(b[0]=q.call(this,e,f.html())),Ha(f,b,c,d)});if(o&&(k=ja(b,a[0].ownerDocument,!1,a,d),e=k.firstChild,1===k.childNodes.length&&(k=e),e||d)){for(i=n.map(ea(k,"script"),Da),h=i.length;o>m;m++)g=k,m!==p&&(g=n.clone(g,!0,!0),h&&n.merge(i,ea(g,"script"))),c.call(a[m],g,m);if(h)for(j=i[i.length-1].ownerDocument,n.map(i,Ea),m=0;h>m;m++)g=i[m],_.test(g.type||"")&&!n._data(g,"globalEval")&&n.contains(j,g)&&(g.src?n._evalUrl&&n._evalUrl(g.src):n.globalEval((g.text||g.textContent||g.innerHTML||"").replace(za,"")));k=e=null}return a}function Ia(a,b,c){for(var d,e=b?n.filter(b,a):a,f=0;null!=(d=e[f]);f++)c||1!==d.nodeType||n.cleanData(ea(d)),d.parentNode&&(c&&n.contains(d.ownerDocument,d)&&fa(ea(d,"script")),d.parentNode.removeChild(d));return a}n.extend({htmlPrefilter:function(a){return a.replace(va,"<$1></$2>")},clone:function(a,b,c){var d,e,f,g,h,i=n.contains(a.ownerDocument,a);if(l.html5Clone||n.isXMLDoc(a)||!ua.test("<"+a.nodeName+">")?f=a.cloneNode(!0):(Ba.innerHTML=a.outerHTML,Ba.removeChild(f=Ba.firstChild)),!(l.noCloneEvent&&l.noCloneChecked||1!==a.nodeType&&11!==a.nodeType||n.isXMLDoc(a)))for(d=ea(f),h=ea(a),g=0;null!=(e=h[g]);++g)d[g]&&Ga(e,d[g]);if(b)if(c)for(h=h||ea(a),d=d||ea(f),g=0;null!=(e=h[g]);g++)Fa(e,d[g]);else Fa(a,f);return d=ea(f,"script"),d.length>0&&fa(d,!i&&ea(a,"script")),d=h=e=null,f},cleanData:function(a,b){for(var d,e,f,g,h=0,i=n.expando,j=n.cache,k=l.attributes,m=n.event.special;null!=(d=a[h]);h++)if((b||M(d))&&(f=d[i],g=f&&j[f])){if(g.events)for(e in g.events)m[e]?n.event.remove(d,e):n.removeEvent(d,e,g.handle);j[f]&&(delete j[f],k||"undefined"==typeof d.removeAttribute?d[i]=void 0:d.removeAttribute(i),c.push(f))}}}),n.fn.extend({domManip:Ha,detach:function(a){return Ia(this,a,!0)},remove:function(a){return Ia(this,a)},text:function(a){return Y(this,function(a){return void 0===a?n.text(this):this.empty().append((this[0]&&this[0].ownerDocument||d).createTextNode(a))},null,a,arguments.length)},append:function(){return Ha(this,arguments,function(a){if(1===this.nodeType||11===this.nodeType||9===this.nodeType){var b=Ca(this,a);b.appendChild(a)}})},prepend:function(){return Ha(this,arguments,function(a){if(1===this.nodeType||11===this.nodeType||9===this.nodeType){var b=Ca(this,a);b.insertBefore(a,b.firstChild)}})},before:function(){return Ha(this,arguments,function(a){this.parentNode&&this.parentNode.insertBefore(a,this)})},after:function(){return Ha(this,arguments,function(a){this.parentNode&&this.parentNode.insertBefore(a,this.nextSibling)})},empty:function(){for(var a,b=0;null!=(a=this[b]);b++){1===a.nodeType&&n.cleanData(ea(a,!1));while(a.firstChild)a.removeChild(a.firstChild);a.options&&n.nodeName(a,"select")&&(a.options.length=0)}return this},clone:function(a,b){return a=null==a?!1:a,b=null==b?a:b,this.map(function(){return n.clone(this,a,b)})},html:function(a){return Y(this,function(a){var b=this[0]||{},c=0,d=this.length;if(void 0===a)return 1===b.nodeType?b.innerHTML.replace(ta,""):void 0;if("string"==typeof a&&!wa.test(a)&&(l.htmlSerialize||!ua.test(a))&&(l.leadingWhitespace||!aa.test(a))&&!da[($.exec(a)||["",""])[1].toLowerCase()]){a=n.htmlPrefilter(a);try{for(;d>c;c++)b=this[c]||{},1===b.nodeType&&(n.cleanData(ea(b,!1)),b.innerHTML=a);b=0}catch(e){}}b&&this.empty().append(a)},null,a,arguments.length)},replaceWith:function(){var a=[];return Ha(this,arguments,function(b){var c=this.parentNode;n.inArray(this,a)<0&&(n.cleanData(ea(this)),c&&c.replaceChild(b,this))},a)}}),n.each({appendTo:"append",prependTo:"prepend",insertBefore:"before",insertAfter:"after",replaceAll:"replaceWith"},function(a,b){n.fn[a]=function(a){for(var c,d=0,e=[],f=n(a),h=f.length-1;h>=d;d++)c=d===h?this:this.clone(!0),n(f[d])[b](c),g.apply(e,c.get());return this.pushStack(e)}});var Ja,Ka={HTML:"block",BODY:"block"};function La(a,b){var c=n(b.createElement(a)).appendTo(b.body),d=n.css(c[0],"display");return c.detach(),d}function Ma(a){var b=d,c=Ka[a];return c||(c=La(a,b),"none"!==c&&c||(Ja=(Ja||n("<iframe frameborder='0' width='0' height='0'/>")).appendTo(b.documentElement),b=(Ja[0].contentWindow||Ja[0].contentDocument).document,b.write(),b.close(),c=La(a,b),Ja.detach()),Ka[a]=c),c}var Na=/^margin/,Oa=new RegExp("^("+T+")(?!px)[a-z%]+$","i"),Pa=function(a,b,c,d){var e,f,g={};for(f in b)g[f]=a.style[f],a.style[f]=b[f];e=c.apply(a,d||[]);for(f in b)a.style[f]=g[f];return e},Qa=d.documentElement;!function(){var b,c,e,f,g,h,i=d.createElement("div"),j=d.createElement("div");if(j.style){j.style.cssText="float:left;opacity:.5",l.opacity="0.5"===j.style.opacity,l.cssFloat=!!j.style.cssFloat,j.style.backgroundClip="content-box",j.cloneNode(!0).style.backgroundClip="",l.clearCloneStyle="content-box"===j.style.backgroundClip,i=d.createElement("div"),i.style.cssText="border:0;width:8px;height:0;top:0;left:-9999px;padding:0;margin-top:1px;position:absolute",j.innerHTML="",i.appendChild(j),l.boxSizing=""===j.style.boxSizing||""===j.style.MozBoxSizing||""===j.style.WebkitBoxSizing,n.extend(l,{reliableHiddenOffsets:function(){return null==b&&k(),f},boxSizingReliable:function(){return null==b&&k(),e},pixelMarginRight:function(){return null==b&&k(),c},pixelPosition:function(){return null==b&&k(),b},reliableMarginRight:function(){return null==b&&k(),g},reliableMarginLeft:function(){return null==b&&k(),h}});function k(){var k,l,m=d.documentElement;m.appendChild(i),j.style.cssText="-webkit-box-sizing:border-box;box-sizing:border-box;position:relative;display:block;margin:auto;border:1px;padding:1px;top:1%;width:50%",b=e=h=!1,c=g=!0,a.getComputedStyle&&(l=a.getComputedStyle(j),b="1%"!==(l||{}).top,h="2px"===(l||{}).marginLeft,e="4px"===(l||{width:"4px"}).width,j.style.marginRight="50%",c="4px"===(l||{marginRight:"4px"}).marginRight,k=j.appendChild(d.createElement("div")),k.style.cssText=j.style.cssText="-webkit-box-sizing:content-box;-moz-box-sizing:content-box;box-sizing:content-box;display:block;margin:0;border:0;padding:0",k.style.marginRight=k.style.width="0",j.style.width="1px",g=!parseFloat((a.getComputedStyle(k)||{}).marginRight),j.removeChild(k)),j.style.display="none",f=0===j.getClientRects().length,f&&(j.style.display="",j.innerHTML="<table><tr><td></td><td>t</td></tr></table>",j.childNodes[0].style.borderCollapse="separate",k=j.getElementsByTagName("td"),k[0].style.cssText="margin:0;border:0;padding:0;display:none",f=0===k[0].offsetHeight,f&&(k[0].style.display="",k[1].style.display="none",f=0===k[0].offsetHeight)),m.removeChild(i)}}}();var Ra,Sa,Ta=/^(top|right|bottom|left)$/;a.getComputedStyle?(Ra=function(b){var c=b.ownerDocument.defaultView;return c&&c.opener||(c=a),c.getComputedStyle(b)},Sa=function(a,b,c){var d,e,f,g,h=a.style;return c=c||Ra(a),g=c?c.getPropertyValue(b)||c[b]:void 0,""!==g&&void 0!==g||n.contains(a.ownerDocument,a)||(g=n.style(a,b)),c&&!l.pixelMarginRight()&&Oa.test(g)&&Na.test(b)&&(d=h.width,e=h.minWidth,f=h.maxWidth,h.minWidth=h.maxWidth=h.width=g,g=c.width,h.width=d,h.minWidth=e,h.maxWidth=f),void 0===g?g:g+""}):Qa.currentStyle&&(Ra=function(a){return a.currentStyle},Sa=function(a,b,c){var d,e,f,g,h=a.style;return c=c||Ra(a),g=c?c[b]:void 0,null==g&&h&&h[b]&&(g=h[b]),Oa.test(g)&&!Ta.test(b)&&(d=h.left,e=a.runtimeStyle,f=e&&e.left,f&&(e.left=a.currentStyle.left),h.left="fontSize"===b?"1em":g,g=h.pixelLeft+"px",h.left=d,f&&(e.left=f)),void 0===g?g:g+""||"auto"});function Ua(a,b){return{get:function(){return a()?void delete this.get:(this.get=b).apply(this,arguments)}}}var Va=/alpha\([^)]*\)/i,Wa=/opacity\s*=\s*([^)]*)/i,Xa=/^(none|table(?!-c[ea]).+)/,Ya=new RegExp("^("+T+")(.*)$","i"),Za={position:"absolute",visibility:"hidden",display:"block"},$a={letterSpacing:"0",fontWeight:"400"},_a=["Webkit","O","Moz","ms"],ab=d.createElement("div").style;function bb(a){if(a in ab)return a;var b=a.charAt(0).toUpperCase()+a.slice(1),c=_a.length;while(c--)if(a=_a[c]+b,a in ab)return a}function cb(a,b){for(var c,d,e,f=[],g=0,h=a.length;h>g;g++)d=a[g],d.style&&(f[g]=n._data(d,"olddisplay"),c=d.style.display,b?(f[g]||"none"!==c||(d.style.display=""),""===d.style.display&&W(d)&&(f[g]=n._data(d,"olddisplay",Ma(d.nodeName)))):(e=W(d),(c&&"none"!==c||!e)&&n._data(d,"olddisplay",e?c:n.css(d,"display"))));for(g=0;h>g;g++)d=a[g],d.style&&(b&&"none"!==d.style.display&&""!==d.style.display||(d.style.display=b?f[g]||"":"none"));return a}function db(a,b,c){var d=Ya.exec(b);return d?Math.max(0,d[1]-(c||0))+(d[2]||"px"):b}function eb(a,b,c,d,e){for(var f=c===(d?"border":"content")?4:"width"===b?1:0,g=0;4>f;f+=2)"margin"===c&&(g+=n.css(a,c+V[f],!0,e)),d?("content"===c&&(g-=n.css(a,"padding"+V[f],!0,e)),"margin"!==c&&(g-=n.css(a,"border"+V[f]+"Width",!0,e))):(g+=n.css(a,"padding"+V[f],!0,e),"padding"!==c&&(g+=n.css(a,"border"+V[f]+"Width",!0,e)));return g}function fb(a,b,c){var d=!0,e="width"===b?a.offsetWidth:a.offsetHeight,f=Ra(a),g=l.boxSizing&&"border-box"===n.css(a,"boxSizing",!1,f);if(0>=e||null==e){if(e=Sa(a,b,f),(0>e||null==e)&&(e=a.style[b]),Oa.test(e))return e;d=g&&(l.boxSizingReliable()||e===a.style[b]),e=parseFloat(e)||0}return e+eb(a,b,c||(g?"border":"content"),d,f)+"px"}n.extend({cssHooks:{opacity:{get:function(a,b){if(b){var c=Sa(a,"opacity");return""===c?"1":c}}}},cssNumber:{animationIterationCount:!0,columnCount:!0,fillOpacity:!0,flexGrow:!0,flexShrink:!0,fontWeight:!0,lineHeight:!0,opacity:!0,order:!0,orphans:!0,widows:!0,zIndex:!0,zoom:!0},cssProps:{"float":l.cssFloat?"cssFloat":"styleFloat"},style:function(a,b,c,d){if(a&&3!==a.nodeType&&8!==a.nodeType&&a.style){var e,f,g,h=n.camelCase(b),i=a.style;if(b=n.cssProps[h]||(n.cssProps[h]=bb(h)||h),g=n.cssHooks[b]||n.cssHooks[h],void 0===c)return g&&"get"in g&&void 0!==(e=g.get(a,!1,d))?e:i[b];if(f=typeof c,"string"===f&&(e=U.exec(c))&&e[1]&&(c=X(a,b,e),f="number"),null!=c&&c===c&&("number"===f&&(c+=e&&e[3]||(n.cssNumber[h]?"":"px")),l.clearCloneStyle||""!==c||0!==b.indexOf("background")||(i[b]="inherit"),!(g&&"set"in g&&void 0===(c=g.set(a,c,d)))))try{i[b]=c}catch(j){}}},css:function(a,b,c,d){var e,f,g,h=n.camelCase(b);return b=n.cssProps[h]||(n.cssProps[h]=bb(h)||h),g=n.cssHooks[b]||n.cssHooks[h],g&&"get"in g&&(f=g.get(a,!0,c)),void 0===f&&(f=Sa(a,b,d)),"normal"===f&&b in $a&&(f=$a[b]),""===c||c?(e=parseFloat(f),c===!0||isFinite(e)?e||0:f):f}}),n.each(["height","width"],function(a,b){n.cssHooks[b]={get:function(a,c,d){return c?Xa.test(n.css(a,"display"))&&0===a.offsetWidth?Pa(a,Za,function(){return fb(a,b,d)}):fb(a,b,d):void 0},set:function(a,c,d){var e=d&&Ra(a);return db(a,c,d?eb(a,b,d,l.boxSizing&&"border-box"===n.css(a,"boxSizing",!1,e),e):0)}}}),l.opacity||(n.cssHooks.opacity={get:function(a,b){return Wa.test((b&&a.currentStyle?a.currentStyle.filter:a.style.filter)||"")?.01*parseFloat(RegExp.$1)+"":b?"1":""},set:function(a,b){var c=a.style,d=a.currentStyle,e=n.isNumeric(b)?"alpha(opacity="+100*b+")":"",f=d&&d.filter||c.filter||"";c.zoom=1,(b>=1||""===b)&&""===n.trim(f.replace(Va,""))&&c.removeAttribute&&(c.removeAttribute("filter"),""===b||d&&!d.filter)||(c.filter=Va.test(f)?f.replace(Va,e):f+" "+e)}}),n.cssHooks.marginRight=Ua(l.reliableMarginRight,function(a,b){return b?Pa(a,{display:"inline-block"},Sa,[a,"marginRight"]):void 0}),n.cssHooks.marginLeft=Ua(l.reliableMarginLeft,function(a,b){return b?(parseFloat(Sa(a,"marginLeft"))||(n.contains(a.ownerDocument,a)?a.getBoundingClientRect().left-Pa(a,{
+marginLeft:0},function(){return a.getBoundingClientRect().left}):0))+"px":void 0}),n.each({margin:"",padding:"",border:"Width"},function(a,b){n.cssHooks[a+b]={expand:function(c){for(var d=0,e={},f="string"==typeof c?c.split(" "):[c];4>d;d++)e[a+V[d]+b]=f[d]||f[d-2]||f[0];return e}},Na.test(a)||(n.cssHooks[a+b].set=db)}),n.fn.extend({css:function(a,b){return Y(this,function(a,b,c){var d,e,f={},g=0;if(n.isArray(b)){for(d=Ra(a),e=b.length;e>g;g++)f[b[g]]=n.css(a,b[g],!1,d);return f}return void 0!==c?n.style(a,b,c):n.css(a,b)},a,b,arguments.length>1)},show:function(){return cb(this,!0)},hide:function(){return cb(this)},toggle:function(a){return"boolean"==typeof a?a?this.show():this.hide():this.each(function(){W(this)?n(this).show():n(this).hide()})}});function gb(a,b,c,d,e){return new gb.prototype.init(a,b,c,d,e)}n.Tween=gb,gb.prototype={constructor:gb,init:function(a,b,c,d,e,f){this.elem=a,this.prop=c,this.easing=e||n.easing._default,this.options=b,this.start=this.now=this.cur(),this.end=d,this.unit=f||(n.cssNumber[c]?"":"px")},cur:function(){var a=gb.propHooks[this.prop];return a&&a.get?a.get(this):gb.propHooks._default.get(this)},run:function(a){var b,c=gb.propHooks[this.prop];return this.options.duration?this.pos=b=n.easing[this.easing](a,this.options.duration*a,0,1,this.options.duration):this.pos=b=a,this.now=(this.end-this.start)*b+this.start,this.options.step&&this.options.step.call(this.elem,this.now,this),c&&c.set?c.set(this):gb.propHooks._default.set(this),this}},gb.prototype.init.prototype=gb.prototype,gb.propHooks={_default:{get:function(a){var b;return 1!==a.elem.nodeType||null!=a.elem[a.prop]&&null==a.elem.style[a.prop]?a.elem[a.prop]:(b=n.css(a.elem,a.prop,""),b&&"auto"!==b?b:0)},set:function(a){n.fx.step[a.prop]?n.fx.step[a.prop](a):1!==a.elem.nodeType||null==a.elem.style[n.cssProps[a.prop]]&&!n.cssHooks[a.prop]?a.elem[a.prop]=a.now:n.style(a.elem,a.prop,a.now+a.unit)}}},gb.propHooks.scrollTop=gb.propHooks.scrollLeft={set:function(a){a.elem.nodeType&&a.elem.parentNode&&(a.elem[a.prop]=a.now)}},n.easing={linear:function(a){return a},swing:function(a){return.5-Math.cos(a*Math.PI)/2},_default:"swing"},n.fx=gb.prototype.init,n.fx.step={};var hb,ib,jb=/^(?:toggle|show|hide)$/,kb=/queueHooks$/;function lb(){return a.setTimeout(function(){hb=void 0}),hb=n.now()}function mb(a,b){var c,d={height:a},e=0;for(b=b?1:0;4>e;e+=2-b)c=V[e],d["margin"+c]=d["padding"+c]=a;return b&&(d.opacity=d.width=a),d}function nb(a,b,c){for(var d,e=(qb.tweeners[b]||[]).concat(qb.tweeners["*"]),f=0,g=e.length;g>f;f++)if(d=e[f].call(c,b,a))return d}function ob(a,b,c){var d,e,f,g,h,i,j,k,m=this,o={},p=a.style,q=a.nodeType&&W(a),r=n._data(a,"fxshow");c.queue||(h=n._queueHooks(a,"fx"),null==h.unqueued&&(h.unqueued=0,i=h.empty.fire,h.empty.fire=function(){h.unqueued||i()}),h.unqueued++,m.always(function(){m.always(function(){h.unqueued--,n.queue(a,"fx").length||h.empty.fire()})})),1===a.nodeType&&("height"in b||"width"in b)&&(c.overflow=[p.overflow,p.overflowX,p.overflowY],j=n.css(a,"display"),k="none"===j?n._data(a,"olddisplay")||Ma(a.nodeName):j,"inline"===k&&"none"===n.css(a,"float")&&(l.inlineBlockNeedsLayout&&"inline"!==Ma(a.nodeName)?p.zoom=1:p.display="inline-block")),c.overflow&&(p.overflow="hidden",l.shrinkWrapBlocks()||m.always(function(){p.overflow=c.overflow[0],p.overflowX=c.overflow[1],p.overflowY=c.overflow[2]}));for(d in b)if(e=b[d],jb.exec(e)){if(delete b[d],f=f||"toggle"===e,e===(q?"hide":"show")){if("show"!==e||!r||void 0===r[d])continue;q=!0}o[d]=r&&r[d]||n.style(a,d)}else j=void 0;if(n.isEmptyObject(o))"inline"===("none"===j?Ma(a.nodeName):j)&&(p.display=j);else{r?"hidden"in r&&(q=r.hidden):r=n._data(a,"fxshow",{}),f&&(r.hidden=!q),q?n(a).show():m.done(function(){n(a).hide()}),m.done(function(){var b;n._removeData(a,"fxshow");for(b in o)n.style(a,b,o[b])});for(d in o)g=nb(q?r[d]:0,d,m),d in r||(r[d]=g.start,q&&(g.end=g.start,g.start="width"===d||"height"===d?1:0))}}function pb(a,b){var c,d,e,f,g;for(c in a)if(d=n.camelCase(c),e=b[d],f=a[c],n.isArray(f)&&(e=f[1],f=a[c]=f[0]),c!==d&&(a[d]=f,delete a[c]),g=n.cssHooks[d],g&&"expand"in g){f=g.expand(f),delete a[d];for(c in f)c in a||(a[c]=f[c],b[c]=e)}else b[d]=e}function qb(a,b,c){var d,e,f=0,g=qb.prefilters.length,h=n.Deferred().always(function(){delete i.elem}),i=function(){if(e)return!1;for(var b=hb||lb(),c=Math.max(0,j.startTime+j.duration-b),d=c/j.duration||0,f=1-d,g=0,i=j.tweens.length;i>g;g++)j.tweens[g].run(f);return h.notifyWith(a,[j,f,c]),1>f&&i?c:(h.resolveWith(a,[j]),!1)},j=h.promise({elem:a,props:n.extend({},b),opts:n.extend(!0,{specialEasing:{},easing:n.easing._default},c),originalProperties:b,originalOptions:c,startTime:hb||lb(),duration:c.duration,tweens:[],createTween:function(b,c){var d=n.Tween(a,j.opts,b,c,j.opts.specialEasing[b]||j.opts.easing);return j.tweens.push(d),d},stop:function(b){var c=0,d=b?j.tweens.length:0;if(e)return this;for(e=!0;d>c;c++)j.tweens[c].run(1);return b?(h.notifyWith(a,[j,1,0]),h.resolveWith(a,[j,b])):h.rejectWith(a,[j,b]),this}}),k=j.props;for(pb(k,j.opts.specialEasing);g>f;f++)if(d=qb.prefilters[f].call(j,a,k,j.opts))return n.isFunction(d.stop)&&(n._queueHooks(j.elem,j.opts.queue).stop=n.proxy(d.stop,d)),d;return n.map(k,nb,j),n.isFunction(j.opts.start)&&j.opts.start.call(a,j),n.fx.timer(n.extend(i,{elem:a,anim:j,queue:j.opts.queue})),j.progress(j.opts.progress).done(j.opts.done,j.opts.complete).fail(j.opts.fail).always(j.opts.always)}n.Animation=n.extend(qb,{tweeners:{"*":[function(a,b){var c=this.createTween(a,b);return X(c.elem,a,U.exec(b),c),c}]},tweener:function(a,b){n.isFunction(a)?(b=a,a=["*"]):a=a.match(G);for(var c,d=0,e=a.length;e>d;d++)c=a[d],qb.tweeners[c]=qb.tweeners[c]||[],qb.tweeners[c].unshift(b)},prefilters:[ob],prefilter:function(a,b){b?qb.prefilters.unshift(a):qb.prefilters.push(a)}}),n.speed=function(a,b,c){var d=a&&"object"==typeof a?n.extend({},a):{complete:c||!c&&b||n.isFunction(a)&&a,duration:a,easing:c&&b||b&&!n.isFunction(b)&&b};return d.duration=n.fx.off?0:"number"==typeof d.duration?d.duration:d.duration in n.fx.speeds?n.fx.speeds[d.duration]:n.fx.speeds._default,null!=d.queue&&d.queue!==!0||(d.queue="fx"),d.old=d.complete,d.complete=function(){n.isFunction(d.old)&&d.old.call(this),d.queue&&n.dequeue(this,d.queue)},d},n.fn.extend({fadeTo:function(a,b,c,d){return this.filter(W).css("opacity",0).show().end().animate({opacity:b},a,c,d)},animate:function(a,b,c,d){var e=n.isEmptyObject(a),f=n.speed(b,c,d),g=function(){var b=qb(this,n.extend({},a),f);(e||n._data(this,"finish"))&&b.stop(!0)};return g.finish=g,e||f.queue===!1?this.each(g):this.queue(f.queue,g)},stop:function(a,b,c){var d=function(a){var b=a.stop;delete a.stop,b(c)};return"string"!=typeof a&&(c=b,b=a,a=void 0),b&&a!==!1&&this.queue(a||"fx",[]),this.each(function(){var b=!0,e=null!=a&&a+"queueHooks",f=n.timers,g=n._data(this);if(e)g[e]&&g[e].stop&&d(g[e]);else for(e in g)g[e]&&g[e].stop&&kb.test(e)&&d(g[e]);for(e=f.length;e--;)f[e].elem!==this||null!=a&&f[e].queue!==a||(f[e].anim.stop(c),b=!1,f.splice(e,1));!b&&c||n.dequeue(this,a)})},finish:function(a){return a!==!1&&(a=a||"fx"),this.each(function(){var b,c=n._data(this),d=c[a+"queue"],e=c[a+"queueHooks"],f=n.timers,g=d?d.length:0;for(c.finish=!0,n.queue(this,a,[]),e&&e.stop&&e.stop.call(this,!0),b=f.length;b--;)f[b].elem===this&&f[b].queue===a&&(f[b].anim.stop(!0),f.splice(b,1));for(b=0;g>b;b++)d[b]&&d[b].finish&&d[b].finish.call(this);delete c.finish})}}),n.each(["toggle","show","hide"],function(a,b){var c=n.fn[b];n.fn[b]=function(a,d,e){return null==a||"boolean"==typeof a?c.apply(this,arguments):this.animate(mb(b,!0),a,d,e)}}),n.each({slideDown:mb("show"),slideUp:mb("hide"),slideToggle:mb("toggle"),fadeIn:{opacity:"show"},fadeOut:{opacity:"hide"},fadeToggle:{opacity:"toggle"}},function(a,b){n.fn[a]=function(a,c,d){return this.animate(b,a,c,d)}}),n.timers=[],n.fx.tick=function(){var a,b=n.timers,c=0;for(hb=n.now();c<b.length;c++)a=b[c],a()||b[c]!==a||b.splice(c--,1);b.length||n.fx.stop(),hb=void 0},n.fx.timer=function(a){n.timers.push(a),a()?n.fx.start():n.timers.pop()},n.fx.interval=13,n.fx.start=function(){ib||(ib=a.setInterval(n.fx.tick,n.fx.interval))},n.fx.stop=function(){a.clearInterval(ib),ib=null},n.fx.speeds={slow:600,fast:200,_default:400},n.fn.delay=function(b,c){return b=n.fx?n.fx.speeds[b]||b:b,c=c||"fx",this.queue(c,function(c,d){var e=a.setTimeout(c,b);d.stop=function(){a.clearTimeout(e)}})},function(){var a,b=d.createElement("input"),c=d.createElement("div"),e=d.createElement("select"),f=e.appendChild(d.createElement("option"));c=d.createElement("div"),c.setAttribute("className","t"),c.innerHTML="  <link/><table></table><a href='/a'>a</a><input type='checkbox'/>",a=c.getElementsByTagName("a")[0],b.setAttribute("type","checkbox"),c.appendChild(b),a=c.getElementsByTagName("a")[0],a.style.cssText="top:1px",l.getSetAttribute="t"!==c.className,l.style=/top/.test(a.getAttribute("style")),l.hrefNormalized="/a"===a.getAttribute("href"),l.checkOn=!!b.value,l.optSelected=f.selected,l.enctype=!!d.createElement("form").enctype,e.disabled=!0,l.optDisabled=!f.disabled,b=d.createElement("input"),b.setAttribute("value",""),l.input=""===b.getAttribute("value"),b.value="t",b.setAttribute("type","radio"),l.radioValue="t"===b.value}();var rb=/\r/g,sb=/[\x20\t\r\n\f]+/g;n.fn.extend({val:function(a){var b,c,d,e=this[0];{if(arguments.length)return d=n.isFunction(a),this.each(function(c){var e;1===this.nodeType&&(e=d?a.call(this,c,n(this).val()):a,null==e?e="":"number"==typeof e?e+="":n.isArray(e)&&(e=n.map(e,function(a){return null==a?"":a+""})),b=n.valHooks[this.type]||n.valHooks[this.nodeName.toLowerCase()],b&&"set"in b&&void 0!==b.set(this,e,"value")||(this.value=e))});if(e)return b=n.valHooks[e.type]||n.valHooks[e.nodeName.toLowerCase()],b&&"get"in b&&void 0!==(c=b.get(e,"value"))?c:(c=e.value,"string"==typeof c?c.replace(rb,""):null==c?"":c)}}}),n.extend({valHooks:{option:{get:function(a){var b=n.find.attr(a,"value");return null!=b?b:n.trim(n.text(a)).replace(sb," ")}},select:{get:function(a){for(var b,c,d=a.options,e=a.selectedIndex,f="select-one"===a.type||0>e,g=f?null:[],h=f?e+1:d.length,i=0>e?h:f?e:0;h>i;i++)if(c=d[i],(c.selected||i===e)&&(l.optDisabled?!c.disabled:null===c.getAttribute("disabled"))&&(!c.parentNode.disabled||!n.nodeName(c.parentNode,"optgroup"))){if(b=n(c).val(),f)return b;g.push(b)}return g},set:function(a,b){var c,d,e=a.options,f=n.makeArray(b),g=e.length;while(g--)if(d=e[g],n.inArray(n.valHooks.option.get(d),f)>-1)try{d.selected=c=!0}catch(h){d.scrollHeight}else d.selected=!1;return c||(a.selectedIndex=-1),e}}}}),n.each(["radio","checkbox"],function(){n.valHooks[this]={set:function(a,b){return n.isArray(b)?a.checked=n.inArray(n(a).val(),b)>-1:void 0}},l.checkOn||(n.valHooks[this].get=function(a){return null===a.getAttribute("value")?"on":a.value})});var tb,ub,vb=n.expr.attrHandle,wb=/^(?:checked|selected)$/i,xb=l.getSetAttribute,yb=l.input;n.fn.extend({attr:function(a,b){return Y(this,n.attr,a,b,arguments.length>1)},removeAttr:function(a){return this.each(function(){n.removeAttr(this,a)})}}),n.extend({attr:function(a,b,c){var d,e,f=a.nodeType;if(3!==f&&8!==f&&2!==f)return"undefined"==typeof a.getAttribute?n.prop(a,b,c):(1===f&&n.isXMLDoc(a)||(b=b.toLowerCase(),e=n.attrHooks[b]||(n.expr.match.bool.test(b)?ub:tb)),void 0!==c?null===c?void n.removeAttr(a,b):e&&"set"in e&&void 0!==(d=e.set(a,c,b))?d:(a.setAttribute(b,c+""),c):e&&"get"in e&&null!==(d=e.get(a,b))?d:(d=n.find.attr(a,b),null==d?void 0:d))},attrHooks:{type:{set:function(a,b){if(!l.radioValue&&"radio"===b&&n.nodeName(a,"input")){var c=a.value;return a.setAttribute("type",b),c&&(a.value=c),b}}}},removeAttr:function(a,b){var c,d,e=0,f=b&&b.match(G);if(f&&1===a.nodeType)while(c=f[e++])d=n.propFix[c]||c,n.expr.match.bool.test(c)?yb&&xb||!wb.test(c)?a[d]=!1:a[n.camelCase("default-"+c)]=a[d]=!1:n.attr(a,c,""),a.removeAttribute(xb?c:d)}}),ub={set:function(a,b,c){return b===!1?n.removeAttr(a,c):yb&&xb||!wb.test(c)?a.setAttribute(!xb&&n.propFix[c]||c,c):a[n.camelCase("default-"+c)]=a[c]=!0,c}},n.each(n.expr.match.bool.source.match(/\w+/g),function(a,b){var c=vb[b]||n.find.attr;yb&&xb||!wb.test(b)?vb[b]=function(a,b,d){var e,f;return d||(f=vb[b],vb[b]=e,e=null!=c(a,b,d)?b.toLowerCase():null,vb[b]=f),e}:vb[b]=function(a,b,c){return c?void 0:a[n.camelCase("default-"+b)]?b.toLowerCase():null}}),yb&&xb||(n.attrHooks.value={set:function(a,b,c){return n.nodeName(a,"input")?void(a.defaultValue=b):tb&&tb.set(a,b,c)}}),xb||(tb={set:function(a,b,c){var d=a.getAttributeNode(c);return d||a.setAttributeNode(d=a.ownerDocument.createAttribute(c)),d.value=b+="","value"===c||b===a.getAttribute(c)?b:void 0}},vb.id=vb.name=vb.coords=function(a,b,c){var d;return c?void 0:(d=a.getAttributeNode(b))&&""!==d.value?d.value:null},n.valHooks.button={get:function(a,b){var c=a.getAttributeNode(b);return c&&c.specified?c.value:void 0},set:tb.set},n.attrHooks.contenteditable={set:function(a,b,c){tb.set(a,""===b?!1:b,c)}},n.each(["width","height"],function(a,b){n.attrHooks[b]={set:function(a,c){return""===c?(a.setAttribute(b,"auto"),c):void 0}}})),l.style||(n.attrHooks.style={get:function(a){return a.style.cssText||void 0},set:function(a,b){return a.style.cssText=b+""}});var zb=/^(?:input|select|textarea|button|object)$/i,Ab=/^(?:a|area)$/i;n.fn.extend({prop:function(a,b){return Y(this,n.prop,a,b,arguments.length>1)},removeProp:function(a){return a=n.propFix[a]||a,this.each(function(){try{this[a]=void 0,delete this[a]}catch(b){}})}}),n.extend({prop:function(a,b,c){var d,e,f=a.nodeType;if(3!==f&&8!==f&&2!==f)return 1===f&&n.isXMLDoc(a)||(b=n.propFix[b]||b,e=n.propHooks[b]),void 0!==c?e&&"set"in e&&void 0!==(d=e.set(a,c,b))?d:a[b]=c:e&&"get"in e&&null!==(d=e.get(a,b))?d:a[b]},propHooks:{tabIndex:{get:function(a){var b=n.find.attr(a,"tabindex");return b?parseInt(b,10):zb.test(a.nodeName)||Ab.test(a.nodeName)&&a.href?0:-1}}},propFix:{"for":"htmlFor","class":"className"}}),l.hrefNormalized||n.each(["href","src"],function(a,b){n.propHooks[b]={get:function(a){return a.getAttribute(b,4)}}}),l.optSelected||(n.propHooks.selected={get:function(a){var b=a.parentNode;return b&&(b.selectedIndex,b.parentNode&&b.parentNode.selectedIndex),null},set:function(a){var b=a.parentNode;b&&(b.selectedIndex,b.parentNode&&b.parentNode.selectedIndex)}}),n.each(["tabIndex","readOnly","maxLength","cellSpacing","cellPadding","rowSpan","colSpan","useMap","frameBorder","contentEditable"],function(){n.propFix[this.toLowerCase()]=this}),l.enctype||(n.propFix.enctype="encoding");var Bb=/[\t\r\n\f]/g;function Cb(a){return n.attr(a,"class")||""}n.fn.extend({addClass:function(a){var b,c,d,e,f,g,h,i=0;if(n.isFunction(a))return this.each(function(b){n(this).addClass(a.call(this,b,Cb(this)))});if("string"==typeof a&&a){b=a.match(G)||[];while(c=this[i++])if(e=Cb(c),d=1===c.nodeType&&(" "+e+" ").replace(Bb," ")){g=0;while(f=b[g++])d.indexOf(" "+f+" ")<0&&(d+=f+" ");h=n.trim(d),e!==h&&n.attr(c,"class",h)}}return this},removeClass:function(a){var b,c,d,e,f,g,h,i=0;if(n.isFunction(a))return this.each(function(b){n(this).removeClass(a.call(this,b,Cb(this)))});if(!arguments.length)return this.attr("class","");if("string"==typeof a&&a){b=a.match(G)||[];while(c=this[i++])if(e=Cb(c),d=1===c.nodeType&&(" "+e+" ").replace(Bb," ")){g=0;while(f=b[g++])while(d.indexOf(" "+f+" ")>-1)d=d.replace(" "+f+" "," ");h=n.trim(d),e!==h&&n.attr(c,"class",h)}}return this},toggleClass:function(a,b){var c=typeof a;return"boolean"==typeof b&&"string"===c?b?this.addClass(a):this.removeClass(a):n.isFunction(a)?this.each(function(c){n(this).toggleClass(a.call(this,c,Cb(this),b),b)}):this.each(function(){var b,d,e,f;if("string"===c){d=0,e=n(this),f=a.match(G)||[];while(b=f[d++])e.hasClass(b)?e.removeClass(b):e.addClass(b)}else void 0!==a&&"boolean"!==c||(b=Cb(this),b&&n._data(this,"__className__",b),n.attr(this,"class",b||a===!1?"":n._data(this,"__className__")||""))})},hasClass:function(a){var b,c,d=0;b=" "+a+" ";while(c=this[d++])if(1===c.nodeType&&(" "+Cb(c)+" ").replace(Bb," ").indexOf(b)>-1)return!0;return!1}}),n.each("blur focus focusin focusout load resize scroll unload click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup error contextmenu".split(" "),function(a,b){n.fn[b]=function(a,c){return arguments.length>0?this.on(b,null,a,c):this.trigger(b)}}),n.fn.extend({hover:function(a,b){return this.mouseenter(a).mouseleave(b||a)}});var Db=a.location,Eb=n.now(),Fb=/\?/,Gb=/(,)|(\[|{)|(}|])|"(?:[^"\\\r\n]|\\["\\\/bfnrt]|\\u[\da-fA-F]{4})*"\s*:?|true|false|null|-?(?!0\d)\d+(?:\.\d+|)(?:[eE][+-]?\d+|)/g;n.parseJSON=function(b){if(a.JSON&&a.JSON.parse)return a.JSON.parse(b+"");var c,d=null,e=n.trim(b+"");return e&&!n.trim(e.replace(Gb,function(a,b,e,f){return c&&b&&(d=0),0===d?a:(c=e||b,d+=!f-!e,"")}))?Function("return "+e)():n.error("Invalid JSON: "+b)},n.parseXML=function(b){var c,d;if(!b||"string"!=typeof b)return null;try{a.DOMParser?(d=new a.DOMParser,c=d.parseFromString(b,"text/xml")):(c=new a.ActiveXObject("Microsoft.XMLDOM"),c.async="false",c.loadXML(b))}catch(e){c=void 0}return c&&c.documentElement&&!c.getElementsByTagName("parsererror").length||n.error("Invalid XML: "+b),c};var Hb=/#.*$/,Ib=/([?&])_=[^&]*/,Jb=/^(.*?):[ \t]*([^\r\n]*)\r?$/gm,Kb=/^(?:about|app|app-storage|.+-extension|file|res|widget):$/,Lb=/^(?:GET|HEAD)$/,Mb=/^\/\//,Nb=/^([\w.+-]+:)(?:\/\/(?:[^\/?#]*@|)([^\/?#:]*)(?::(\d+)|)|)/,Ob={},Pb={},Qb="*/".concat("*"),Rb=Db.href,Sb=Nb.exec(Rb.toLowerCase())||[];function Tb(a){return function(b,c){"string"!=typeof b&&(c=b,b="*");var d,e=0,f=b.toLowerCase().match(G)||[];if(n.isFunction(c))while(d=f[e++])"+"===d.charAt(0)?(d=d.slice(1)||"*",(a[d]=a[d]||[]).unshift(c)):(a[d]=a[d]||[]).push(c)}}function Ub(a,b,c,d){var e={},f=a===Pb;function g(h){var i;return e[h]=!0,n.each(a[h]||[],function(a,h){var j=h(b,c,d);return"string"!=typeof j||f||e[j]?f?!(i=j):void 0:(b.dataTypes.unshift(j),g(j),!1)}),i}return g(b.dataTypes[0])||!e["*"]&&g("*")}function Vb(a,b){var c,d,e=n.ajaxSettings.flatOptions||{};for(d in b)void 0!==b[d]&&((e[d]?a:c||(c={}))[d]=b[d]);return c&&n.extend(!0,a,c),a}function Wb(a,b,c){var d,e,f,g,h=a.contents,i=a.dataTypes;while("*"===i[0])i.shift(),void 0===e&&(e=a.mimeType||b.getResponseHeader("Content-Type"));if(e)for(g in h)if(h[g]&&h[g].test(e)){i.unshift(g);break}if(i[0]in c)f=i[0];else{for(g in c){if(!i[0]||a.converters[g+" "+i[0]]){f=g;break}d||(d=g)}f=f||d}return f?(f!==i[0]&&i.unshift(f),c[f]):void 0}function Xb(a,b,c,d){var e,f,g,h,i,j={},k=a.dataTypes.slice();if(k[1])for(g in a.converters)j[g.toLowerCase()]=a.converters[g];f=k.shift();while(f)if(a.responseFields[f]&&(c[a.responseFields[f]]=b),!i&&d&&a.dataFilter&&(b=a.dataFilter(b,a.dataType)),i=f,f=k.shift())if("*"===f)f=i;else if("*"!==i&&i!==f){if(g=j[i+" "+f]||j["* "+f],!g)for(e in j)if(h=e.split(" "),h[1]===f&&(g=j[i+" "+h[0]]||j["* "+h[0]])){g===!0?g=j[e]:j[e]!==!0&&(f=h[0],k.unshift(h[1]));break}if(g!==!0)if(g&&a["throws"])b=g(b);else try{b=g(b)}catch(l){return{state:"parsererror",error:g?l:"No conversion from "+i+" to "+f}}}return{state:"success",data:b}}n.extend({active:0,lastModified:{},etag:{},ajaxSettings:{url:Rb,type:"GET",isLocal:Kb.test(Sb[1]),global:!0,processData:!0,async:!0,contentType:"application/x-www-form-urlencoded; charset=UTF-8",accepts:{"*":Qb,text:"text/plain",html:"text/html",xml:"application/xml, text/xml",json:"application/json, text/javascript"},contents:{xml:/\bxml\b/,html:/\bhtml/,json:/\bjson\b/},responseFields:{xml:"responseXML",text:"responseText",json:"responseJSON"},converters:{"* text":String,"text html":!0,"text json":n.parseJSON,"text xml":n.parseXML},flatOptions:{url:!0,context:!0}},ajaxSetup:function(a,b){return b?Vb(Vb(a,n.ajaxSettings),b):Vb(n.ajaxSettings,a)},ajaxPrefilter:Tb(Ob),ajaxTransport:Tb(Pb),ajax:function(b,c){"object"==typeof b&&(c=b,b=void 0),c=c||{};var d,e,f,g,h,i,j,k,l=n.ajaxSetup({},c),m=l.context||l,o=l.context&&(m.nodeType||m.jquery)?n(m):n.event,p=n.Deferred(),q=n.Callbacks("once memory"),r=l.statusCode||{},s={},t={},u=0,v="canceled",w={readyState:0,getResponseHeader:function(a){var b;if(2===u){if(!k){k={};while(b=Jb.exec(g))k[b[1].toLowerCase()]=b[2]}b=k[a.toLowerCase()]}return null==b?null:b},getAllResponseHeaders:function(){return 2===u?g:null},setRequestHeader:function(a,b){var c=a.toLowerCase();return u||(a=t[c]=t[c]||a,s[a]=b),this},overrideMimeType:function(a){return u||(l.mimeType=a),this},statusCode:function(a){var b;if(a)if(2>u)for(b in a)r[b]=[r[b],a[b]];else w.always(a[w.status]);return this},abort:function(a){var b=a||v;return j&&j.abort(b),y(0,b),this}};if(p.promise(w).complete=q.add,w.success=w.done,w.error=w.fail,l.url=((b||l.url||Rb)+"").replace(Hb,"").replace(Mb,Sb[1]+"//"),l.type=c.method||c.type||l.method||l.type,l.dataTypes=n.trim(l.dataType||"*").toLowerCase().match(G)||[""],null==l.crossDomain&&(d=Nb.exec(l.url.toLowerCase()),l.crossDomain=!(!d||d[1]===Sb[1]&&d[2]===Sb[2]&&(d[3]||("http:"===d[1]?"80":"443"))===(Sb[3]||("http:"===Sb[1]?"80":"443")))),l.data&&l.processData&&"string"!=typeof l.data&&(l.data=n.param(l.data,l.traditional)),Ub(Ob,l,c,w),2===u)return w;i=n.event&&l.global,i&&0===n.active++&&n.event.trigger("ajaxStart"),l.type=l.type.toUpperCase(),l.hasContent=!Lb.test(l.type),f=l.url,l.hasContent||(l.data&&(f=l.url+=(Fb.test(f)?"&":"?")+l.data,delete l.data),l.cache===!1&&(l.url=Ib.test(f)?f.replace(Ib,"$1_="+Eb++):f+(Fb.test(f)?"&":"?")+"_="+Eb++)),l.ifModified&&(n.lastModified[f]&&w.setRequestHeader("If-Modified-Since",n.lastModified[f]),n.etag[f]&&w.setRequestHeader("If-None-Match",n.etag[f])),(l.data&&l.hasContent&&l.contentType!==!1||c.contentType)&&w.setRequestHeader("Content-Type",l.contentType),w.setRequestHeader("Accept",l.dataTypes[0]&&l.accepts[l.dataTypes[0]]?l.accepts[l.dataTypes[0]]+("*"!==l.dataTypes[0]?", "+Qb+"; q=0.01":""):l.accepts["*"]);for(e in l.headers)w.setRequestHeader(e,l.headers[e]);if(l.beforeSend&&(l.beforeSend.call(m,w,l)===!1||2===u))return w.abort();v="abort";for(e in{success:1,error:1,complete:1})w[e](l[e]);if(j=Ub(Pb,l,c,w)){if(w.readyState=1,i&&o.trigger("ajaxSend",[w,l]),2===u)return w;l.async&&l.timeout>0&&(h=a.setTimeout(function(){w.abort("timeout")},l.timeout));try{u=1,j.send(s,y)}catch(x){if(!(2>u))throw x;y(-1,x)}}else y(-1,"No Transport");function y(b,c,d,e){var k,s,t,v,x,y=c;2!==u&&(u=2,h&&a.clearTimeout(h),j=void 0,g=e||"",w.readyState=b>0?4:0,k=b>=200&&300>b||304===b,d&&(v=Wb(l,w,d)),v=Xb(l,v,w,k),k?(l.ifModified&&(x=w.getResponseHeader("Last-Modified"),x&&(n.lastModified[f]=x),x=w.getResponseHeader("etag"),x&&(n.etag[f]=x)),204===b||"HEAD"===l.type?y="nocontent":304===b?y="notmodified":(y=v.state,s=v.data,t=v.error,k=!t)):(t=y,!b&&y||(y="error",0>b&&(b=0))),w.status=b,w.statusText=(c||y)+"",k?p.resolveWith(m,[s,y,w]):p.rejectWith(m,[w,y,t]),w.statusCode(r),r=void 0,i&&o.trigger(k?"ajaxSuccess":"ajaxError",[w,l,k?s:t]),q.fireWith(m,[w,y]),i&&(o.trigger("ajaxComplete",[w,l]),--n.active||n.event.trigger("ajaxStop")))}return w},getJSON:function(a,b,c){return n.get(a,b,c,"json")},getScript:function(a,b){return n.get(a,void 0,b,"script")}}),n.each(["get","post"],function(a,b){n[b]=function(a,c,d,e){return n.isFunction(c)&&(e=e||d,d=c,c=void 0),n.ajax(n.extend({url:a,type:b,dataType:e,data:c,success:d},n.isPlainObject(a)&&a))}}),n._evalUrl=function(a){return n.ajax({url:a,type:"GET",dataType:"script",cache:!0,async:!1,global:!1,"throws":!0})},n.fn.extend({wrapAll:function(a){if(n.isFunction(a))return this.each(function(b){n(this).wrapAll(a.call(this,b))});if(this[0]){var b=n(a,this[0].ownerDocument).eq(0).clone(!0);this[0].parentNode&&b.insertBefore(this[0]),b.map(function(){var a=this;while(a.firstChild&&1===a.firstChild.nodeType)a=a.firstChild;return a}).append(this)}return this},wrapInner:function(a){return n.isFunction(a)?this.each(function(b){n(this).wrapInner(a.call(this,b))}):this.each(function(){var b=n(this),c=b.contents();c.length?c.wrapAll(a):b.append(a)})},wrap:function(a){var b=n.isFunction(a);return this.each(function(c){n(this).wrapAll(b?a.call(this,c):a)})},unwrap:function(){return this.parent().each(function(){n.nodeName(this,"body")||n(this).replaceWith(this.childNodes)}).end()}});function Yb(a){return a.style&&a.style.display||n.css(a,"display")}function Zb(a){if(!n.contains(a.ownerDocument||d,a))return!0;while(a&&1===a.nodeType){if("none"===Yb(a)||"hidden"===a.type)return!0;a=a.parentNode}return!1}n.expr.filters.hidden=function(a){return l.reliableHiddenOffsets()?a.offsetWidth<=0&&a.offsetHeight<=0&&!a.getClientRects().length:Zb(a)},n.expr.filters.visible=function(a){return!n.expr.filters.hidden(a)};var $b=/%20/g,_b=/\[\]$/,ac=/\r?\n/g,bc=/^(?:submit|button|image|reset|file)$/i,cc=/^(?:input|select|textarea|keygen)/i;function dc(a,b,c,d){var e;if(n.isArray(b))n.each(b,function(b,e){c||_b.test(a)?d(a,e):dc(a+"["+("object"==typeof e&&null!=e?b:"")+"]",e,c,d)});else if(c||"object"!==n.type(b))d(a,b);else for(e in b)dc(a+"["+e+"]",b[e],c,d)}n.param=function(a,b){var c,d=[],e=function(a,b){b=n.isFunction(b)?b():null==b?"":b,d[d.length]=encodeURIComponent(a)+"="+encodeURIComponent(b)};if(void 0===b&&(b=n.ajaxSettings&&n.ajaxSettings.traditional),n.isArray(a)||a.jquery&&!n.isPlainObject(a))n.each(a,function(){e(this.name,this.value)});else for(c in a)dc(c,a[c],b,e);return d.join("&").replace($b,"+")},n.fn.extend({serialize:function(){return n.param(this.serializeArray())},serializeArray:function(){return this.map(function(){var a=n.prop(this,"elements");return a?n.makeArray(a):this}).filter(function(){var a=this.type;return this.name&&!n(this).is(":disabled")&&cc.test(this.nodeName)&&!bc.test(a)&&(this.checked||!Z.test(a))}).map(function(a,b){var c=n(this).val();return null==c?null:n.isArray(c)?n.map(c,function(a){return{name:b.name,value:a.replace(ac,"\r\n")}}):{name:b.name,value:c.replace(ac,"\r\n")}}).get()}}),n.ajaxSettings.xhr=void 0!==a.ActiveXObject?function(){return this.isLocal?ic():d.documentMode>8?hc():/^(get|post|head|put|delete|options)$/i.test(this.type)&&hc()||ic()}:hc;var ec=0,fc={},gc=n.ajaxSettings.xhr();a.attachEvent&&a.attachEvent("onunload",function(){for(var a in fc)fc[a](void 0,!0)}),l.cors=!!gc&&"withCredentials"in gc,gc=l.ajax=!!gc,gc&&n.ajaxTransport(function(b){if(!b.crossDomain||l.cors){var c;return{send:function(d,e){var f,g=b.xhr(),h=++ec;if(g.open(b.type,b.url,b.async,b.username,b.password),b.xhrFields)for(f in b.xhrFields)g[f]=b.xhrFields[f];b.mimeType&&g.overrideMimeType&&g.overrideMimeType(b.mimeType),b.crossDomain||d["X-Requested-With"]||(d["X-Requested-With"]="XMLHttpRequest");for(f in d)void 0!==d[f]&&g.setRequestHeader(f,d[f]+"");g.send(b.hasContent&&b.data||null),c=function(a,d){var f,i,j;if(c&&(d||4===g.readyState))if(delete fc[h],c=void 0,g.onreadystatechange=n.noop,d)4!==g.readyState&&g.abort();else{j={},f=g.status,"string"==typeof g.responseText&&(j.text=g.responseText);try{i=g.statusText}catch(k){i=""}f||!b.isLocal||b.crossDomain?1223===f&&(f=204):f=j.text?200:404}j&&e(f,i,j,g.getAllResponseHeaders())},b.async?4===g.readyState?a.setTimeout(c):g.onreadystatechange=fc[h]=c:c()},abort:function(){c&&c(void 0,!0)}}}});function hc(){try{return new a.XMLHttpRequest}catch(b){}}function ic(){try{return new a.ActiveXObject("Microsoft.XMLHTTP")}catch(b){}}n.ajaxSetup({accepts:{script:"text/javascript, application/javascript, application/ecmascript, application/x-ecmascript"},contents:{script:/\b(?:java|ecma)script\b/},converters:{"text script":function(a){return n.globalEval(a),a}}}),n.ajaxPrefilter("script",function(a){void 0===a.cache&&(a.cache=!1),a.crossDomain&&(a.type="GET",a.global=!1)}),n.ajaxTransport("script",function(a){if(a.crossDomain){var b,c=d.head||n("head")[0]||d.documentElement;return{send:function(e,f){b=d.createElement("script"),b.async=!0,a.scriptCharset&&(b.charset=a.scriptCharset),b.src=a.url,b.onload=b.onreadystatechange=function(a,c){(c||!b.readyState||/loaded|complete/.test(b.readyState))&&(b.onload=b.onreadystatechange=null,b.parentNode&&b.parentNode.removeChild(b),b=null,c||f(200,"success"))},c.insertBefore(b,c.firstChild)},abort:function(){b&&b.onload(void 0,!0)}}}});var jc=[],kc=/(=)\?(?=&|$)|\?\?/;n.ajaxSetup({jsonp:"callback",jsonpCallback:function(){var a=jc.pop()||n.expando+"_"+Eb++;return this[a]=!0,a}}),n.ajaxPrefilter("json jsonp",function(b,c,d){var e,f,g,h=b.jsonp!==!1&&(kc.test(b.url)?"url":"string"==typeof b.data&&0===(b.contentType||"").indexOf("application/x-www-form-urlencoded")&&kc.test(b.data)&&"data");return h||"jsonp"===b.dataTypes[0]?(e=b.jsonpCallback=n.isFunction(b.jsonpCallback)?b.jsonpCallback():b.jsonpCallback,h?b[h]=b[h].replace(kc,"$1"+e):b.jsonp!==!1&&(b.url+=(Fb.test(b.url)?"&":"?")+b.jsonp+"="+e),b.converters["script json"]=function(){return g||n.error(e+" was not called"),g[0]},b.dataTypes[0]="json",f=a[e],a[e]=function(){g=arguments},d.always(function(){void 0===f?n(a).removeProp(e):a[e]=f,b[e]&&(b.jsonpCallback=c.jsonpCallback,jc.push(e)),g&&n.isFunction(f)&&f(g[0]),g=f=void 0}),"script"):void 0}),n.parseHTML=function(a,b,c){if(!a||"string"!=typeof a)return null;"boolean"==typeof b&&(c=b,b=!1),b=b||d;var e=x.exec(a),f=!c&&[];return e?[b.createElement(e[1])]:(e=ja([a],b,f),f&&f.length&&n(f).remove(),n.merge([],e.childNodes))};var lc=n.fn.load;n.fn.load=function(a,b,c){if("string"!=typeof a&&lc)return lc.apply(this,arguments);var d,e,f,g=this,h=a.indexOf(" ");return h>-1&&(d=n.trim(a.slice(h,a.length)),a=a.slice(0,h)),n.isFunction(b)?(c=b,b=void 0):b&&"object"==typeof b&&(e="POST"),g.length>0&&n.ajax({url:a,type:e||"GET",dataType:"html",data:b}).done(function(a){f=arguments,g.html(d?n("<div>").append(n.parseHTML(a)).find(d):a)}).always(c&&function(a,b){g.each(function(){c.apply(this,f||[a.responseText,b,a])})}),this},n.each(["ajaxStart","ajaxStop","ajaxComplete","ajaxError","ajaxSuccess","ajaxSend"],function(a,b){n.fn[b]=function(a){return this.on(b,a)}}),n.expr.filters.animated=function(a){return n.grep(n.timers,function(b){return a===b.elem}).length};function mc(a){return n.isWindow(a)?a:9===a.nodeType?a.defaultView||a.parentWindow:!1}n.offset={setOffset:function(a,b,c){var d,e,f,g,h,i,j,k=n.css(a,"position"),l=n(a),m={};"static"===k&&(a.style.position="relative"),h=l.offset(),f=n.css(a,"top"),i=n.css(a,"left"),j=("absolute"===k||"fixed"===k)&&n.inArray("auto",[f,i])>-1,j?(d=l.position(),g=d.top,e=d.left):(g=parseFloat(f)||0,e=parseFloat(i)||0),n.isFunction(b)&&(b=b.call(a,c,n.extend({},h))),null!=b.top&&(m.top=b.top-h.top+g),null!=b.left&&(m.left=b.left-h.left+e),"using"in b?b.using.call(a,m):l.css(m)}},n.fn.extend({offset:function(a){if(arguments.length)return void 0===a?this:this.each(function(b){n.offset.setOffset(this,a,b)});var b,c,d={top:0,left:0},e=this[0],f=e&&e.ownerDocument;if(f)return b=f.documentElement,n.contains(b,e)?("undefined"!=typeof e.getBoundingClientRect&&(d=e.getBoundingClientRect()),c=mc(f),{top:d.top+(c.pageYOffset||b.scrollTop)-(b.clientTop||0),left:d.left+(c.pageXOffset||b.scrollLeft)-(b.clientLeft||0)}):d},position:function(){if(this[0]){var a,b,c={top:0,left:0},d=this[0];return"fixed"===n.css(d,"position")?b=d.getBoundingClientRect():(a=this.offsetParent(),b=this.offset(),n.nodeName(a[0],"html")||(c=a.offset()),c.top+=n.css(a[0],"borderTopWidth",!0),c.left+=n.css(a[0],"borderLeftWidth",!0)),{top:b.top-c.top-n.css(d,"marginTop",!0),left:b.left-c.left-n.css(d,"marginLeft",!0)}}},offsetParent:function(){return this.map(function(){var a=this.offsetParent;while(a&&!n.nodeName(a,"html")&&"static"===n.css(a,"position"))a=a.offsetParent;return a||Qa})}}),n.each({scrollLeft:"pageXOffset",scrollTop:"pageYOffset"},function(a,b){var c=/Y/.test(b);n.fn[a]=function(d){return Y(this,function(a,d,e){var f=mc(a);return void 0===e?f?b in f?f[b]:f.document.documentElement[d]:a[d]:void(f?f.scrollTo(c?n(f).scrollLeft():e,c?e:n(f).scrollTop()):a[d]=e)},a,d,arguments.length,null)}}),n.each(["top","left"],function(a,b){n.cssHooks[b]=Ua(l.pixelPosition,function(a,c){return c?(c=Sa(a,b),Oa.test(c)?n(a).position()[b]+"px":c):void 0})}),n.each({Height:"height",Width:"width"},function(a,b){n.each({
+padding:"inner"+a,content:b,"":"outer"+a},function(c,d){n.fn[d]=function(d,e){var f=arguments.length&&(c||"boolean"!=typeof d),g=c||(d===!0||e===!0?"margin":"border");return Y(this,function(b,c,d){var e;return n.isWindow(b)?b.document.documentElement["client"+a]:9===b.nodeType?(e=b.documentElement,Math.max(b.body["scroll"+a],e["scroll"+a],b.body["offset"+a],e["offset"+a],e["client"+a])):void 0===d?n.css(b,c,g):n.style(b,c,d,g)},b,f?d:void 0,f,null)}})}),n.fn.extend({bind:function(a,b,c){return this.on(a,null,b,c)},unbind:function(a,b){return this.off(a,null,b)},delegate:function(a,b,c,d){return this.on(b,a,c,d)},undelegate:function(a,b,c){return 1===arguments.length?this.off(a,"**"):this.off(b,a||"**",c)}}),n.fn.size=function(){return this.length},n.fn.andSelf=n.fn.addBack,"function"==typeof define&&define.amd&&define("jquery",[],function(){return n});var nc=a.jQuery,oc=a.$;return n.noConflict=function(b){return a.$===n&&(a.$=oc),b&&a.jQuery===n&&(a.jQuery=nc),n},b||(a.jQuery=a.$=n),n});
+/*! jQuery Migrate v1.4.1 | (c) jQuery Foundation and other contributors | jquery.org/license */
+"undefined"==typeof jQuery.migrateMute&&(jQuery.migrateMute=!0),function(a,b,c){function d(c){var d=b.console;f[c]||(f[c]=!0,a.migrateWarnings.push(c),d&&d.warn&&!a.migrateMute&&(d.warn("JQMIGRATE: "+c),a.migrateTrace&&d.trace&&d.trace()))}function e(b,c,e,f){if(Object.defineProperty)try{return void Object.defineProperty(b,c,{configurable:!0,enumerable:!0,get:function(){return d(f),e},set:function(a){d(f),e=a}})}catch(g){}a._definePropertyBroken=!0,b[c]=e}a.migrateVersion="1.4.1";var f={};a.migrateWarnings=[],b.console&&b.console.log&&b.console.log("JQMIGRATE: Migrate is installed"+(a.migrateMute?"":" with logging active")+", version "+a.migrateVersion),a.migrateTrace===c&&(a.migrateTrace=!0),a.migrateReset=function(){f={},a.migrateWarnings.length=0},"BackCompat"===document.compatMode&&d("jQuery is not compatible with Quirks Mode");var g=a("<input/>",{size:1}).attr("size")&&a.attrFn,h=a.attr,i=a.attrHooks.value&&a.attrHooks.value.get||function(){return null},j=a.attrHooks.value&&a.attrHooks.value.set||function(){return c},k=/^(?:input|button)$/i,l=/^[238]$/,m=/^(?:autofocus|autoplay|async|checked|controls|defer|disabled|hidden|loop|multiple|open|readonly|required|scoped|selected)$/i,n=/^(?:checked|selected)$/i;e(a,"attrFn",g||{},"jQuery.attrFn is deprecated"),a.attr=function(b,e,f,i){var j=e.toLowerCase(),o=b&&b.nodeType;return i&&(h.length<4&&d("jQuery.fn.attr( props, pass ) is deprecated"),b&&!l.test(o)&&(g?e in g:a.isFunction(a.fn[e])))?a(b)[e](f):("type"===e&&f!==c&&k.test(b.nodeName)&&b.parentNode&&d("Can't change the 'type' of an input or button in IE 6/7/8"),!a.attrHooks[j]&&m.test(j)&&(a.attrHooks[j]={get:function(b,d){var e,f=a.prop(b,d);return f===!0||"boolean"!=typeof f&&(e=b.getAttributeNode(d))&&e.nodeValue!==!1?d.toLowerCase():c},set:function(b,c,d){var e;return c===!1?a.removeAttr(b,d):(e=a.propFix[d]||d,e in b&&(b[e]=!0),b.setAttribute(d,d.toLowerCase())),d}},n.test(j)&&d("jQuery.fn.attr('"+j+"') might use property instead of attribute")),h.call(a,b,e,f))},a.attrHooks.value={get:function(a,b){var c=(a.nodeName||"").toLowerCase();return"button"===c?i.apply(this,arguments):("input"!==c&&"option"!==c&&d("jQuery.fn.attr('value') no longer gets properties"),b in a?a.value:null)},set:function(a,b){var c=(a.nodeName||"").toLowerCase();return"button"===c?j.apply(this,arguments):("input"!==c&&"option"!==c&&d("jQuery.fn.attr('value', val) no longer sets properties"),void(a.value=b))}};var o,p,q=a.fn.init,r=a.find,s=a.parseJSON,t=/^\s*</,u=/\[(\s*[-\w]+\s*)([~|^$*]?=)\s*([-\w#]*?#[-\w#]*)\s*\]/,v=/\[(\s*[-\w]+\s*)([~|^$*]?=)\s*([-\w#]*?#[-\w#]*)\s*\]/g,w=/^([^<]*)(<[\w\W]+>)([^>]*)$/;a.fn.init=function(b,e,f){var g,h;return b&&"string"==typeof b&&!a.isPlainObject(e)&&(g=w.exec(a.trim(b)))&&g[0]&&(t.test(b)||d("$(html) HTML strings must start with '<' character"),g[3]&&d("$(html) HTML text after last tag is ignored"),"#"===g[0].charAt(0)&&(d("HTML string cannot start with a '#' character"),a.error("JQMIGRATE: Invalid selector string (XSS)")),e&&e.context&&e.context.nodeType&&(e=e.context),a.parseHTML)?q.call(this,a.parseHTML(g[2],e&&e.ownerDocument||e||document,!0),e,f):(h=q.apply(this,arguments),b&&b.selector!==c?(h.selector=b.selector,h.context=b.context):(h.selector="string"==typeof b?b:"",b&&(h.context=b.nodeType?b:e||document)),h)},a.fn.init.prototype=a.fn,a.find=function(a){var b=Array.prototype.slice.call(arguments);if("string"==typeof a&&u.test(a))try{document.querySelector(a)}catch(c){a=a.replace(v,function(a,b,c,d){return"["+b+c+'"'+d+'"]'});try{document.querySelector(a),d("Attribute selector with '#' must be quoted: "+b[0]),b[0]=a}catch(e){d("Attribute selector with '#' was not fixed: "+b[0])}}return r.apply(this,b)};var x;for(x in r)Object.prototype.hasOwnProperty.call(r,x)&&(a.find[x]=r[x]);a.parseJSON=function(a){return a?s.apply(this,arguments):(d("jQuery.parseJSON requires a valid JSON string"),null)},a.uaMatch=function(a){a=a.toLowerCase();var b=/(chrome)[ \/]([\w.]+)/.exec(a)||/(webkit)[ \/]([\w.]+)/.exec(a)||/(opera)(?:.*version|)[ \/]([\w.]+)/.exec(a)||/(msie) ([\w.]+)/.exec(a)||a.indexOf("compatible")<0&&/(mozilla)(?:.*? rv:([\w.]+)|)/.exec(a)||[];return{browser:b[1]||"",version:b[2]||"0"}},a.browser||(o=a.uaMatch(navigator.userAgent),p={},o.browser&&(p[o.browser]=!0,p.version=o.version),p.chrome?p.webkit=!0:p.webkit&&(p.safari=!0),a.browser=p),e(a,"browser",a.browser,"jQuery.browser is deprecated"),a.boxModel=a.support.boxModel="CSS1Compat"===document.compatMode,e(a,"boxModel",a.boxModel,"jQuery.boxModel is deprecated"),e(a.support,"boxModel",a.support.boxModel,"jQuery.support.boxModel is deprecated"),a.sub=function(){function b(a,c){return new b.fn.init(a,c)}a.extend(!0,b,this),b.superclass=this,b.fn=b.prototype=this(),b.fn.constructor=b,b.sub=this.sub,b.fn.init=function(d,e){var f=a.fn.init.call(this,d,e,c);return f instanceof b?f:b(f)},b.fn.init.prototype=b.fn;var c=b(document);return d("jQuery.sub() is deprecated"),b},a.fn.size=function(){return d("jQuery.fn.size() is deprecated; use the .length property"),this.length};var y=!1;a.swap&&a.each(["height","width","reliableMarginRight"],function(b,c){var d=a.cssHooks[c]&&a.cssHooks[c].get;d&&(a.cssHooks[c].get=function(){var a;return y=!0,a=d.apply(this,arguments),y=!1,a})}),a.swap=function(a,b,c,e){var f,g,h={};y||d("jQuery.swap() is undocumented and deprecated");for(g in b)h[g]=a.style[g],a.style[g]=b[g];f=c.apply(a,e||[]);for(g in b)a.style[g]=h[g];return f},a.ajaxSetup({converters:{"text json":a.parseJSON}});var z=a.fn.data;a.fn.data=function(b){var e,f,g=this[0];return!g||"events"!==b||1!==arguments.length||(e=a.data(g,b),f=a._data(g,b),e!==c&&e!==f||f===c)?z.apply(this,arguments):(d("Use of jQuery.fn.data('events') is deprecated"),f)};var A=/\/(java|ecma)script/i;a.clean||(a.clean=function(b,c,e,f){c=c||document,c=!c.nodeType&&c[0]||c,c=c.ownerDocument||c,d("jQuery.clean() is deprecated");var g,h,i,j,k=[];if(a.merge(k,a.buildFragment(b,c).childNodes),e)for(i=function(a){return!a.type||A.test(a.type)?f?f.push(a.parentNode?a.parentNode.removeChild(a):a):e.appendChild(a):void 0},g=0;null!=(h=k[g]);g++)a.nodeName(h,"script")&&i(h)||(e.appendChild(h),"undefined"!=typeof h.getElementsByTagName&&(j=a.grep(a.merge([],h.getElementsByTagName("script")),i),k.splice.apply(k,[g+1,0].concat(j)),g+=j.length));return k});var B=a.event.add,C=a.event.remove,D=a.event.trigger,E=a.fn.toggle,F=a.fn.live,G=a.fn.die,H=a.fn.load,I="ajaxStart|ajaxStop|ajaxSend|ajaxComplete|ajaxError|ajaxSuccess",J=new RegExp("\\b(?:"+I+")\\b"),K=/(?:^|\s)hover(\.\S+|)\b/,L=function(b){return"string"!=typeof b||a.event.special.hover?b:(K.test(b)&&d("'hover' pseudo-event is deprecated, use 'mouseenter mouseleave'"),b&&b.replace(K,"mouseenter$1 mouseleave$1"))};a.event.props&&"attrChange"!==a.event.props[0]&&a.event.props.unshift("attrChange","attrName","relatedNode","srcElement"),a.event.dispatch&&e(a.event,"handle",a.event.dispatch,"jQuery.event.handle is undocumented and deprecated"),a.event.add=function(a,b,c,e,f){a!==document&&J.test(b)&&d("AJAX events should be attached to document: "+b),B.call(this,a,L(b||""),c,e,f)},a.event.remove=function(a,b,c,d,e){C.call(this,a,L(b)||"",c,d,e)},a.each(["load","unload","error"],function(b,c){a.fn[c]=function(){var a=Array.prototype.slice.call(arguments,0);return"load"===c&&"string"==typeof a[0]?H.apply(this,a):(d("jQuery.fn."+c+"() is deprecated"),a.splice(0,0,c),arguments.length?this.bind.apply(this,a):(this.triggerHandler.apply(this,a),this))}}),a.fn.toggle=function(b,c){if(!a.isFunction(b)||!a.isFunction(c))return E.apply(this,arguments);d("jQuery.fn.toggle(handler, handler...) is deprecated");var e=arguments,f=b.guid||a.guid++,g=0,h=function(c){var d=(a._data(this,"lastToggle"+b.guid)||0)%g;return a._data(this,"lastToggle"+b.guid,d+1),c.preventDefault(),e[d].apply(this,arguments)||!1};for(h.guid=f;g<e.length;)e[g++].guid=f;return this.click(h)},a.fn.live=function(b,c,e){return d("jQuery.fn.live() is deprecated"),F?F.apply(this,arguments):(a(this.context).on(b,this.selector,c,e),this)},a.fn.die=function(b,c){return d("jQuery.fn.die() is deprecated"),G?G.apply(this,arguments):(a(this.context).off(b,this.selector||"**",c),this)},a.event.trigger=function(a,b,c,e){return c||J.test(a)||d("Global events are undocumented and deprecated"),D.call(this,a,b,c||document,e)},a.each(I.split("|"),function(b,c){a.event.special[c]={setup:function(){var b=this;return b!==document&&(a.event.add(document,c+"."+a.guid,function(){a.event.trigger(c,Array.prototype.slice.call(arguments,1),b,!0)}),a._data(this,c,a.guid++)),!1},teardown:function(){return this!==document&&a.event.remove(document,c+"."+a._data(this,c)),!1}}}),a.event.special.ready={setup:function(){this===document&&d("'ready' event is deprecated")}};var M=a.fn.andSelf||a.fn.addBack,N=a.fn.find;if(a.fn.andSelf=function(){return d("jQuery.fn.andSelf() replaced by jQuery.fn.addBack()"),M.apply(this,arguments)},a.fn.find=function(a){var b=N.apply(this,arguments);return b.context=this.context,b.selector=this.selector?this.selector+" "+a:a,b},a.Callbacks){var O=a.Deferred,P=[["resolve","done",a.Callbacks("once memory"),a.Callbacks("once memory"),"resolved"],["reject","fail",a.Callbacks("once memory"),a.Callbacks("once memory"),"rejected"],["notify","progress",a.Callbacks("memory"),a.Callbacks("memory")]];a.Deferred=function(b){var c=O(),e=c.promise();return c.pipe=e.pipe=function(){var b=arguments;return d("deferred.pipe() is deprecated"),a.Deferred(function(d){a.each(P,function(f,g){var h=a.isFunction(b[f])&&b[f];c[g[1]](function(){var b=h&&h.apply(this,arguments);b&&a.isFunction(b.promise)?b.promise().done(d.resolve).fail(d.reject).progress(d.notify):d[g[0]+"With"](this===e?d.promise():this,h?[b]:arguments)})}),b=null}).promise()},c.isResolved=function(){return d("deferred.isResolved is deprecated"),"resolved"===c.state()},c.isRejected=function(){return d("deferred.isRejected is deprecated"),"rejected"===c.state()},b&&b.call(c,c),c}}}(jQuery,window);
diff --git a/listSelectDlg.dfm b/listSelectDlg.dfm
new file mode 100644
index 0000000..200ea7c
--- /dev/null
+++ b/listSelectDlg.dfm
@@ -0,0 +1,54 @@
+object listSelectFrm: TlistSelectFrm
+  Left = 0
+  Top = 0
+  BorderStyle = bsToolWindow
+  ClientHeight = 173
+  ClientWidth = 183
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object listBox: TCheckListBox
+    Left = 0
+    Top = 0
+    Width = 183
+    Height = 136
+    Align = alClient
+    ItemHeight = 13
+    TabOrder = 0
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 136
+    Width = 183
+    Height = 37
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 1
+    object okBtn: TButton
+      Left = 8
+      Top = 6
+      Width = 75
+      Height = 25
+      Caption = '&OK'
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+    end
+    object cancelBtn: TButton
+      Left = 96
+      Top = 6
+      Width = 75
+      Height = 25
+      Caption = '&Cancel'
+      ModalResult = 2
+      TabOrder = 1
+    end
+  end
+end
diff --git a/listSelectDlg.pas b/listSelectDlg.pas
new file mode 100644
index 0000000..54c9952
--- /dev/null
+++ b/listSelectDlg.pas
@@ -0,0 +1,49 @@
+unit listSelectDlg;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, CheckLst, types, utilLib, strutils;
+
+type
+  TlistSelectFrm = class(TForm)
+    listBox: TCheckListBox;
+    Panel1: TPanel;
+    okBtn: TButton;
+    cancelBtn: TButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+function listSelect(title:string; var options:TstringList):boolean;
+
+implementation
+
+{$R *.dfm}
+
+function listSelect(title:string; var options:TstringList):boolean;
+var
+  dlg: TlistSelectFrm;
+  i: integer;
+begin
+result:=FALSE;
+dlg:=TlistSelectFrm.Create(NIL);
+with dlg do
+  try
+    caption:=title;
+    listBox.items.assign(options);
+    for i:=0 to options.count-1 do
+      if options.objects[i] <> NIL then
+        listbox.Checked[i]:=TRUE;
+    clientHeight:=clientHeight-listBox.ClientHeight+listBox.ItemHeight*minmax(5,15, listbox.count);
+    if showModal() = mrCancel then exit;
+    for i:=0 to listbox.Count-1 do
+      options.Objects[i]:=if_(listbox.Checked[i], PTR1, NIL);
+    result:=TRUE;
+  finally dlg.free end;
+end;
+
+end.
diff --git a/longinputDlg.dfm b/longinputDlg.dfm
new file mode 100644
index 0000000..14f047b
--- /dev/null
+++ b/longinputDlg.dfm
@@ -0,0 +1,78 @@
+object longinputFrm: TlonginputFrm
+  Left = 191
+  Top = 187
+  BorderStyle = bsSizeToolWin
+  Caption = 'longinputFrm'
+  ClientHeight = 314
+  ClientWidth = 465
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object bottomPnl: TPanel
+    Left = 0
+    Top = 282
+    Width = 465
+    Height = 32
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 1
+    OnResize = bottomPnlResize
+    object okBtn: TButton
+      Left = 55
+      Top = 4
+      Width = 75
+      Height = 25
+      Caption = '&OK'
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+    end
+    object cancelBtn: TButton
+      Left = 135
+      Top = 4
+      Width = 75
+      Height = 25
+      Caption = '&Cancel'
+      ModalResult = 2
+      TabOrder = 1
+    end
+  end
+  object topPnl: TPanel
+    Left = 0
+    Top = 0
+    Width = 465
+    Height = 41
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 2
+    object msgLbl: TLabel
+      Left = 0
+      Top = 0
+      Width = 17
+      Height = 13
+      Align = alClient
+      Caption = 'test'
+      Layout = tlCenter
+      WordWrap = True
+    end
+  end
+  object inputBox: TMemo
+    Left = 0
+    Top = 41
+    Width = 465
+    Height = 241
+    Align = alClient
+    Lines.Strings = (
+      'Memo1')
+    ScrollBars = ssVertical
+    TabOrder = 0
+    OnKeyDown = inputBoxKeyDown
+  end
+end
diff --git a/longinputDlg.pas b/longinputDlg.pas
new file mode 100644
index 0000000..fe3f290
--- /dev/null
+++ b/longinputDlg.pas
@@ -0,0 +1,44 @@
+unit longinputDlg;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls;
+
+type
+  TlonginputFrm = class(TForm)
+    bottomPnl: TPanel;
+    okBtn: TButton;
+    cancelBtn: TButton;
+    topPnl: TPanel;
+    msgLbl: TLabel;
+    inputBox: TMemo;
+    procedure bottomPnlResize(Sender: TObject);
+    procedure inputBoxKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+implementation
+
+{$R *.dfm}
+
+procedure TlonginputFrm.bottomPnlResize(Sender: TObject);
+begin
+okBtn.left:=(bottomPnl.Width-cancelBtn.BoundsRect.right+okBtn.BoundsRect.left) div 2;
+cancelBtn.left:=okBtn.BoundsRect.Right+10;
+end;
+
+procedure TlonginputFrm.inputBoxKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+if shift = [ssCtrl] then
+  if key = ord('A') then
+    inputBox.SelectAll();
+end;
+
+end.
diff --git a/macros-log.html b/macros-log.html
new file mode 100644
index 0000000..a4f0e90
--- /dev/null
+++ b/macros-log.html
@@ -0,0 +1,518 @@
+<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"><style>
dt, dd { margin:0; padding:0.2em 0.5em; white-space:pre; display:block; font-family:monospace; } dt { background:#dfd; } dd { background:#fdd; }
</style></head><body><hr>04/11/2018 17:50:40
+
<dt>%item-type%</dt><dd>link</dd>
<dt>%item-url%</dt><dd>http://www.rejetto.com</dd>
<dt>%item-icon%</dt><dd>/~img_link</dd>
<dt>%item-name%</dt><dd>link</dd>
<dt>%item-modified%</dt><dd>30/09/2018 22:15:30</dd>
<dt>%bread-url%</dt><dd>%bread-url%</dd>
<dt>%bread-name%</dt><dd>%bread-name%</dd>
<dt>%folder%</dt><dd>/</dd>
<dt>%item-comment%</dt><dd></dd>
<dt>get|can access</dt><dd>1</dd>
<dt>if|1||cannot-access</dt><dd></dd>
<dt>get|can archive item</dt><dd>1</dd>
<dt>if|1|can-archive</dt><dd>can-archive</dd>
<dt>cut||-3|30/09/2018 22:15:30</dt><dd>30/09/2018 22:15</dd>
<dt>get|is new</dt><dd></dd>
<dt>!NEW</dt><dd>NEW</dd>
<dt>if||&lt;i class=&#039;fa fa-star&#039; title=&quot;NEW&quot;&gt;&lt;/i&gt;</dt><dd></dd>
<dt>?search</dt><dd></dd>
<dt>length|</dt><dd>0</dd>
<dt>if| 0 |{:{.123 if 2|&lt;div class=&#039;item-folder&#039;&gt;{.!item folder.} |{.breadcrumbs|{:&lt;a href=&quot;%bread-url%&quot;&gt;%bread-name%/&lt;/a&gt;:}|from={.count substring|/|/.}/breadcrumbs.}|&lt;/div&gt;.}:} </dt><dd></dd>
<dt>commentNL|</dt><dd>{.if|{.pos|&lt;br|.}||{.replace|{.chr|10.}|&lt;br /&gt;|.}.}</dd>
<dt>pos|&lt;br|</dt><dd>0</dd>
<dt>chr|10</dt><dd>
+</dd>
<dt>replace|
+|&lt;br /&gt;|</dt><dd></dd>
<dt>if|0||</dt><dd></dd>
<dt>123 if 2|&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;||&lt;/span&gt;&lt;/div&gt;</dt><dd>{.if||&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;&lt;/span&gt;&lt;/div&gt;.}</dd>
<dt>if||&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;&lt;/span&gt;&lt;/div&gt;</dt><dd></dd><hr>04/11/2018 17:50:40
+
<dt>%item-type%</dt><dd>folder</dd>
<dt>%item-url%</dt><dd>data/</dd>
<dt>%item-icon%</dt><dd>/~img_folder</dd>
<dt>%item-name%</dt><dd>data</dd>
<dt>%item-modified%</dt><dd>24/03/2018 10:28:39</dd>
<dt>%bread-url%</dt><dd>%bread-url%</dd>
<dt>%bread-name%</dt><dd>%bread-name%</dd>
<dt>%folder%</dt><dd>/</dd>
<dt>%item-comment%</dt><dd></dd>
<dt>get|can access</dt><dd></dd>
<dt>if|||cannot-access</dt><dd>cannot-access</dd>
<dt>get|can archive item</dt><dd>1</dd>
<dt>if|1|can-archive</dt><dd>can-archive</dd>
<dt>cut||-3|24/03/2018 10:28:39</dt><dd>24/03/2018 10:28</dd>
<dt>get|is new</dt><dd></dd>
<dt>!NEW</dt><dd>NEW</dd>
<dt>if||&lt;i class=&#039;fa fa-star&#039; title=&quot;NEW&quot;&gt;&lt;/i&gt;</dt><dd></dd>
<dt>?search</dt><dd></dd>
<dt>length|</dt><dd>0</dd>
<dt>if| 0 |{:{.123 if 2|&lt;div class=&#039;item-folder&#039;&gt;{.!item folder.} |{.breadcrumbs|{:&lt;a href=&quot;%bread-url%&quot;&gt;%bread-name%/&lt;/a&gt;:}|from={.count substring|/|/.}/breadcrumbs.}|&lt;/div&gt;.}:} </dt><dd></dd>
<dt>commentNL|</dt><dd>{.if|{.pos|&lt;br|.}||{.replace|{.chr|10.}|&lt;br /&gt;|.}.}</dd>
<dt>pos|&lt;br|</dt><dd>0</dd>
<dt>chr|10</dt><dd>
+</dd>
<dt>replace|
+|&lt;br /&gt;|</dt><dd></dd>
<dt>if|0||</dt><dd></dd>
<dt>123 if 2|&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;||&lt;/span&gt;&lt;/div&gt;</dt><dd>{.if||&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;&lt;/span&gt;&lt;/div&gt;.}</dd>
<dt>if||&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;&lt;/span&gt;&lt;/div&gt;</dt><dd></dd><hr>04/11/2018 17:50:40
+
<dt>%item-type%</dt><dd>folder</dd>
<dt>%item-url%</dt><dd>%C3%89/</dd>
<dt>%C3%</dt><dd>%C3%</dd>
<dt>%item-icon%</dt><dd>/~img_folder</dd>
<dt>%item-name%</dt><dd>É</dd>
<dt>%item-modified%</dt><dd>29/06/2016 18:40:50</dd>
<dt>%bread-url%</dt><dd>%bread-url%</dd>
<dt>%bread-name%</dt><dd>%bread-name%</dd>
<dt>%folder%</dt><dd>/</dd>
<dt>%item-comment%</dt><dd></dd>
<dt>get|can access</dt><dd>1</dd>
<dt>if|1||cannot-access</dt><dd></dd>
<dt>get|can archive item</dt><dd>1</dd>
<dt>if|1|can-archive</dt><dd>can-archive</dd>
<dt>cut||-3|29/06/2016 18:40:50</dt><dd>29/06/2016 18:40</dd>
<dt>get|is new</dt><dd></dd>
<dt>!NEW</dt><dd>NEW</dd>
<dt>if||&lt;i class=&#039;fa fa-star&#039; title=&quot;NEW&quot;&gt;&lt;/i&gt;</dt><dd></dd>
<dt>?search</dt><dd></dd>
<dt>length|</dt><dd>0</dd>
<dt>if| 0 |{:{.123 if 2|&lt;div class=&#039;item-folder&#039;&gt;{.!item folder.} |{.breadcrumbs|{:&lt;a href=&quot;%bread-url%&quot;&gt;%bread-name%/&lt;/a&gt;:}|from={.count substring|/|/.}/breadcrumbs.}|&lt;/div&gt;.}:} </dt><dd></dd>
<dt>commentNL|</dt><dd>{.if|{.pos|&lt;br|.}||{.replace|{.chr|10.}|&lt;br /&gt;|.}.}</dd>
<dt>pos|&lt;br|</dt><dd>0</dd>
<dt>chr|10</dt><dd>
+</dd>
<dt>replace|
+|&lt;br /&gt;|</dt><dd></dd>
<dt>if|0||</dt><dd></dd>
<dt>123 if 2|&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;||&lt;/span&gt;&lt;/div&gt;</dt><dd>{.if||&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;&lt;/span&gt;&lt;/div&gt;.}</dd>
<dt>if||&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;&lt;/span&gt;&lt;/div&gt;</dt><dd></dd><hr>04/11/2018 17:50:40
+
<dt>%item-type%</dt><dd>folder</dd>
<dt>%item-url%</dt><dd>upload/</dd>
<dt>%item-icon%</dt><dd>/~img_folder</dd>
<dt>%item-name%</dt><dd>upload</dd>
<dt>%item-modified%</dt><dd>24/10/2018 16:44:15</dd>
<dt>%bread-url%</dt><dd>%bread-url%</dd>
<dt>%bread-name%</dt><dd>%bread-name%</dd>
<dt>%folder%</dt><dd>/</dd>
<dt>%item-comment%</dt><dd>test</dd>
<dt>get|can access</dt><dd>1</dd>
<dt>if|1||cannot-access</dt><dd></dd>
<dt>get|can archive item</dt><dd>1</dd>
<dt>if|1|can-archive</dt><dd>can-archive</dd>
<dt>cut||-3|24/10/2018 16:44:15</dt><dd>24/10/2018 16:44</dd>
<dt>get|is new</dt><dd></dd>
<dt>!NEW</dt><dd>NEW</dd>
<dt>if||&lt;i class=&#039;fa fa-star&#039; title=&quot;NEW&quot;&gt;&lt;/i&gt;</dt><dd></dd>
<dt>?search</dt><dd></dd>
<dt>length|</dt><dd>0</dd>
<dt>if| 0 |{:{.123 if 2|&lt;div class=&#039;item-folder&#039;&gt;{.!item folder.} |{.breadcrumbs|{:&lt;a href=&quot;%bread-url%&quot;&gt;%bread-name%/&lt;/a&gt;:}|from={.count substring|/|/.}/breadcrumbs.}|&lt;/div&gt;.}:} </dt><dd></dd>
<dt>commentNL|test</dt><dd>{.if|{.pos|&lt;br|test.}|test|{.replace|{.chr|10.}|&lt;br /&gt;|test.}.}</dd>
<dt>pos|&lt;br|test</dt><dd>0</dd>
<dt>chr|10</dt><dd>
+</dd>
<dt>replace|
+|&lt;br /&gt;|test</dt><dd>test</dd>
<dt>if|0|test|test</dt><dd>test</dd>
<dt>123 if 2|&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;|test|&lt;/span&gt;&lt;/div&gt;</dt><dd>{.if|test|&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;test&lt;/span&gt;&lt;/div&gt;.}</dd>
<dt>if|test|&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;test&lt;/span&gt;&lt;/div&gt;</dt><dd>&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;test&lt;/span&gt;&lt;/div&gt;</dd><hr>04/11/2018 17:50:40
+
<dt>%item-type%</dt><dd>folder</dd>
<dt>%item-url%</dt><dd>Windows/</dd>
<dt>%item-icon%</dt><dd>/~img_folder</dd>
<dt>%item-name%</dt><dd>Windows</dd>
<dt>%item-modified%</dt><dd>04/11/2018 14:48:04</dd>
<dt>%bread-url%</dt><dd>%bread-url%</dd>
<dt>%bread-name%</dt><dd>%bread-name%</dd>
<dt>%folder%</dt><dd>/</dd>
<dt>%item-comment%</dt><dd></dd>
<dt>get|can access</dt><dd>1</dd>
<dt>if|1||cannot-access</dt><dd></dd>
<dt>get|can archive item</dt><dd>1</dd>
<dt>if|1|can-archive</dt><dd>can-archive</dd>
<dt>cut||-3|04/11/2018 14:48:04</dt><dd>04/11/2018 14:48</dd>
<dt>get|is new</dt><dd></dd>
<dt>!NEW</dt><dd>NEW</dd>
<dt>if||&lt;i class=&#039;fa fa-star&#039; title=&quot;NEW&quot;&gt;&lt;/i&gt;</dt><dd></dd>
<dt>?search</dt><dd></dd>
<dt>length|</dt><dd>0</dd>
<dt>if| 0 |{:{.123 if 2|&lt;div class=&#039;item-folder&#039;&gt;{.!item folder.} |{.breadcrumbs|{:&lt;a href=&quot;%bread-url%&quot;&gt;%bread-name%/&lt;/a&gt;:}|from={.count substring|/|/.}/breadcrumbs.}|&lt;/div&gt;.}:} </dt><dd></dd>
<dt>commentNL|</dt><dd>{.if|{.pos|&lt;br|.}||{.replace|{.chr|10.}|&lt;br /&gt;|.}.}</dd>
<dt>pos|&lt;br|</dt><dd>0</dd>
<dt>chr|10</dt><dd>
+</dd>
<dt>replace|
+|&lt;br /&gt;|</dt><dd></dd>
<dt>if|0||</dt><dd></dd>
<dt>123 if 2|&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;||&lt;/span&gt;&lt;/div&gt;</dt><dd>{.if||&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;&lt;/span&gt;&lt;/div&gt;.}</dd>
<dt>if||&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;&lt;/span&gt;&lt;/div&gt;</dt><dd></dd><hr>04/11/2018 17:50:40
+
<dt>%item-type%</dt><dd>file</dd>
<dt>%item-url%</dt><dd>100MB.zip</dd>
<dt>%item-icon%</dt><dd>/~img41</dd>
<dt>%item-name%</dt><dd>100MB.zip</dd>
<dt>%item-modified%</dt><dd>22/05/2018 21:01:38</dd>
<dt>%item-dl-count%</dt><dd>1</dd>
<dt>%item-size%</dt><dd>100.0 M</dd>
<dt>%bread-url%</dt><dd>%bread-url%</dd>
<dt>%bread-name%</dt><dd>%bread-name%</dd>
<dt>%folder%</dt><dd>/</dd>
<dt>%item-comment%</dt><dd></dd>
<dt>get|can access</dt><dd>1</dd>
<dt>if|1||cannot-access</dt><dd></dd>
<dt>get|can archive item</dt><dd>1</dd>
<dt>if|1|can-archive</dt><dd>can-archive</dd>
<dt>cut||-3|22/05/2018 21:01:38</dt><dd>22/05/2018 21:01</dd>
<dt>!Download counter:</dt><dd>Download counter:</dd>
<dt>get|is new</dt><dd></dd>
<dt>!NEW</dt><dd>NEW</dd>
<dt>if||&lt;i class=&#039;fa fa-star&#039; title=&quot;NEW&quot;&gt;&lt;/i&gt;</dt><dd></dd>
<dt>?search</dt><dd></dd>
<dt>length|</dt><dd>0</dd>
<dt>if| 0 |{:{.123 if 2|&lt;div class=&#039;item-folder&#039;&gt;{.!item folder.} |{.breadcrumbs|{:&lt;a href=&quot;%bread-url%&quot;&gt;%bread-name%/&lt;/a&gt;:}|from={.count substring|/|/.}/breadcrumbs.}|&lt;/div&gt;.}:} </dt><dd></dd>
<dt>commentNL|</dt><dd>{.if|{.pos|&lt;br|.}||{.replace|{.chr|10.}|&lt;br /&gt;|.}.}</dd>
<dt>pos|&lt;br|</dt><dd>0</dd>
<dt>chr|10</dt><dd>
+</dd>
<dt>replace|
+|&lt;br /&gt;|</dt><dd></dd>
<dt>if|0||</dt><dd></dd>
<dt>123 if 2|&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;||&lt;/span&gt;&lt;/div&gt;</dt><dd>{.if||&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;&lt;/span&gt;&lt;/div&gt;.}</dd>
<dt>if||&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;&lt;/span&gt;&lt;/div&gt;</dt><dd></dd><hr>04/11/2018 17:50:41
+
<dt>%folder%</dt><dd>/</dd>
<dt>%symbols%</dt><dd>%symbols%</dd>
<dt>%folder%</dt><dd>/</dd>
<dt>%build-time%</dt><dd>%build-time%</dd>
<dt>$common-head</dt><dd>&lt;!DOCTYPE html&gt;
+&lt;html&gt;
+&lt;head&gt;
+	&lt;meta http-equiv=&quot;content-type&quot; content=&quot;text/html; charset=UTF-8&quot;&gt;
+	&lt;meta name=&quot;viewport&quot; content=&quot;width=device-width, initial-scale=1.0&quot;&gt;
+	&lt;link rel=&quot;shortcut icon&quot; href=&quot;/favicon.ico&quot;&gt;
+	&lt;link rel=&quot;stylesheet&quot; href=&quot;/?mode=section&amp;id=style.css&quot; type=&quot;text/css&quot;&gt;
+</dd>
<dt>!HFS</dt><dd>HFS</dd>
<dt>js encode|/</dt><dd>/</dd>
<dt>comment|--&gt;&lt;h1 style=&#039;margin-bottom:100em&#039;&gt;WARNING: this template is only to be used with HFS 2.3 (and macros enabled)&lt;/h1&gt; &lt;!--</dt><dd></dd>
<dt>$menu panel</dt><dd>&lt;script&gt;
+	$(function(){
+        if ($(&#039;#menu-panel&#039;).css(&#039;position&#039;).indexOf(&#039;sticky&#039;) &lt; 0) // sticky is not supported
+            setInterval(function(){ $(&#039;#wrapper&#039;).css(&#039;margin-top&#039;, $(&#039;#menu-panel&#039;).height()+5) }, 300); // leave space for the fixed panel
+    });
+&lt;/script&gt;
+
+&lt;div id=&#039;menu-panel&#039;&gt;
+	&lt;div id=&quot;title-bar&quot;&gt;
+		{.$title-bar.}
+	&lt;/div&gt;
+	&lt;div id=&quot;menu-bar&quot;&gt;
+		{.if| {.length|%user%.}
+		| &lt;button class=&#039;pure-button&#039; onclick=&#039;$(&quot;#user-panel&quot;).toggle()&#039;&gt;&lt;i class=&#039;fa fa-user-circle&#039;&gt;&lt;/i&gt;&lt;span&gt;%user%&lt;/span&gt;&lt;/button&gt;
+		| &lt;button class=&#039;pure-button&#039; title=&quot;{.!Login.}&quot; onclick=&#039;location = &quot;~login&quot;&#039;&gt;&lt;i class=&#039;fa fa-user&#039;&gt;&lt;/i&gt;&lt;span&gt;{.!Login.}&lt;/span&gt;&lt;/button&gt;
+		.}
+		{.if| {.get|can recur.} |
+		&lt;button class=&#039;pure-button&#039; onclick=&quot;{.if|{.length|{.?search.}.}| location = &#039;.&#039;| $(&#039;#search-panel&#039;).toggle().find(&#039;:input:first&#039;).focus().}&quot;&gt;
+			&lt;i class=&#039;fa fa-search&#039;&gt;&lt;/i&gt;&lt;span&gt;Search&lt;/span&gt;
+		&lt;/button&gt;
+		/if.}
+		&lt;button id=&quot;multiselection&quot; class=&#039;pure-button&#039; title=&quot;{.!Enable multi-selection.}&quot;  onclick=&#039;toggleSelection()&#039;&gt;
+			&lt;i class=&#039;fa fa-check-square&#039;&gt;&lt;/i&gt;
+			&lt;span&gt;{.!Selection.}&lt;/span&gt;
+		&lt;/button&gt;
+		{.if|{.can mkdir.}|
+			&lt;button title=&quot;{.!New folder.}&quot; class=&#039;pure-button&#039; id=&#039;newfolderBtn&#039; onclick=&#039;ask(this.innerHTML, &quot;text&quot;, function(name) { return ajax(&quot;mkdir&quot;, { name:name }); });&#039;&gt;
+				&lt;i class=&quot;fa fa-folder&quot;&gt;&lt;/i&gt;
+				&lt;span&gt;{.!New folder.}&lt;/span&gt;
+			&lt;/button&gt;
+		.}
+		&lt;button id=&quot;toggleTs&quot; class=&#039;pure-button&#039; title=&quot;{.!Display timestamps.}&quot;  onclick=&quot;toggleTs()&quot;&gt;
+			&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt;
+			&lt;span&gt;Toggle timestamp&lt;/span&gt;
+		&lt;/button&gt;
+
+		{.if|{.get|can archive.}|
+		&lt;button id=&#039;archiveBtn&#039; class=&#039;pure-button&#039; onclick=&#039;ask(&quot;{.!Download these files as a single archive?.}&quot;, function() { submit({ selection: getSelectedItemsName() }, &quot;{.get|url|mode=archive|recursive.}&quot;) })&#039;&gt;
+			&lt;i class=&quot;fa fa-file-archive-o&quot;&gt;&lt;/i&gt;
+			&lt;span&gt;{.!Archive.}&lt;/span&gt;
+		&lt;/button&gt;
+		.}
+		{.if| {.get|can upload.} |{:
+			&lt;button id=&quot;upload&quot; onclick=&quot;upload()&quot; class=&#039;pure-button&#039; title=&quot;{.!Upload.}&quot;&gt;
+				&lt;i class=&#039;fa fa-upload&#039;&gt;&lt;/i&gt;
+				&lt;span&gt;{.!Upload.}&lt;/span&gt;
+			&lt;/button&gt;
+		:}.}
+
+		{.set|sort2name|{: {.from table|$sort names|$1.} :}.}
+		&lt;button id=&quot;sort&quot; onclick=&quot;changeSort()&quot; class=&#039;pure-button&#039;&gt;
+			&lt;i class=&#039;fa fa-sort&#039;&gt;&lt;/i&gt;
+			&lt;span&gt;{.^sort2name|{.?sort.}.}&lt;/span&gt;
+		&lt;/button&gt;
+	&lt;/div&gt;
+
+    &lt;div id=&quot;additional-panels&quot;&gt;
+        &lt;div id=&quot;user-panel&quot; class=&quot;additional-panel&quot; style=&quot;display:none;&quot;&gt;
+			&lt;span&gt;{.!User.}: %user%&lt;/span&gt;
+			&lt;button class=&quot;pure-button&quot; onclick=&#039;changePwd.call(this)&#039;&gt;&lt;i class=&quot;fa fa-key&quot;&gt;&lt;/i&gt; {.!Change password.}&lt;/button&gt;
+        &lt;/div&gt;
+		{.$search panel.}
+		{.$upload panel.}
+		&lt;div id=&quot;selection-panel&quot; class=&quot;additional-panel&quot; style=&quot;display:none&quot;&gt;
+			&lt;label&gt;&lt;span id=&quot;selected-counter&quot;&gt;0&lt;/span&gt; {.!selected.}&lt;/label&gt;
+			&lt;span class=&quot;buttons&quot;&gt;
+				&lt;button id=&quot;select-mask&quot; class=&quot;pure-button&quot;&gt;&lt;i class=&quot;fa fa-asterisk&quot;&gt;&lt;/i&gt;&lt;span&gt;{.!Mask.}&lt;/span&gt;&lt;/button&gt;
+				&lt;button id=&quot;select-invert&quot; class=&quot;pure-button&quot;&gt;&lt;i class=&quot;fa fa-retweet&quot;&gt;&lt;/i&gt;&lt;span&gt;{.!Invert.}&lt;/span&gt;&lt;/button&gt;
+				&lt;button id=&quot;delete-selection&quot; class=&quot;pure-button&quot;&gt;&lt;i class=&quot;fa fa-trash&quot;&gt;&lt;/i&gt;&lt;span&gt;Delete&lt;/span&gt;&lt;/button&gt;
+				&lt;button id=&quot;move-selection&quot; class=&quot;pure-button&quot;&gt;&lt;i class=&quot;fa fa-truck&quot;&gt;&lt;/i&gt;&lt;span&gt;Move&lt;/span&gt;&lt;/button&gt;
+			&lt;/span&gt;
+		&lt;/div&gt;
+    &lt;/div&gt;
+&lt;/div&gt;
+</dd>
<dt>%user%</dt><dd>rejetto</dd>
<dt>%user%</dt><dd>rejetto</dd>
<dt>%user%</dt><dd>rejetto</dd>
<dt>$title-bar</dt><dd>&lt;i class=&quot;fa fa-globe&quot;&gt;&lt;/i&gt; {.!title.}
+&lt;i class=&quot;fa fa-lightbulb&quot; id=&quot;switch-theme&quot;&gt;&lt;/i&gt;
+&lt;script&gt;
+$(&#039;body&#039;).addClass(getCookie(&#039;theme&#039;))
+$(function(){
+
+    var titleBar = $(&#039;#title-bar&#039;)
+	var h = titleBar.height()
+	var on = true
+	var k = &#039;shrink&#039;
+    window.onscroll = function(){
+        if (window.scrollY &gt; h)
+        	titleBar.addClass(k)
+		else if (!window.scrollY)
+            titleBar.removeClass(k)
+    }
+
+    $(&#039;#switch-theme&#039;).click(function(ev) {
+        var k = &#039;dark-theme&#039;;
+        $(&#039;body&#039;).toggleClass(k);
+        setCookie(&#039;theme&#039;, $(&#039;body&#039;).hasClass(k) ? k : &#039;&#039;);
+    });
+});
+&lt;/script&gt;
+&lt;style&gt;
+	#title-bar { color:white; height:1.5em; transition:height .2s ease; overflow:hidden; position: relative; top: 0.2em;font-size:120%; }
+	#title-bar.shrink { height:0; }
+	#foldercomment { clear:left; }
+	#switch-theme { color: #aaa; position: absolute; right: .2em; }
+&lt;/style&gt;
+</dd>
<dt>!title</dt><dd>HTTP File Server</dd>
<dt>length|rejetto</dt><dd>7</dd>
<dt>!Login</dt><dd>Login</dd>
<dt>!Login</dt><dd>Login</dd>
<dt>if| 7
+		| &lt;button class=&#039;pure-button&#039; onclick=&#039;$(&quot;#user-panel&quot;).toggle()&#039;&gt;&lt;i class=&#039;fa fa-user-circle&#039;&gt;&lt;/i&gt;&lt;span&gt;rejetto&lt;/span&gt;&lt;/button&gt;
+		| &lt;button class=&#039;pure-button&#039; title=&quot;Login&quot; onclick=&#039;location = &quot;~login&quot;&#039;&gt;&lt;i class=&#039;fa fa-user&#039;&gt;&lt;/i&gt;&lt;span&gt;Login&lt;/span&gt;&lt;/button&gt;
+		</dt><dd>&lt;button class=&#039;pure-button&#039; onclick=&#039;$(&quot;#user-panel&quot;).toggle()&#039;&gt;&lt;i class=&#039;fa fa-user-circle&#039;&gt;&lt;/i&gt;&lt;span&gt;rejetto&lt;/span&gt;&lt;/button&gt;</dd>
<dt>get|can recur</dt><dd>1</dd>
<dt>?search</dt><dd></dd>
<dt>length|</dt><dd>0</dd>
<dt>if|0| location = &#039;.&#039;| $(&#039;#search-panel&#039;).toggle().find(&#039;:input:first&#039;).focus()</dt><dd>$(&#039;#search-panel&#039;).toggle().find(&#039;:input:first&#039;).focus()</dd>
<dt>if| 1 |
+		&lt;button class=&#039;pure-button&#039; onclick=&quot;$(&#039;#search-panel&#039;).toggle().find(&#039;:input:first&#039;).focus()&quot;&gt;
+			&lt;i class=&#039;fa fa-search&#039;&gt;&lt;/i&gt;&lt;span&gt;Search&lt;/span&gt;
+		&lt;/button&gt;
+		/if</dt><dd>&lt;button class=&#039;pure-button&#039; onclick=&quot;$(&#039;#search-panel&#039;).toggle().find(&#039;:input:first&#039;).focus()&quot;&gt;
+			&lt;i class=&#039;fa fa-search&#039;&gt;&lt;/i&gt;&lt;span&gt;Search&lt;/span&gt;
+		&lt;/button&gt;</dd>
<dt>!Enable multi-selection</dt><dd>Enable multi-selection</dd>
<dt>!Selection</dt><dd>Selection</dd>
<dt>can mkdir</dt><dd>{.and|{.get|can upload.}|{.!option.newfolder.}.}</dd>
<dt>get|can upload</dt><dd></dd>
<dt>!option.newfolder</dt><dd>1</dd>
<dt>and||1</dt><dd></dd>
<dt>!New folder</dt><dd>New folder</dd>
<dt>!New folder</dt><dd>New folder</dd>
<dt>if||
+			&lt;button title=&quot;New folder&quot; class=&#039;pure-button&#039; id=&#039;newfolderBtn&#039; onclick=&#039;ask(this.innerHTML, &quot;text&quot;, function(name) { return ajax(&quot;mkdir&quot;, { name:name }); });&#039;&gt;
+				&lt;i class=&quot;fa fa-folder&quot;&gt;&lt;/i&gt;
+				&lt;span&gt;New folder&lt;/span&gt;
+			&lt;/button&gt;
+		</dt><dd></dd>
<dt>!Display timestamps</dt><dd>Display timestamps</dd>
<dt>get|can archive</dt><dd>1</dd>
<dt>!Download these files as a single archive?</dt><dd>Download these files as a single archive?</dd>
<dt>get|url|mode=archive|recursive</dt><dd>/?mode=archive&amp;recursive</dd>
<dt>!Archive</dt><dd>Archive</dd>
<dt>if|1|
+		&lt;button id=&#039;archiveBtn&#039; class=&#039;pure-button&#039; onclick=&#039;ask(&quot;Download these files as a single archive?&quot;, function() { submit({ selection: getSelectedItemsName() }, &quot;/?mode=archive&amp;recursive&quot;) })&#039;&gt;
+			&lt;i class=&quot;fa fa-file-archive-o&quot;&gt;&lt;/i&gt;
+			&lt;span&gt;Archive&lt;/span&gt;
+		&lt;/button&gt;
+		</dt><dd>&lt;button id=&#039;archiveBtn&#039; class=&#039;pure-button&#039; onclick=&#039;ask(&quot;Download these files as a single archive?&quot;, function() { submit({ selection: getSelectedItemsName() }, &quot;/?mode=archive&amp;recursive&quot;) })&#039;&gt;
+			&lt;i class=&quot;fa fa-file-archive-o&quot;&gt;&lt;/i&gt;
+			&lt;span&gt;Archive&lt;/span&gt;
+		&lt;/button&gt;</dd>
<dt>get|can upload</dt><dd></dd>
<dt>if|  |{:
+			&lt;button id=&quot;upload&quot; onclick=&quot;upload()&quot; class=&#039;pure-button&#039; title=&quot;{.!Upload.}&quot;&gt;
+				&lt;i class=&#039;fa fa-upload&#039;&gt;&lt;/i&gt;
+				&lt;span&gt;{.!Upload.}&lt;/span&gt;
+			&lt;/button&gt;
+		:}</dt><dd></dd>
<dt>set|sort2name|{: {.from table|$sort names|$1.} :}</dt><dd> </dd>
<dt>?sort</dt><dd></dd>
<dt>^sort2name|</dt><dd> {.from table|$sort names|.} </dd>
<dt>from table|$sort names|</dt><dd>Default</dd>
<dt>!User</dt><dd>User</dd>
<dt>!Change password</dt><dd>Change password</dd>
<dt>$search panel</dt><dd>&lt;div id=&quot;search-panel&quot; class=&quot;additional-panel closeable&quot; style=&quot;{.if not|{.length|{.?search.}.}|display:none.}&quot;&gt;
+	&lt;form&gt;
+		{.!Search.} &lt;input name=&quot;search&quot; value=&quot;{.escape attr|{.?search.}.}&quot; /&gt;
+		&lt;br&gt;&lt;input type=&#039;radio&#039; name=&#039;where&#039; value=&#039;fromhere&#039; checked=&#039;true&#039; /&gt;  {.!this folder and sub-folders.}
+		&lt;br&gt;&lt;input type=&#039;radio&#039; name=&#039;where&#039; value=&#039;here&#039; /&gt;  {.!this folder only.}
+		&lt;br&gt;&lt;input type=&#039;radio&#039; name=&#039;where&#039; value=&#039;anywhere&#039; /&gt;  {.!entire server.}
+		&lt;button type=&quot;submit&quot; class=&quot;pure-button&quot;&gt;{.!Go.}&lt;/button&gt;
+	&lt;/form&gt;
+&lt;/div&gt;
+&lt;style&gt;
+	#search-panel [name=search] { margin: 0 0 0.3em 0.1em; }
+	#search-panel button { float:right }
+&lt;/style&gt;
+&lt;script&gt;
+    $(&#039;#search-panel&#039;).submit(function(){
+        var s = $(this).find(&#039;[name=search]&#039;).val()
+        var folder = &#039;&#039;
+        var ps = []
+        switch ($(&#039;[name=where]:checked&#039;).val()) {
+            case &#039;anywhere&#039;: folder = &#039;/&#039;
+            case &#039;fromhere&#039;:
+                ps.push(&#039;search=&#039;+s)
+                break
+            case &#039;here&#039;:
+                if (s.indexOf(&#039;*&#039;) &lt; 0)
+                    s = &#039;*&#039;+s+&#039;*&#039;
+                ps.push(&#039;files-filter=&#039;+s)
+                ps.push(&#039;folders-filter=&#039;+s)
+                break
+        }
+        location = folder+&#039;?&#039;+ps.join(&#039;&amp;&#039;)
+        return false
+    })
+&lt;/script&gt;
+</dd>
<dt>?search</dt><dd></dd>
<dt>length|</dt><dd>0</dd>
<dt>if not|0|display:none</dt><dd>display:none</dd>
<dt>!Search</dt><dd>Search</dd>
<dt>?search</dt><dd></dd>
<dt>escape attr|</dt><dd>{.replace|&quot;|&amp;quot;|.}</dd>
<dt>replace|&quot;|&amp;quot;|</dt><dd></dd>
<dt>!this folder and sub-folders</dt><dd>this folder and sub-folders</dd>
<dt>!this folder only</dt><dd>this folder only</dd>
<dt>!entire server</dt><dd>entire server</dd>
<dt>!Go</dt><dd>Go</dd>
<dt>$upload panel</dt><dd>&lt;div id=&quot;upload-panel&quot; class=&quot;additional-panel closeable&quot; style=&quot;display:none&quot;&gt;
+	&lt;div id=&quot;upload-counters&quot;&gt;
+		Uploaded: &lt;span id=&quot;upload-ok&quot;&gt;0&lt;/span&gt; - Failed: &lt;span id=&quot;upload-ko&quot;&gt;0&lt;/span&gt; - Queued: &lt;span id=&quot;upload-q&quot;&gt;0&lt;/span&gt;
+	&lt;/div&gt;
+	&lt;div id=&quot;upload-results&quot;&gt;&lt;/div&gt;
+	&lt;div id=&quot;upload-progress&quot;&gt;
+		Uploading... &lt;span id=&quot;progress-text&quot;&gt;&lt;/span&gt;
+		&lt;progress max=&quot;1&quot;&gt;&lt;/progress&gt;
+	&lt;/div&gt;
+	&lt;button class=&quot;pure-button&quot; onclick=&quot;reload()&quot;&gt;&lt;i class=&quot;fa fa-refresh&quot;&gt;&lt;/i&gt; Reload page&lt;/button&gt;
+&lt;/div&gt;
+</dd>
<dt>!selected</dt><dd>selected</dd>
<dt>!Mask</dt><dd>Mask</dd>
<dt>!Invert</dt><dd>Invert</dd>
<dt>$folder panel</dt><dd>&lt;div id=&#039;folder-path&#039;&gt;
+	{.breadcrumbs|{:&lt;a class=&#039;pure-button&#039; href=&quot;%bread-url%&quot;/&gt; {.if|{.length|%bread-name%.}|/ %bread-name%|&lt;i class=&#039;fa fa-home&#039;&gt;&lt;/i&gt;.}&lt;/a&gt;:} .}
+&lt;/div&gt;
+{.if|%number%|
+&lt;div id=&#039;folder-stats&#039;&gt;
+	%number-folders% {.!folders.}, %number-files% {.!files.}, {.add bytes|%total-size%.}
+&lt;/div&gt;
+.}
+{.123 if 2| &lt;div id=&#039;foldercomment&#039; class=&quot;comment&quot;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;|{.commentNL|%folder-item-comment%.}|&lt;/div&gt; .}
+</dd>
<dt>%bread-url%</dt><dd>%bread-url%</dd>
<dt>%bread-name%</dt><dd>%bread-name%</dd>
<dt>%bread-name%</dt><dd>%bread-name%</dd>
<dt>%number%</dt><dd>6</dd>
<dt>%number-folders%</dt><dd>4</dd>
<dt>%number-files%</dt><dd>1</dd>
<dt>%total-size%</dt><dd>100.0 M</dd>
<dt>%folder-item-comment%</dt><dd></dd>
<dt>breadcrumbs|{:&lt;a class=&#039;pure-button&#039; href=&quot;%bread-url%&quot;/&gt; {.if|{.length|%bread-name%.}|/ %bread-name%|&lt;i class=&#039;fa fa-home&#039;&gt;&lt;/i&gt;.}&lt;/a&gt;:} </dt><dd>&lt;a class=&#039;pure-button&#039; href=&quot;/&quot;/&gt; {.if|{.length|.}|/ |&lt;i class=&#039;fa fa-home&#039;&gt;&lt;/i&gt;.}&lt;/a&gt;</dd>
<dt>length|</dt><dd>0</dd>
<dt>if|0|/ |&lt;i class=&#039;fa fa-home&#039;&gt;&lt;/i&gt;</dt><dd>&lt;i class=&#039;fa fa-home&#039;&gt;&lt;/i&gt;</dd>
<dt>!folders</dt><dd>folders</dd>
<dt>!files</dt><dd>files</dd>
<dt>add bytes|100.0 M</dt><dd>{.switch|{.cut|-1||100.0 M.}|,|0,1,2,3,4,5,6,7,8,9|100.0 M Bytes|K,M,G,T|100.0 MB.}</dd>
<dt>cut|-1||100.0 M</dt><dd>M</dd>
<dt>switch|M|,|0,1,2,3,4,5,6,7,8,9|100.0 M Bytes|K,M,G,T|100.0 MB</dt><dd>100.0 MB</dd>
<dt>if|6|
+&lt;div id=&#039;folder-stats&#039;&gt;
+	4 folders, 1 files, 100.0 MB
+&lt;/div&gt;
+</dt><dd>&lt;div id=&#039;folder-stats&#039;&gt;
+	4 folders, 1 files, 100.0 MB
+&lt;/div&gt;</dd>
<dt>commentNL|</dt><dd>{.if|{.pos|&lt;br|.}||{.replace|{.chr|10.}|&lt;br /&gt;|.}.}</dd>
<dt>pos|&lt;br|</dt><dd>0</dd>
<dt>chr|10</dt><dd>
+</dd>
<dt>replace|
+|&lt;br /&gt;|</dt><dd></dd>
<dt>if|0||</dt><dd></dd>
<dt>123 if 2| &lt;div id=&#039;foldercomment&#039; class=&quot;comment&quot;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;||&lt;/div&gt; </dt><dd>{.if|| &lt;div id=&#039;foldercomment&#039; class=&quot;comment&quot;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;/div&gt; .}</dd>
<dt>if|| &lt;div id=&#039;foldercomment&#039; class=&quot;comment&quot;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;/div&gt; </dt><dd></dd>
<dt>$list panel</dt><dd>{.if not| %number% |{:
+	&lt;div id=&#039;nothing&#039;&gt;{.!{.if|{.length|{.?search.}.}|No results|No files.}.}&lt;/div&gt; 
+:}|{:
+	&lt;div id=&#039;files&#039; class=&quot;hideTs {.for each|z|mkdir|comment|move|rename|delete|{: {.if|{.can {.^z.}.}|can-{.^z.} .}:}.}&quot;&gt;
+	%list%
+	&lt;/div&gt;
+:}.}
+&lt;div id=&quot;serverinfo&quot;&gt;
+	&lt;a href=&quot;http://www.rejetto.com/hfs/&quot;&gt;&lt;i class=&quot;fa fa-coffee&quot;&gt;&lt;/i&gt; {.!Uptime.}: %uptime%&lt;/a&gt;
+&lt;/div&gt;
+
+</dd>
<dt>%number%</dt><dd>6</dd>
<dt>%list%</dt><dd>&lt;div class=&#039;item item-type-link  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;http://www.rejetto.com&quot;&gt;
+			&lt;img src=&quot;/~img_link&quot; /&gt;
+			link
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 30/09/2018 22:15&lt;/span&gt;		 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-folder cannot-access can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;data/&quot;&gt;
+			&lt;img src=&quot;/~img_folder&quot; /&gt;
+			data
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 24/03/2018 10:28&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-folder  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;%C3%89/&quot;&gt;
+			&lt;img src=&quot;/~img_folder&quot; /&gt;
+			É
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 29/06/2016 18:40&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-folder  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;upload/&quot;&gt;
+			&lt;img src=&quot;/~img_folder&quot; /&gt;
+			upload
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 24/10/2018 16:44&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;test&lt;/span&gt;&lt;/div&gt;
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-folder  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;Windows/&quot;&gt;
+			&lt;img src=&quot;/~img_folder&quot; /&gt;
+			Windows
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 04/11/2018 14:48&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-file  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;100MB.zip&quot;&gt;
+			&lt;img src=&quot;/~img41&quot; /&gt;
+			100MB.zip
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 22/05/2018 21:01&lt;/span&gt;		&lt;span class=&quot;item-size&quot;&gt;&lt;i class=&#039;fa fa-download&#039; title=&quot;Download counter: 1&quot;&gt;&lt;/i&gt; 100.0 MB&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+</dd>
<dt>%C3%</dt><dd>%C3%</dd>
<dt>%uptime%</dt><dd>01:17:51</dd>
<dt>if not| 6 |{:
+	&lt;div id=&#039;nothing&#039;&gt;{.!{.if|{.length|{.?search.}.}|No results|No files.}.}&lt;/div&gt; 
+:}|{:
+	&lt;div id=&#039;files&#039; class=&quot;hideTs {.for each|z|mkdir|comment|move|rename|delete|{: {.if|{.can {.^z.}.}|can-{.^z.} .}:}.}&quot;&gt;
+	&lt;div class=&#039;item item-type-link  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;http://www.rejetto.com&quot;&gt;
+			&lt;img src=&quot;/~img_link&quot; /&gt;
+			link
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 30/09/2018 22:15&lt;/span&gt;		 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-folder cannot-access can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;data/&quot;&gt;
+			&lt;img src=&quot;/~img_folder&quot; /&gt;
+			data
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 24/03/2018 10:28&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-folder  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;%C3%89/&quot;&gt;
+			&lt;img src=&quot;/~img_folder&quot; /&gt;
+			É
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 29/06/2016 18:40&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-folder  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;upload/&quot;&gt;
+			&lt;img src=&quot;/~img_folder&quot; /&gt;
+			upload
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 24/10/2018 16:44&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;test&lt;/span&gt;&lt;/div&gt;
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-folder  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;Windows/&quot;&gt;
+			&lt;img src=&quot;/~img_folder&quot; /&gt;
+			Windows
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 04/11/2018 14:48&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-file  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;100MB.zip&quot;&gt;
+			&lt;img src=&quot;/~img41&quot; /&gt;
+			100MB.zip
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 22/05/2018 21:01&lt;/span&gt;		&lt;span class=&quot;item-size&quot;&gt;&lt;i class=&#039;fa fa-download&#039; title=&quot;Download counter: 1&quot;&gt;&lt;/i&gt; 100.0 MB&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+
+	&lt;/div&gt;
+:}</dt><dd>
+	&lt;div id=&#039;files&#039; class=&quot;hideTs {.for each|z|mkdir|comment|move|rename|delete|{: {.if|{.can {.^z.}.}|can-{.^z.} .}:}.}&quot;&gt;
+	&lt;div class=&#039;item item-type-link  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;http://www.rejetto.com&quot;&gt;
+			&lt;img src=&quot;/~img_link&quot; /&gt;
+			link
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 30/09/2018 22:15&lt;/span&gt;		 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-folder cannot-access can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;data/&quot;&gt;
+			&lt;img src=&quot;/~img_folder&quot; /&gt;
+			data
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 24/03/2018 10:28&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-folder  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;%C3%89/&quot;&gt;
+			&lt;img src=&quot;/~img_folder&quot; /&gt;
+			É
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 29/06/2016 18:40&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-folder  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;upload/&quot;&gt;
+			&lt;img src=&quot;/~img_folder&quot; /&gt;
+			upload
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 24/10/2018 16:44&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	&lt;div class=&#039;comment&#039;&gt;&lt;i class=&quot;fa fa-quote-left&quot;&gt;&lt;/i&gt;&lt;span class=&quot;comment-text&quot;&gt;test&lt;/span&gt;&lt;/div&gt;
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-folder  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;Windows/&quot;&gt;
+			&lt;img src=&quot;/~img_folder&quot; /&gt;
+			Windows
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 04/11/2018 14:48&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+&lt;div class=&#039;item item-type-file  can-archive&#039;&gt;
+	&lt;div class=&quot;item-link&quot;&gt;
+		&lt;a href=&quot;100MB.zip&quot;&gt;
+			&lt;img src=&quot;/~img41&quot; /&gt;
+			100MB.zip
+		&lt;/a&gt;
+	&lt;/div&gt;
+	&lt;div class=&#039;item-props&#039;&gt;
+		&lt;span class=&quot;item-ts&quot;&gt;&lt;i class=&#039;fa fa-clock-o&#039;&gt;&lt;/i&gt; 22/05/2018 21:01&lt;/span&gt;		&lt;span class=&quot;item-size&quot;&gt;&lt;i class=&#039;fa fa-download&#039; title=&quot;Download counter: 1&quot;&gt;&lt;/i&gt; 100.0 MB&lt;/span&gt;		        &lt;button class=&#039;item-menu pure-button&#039; title=&quot;More options&quot;&gt;&lt;i class=&quot;fa fa-bars&quot;&gt;&lt;/i&gt;&lt;/button&gt; 	&lt;/div&gt;
+	&lt;div class=&#039;clearer&#039;&gt;&lt;/div&gt;    
+	
+&lt;/div&gt;
+
+	&lt;/div&gt;
+</dd>
<dt>%C3%</dt><dd>%C3%</dd>
<dt>^z</dt><dd>mkdir</dd>
<dt>can mkdir</dt><dd>{.and|{.get|can upload.}|{.!option.newfolder.}.}</dd>
<dt>get|can upload</dt><dd></dd>
<dt>!option.newfolder</dt><dd>1</dd>
<dt>and||1</dt><dd></dd>
<dt>^z</dt><dd>mkdir</dd>
<dt>if||can-mkdir </dt><dd></dd>
<dt>^z</dt><dd>comment</dd>
<dt>can comment</dt><dd>{.and|{.get|can upload.}|{.!option.comment.}.}</dd>
<dt>get|can upload</dt><dd></dd>
<dt>!option.comment</dt><dd>1</dd>
<dt>and||1</dt><dd></dd>
<dt>^z</dt><dd>comment</dd>
<dt>if||can-comment </dt><dd></dd>
<dt>^z</dt><dd>move</dd>
<dt>can move</dt><dd>{.or|1|1.}</dd>
<dt>or|1|1</dt><dd>1</dd>
<dt>^z</dt><dd>move</dd>
<dt>if|1|can-move </dt><dd>can-move</dd>
<dt>^z</dt><dd>rename</dd>
<dt>can rename</dt><dd>{.and|{.get|can delete.}|{.!option.rename.}.}</dd>
<dt>get|can delete</dt><dd>1</dd>
<dt>!option.rename</dt><dd>1</dd>
<dt>and|1|1</dt><dd>1</dd>
<dt>^z</dt><dd>rename</dd>
<dt>if|1|can-rename </dt><dd>can-rename</dd>
<dt>^z</dt><dd>delete</dd>
<dt>can delete</dt><dd>{.get|can delete.}</dd>
<dt>get|can delete</dt><dd>1</dd>
<dt>^z</dt><dd>delete</dd>
<dt>if|1|can-delete </dt><dd>can-delete</dd>
<dt>for each|z|mkdir|comment|move|rename|delete|{: {.if|{.can {.^z.}.}|can-{.^z.} .}:}</dt><dd>   can-move can-rename can-delete</dd>
<dt>!Uptime</dt><dd>Uptime</dd><hr>04/11/2018 17:50:41
+
<dt>$icons.css</dt><dd>@font-face { font-family: &#039;fontello&#039;;
+	src: url(&#039;data:application/x-font-woff;base64,d09GRgABAAAAACNUAA8AAAAAOiAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAABHU1VCAAABWAAAADsAAABUIIslek9TLzIAAAGUAAAAQwAAAFY+IFPDY21hcAAAAdgAAAEVAAADTpFDYxRjdnQgAAAC8AAAABMAAAAgBtX/BGZwZ20AAAMEAAAFkAAAC3CKkZBZZ2FzcAAACJQAAAAIAAAACAAAABBnbHlmAAAInAAAFtMAACOkJRhYdWhlYWQAAB9wAAAAMgAAADYTVdsXaGhlYQAAH6QAAAAgAAAAJAeCA7NobXR4AAAfxAAAAEYAAAB8a2r/7mxvY2EAACAMAAAAQAAAAECDwI6ybWF4cAAAIEwAAAAgAAAAIAGTDbBuYW1lAAAgbAAAAXcAAALNzJ0eIHBvc3QAACHkAAAA8QAAAVrd0oEdcHJlcAAAItgAAAB6AAAAhuVBK7x4nGNgZGBg4GIwYLBjYHJx8wlh4MtJLMljkGJgYYAAkDwymzEnMz2RgQPGA8qxgGkOIGaDiAIAJjsFSAB4nGNgZC5nnMDAysDAVMW0h4GBoQdCMz5gMGRkAooysDIzYAUBaa4pDA4vGD7tZQ76n8UQxRzEMA0ozAiSAwD0igxrAHic5ZK5bcNAEEUfLZq+RF/yfbAClWC4FqkLF+Q2lApw5siRChhAya6gQJn8lzOAFagD7+IR2A+Qs+B/wCEwEGNRQ/VDRVnfSqs+H3Da5zWfOt9xqaSxUfpKi7RM69zmaZ7nzWq23YKxk0/+8j2r0rfedvZ7v0t+oAm1btZwxDEnmn/GkJZzLjT9imtG3HCr9+954JEnnnnhlU4vN3tn/a81LI/qI05dacUpjVqgv4wFxQALigUWFDssUBtYoF6wQA1hgbrCgmKNBeoPC8rtLFCnWKB2sUA9Y4EaxwJ1jwWyAAvkAxbIDDnoyBHSwpEtpKUjb0hrRwaRW0cukSeOrCJPHflFnjsyjbxx5ByrmUP3C41mdBkAAAB4nGNgQAMSEMgc9D8LhAESbAPdAHicrVZpd9NGFB15SZyELCULLWphxMRpsEYmbMGACUGyYyBdnK2VoIsUO+m+8Ynf4F/zZNpz6Dd+Wu8bLySQtOdwmpOjd+fN1czbZRJaktgL65GUmy/F1NYmjew8CemGTctRfCg7eyFlisnfBVEQrZbatx2HREQiULWusEQQ+x5ZmmR86FFGy7akV03KLT3pLlvjQb1V334aOsqxO6GkZjN0aD2yJVUYVaJIpj1S0qZlqPorSSu8v8LMV81QwohOImm8GcbQSN4bZ7TKaDW24yiKbLLcKFIkmuFBFHmU1RLn5IoJDMoHzZDyyqcR5cP8iKzYo5xWsEu20/y+L3mndzk/sV9vUbbkQB/Ijuzg7HQlX4RbW2HctJPtKFQRdtd3QmzZ7FT/Zo/ymkYDtysyvdCMYKl8hRArP6HM/iFZLZxP+ZJHo1qykRNB62VO7Es+gdbjiClxzRhZ0N3RCRHU/ZIzDPaYPh788d4plgsTAngcy3pHJZwIEylhczRJ2jByYCVliyqp9a6YOOV1WsRbwn7t2tGXzmjjUHdiPFsPHVs5UcnxaFKnmUyd2knNoykNopR0JnjMrwMoP6JJXm1jNYmVR9M4ZsaERCICLdxLU0EsO7GkKQTNoxm9uRumuXYtWqTJA/Xco/f05la4udNT2g70s0Z/VqdiOtgL0+lp5C/xadrlIkXp+ukZfkziQdYCMpEtNsOUgwdv/Q7Sy9eWHIXXBtju7fMrqH3WRPCkAfsb0B5P1SkJTIWYVYhWQGKta1mWydWsFqnI1HdDmla+rNMEinIcF8e+jHH9XzMzlpgSvt+J07MjLj1z7UsI0xx8m3U9mtepxXIBcWZ5TqdZlu/rNMfyA53mWZ7X6QhLW6ejLD/UaYHlRzodY3lBC5p038GQizDkAg6QMISlA0NYXoIhLBUMYbkIQ1gWYQjLJRjC8mMYwnIZhrC8rGXV1FNJ49qZWAZsQmBijh65zEXlaiq5VEK7aFRqQ54SbpVUFM+qf2WgXjzyhjmwFkiXyJpfMc6Vj0bl+NYVLW8aO1fAsepvH472OfFS1ouFPwX/1dZUJb1izcOTq/Abhp5sJ6o2qXh0TZfPVT26/l9UVFgL9BtIhVgoyrJscGcihI86nYZqoJVDzGzMPLTrdcuan8P9NzFCFlD9+DcUGgvcg05ZSVnt4KzV19uy3DuDcjgTLEkxN/P6VvgiI7PSfpFZyp6PfB5wBYxKZdhqA60VvNknMQ+Z3iTPBHFbUTZI2tjOBIkNHPOAefOdBCZh6qoN5E7hhg34BWFuwXknXKJ6oyyH7kXs8yik/Fun4kT2qGiMwLPZG2Gv70LKb3EMJDT5pX4MVBWhqRg1FdA0Um6oBl/G2bptQsYO9CMqdsOyrOLDxxb3lZJtGYR8pIjVo6Of1l6iTqrcfmYUl++dvgXBIDUxf3vfdHGQyrtayTJHbQNTtxqVU9eaQ+NVh+rmUfW94+wTOWuabronHnpf06rbwcVcLLD2bQ7SUiYX1PVhhQ2iy8WlUOplNEnvuAcYFhjQ71CKjf+r+th8nitVhdFxJN9O1LfR52AM/A/Yf0f1A9D3Y+hyDS7P95oTn2704WyZrqIX66foNzBrrblZugbc0HQD4iFHrY64yg18pwZxeqS5HOkh4GPdFeIBwCaAxeAT3bWM5lMAo/mMOT7A58xh0GQOgy3mMNhmzhrADnMY7DKHwR5zGHzBnHWAL5nDIGQOg4g5DJ4wJwB4yhwGXzGHwdfMYfANc+4DfMscBjFzGCTMYbCv6dYwzC1e0F2gtkFVoANTT1jcw+JQU2XI/o4Xhv29Qcz+wSCm/qjp9pD6Ey8M9WeDmPqLQUz9VdOdIfU3Xhjq7wYx9Q+DmPpMvxjLZQa/jHyXCgeUXWw+5++J9w/bxUC5AAEAAf//AA94nMVaC5AcxXnuv3veOzv7uNmZvdfqbvdu9zidVmKf6O60Wj33dHeCk3SS7kDIKowwcHpgBUMCWMZAucABKcEyZWOXY1y2U+WnhGyHEBuoCmCXcCVAKleO7VQ5TioRdmK7KrhiK2jJ17N7eoCJU6m4ctqd6e7t7un++n98/z9ixNibp8SNIsTKrLfeVR7JdMUMjRE1GDE6zBi76YrsGFcTyylFEXJoJSVcTc+ks9WyrmVXUraylnJ5Wks1WkblUqVaLHi9VK14y8jTIiTGuhwnExnt/Ohwb6N3hE50jToDjtN94kRXNDIQuar7xHCq0Tv80a6roplItPMEGc5o1xqM2fnF3mEa6fniTrSuwaBdu97pBybePI89vAt7cFk/y7N19VqYgi1wQYLTQWxFEFtgTBFMWWAaE1wT+5iiqsosUxR1jqmKOp3wEknXj+tq93LStTS2VlpLlcIybAYXz/VLeXJEiteo6jqUzqNQSBE/9q+hntBnQ6HVVsra/vFQj73a2rj9w59/eIbPPviFD+26+8iLZ79zSLvrm68/fZQe/mkIXXtCq0Oh7Y9b1upQ6qodH57lM8c+cwzdP7zjfc/ffvvzP5EXAM+4PBt+RtgswVJssJ5mKqmHBZGCg1G4chg9eHBEHX4s5hc0tWv5oKtl+tPZcqkmfK9QLaSEcLV0nipY6ZnNVzYHrtxsJYdrK7acmRxen+0xjt/ztbuU+770wKbxubnxVbO7xodoYiJbm91Fz80dPXryXn4Pexu+9foah4ibxBnxiyAvwQqRUoj9Jni9TDYTwAsRWk7p7BoqVcak0IxRwfvN8NLrlvGkYVnG+y19wLDOvgOyPH1Ot4Iez6Pzd98ZVAWY/lo8IbYzg8VYjq1lG+vrxkk3TMaBZsNEURi6wHaEIjTloEoAHHuUG2Jc4XuYYdjGlrVrBga9dHxwdTJuqb3LB+XiycPaLxSkmuAkcthesR9nsZb6C57wIhSIVrW1cakteqJY4GfclMuTXclH3L4493qSm/u8N17yU9TnkZjq39U/TcLr+4YVPwcpOxczLf+45xx3PDqevDESDORuZKnw8GkPAxOnvb7pPnxoyI+eC4XORf3EuYhLnnOOyTN9882TYl5EmcniLMOG67mQwC6l1ohAX/YxicislMM5KWjTfmd2QFGTy6mUI69YqHGVspm0Q7o76Do8L2pKivMfrmpeN31t7baZwvlX6XNTe3Y8PEP8hxuPfPpLn7ltM19/+6dOfvKOOu27drK5p1CYOXILfa4wc2z7ddfNffoIfr7jk197/Pdr2uSBz7P2WZ0SW/mbEC2XdbIB9qE6IOFqr+foiuCdcsE4HWJKY+pkfGaunmMqV6EWAmqBn6Ab+PHdGjRGoe24kbIbsqlMddezb+/JDr+943w9zlh/X9KPRkwDy9BcHabQr+ZwaAkqZdI6aQm3WKhSJedTpkxuhHIte/FS4f7iBL3LVpXmK0pYVWilSJ1trjortrrXn73eHfPud/Xi/cXxBtdspfmqgivllfeeba58jR7vTVz/2p5E4n5vyQ78Wnwa+reCrWdX16fGSNEGSVWgfDpx0jmkFaIJaYXScUVdYKrgqljAnrhGfB92yMQsE4LNocCmXT+RK68uFw21J9DFwGLEII39BV9aeS2Ty6JN02Ou5/cXKtBTWMJiwfc66FLDSC3DKOJ7NzRXbdi7dwO9nEmZQu/WdDVsN1cNlqgyQC8PltQBTRdK6IPN1eEB5xeOswY+4CN0Cyqw1FOnWkPX7yVH6dB6oHGlwfbgRww1g62R2hx1nF8E/cNyYBgzSEMT6LK0S37dhTGiiyYxUy4K1V9OsYvbk1amN9DCJyaL5+eLk5PF08VJuhPfN5t3yipPymt8csnmzWNum75F/8HvnDppzsytG2ffYn/BnmJ/wh5jD0qLh0cdlzCj9H32N+wgm2fbcEg1VmR9EFmL6YzTp+hj9Bg9TH9Id9H7aD+9mwT7B/YjZmMGnXbQVhrCeMgXvU4/oFfoJXqOnqGrqIg2ku2s0T110sLzN7Sf/iCUQ8WzvyVVFaXf/Rp01sCeCc8itrn7/w+I+fngJOpl6K4uuH6Q6ZrQNXh1Q2jGAjNIGATJp0MmSYmfxY2JOSgL1Hy6BWN9VCEB/Rf7GddVri9gDrU1h9qaQ704h6q25lB3Ye/qZPf/8snz8+s6pcTS92iR/pz+jHbTLvZt9gL7OvsaO8W+wv6A3QGMNOBoo58NxFTmLpc+cMkdwrHohRqV4VwqvuRd+GjZsquXslo5r0i9XAnm4g6Tm9bSegVKXMnminkOfoZmSchSKEC/Pd8DK0Ahm8M/XX4LWb1GGTlpzsMFNswreqVcIeig+bIzHpDDtJg1l5X1FMEi6HiU5ul5ynm5DMq5bLXk5zS9IKfyqz4G656OFWCopqe4W/V0DMPAXFbzinKeZVhQVVsG3+9rcr4yennVSi7Py0UYGC3Fi1h3IaUsE9KNVjC4ml4GPppIkV8pYxZc5O6zFb9QwXaxLVdLZCrSTKFdT+uOyGIJsp6T64IlKGEfXgUzYcFeNcWBTqXqwfzVKFvOlcGYqqUAjQJ6pLGaGhU9ea16lWyNEtVKRq5RAlwoAxBRqWZhGiuSEuMTIewsAbwkHYiAJWcl7hUt4VAiT1Us3AMcmu9qHn359hePLHEZ6uCGIK6IWKLDIpsbmsCRKYqlagoZsHBCKPjTSOOGqSqwjYIMm9Qe+EOODg5x3UQXgtSRbsEZhMEAnQ7FgCOA6zQ5dZiawlXNEoYC4ReaidlUU1EFfIZCjh6KKFGBWRWDDHnDxAJsM64K28bjud3ZLTRV7VBFSAmHSPodQzGVbQX4Hk0VlLSwBlWR68QjQRQtXY8ruqnggVwSR+7AWfGIAYLFhUqKZRFmUG2dC0OYuqdpqmFEFRfzYHLhCIUs1YhZHH8E/0YWF7bgQMOQ1FMP4TnccIWBAXLfKpeEVJCSFKakByLMHQmHgl80rAE4KYpuqLqtoAIPqQYLsRUex3CuOibnlgGoNPgx07Zu+b0ZsimM8QlpNiTQqg2dxx/JlVs4IQ6o0QkLUUIRcGOLRKjNOnFp/j0ZmA2dhRpCN0xhk6UHuBL8v6oBV4Xk4eKGMjckrISd46x1EFJLV1RNtaVoYGu2CVBUbEHEuHAM2S5MHKvQ4EItTKliW5ai6zqZqgFGy2GwMCPEwRLCkT+ris7JMiJcSGPmAABFwz8sYsU1ijx1RYtYWAOou2O6IU5aFycfEidUV4goMFYM1VAolAyrNnat2IajOGSFXB3mE5DjLOLCUhRT1biwAoB51IhL+cU6LN0JjhJ4R9WItMU8hE2jqiQd01FNUBwC1AAdaqLyCGQEdXwM1Ve4ASAdblkqGpSQqUrRwBlgzwoUAhBoYEU4Fml8JVFqhhM75Z41HiGpB4CaW0JDE9B1NC77SHmS86g9Rsx0TJsrUb3NvR7lL7Aou5Ll68vz2cFkIuKEYe1tkvEPTonAH2W0zGHfbxoeyqT7Y67aJh96ppxJIFzOxUzyqroMnXMmtSLnakCgykvMxJdUynMWjy+CptM6/LsnrerQpebR5lE9rGagtvTH8VUdD1rGgmHdpdFQ85fourjoSRtjNH9FA1fIeGV98xl0vUJzVLo6EnnvARk//eNNSrTNJR8VX0RM6bHNbFv96jikkNaWoePj1SFId6WvC6KlNAJiQYiDBFw6XwCxVG6T3ok0REJcVfkswgMZ2nGEdpmVgx2Drci5lE2DEfuIDGC3YUNzCBUqBBzgwsq69DsAAAwziFGlDXd10Ok8rUQsWAUaKUEv166thfzkSJ2P7xkny/dX1OgHFUv14l2VuyPDnV6k+dANt1535NYvfP3Ilhcrju3pZsXStS5/pNLFSytqtRW+H6rP1fj64aQfqjU/a1Yo7iZ5+e7oipEo3bHlyJ75Lxyg26+95YZvY3jcjlgV0jq9kdLABb7N7wf309kyGRlBOCW5ZODZnB9CYEBBYEtzDEI5nekYrHREZfDd0V8uZR1oSawd+4F0+kWcbyvI805T7+wds0Qv93nnXwuCu9iJ7z7G4yh+7sAYQtY1TzSfCWI3Wu/10YGbTpy46UCqlQcQ12E9AyBh19ev3TDINXMlqZpP0gzCTDSYaWiGqR3U0QorzA9KbYHigY/IGAl8DOxJNbR9snJpLLB5U3ZwsDIIGjEgA1ly4aGkuOraUnxekHmcFFULIAXVoN7Rjt/hH+U5S0cmq1UwE+zSl9xBTA3808e3fWx8ItTjIeJ0PG5uHbqxOnlfTksqNqTXcaOt1u23TaHRV+3Duk0D//zxbY/LQUnYEHrs6drqiVAw3OsJbR0YpsmadVXYpqfaLVtbdU1p92yd3a+UVfwe1s82sPX1tWlpSBpwA1glaQehegr86QKUXcZOuozqWXCabE5FIMmm19e9/sFkv5cY6ggie1fL4ShXUp6KsUxaZrpaUQ80OdEvS4NuO6YPkhn9rRJCKS+gKDEgws9YxvnXpB2EFC1AY43ToT77SdNzFmidqc4rtN940u4LnTbQ0nxGtlgGTyrBgAXHCwEZ2Dk4jmu8bmvRthetHqi9dkD9cdhaDIcXrW5vUV9Qw3CAUGFDNJ+UgSNHjH8r4qMwzr6fLa8PIWJjDuwD4kbsmhQmkzXSVUKjeZhv8TNuR1xVO6HFedJcD5TTlTuDtoJ/Irz3oawev//Rlx/Fh1Ijo+6zN9498+jN0NQDxz577MA4bXo2Qfe951H+2JmPaQ83H+8dTjy7qXbrH33m2KFRZf1Nj229+8ZnE1LHZOx2BmurQ8PKdSseseCdESEgkO8BQbdlzoXdhmXZfEt33QrCOpLmdf7rva4fRHaAHYIoM5JSVsulakdOXgeD8FtFkBc5s8pO2P95zvZsWvWSs4ySRwH7+ynZR6/ZkRear9mhKOkPPKDHLXAd/4WInVCHmr7fHMJKLuS8BmD3V9VXpBI2nDOjBlPl2lS2T/pihc8K6fPnZD5uOuG7PW5nkIYDE69WcJFEucWWwb9bJBwUNkgHVS5LI37Q2r/fsopWCvdQyiqEQriHClYKdzQWre9dku76kSN/7Q0t9ULx8vojlya9WnmUs/z5IOfVxabZtfXdo/CDlR6umLwRZ3DEm1nICh1mJnqbykFDUgXY/AXYE/UQYhFwBb43iF+2y5zKHKwIsempLZs2rL4qjr/eZMyL20EmLOvwFFVEsZyR205Qu6Ej5jrwvhlXHlb72tIrEO1qWXLztcAiSIv50B7aPzw6zPOV/PcW53T1oMrPtOuPKLZmhbtgSRfxXatEQV4N7kYk4Q0fCqWj857DxyJuvXeED9WySp5WH8d4vfnKUgO/6/wLhiPZ29js7Jj8wlaCR0Ezf6CFE4YZOxRyFiIeuW3snhD5ALsrWJ1trm8o4yTb+UJmauZhg2ABDzNd6IeDJOHspUlDRabPFD69ZjxTzKQLFzOGLViqS/d2HkbmC33EO7CzQXZQaMuXMu45CVjb/Pw3CcOf2ZXM8XQl/DOv7xtm8rgbOY59Hfc7YkHuMN4Lqxvviytd9lLhodNeX5+HCy0bGlqWou1eO084giHWuZjUVxHwoGshQxFo7EpWrZeGSFEN1soBQ1aEqshEk+TeQQ6YZgNBkao+nS3jXzFQjEvSotJGikTLvubapy4uhUHW593oGz8PliNi8kTeuXZjIygGV4pOOPg5ElzJacBd4Ad5oG27+Ld8nP8Lc1gvy9T7WOttATjqYayfH77w6iNRyroy5XmJiZeLzgVrvOAK+Jh1LtQTOgdPRa8Hj23aEZfbAd7Wv0csmX21UljWdwK3FVTbmJ7kNXCxKMux69iu+g5V4rl1y6ZKIa8F+T3JMFiQ16OWNiJakSkH7RAEEs5fmm5osiRjko5wmp7bva5eWzM22uUPuHFTGnOpaxAzCI/0zwg9S3medrjuLuOeX6xUZT6h6upo8cDG2l8t43CErxhYlVZVfhFZBy8WUpw+YdsOH+/VEaCaPZWRuWxtenq6lqVsLDahf8BoaJ6WbazuTPeJrnC40xjoDOULq8yuAdI7HaeLp/s6RwszN99889UVHpPstLPHilrx4d6hjflkMr9xaPVIvGPntm07tS51ZPXutd3D67sjy9xIJNEbDYe7ejp7eJ/fg6mjvYlIxF0W6amPdK3dXd1XG+BDoze2sT2l2IHNi8KGl+sFBkARoh68wGIpQBUAIuDaDgDFnBSB6WxxoBDvT7fZLLRPEtj+llgCy1ymLcIypRiI6BP1kUxmRe2NfeLs7Nj5ytisYh+dz0wWZU4Rpui++aP0bytqi7XmvTA1dBbVeGmCJov0OCTyaEseW3lMyVkq9WIpjtOkhg5VkkYEXI6xQ6oMLgmmBfe5IJifLperZXwv5HEDEhYr1bgkabrULLCzXnI9WVd/Wwf6cn1kcaRO+elbRzOBcmXGZvsS7wf7/uU7/jK6KOk2PTR663Tec6S6zY7Fvb7aindol/qn4mxuFWfFduZD7qvgtLvZnvr8ti22sPi61RCpK6/ggLiT48gkddOk1B+EbzJ009grs2QwwPuYZfG5EECxJ2SSbk6iFGZbdu7YOrVpg5/Fn5sZcAOftKS+IGjtPHDAy9S2sZE8t3iJ8bm0Lg3vEg8Wl723AmKf0J5UHe20YYQXgpAMH77VMpqrpEzTy2hA5RNBZX9QOSfL54LicVnEJa/pT6rqaTMhmGw5z6xrFmRBXsi7WEws6BbZ2luaL8czcjmePYi/L+IZvK9TGvBNGmmCLsNTtPBUgCci+YnAcvO34Ak0EdZJPNW34PBO+A6+pV9HW3OW8O14C978Ty/C0nz97djSnZcheBmyFzHvvADO2rdB+9f/EzzNAM954CmATQioZtgwcJ1kO+gD9dAAMZsaGylOm1up6D1htHCb7Ycptvm7fVhomU8+GEtyPa7p8YWEfEUlSNlreVyEIM4CaMcZyLa7r4s6WDTSEd3nkG2bc8w07YlOikSMOYatG1u6W2+2rr/sGbTwf/yQ+t72/DLE/R08YH6+vnF6avly2zYMhFps5pqpHdM7tjQ2b6qtWV5dXq2US8XClfmR7GB/qtOzI7bMsISMkGUqOuI1Vb6ji3XL/4VQziT8cqa3fU8MyhDrYrQtvbOPWFumVzpiLc6UyJT7Y6DcELY85UrwdeWijMZFoVLKph2Qhf2N4xP40F9FvZR/Pt567fq6V4lMvqrqX9VePIuWxkTzx3RwXJk5ejVX7WpjJByfSg0Pjw/xEX5PozExMdEIrn8XLSXPHw2mEPfg5kWzr8a0r+pvnOTjfYnXJibe+Dx95C8jTr7GR1c5kczTjYbT/IWHKLnHa+vyKREXoSWeBV4wV985BS3WrujvjCF+JUk7baZrtr7PIoT1xmw4xDUFfFS6NRUBnWnCUeBO8ijInJ6f27n9mq2NzRvq2XSHtIzZjCPtYkz6t7QGBL2Ab/6WOhVz2VxG01v6336zlotdsJCSSRRl3IsLpSxjQGoVLscvFo8FL+lR1K3mK+e6FfWUptBPLaPSfuVXlj9+KWeOeE/6w2buy4a1nR6Sbc07A/3+zWVeWAe/qO7A1Od/nt+4Ps87gqddn+ihlHu9Jd/nNaHTPwlsZBI8vlS/0oCz5yEK4ARdIMnWWyktNbCAMqhTwsoW3+tw/URAXiE/CNmyuOgp4CGWXvarriPyosYLKS6225PrB28+cvPg+kl77KnFp7a2/4cFdc088PR3n3pwWpm997nnn7t39j27bjeG8/lh88ju2RtuoO/P38Pv/cp92h2Fm9CJzzzwze9884EZ3P4LH7k+YwB4nGNgZGBgAGJL8fKl8fw2Xxm4mV8ARRhusJzeDaP///2fxWLAHATkcjAwgUQBVVEMwAAAeJxjYGRgYA76n8XAwKL//+//XywGDEARFCAPAJaXBjx4nGN+wcDAvACII///ZToFoaH8/8yRULkFSOJA9UxNID4DA4s+SA6oDiYPNwuoxvr/fyZrJDUvIHrBZgqC2P//AQCSoiKjAAAAAAAAAGIAzgESAXgB/AJOAtIDXgOMB5AH+AiKCNIJaAnuCjwKjAryC5AMFAx6DL4NbA3CDjoO4g+KEMgRdBHSAAEAAAAfAfgACQAAAAAAAgA2AEYAcwAAAMELcAAAAAB4nHWQ3WrCMBiG38yfbQrb2GCny9FQxuoPDEQQBIeebCcyPB211rZSG0mj4G3sHnYxu4ldy17bOIayljTP9+TLl68BcI1vCOTPE0fOAmeMcj7BKXqWC/TPlovkF8slVPFmuUz/brmCBwSWq7jBByuI4jmjBT4tC1yJS8snuBB3lgv0j5aL5J7lEm7Fq+UyvWe5golILVdxL74GarXVURAaWRvUZbvZ6sjpViqqKHFj6a5NqHQq+3KuEuPHsXI8tdzz2A/Wsav34X6e+DqNVCJbTnOvRn7ia9f4s131dBO0jZnLuVZLObQZcqXVwveMExqz6jYaf8/DAAorbKER8apCGEjUaOuc22iihQ5pygzJzDwrQgIXMY2LNXeE2UrKuM8xZ5TQ+syIyQ48fpdHfkwKuD9mFX20ehhPSLszosxL9uWwu8OsESnJMt3Mzn57T7HhaW1aw127LnXWlcTwoIbkfezWFjQevZPdiqHtosH3n//7AelzhFMAeJxtj+lygzAMhL3BHIFA7/tIX4CHMkaOGVyc+Gimb1+YtP2V/SPNzkqfxFbspJKd1xYrJOBIkSFHgTVKVNigRoMLXOIK17jBLe5wjwc84gnPeMEr3vCOLT5YIXwgN/ixlprk2MrBSUM9j55cLo2dLVv09jgZK/qkExOnfgibU9gfonCUKWt6cunO2I64tp+UjPTNl9nckXLk9VzDkShknoSTmvsgXCPFJMn8EdPgohyzuF9AvBPOc29dWJthp0MXTZdJqxRReYg2UGtIhWoJtMKENu7r/345tlGDoXZBDV/U2nm38LpafvrFMfYD3t1bCwAAAHicY/DewXAiKGIjI2Nf5AbGnRwMHAzJBRsZWJ02MTAyaIEYm7mYGDkgLD4GMIvNaRfTAaA0J5DN7rSLwQHCZmZw2ajC2BEYscGhI2Ijc4rLRjUQbxdHAwMji0NHckgESEkkEGzmYWLk0drB+L91A0vvRiYGFwAMdiP0AAA=&#039;) format(&#039;woff&#039;);
+}
+.fa { font-family: &quot;fontello&quot;; font-style: normal; font-weight: normal; }
+.fa-asterisk::before { content:&quot;\e800&quot; }
+.fa-check-circled::before { content:&quot;\e801&quot; }
+.fa-user::before { content:&quot;\e802&quot; }
+.fa-clock-o::before { content:&quot;\e803&quot; }
+.fa-download::before { content:&quot;\e804&quot; }
+.fa-ban::before { content:&quot;\e805&quot; }
+.fa-edit::before { content:&quot;\e806&quot; }
+.fa-check-square::before { content:&quot;\e807&quot; }
+.fa-folder::before { content:&quot;\e808&quot; }
+.fa-globe::before { content:&quot;\e809&quot; }
+.fa-home::before { content:&quot;\e80a&quot; }
+.fa-key::before { content:&quot;\e80b&quot; }
+.fa-lock::before { content:&quot;\e80c&quot; }
+.fa-refresh::before { content:&quot;\e80d&quot; }
+.fa-retweet::before { content:&quot;\e80e&quot; }
+.fa-search::before { content:&quot;\e80f&quot; }
+.fa-star::before { content:&quot;\e810&quot; }
+.fa-cancel-circled::before { content:&quot;\e811&quot;; }
+.fa-truck::before { content:&quot;\e812&quot; }
+.fa-upload::before { content:&quot;\e813&quot; }
+.fa-bars::before { content:&quot;\f0c9&quot; }
+.fa-coffee::before { content:&quot;\f0f4&quot; }
+.fa-quote-left::before { content:&quot;\f10d&quot; }
+.fa-file-archive-o::before { content:&quot;\f1c6&quot; }
+.fa-trash::before { content:&quot;\f1f8&quot; }
+.fa-user-circle::before { content:&quot;\f2bd&quot; }
+.fa-lightbulb:before { content: &#039;\f0eb&#039; }
+.fa-sort:before { content: &#039;\f0dc&#039; }
+.fa-sort-alt-up:before { content: &#039;\f160&#039; }
+.fa-sort-alt-down:before { content: &#039;\f161&#039; }
+</dd><hr>04/11/2018 17:50:42
+
<dt>cookie|HFS_SID_</dt><dd>0.250689985230565</dd>
<dt>!Ok</dt><dd>Ok</dd>
<dt>!Ok</dt><dd>Ok</dd>
<dt>!Error</dt><dd>Error</dd>
<dt>can change pwd</dt><dd>{.member of|can change password.}</dd>
<dt>member of|can change password</dt><dd>can change password</dd>
<dt>!Password changed, you&#039;ll have to login again.</dt><dd>Password changed, you&#039;ll have to login again.</dd>
<dt>!Sorry, you lack permissions for this action</dt><dd>Sorry, you lack permissions for this action</dd>
<dt>if|can change password
+    	| ask(this.innerHTML, &#039;password&#039;, function(s){
+            s &amp;&amp; ajax(&#039;changepwd&#039;, {&#039;new&#039;:s}, getStdAjaxCB([
+                &quot;!Password changed, you&#039;ll have to login again.&quot;,
+                &#039;&gt;~login&#039;
+            ]))
+    	  })
+		| showError(&quot;Sorry, you lack permissions for this action&quot;)
+	</dt><dd>ask(this.innerHTML, &#039;password&#039;, function(s){
+            s &amp;&amp; ajax(&#039;changepwd&#039;, {&#039;new&#039;:s}, getStdAjaxCB([
+                &quot;!Password changed, you&#039;ll have to login again.&quot;,
+                &#039;&gt;~login&#039;
+            ]))
+    	  })</dd>
<dt>!confirm</dt><dd>Are you sure?</dd>
<dt>!Enter the destination folder</dt><dd>Enter the destination folder</dd>
<dt>!We met the following problems:</dt><dd>We met the following problems:</dd>
<dt>!files were moved.</dt><dd>files were moved.</dd>
<dt>!No file was moved.</dt><dd>No file was moved.</dd>
<dt>!Please enter the file mask to select</dt><dd>Please enter the file mask to select</dd>
<dt>!Sort by</dt><dd>Sort by</dd>
<dt>cut|2||var=z</dt><dd></dd>
<dt>!</dt><dd></dd>
<dt>^z</dt><dd>Name</dd>
<dt>cut|Name|1|1</dt><dd>1</dd>
<dt>cut|2||var=z</dt><dd></dd>
<dt>!</dt><dd></dd>
<dt>^z</dt><dd>Extension</dd>
<dt>cut|Extension|1|1</dt><dd>1</dd>
<dt>cut|2||var=z</dt><dd></dd>
<dt>!</dt><dd></dd>
<dt>^z</dt><dd>Size</dd>
<dt>cut|Size|1|1</dt><dd>1</dd>
<dt>cut|2||var=z</dt><dd></dd>
<dt>!</dt><dd></dd>
<dt>^z</dt><dd>Timestamp</dd>
<dt>cut|Timestamp|1|1</dt><dd>1</dd>
<dt>cut|2||var=z</dt><dd></dd>
<dt>!</dt><dd></dd>
<dt>^z</dt><dd>Hits</dd>
<dt>cut|Hits|1|1</dt><dd>1</dd>
<dt>for each|z|nName|eExtension|sSize|tTimestamp|dHits|{:
+			    $(&#039;&lt;button class=&quot;pure-button&quot;&gt;{.!{.cut|2||var=z.}.}&lt;/button&gt;&#039;).click(ev=&gt; sortBy(&#039;{.cut|{.^z.}|1|1.}&#039;)),
+			:}</dt><dd>
+			    $(&#039;&lt;button class=&quot;pure-button&quot;&gt;&lt;/button&gt;&#039;).click(ev=&gt; sortBy(&#039;1&#039;)),
+			
+			    $(&#039;&lt;button class=&quot;pure-button&quot;&gt;&lt;/button&gt;&#039;).click(ev=&gt; sortBy(&#039;1&#039;)),
+			
+			    $(&#039;&lt;button class=&quot;pure-button&quot;&gt;&lt;/button&gt;&#039;).click(ev=&gt; sortBy(&#039;1&#039;)),
+			
+			    $(&#039;&lt;button class=&quot;pure-button&quot;&gt;&lt;/button&gt;&#039;).click(ev=&gt; sortBy(&#039;1&#039;)),
+			
+			    $(&#039;&lt;button class=&quot;pure-button&quot;&gt;&lt;/button&gt;&#039;).click(ev=&gt; sortBy(&#039;1&#039;)),
+			</dd>
<dt>!Delete</dt><dd>Delete</dd>
<dt>!Rename</dt><dd>Rename</dd>
<dt>!Comment</dt><dd>Comment</dd>
<dt>!Move</dt><dd>Move</dd>
<dt>!option.move</dt><dd>1</dd>
<dt>can move</dt><dd>{.or|1|1.}</dd>
<dt>or|1|1</dt><dd>1</dd>
<dt>and|1|1</dt><dd>1</dd>
<dt>!Move</dt><dd>Move</dd>
<dt>if|1| &lt;button id=&#039;moveBtn&#039; onclick=&#039;moveFiles()&#039;&gt;Move&lt;/button&gt; </dt><dd>&lt;button id=&#039;moveBtn&#039; onclick=&#039;moveFiles()&#039;&gt;Move&lt;/button&gt;</dd>
<dt>!No access</dt><dd>No access</dd>
<dt>$more onload</dt><dd></dd>
\ No newline at end of file
diff --git a/main.dfm b/main.dfm
new file mode 100644
index 0000000..2ffcdab
--- /dev/null
+++ b/main.dfm
@@ -0,0 +1,3449 @@
+object mainFrm: TmainFrm
+  Left = 293
+  Top = 219
+  Caption = 'HFS ~ HTTP File Server'
+  ClientHeight = 391
+  ClientWidth = 783
+  Color = clBtnFace
+  Constraints.MinHeight = 260
+  Constraints.MinWidth = 390
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  KeyPreview = True
+  OldCreateOrder = False
+  Position = poDesigned
+  OnClose = FormClose
+  OnCloseQuery = FormCloseQuery
+  OnKeyDown = FormKeyDown
+  OnKeyUp = FormKeyUp
+  OnResize = FormResize
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object graphSplitter: TSplitter
+    Left = 0
+    Top = 78
+    Width = 783
+    Height = 5
+    Cursor = crVSplit
+    Align = alTop
+    AutoSnap = False
+    Beveled = True
+    MinSize = 15
+    ResizeStyle = rsUpdate
+    OnMoved = graphSplitterMoved
+    ExplicitTop = 86
+    ExplicitWidth = 752
+  end
+  object graphBox: TPaintBox
+    Left = 0
+    Top = 48
+    Width = 783
+    Height = 30
+    Hint = 'Pink = Out'#13#10'Yellow = In'
+    Align = alTop
+    ParentShowHint = False
+    PopupMenu = graphMenu
+    ShowHint = True
+    OnPaint = graphBoxPaint
+    ExplicitTop = 51
+    ExplicitWidth = 752
+  end
+  object topToolbar: TToolBar
+    Left = 0
+    Top = 0
+    Width = 783
+    Height = 24
+    AutoSize = True
+    ButtonWidth = 138
+    Caption = 'topToolbar'
+    EdgeBorders = [ebBottom]
+    Images = images
+    List = True
+    ShowCaptions = True
+    TabOrder = 1
+    object menuBtn: TToolButton
+      Left = 0
+      Top = 0
+      Hint = 'Hit ALT or F10 to pop it up'
+      AutoSize = True
+      Caption = 'Menu'
+      ImageIndex = 13
+      ParentShowHint = False
+      ShowHint = True
+      OnClick = menuBtnClick
+    end
+    object ToolButton4: TToolButton
+      Left = 57
+      Top = 0
+      Width = 9
+      Caption = 'ToolButton4'
+      ImageIndex = 15
+      Style = tbsSeparator
+    end
+    object portBtn: TToolButton
+      Left = 66
+      Top = 0
+      AutoSize = True
+      Caption = 'Port: any'
+      ImageIndex = 38
+      OnClick = portBtnClick
+    end
+    object ToolButton2: TToolButton
+      Left = 142
+      Top = 0
+      Width = 8
+      Caption = 'ToolButton2'
+      ImageIndex = 16
+      Style = tbsSeparator
+    end
+    object modeBtn: TToolButton
+      Left = 150
+      Top = 0
+      Hint = 'Click to switch'#13#10'F5 on keyboard'
+      AutoSize = True
+      Caption = 'You are in Easy mode'
+      ImageIndex = 29
+      ParentShowHint = False
+      ShowHint = True
+      OnClick = modeBtnClick
+    end
+    object ToolButton1: TToolButton
+      Left = 284
+      Top = 0
+      Width = 9
+      Caption = 'ToolButton1'
+      ImageIndex = 13
+      Style = tbsSeparator
+    end
+    object startBtn: TToolButton
+      Left = 293
+      Top = 0
+      Hint = 'Click to switch ON'#13'F4 on keyboard'
+      AutoSize = True
+      Caption = 'Server is currently OFF'
+      ImageIndex = 11
+      ParentShowHint = False
+      ShowHint = True
+      OnClick = startBtnClick
+    end
+    object abortBtn: TToolButton
+      Left = 435
+      Top = 0
+      AutoSize = True
+      Caption = 'Abort file addition'
+      ImageIndex = 25
+      Visible = False
+      OnClick = abortBtnClick
+    end
+    object restoreCfgBtn: TToolButton
+      Left = 551
+      Top = 0
+      Caption = 'Restore my options'
+      ImageIndex = 34
+      Visible = False
+      OnClick = restoreCfgBtnClick
+    end
+    object updateBtn: TToolButton
+      Left = 689
+      Top = 0
+      AutoSize = True
+      Caption = 'Update now'
+      ImageIndex = 10
+      Visible = False
+      OnClick = updateBtnClick
+    end
+  end
+  object urlToolbar: TToolBar
+    Left = 0
+    Top = 24
+    Width = 783
+    Height = 24
+    AutoSize = True
+    ButtonWidth = 111
+    EdgeBorders = [ebBottom]
+    Images = images
+    List = True
+    ShowCaptions = True
+    TabOrder = 2
+    Wrapable = False
+    object browseBtn: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = 'Open in browser'
+      ImageIndex = 26
+      OnClick = browseBtnClick
+    end
+    object urlBox: TEdit
+      Left = 110
+      Top = 0
+      Width = 433
+      Height = 22
+      TabOrder = 0
+      OnChange = urlBoxChange
+    end
+    object copyBtn: TToolButton
+      Left = 543
+      Top = 0
+      AutoSize = True
+      Caption = 'Copy to clipboard'
+      ImageIndex = 16
+      OnClick = copyBtnClick
+    end
+  end
+  object centralPnl: TPanel
+    Left = 0
+    Top = 83
+    Width = 783
+    Height = 308
+    Align = alClient
+    BevelOuter = bvNone
+    TabOrder = 0
+    object splitV: TSplitter
+      Left = 313
+      Top = 0
+      Height = 197
+      Beveled = True
+      Constraints.MaxWidth = 3
+      Constraints.MinWidth = 3
+      ResizeStyle = rsUpdate
+      OnMoved = splitVMoved
+      ExplicitHeight = 219
+    end
+    object splitH: TSplitter
+      Left = 0
+      Top = 197
+      Width = 783
+      Height = 5
+      Cursor = crVSplit
+      Align = alBottom
+      Beveled = True
+      MinSize = 1
+      ResizeStyle = rsUpdate
+      OnMoved = splitHMoved
+      ExplicitTop = 218
+      ExplicitWidth = 732
+    end
+    object logPnl: TPanel
+      Left = 316
+      Top = 0
+      Width = 467
+      Height = 197
+      Align = alClient
+      BevelOuter = bvNone
+      TabOrder = 1
+      object logBox: TRichEdit
+        Left = 0
+        Top = 23
+        Width = 467
+        Height = 174
+        Align = alClient
+        Font.Charset = ANSI_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        HideSelection = False
+        ParentFont = False
+        PopupMenu = logmenu
+        ReadOnly = True
+        ScrollBars = ssBoth
+        TabOrder = 0
+        WordWrap = False
+        Zoom = 100
+        OnChange = logBoxChange
+        OnMouseDown = logBoxMouseDown
+      end
+      object logTitle: TPanel
+        Left = 0
+        Top = 0
+        Width = 467
+        Height = 23
+        Align = alTop
+        BevelOuter = bvNone
+        TabOrder = 1
+        object titlePnl: TPanel
+          Left = 0
+          Top = 0
+          Width = 211
+          Height = 23
+          Align = alClient
+          BevelOuter = bvNone
+          Caption = 'Log'
+          TabOrder = 0
+        end
+        object logToolbar: TPanel
+          Left = 211
+          Top = 0
+          Width = 256
+          Height = 23
+          Align = alRight
+          AutoSize = True
+          BevelOuter = bvNone
+          TabOrder = 1
+          object collapsedPnl: TPanel
+            Left = 0
+            Top = 0
+            Width = 21
+            Height = 23
+            Align = alRight
+            AutoSize = True
+            BevelOuter = bvNone
+            TabOrder = 0
+            object expandBtn: TSpeedButton
+              Left = 0
+              Top = 0
+              Width = 21
+              Height = 23
+              Hint = 'Expand toolbar'
+              Align = alClient
+              Flat = True
+              Glyph.Data = {
+                EE010000424DEE0100000000000036000000280000000D0000000B0000000100
+                180000000000B801000000000000000000000000000000000000C8D0D4C8D0D4
+                C8D0D4C8D0D4C8D0D49A775AC8D0D4C8D0D4C8D0D4C8D0D49A775AC8D0D4C8D0
+                D473C8D0D4C8D0D4C8D0D4C8D0D49A775A8C05009A775AC8D0D4C8D0D49A775A
+                8C05009A775AC8D0D473C8D0D4C8D0D4C8D0D4AC76578C05009A775AC8D0D4C8
+                D0D4AC76578C05009A775AC8D0D4C8D0D473C8D0D4C8D0D49A775A8C05009A77
+                5AC8D0D4C8D0D49A775A8C05009A775AC8D0D4C8D0D4C8D0D473C8D0D49A775A
+                8C05009A775AC8D0D4C8D0D49A775A8C05009A775AC8D0D4C8D0D4C8D0D4C8D0
+                D4739A775A8C0500B37E5FC8D0D4C8D0D49A775A8C0500B37E5FC8D0D4C8D0D4
+                C8D0D4C8D0D4C8D0D473C8D0D4B17C5C8C05009A775AC8D0D4C8D0D4B17C5C8C
+                05009A775AC8D0D4C8D0D4C8D0D4C8D0D473C8D0D4C8D0D49A775A8C0500AF79
+                5AC8D0D4C8D0D49A775A8C0500AF795AC8D0D4C8D0D4C8D0D473C8D0D4C8D0D4
+                C8D0D49A775A8C05009A775AC8D0D4C8D0D49A775A8C05009A775AC8D0D4C8D0
+                D473C8D0D4C8D0D4C8D0D4C8D0D49A775A8C05009A775AC8D0D4C8D0D49A775A
+                8C05009A775AC8D0D473C8D0D4C8D0D4C8D0D4C8D0D4C8D0D49A775AC8D0D4C8
+                D0D4C8D0D4C8D0D49A775AC8D0D4C8D0D473}
+              ParentShowHint = False
+              ShowHint = True
+              OnClick = expandBtnClick
+              ExplicitTop = 1
+            end
+          end
+          object expandedPnl: TPanel
+            Left = 21
+            Top = 0
+            Width = 235
+            Height = 23
+            Align = alRight
+            AutoSize = True
+            BevelOuter = bvNone
+            TabOrder = 1
+            object openFilteredLog: TSpeedButton
+              Left = 209
+              Top = 0
+              Width = 26
+              Height = 23
+              Hint = 'Copy to editor only lines matched by the search pattern'
+              Align = alRight
+              Enabled = False
+              Flat = True
+              Glyph.Data = {
+                36060000424D3606000000000000360000002800000020000000100000000100
+                18000000000000060000C21E0000C21E00000000000000000000FF00FFFF00FF
+                FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+                FF979697756A67A3A2A2FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
+                00FFFF00FFFF00FFFF00FFFF00FFFF00FFAEAEAE989898B5B5B5FF00FFFF00FF
+                FF00FFFF00FFFF00FFC9A9A3D0AFA9E0B2A8E0B2A8E0B2A8E0B2A8E0B2A88B89
+                8A9C6F757890DB749AB5FF00FFFF00FFFF00FFFF00FFFF00FFB8B8B8BCBCBCBD
+                BDBDBDBDBDBDBDBDBDBDBDBDBDBDA8A8A89D9D9DB5B5B5B3B3B3FF00FFFF00FF
+                FF00FFFF00FFFF00FFCDABA3E4D4C7F6EFE7F6EFE7F6EFE7F6EFE79291939D70
+                747185D340B4FF89D1F5FF00FFFF00FFFF00FFFF00FFFF00FFB9B9B9CCCCCCDA
+                DADADADADADADADADADADAADADAD9E9E9EB0B0B0C5C5C5CFCFCFFF00FFFF00FF
+                FF00FFFF00FFFF00FFCFB0AAEAD8CBF9EADAFBE7D3FBE4CDA7A9AB966C746F89
+                DB3DBFFF97D5F3FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBCBCBCCECECED7
+                D7D7D5D5D5D3D3D3B8B8B89C9C9CB3B3B3C9C9C9CFCFCFFF00FFFF00FFC2A5A2
+                C29790C29790C29790BC91886A5D5C8473707F6C69837D805A52546886CD2EB2
+                FF5B8FAFD9B39CFF00FFFF00FFB7B7B7B0B0B0B0B0B0B0B0B0ADADAD9292929D
+                9D9D9B9B9BA3A3A38D8D8DB0B0B0C5C5C5AEAEAEBCBCBCFF00FFFF00FFC2A5A2
+                F8E6DDF8E6DDF8E6DDA2817CFFFFFAFFFFFFFFFFECFFE8B8BD91859AB6C78CB9
+                D1F5E8D7DCB79EFF00FFFF00FFB7B7B7D6D6D6D6D6D6D6D6D6A5A5A5E2E2E2E2
+                E2E2E0E0E0D3D3D3ADADADC0C0C0C2C2C2D6D6D6BEBEBEFF00FFFF00FFC5A7A2
+                F6EDE2F8E9D8847876FFFFF9F4FBFFEEF3DFF0F3CDF5F7C4EECBA4CCBBB9FBD7
+                B3F7E7D5DDB8A0FF00FFFF00FFB7B7B7D9D9D9D6D6D6A0A0A0E2E2E2E1E1E1DB
+                DBDBD8D8D8DADADAC6C6C6C1C1C1CCCCCCD6D6D6BEBEBEFF00FFFF00FFCDABA3
+                F8E5D1FED1A5BEAD94F8FEEAE2E5E5DFE1D9DEE1C5DBCEA6E3D5A8D1B8A7FBE3
+                C9F7EBDDE0BBA3FF00FFFF00FFB9B9B9D4D4D4C9C9C9B8B8B8E0E0E0D6D6D6D3
+                D3D3D1D1D1C7C7C7CACACABEBEBED3D3D3D8D8D8C0C0C0FF00FFFF00FFCEADA7
+                F7EDE3F8E9D8D0BE9DEFF6D3DFE4CFDAE0C8D9DCB9D7C7A0DBCEA3D8C3ADFED8
+                B2F8E7D5E0BBA3FF00FFFF00FFBABABAD9D9D9D6D6D6C0C0C0DBDBDBD3D3D3D1
+                D1D1CECECEC4C4C4C7C7C7C3C3C3CCCCCCD6D6D6C0C0C0FF00FFFF00FFD1B3AD
+                FAE7D4FED1A5BB9B81FDFECBE3E1BCE0DFB9DFD5A8DECDABE6E4BDD1BDABFEEF
+                DFF7D4C9E2A398FF00FFFF00FFBDBDBDD5D5D5C9C9C9B0B0B0DDDDDDD0D0D0CF
+                CFCFCACACAC8C8C8D1D1D1C1C1C1DADADACDCDCDB7B7B7FF00FFFF00FFDCBBAB
+                FAF4EFFEEFE0A18D8EEBCC9DF4EDB7EDD5A1EDE0B9ECF2F6DBCAC2C7C0BFE5D0
+                C8C48F77BE8D7FFF00FFFF00FFC1C1C1DDDDDDDADADAABABABC5C5C5D5D5D5CA
+                CACACFCFCFDDDDDDC8C8C8C4C4C4CBCBCBABABABABABABFF00FFFF00FFE3C1AD
+                FBEDDEFED1A5FED1A5B59B97E3C5A5EFD8ABE4D5AFD3C3BAC0B7B9F5F3F1DECC
+                C8D8A582FF00FFFF00FFFF00FFC3C3C3D8D8D8C9C9C9C9C9C9B2B2B2C4C4C4CC
+                CCCCCACACAC4C4C4BFBFBFDDDDDDCACACAB5B5B5FF00FFFF00FFFF00FFE9C7B0
+                FCFCFDFFFEFEFEFCF8F6DFC9C2C5D0BCB4BCB0A8AEC0C5CCD7A990E7C5AFDEBC
+                ABFF00FFFF00FFFF00FFFF00FFC5C5C5E1E1E1E2E2E2E1E1E1D1D1D1C8C8C8BF
+                BFBFB8B8B8C7C7C7B7B7B7C5C5C5C1C1C1FF00FFFF00FFFF00FFFF00FFECCBB3
+                FEFDFDFFFFFEFEFEFEFEFCFAFEF8F1FEF5EAC89C8EBF8E80CDABA3FF00FFFF00
+                FFFF00FFFF00FFFF00FFFF00FFC8C8C8E2E2E2E2E2E2E2E2E2E1E1E1DFDFDFDD
+                DDDDB2B2B2ABABABB9B9B9FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFF3D3B6
+                FEFEFEFEFEFEFDFEFDFCFCFCFCFAF7FCF7F0C9957AE3B58FFF00FFFF00FFFF00
+                FFFF00FFFF00FFFF00FFFF00FFCACACAE2E2E2E2E2E2E2E2E2E1E1E1E0E0E0DE
+                DEDEAEAEAEBCBCBCFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFF3D3B6
+                E7C4AEE7C4AEE6C4ADE5C2ACE5C2ACE5C1A9C49788FF00FFFF00FFFF00FFFF00
+                FFFF00FFFF00FFFF00FFFF00FFCACACAC4C4C4C4C4C4C4C4C4C3C3C3C3C3C3C3
+                C3C3AFAFAFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
+              NumGlyphs = 2
+              ParentShowHint = False
+              ShowHint = True
+              OnClick = openLogBtnClick
+            end
+            object openLogBtn: TSpeedButton
+              Left = 183
+              Top = 0
+              Width = 26
+              Height = 23
+              Hint = 'Copy to editor'
+              Align = alRight
+              Flat = True
+              Glyph.Data = {
+                36040000424D3604000000000000360000002800000010000000100000000100
+                2000000000000004000000000000000000000000000000000000FF00FF00FF00
+                FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+                FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
+                FF00FF00FF00FF00FF00FF00FF00C9A9A300D0AFA900E0B2A800E0B2A800E0B2
+                A800E0B2A800E0B2A800E0B2A800E0B2A800C4958E00FF00FF00FF00FF00FF00
+                FF00FF00FF00FF00FF00FF00FF00CDABA300E4D4C700F6EFE700F6EFE700F6EF
+                E700F6EFE700F6EFE700F6EFE700F6EFE700D8B29B00FF00FF00FF00FF00FF00
+                FF00FF00FF00FF00FF00FF00FF00CFB0AA00EAD8CB00F9EADA00FBE7D300FBE4
+                CD00FBE3C900FBE3C900FBDFBF00F7E9D900D8B29B00FF00FF00FF00FF00C2A5
+                A200C2979000C2979000C2979000BC918800E7DBD400F9DFC400FBD7B300FBD7
+                B300FBD7B300FBD7B300FDD7B200F7E7D500D9B39C00FF00FF00FF00FF00C2A5
+                A200F8E6DD00F8E6DD00F8E6DD00D6B0A100EDDFD500F9E4CC00FBDFBF00FBDF
+                BF00FBDFBF00FBDFBF00F5DBB800F5E8D700DCB79E00FF00FF00FF00FF00C5A7
+                A200F6EDE200F8E9D800F9E9D700DAB49E00EFE3DB00F9DFC400FBD7B300FBD7
+                B300FBD7B300FBD7B300FBD7B300F7E7D500DDB8A000FF00FF00FF00FF00CDAB
+                A300F8E5D100FED1A500FED1A300E3B28E00F2E9E000FAE8D600FBE3C900FBE3
+                C900FBE3C900FBE3C900FBE3C900F7EBDD00E0BBA300FF00FF00FF00FF00CEAD
+                A700F7EDE300F8E9D800F8E9D800E5BDA200F4ECE400FDE6CF00FEDCBB00FDDB
+                B900FEDAB500FED9B400FED8B200F8E7D500E0BBA300FF00FF00FF00FF00D1B3
+                AD00FAE7D400FED1A500FED1A500EAB99400F8F0E900FFFEFE00FEFEFE00FEFA
+                F900FEF8EF00FEF4EA00FEEFDF00F7D4C900E2A39800FF00FF00FF00FF00DCBB
+                AB00FAF4EF00FEEFE000FEECD900EEC7A800FAF2EA00FDFEFE00FEFEFE00FEFE
+                FD00FEFBF900FEF9F100E5D0C800C48F7700BE8D7F00FF00FF00FF00FF00E3C1
+                AD00FBEDDE00FED1A500FED1A500F2C39800FDF4EA00FDFEFC00FAFBFA00FAF8
+                F800F6F6F600F5F3F100DECCC800D8A58200FF00FF00FF00FF00FF00FF00E9C7
+                B000FCFCFD00FFFEFE00FEFCF800F6DFC900E7C2A800E7C0A600E2B69A00DAA8
+                8B00D7A99000E7C5AF00DEBCAB00FF00FF00FF00FF00FF00FF00FF00FF00ECCB
+                B300FEFDFD00FFFFFE00FEFEFE00FEFCFA00FEF8F100FEF5EA00C89C8E00BF8E
+                8000CDABA300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00F3D3
+                B600FEFEFE00FEFEFE00FDFEFD00FCFCFC00FCFAF700FCF7F000C9957A00E3B5
+                8F00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00F3D3
+                B600E7C4AE00E7C4AE00E6C4AD00E5C2AC00E5C2AC00E5C1A900C4978800FF00
+                FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
+              ParentShowHint = False
+              ShowHint = True
+              OnClick = openLogBtnClick
+            end
+            object collapseBtn: TSpeedButton
+              Left = 0
+              Top = 0
+              Width = 21
+              Height = 23
+              Hint = 'Collapse toolbar'
+              Align = alRight
+              Flat = True
+              Glyph.Data = {
+                EE010000424DEE0100000000000036000000280000000D0000000B0000000100
+                180000000000B801000000000000000000000000000000000000C8D0D4C8D0D4
+                9A775AC8D0D4C8D0D4C8D0D4C8D0D49A775AC8D0D4C8D0D4C8D0D4C8D0D4C8D0
+                D400C8D0D49A775A8C05009A775AC8D0D4C8D0D49A775A8C05009A775AC8D0D4
+                C8D0D4C8D0D4C8D0D400C8D0D4C8D0D49A775A8C0500AC7657C8D0D4C8D0D49A
+                775A8C0500AC7657C8D0D4C8D0D4C8D0D400C8D0D4C8D0D4C8D0D49A775A8C05
+                009A775AC8D0D4C8D0D49A775A8C05009A775AC8D0D4C8D0D400C8D0D4C8D0D4
+                C8D0D4C8D0D49A775A8C05009A775AC8D0D4C8D0D49A775A8C05009A775AC8D0
+                D400C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4B37E5F8C05009A775AC8D0D4C8D0D4
+                B37E5F8C05009A775A00C8D0D4C8D0D4C8D0D4C8D0D49A775A8C0500B17C5CC8
+                D0D4C8D0D49A775A8C0500B17C5CC8D0D400C8D0D4C8D0D4C8D0D4AF795A8C05
+                009A775AC8D0D4C8D0D4AF795A8C05009A775AC8D0D4C8D0D400C8D0D4C8D0D4
+                9A775A8C05009A775AC8D0D4C8D0D49A775A8C05009A775AC8D0D4C8D0D4C8D0
+                D400C8D0D49A775A8C05009A775AC8D0D4C8D0D49A775A8C05009A775AC8D0D4
+                C8D0D4C8D0D4C8D0D400C8D0D4C8D0D49A775AC8D0D4C8D0D4C8D0D4C8D0D49A
+                775AC8D0D4C8D0D4C8D0D4C8D0D4C8D0D400}
+              ParentShowHint = False
+              ShowHint = True
+              OnClick = collapseBtnClick
+            end
+            object Bevel1: TBevel
+              Left = 21
+              Top = 0
+              Width = 2
+              Height = 23
+              Align = alRight
+            end
+            object searchPnl: TPanel
+              Left = 23
+              Top = 0
+              Width = 160
+              Height = 23
+              Align = alRight
+              AutoSize = True
+              BevelOuter = bvNone
+              Padding.Left = 5
+              TabOrder = 0
+              DesignSize = (
+                160
+                23)
+              object logSearchBox: TLabeledEdit
+                Left = 41
+                Top = 1
+                Width = 103
+                Height = 21
+                Hint = 'Wildcards allowed'
+                Anchors = [akTop, akRight]
+                EditLabel.Width = 33
+                EditLabel.Height = 13
+                EditLabel.Caption = 'Search'
+                LabelPosition = lpLeft
+                ParentShowHint = False
+                ShowHint = True
+                TabOrder = 0
+                OnChange = logSearchBoxChange
+                OnKeyPress = logSearchBoxKeyPress
+              end
+              object logUpDown: TUpDown
+                Left = 144
+                Top = 0
+                Width = 16
+                Height = 24
+                Anchors = [akTop, akRight]
+                Min = -30000
+                Max = 30000
+                TabOrder = 1
+                OnClick = logUpDownClick
+              end
+            end
+          end
+        end
+      end
+    end
+    object filesPnl: TPanel
+      Left = 0
+      Top = 0
+      Width = 313
+      Height = 197
+      Align = alLeft
+      BevelOuter = bvNone
+      Caption = 'filesPnl'
+      TabOrder = 0
+      object filesBox: TTreeView
+        Left = 0
+        Top = 23
+        Width = 313
+        Height = 174
+        Align = alClient
+        BevelInner = bvLowered
+        BevelOuter = bvSpace
+        Constraints.MinWidth = 50
+        DragMode = dmAutomatic
+        HotTrack = True
+        Images = images
+        Indent = 25
+        MultiSelect = True
+        MultiSelectStyle = [msControlSelect, msShiftSelect]
+        ParentShowHint = False
+        PopupMenu = filemenu
+        ShowHint = True
+        ShowRoot = False
+        SortType = stBoth
+        StateImages = images
+        TabOrder = 0
+        OnAddition = filesBoxAddition
+        OnChange = filesBoxChange
+        OnCollapsing = filesBoxCollapsing
+        OnCompare = filesBoxCompare
+        OnCustomDrawItem = filesBoxCustomDrawItem
+        OnDblClick = filesBoxDblClick
+        OnDeletion = filesBoxDeletion
+        OnDragDrop = filesBoxDragDrop
+        OnDragOver = filesBoxDragOver
+        OnEdited = filesBoxEdited
+        OnEditing = filesBoxEditing
+        OnEndDrag = filesBoxEndDrag
+        OnEnter = filesBoxEnter
+        OnExit = filesBoxExit
+        OnMouseDown = filesBoxMouseDown
+        OnMouseEnter = filesBoxMouseEnter
+        OnMouseLeave = filesBoxMouseLeave
+        OnMouseUp = filesBoxMouseUp
+      end
+      object filesTitle: TPanel
+        Left = 0
+        Top = 0
+        Width = 313
+        Height = 23
+        Align = alTop
+        BevelOuter = bvNone
+        Caption = 'Virtual File System'
+        TabOrder = 1
+      end
+    end
+    object connPnl: TPanel
+      Left = 0
+      Top = 202
+      Width = 783
+      Height = 106
+      Align = alBottom
+      BevelOuter = bvNone
+      TabOrder = 2
+      object sbar: TStatusBar
+        Left = 0
+        Top = 87
+        Width = 783
+        Height = 19
+        Panels = <
+          item
+            Width = 2000
+          end>
+        OnDblClick = sbarDblClick
+        OnMouseDown = sbarMouseDown
+      end
+      object connBox: TListView
+        Left = 0
+        Top = 0
+        Width = 783
+        Height = 87
+        Align = alClient
+        Columns = <
+          item
+            Caption = 'IP address'
+            ImageIndex = 0
+            Width = 206
+          end
+          item
+            Alignment = taCenter
+            Caption = 'File'
+            ImageIndex = 7
+            Width = 206
+          end
+          item
+            Alignment = taCenter
+            Caption = 'Status'
+            Width = 206
+          end
+          item
+            Alignment = taCenter
+            Caption = 'Speed'
+          end
+          item
+            Alignment = taCenter
+            Caption = 'Time left'
+          end
+          item
+            Alignment = taCenter
+            AutoSize = True
+            Caption = 'Progress'
+          end>
+        ColumnClick = False
+        FullDrag = True
+        GridLines = True
+        OwnerData = True
+        ReadOnly = True
+        RowSelect = True
+        ParentShowHint = False
+        PopupMenu = connmenu
+        ShowHint = True
+        SmallImages = images
+        TabOrder = 1
+        ViewStyle = vsReport
+        OnAdvancedCustomDrawSubItem = connBoxAdvancedCustomDrawSubItem
+        OnData = connBoxData
+      end
+    end
+  end
+  object filemenu: TPopupMenu
+    Images = images
+    OwnerDraw = True
+    OnPopup = filemenuPopup
+    Left = 128
+    Top = 168
+    object Addfiles1: TMenuItem
+      Caption = 'Add files...'
+      OnClick = Addfiles1Click
+    end
+    object Addfolder1: TMenuItem
+      Caption = 'Add folder from disk...'
+      ImageIndex = 8
+      OnClick = Addfolder1Click
+    end
+    object newfolder1: TMenuItem
+      Caption = 'New empty folder'
+      ShortCut = 45
+      OnClick = newfolder1Click
+    end
+    object Newlink1: TMenuItem
+      Caption = 'New link'
+      ImageIndex = 4
+      OnClick = Newlink1Click
+    end
+    object Remove1: TMenuItem
+      Caption = 'Remove'
+      ImageIndex = 21
+      ShortCut = 46
+      OnClick = Remove1Click
+    end
+    object Rename1: TMenuItem
+      Caption = 'Rename'
+      ShortCut = 113
+      OnClick = Rename1Click
+    end
+    object Paste1: TMenuItem
+      Caption = 'Paste'
+      ImageIndex = 17
+      ShortCut = 16470
+      OnClick = Paste1Click
+    end
+    object Editresource1: TMenuItem
+      Caption = 'Edit resource...'
+      OnClick = Editresource1Click
+    end
+    object N7: TMenuItem
+      Caption = '-'
+    end
+    object CopyURL1: TMenuItem
+      Caption = 'Copy URL address'
+      Default = True
+      Hint = 'just double click!'
+      ImageIndex = 16
+      ShortCut = 16451
+      OnClick = CopyURL1Click
+    end
+    object CopyURLwithpassword1: TMenuItem
+      AutoHotkeys = maManual
+      Caption = 'Copy URL with password'
+    end
+    object Browseit1: TMenuItem
+      Caption = 'Browse it'
+      ImageIndex = 26
+      ShortCut = 120
+      OnClick = Browseit1Click
+    end
+    object SetURL1: TMenuItem
+      Caption = 'Set URL...'
+      ImageIndex = 4
+      OnClick = SetURL1Click
+    end
+    object Openit1: TMenuItem
+      Caption = 'Open it'
+      ShortCut = 119
+      OnClick = Openit1Click
+    end
+    object Flagasnew1: TMenuItem
+      Caption = 'Flag as new'
+      OnClick = Flagasnew1Click
+    end
+    object Resetnewflag1: TMenuItem
+      Caption = 'Reset <new> flag'
+      OnClick = Resetnewflag1Click
+    end
+    object Setuserpass1: TMenuItem
+      Caption = 'Set user/pass...'
+      ImageIndex = 12
+      OnClick = Setuserpass1Click
+    end
+    object Resetuserpass1: TMenuItem
+      Caption = 'Reset user/pass'
+      OnClick = Resetuserpass1Click
+    end
+    object N11: TMenuItem
+      Caption = '-'
+    end
+    object CopyURLwithdifferentaddress1: TMenuItem
+      Caption = 'Copy URL with different host address'
+    end
+    object CopyURLwithfingerprint1: TMenuItem
+      Caption = 'Copy URL with fingerprint'
+      OnClick = CopyURLwithfingerprint1Click
+    end
+    object Purge1: TMenuItem
+      Caption = 'Purge...'
+      OnClick = Purge1Click
+    end
+    object Switchtovirtual1: TMenuItem
+      Caption = 'Change to virtual-folder'
+      OnClick = Switchtovirtual1Click
+    end
+    object Switchtorealfolder1: TMenuItem
+      Caption = 'Change to real-folder'
+      OnClick = Switchtorealfolder1Click
+    end
+    object Bindroottorealfolder1: TMenuItem
+      Caption = 'Bind root to real-folder'
+      OnClick = Bindroottorealfolder1Click
+    end
+    object Unbindroot1: TMenuItem
+      Caption = 'Unbind root'
+      OnClick = Unbindroot1Click
+    end
+    object Defaultpointtoaddfiles1: TMenuItem
+      Caption = 'Default point to add files'
+      OnClick = Defaultpointtoaddfiles1Click
+    end
+    object N14: TMenuItem
+      Caption = '-'
+    end
+    object Properties1: TMenuItem
+      Caption = 'Properties...'
+      ShortCut = 32781
+      OnClick = Properties1Click
+    end
+  end
+  object images: TImageList
+    DrawingStyle = dsTransparent
+    Left = 208
+    Top = 112
+    Bitmap = {
+      494C010129002C00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      000000000000360000002800000040000000B0000000010020000000000000B0
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000009A9A9A009999
+      9900999999009A9A9A00ABABAB00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000AFAFAF0059595900656565007373
+      7300787878006B6B6B00626262005B5B5B0071717100A6A6A600A9A9A9008A8A
+      8A00828282007F7F7F008D8D8D00C8C8C8000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000ACACAC00676767007B7B7B008787
+      870082828200B1B1B1008383830079797900646464009B9B9B008B8B8B009F9F
+      9F00A7A7A7009E9E9E0091919100777777000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000077777700868686008D8D
+      8D009C9C9C00CECECE0094949400878787006F6F6F00A3A3A300D6D6D600B5B5
+      B500B4B4B400B0B0B0009F9F9F00A5A5A5000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000007F7F7F006464
+      64007272720082828200858585007D7D7D008C8C8C00B1B1B100EDEDED00E5E5
+      E500AEAEAE00B8B8B800A5A5A500000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000ACACAC002B2B2B002626
+      26004D4D4D004E4E4E003F3F3F0068686800A7A7A700A9A9A900B0B0B000A5A5
+      A500979797008787870000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000B1B1B1001B1B1B001A1A1A005A5A
+      5A006B6B6B006B6B6B005F5F5F0054545400C9C9C9009B9B9B00A1A1A100A6A6
+      A600A0A0A0007A7A7A00BDBDBD00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000006565650020202000393939007F7F
+      7F0085858500858585007E7E7E0054545400B0B0B000A9A9A900B6B6B600B6B6
+      B600B6B6B600AAAAAA008B8B8B00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000059595900313131003F3F3F009494
+      9400A5A5A500A5A5A50099999900626262009F9F9F00B9B9B900C0C0C000C1C1
+      C100BFBFBF00BBBBBB008A8A8A00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000008F8F8F0040404000414141006060
+      600082828200979797009C9C9C0079797900CACACA00C3C3C300C4C4C400C6C6
+      C600C5C5C500C2C2C2009B9B9B00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000058585800585858007474
+      74006E6E6E004C4C4C0035353500A0A0A00000000000A3A3A3009F9F9F00A8A8
+      A800ACACAC00A7A7A70089898900000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000006E6E6E008C8C
+      8C008F8F8F00767676007C7C7C000000000000000000ACACAC00AFAFAF00C4C4
+      C400C8C8C8009E9E9E00ADADAD00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000C7C7C700C4C4
+      C400B7B7B700C4C4C40000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000064686A0064686A0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000CECE
+      D600A5A5C60000000000000000000000000000000000CECED600A5A5C6000000
+      0000000000000000000000000000000000000000000000000000808080008080
+      8000808080008080800080808000808080008080800080808000808080008080
+      8000808080008080800000000000000000000000000000000000000000000000
+      0000000000000000000064686A00FFFFFF00B0B0B00031333400000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000CECED6002929
+      73002929730021213900A5A5C600000000009494F70029297300292973002929
+      7300A5A5C600000000000000000000000000000000000000000080808000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF008080800000000000000000000000000000000000000000000000
+      0000000000000000000064686A00FFFFFF00B0B0B0007D7D7D00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000008E8ABF002C2AB6002A26B400817DB700000000000000
+      0000000000000000000000000000000000000000000000000000292973000000
+      F7000000F7001818BD0021213900A5A5C6002929FF000000F7000000F7002929
+      730029297300CECED6000000000000000000000000000000000080808000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF008080800000000000000000000000000000000000000000000000
+      0000000000000000000064686A00FFFFFF00B0B0B0007D7D7D00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000706EC0000809CE000105E2000203E4000607CE00645DB2000000
+      00000000000000000000000000000000000000000000CECEF7000808FF000000
+      F7000000F7000000F7001818BD00212139001818BD000000F7001818BD000000
+      F70029297300292973000000000000000000000000000000000080808000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF008080800000000000000000000000000000000000000000000000
+      0000000000000000000064686A00FFFFFF00B0B0B0007D7D7D00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00006A67C2000607DB000004F2000204F3000305F2000203F2000505D8005854
+      AD0000000000000000000000000000000000000000009494F7000000F7000000
+      F70021213900CECEF7000808FF000000F7000000F7000000F70021213900CECE
+      F7002929FF001818BD000000000000000000000000000000000080808000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF008080800000000000000000000000000000000000000000000000
+      0000000000000000000064686A00FFFFFF00B0B0B0007D7D7D00000000000000
+      000000000000000000000000000000000000000000000000000000000000827B
+      C7000507E1000105FB000005FD000105FD000006FC000006FB000204FC000207
+      DF006865AD00000000000000000000000000000000009494F7000000F7000000
+      F70021213900F7F7F700CECEF7002929FF000000F7000000F70021213900A5A5
+      C60000000000000000000000000000000000000000000000000080808000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF008080800000000000000000000000000000000000000000000000
+      00000000000064686A00FFFFFF00FFFFFF00FFFFFF00DEDEDE00232425000000
+      0000000000000000000000000000000000000000000000000000A19DD2001213
+      D8001016FC001216FD001216FC001216FC001216FD001315FD001217FC001314
+      FE000D11D5008D88BA00000000000000000000000000CECEF7002929FF000000
+      F70021213900CECED60000000000CECEF7002929FF000000F7000000F7002121
+      390000000000000000000000000000000000000000000000000080808000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF008080800000000000000000000000000000000000000000000000
+      000064686A00DEDEDE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00DEDEDE006468
+      6A000000000000000000000000000000000000000000D0CDE1002B2BCB002E2D
+      FB002E2FFB00312FFE003030FE003030FE002F30FE002E2FFD002C30FE002F30
+      FD002C2FFB002121C300C7C6D7000000000000000000000000009494F7000000
+      F7001818BD002121390000000000000000009494F7002929FF000000F7002929
+      7300A5A5C600000000000000000000000000000000000000000080808000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF008080800000000000000000000000000000000000000000000000
+      000064686A00DEDEDE00FFFFFF00DEDEDE00DEDEDE00FFFFFF00FFFFFF006468
+      6A0000000000000000000000000000000000000000006967C9003C3EF0004748
+      FB004748FD004849FD004749FE004948FD004848FD004949FE004949FE004849
+      FE004849FD003F3EF0005757B500000000000000000000000000CECEF7002929
+      FF000000F70021213900A5A5C60000000000000000002929FF000000F7001818
+      BD0021213900CECED6000000000000000000000000000000000080808000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF008080800000000000000000000000000000000000000000000000
+      000064686A00DEDEDE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006468
+      6A0000000000000000000000000000000000D3D2E4003A3AD4006163FC006162
+      FE006062FD006162FD006263FC006162FD006062FE006362FE006262FE006262
+      FE006363FD006263FC003231CC00D3D2E4000000000000000000000000009494
+      F7000000F7000000F70021213900A5A5C60000000000CECED6000808FF000000
+      F7001818BD00292973000000000000000000000000000000000080808000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF008080800000000000000000000000000000000000000000000000
+      000064686A00B0B0B000B0B0B000B0B0B000B0B0B000B0B0B000B0B0B0006468
+      6A0000000000000000000000000000000000B5B3E8005153EC00797BFD007779
+      FD007778FE007479FE007979FD00797BFD007C7CFD00787AFE00787BFE00787B
+      FE00797AFD007A7AFB005254EB00A4A4DE000000000000000000000000000000
+      00002929FF000000F7001818BD0021213900A5A5C600E7E7E7000808FF000000
+      F7001818BD0021213900CECED60000000000000000000000000080808000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000006468
+      6A00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00CCCC
+      CC0064686A00000000000000000000000000A8ABEB006A6CF3009190FE009091
+      FE008F91FD009092FD009090FC006E72F3007071F6008F91FE008E91FD008F91
+      FE008F93FD008F92FD006D6DF3009D9FEC000000000000000000000000000000
+      0000000000002929FF000000F7001818BD00292973001818BD000808FF002929
+      FF000000F7001818BD00CECED60000000000000000000000000080808000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0C0
+      C000FFFFFF008080800000000000000000000000000000000000000000000000
+      000064686A0064686A0000ACDC0064686A003133340000ACDC0064686A006468
+      6A0000000000000000000000000000000000C7C8EF006266F300AAAAFD00A9A9
+      FD00A6A9FC00A9A8FC00A9ACFB005355F2005254F000AAABFB00A7A8FB00A7A7
+      FD00AAA8FC00A8AAFB006263F300C7C6F3000000000000000000000000000000
+      000000000000000000009494F7002929FF000000F7000000F7009494F700CECE
+      F7002929FF00A5A5C6000000000000000000000000000000000080808000FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00C0C0
+      C000808080000000000000000000000000000000000000000000000000000000
+      00000000000064686A002FD2FF0064686A00313334002FD2FF0064686A004649
+      4A0000000000000000000000000000000000000000007476F700A0A0FD00BEBF
+      FD00BDC0FC00BFC0FC009697FD007071EE007674F0009897FC00BFC0FB00BDBF
+      FC00BDC0FC00A19FFC007170F600000000000000000000000000000000000000
+      0000000000000000000000000000CECEF7009494F7009494F700000000000000
+      0000CECEF7000000000000000000000000000000000000000000808080008080
+      8000808080008080800080808000808080008080800080808000808080008080
+      8000000000000000000000000000000000000000000000000000000000000000
+      00000000000064686A002FD2FF0064686A0064686A002FD2FF007D7D7D000000
+      00000000000000000000000000000000000000000000000000006F6FF2007878
+      FA008D8BFD007675FB007878F20000000000000000008688F6007676FA008A8A
+      FC007878FA007476F70000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000064686A0064686A0064686A0064686A0064686A0064686A000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000FEFE
+      FEFFEDE4DBFFBE9D7DFF9A6734FF996633FF996633FF9A6734FFBE9D7DFFEDE4
+      DBFFFEFEFEFF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000008484840084848400848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400848484008484840000000000000000008484840084848400848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400848484008484840000000000000000000000000000000000FCFBFAFFB793
+      6FFF9C6B39FFC3A586FFE3D4C6FFF1EAE3FFF1EAE3FFE3D4C6FFC3A586FF9C6B
+      39FFB7936FFFFCFBFAFF00000000000000000000000000000000434353005C5C
+      69005E5E6C005757650057576B00000000000000000000000000000000000000
+      00000000000000000000000000000000000084848400C6C6C600FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00C6C6C60084848400848484000000000084848400C6C6C600FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00C6C6C60084848400848484000000000000000000FCFBFAFFA6794CFFB089
+      61FFF3EDE7FFFFFFFFFFFFFFFFFFF5F5FBFFF5F5FBFFFFFFFFFFFFFFFFFFF3ED
+      E7FFB08961FFA6794CFFFCFBFAFF000000006161610048484F0049494B006161
+      61004C4C4C003E3E3E0071717100626263003C3C55003D3D40003D3D40003D3D
+      40003D3D40003D3D40003D3D40006161610084848400C6C6C600848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400C6C6C60084848400848484000000000084848400C6C6C600848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400C6C6C600848484008484840000000000FEFEFEFFB7936FFFB08961FFFDFB
+      FAFFFFFFFFFFFFFFFFFF5050B9FF000099FF000099FF5050B9FFFFFFFFFFFFFF
+      FFFFFDFBFAFFB08961FFB7936FFFFEFEFEFF6161610048484F0048484A005454
+      54003939390064646400B1B1B1005E5E5E00424242003D3D4000646466005858
+      58004E4E4E005E5E5E00565656002A2A3A0084848400C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C60084848400848484000000000084848400C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
+      C600C6C6C600848484008484840000000000EDE4DBFF9D6B3AFFF4EEE8FFFFFF
+      FFFFFFFFFFFFE4E4F5FF01019CFF1C1CDEFF1212D7FF00009CFFE3E3F4FFFFFF
+      FFFFFFFFFFFFF4EEE8FF9D6B3AFFEDE4DBFF0000000048484F0048484F005858
+      580053525100A8A7A500CAC9C8004A4A4B00363636003D3D3D00797979004A4A
+      4A0079797900353535004C4C4C002B2B3A0084848400C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6000084
+      00000084000084848400848484000000000084848400C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C6000084
+      000000840000848484008484840000000000BE9D7CFFC3A587FFFFFFFFFFFFFF
+      FFFFE3E3F4FFC3C3E7FF02029EFF1D1DE0FF1D1DE0FF01019DFFC3C3E7FFE3E3
+      F4FFFFFFFFFFFFFFFFFFC3A587FFBE9D7CFF00000000000000003D3D40005858
+      6A0076777F00B7BAC500BABABB0052514D003434330044444400BABABB004D4D
+      4D00BABABB0040414100393939002929420084848400FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0084848400848484000000000084848400FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF008484840084848400000000009A6734FFE3D4C6FFFFFFFFFF5151
+      BAFF02029DFF03039EFF0505A3FF2626E6FF1D1DE0FF0303A2FF01019DFF0000
+      9CFF5050B9FFFFFFFFFFE3D4C6FF9A6734FF00000000A2ABB100382B27001618
+      45000E2A8E00132C8E003A2D67006F6B5A00000000005B596200BABABB004E57
+      5C00BABABB00696D720032335900000000000000000084848400C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C600000084000000FF0000000000C6C6C600C6C6
+      C600C6C6C600C6C6C60084848400000000000000000084848400C6C6C600C6C6
+      C600C6C6C600C6C6C600C6C6C600C6C6C60000000000C6C6C600C6C6C600C6C6
+      C600C6C6C600C6C6C6008484840000000000996633FFF1E9E2FFF5F5FBFF0000
+      99FF4040F6FF3939F3FF3030ECFF3030ECFF2626E6FF1D1DE0FF1D1DE0FF1212
+      D7FF000099FFF5F5FBFFF1E9E2FF996633FFABB0B4001B1B1C000C152A00163F
+      98001A4CB1001A4CB1001640A200424D6E00C2CBC2005499AE00288DE2002B90
+      ED00278CE1002B739D00ADBCC400000000000000000000000000848484008484
+      84008484840084848400848484000000FF000000FF0000000000848484008484
+      8400848484008484840084848400000000000000000000000000848484008484
+      84008484840084848400848484000000FF000000FF0000000000848484008484
+      840084848400848484008484840000000000996633FFF1E9E2FFF5F5FBFF0000
+      99FF4949FCFF4343F9FF3939F3FF3030ECFF3030ECFF2626E6FF1D1DE0FF1C1C
+      DEFF000099FFF5F5FBFFF1E9E2FF996633FF5A646B0020202000172F56002163
+      C8002469CF002469CF002162C70028457E00A3AFB5003A98E7003CA0FF003CA0
+      FF003CA0FF003496EF005C86A300000000000000000000000000000000000000
+      0000000000000000000000000000000084000000FF0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000084000000FF000000FF000000FF00000000000000
+      0000000000000000000000000000000000009A6734FFE3D4C6FFFFFFFFFF5151
+      BAFF03039EFF0404A0FF0808A5FF3939F3FF3030ECFF0505A3FF02029EFF0101
+      9CFF5050B9FFFFFFFFFFE3D4C6FF9A6734FF595959003131310024395600297A
+      DE002F8BF100308CF1002A7FE300255290007C9CAF0045A7FA002B739D004BB0
+      FF002B739D0043A8FD003780B500000000000000000000000000000000000000
+      00000000000000000000000000000000FF000000FF0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000084000000FF00000084000000FF0000000000000000000000
+      000000000000000000000000000000000000BE9D7CFFC3A587FFFFFFFFFFFFFF
+      FFFFE3E3F4FFC3C3E7FF0404A0FF4343F9FF3939F3FF03039EFFC3C3E7FFE3E3
+      F4FFFFFFFFFFFFFFFFFFC3A587FFBE9D7CFF8F8F8F00404040003D4046002651
+      8C002668C8002C7EE0002D84E50049709B00AAC8D90026518C000C152A002651
+      8C000C152A0026518C00338FCB00000000000000000000000000000000000000
+      000000000000000084000000FF00000084000000FF0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000FF000000FF0000000000000000000000
+      000000000000000000000000000000000000EDE4DBFF9D6B3AFFF4EEE8FFFFFF
+      FFFFFFFFFFFFE4E4F5FF03039EFF4949FCFF4040F6FF02029DFFE3E3F4FFFFFF
+      FFFFFFFFFFFFF4EEE8FF9D6B3AFFEDE4DBFF0000000058585900575858007474
+      74006B6C74003B446700232E4D009EA0A200000000003C99CF00797979007979
+      790079797900797979003381AE00000000000000000000000000000000000000
+      00000000000000000000000084000000FF000000FF000000FF00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000084000000FF0000000000000000000000
+      000000000000000000000000000000000000FEFEFEFFB7936FFFB08961FFFDFB
+      FAFFFFFFFFFFFFFFFFFF5050B9FF000099FF000099FF5050B9FFFFFFFFFFFFFF
+      FFFFFDFBFAFFB08961FFB7936FFFFEFEFEFF00000000000000006E6E6E008C8C
+      8C008F8F8F00767676007C7C7C00000000005B5962003D3D3D003D3D3D003D3D
+      3D003D3D3D003D3D3D003D3D3D005B5962000000000000000000000000000000
+      00000000000000000000000000000000FF000000FF0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000FF000000FF0000000000000000000000
+      00000000000000000000000000000000000000000000FCFBFAFFA6794CFFB089
+      61FFF3EDE7FFFFFFFFFFFFFFFFFFF5F5FBFFF5F5FBFFFFFFFFFFFFFFFFFFF3ED
+      E7FFB08961FFA6794CFFFCFBFAFF000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000005B5962003D3D
+      3D003D3D3D003D3D3D0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000084000000FF0000000000000000000000
+      0000000000000000000000000000000000000000000000000000FCFBFAFFB793
+      6FFF9C6B39FFC3A586FFE3D4C6FFF1EAE3FFF1EAE3FFE3D4C6FFC3A586FF9C6B
+      39FFB7936FFFFCFBFAFF00000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000797979005B59
+      62005B5962007979790000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000FEFE
+      FEFFEDE4DBFFBE9D7DFF9A6734FF996633FF996633FF9A6734FFBE9D7DFFEDE4
+      DBFFFEFEFEFF0000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000ABABAB007171
+      71007777770078787800787878007D7D7D00727272007D7D7D0082828200B1B1
+      B100000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000757575008A8A
+      8A009C9C9C00A4A4A400A9A9A900B5B5B50088888800868686008B8B8B008686
+      86007E7E7E008C8C8C0000000000000000000000000000000000B5959F00B394
+      9F00B3949F00B395A000B6A6B600000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000828282009797
+      9700ABABAB00B1B1B100BEBEBE00A1A1A100DDDDDD00B4B4B400A6A6A600A4A4
+      A400959595007C7C7C000000000000000000DEAE9D00CB4D2900E2563D00F264
+      5000F6695600D9624000D7563700BE523800907165008BAA9D007FB195006595
+      6A005D8D5D005B8A5B006A957900B2C8CC0000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000B0B0B0009898
+      9800B1B1B100BDBDBD00B0B0B000AEAEAE00FFFFFF00D1D1D100A7A7A700B1B1
+      B10098989800949494000000000000000000DFAB9800E4583C00FA6C5800FC7C
+      6400EC7B5900EBB58300E77E5900FB6A5700C85D360052B04A00499D42004DB4
+      4B004EBD4E003EB53E002AA72A004585470000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+      0000000000000000000000000000ABABAB008A8A8A00A3A3A300000000000000
+      0000000000000000000000000000000000000000000000000000000000009A9A
+      9A00B2B2B200B9B9B900A6A6A600F0F0F000FFFFFF00EAEAEA00A1A1A100BABA
+      BA0095959500CBCBCB00000000000000000000000000CD6F6400F97B6500F587
+      6600E89D6E00FDD4A100E7946700FC7C6400D06A42005FB75700C6DFB6008BC4
+      830068C968005BC65B003EB63E0072B1840000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+      00000000000093939300676767008E848400524D4D004A4A4A005D5D5D008989
+      8900000000000000000000000000000000000000000000000000000000000000
+      0000ACACAC0095959500BBBBBB00C9C9C900D0D0D000D5D5D500A5A5A5009A9A
+      9A00BEBEBE000000000000000000000000000000000000000000DB795E00B25D
+      5200916A7B00A67D8200D7825F00E07853009398500075C37200EAF0E200E1E9
+      D70076BF72006DCD6C005EB764000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000008181
+      8100757575008D8D8D00A5A5A500757070003F3C3C00494444005A5252004E4C
+      4C00565656007272720000000000000000000000000000000000000000000000
+      0000C8C8C80088888800B1B1B100ABABAB00ABABAB00A5A5A500A1A1A1000000
+      00000000000000000000000000000000000000000000A2ABB100382B27001618
+      45000E2A8E00132C8E003A2D67006F6B5A006BB9690073B9700090B1B50067A0
+      C100619B95004A965300000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000000000008989890089898900C9C9
+      C900A3A3A30080808000828282007D7C7C004E4E4E00717171007D7D7D00746E
+      6E007465650056515100525252007B7B7B000000000000000000000000000000
+      0000C0C0C000BCBCBC00C4C4C400C4C4C400C4C4C400C4C4C400C7C7C7000000
+      000000000000000000000000000000000000ABB0B4001B1B1C000C152A00163F
+      98001A4CB1001A4CB1001640A200424D6E00C2CBC2005499AE00288DE2002B90
+      ED00278CE1002B739D00ADBCC4000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000A6A6A600AEAEAE00989898008282
+      8200A4A4A400B9B9B900D1D1D1008E8E8E00797979006C6C6C00818181006262
+      620034343400B79898008A7777006B6B6B000000000000000000000000000000
+      0000AFAFAF00CBCBCB00CECECE00D0D0D000D0D0D000CECECE00CBCBCB000000
+      0000000000000000000000000000000000005A646B0020202000172F56002163
+      C8002469CF002469CF002162C70028457E00A3AFB5003A98E7003CA0FF003CA0
+      FF003CA0FF003496EF005C86A3000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000A0A0A0009C9C9C00B5B5B500C7C7
+      C700E1E1E100E6E6E600D0D0D000D8D8D800D1D1D100C3C3C3009A9999007D78
+      78004643430093818100847676007D7D7D00000000000000000000000000A0A0
+      A000CBCBCB00D3D3D300D4D4D400D4D4D400D4D4D400D4D4D400D0D0D000EFEF
+      EF0000000000000000000000000000000000595959003131310024395600297A
+      DE002F8BF100308CF1002A7FE300255290007C9CAF0045A7FA004AAFFF004BB0
+      FF0048ADFF0043A8FD003780B500000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000BABABA00D3D3D300DEDEDE00C7C7
+      C700E1E1E100DFDFDF00F2F2F200FCFCFC00ECECEC00DFDFDF00F7F7F700EEEA
+      EA00DECCCC008F8A8A008D89890000000000000000000000000000000000AAAA
+      AA00D5D5D500DADADA00DDDDDD00DDDDDD00DDDDDD00DDDDDD00D8D8D800F1F1
+      F100000000000000000000000000000000008F8F8F00404040003D4046002651
+      8C002668C8002C7EE0002D84E50049709B00AAC8D90052B5FB0052B7FB0054B9
+      FD0052B7FF004DB2FE00338FCB000000000000000000C0C0C000000000000000
+      0000C0C0C00000000000C0C0C00000000000000000000000000000000000C0C0
+      C000C0C0C000C0C0C00080808000000000000000000000000000BBBBBB007979
+      79006C6C6C00B8B8B800F2F2F200FCFCFC00ECECEC00DFDFDF00F7F7F700CACA
+      CA00C1C1C100CBCBCB000000000000000000000000000000000000000000AAAA
+      AA00D7D7D700DDDDDD00E0E0E000E0E0E000DDDDDD00DFDFDF00DADADA00F2F2
+      F200000000000000000000000000000000000000000058585900575858007474
+      74006B6C74003B446700232E4D009EA0A200000000003C99CF003A96CB00419E
+      D6003D9EE2003899DC003381AE000000000000000000C0C0C000000000000000
+      0000C0C0C00000000000C0C0C000000000000000000000000000000000000000
+      00000000000000000000C0C0C000000000000000000000000000000000000000
+      0000DBDBDB00C8C8C800D5D5D500E6E6E600CDCDCD00D4D4D400D4D4D4000000
+      000000000000000000000000000000000000000000000000000000000000A0A0
+      A000AFAFAF00C0C0C000C2C2C200BDBDBD00B5B5B500B4B4B400B8B8B800EDED
+      ED000000000000000000000000000000000000000000000000006E6E6E008C8C
+      8C008F8F8F00767676007C7C7C00000000000000000069A7C9005BA8D40083BF
+      E30090C4E2004997C1007EAAC1000000000000000000C0C0C000C0C0C000C0C0
+      C000C0C0C00000000000C0C0C000C0C0C000C0C0C00080808000000000008080
+      8000C0C0C000C0C0C00080808000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000B5B5
+      B5009E9E9E00C2C2C200D8D8D800DADADA00CACACA00BCBCBC00A2A2A2000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000099C4DB008FC1
+      DC0073B2D40095C1D900000000000000000000000000C0C0C000000000000000
+      0000C0C0C00000000000C0C0C00000000000000000000000000000000000C0C0
+      C000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000B7B7B700BFBFBF00E0E0E000E5E5E500DCDCDC00BABABA00E7E7E7000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000C0C0C000000000000000
+      0000C0C0C00000000000C0C0C000C0C0C000C0C0C000C0C0C000000000008080
+      8000C0C0C000C0C0C000C0C0C000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000C3C3C300C8C8C800E2E2E20000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000080000000800000008000000080000000800000008000000080000000
+      8000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000007A9D7A002A73
+      29002B7B2B002C7D2C002C7D2C0032803200277527003B7A3B00487B47007BA7
+      7B000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000000000000
+      80000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
+      FF00000080000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000002A782A00299E
+      28003AB03A0044B744004ABB4A005AC45A0032933200338F33002A9E2900239A
+      2300288A28004B894B00000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000000080000000
+      FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
+      FF000000FF000000800000000000000000000000000000000000000000000000
+      0000009C31000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000003984390034AC
+      34004EBC4E0055C0550065CB650043B34200B1D0A70074B46E0049B7490043B7
+      430031AB3100347E3200000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF000000000000000000000080000000FF000000
+      FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
+      FF000000FF000000FF00000080000000000000000000000000000063310063CE
+      3100000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000075A9750036AC
+      360055C0550064CA640058BD570068B06600FAF9ED009BCA930049B8480055C0
+      550034AD34004D954D00000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000000080000000FF000000FF000000
+      FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
+      FF000000FF000000FF000000FF000000800000000000000000000063310063FF
+      3100000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000000000047A3
+      470058C0580060C7600056AE5400CADEC100F5F6E900C6D5C00048AF480061C8
+      61003BA43B00A1B8A100000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF000000000000008000FFFFFF00FFFFFF00C0C0
+      C0000000FF00C0C0C000C0C0C0000000FF00C0C0C000FFFFFF00C0C0C0000000
+      FF00FFFFFF000000FF000000FF000000800000000000000000000063310063FF
+      3100000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000066AD6500439B470065AD98007BAEBB0089B5C000A4C1AF004CB24C003CAB
+      3C007CBC7B0000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000000080000000FF000000FF00FFFF
+      FF000000FF00C0C0C000C0C0C0000000FF00FFFFFF000000FF00FFFFFF000000
+      FF00FFFFFF000000FF000000FF00000080000000000000000000006331009CFF
+      CE00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000098AEAE001F6C86002988D3001E82CF002183CE002F84B200629572000000
+      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0000000000000080000000FF000000FF00FFFF
+      FF000000FF00C0C0C000C0C0C0000000FF00FFFFFF000000FF00FFFFFF000000
+      FF00FFFFFF000000FF000000FF0000008000000000000000000000633100FFFF
+      FF0063CE31000000000000000000000000000000000000000000009C31000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000699EC5002B8FEB002F95F7002F95F7002F95F7002F95F70053A0DE000000
+      00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF000000000000008000C0C0C000FFFFFF00C0C0
+      C0000000FF00C0C0C000C0C0C0000000FF00FFFFFF000000FF00FFFFFF000000
+      FF00FFFFFF00FFFFFF00C0C0C000000080000000000000000000000000000063
+      31009CFFCE0063CE31000000000000000000000000000000000063CE3100009C
+      3100000000000000000000000000000000000000000000000000000000000000
+      00003086CF00389DFE003BA0FF003EA3FF003EA3FF003BA0FF00429FF4000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000008000FFFFFF000000FF000000
+      FF000000FF00C0C0C000C0C0C0000000FF00FFFFFF000000FF00FFFFFF000000
+      FF00FFFFFF000000FF00FFFFFF00000080000000000000000000000000000063
+      3100FFFFFF009CFFCE0063FF3100009C3100009C310063CE310063CE310063CE
+      3100009C3100000000000000000000000000000000000000000000000000487D
+      A500399EF90043A8FF0044A9FF0044A9FF0044A9FF0044A9FF0043A6F8009FCD
+      EF00000000000000000000000000000000000000000000FFFF00000000000000
+      000000FFFF000000000000FFFF000000000000000000000000000000000000FF
+      FF0000FFFF0000FFFF00008080000000000000008000C0C0C000FFFFFF00FFFF
+      FF00C0C0C000FFFFFF00FFFFFF00C0C0C000C0C0C000FFFFFF00C0C0C0000000
+      FF00FFFFFF00FFFFFF00C0C0C000000080000000000000000000000000000000
+      000000633100FFFFFF00FFFFFF009CFFCE0063FF310063FF310063FF310063FF
+      310063CE3100009C310000000000000000000000000000000000000000003186
+      BE0045AAFF004CB1FF0050B5FF0050B5FF0050B5FF0050B5FF004EB1F900A1D0
+      F000000000000000000000000000000000000000000000FFFF00000000000000
+      000000FFFF000000000000FFFF00000000000000000000000000000000000000
+      0000000000000000000000FFFF0000000000000080000000FF000000FF000000
+      FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
+      FF000000FF000000FF000000FF00000080000000000000000000000000000000
+      0000000000000063310000633100FFFFFF00FFFFFF00FFFFFF009CFFCE0063FF
+      310063FF31000000000000000000000000000000000000000000000000003287
+      BC004BAFF90051B6FF0055BAFF0058BCFB0056BAF40057BBF70051B4F800A3D2
+      F000000000000000000000000000000000000000000000FFFF0000FFFF0000FF
+      FF0000FFFF000000000000FFFF0000FFFF0000FFFF0000808000000000000080
+      800000FFFF0000FFFF00008080000000000000000000000080000000FF000000
+      FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
+      FF000000FF000000FF0000008000000000000000000000000000000000000000
+      0000000000000000000000000000006331000063310000633100FFFFFF009CFF
+      CE00000000000000000000000000000000000000000000000000000000002B7E
+      AF002B8ACA003999E0003A9BE1003B98D7004194C0003490CB003493D100A2CE
+      E600000000000000000000000000000000000000000000FFFF00000000000000
+      000000FFFF000000000000FFFF000000000000000000000000000000000000FF
+      FF00000000000000000000000000000000000000000000000000000080000000
+      FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
+      FF000000FF000000800000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000633100FFFFFF000000
+      0000000000000000000000000000000000000000000000000000000000005794
+      BA002B7BAD0059A1CC0077B7DD0079B9DE0063AAD1004D9BC7002C80B1000000
+      0000000000000000000000000000000000000000000000FFFF00000000000000
+      000000FFFF000000000000FFFF0000FFFF0000FFFF0000FFFF00000000000080
+      800000FFFF0000FFFF0000FFFF00000000000000000000000000000000000000
+      80000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
+      FF00000080000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000633100000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00005295C1004B9DCD0085C0E1008DC5E60080BCDE004F99C200A5C9DC000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000080000000800000008000000080000000800000008000000080000000
+      8000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000633100000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000062A4C60068A8CA008FC3DE0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000260000002600000026000000
+      2600000026000000260000002600000026000000000000000000000026000000
+      26000000260000002600000026000000260084848400FFFFFF00FFFF00008484
+      0000FFFFFF00FFFF000084840000FFFFFF00FFFF000084840000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000FF00000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000026002AECFC00000026000000
+      26002AECFC00000026002AECFC00000026005221000042211000000026002AEC
+      FC002AECFC002AECFC002A7EA8000000260084848400FFFF0000FFFFFF008484
+      0000FFFF0000FFFFFF0084840000FFFF0000FFFFFF0084840000000000000000
+      0000000000000000000000000000000000000000000000008400000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFFFF000000000000000000000026002AECFC00000026000000
+      26002AECFC00000026002AECFC00000026000000260000002600000026000000
+      260000002600000026002AECFC00000026008484840084840000848400008484
+      0000848400008484000084840000FFFFFF00FFFF000084840000000000008484
+      00000000000000000000000000000000000000000000000084000000FF000000
+      8400000000000000000000000000000000000000000000000000000000000000
+      0000000000000000FF000000000000000000000000000000000084848400FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF000000
+      0000FFFFFF00000000000000000000000000000026002AECFC002AECFC002AEC
+      FC002AECFC00000026002AECFC002AECFC002AECFC002A7EA800000026002A7E
+      A8002AECFC002AECFC002A7EA8000000260084848400FFFFFF00FFFF00008484
+      0000FFFFFF00FFFF000084840000000000000000000000000000000000008484
+      000000000000000000000000000000000000000000000000FF0000FFFF000000
+      FF00000084000000000000000000000000000000000000000000000000000000
+      00000000FF00000000000000000000000000000000000000000084848400FFFF
+      FF00840000008400000084000000840000008400000000000000FFFFFF00FFFF
+      FF0000000000000000000000000000000000000026002AECFC00000026000000
+      26002AECFC00000026002AECFC00000026000000260000002600000026002AEC
+      FC000000260000002600000026000000260084848400FFFF0000FFFFFF008484
+      0000FFFF0000FFFFFF0084840000000000008484000084840000000000008484
+      00000000000000000000000000000000000000000000000000000000FF000084
+      84000000FF000000000000000000000000000000000000000000000000000000
+      FF00000000000000000000000000000000000000000000000000848484008400
+      0000840000008400000084000000840000008400000000000000FFFFFF00FFFF
+      FF00FFFFFF00000000000000000000000000000026002AECFC00000026000000
+      26002AECFC00000026002AECFC002AECFC002AECFC002AECFC00000026002A7E
+      A8002AECFC002AECFC002AECFC00000026008484840084840000848400000000
+      000084840000FFFFFF008484000000000000FFFF000084840000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      FF000000FF0000008400000000000000000000000000000000000000FF000000
+      8400000000000000000000000000000000000000000000000000848484008400
+      0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
+      0000000000000000000000000000000000000000260000002600000026000000
+      2600000026000000260000002600000026000000260000002600000026000000
+      26000000260000002600000026000000260084848400FFFFFF00FFFF00008484
+      000000000000000000000000000000000000FFFFFF0084840000000000008484
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000FF000000FF000000840000000000000000000000FF00000084000000
+      0000000000000000000000000000000000000000000000000000848484008400
+      0000840000008400000084000000840000008400000084000000840000008400
+      00000000000000000000000000000000000000000000A55A1000A56310009C5A
+      1000AD631800B56B2100B56B29007B9C9C00846B4200735A3100635A39006363
+      5A0073A5C6006B7B8C00523129000000000084848400FFFF0000FFFFFF008484
+      0000000000008484000084840000848400000000000000000000000000008484
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000FF00000084000000FF0000008400000000000000
+      000000000000000000000000000000000000000000000000000084848400FFFF
+      FF008400000084000000840000008400000084000000FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000A55A1000A55A1000A55A
+      1000A5632100BD6B3100CE7B3900B58C520063A594004A847B004A7B84006B52
+      39004A6B7B005A73940052526B00000000000000000084848400FFFF0000FFFF
+      FF0000000000FFFF0000FFFFFF00848400000000000084840000000000008484
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000FF000000FF000000840000000000000000000000
+      000000000000000000000000000000000000000000000000000084848400FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000A5632100A5521000A54A
+      1000AD5A1800BD6B3100D67B4200A59C73009C845200638473004A848C004273
+      840063737B005A7BA5004A526B00000000000000000000000000848484008484
+      000084840000FFFFFF00FFFFFF00848400000000000084840000848484000000
+      0000848484008484000000000000000000000000000000000000000000000000
+      0000000000000000FF000000FF00000084000000FF0000008400000000000000
+      000000000000000000000000000000000000000000000000000084848400FFFF
+      FF0084000000840000008400000084000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000084735200736342008463
+      4200AD521800BD632900BD734200BD6B31008473520063635A004A6B6300426B
+      7B004A7394005A7394005A5A7300000000000000000000000000000000008484
+      8400848484008484840084848400848484008484840000000000000000008484
+      840084840000FFFF000084840000000000000000000000000000000000000000
+      00000000FF000000FF000000840000000000000000000000FF00000084000000
+      000000000000000000000000000000000000000000000000000084848400FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000636B5A006384
+      8400B5734200DECECE00DECEB500B5734200945221005A6B63004A6363004263
+      63004A637B005263840000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000008484840084840000000000000000
+      000084848400FFFFFF00000000000000000000000000000000000000FF000000
+      FF000000FF0000008400000000000000000000000000000000000000FF000000
+      840000000000000000000000000000000000000000000000000084848400FFFF
+      FF008400000084000000840000008400000084000000FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000848C94007B6B
+      5200D6CECE00F7F7FF00FFFFF700EFDECE00C6947300BD8C630094A5A5004263
+      6300425A5A0073738C0000000000000000000000000000000000000000000000
+      00000000000000000000000000008484840084840000FFFF0000848400000000
+      000000000000848484000000000000000000000000000000FF0000FFFF000000
+      FF00000084000000000000000000000000000000000000000000000000000000
+      FF0000008400000000000000000000000000000000000000000084848400FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000008484
+      840084949C00DEEFFF00F7EFF700F7FFFF00FFFFFF00F7F7F7007B9CAD004A6B
+      7300636363000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000084848400FFFFFF00000000000000
+      00000000000000000000000000000000000000000000848484000000FF000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000FF0000000000000000000000000000000000848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400848484000000000000000000000000000000000000000000000000000000
+      0000000000009C9CA500E7DEDE00FFFFFF00FFF7EF00C6C6BD00637373000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000084848400000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000C2A5A200B9928B00C2958E00C2958E00C2958E00C2958E00C295
+      8E00C2958E00C2958E00B2939200000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000C9A9A300D0AFA900E0B2A800E0B2A800E0B2A800E0B2A800E0B2
+      A800E0B2A800E0B2A800C4958E000000000000000000000000009BD7EB0080CC
+      E60080CCE60098949A00E4D1C900F8E4DA00F8E4DA00F8E4DA00F8E4DA00F8E4
+      DA00F8E4DA00FCDCC700B29392000000000000000000AC6A6600BC5B5A00BC5B
+      5A009F6B6C00B8B8B800D4D3D300E2E1E100DBDADA00D2D1D100BC9C9C00993C
+      3C00A0434400B65A5A00C9A7A700000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000CDABA300E4D4C700F6EFE700F6EFE700F6EFE700F6EFE700F6EF
+      E700F6EFE700F6EFE700D8B29B0000000000000000009BD7EB004EC6E8006CDD
+      F80070E2FA009DA1A200E9D9CE00FBDFC200FED7B000FED4A800FED3A500FED3
+      A500FBDCBB00FBE3C900B79996000000000000000000C36F6B00CB666600CB66
+      66009E656300B17F7800CB959400E8DEDD00F6F6F600ECEBEB00C9A7A7009934
+      3400A43F3F00C5616100BB8788000000000000000000000000006D6DED001B1B
+      C9001B1BC9003838E6007676EE00B2B2F6000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000CFB0AA00EAD8CB00F9EADA00FBE7D300FBE4CD00FBE3C900FBE3
+      C900FBDFBF00F7E9D900D8B29B00000000000000000080CCE60083E8FD0070D2
+      FD0070D2FD00A0A1A900E6DBD300F7E7D500F8E3CD00F8E3CD00F8E3CD00F8E3
+      CD00F7E7D500FBE3C900B79996000000000000000000C36F6B00CB666600CB66
+      6600A96C6B00BF737100BB676500C7B6B300EEEEED00F8F8F700D0AEAE009934
+      3400A43F3F00C5616100BB8788000000000000000000000000006161EB008383
+      EF006565EB004343E7001E1EDE001919BD001A1AC0002828E4006565EB00A4A4
+      F4000000000000000000000000000000000000000000C2A5A200C2979000C297
+      9000C2979000BC918800E7DBD400F9DFC400FBD7B300FBD7B300FBD7B300FBD7
+      B300FDD7B200F7E7D500D9B39C00000000000000000080CCE60089EDFE007BDD
+      FE007BDDFE00A8ABAC00EEE1D600FBE5CE00FEDCBA00FEDCBA00FED7B000FED7
+      B000FBDFC200FBE3C900BA9C99000000000000000000C36F6B00CB666600CB66
+      6600AF757500B36D6900A5575000A6979400C3C3C300E7E7E700D9B8B8009934
+      3400A43F3F00C5616100BB8788000000000000000000000000004848E8009494
+      F2008686F0008686F0008686F0008686F0007C7CEE005A5AEA002C2CE4001B1B
+      CD001919BB009393F100000000000000000000000000C2A5A200F8E6DD00F8E6
+      DD00F8E6DD00D6B0A100EDDFD500F9E4CC00FBDFBF00FBDFBF00FBDFBF00FBDF
+      BF00F5DBB800F5E8D700DCB79E00000000000000000080CCE60091F5FE0081E5
+      FE0081E5FE00B2B3AB00EEE1DA00F7E7D500F8E3CD00F8E3CD00F8E3CD00F8E3
+      CD00F7E7D500FBE3C900BA9C99000000000000000000C36F6B00CB666600CB66
+      6600AF757500D0ABA800CCA5A000C4B9B700BAB6B500CCC9C800CDA8A6009934
+      3400A43F3F00C5616100BB8788000000000000000000000000002727E3009A9A
+      F2008D8DF1008D8DF1008D8DF1008D8DF1008D8DF1008D8DF1008D8DF1008D8D
+      F1003838E6005353E900000000000000000000000000C5A7A200F6EDE200F8E9
+      D800F9E9D700DAB49E00EFE3DB00F9DFC400FBD7B300FBD7B300FBD7B300FBD7
+      B300FBD7B300F7E7D500DDB8A000000000000000000080CCE600A0F6FE0085EA
+      FE0086EBFE00B7B7AC00F2EAE100FCE1C700FED7B000FED7B000FED7B000FED7
+      B000FBDFC200FBE3C900C2A5A2000000000000000000C36F6B00CB666600CB66
+      6600C56C6900BB787000BB787000C56C6900BF676600BF676600BD6E6900C05C
+      5C00B9575400CB666600BB8788000000000000000000000000003131E500B1B1
+      F5009696F2009696F2009696F2009696F2009696F2009696F2009696F2009696
+      F2005E5EEA003535E500000000000000000000000000CDABA300F8E5D100FED1
+      A500FED1A300E3B28E00F2E9E000FAE8D600FBE3C900FBE3C900FBE3C900FBE3
+      C900FBE3C900F7EBDD00E0BBA300000000000000000080CCE600A2F8FE008BF0
+      FE008CF1FE00C0BFAE00F6EEE600FEF2E700FEEBD900FEE9D400FEE6CE00FEE4
+      CB00FDE3C800FDDAC100C2A5A2000000000000000000C36F6B00B5605B00C185
+      8100C8888700C8888700CB888800CB888800CB888800CB888800CB888800CB88
+      8800B96E6C00CB666600BB8788000000000000000000000000002727E300B1B1
+      F5009F9FF3009F9FF3009F9FF3009F9FF3009F9FF3009F9FF3009F9FF3009F9F
+      F3007878EE001D1DDB00000000000000000000000000CEADA700F7EDE300F8E9
+      D800F8E9D800E5BDA200F4ECE400FDE6CF00FEDCBB00FDDBB900FEDAB500FED9
+      B400FED8B200F8E7D500E0BBA300000000000000000080CCE600B1FAFE0096FA
+      FE0093F8FE00CACAB300FAF2EA00FEFEFE00FFFEFE00FEFBF800FEF8F200FEF4
+      E800DEB9AC00E29C9700CDABA3000000000000000000C36F6B00BE7F7A00F3F3
+      F200F3F3F300F6F3F200F3F3F300F3F3F300F3F3F300F3F3F300F3F3F300F3F3
+      F300CD9A9900C5616100BB8788000000000000000000000000004848E800A4A4
+      F400A4A4F400A4A4F400A4A4F400A4A4F400A4A4F400A4A4F400A4A4F400A4A4
+      F4009494F2001A1AC600000000000000000000000000D1B3AD00FAE7D400FED1
+      A500FED1A500EAB99400F8F0E900FFFEFE00FEFEFE00FEFAF900FEF8EF00FEF4
+      EA00FEEFDF00F7D4C900E2A39800000000000000000080CCE600BCFDFE0099FD
+      FE0099FDFE00CECFB500FEF4EB00FFFEFE00FFFFFE00FFFEFD00FDFBF900FEF8
+      F000C48F7700D5A17E00E1C5BE000000000000000000C36F6B00BE7F7A00F3F3
+      F200F3F3F300F3F3F300F3F3F300F3F3F300F3F3F300F3F3F300F3F3F300F3F3
+      F300CD9A9900C5616100BB8788000000000000000000000000005E5EEA00AFAF
+      F500C6C6F800C1C1F700BBBBF700BBBBF700BBBBF700BBBBF700BBBBF700BBBB
+      F700ABABF5001B1BCB00000000000000000000000000DCBBAB00FAF4EF00FEEF
+      E000FEECD900EEC7A800FAF2EA00FDFEFE00FEFEFE00FEFEFD00FEFBF900FEF9
+      F100E5D0C800C48F7700BE8D7F00000000000000000080CCE600C2FCFE00A8FB
+      FE00A4FBFE00D7D1B600F2DDCD00F2E1D600F0DFD500F0DED400EFDDD200EEDA
+      CC00C3948300E4CEBD00000000000000000000000000C36F6B00BE7E7A00F4F2
+      F200D6D5D500D2D1D100D3D2D200D3D3D300D4D4D400D5D5D500D7D7D700EBEB
+      EB00CD9A9900C5616100BB8788000000000000000000D9D9FB008F8FF1006161
+      EB006D6DED006F6FED009191F100D9D9FB00D1D1F900D2D2FA00D1D1F900D2D2
+      FA00BBBBF7001E1EE200B4B4F6000000000000000000E3C1AD00FBEDDE00FED1
+      A500FED1A500F2C39800FDF4EA00FDFEFC00FAFBFA00FAF8F800F6F6F600F5F3
+      F100DECCC800D8A5820000000000000000000000000080CCE600D2FCFE00BBFC
+      FE00BBFCFE00C9EEE600CAE0D700CAE0D700CAE0D700CAE0D700CAE0D700CAE0
+      D70082B2C800C4E3EC00000000000000000000000000C36F6B00BD7F7B00F3F3
+      F300D6D5D500D1D1D100D1D1D100D3D2D200D3D3D300D3D3D300D7D7D700EBEB
+      EB00CD9A9900C5616100BB8788000000000000000000D9D9FB00B1B1F500A4A4
+      F400A4A4F400A4A4F4008686F0006C6CEC009898F200BABAF600DDDDFB00EDED
+      FD00CFCFF9003C3CE6009F9FF3000000000000000000E9C7B000FCFCFD00FFFE
+      FE00FEFCF800F6DFC900E7C2A800E7C0A600E2B69A00DAA88B00D7A99000E7C5
+      AF00DEBCAB000000000000000000000000000000000080CCE600E1FDFE00BFF0
+      F6009FC2CA009FC2CA009DC4D1009DC4D1009EC3CD009EC3CD00A9D1DA00CCF8
+      FD0061BEE500ABDDEE00000000000000000000000000C36F6B00BE7E7A00F3F2
+      F200E3E3E300E1E1E100E1E1E100E2E2E200E3E2E200E3E2E200E4E4E400EFEF
+      EF00CD9A9900C5616100BB878800000000000000000000000000A1A1F300A4A4
+      F400A4A4F400A4A4F400B2B2F6009191F1009494F2009494F2008686F0007171
+      ED005151E9006161EB00000000000000000000000000ECCBB300FEFDFD00FFFF
+      FE00FEFEFE00FEFCFA00FEF8F100FEF5EA00C89C8E00BF8E8000CDABA3000000
+      0000000000000000000000000000000000000000000080CCE600EAFDFE00BBC6
+      C700C9BEB800C9BEB800C9BEB800C9BEB800C9BEB800C9BEB800829DA500B5E9
+      F60061BEE500ABDDEE00000000000000000000000000C36F6B00BE7E7A00F3F2
+      F200E3E3E300E1E1E100E1E1E100E2E2E200E3E2E200E3E2E200E4E4E400EFEF
+      EF00CD9A9900C5616100BB878800000000000000000000000000A8A8F4009B9B
+      F300A4A4F400B6B6F6007F7FEF00E4E4FC0000000000CDCDF900AAAAF400ABAB
+      F500B4B4F60000000000000000000000000000000000F3D3B600FEFEFE00FEFE
+      FE00FDFEFD00FCFCFC00FCFAF700FCF7F000C9957A00E3B58F00000000000000
+      00000000000000000000000000000000000000000000000000005DC7E6007CCA
+      E10095A2A400DCD3CE00ECE8E600ECE8E600E4DDDA00A5AAAB0060A3B4005EBF
+      E0007AC9E50000000000000000000000000000000000B8696500B6767300E3E3
+      E300E3E2E200E3E3E300E3E3E300E3E3E300E3E3E300E3E3E300E3E3E300E3E2
+      E200C4919000B65A5A00C9A7A700000000000000000000000000000000000000
+      000000000000D9D9FB0000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000F3D3B600E7C4AE00E7C4
+      AE00E6C4AD00E5C2AC00E5C2AC00E5C1A900C497880000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000B5C7CD00AA968D00AE9C9300AE9C9300AC9A9100B0B0B200000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000E8E7E500B5B5B500B0B0B000C0C1C200DCDDDD00F0F0F000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000086BED40049869B005A7E
+      89008D8F9100B1B2B100D6D1D100000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C6866400D2A0870000000000000000000000000000000000D7AA9100C98B
+      660000000000000000000000000000000000000000000000000000000000CDDC
+      E4005CAECA0065BFE4004EB3D900459CBB004D88A10061808B00A19F9E00D7D7
+      D700000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000006AC3E20075DCFD005BCA
+      F40043BCE70035A1C7003587A0004C7C8E000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000BB6B
+      3300A9450400A9450400C89172000000000000000000CE9D8000A9450400AC48
+      0300BC682D0000000000000000000000000000000000000000000000000042AF
+      D30046B8DC0087E1FE0072D9FD006FD7FD006FD7FD0067D3F80048ADD500487E
+      9100989A9900EEECEB0000000000000000000000000000000000848484000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000052B9DD0087E1FE0078DE
+      FD0078DEFD0078DEFD000000000000000000FFCC3300FFFF9900FFFF9900FFFF
+      9900FFFF9900000000000000000000000000000000000000000000000000B659
+      16000000000000000000B2551500E7CDBD00E5D0C800AF582000000000000000
+      0000B3540E0000000000000000000000000000000000000000000000000039B1
+      DE0052BBE00086EDFE007CE1FE007EE3FE0063CAF40060CAF1007EE3FE0077E0
+      FC002F8FB000A9AAAA000000000000000000000000000000000084848400FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000031ADD9008DE6FE0080E6
+      FE0080E6FE0080E6FE0000000000FFFF9900FFFF9900FF663300FF663300FF66
+      3300FFCC3300FFFF99000000000000000000000000000000000000000000B85E
+      1B000000000000000000AF4B0200E4C3AA00E3C4AF00AE4C0600000000000000
+      0000BE62190000000000000000000000000000000000000000000000000041B3
+      E70059C0E40092F1FF0088EFFF0086EDFF0051B1D00058B3D60086EDFF0086ED
+      FF003AB8E3009FA0A1000000000000000000000000000000000084848400FFFF
+      FF008400000084000000840000008400000084000000FFFFFF00FFFFFF00FFFF
+      FF0000000000000000000000000000000000000000003CB1D900A8F2FE0088EF
+      FF0088EFFF0088EFFF0000000000FF663300FF66330088EFFF0088EFFF0059CB
+      EF0000000000FFCC3300FFFF9900FF663300000000000000000000000000C786
+      5B00B5581500C2733B00BB570100D5A58800DBB59D00B8540200BE6F3B00BE61
+      1400C480540000000000000000000000000000000000000000000000000051BE
+      E60066C8EB00A9FAFE0090F6FF0093F8FF0075B2C8004B9EBE0090F6FF0090F6
+      FF003DBAE300A0A0A00000000000000000000000000000000000848484008400
+      0000840000008400000084000000840000008400000084000000840000008400
+      0000000000000000000000000000000000000000000031ADD900A7F8FE0093F8
+      FF0093F8FF0093F8FF0093F8FF0093F8FF0093F8FF0093F8FF0093F8FF006ED8
+      F8006785900000000000FFFF9900FF6633000000000000000000000000000000
+      0000BB6E3C00B04C0500AC490500BB744C00BA7D6000AC490500AC490500B76C
+      3D000000000000000000000000000000000000000000000000000000000057C1
+      E80071CFEF00B3FCFE0099FDFF0099FDFF007FCFDC0077AAC60099FDFF0099FD
+      FF0041BDE3009FA0A10000000000000000000000000000000000848484008400
+      0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008400
+      000000000000000000000000000000000000000000004CBAE300A2EDF60099FD
+      FF0099FDFF0099FDFF0099FDFF0099FDFF0099FDFF0099FDFF0099FDFF0088E8
+      FE004E7F910000000000FFFF9900FF6633000000000000000000000000000000
+      00000000000000000000BB8D7B008E69540097756200BB886E00000000000000
+      00000000000000000000000000000000000000000000000000000000000060C7
+      EB006CCDEF00ABE4F200BCECF600D5F8FD00C1FAFF00B0F4FE00B9FCFE00B3FD
+      FF0048C0DE009FA0A10000000000000000000000000000000000848484008400
+      0000840000008400000084000000840000008400000084000000840000008400
+      0000000000000000000000000000000000000000000065C1E200B0E8F400C0FC
+      FE00B9FCFE00B3FDFF00B3FDFF00B3FDFF00B3FDFF00B3FDFF00B3FDFF00A1F3
+      FF004A859B0000000000FFFF9900FF6633000000000000000000000000000000
+      00000000000000000000B8AEA700B6A49B00A99E9700A5958C00000000000000
+      0000000000000000000000000000000000000000000000000000000000004FBE
+      E30042A8C7001386AE0047B1E00045B9EE005AC1E6007FCDE800C1EAF600DCFC
+      FE0051BDDF00A0A0A0000000000000000000000000000000000084848400FFFF
+      FF008400000084000000840000008400000084000000FFFFFF00FFFFFF00FFFF
+      FF0000000000000000000000000000000000DBEFF8008CE0F3005ED4ED006CCF
+      ED0074CDE80093D9EE00D6FBFD00CBFCFE00CDFBFE00CBFCFE00CDFBFE00B3F1
+      FE0000000000FFCC3300FFFF9900FF6633000000000000000000000000000000
+      00000000000000000000A4938A00AD9D940097837800A38D8500000000000000
+      000000000000000000000000000000000000000000000000000000000000B8E5
+      F20053C7E60020AAD80077DFFB006CD6FB005AC7F8002C91B800118EB70052B0
+      D3005EC0DF00C0C0C0000000000000000000000000000000000084848400FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0000000000000000000000000000000000DBEFF800AFEDF60099FDFF0099FD
+      FF0099FDFF0080ECF60072CBE50000000000BBEAF500DDF6FB00ECFDFE00CAF3
+      FD0000000000FFFF9900FF663300000000000000000000000000000000000000
+      000000000000AFA09800BCB5B200AD9F9400B8AAA200B6AAA600AF9F95000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000B9E3F0003CB7E50052C2E1006EDCF60078DEFD0047B5E00024ACDA002FAA
+      D50056A8C400F4F2F1000000000000000000000000000000000084848400FFFF
+      FF0084000000840000008400000084000000FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000A5DDEF0099FDFF0099FD
+      FF0099FDFF00AFF1F90099D9E900000000000000000089D8ED0074D4EA000000
+      0000FFCC3300FFFF9900FF663300000000000000000000000000000000000000
+      000000000000C1B5B100B2A7A1000000000000000000AD9C9200BAACA7000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C4E8F30053C6F100607E8900D9E3E700AFDEEE0062C5E20040BAE70064A6
+      BD0000000000000000000000000000000000000000000000000084848400FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000000000000000000000000000000000000ADDDEF00A0DBED00A6E3
+      F200B5ECF60098C3D500F0F0F00000000000FFCC33000000000000000000FFCC
+      3300FFFF9900FF66330000000000000000000000000000000000000000000000
+      0000D0C9C500C2B4AB00C0B3AC000000000000000000CBC0B700B8AAA300C6C0
+      BD00000000000000000000000000000000000000000000000000000000000000
+      00000000000066D2EF00458FAE00A7A7A70000000000A0D3E70056CAEF00A5A3
+      A30000000000000000000000000000000000000000000000000084848400FFFF
+      FF008400000084000000840000008400000084000000FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      0000DBEFF800000000000000000000000000FFCC3300FFCC3300FFFF9900FFFF
+      9900FF6633000000000000000000000000000000000000000000000000000000
+      0000A4928700A08D810000000000000000000000000000000000A8988F009A85
+      7900000000000000000000000000000000000000000000000000000000000000
+      000000000000A0DBF1007DE7F3004480980071858A0060BFD70065CEE600C7C7
+      C70000000000000000000000000000000000000000000000000084848400FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FFCC3300FFFFCC00FFFFCC000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000089726400000000000000000000000000000000000000000000000000846F
+      6200000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000096DAF2007EE9F9007DDEF00082E8F5008EC3D7000000
+      0000000000000000000000000000000000000000000000000000848484008484
+      8400848484008484840084848400848484008484840084848400848484008484
+      8400848484000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FFCC3300FFFFCC00FFFFCC000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000B2A59E00000000000000000000000000000000000000000000000000C0B3
+      AC00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000E4F4F900BFE5F200CEE8F000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000FF663300FF663300FF663300FF66
+      3300FF663300FF66330000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000A2ACB000A6A7
+      A500C4C4C6000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000EFEFEF00A0837E009871
+      7000987170009971700098717000987170009871700098717000987170009871
+      700098717000987170009C6A6200E1D4D7000000000000000000000000000000
+      000000000000000000000000000000000000E5DED600997C7000E3DAD7000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000DBDBDD0070718200323564001E2150001E1F4C002525390050505000AEAD
+      AD000000000000000000000000000000000000000000B9E3F00076C8E40040A6
+      CC00408CA7003E7E940066848F0098989800BCBCBC0000000000000000000000
+      000000000000000000000000000000000000DDF7FE0015B1DC0003ACD80003AC
+      D80003ACD80006ABD60004B0DB0004B7E00004B0DB0004B0DB0003ACD80006AB
+      D60003ACD80002B5DF00416A7300996159000000000000000000000000000000
+      0000000000000000000000000000C4B7B200BF9871009F6B5100DDD5CD000000
+      0000000000000000000000000000000000000000000000000000000000008589
+      AB000B0F750000008E0000008E0000008E000102840001028400020668000A0C
+      370057585800E3E4E300000000000000000000000000B8E3F00093D4ED0080E0
+      FE0075DCFD0075DCFD005DCDF20042B9DF004099B900407F97005E7C87008992
+      9400C0C0C000000000000000000000000000A3EAFA0000BAE40000D0F40000D0
+      F40000D0F40000D0F4000BB5D100373746005EACC70001D7F50000D0F40000D0
+      F40001D7F50000C1E9001E9CB600B48F8A000000000000000000000000000000
+      00000000000000000000CCC4BD00A3725800EDC69B009E705400C8BCB7000000
+      00000000000000000000000000000000000000000000000000007173AF000000
+      8E0000008E0000008E0000008E000000960000008E0000008E0000008E000102
+      84000001430048464800E9E9E9000000000000000000AAD7E7005AC6ED00B3F1
+      FE0080E6FE0080E6FE0080E6FE0080E6FE0080E6FE0080E6FE006FDBF80048C1
+      E7004F748100000000000000000000000000F1FEFE0007C1E60009D6F20001D8
+      FA0001D8FA0001D8FA0007788800250C0C004E38410002E5FC0001D8FA0001D8
+      FA000FE7F90001D8FA004D686800F2EAEB00000000000000000000000000E0D7
+      D400A0887C00987B65009C6F5000C2A18600EEC49C00AF836700704432007D58
+      4800C4B8AD00000000000000000000000000000000009191C900000096000000
+      8E002324AE0001009E000100A6000100A6000100A600000096001E1EA6000000
+      8E0000008E0003044600707170000000000000000000AADCEE0053C6EF00AAE7
+      F40088EFFF0088EFFF0088EFFF0088EFFF0086EDFF007AE1FE0088EFFF007BE3
+      FE0047A8C000A1A2A2000000000000000000000000006EDDF30000D0F40002E5
+      FC0001D8FA0001D8FA0004D8F20008797F0008B4C70001DEFB0001D8FA0001DE
+      FB000EEAFC0006C4E700AC837A00000000000000000000000000CCBCB100B994
+      7E00CCAA8F00D3B49900E3C19F00EDCCAD00FDD9B200DFBDA000D7AE8B00B68A
+      6B00703F2E0097776B00F5F1F00000000000E8EAEF000D0DA6000100A6004B4B
+      AD00FFFEFA006264D2000201AE000201AE000201AE00595BC100FFFFFE005355
+      BF0000008E0000008E00191B3400D5D5D60000000000A2DAEE006ACCF60091D4
+      F0009CFAFF0093F8FF0093F8FF0093F8FF008DEBFA00D6CFB80096E4F10081E7
+      FE0086E3F20057768200000000000000000000000000E2FCFF0008C8EB000AE4
+      F80001DEFB0001D8FA0001DEFB001C99B20002E5FC0001D8FA0001DEFB001FF4
+      FD0001DEFB0043707800F2E7E8000000000000000000D3C9BB00C6AC9800E0C1
+      A500F7D7B800F0CCAA00B5775A00E1946400DB976C00D99D6F00F5D5B700E4C1
+      9F00CBA78A007D523D00917D7200000000008083CA000201AE000201AE006F6D
+      9900F0EEE900FFFFFF006364D2000201AE006363C900FAFAF200FAF9F2007879
+      AF000100A60000008E0001015C009495940000000000A5DCF10073D4F6005BC3
+      E800CFFCFE00A6FDFF009FFDFF0099F7FF00DCD8B900FED8A900EAD7AD0085E1
+      F900CDFBFE004993B000AFB2B0000000000000000000000000006DE3F30000D0
+      F40009EEFD0001DEFB0003EBFD002A485D0004D8F20002E5FC0007E1FB000EEA
+      FC0009C5E100AC857D000000000000000000F1E7DF00C7B19B00E5CBB400FDE4
+      C900FEE6C900FEE9C900C39E7F008E2E05008B462800FEE8CA00FDDDBD00FDDA
+      BA00E9C7A900D4B19100793E2A00CEC6BF003E3FD4000201AE000404C5000404
+      C50061609600F0EEE800FEFFFF00A3A3E600FFFEFB00FAF9F2006E6EAA000303
+      BD000201AE0001009E0001038C006767670000000000ABDCED0087E1FE006FD8
+      FB0077CFF10096D8F100AAE0F000C9E9EC00F9E3B700FEE4AC00FEE7B300D8D6
+      BB00E2FDFF0096D5EA00687D8400000000000000000000000000E5FEFE000FCF
+      EE0002E5FC0002E5FC0009F4FE005631380013B2C70002E5FC0015FAFE0002E5
+      FC0041757F00EFE5E5000000000000000000D8C9BC00DBC6B700FEE8D100FEE6
+      C900FEE7CD00FEE7CD00CCAA8C00912B0300A85A3C00FEF1D300FDE3C500FDE0
+      C100FDE3C500E5C6AA00AD867200937469001A1BBA000404C5000505CD000505
+      CD000505CD007673AB00FEFCF900FFFFFE00FFFFFE008080C2000404C5000404
+      C5000303BD000201AE000100A6005F5F6700000000009BD5EB008FE8FE0086ED
+      FF0086EDFE0080E6FE00ADBAB500CAC4B200B2DAE600E9E4D500FDF7DA00FEF1
+      CB00FBECDA00EFFDFD00478AA000C8C8C70000000000000000000000000063E1
+      F7000AE4F80009F4FE000ACFE200491F1E002A8C960004F2FE0019F1FD0008D1
+      E900AB7B7200000000000000000000000000CCBCAD00F5E2D000FEEBD900FEEB
+      D900FEE9D500FEE9D500CCAD900087270500B05E4000FEF2D700FEE6C900FEE6
+      C900FEE6C900FBDDC000DEC2A9008B6864001214CF000C0CD2001010DD000808
+      D7000505CD005F5FCD00FDFCF800FFFFFF00FFFEFC006465D9000505CD000505
+      CD000505CD000202B5000201AE0067666A0000000000B1DEEF009FFDFF0096FA
+      FF0093F8FF00A6CDCA00F3CDA600FCD3A800F0CEA600CAC0B000BDC6B800AFD2
+      D200B1CED900B1CEDA0076BBD50000000000000000000000000000000000E2FC
+      FE0010D7F3000FF7FE0010939E0037030600323B4C0015FAFE0004F2FE004475
+      7800EFE1DF00000000000000000000000000D4C6BF00F7EADF00FEEDDD00FEEB
+      D900FEEDDD00FEEDDD00CCAF9900912B0300A65B4200FEF3E000FEE8D100FEE7
+      CD00FEE7CD00FEE8D100E0CFB9008B6864003233DE001515DF001919ED000A09
+      EE005F5FD500FAF9F000FAF9F200BEBED300F8F6F300FEFFFF006465DA000504
+      D4000808CF000807C8000909B2008787870000000000A0D6EC00B1FDFF0099FD
+      FF00ACDCDD00F1CCA900FDDDB900FCD3A800FCD3A800FCD4AC00FCD4AC00FDE1
+      C200FDE6D100DEB79500C3C2C200000000000000000000000000000000000000
+      000063E8FC000FE7F9000D7E7F002905070032232C0015FAFE0009E5EF009C77
+      700000000000000000000000000000000000D7C9C000F8EEE400FEF3E500FEF3
+      E500FEF3E500F1DED400A0624A00912B03009C574500FEF6EA00FEEBD900FEEB
+      D900FEEBD900FBECD600EBD7BD00937770006468E6001F1FF6002727FA005B5F
+      CE00FAF8EC00F8F5EE007577BF000504DC006B6A9D00F1EEE900FEFEFE006869
+      EB000C0CE2000C0CD2001013A100CBCBCB0000000000000000009BDAED00B5EB
+      F100ECCBB000FEF0E100FEEFDD00FCD7B000FCD4AC00FCD6AF00FDD5A600FDDD
+      BA00FBE7D400CEBEB40000000000000000000000000000000000000000000000
+      0000E0FCFE0009DEF70010E1F100076C700012B4BD0009F4FE003A868300E7DB
+      DA0000000000000000000000000000000000E3DAD500F4EDE800FEFBF400FEF6
+      EA00FEF6EA00EAE0D400BA9D9200BD999200CCA79B00FDF5EA00FEEDDD00FEED
+      DD00FEF2E500FAEEE200D9C4B300CEC6C000B7B8F1002727FA003636FD007F7F
+      BE00F1EAE1006E6EB5000504EC000504EC000504E4005C5E9800DFDAD1007576
+      BC001919ED001414D8004951A00000000000000000000000000000000000C4E8
+      F300E8DBD000FDF3E800FEF7EC00FDF2E700FCD6AF00FBD7B400FEDBB100FBED
+      DD00CCBEB2000000000000000000000000000000000000000000000000000000
+      00000000000061EAF60009F4FE000FF7FE001BFDFF0009E5EF0099716E000000
+      000000000000000000000000000000000000F3EFEB00E5E3E100FCFBFA00FDFA
+      F700FEF9F100FEFAF400F2E4E100E3B69800F3DFD200FEF7EC00FEF6EA00FEF7
+      EC00FEFCF700FAEDE000CAB6A30000000000000000005658F7004848FD005556
+      FB005F61BC003535F8001D1DF600100FF0001413F2002322F6004E51B8003030
+      FD002727FA001D1DD400D9D8D700000000000000000000000000000000000000
+      000000000000F9E4D100FEFCF900FFFDF800FEF2E300FDD9AE00FEF3E400DDC9
+      B800EFF0F0000000000000000000000000000000000000000000000000000000
+      000000000000CEFEFE000AE4F80031FEFF000FF7FE0038878700E7D4D4000000
+      00000000000000000000000000000000000000000000F1EAE500EEECEB00FEFD
+      FC00FFFDF900FFFEFC009E787100963D190094594100FEFDFB00FEFCF600FEFD
+      FC00F8F3EF00E9D5C800F2F1F1000000000000000000E5E5FD004545FD006465
+      FA008386FC008A8EFB007A7DFA005F60FD005F60FD005C5DFA005556FB003C3B
+      FD002325EB00B6B7DE0000000000000000000000000000000000000000000000
+      00000000000000000000FEEBDA00FEF9F500FDDA9E00FEFAF400E7D5C700E6E6
+      E600000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000053F8FE0009F4FE0009E5EF00B9A2A000000000000000
+      0000000000000000000000000000000000000000000000000000F2EEEB00F1F1
+      F100FBFCFC00FFFFFF00E2D2D100845E5D00D7C4BD00FEFFFE00FEFCFB00FCFA
+      F600E8E2DA000000000000000000000000000000000000000000DEDFFE005E66
+      F3005D5EFB009195FA00989DFA00989DFA008386FC006465FA004848FD004141
+      FB00CCCCEC000000000000000000000000000000000000000000000000000000
+      00000000000000000000FEF8F100FBDCB800F3C58C00F5DBBF00E9E4DE000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000077FDFE00CEFDFD0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000F3EFED00EDEEEC00F6F6F600F7F7F700F6F6F400F4F1EE00F5F0EC00EDE9
+      E700000000000000000000000000000000000000000000000000000000000000
+      0000B5B7FD007B7EF8007476FC006567FC006465FA00737BF300A6A7FD000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000C7BFB800B2876500A26D3C009F633400955D3F0088614A008B888600C9C8
+      C8000000000000000000000000000000000000000000BDBAB700989592008E84
+      85009E9C9B00E3E3E30000000000000000000000000000000000F2F2F200BBBA
+      B9009C939400878787009D9B9B00E3E2E2000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000E3DFD900CD8B
+      5C00C8652900C0644800B8675200CA624600C5655500CC685700B3593700764C
+      3E0095939100ECECED000000000000000000C8BEBE00D6CACA00CBB9B800C0A7
+      A700A4868300A2A2A20000000000000000000000000000000000C9BCBC00D7CB
+      CB00CBB9B800C0A7A700A4868300A2A2A2000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000E2E3E200B4B5B400B3B4B300B3B4
+      B300B3B4B300B3B4B300B3B4B300B1B2B100A3A4A400A1A1A100A1A1A100A1A1
+      A1009FA0A000A1A09F009FA5A500DCDCDC0000000000EBE1D800D57E2F00B051
+      1F00AB4B16009B431A007F562B009E3C1200A4481400B6511F00BC5B4200CA62
+      46008D4D2B008D868300EFF0EF0000000000DCD0CF00E2D3D200DBC6C300C090
+      8D00BE959300D0D0D00000000000F2F4F300E8E9E90000000000D8D1D000E4D4
+      D300D9C4C400C0908D00BE959300D0D0D000000000000000000086BED4004986
+      9B005A7E89008D8F9100B1B2B100D6D1D1000000000000000000000000000000
+      000000000000000000000000000000000000AA5D3C0099492200994922009949
+      2200994922009949220099492200994922009949220099492200994922009949
+      22009949220099492200994922009896950000000000DF964B009B3804009A3C
+      06009E3D0500A1430600306A1100794E0600A33F04009A3C06009D3F0C00AE4E
+      1C00BC5B4200864F3200AAAAAA000000000000000000D8A07800E8A05100CD7D
+      700086606200ABACAC00A8A9A900638D9E00446F85007E7F7F00A8A9A900D89D
+      7200E8A05100CA806E0086606200C2C3C20000000000000000006AC3E20075DC
+      FD005BCAF40043BCE70035A1C7003587A0004C7C8E0080898C00A8A8A800CCCC
+      CB0000000000000000000000000000000000DAB59F00FFFFFF00FFFFFF00FEFF
+      FF00FEFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00E6C8BE0099959100F0CCA500A3460900AA460400AF48
+      0300B9500200BE5401001F6F0A001F6F0A008C570200AF480300A64505009A3C
+      06008F583800A264400076605500E4E3E300E9E6E600F8B96200FEC05200FEC2
+      5400E5A466004F4F4F007E77710042A6C60045A9C600787373004C4C4C00F8B9
+      6200FEC05200FEC05200E5A46600A0A0A000000000000000000052B9DD0087E1
+      FE0078DEFD0078DEFD0078DEFD0078DEFD006FD8FB0056C8EE0043A9CD003C8F
+      AB0049798A00C1C2C1000000000000000000DBB09800FEFFFF00FBFFFF00FBFF
+      FF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFF
+      FF00FCFFFF00FCFFFF00E7C8B70099959100DA934700AA460400B9500200C359
+      0100CA6301008C7102000D7D04000D7D0400576D0200C65E0100B9500200AF48
+      0300695A2A00756441008B523400BABABA00E8D7D700FBC87300FED47C00FED4
+      7C00E9AF6D009C939300CCCCCB0079BAD1005C9BAF009F9F9F00CDBCBC00FBC8
+      7300FED47C00FFD97E00E9AF6D00A0A0A000000000000000000031ADD9008DE6
+      FE0080E6FE0080E6FE0080E6FE0080E6FE0080E6FE0080E6FE0080E6FE0080E6
+      FE003FB7DE009D9E9E000000000000000000DBB09800FDFFFF00FBFFFF00FBFF
+      FF00FBFFFF00FBFFFF00FBFFFF00FCFFFF00FBFFFF00FBFFFF00FBFFFF00FBFF
+      FF00FBFFFF00FBFFFF00E9C8B70099959100C9722800BE540100CA630100D26E
+      0100DC74020078820600098F0500537F0900C3750600D7710100736E02005A5C
+      04001F6F0A005C6129008B532800999A9A00D8C9C900FBD48500FFEAA900FFEA
+      A900E9BA8100A3A4A300FFFFFF00CCCCCB00928C8400A9A9A900D8C9C900FBD4
+      8500FFEAA900FFEAA900E9BA8100A3A4A30000000000000000003CB1D900A8F2
+      FE0088EFFF0088EFFF0088EFFF0088EFFF0088EFFF0088EFFF0088EFFF0088EF
+      FF0059CBEF00879193000000000000000000E5B39900FDFFFF00FBFFFF00FBFF
+      FF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFF
+      FF00FBFFFF00FBFFFF00EBCCB70099959100C2631100CE680100D7710100BF82
+      09006D9307006C950B0081930900E38E0200EE840200DB7909000D7D04000F74
+      04000F740400306A110081542B00968C7E00E7E1E100DDCCCC00D6C5BD00D7C0
+      B000D3AD9100D5D5D500FBFBFB00C1C1C10072727200B3B4B300D9D1D100DDCA
+      CA00D3C9C400D7C0B000D5B09300D2D3D300000000000000000031ADD900A7F8
+      FE0093F8FF0093F8FF0093F8FF0093F8FF0093F8FF0093F8FF0093F8FF0093F8
+      FF006ED8F800678590000000000000000000E5B39900FDFFFF00FBFFFF00FBFF
+      FF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFF
+      FF00FBFFFF00FBFFFF00EACBB6009E999500C7681000D77101009C8708000D9F
+      130051A4210065A41E00EEA62200FB9F1300F7930700F28901007E8506000F74
+      04002A740300416517005F630A009F9486000000000000000000000000000000
+      0000F4F1F100F2F3F200B7ADAD00A59393009E848600927E7D008B838500EBED
+      ED000000000000000000F4F1F1000000000000000000000000004CBAE300A2ED
+      F60099FDFF0099FDFF0099FDFF0099FDFF0099FDFF0099FDFF0099FDFF0099FD
+      FF0088E8FE004E7F91000000000000000000E7BA9700FDFFFF00FBFFFF00FBFF
+      FF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFF
+      FF00FBFFFF00FBFFFF00EDD1B7009E999500DE883000E17702003CA7230021B6
+      3A0025BB44002AC14F00A6C15800FEC25400FDB03200F7930700C58802001D8F
+      07000D7D04000F74040062680F00AFADAC000000000000000000000000000000
+      000000000000E6DEDD00D5D0D100EAEAE800CDBABA00B2929200AA918F00EBE9
+      E90000000000000000000000000000000000000000000000000065C1E200B0E8
+      F400C0FCFE00B9FCFE00B3FDFF00B3FDFF00B3FDFF00B3FDFF00B3FDFF00B3FD
+      FF00A1F3FF004A859B000000000000000000E7BA9700FDFFFF00FBFFFF00FBFF
+      FF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFF
+      FF00FBFFFF00FDFFFF00EDD1B7009E999500E9AF6800BF8209002AB53C002EC7
+      590033CD640051D4740051D47400DBDC8500FEC55A00FBA41F00D08E0300328C
+      05000D7D04000F7404007E702100DADADB000000000000000000000000000000
+      00000000000000000000D7C6C500D5A79600CB908500B6747200A39E9D000000
+      00000000000000000000000000000000000000000000DBEFF8008CE0F3005ED4
+      ED006CCFED0074CDE80093D9EE00D6FBFD00CBFCFE00CDFBFE00CBFCFE00CDFB
+      FE00B3F1FE005A93A600D4D4D50000000000EAC09500FDFFFF00FDFFFF00FBFF
+      FF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFFFF00FBFF
+      FF00FBFFFF00FDFFFF00EDD1B7009E999500FEEFC9004CAB2F002AC14F0042D0
+      6C009CDF8D00CAE7A400A4E8A700FEF2C200DAD27900F0AF2F00E38E0200AE83
+      04000D7D04002A740300B6A07400000000000000000000000000000000000000
+      00000000000000000000DDC8B900FDAD2C00F3B15400E39A630087756E00EBEC
+      EC000000000000000000000000000000000000000000DBEFF800AFEDF60099FD
+      FF0099FDFF0099FDFF0080ECF60072CBE5009CDBEE00BBEAF500DDF6FB00ECFD
+      FE00CAF3FD0061A5C000C9C9C80000000000EAC19500FFFFFF00FDFFFF00FCFF
+      FF00FDFFFF00FDFFFF00FDFFFF00FDFFFF00FDFFFF00FDFFFF00FDFFFF00FEFF
+      FF00FBFEFD00FDFFFF00ECD1B8009E99950000000000A4DF97002AC14F005DD3
+      750096E29700D1F3C100C0F3BC00D2E9AB003FCB640069B23E00B7971200EA7F
+      02005E7F030093892B00E4E4E400000000000000000000000000000000000000
+      00000000000000000000E4C1A200FEC55A00FFCE6A00FEC55A00A2817000E7E7
+      E700000000000000000000000000000000000000000000000000A5DDEF0099FD
+      FF0099FDFF0099FDFF00AFF1F90099D9E90093DFF20094DBF20089D8ED0074D4
+      EA0062B9D8007ABAD2000000000000000000CA7F3C00BF8A5E00BA885F00BF8A
+      6000BA885F00BF8A5E00BA885F00BA885F00BA885F00BA885F00BF8A5E00BF8A
+      5E00C38B5D00BA8A6200CD7F3B009F9F9F000000000000000000CDD27E0066CF
+      6F00A5DD9000D3E8A200C8E6A30093DE880033CD64002AB53C00E38E0200E37B
+      0600E8912300E7D9CC0000000000000000000000000000000000000000000000
+      00000000000000000000E4B98E00FED98600FEE3A000FFDE8800A2817000E7E7
+      E700000000000000000000000000000000000000000000000000ADDDEF00A0DB
+      ED00A6E3F200B5ECF60098C3D500F0F0F00000000000D0EBF600AFDEEE00B0DF
+      F000BEE0EC00000000000000000000000000D1721000DA891E00E0821A00E082
+      1A00E0821A00E0821A00E0821A00E0821A00E0821A00E0821A00E78C2600E794
+      3500F09B3A009F7C6D00BD763100B9B9B900000000000000000000000000DAEA
+      B700A5D47F008BDB880078DD89005ACE6D002EC7590021B63A00D6991800F1B2
+      5B00EEE7E0000000000000000000000000000000000000000000000000000000
+      000000000000E9EAEA00DBB4A600E5CEAB00E8D8B000FAE1A000AF8E7D00EDED
+      ED00000000000000000000000000000000000000000000000000000000000000
+      000000000000DBEFF80000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000F4D2AB00ECC08F00ECBE8800ECBE
+      8800ECBE8800ECBE8800ECBE8800ECC08F00ECBE8800ECBE8800ECBE8800ECBE
+      8800ECBE8800EEBD8400F2CC9F00000000000000000000000000000000000000
+      0000FEFBEF00ECEDC700DADFA200E3CD7D00D6CF8000DCD99E00FAEAD6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000EFEFEF00E9E0E000E0CCCC00DFD7D6000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000BFAEAF00AA89
+      8B0097787E00977276008E686E009B7B8000C5B3B40000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000C5C5C400AAABAB00AAABAB00BABBBB00D4D5D400000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000DBDCDB00B2B1B1008F8F8E00828382008283820094939300BBBBBB00E4E4
+      E4000000000000000000000000000000000000000000BCA8AA00D6CFCF00DBD5
+      D500DAD0D000D1BBBA00C19E9F00C69E9E009A757B00A7878C00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000D4B4AB00DDAE8E00DEC5B300DBC2B300DBBFB500DBBEBD00E6D8DA000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000D3D1C200EBDFBA00FEF2CD00EBD9B600D3C8B200B1AFA00093908D00A5A5
+      A400000000000000000000000000000000000000000000000000F3F1F100C3BE
+      B900CABEBA00E5DBD700F0E7E100F0E7E100F0E6E100E3D3CA009A8F8A007A77
+      7500C2C2C200000000000000000000000000D2BCBC00E5E5E500E8E9E900E3E3
+      E300DAD9D900CEB6B500B0A3A300A4828500CCA3A300A1767900D8D0D2000000
+      000000000000000000000000000000000000000000000000000000000000E0BB
+      A600E8B79000EBC49C00F3E5D600F1E3CD00EDDCC600C39C8D00B4877F00BA8E
+      8600CCAC9F00D5B8B000DFD3D00000000000000000000000000000000000F5F2
+      DA00FEE9C900FDE1BB00FEE2B100FDDCB500FDE1BB00FEE6B900FEF3CE00D3CE
+      B5008B878200C6C7C500000000000000000000000000F1F2F100C9C2BF00EDE2
+      DF00F1F1F000E1DCD800D0B4A100D8B59F00E1C8B700E7E4E300F0EFED00DFD0
+      CA00776E7000BABBBA000000000000000000DBCCCC00F2F1F100F8F7F800EBED
+      EC00DBDADA00D1B0AC00B28D8C00B4848200CCA3A300B0878900B6A7A900BA9D
+      9C00987B7F00A2848800D5D0D100000000000000000000000000E3C0A900F3C5
+      9900EBC19800EBC49C00F5E8DA00EFE3D600F0E0CD00B6928B009D706A00B287
+      8000E2CFA800DFC6A400CAA8920000000000000000000000000000000000FBDB
+      AF00FEEFC300FEE3B500FDD5A600FDDFBE007FC8690092D0860092D18E00F3F6
+      D700FAF2D5008E8C8600E4E5E4000000000000000000D4CECB00F3EDEA00EAEC
+      EB00D59C7D00BF633500C5724D00DAB49E00C3653900C26C3F00D2AF9B00F1F1
+      F100E5DDD600716C6D00CECECE0000000000F1E5E400E4DDDD00D8B5B300E1D2
+      D200DAC9C900D0A4A200B8767500B8767500CEA4A100BB959500D4AEAC00D7B5
+      B500ABA6A600AC989A008D717400A3888D0000000000E1C5B000F6D5AB00F3D1
+      A300F5C99B00F0CB9F00F5EDE500F5EADF00F2E3D200B6938900986B6600A27E
+      7600EAD7B400E6D5AE00D5BC9D00000000000000000000000000F3E5D700F1B5
+      6F00FAD8A300FEECCA00FEDBB100FEE5C2000798060007980600079806002AAA
+      2A00F4F9D800C6C1AE00C7C7C70000000000E9E9E900F0E1DA00F3F0EE00C882
+      5B00C6633000CD683400BA9A8600FBFCFD00D5916C00C7663300C5602E00D69A
+      7D00F3F3F300CABFB60085858500EFF0EF00FFFFFF00E9D8D800DEA37500EAB6
+      7E00D3A09600C17A7600C76C6700C5666100D8C7C700D8C4C000D4B2B200CEA3
+      A3009E7C7F00AC939500A2B29D008D6C710000000000E7C7A300F9D6AC00F5D2
+      A400F4CEA000F1D2A900F8F1E900F7ECE200F2E6DA00B5938B00986B6600AA79
+      7000EDD9B700E8D6B100D5BC9D00000000000000000000000000F5D7B600F2BD
+      8600F2BD8600F2BD8600F8D19F00FDE6C100079806000D9F1300E5F1DC009BD4
+      87008DCA7700D7B79100B1B2B20000000000F3E9E100F7F5F400D4A79200CB64
+      3100CD683400CD683400CD6F4000D28A6700CD683400CD683400CD683400C061
+      3000DCC4B300F4EEEA0089838000D3D3D300FFFFFF00E7D1D100E89D4B00FDAA
+      2600FDB03200F3B56A00DE9B7800BF757300CFABA700CEA8A800D4ADAD00D3B3
+      B300AD8A8A00A37B7B009E7C7F008E676C0000000000E2CAA900FBE0B100DCC9
+      AD00B4AFB000D5C1AB00FBF7F300F7F1EA00F5EBE000C7ACA500AC857E00B385
+      7E00EDDCC600ECD9B900DCC0A600000000000000000000000000F3D2A400F9CA
+      8E00F9CA8E00F9CA8E00F9CA8E00ECEACA0092CB7B0078C76D00A5DAA500FEF7
+      E600A6E19F00F5D1A6009E9E9D0000000000F3E5DC00F6F1EF00CD6F4000CD68
+      3400CD683400CD683400CB876B00F3E1D200CE754800CD683400CD683400CD68
+      3400CB825A00F6F7F800B8A7A000B5B5B600FFFFFF00D8C0BF00EEA83E00FEB6
+      3E00FEBC4B00FEBC4B00FEB94400FABA5400E59F6600D58F8400DABABA00D5B0
+      B000B4888600BE8D8C00B48482008A646A0000000000E9C9A600D7C9AF0076B1
+      DD003C99F8005F9EE400E9F4F800F9F6F300F6F0E800F1E7E000E8D8CD00E2CB
+      BF00F0E2CC00EDDCC600DCC0A6000000000000000000F8F5F200FCD3A400FCD3
+      A400FDD39F00FCD3A400FBD0A100A8CE8B00E3E4B600D8EFBF002CAC310038B5
+      3E00B4DD9600FED8A9009897960000000000F6EBE500EEDBCC00CD683400CD68
+      3400CD683400CD683400C3826500FAFAFA00DBA38400CB643100CD683400CD68
+      3400C16A3A00F2ECEB00DCCEC300A8A8A800FFFFFF00CCA8A800FEBC4B00FEC5
+      5A00FEC55A00FEC96200FEC55A00FEC05200FEBC4B00E0925500DDBDBA00D3AE
+      AD00B07C7C00BE8D8C00BE8D8C00926B700000000000B4BABB0061C6FE0057BB
+      FE0047AAFE003B9EFE0064A9F300DBE9F800FCF7F300F7F1EA00F5EBE000F2E7
+      DB00F2E3D200EDDDCF00D3B5AD000000000000000000F9EBDD00FEDDAF00FEDD
+      AF00FEDDAF00FEDDAF00FEDDAF00E3DEB00030AC2D00ACDE980049B446000798
+      0600A1D38600FEDDAF009F9A950000000000F7EDE800EBD3BF00CD6E3B00CD68
+      3400CD683400CD683400CD683400CEAD9900FBFAFA00DB9C7800CD683400CD68
+      3400CD683400F7EDE800E0D3CC00A9AAA900F1EFED00D1B2A100FEC96200FFCE
+      6A00FECE7200FECE7200FFCE6A00FFCE6A00FEC96200D3987800DABABA00D5B0
+      B000B57F7E00AD787800A67E7F0094626700ABD5F00065B6F40061C6FE0061C6
+      FE0058B9FD004BABFE003A9BFC006FB7FA00F6F7F900F9F5F200F6F0E800F5EB
+      E000F2E6DA00D0BCBE00AF9CAA000000000000000000FBEBDA00FEEFC300FEED
+      C900FEEDC900FEEDC900FEEDC900FEEDC900AED88C000D9F1300079806000798
+      0600A1D38600FEEDC900A8A3990000000000F5EAE400F5E5D600D8734900CD6E
+      3B00CD683400CA612F00CD683400CD683400DEC5BB00FBF8F500CE724300CD68
+      3400CE744300FBF6F300DCCEC300B8B9B900E6DEDD00E0BDA000FECE7200FED4
+      8400FEDF9100FFE49300FEDF9100FED48400FECE7200D39B8400D8BBBB00CFA8
+      A800B67A7900C3949200B988870094626700000000005BB6FE0059B5FD0060C3
+      FD0061C6FE005FBDFD004BABFE003FA2FE0073BBFD00E3EFF800F9F5F100F6F0
+      EA00B4B8C800928FB200000000000000000000000000F7EBD400FFFCDD00FFFC
+      DD00FFFCDD00FFFCDD00FFFCDD00FFFCDD00FFFCDD00ECF4D000CAE9B500EFF6
+      DD00C5E5AD00FFFCDD00B2AC9E0000000000F4E7E000FEFDFC00F0976F00DA82
+      4A00D08E6D00E8D7CA00D3825500CB643100D9A08400FEFEFE00D08A6100DD7B
+      3E00D89E7B00FEFDFE00C1B1AD00D9D9D900DDD7D700E1C28C00FFDE8800FFE4
+      9300FFE8A200FFEAA900FFE8A200FFE49300FED48400CC9A9100DABABA00D6A3
+      A100BD727000B96D6A00B1777800995E620000000000000000004DAFFE0051B4
+      FE0061C6FE0061C6FE005CBAFD004FAFFE0043A6FE0073BBFD00F4F8FA00C3D6
+      E3007B91BD0000000000000000000000000000000000FEEFCE00FFFCDD00FFFC
+      DD00FFFCDD00FFFCDD00FFFCDD00FEF6CD00FEE8BB00FBE1B200FEE8BB00FFF8
+      D200FFFCDD00FFFCDD00BAB8A800DADADA00F7EDE700FDF9F600F5E2CF00F893
+      6800E4896A00F1EEED00F6EEE700E4BCA400F9F1EE00F4ECEA00E5865800E086
+      5600F3E8DD00F6F0EC00B5B1AC0000000000DBD4D200D7B58D00FFE49300FFEA
+      A900FEEEB700FEF2C300FEEEB700FFEAA900FEDF9100CAA8A700EBDFDD00F5ED
+      ED00E8D5D600E0B3AF00D5837F00A16E6F000000000000000000000000005DB6
+      FD004FB4FE005EC3FE0062C7FD0062C7FD004FB4FE0043A6FE005EA8F900588C
+      EA000000000000000000000000000000000000000000FDF2E300FEEBCB00FEEE
+      CF00FEEBCB00F3DDBD00F4C18900F1B56F00F1B56F00F1B97A00F1B97A00F2BD
+      8600F8D19F00FEF3D400C2C1B100CECFCE0000000000F4E7DF00FFFFFF00FBE3
+      C800F0BD8700E6BC9400EDDCD200E9E2E200EFDED500EDAF8500F69E6A00FDD6
+      C100FEFDFC00D5CAC600DAD9DA0000000000CDC8CA00C0BDBC00BEADA700C0A9
+      9F00CAB9A700DDD0B500F3E1BD00FFECB100F0CC8E00D7AEA800DCC7C400D8C0
+      BB00D8C2BD00DBCAC800E4D2D100000000000000000000000000000000000000
+      000053B0FD004FB4FE0060BEFD0062C7FD005EC3FE004FB4FE003E91EF005784
+      EE00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000FCF0E800F8DBBD00F4C08700F2BD8600F2BD
+      8600F7C68800F8C99800D4C3AB00CECECD0000000000F9F4F100F8ECE400FFFF
+      FF00FEFBEF00FEEFCA00FDE3B400F8D49B00F8D49B00F8D5AF00FCF2E900FFFE
+      FE00E6DAD500CFCFCF000000000000000000000000000000000000000000DED9
+      D900D7CCCB00CAADAD00C3ABAA00CBA19F00C79B9100BD9C9D00000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000072C1FC007AC3FB0099D8FD00000000009DA6DB000715B3004A6B
+      ED00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FBE3CA00F7C9
+      9400FACB8900F9CA9300DFC4A80000000000000000000000000000000000F3E6
+      DE00FBF6F300FFFFFF00FFFFFF00FEFFFE00FFFFFF00FFFFFE00F8F2EF00E4D9
+      D300DDD9D9000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000E7DBDB00E1CECD0000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000C5C9E4006360AC00979E
+      DB00000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000FCEDDE00F9EBD90000000000000000000000000000000000000000000000
+      0000F5EDEB00F5E8DE00F4EAE500F7EDE700F5E8E100F5E8E100EDE7E400F2F2
+      F20000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000B00000000100010000000000800500000000000000000000
+      000000000000000000000000FFFFFF00FFFF000000000000C1FF000000000000
+      000000000000000000000000000000008000000000000000C001000000000000
+      8003000000000000000100000000000000010000000000000001000000000000
+      00010000000000008081000000000000C181000000000000FFC3000000000000
+      FFFF000000000000FFFF000000000000FFFFFFFFFE7FFFFFE79FC003FC3FFFFF
+      C107C003FC3FFC3FC003C003FC3FF81F8003C003FC3FF00F8003C003FC3FE007
+      800FC003F81FC003820FC003F00F8001C307C003F00F8001C183C003F00F0000
+      E083C003F00F0000F001C003E0070000F801C003F00F0000FC03C007F80F8001
+      FE37C00FF81FC183FFFFFFFFF81FFFFF80038003E007FFFF00010001C003C1FF
+      000000008001000000000000000000000000000000008000000000000000C000
+      00000000000080818000800000000001C001C00100000001FE3FFC1F00000001
+      FE3FF80F00000001F80FFE3F00008081FC1FFE3F0000C100FE3FFE3F8001FFC3
+      FF7FFE3FC003FFC3FFFFFFFFE007FFFFC00FFFFF0000FFFFC003C1FF0000FFFF
+      C00300000000FFFFC00300000000FE3FE00380000000F80FF007C0010000E003
+      F01F800300008000F01F000100000000F01F000100000000E00F000100000001
+      E00F00010000C003E00F80810000F01FE00FC1810000FFFFE01FFFC30000FFFF
+      F01FFFFF0000FFFFFC7FFFFF0000FFFF0000F00FFFFFC00F0000E007F1FFC003
+      0000C003E3FFC00300008001C7FFC00300000000C7FFE00300000000C7BFF007
+      00000000C79FF01F00000000C38FF01F00000000E007F01F00000000E003E00F
+      00000000F001E00F00000000F803E00F00008001FE07E00F0000C003FF8FE01F
+      0000E007FF9FF01F0000F00FFFBFFC7F003FFFFFFFFF00C0001FFFFDFFF90000
+      000F8FFFC0010000000787FBC0030000000783F3C00700000007C3E7C0030000
+      0007E1C7C00300000007F08FC00780010007FC1FC00780018003FC3FC0078001
+      C001F81FC0078001E020F08FC007C003FF11C1C7C007C003FE0B83E3C007E007
+      FF1F87FBC007F81FFFBFFFFFFFFFFFFFFFFFF801FFFFFFFFF801C0018001FFFF
+      F80180018001C0FFF80180018001C00F800180018001C003800180018001C003
+      800180018001C003800180018001C003800180018001C003800180018001C003
+      80018003800180018003800380018001800780038001C003801F80038001C087
+      803FC0078001FBFF807FF03FFFFFFFFFF03FFFFF81FFF3CFE00FFFFF8007E187
+      E003C0078003EC37E003C0078001EC37E003C0078000E007E003C0078000F00F
+      E003C0078000FC3FE003C0078000FC3FE003C0070000FC3FE003C0070001F81F
+      F003C0078001F99FF00FC0078003F18FF88FC007F607F3CFF80FC007FE0FF7EF
+      FC1FC007FE17F7EFFE3FFFFFFE03FFFFC7FF8000FF1FF00F807F0000FE1FE003
+      80070000FC1FC00180070000E007800180038001C00100008003800180010000
+      8001C003000000008001C003000000008000E007000000008001E00700000000
+      8001F00F00000000C003F00F00000001E007F81F00018001F807F81F80018003
+      FC0FFC3FC007C007FC1FFE7FF00FF01FF00F83C0FFFFFFFFC00303C0FFFF0000
+      80010240C0FF000080018000C00F000000000000C003000000000000C0030000
+      00000000C003000000000000C00300000000F00DC00300000000F80FC0030000
+      0000FC1F800100000001FC0F800100008001FC0FC0030000C003FC0FC0870000
+      E007F80FFBFF0001F01FFE1FFFFFFFFFC07FFFFFF83FF00F803FF01FF00FC007
+      001FE001E00380030001C001E001800100008001C001000000008001C0010000
+      00008001C0010000000080018001000000008001800100000000000180010000
+      00008003800100000000C007800000010000E00F800080010001F00FFE008003
+      E03FF88FFFC1E007FE7FFF8FFFF3F00F00000000000000000000000000000000
+      000000000000}
+  end
+  object menu: TPopupMenu
+    Images = images
+    OnPopup = menuPopup
+    Left = 40
+    object SelfTest1: TMenuItem
+      Caption = 'Self Test'
+      ImageIndex = 34
+      OnClick = SelfTest1Click
+    end
+    object Showbandwidthgraph1: TMenuItem
+      Caption = 'Show bandwidth graph'
+      OnClick = Showbandwidthgraph1Click
+    end
+    object Otheroptions1: TMenuItem
+      Caption = 'Other options'
+      object switchMode: TMenuItem
+        Caption = 'Switch to expert mode'
+        ShortCut = 116
+        OnClick = modeBtnClick
+      end
+      object Accounts1: TMenuItem
+        Caption = 'User accounts...'
+        ImageIndex = 29
+        ShortCut = 118
+        OnClick = Accounts1Click
+      end
+      object Shellcontextmenu1: TMenuItem
+        Caption = 'Integrate in shell context menu'
+        ImageIndex = 22
+        OnClick = Shellcontextmenu1Click
+      end
+      object AutocopyURLonadditionChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Auto-copy URL on addition'
+        Checked = True
+      end
+      object alwaysontopChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Always on top'
+        OnClick = alwaysontopChkClick
+      end
+      object sendHFSidentifierChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Send HFS identifier'
+        Checked = True
+      end
+      object persistentconnectionsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Persistent connections'
+        Checked = True
+        OnClick = persistentconnectionsChkClick
+      end
+      object DMbrowserTplChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Specific HTML for download managers'
+        Checked = True
+      end
+      object Graphrefreshrate1: TMenuItem
+        Caption = 'Graph refresh rate...'
+        OnClick = Graphrefreshrate1Click
+      end
+      object MIMEtypes1: TMenuItem
+        Caption = 'MIME types...'
+        ImageIndex = 7
+        OnClick = MIMEtypes1Click
+      end
+      object Opendirectlyinbrowser1: TMenuItem
+        Caption = 'Open directly in browser...'
+        OnClick = Opendirectlyinbrowser1Click
+      end
+      object freeLoginChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Accept any login for unprotected resources'
+      end
+      object usecommentasrealmChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Use comment as realm'
+        Checked = True
+      end
+      object Loginrealm1: TMenuItem
+        Caption = 'Login realm...'
+        OnClick = Loginrealm1Click
+      end
+      object HintsfornewcomersChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Hints for newcomers'
+        Checked = True
+      end
+      object compressedbrowsingChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Compressed browsing'
+        Checked = True
+      end
+      object modalOptionsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Modal dialog for options'
+        Checked = True
+      end
+      object useISOdateChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Use ISO date format'
+        OnClick = useISOdateChkClick
+      end
+      object browseUsingLocalhostChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Browse using localhost'
+        Checked = True
+      end
+      object enableNoDefaultChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Enable ~nodefault'
+      end
+      object preventStandbyChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Prevent system standby on network activity'
+      end
+      object Addicons1: TMenuItem
+        Caption = 'Add icons...'
+        OnClick = Addicons1Click
+      end
+      object Changeport1: TMenuItem
+        Caption = 'Change port...'
+        OnClick = Changeport1Click
+      end
+      object autoCommentChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Input comment on file addition'
+      end
+      object Defaultsorting1: TMenuItem
+        Caption = 'Default sorting'
+        object Name1: TMenuItem
+          Caption = 'Name'
+          Checked = True
+          GroupIndex = 1
+          RadioItem = True
+          OnClick = Name1Click
+        end
+        object Extension1: TMenuItem
+          Caption = 'Extension'
+          GroupIndex = 1
+          RadioItem = True
+          OnClick = Extension1Click
+        end
+        object Size1: TMenuItem
+          Caption = 'Size'
+          GroupIndex = 1
+          RadioItem = True
+          OnClick = Size1Click
+        end
+        object Time1: TMenuItem
+          Caption = 'Time'
+          GroupIndex = 1
+          RadioItem = True
+          OnClick = Time1Click
+        end
+        object Hits1: TMenuItem
+          Caption = 'Hits'
+          GroupIndex = 1
+          RadioItem = True
+          OnClick = Hits1Click
+        end
+      end
+      object Editeventscripts1: TMenuItem
+        Caption = 'Edit event scripts...'
+        ShortCut = 32885
+        OnClick = Editeventscripts1Click
+      end
+      object oemTarChk: TMenuItem
+        AutoCheck = True
+        Caption = 'OEM file names for TAR archives'
+      end
+    end
+    object HTMLtemplate1: TMenuItem
+      Caption = 'HTML template'
+      object Edit1: TMenuItem
+        Caption = 'Edit...'
+        ShortCut = 117
+        OnClick = Edit1Click
+      end
+      object Changefile1: TMenuItem
+        Caption = 'Change file...'
+        OnClick = Changefile1Click
+      end
+      object Changeeditor1: TMenuItem
+        Caption = 'Change editor...'
+        OnClick = Changeeditor1Click
+      end
+      object Restoredefault1: TMenuItem
+        Caption = 'Restore default'
+        OnClick = Restoredefault1Click
+      end
+      object enableMacrosChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Enable macros'
+        Checked = True
+        OnClick = enableMacrosChkClick
+      end
+    end
+    object Upload2: TMenuItem
+      Caption = 'Upload'
+      object Howto1: TMenuItem
+        Caption = 'How to?'
+        OnClick = Howto1Click
+      end
+      object N22: TMenuItem
+        Caption = '-'
+      end
+      object deletePartialUploadsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Delete partial uploads'
+      end
+      object Renamepartialuploads1: TMenuItem
+        Caption = 'Rename partial uploads...'
+        OnClick = Renamepartialuploads1Click
+      end
+      object numberFilesOnUploadChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Number files on upload instead of overwriting'
+        Checked = True
+      end
+    end
+    object StartExit1: TMenuItem
+      Caption = 'Start/Exit'
+      object autocopyURLonstartChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Auto-copy URL on start'
+      end
+      object startminimizedChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Start minimized'
+      end
+      object reloadonstartupChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Reload on startup VFS file previously open'
+        Checked = True
+      end
+      object saveTotalsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Save totals'
+        Checked = True
+      end
+      object autosaveVFSchk: TMenuItem
+        AutoCheck = True
+        Caption = 'Auto-save VFS on exit'
+      end
+      object Autoclose1: TMenuItem
+        Caption = 'Auto-close'
+        object Nodownloadtimeout1: TMenuItem
+          Caption = 'No download timeout...'
+          OnClick = Nodownloadtimeout1Click
+        end
+      end
+      object only1instanceChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Only 1 instance'
+        Checked = True
+      end
+      object confirmexitChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Confirm exit'
+      end
+      object findExtOnStartupChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Find external address on startup'
+        OnClick = findExtOnStartupChkClick
+      end
+      object RunHFSwhenWindowsstarts1: TMenuItem
+        Caption = 'Run HFS when Windows starts'
+        OnClick = RunHFSwhenWindowsstarts1Click
+      end
+      object trayInsteadOfQuitChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Minimize to tray clicking the close button [ X ]'
+      end
+      object quitWithoutAskingToSaveChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Force quitting (no dialogs)'
+      end
+    end
+    object VirtualFileSystem1: TMenuItem
+      Caption = 'Virtual File System'
+      object foldersbeforeChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Folders before'
+        Checked = True
+        OnClick = foldersbeforeChkClick
+      end
+      object linksBeforeChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Links before'
+        Checked = True
+      end
+      object usesystemiconsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Use system icons'
+        Checked = True
+      end
+      object loadSingleCommentsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Load single comment files'
+        Checked = True
+      end
+      object supportDescriptionChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Support DESCRIPT.ION'
+        Checked = True
+      end
+      object oemForIonChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Use OEM for DESCRIPT.ION'
+      end
+      object recursiveListingChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Enable recursive listing'
+        Checked = True
+      end
+      object deleteDontAskChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Skip confirmation on deletion'
+      end
+      object listfileswithhiddenattributeChk: TMenuItem
+        AutoCheck = True
+        Caption = 'List files with <hidden> attribute'
+      end
+      object listfileswithsystemattributeChk: TMenuItem
+        AutoCheck = True
+        Caption = 'List files with <system> attribute'
+      end
+      object hideProtectedItemsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'List protected items only for allowed users'
+      end
+      object Iconmasks1: TMenuItem
+        Caption = 'Icon masks...'
+        OnClick = Iconmasks1Click
+      end
+      object Flagfilesaddedrecently1: TMenuItem
+        Caption = 'Flag files added recently...'
+        OnClick = Flagfilesaddedrecently1Click
+      end
+      object Autosaveevery1: TMenuItem
+        Caption = 'Auto-save every...'
+        OnClick = Autosaveevery1Click
+      end
+      object backupSavingChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Backup on save'
+        Checked = True
+      end
+      object Addingfolder1: TMenuItem
+        Caption = 'Adding folder'
+        object askFolderKindChk: TMenuItem
+          Caption = 'Ask'
+          Checked = True
+          GroupIndex = 1
+          RadioItem = True
+          OnClick = askFolderKindChkClick
+        end
+        object defaultToVirtualChk: TMenuItem
+          Caption = 'Default to virtual-folder'
+          GroupIndex = 1
+          RadioItem = True
+          OnClick = defaultToVirtualChkClick
+        end
+        object defaultToRealChk: TMenuItem
+          Caption = 'Default to real-folder'
+          GroupIndex = 1
+          RadioItem = True
+          OnClick = defaultToRealChkClick
+        end
+      end
+      object N18: TMenuItem
+        Caption = '-'
+      end
+      object Resetfileshits1: TMenuItem
+        Caption = 'Reset files hits'
+        OnClick = Resetfileshits1Click
+      end
+      object Resettotals1: TMenuItem
+        Caption = 'Reset totals'
+        OnClick = Resettotals1Click
+      end
+    end
+    object Limits1: TMenuItem
+      Caption = 'Limits'
+      object Speedlimit1: TMenuItem
+        Caption = 'Speed limit (disabled)...'
+        OnClick = Speedlimit1Click
+      end
+      object Speedlimitforsingleaddress1: TMenuItem
+        Caption = 'Speed limit for single address...'
+        OnClick = Speedlimitforsingleaddress1Click
+      end
+      object Pausestreaming1: TMenuItem
+        AutoCheck = True
+        Caption = 'Pause streaming'
+        Hint = 'Sets speed limit temporarily to zero'
+        OnClick = Pausestreaming1Click
+      end
+      object maxDLs1: TMenuItem
+        Caption = 'Max simultaneous downloads...'
+        OnClick = maxDLs1Click
+      end
+      object maxDLsIP1: TMenuItem
+        Caption = 'Max simultaneous downloads from single address...'
+        OnClick = maxDLsIP1Click
+      end
+      object maxIPs1: TMenuItem
+        Caption = 'Max simultaneous addresses...'
+        OnClick = maxIPs1Click
+      end
+      object maxIPsDLing1: TMenuItem
+        Caption = 'Max simultaneous addresses downloading...'
+        OnClick = maxIPsDLing1Click
+      end
+      object Maxconnections1: TMenuItem
+        Caption = 'Max connections...'
+        OnClick = Maxconnections1Click
+      end
+      object Maxconnectionsfromsingleaddress1: TMenuItem
+        Caption = 'Max connections from single address...'
+        OnClick = Maxconnectionsfromsingleaddress1Click
+      end
+      object Connectionsinactivitytimeout1: TMenuItem
+        Caption = 'Connections inactivity timeout...'
+        OnClick = Connectionsinactivitytimeout1Click
+      end
+      object BannedIPaddresses1: TMenuItem
+        Caption = 'Bans...'
+        ImageIndex = 25
+        OnClick = BannedIPaddresses1Click
+      end
+      object Minimumdiskspace1: TMenuItem
+        Caption = 'Minimum disk space...'
+        OnClick = Minimumdiskspace1Click
+      end
+      object preventLeechingChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Prevent leeching (download accelerators)'
+        Checked = True
+      end
+      object Allowedreferer1: TMenuItem
+        Caption = 'Allowed referer...'
+        OnClick = Allowedreferer1Click
+      end
+      object stopSpidersChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Stop spiders'
+        Checked = True
+      end
+    end
+    object Flashtaskbutton1: TMenuItem
+      Caption = 'Flash taskbutton'
+      object onDownloadChk: TMenuItem
+        AutoCheck = True
+        Caption = 'On download'
+        GroupIndex = 1
+        RadioItem = True
+        OnClick = onDownloadChkClick
+      end
+      object onconnectionChk: TMenuItem
+        AutoCheck = True
+        Caption = 'On connection'
+        GroupIndex = 1
+        RadioItem = True
+        OnClick = onconnectionChkClick
+      end
+      object never1: TMenuItem
+        Caption = 'Never'
+        GroupIndex = 1
+        RadioItem = True
+        OnClick = never1Click
+      end
+      object N6: TMenuItem
+        Caption = '-'
+        GroupIndex = 1
+      end
+      object beepChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Also beep'
+        GroupIndex = 1
+      end
+    end
+    object Fingerprints1: TMenuItem
+      Caption = 'Fingerprints'
+      object fingerprintsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Enabled'
+        Checked = True
+      end
+      object saveNewFingerprintsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Save new calculated fingerprints'
+        OnClick = saveNewFingerprintsChkClick
+      end
+      object Createfingerprintonaddition1: TMenuItem
+        Caption = 'Create fingerprint on file addition...'
+        OnClick = Createfingerprintonaddition1Click
+      end
+    end
+    object trayicons1: TMenuItem
+      Caption = 'Tray icons'
+      object MinimizetotrayChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Minimize to tray'
+        Checked = True
+      end
+      object showmaintrayiconChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Show main tray icon'
+        Checked = True
+        OnClick = showmaintrayiconChkClick
+      end
+      object hetrayiconshows1: TMenuItem
+        Caption = 'Main icon shows'
+        object Numberofcurrentconnections1: TMenuItem
+          AutoCheck = True
+          Caption = 'Number of current connections'
+          Checked = True
+          GroupIndex = 1
+          RadioItem = True
+          OnClick = Numberofcurrentconnections1Click
+        end
+        object Numberofloggeddownloads1: TMenuItem
+          AutoCheck = True
+          Caption = 'Number of logged downloads'
+          GroupIndex = 1
+          RadioItem = True
+          OnClick = Numberofloggeddownloads1Click
+        end
+        object Numberofloggeduploads1: TMenuItem
+          Caption = 'Number of logged uploads'
+          GroupIndex = 1
+          OnClick = Numberofloggeduploads1Click
+        end
+        object Numberofloggedhits1: TMenuItem
+          Caption = 'Number of logged hits'
+          GroupIndex = 1
+          OnClick = Numberofloggedhits1Click
+        end
+        object NumberofdifferentIPaddresses1: TMenuItem
+          Caption = 'Number of different IP addresses now connected'
+          GroupIndex = 1
+          OnClick = NumberofdifferentIPaddresses1Click
+        end
+        object NumberofdifferentIPaddresseseverconnected1: TMenuItem
+          Caption = 'Number of different IP addresses ever connected'
+          GroupIndex = 1
+          OnClick = NumberofdifferentIPaddresseseverconnected1Click
+        end
+      end
+      object traymessage1: TMenuItem
+        Caption = 'Tray message...'
+        OnClick = traymessage1Click
+      end
+      object N8: TMenuItem
+        Caption = '-'
+      end
+      object trayfordownloadChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Tray icon for each download'
+        Checked = True
+      end
+    end
+    object IPaddress1: TMenuItem
+      AutoLineReduction = maManual
+      Caption = '&IP address'
+      object hisIPaddressisusedforURLbuilding1: TMenuItem
+        Caption = 'This IP address is used only for URL building'
+        Enabled = False
+      end
+      object N20: TMenuItem
+        Caption = '-'
+      end
+      object N15: TMenuItem
+        Caption = '-'
+      end
+      object Custom1: TMenuItem
+        Caption = 'Custom...'
+        OnClick = Custom1Click
+      end
+      object noPortInUrlChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Don'#39't include port in URL'
+        OnClick = noPortInUrlChkClick
+      end
+      object Findexternaladdress1: TMenuItem
+        Caption = 'Find external address'
+        OnClick = Findexternaladdress1Click
+      end
+      object searchbetteripChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Constantly search for better address'
+        Checked = True
+      end
+    end
+    object Acceptconnectionson1: TMenuItem
+      Caption = 'Accept connections on'
+      object Anyaddress1: TMenuItem
+        Caption = 'Any address'
+        OnClick = Anyaddress1Click
+      end
+    end
+    object DynamicDNSupdater1: TMenuItem
+      Caption = 'Dynamic DNS updater'
+      object CJBtemplate1: TMenuItem
+        Caption = 'CJB wizard...'
+        OnClick = CJBtemplate1Click
+      end
+      object NoIPtemplate1: TMenuItem
+        Caption = 'No-IP wizard...'
+        OnClick = NoIPtemplate1Click
+      end
+      object DynDNStemplate1: TMenuItem
+        Caption = 'DynDNS wizard...'
+        OnClick = DynDNStemplate1Click
+      end
+      object N21: TMenuItem
+        Caption = '-'
+      end
+      object Custom2: TMenuItem
+        Caption = 'Custom...'
+        OnClick = Custom2Click
+      end
+      object Seelastserverresponse1: TMenuItem
+        Caption = 'See last server response...'
+        OnClick = Seelastserverresponse1Click
+      end
+      object Disable1: TMenuItem
+        Caption = 'Disable'
+        OnClick = Disable1Click
+      end
+    end
+    object URLencoding1: TMenuItem
+      Caption = 'URL encoding'
+      object encodeSpacesChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Encode spaces'
+        Checked = True
+      end
+      object encodenonasciiChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Encode non-ASCII characters'
+        Checked = True
+      end
+      object encodePwdUrlChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Unreadable passwords in URLs'
+        Checked = True
+      end
+      object pwdInPagesChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Include password in pages (for download managers)'
+        OnClick = pwdInPagesChkClick
+      end
+      object httpsUrlsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'URLs starting with https instead of http'
+      end
+    end
+    object Debug1: TMenuItem
+      Caption = 'De&bug'
+      object resetOptions1: TMenuItem
+        Caption = 'Temporarily reset options'
+        OnClick = resetOptions1Click
+      end
+      object dumpTrafficChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Dump traffic'
+      end
+      object Showcustomizedoptions1: TMenuItem
+        Caption = 'Show customized options...'
+        OnClick = Showcustomizedoptions1Click
+      end
+      object highSpeedChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Experimental high speed handling'
+        Checked = True
+      end
+      object macrosLogChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Enable macros.log'
+      end
+      object Appendmacroslog1: TMenuItem
+        AutoCheck = True
+        Caption = 'Append macros.log'
+      end
+      object Runscript1: TMenuItem
+        Caption = 'Run script...'
+        OnClick = Runscript1Click
+      end
+      object showMemUsageChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Show memory usage'
+      end
+      object noContentdispositionChk: TMenuItem
+        AutoCheck = True
+        Caption = 'No Content-disposition'
+      end
+    end
+    object Updates1: TMenuItem
+      Caption = 'Updates'
+      object Checkforupdates1: TMenuItem
+        Caption = 'Check for news/updates'
+        OnClick = Checkforupdates1Click
+      end
+      object updateDailyChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Auto check every day'
+        Checked = True
+      end
+      object keepBakUpdatingChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Keep old version'
+        Checked = True
+      end
+      object testerUpdatesChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Updates from official to beta versions'
+      end
+      object updateAutomaticallyChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Update automatically'
+      end
+      object delayUpdateChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Delay update to serve last requests'
+      end
+      object Reverttopreviousversion1: TMenuItem
+        Caption = 'Revert to previous version'
+        OnClick = Reverttopreviousversion1Click
+      end
+    end
+    object Donate1: TMenuItem
+      Caption = 'Donate!'
+      ImageIndex = 39
+      OnClick = Donate1Click
+    end
+    object N1: TMenuItem
+      Caption = '-'
+    end
+    object Addfiles2: TMenuItem
+      Caption = 'Add files...'
+      OnClick = Addfiles1Click
+    end
+    object Addfolder2: TMenuItem
+      Caption = 'Add folder from disk...'
+      OnClick = Addfolder1Click
+    end
+    object Loadfilesystem1: TMenuItem
+      Caption = 'Load file system...'
+      ImageIndex = 8
+      ShortCut = 16463
+      OnClick = Loadfilesystem1Click
+    end
+    object Loadrecentfiles1: TMenuItem
+      Caption = 'Load recent files'
+      Visible = False
+    end
+    object Savefilesystem1: TMenuItem
+      Caption = 'Save file system...'
+      ImageIndex = 18
+      ShortCut = 16467
+      OnClick = Savefilesystem1Click
+    end
+    object Clearfilesystem1: TMenuItem
+      Caption = 'Clear file system'
+      ImageIndex = 21
+      OnClick = Clearfilesystem1Click
+    end
+    object N19: TMenuItem
+      Caption = '-'
+    end
+    object Saveoptions1: TMenuItem
+      Caption = 'Save options'
+      object tofile1: TMenuItem
+        Caption = 'to file'
+        ImageIndex = 18
+        OnClick = tofile1Click
+      end
+      object toregistrycurrentuser1: TMenuItem
+        Caption = 'to registry (current user)'
+        ImageIndex = 20
+        OnClick = tofile1Click
+      end
+      object toregistryallusers1: TMenuItem
+        Caption = 'to registry (all users)'
+        ImageIndex = 20
+        OnClick = tofile1Click
+      end
+      object N4: TMenuItem
+        Caption = '-'
+      end
+      object Clearoptionsandquit1: TMenuItem
+        Caption = 'Clear options and quit'
+        ImageIndex = 21
+        OnClick = Clearoptionsandquit1click
+      end
+      object N10: TMenuItem
+        Caption = '-'
+      end
+      object autoSaveOptionsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Auto-save options'
+        Checked = True
+      end
+    end
+    object N12: TMenuItem
+      Caption = '-'
+    end
+    object Help1: TMenuItem
+      Caption = 'Help'
+      Default = True
+      object Introduction1: TMenuItem
+        Caption = 'Introduction'
+        OnClick = Introduction1Click
+      end
+      object Guide1: TMenuItem
+        Caption = 'Full Guide'
+        OnClick = Guide1Click
+      end
+      object FAQ1: TMenuItem
+        Caption = 'F.A.Q.'
+        OnClick = FAQ1Click
+      end
+    end
+    object Weblinks1: TMenuItem
+      Caption = 'Web links'
+      object Officialwebsite1: TMenuItem
+        Caption = 'Official website'
+        ImageIndex = 23
+        OnClick = Officialwebsite1Click
+      end
+      object Forum1: TMenuItem
+        Caption = 'Forum'
+        OnClick = Forum1Click
+      end
+      object License1: TMenuItem
+        Caption = 'License'
+        OnClick = License1Click
+      end
+    end
+    object UninstallHFS1: TMenuItem
+      Caption = 'Uninstall HFS'
+      OnClick = UninstallHFS1Click
+    end
+    object About1: TMenuItem
+      Caption = 'About...'
+      ImageIndex = 10
+      OnClick = About1Click
+    end
+    object N13: TMenuItem
+      Caption = '-'
+    end
+    object SwitchON1: TMenuItem
+      Caption = 'Switch ON'
+      ImageIndex = 4
+      ShortCut = 115
+      OnClick = SwitchON1Click
+    end
+    object Restore1: TMenuItem
+      Caption = 'Restore'
+      OnClick = Restore1Click
+    end
+    object Exit1: TMenuItem
+      Caption = 'Exit'
+      OnClick = Exit1Click
+    end
+  end
+  object connmenu: TPopupMenu
+    Images = images
+    OnPopup = connmenuPopup
+    Left = 248
+    Top = 320
+    object Kickconnection1: TMenuItem
+      Caption = 'Kick connection'
+      OnClick = Kickconnection1Click
+    end
+    object KickIPaddress1: TMenuItem
+      Caption = 'Kick IP address'
+      OnClick = KickIPaddress1Click
+    end
+    object Kickallconnections1: TMenuItem
+      Caption = 'Kick all connections'
+      OnClick = Kickallconnections1Click
+    end
+    object Kickidleconnections1: TMenuItem
+      Caption = 'Kick idle connections'
+      OnClick = Kickidleconnections1Click
+    end
+    object BanIPaddress1: TMenuItem
+      Caption = 'Ban IP address'
+      ImageIndex = 25
+      OnClick = BanIPaddress1Click
+    end
+    object Pause1: TMenuItem
+      Caption = 'Pause (download-only)'
+      OnClick = Pause1Click
+    end
+    object N2: TMenuItem
+      Caption = '-'
+    end
+    object Viewhttprequest1: TMenuItem
+      Caption = 'View http request'
+      OnClick = Viewhttprequest1Click
+    end
+    object leavedisconnectedconnectionsChk: TMenuItem
+      AutoCheck = True
+      Caption = 'Leave disconnected connections'
+      OnClick = leavedisconnectedconnectionsChkClick
+    end
+    object trayiconforeachdownload1: TMenuItem
+      Caption = 'Tray icon for each download'
+      Checked = True
+      OnClick = trayiconforeachdownload1Click
+    end
+  end
+  object timer: TTimer
+    Enabled = False
+    Interval = 100
+    OnTimer = timerEvent
+    Left = 48
+    Top = 112
+  end
+  object appEvents: TApplicationEvents
+    OnMinimize = appEventsMinimize
+    OnRestore = appEventsRestore
+    OnShowHint = appEventsShowHint
+    Left = 592
+  end
+  object logmenu: TPopupMenu
+    Images = images
+    OnPopup = logmenuPopup
+    Left = 352
+    Top = 159
+    object Logwhat1: TMenuItem
+      Caption = 'Log what'
+      object LogtimeChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Time'
+        Checked = True
+      end
+      object LogdateChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Date'
+      end
+      object N9: TMenuItem
+        AutoCheck = True
+        Caption = '-'
+      end
+      object logBrowsingChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Browsing'
+        Checked = True
+      end
+      object LogiconsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Icons'
+      end
+      object logProgressChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Progress'
+      end
+      object logBannedChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Banned'
+      end
+      object logOnlyServedChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Only served requests'
+        Checked = True
+      end
+      object N5: TMenuItem
+        Caption = '-'
+      end
+      object logOtherEventsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Other events'
+        Checked = True
+        Hint = 'Like dynamic dns updating...'
+      end
+      object N16: TMenuItem
+        AutoCheck = True
+        Caption = '-'
+      end
+      object logconnectionsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Connections'
+      end
+      object logDisconnectionsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Disconnections'
+      end
+      object logRequestsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Requests'
+        Checked = True
+      end
+      object DumprequestsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Requests dump'
+      end
+      object logRepliesChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Replies'
+      end
+      object logFulldownloadsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Full downloads'
+        Checked = True
+      end
+      object logUploadsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Uploads'
+        Checked = True
+      end
+      object logDeletionsChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Deletions'
+        Checked = True
+      end
+      object logBytesreceivedChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Bytes received'
+      end
+      object logBytessentChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Bytes sent'
+      end
+      object logServerstartChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Server start'
+      end
+      object logServerstopChk: TMenuItem
+        AutoCheck = True
+        Caption = 'Server stop'
+      end
+    end
+    object logOnVideoChk: TMenuItem
+      AutoCheck = True
+      Caption = 'Log to screen'
+      Checked = True
+    end
+    object Logfile1: TMenuItem
+      Caption = 'Log to file...'
+      OnClick = Logfile1Click
+    end
+    object Maxlinesonscreen1: TMenuItem
+      Caption = 'Max lines on screen...'
+      OnClick = Maxlinesonscreen1Click
+    end
+    object Apachelogfileformat1: TMenuItem
+      Caption = 'Apache log file format...'
+      OnClick = Apachelogfileformat1Click
+    end
+    object Donotlogaddress1: TMenuItem
+      Caption = 'Do not log address...'
+      OnClick = Donotlogaddress1Click
+    end
+    object Dontlogsomefiles1: TMenuItem
+      Caption = 'Do not log some files...'
+      OnClick = Dontlogsomefiles1Click
+    end
+    object Address2name1: TMenuItem
+      Caption = 'Assign name to address...'
+      OnClick = Address2name1Click
+    end
+    object Font1: TMenuItem
+      Caption = 'Font...'
+      OnClick = Font1Click
+    end
+    object tabOnLogFileChk: TMenuItem
+      AutoCheck = True
+      Caption = 'Tabbed instead of multi-line for the log file'
+    end
+    object N3: TMenuItem
+      Caption = '-'
+    end
+    object Readonly1: TMenuItem
+      Caption = 'Read-only'
+      OnClick = Readonly1Click
+    end
+    object Banthisaddress1: TMenuItem
+      Caption = 'Ban this address'
+      ImageIndex = 11
+      OnClick = Banthisaddress1Click
+    end
+    object Copy1: TMenuItem
+      Caption = 'Copy'
+      ImageIndex = 16
+      OnClick = Copy1Click
+    end
+    object Clear1: TMenuItem
+      Caption = 'Clear'
+      ImageIndex = 21
+      OnClick = Clear1Click
+    end
+    object Clearandresettotals1: TMenuItem
+      Caption = 'Clear and reset totals'
+      OnClick = Clearandresettotals1Click
+    end
+    object Save1: TMenuItem
+      Caption = 'Save'
+      ImageIndex = 18
+      OnClick = Save1Click
+    end
+    object Saveas1: TMenuItem
+      Caption = 'Save as...'
+      ImageIndex = 18
+      OnClick = Saveas1Click
+    end
+    object N24: TMenuItem
+      Caption = '-'
+    end
+    object Addresseseverconnected1: TMenuItem
+      Caption = 'Addresses ever connected...'
+      OnClick = Addresseseverconnected1Click
+    end
+  end
+  object numbers: TImageList
+    DrawingStyle = dsTransparent
+    Height = 6
+    Width = 4
+    Left = 216
+    Top = 152
+    Bitmap = {
+      494C01010B000E00040004000600FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000100000001200000001002000000000008004
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000010000000120000000100010000000000480000000000000000000000
+      000000000000000000000000FFFFFF0011700000555000005DB0000011B00000
+      5550000011D00000D11B0000D55B00001D110000517B0000575D000091110000
+      1B1100005B7500005BBD00005BDB0000535D00001B1100000000000000000000
+      0000000000000000000000000000}
+  end
+  object graphMenu: TPopupMenu
+    Left = 504
+    Top = 48
+    object Reset1: TMenuItem
+      Caption = 'Reset'
+      OnClick = Reset1Click
+    end
+    object Hide: TMenuItem
+      Caption = 'Hide'
+      OnClick = HideClick
+    end
+  end
+end
diff --git a/main.pas b/main.pas
new file mode 100644
index 0000000..5d738dd
--- /dev/null
+++ b/main.pas
@@ -0,0 +1,12371 @@
+{
+Copyright (C) 2002-2014  Massimo Melina (www.rejetto.com)
+
+This file is part of HFS ~ HTTP File Server.
+
+    HFS is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    HFS is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with HFS; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+}
+{$A+,B-,C+,E-,F-,G+,H+,I-,J-,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,X+,Y+,Z1}
+{$INCLUDE defs.inc }
+
+unit main;
+
+interface
+
+uses
+  // delphi libs
+  zlib, Windows, Messages, SysUtils, Forms, Menus, Graphics, Controls, ComCtrls, Dialogs, math,
+  registry, ExtCtrls, shellapi, ImgList, ToolWin, StdCtrls, strutils, AppEvnts, types,
+  winsock, clipbrd, shlobj, activex, Buttons, FileCtrl, dateutils, iniFiles, Classes,
+  // 3rd part libs. ensure you have all of these, the same version reported in dev-notes.txt
+  OverbyteIcsWSocket, OverbyteIcsHttpProt, OverbyteicsMD5, GIFimage, regexpr,
+  // rejetto libs
+  HSlib, traylib, monoLib, progFrmLib, classesLib, System.ImageList;
+
+const
+  VERSION = '2.4rc5';
+  VERSION_BUILD = '302';
+  VERSION_STABLE = {$IFDEF STABLE } TRUE {$ELSE} FALSE {$ENDIF};
+  CURRENT_VFS_FORMAT :integer = 1;
+  CRLF = #13#10;
+  TAB = #9;
+  BAK_EXT = '.bak';
+  CORRUPTED_EXT = '.corrupted';
+  COMMENT_FILE_EXT = '.comment';
+  VFS_FILE_IDENTIFIER = 'HFS.VFS';
+  CFG_KEY = 'Software\rejetto\HFS';
+  CFG_FILE = 'hfs.ini';
+  TPL_FILE = 'hfs.tpl';
+  IPS_FILE = 'hfs.ips.txt';
+  VFS_TEMP_FILE = '~temp.vfs';
+  HFS_HTTP_AGENT = 'HFS/'+VERSION;
+  COMMENTS_FILE = 'hfs.comments.txt';
+  DESCRIPT_ION = 'descript.ion';
+  DIFF_TPL_FILE = 'hfs.diff.tpl';
+  FILELIST_TPL_FILE = 'hfs.filelist.tpl';
+  EVENTSCRIPTS_FILE = 'hfs.events';
+  MACROS_LOG_FILE = 'macros-log.html';
+  PREVIOUS_VERSION = 'hfs.old.exe';
+  SESSION_COOKIE = 'HFS_SID_';
+  PROTECTED_FILES_MASK = 'hfs.*;*.htm*;descript.ion;*.comment;*.md5;*.corrupted;*.lnk';
+  G_VAR_PREFIX = '#';
+  HOURS = 24;
+  MINUTES = HOURS*60;
+  SECONDS = MINUTES*60; // Tdatetime * SECONDS = time in seconds
+  ETA_FRAME = 5; // time frame for ETA (in seconds)
+  DOWNLOAD_MIN_REFRESH_TIME :Tdatetime = 1/(5*SECONDS); // 5 Hz
+  BYTES_GROUPING_THRESHOLD :Tdatetime = 1/SECONDS; // group bytes in log
+  IPS_THRESHOLD = 50;  // used to avoid an external file for few IPs (ipsEverConnected list)
+  STATUSBAR_REFRESH = 10; // tenth of second
+  MAX_RECENT_FILES = 5;
+  MANY_ITEMS_THRESHOLD = 1000;
+  KILO = 1024;
+  MEGA = KILO*KILO;
+  COMPRESSION_THRESHOLD = 10*KILO; // if more than X bytes, VFS files are compressed
+  STARTING_SNDBUF = 32000;
+  YESNO :array [boolean] of string=('no','yes');
+  DEFAULT_MIME = 'application/octet-stream';
+  IP_SERVICES_URL = 'http://hfsservice.rejetto.com/ipservices.php';
+  SELF_TEST_URL = 'http://hfstest.rejetto.com/';
+
+  USER_ANONYMOUS = '@anonymous';
+  USER_ANYONE = '@anyone';
+  USER_ANY_ACCOUNT = '@any account';
+
+  ALWAYS_ON_WEB_SERVER = 'google.com';
+  ADDRESS_COLOR = clGreen;
+  BG_ERROR = $BBBBFF;
+  ENCODED_TABLE_HEADER = 'this is an encoded table'+CRLF;
+
+  DEFAULT_MIME_TYPES: array [0..21] of string = (
+    '*.htm;*.html', 'text/html',
+    '*.jpg;*.jpeg;*.jpe', 'image/jpeg',
+    '*.gif', 'image/gif',
+    '*.png', 'image/png',
+    '*.bmp', 'image/bmp',
+    '*.ico', 'image/x-icon',
+    '*.mpeg;*.mpg;*.mpe', 'video/mpeg',
+    '*.avi', 'video/x-msvideo',
+    '*.txt', 'text/plain',
+    '*.css', 'text/css',
+    '*.js',  'text/javascript'
+  );
+
+  ICONMENU_NEW = 1;
+
+  ICON_UNIT = 31;
+  ICON_ROOT = 1;
+  ICON_LINK = 4;
+  ICON_FILE = 37;
+  ICON_FOLDER = 6;
+  ICON_REAL_FOLDER = 19;
+  ICON_LOCK = 12;
+  ICON_EASY = 29;
+  ICON_EXPERT = 35;
+
+  USER_ICON_MASKS_OFS = 10000;
+
+resourcestring
+  S_PORT_LABEL = 'Port: %s';
+  S_PORT_ANY = 'any';
+  DISABLED = 'disabled';
+  // messages
+  MSG_UNPROTECTED_LINKS = 'Links are NOT actually protected.'
+    +#13'The feature is there to be used with the "list protected items only..." option.'
+    +#13'Continue?';
+  MSG_SAME_NAME ='An item with the same name is already present in this folder.'
+    +#13'Continue?';
+  MSG_OPTIONS_SAVED = 'Options saved';
+  MSG_SOME_LOCKED = 'Some items were not affected because locked';
+  MSG_ITEM_LOCKED = 'The item is locked';
+  MSG_INVALID_VALUE = 'Invalid value';
+  MSG_EMPTY_NO_LIMIT = 'Leave blank to get no limits.';
+  MSG_ADDRESSES_EXCEED = 'The following addresses exceed the limit:'#13'%s';
+  MSG_NO_TEMP = 'Cannot save temporary file';
+  MSG_ERROR_REGISTRY = 'Can''t write to registry.'
+    +#13'You may lack necessary rights.';
+  MSG_MANY_ITEMS = 'You are putting many files.'
+    +#13'Try using real folders instead of virtual folders.'
+    +#13'Read documentation or ask on the forum for help.';
+  MSG_ADD_TO_HFS = '"Add to HFS" has been added to your Window''s Explorer right-click menu.';
+  MSG_SINGLE_INSTANCE = 'Sorry, this feature only works with the "Only 1 instance" option enabled.'
+    +#13#13'You can find this option under Menu -> Start/Exit'
+    +#13'(only in expert mode)';
+  MSG_ENABLED =   'Option enabled';
+  MSG_DISABLED = 'Option disabled';
+  MSG_COMM_ERROR = 'Network error. Request failed.';
+  MSG_DDNS_badauth='invalid user/password';
+  MSG_DDNS_notfqdn='incomplete hostname, required form aaa.bbb.com';
+  MSG_DDNS_nohost='specified hostname does not exist';
+  MSG_DDNS_notyours='specified hostname belongs to another username';
+  MSG_DDNS_numhost='too many or too few hosts found';
+  MSG_DDNS_abuse='specified hostname is blocked for update abuse';
+  MSG_DDNS_dnserr='server error';
+  MSG_DDNS_911='server error';
+  MSG_DDNS_notdonator='an option specified requires payment';
+  MSG_DDNS_badagent='banned client';
+
+type
+  Pboolean = ^boolean;
+
+  TfileAttribute = (
+    FA_FOLDER,       // folder kind
+    FA_VIRTUAL,      // does not exist on disc
+    FA_ROOT,         // only the root item has this attribute
+    FA_BROWSABLE,    // permit listing of this folder (not recursive, only dir)
+    FA_HIDDEN,       // hidden iterms won't be shown to browsers (not recursive)
+    { no more used attributes have to stay for backward compatibility with
+    { VFS files }
+    FA_NO_MORE_USED1,
+  	FA_NO_MORE_USED2,
+    FA_TEMP,            // this is a temporary item and is not part of the VFS
+    FA_HIDDENTREE,      // recursive hidden
+    FA_LINK,            // redirection
+    FA_UNIT,            // logical unit (drive)
+    FA_VIS_ONLY_ANON,   // visible only to anonymous users [no more used]
+    FA_DL_FORBIDDEN,    // forbid download (not recursive)
+    FA_HIDE_EMPTY_FOLDERS,  // (recursive)
+    FA_DONT_COUNT_AS_DL,    // (not recursive)
+    FA_SOLVED_LNK,
+    FA_HIDE_EXT,       // (recursive)
+    FA_DONT_LOG,       // (recursive)
+    FA_ARCHIVABLE      // (recursive)
+  );
+  TfileAttributes = set of TfileAttribute;
+
+  Tfile = class;
+  TconnData = class;
+
+  TfileCallbackReturn = set of (FCB_NO_DEEPER, FCB_DELETE, FCB_RECALL_AFTER_CHILDREN); // use FCB_* flags
+
+  // returning FALSE stops recursion
+  TfileCallback = function(f:Tfile; childrenDone:boolean; par, par2:integer):TfileCallbackReturn;
+
+  TfileAction = (FA_ACCESS, FA_DELETE, FA_UPLOAD);
+
+  Tfile = class (Tobject)
+  private
+    locked: boolean;
+    FDLcount: integer;
+    function  getParent():Tfile;
+    function  getDLcount():integer;
+    procedure setDLcount(i:integer);
+    function  getDLcountRecursive():integer;
+  public
+    name, comment, user, pwd, lnk: string;
+    resource: string;  // link to physical file/folder; URL for links
+    flags: TfileAttributes;
+    node: Ttreenode;
+    size: int64; // -1 is NULL
+    atime,            // when was this file added to the VFS ?
+    mtime: Tdatetime; // modified time, read from disk
+    icon: integer;
+    accounts: array [TfileAction] of TStringDynArray;
+    filesFilter, foldersFilter, realm, diffTpl,
+    defaultFileMask, dontCountAsDownloadMask, uploadFilterMask: string;
+    constructor create(fullpath:string);
+    constructor createTemp(fullpath:string);
+    constructor createVirtualFolder(name:string);
+    constructor createLink(name:string);
+    property  parent:Tfile read getParent;
+    property  DLcount:integer read getDLcount write setDLcount;
+    function  toggle(att:TfileAttribute):boolean;
+    function  isFolder():boolean; inline;
+    function  isFile():boolean; inline;
+    function  isFileOrFolder():boolean; inline;
+    function  isRealFolder():boolean; inline;
+    function  isVirtualFolder():boolean; inline;
+    function  isEmptyFolder(cd:TconnData=NIL):boolean;
+    function  isRoot():boolean; inline;
+    function  isLink():boolean; inline;
+    function  isTemp():boolean; inline;
+    function  isNew():boolean;
+    function  isDLforbidden():boolean;
+    function  url(fullEncode:boolean=FALSE):string;
+    function  relativeURL(fullEncode:boolean=FALSE):string;
+    function  pathTill(root:Tfile=NIL; delim:char='\'):string;
+    function  parentURL():string;
+		function  fullURL(userpwd:string=''; ip:string=''):string;
+    procedure setupImage(newIcon:integer); overload;
+    procedure setupImage(); overload;
+    function  getAccountsFor(action:TfileAction; specialUsernames:boolean=FALSE; outInherited:Pboolean=NIL):TstringDynArray;
+    function  accessFor(username, password:string):boolean; overload;
+    function  accessFor(cd:TconnData):boolean; overload;
+    function  hasRecursive(attributes: TfileAttributes; orInsteadOfAnd:boolean=FALSE; outInherited:Pboolean=NIL):boolean; overload;
+    function  hasRecursive(attribute: TfileAttribute; outInherited:Pboolean=NIL):boolean; overload;
+    function  getSystemIcon():integer;
+    function  getIconForTreeview():integer;
+    function  getShownRealm():string;
+    function  getFolder():string;
+    function  getRecursiveFileMask():string;
+    function  shouldCountAsDownload():boolean;
+    function  getDefaultFile():Tfile;
+    procedure recursiveApply(callback:TfileCallback; par:integer=0; par2:integer=0);
+    procedure getFiltersRecursively(var files,folders:string);
+    function  diskfree():int64;
+    function  same(f:Tfile):boolean;
+    procedure setName(name:string);
+    procedure setResource(res:string);
+    function  getDynamicComment(skipParent:boolean=FALSE):string;
+    procedure setDynamicComment(cmt:string);
+    function  getRecursiveDiffTplAsStr(outInherited:Pboolean=NIL; outFromDisk:Pboolean=NIL):string;
+    // locking prevents modification of all its ancestors and descendants
+    procedure lock();
+    procedure unlock();
+    function  isLocked():boolean;
+    end; // Tfile
+
+  Paccount = ^Taccount;
+	Taccount = record   // user/pass profile
+    user, pwd, redir, notes: string;
+    wasUser: string; // used in user renaming panel
+    enabled, noLimits, group: boolean;
+    link: TStringDynArray;
+    end;
+  Taccounts = array of Taccount;
+
+  TfilterMethod = function(self:Tobject):boolean;
+
+  Thelp = ( HLP_NONE, HLP_TPL );
+
+  TdownloadingWhat = ( DW_UNK, DW_FILE, DW_FOLDERPAGE, DW_ICON, DW_ERROR, DW_ARCHIVE );
+
+  TpreReply =  (PR_NONE, PR_BAN, PR_OVERLOAD);
+
+  TuploadResult = record
+    fn, reason:string;
+    speed:integer;
+    size: int64;
+    end;
+
+  TconnData = class  // data associated to a client connection
+  private
+    FlastFile: Tfile;
+    procedure setLastFile(f:Tfile);
+  public
+    address: string;   // this is address shown in the log, and it is not necessarily the same as the socket address
+    averageSpeed: real;   { calculated on disconnection as bytesSent/totalTime. it is calculated also while
+                            sending and it is different from conn.speed because conn.speed is average speed
+                            in the last second, while averageSpeed is calculated on ETA_FRAME seconds }
+    time: Tdatetime;  // connection start time
+    requestTime: Tdatetime; // last request start time
+    tray: TmyTrayicon;
+    tray_ico: Ticon;
+    lastFN: string;
+    countAsDownload: boolean; // cache the value for the Tfile method
+    { cache User-Agent because often retrieved by connBox.
+    { this value is filled after the http request is complete (HE_REQUESTED),
+    { or before, during the request as we get a file (HE_POST_FILE). }
+    agent: string;
+    conn: ThttpConn;
+    account: Paccount;
+    usr, pwd: string;
+    acceptedCredentials: boolean;
+    limiter: TspeedLimiter;
+    tpl: Ttpl;
+    deleting: boolean;      // don't use, this item is about to be discarded
+    nextDloadScreenUpdate: Tdatetime; // avoid too fast updating during download
+    disconnectReason: string;
+    error: string;         // error details
+    eta: record
+      idx: integer;   // estimation time (seconds)
+      data: array [0..ETA_FRAME-1] of real;  // accumulates speed data
+      result: Tdatetime;
+      end;
+    downloadingWhat: TdownloadingWhat;
+    preReply: TpreReply;
+    banReason: string;
+    lastBytesSent, lastBytesGot: int64; // used for print to log only the recent amount of bytes
+    lastActivityTime, fileXferStart: Tdatetime;
+    uploadSrc, uploadDest: string;
+    uploadFailed: string; // reason (empty on success)
+    uploadResults: array of TuploadResult;
+    disconnectAfterReply, logLaterInApache, dontLog, fullDLlogged: boolean;
+    bytesGotGrouping, bytesSentGrouping: record
+      bytes: integer;
+      since: Tdatetime;
+      end;
+    sessionID: string;
+    session,
+    vars, // defined by {.set.}
+    urlvars,  // as $_GET in php
+    postVars  // as $_POST in php
+      : THashedStringList;
+    tplCounters: TstringToIntHash;
+    workaroundForIEutf8: (toDetect, yes, no);
+    { here we put just a pointer because the file type would triplicate
+    { the size of this record, while it is NIL for most connections }
+    f: ^file; // uploading file handle
+
+    property lastFile:Tfile read FlastFile write setLastFile;
+    constructor create(conn:ThttpConn);
+    destructor Destroy; override;
+    function sessionGet(k:string):string;
+    procedure sessionSet(k, v:string);
+    procedure disconnect(reason:string);
+    end; // Tconndata
+
+  Tautosave = record
+    every, minimum: integer; // in seconds
+    last: Tdatetime;
+    menu: Tmenuitem;
+    end;
+
+  TtreeNodeDynArray = array of TtreeNode;
+
+  TstringIntPairs = array of record
+    str:string;
+    int:integer;
+    end;
+    
+  TmainFrm = class(TForm)
+    filemenu: TPopupMenu;
+    newfolder1: TMenuItem;
+    images: TImageList;
+    Remove1: TMenuItem;
+    topToolbar: TToolBar;
+    startBtn: TToolButton;
+    ToolButton1: TToolButton;
+    menuBtn: TToolButton;
+    menu: TPopupMenu;
+    About1: TMenuItem;
+    connmenu: TPopupMenu;
+    Kickconnection1: TMenuItem;
+    KickIPaddress1: TMenuItem;
+    Kickallconnections1: TMenuItem;
+    Viewhttprequest1: TMenuItem;
+    Saveoptions1: TMenuItem;
+    toregistrycurrentuser1: TMenuItem;
+    tofile1: TMenuItem;
+    toregistryallusers1: TMenuItem;
+    timer: TTimer;
+    urlToolbar: TToolBar;
+    IPaddress1: TMenuItem;
+    AutocopyURLonadditionChk: TMenuItem;
+    foldersbeforeChk: TMenuItem;
+    Browseit1: TMenuItem;
+    Openit1: TMenuItem;
+    appEvents: TApplicationEvents;
+    logmenu: TPopupMenu;
+    DumprequestsChk: TMenuItem;
+    CopyURL1: TMenuItem;
+    Readonly1: TMenuItem;
+    Clear1: TMenuItem;
+    Copy1: TMenuItem;
+    N3: TMenuItem;
+    LogtimeChk: TMenuItem;
+    LogdateChk: TMenuItem;
+    Saveas1: TMenuItem;
+    Save1: TMenuItem;
+    N4: TMenuItem;
+    connPnl: TPanel;
+    MinimizetotrayChk: TMenuItem;
+    Restore1: TMenuItem;
+    Numberofcurrentconnections1: TMenuItem;
+    Numberofloggeddownloads1: TMenuItem;
+    Numberofloggedhits1: TMenuItem;
+    Exit1: TMenuItem;
+    Shellcontextmenu1: TMenuItem;
+    Flashtaskbutton1: TMenuItem;
+    onDownloadChk: TMenuItem;
+    onconnectionChk: TMenuItem;
+    never1: TMenuItem;
+    N6: TMenuItem;
+    startminimizedChk: TMenuItem;
+    N7: TMenuItem;
+    trayicons1: TMenuItem;
+    trayfordownloadChk: TMenuItem;
+    N8: TMenuItem;
+    leavedisconnectedconnectionsChk: TMenuItem;
+    Loadfilesystem1: TMenuItem;
+    Savefilesystem1: TMenuItem;
+    N1: TMenuItem;
+    N12: TMenuItem;
+    usesystemiconsChk: TMenuItem;
+    N13: TMenuItem;
+    Officialwebsite1: TMenuItem;
+    numbers: TImageList;
+    showmaintrayiconChk: TMenuItem;
+    Speedlimit1: TMenuItem;
+    N10: TMenuItem;
+    Limits1: TMenuItem;
+    Maxconnections1: TMenuItem;
+    Maxconnectionsfromsingleaddress1: TMenuItem;
+    Weblinks1: TMenuItem;
+    Forum1: TMenuItem;
+    FAQ1: TMenuItem;
+    License1: TMenuItem;
+    Paste1: TMenuItem;
+    Addfiles1: TMenuItem;
+    Addfolder1: TMenuItem;
+    graphSplitter: TSplitter;
+    Graphrefreshrate1: TMenuItem;
+    Pausestreaming1: TMenuItem;
+    Setuserpass1: TMenuItem;
+    BanIPaddress1: TMenuItem;
+    N2: TMenuItem;
+    BannedIPaddresses1: TMenuItem;
+    Loadrecentfiles1: TMenuItem;
+    alwaysontopChk: TMenuItem;
+    Checkforupdates1: TMenuItem;
+    Rename1: TMenuItem;
+    Otheroptions1: TMenuItem;
+    Nodownloadtimeout1: TMenuItem;
+    Autoclose1: TMenuItem;
+    Showbandwidthgraph1: TMenuItem;
+    Pause1: TMenuItem;
+    reloadonstartupChk: TMenuItem;
+    MIMEtypes1: TMenuItem;
+    autocopyURLonstartChk: TMenuItem;
+    Accounts1: TMenuItem;
+    encodenonasciiChk: TMenuItem;
+    encodeSpacesChk: TMenuItem;
+    URLencoding1: TMenuItem;
+    traymessage1: TMenuItem;
+    DMbrowserTplChk: TMenuItem;
+    Guide1: TMenuItem;
+    autosaveVFSchk: TMenuItem;
+    sendHFSidentifierChk: TMenuItem;
+    persistentconnectionsChk: TMenuItem;
+    Logfile1: TMenuItem;
+    VirtualFileSystem1: TMenuItem;
+    listfileswithhiddenattributeChk: TMenuItem;
+    listfileswithsystemattributeChk: TMenuItem;
+    hideProtectedItemsChk: TMenuItem;
+    StartExit1: TMenuItem;
+    Font1: TMenuItem;
+    Newlink1: TMenuItem;
+    SetURL1: TMenuItem;
+    usecommentasrealmChk: TMenuItem;
+    Resetuserpass1: TMenuItem;
+    Switchtovirtual1: TMenuItem;
+    LogiconsChk: TMenuItem;
+    Loginrealm1: TMenuItem;
+    Logwhat1: TMenuItem;
+    N9: TMenuItem;
+    N16: TMenuItem;
+    logconnectionsChk: TMenuItem;
+    logDisconnectionsChk: TMenuItem;
+    logRequestsChk: TMenuItem;
+    logRepliesChk: TMenuItem;
+    logFulldownloadsChk: TMenuItem;
+    logBytesreceivedChk: TMenuItem;
+    logBytessentChk: TMenuItem;
+    logServerstartChk: TMenuItem;
+    logServerstopChk: TMenuItem;
+    logBrowsingChk: TMenuItem;
+    Help1: TMenuItem;
+    Introduction1: TMenuItem;
+    N18: TMenuItem;
+    Resetfileshits1: TMenuItem;
+    Kickidleconnections1: TMenuItem;
+    Connectionsinactivitytimeout1: TMenuItem;
+    logOnVideoChk: TMenuItem;
+    N19: TMenuItem;
+    Clearfilesystem1: TMenuItem;
+    HintsfornewcomersChk: TMenuItem;
+    logUploadsChk: TMenuItem;
+    only1instanceChk: TMenuItem;
+    compressedbrowsingChk: TMenuItem;
+    Numberofloggeduploads1: TMenuItem;
+    logProgressChk: TMenuItem;
+    Flagfilesaddedrecently1: TMenuItem;
+    Flagasnew1: TMenuItem;
+    confirmexitChk: TMenuItem;
+    Donotlogaddress1: TMenuItem;
+    N15: TMenuItem;
+    Custom1: TMenuItem;
+    noPortInUrlChk: TMenuItem;
+    saveTotalsChk: TMenuItem;
+    Findexternaladdress1: TMenuItem;
+    findExtOnStartupChk: TMenuItem;
+    DynamicDNSupdater1: TMenuItem;
+    Custom2: TMenuItem;
+    N21: TMenuItem;
+    CJBtemplate1: TMenuItem;
+    NoIPtemplate1: TMenuItem;
+    DynDNStemplate1: TMenuItem;
+    searchbetteripChk: TMenuItem;
+    deletePartialUploadsChk: TMenuItem;
+    Minimumdiskspace1: TMenuItem;
+    Banthisaddress1: TMenuItem;
+    modalOptionsChk: TMenuItem;
+    Address2name1: TMenuItem;
+    Resetnewflag1: TMenuItem;
+    beepChk: TMenuItem;
+    Renamepartialuploads1: TMenuItem;
+    SelfTest1: TMenuItem;
+    Opendirectlyinbrowser1: TMenuItem;
+    maxDLs1: TMenuItem;
+    Editresource1: TMenuItem;
+    logBannedChk: TMenuItem;
+    ToolButton2: TToolButton;
+    modeBtn: TToolButton;
+    Addfiles2: TMenuItem;
+    Addfolder2: TMenuItem;
+    Clearoptionsandquit1: TMenuItem;
+    numberFilesOnUploadChk: TMenuItem;
+    Upload2: TMenuItem;
+    UninstallHFS1: TMenuItem;
+    maxIPs1: TMenuItem;
+    maxIPsDLing1: TMenuItem;
+    keepBakUpdatingChk: TMenuItem;
+    Autosaveevery1: TMenuItem;
+    autoSaveOptionsChk: TMenuItem;
+    Apachelogfileformat1: TMenuItem;
+    SwitchON1: TMenuItem;
+    loadSingleCommentsChk: TMenuItem;
+    Bindroottorealfolder1: TMenuItem;
+    Unbindroot1: TMenuItem;
+    Switchtorealfolder1: TMenuItem;
+    abortBtn: TToolButton;
+    Seelastserverresponse1: TMenuItem;
+    N5: TMenuItem;
+    logOtherEventsChk: TMenuItem;
+    supportDescriptionChk: TMenuItem;
+    Showcustomizedoptions1: TMenuItem;
+    useISOdateChk: TMenuItem;
+    browseUsingLocalhostChk: TMenuItem;
+    Addingfolder1: TMenuItem;
+    askFolderKindChk: TMenuItem;
+    defaultToVirtualChk: TMenuItem;
+    defaultToRealChk: TMenuItem;
+    enableNoDefaultChk: TMenuItem;
+    RunHFSwhenWindowsstarts1: TMenuItem;
+    trayInsteadOfQuitChk: TMenuItem;
+    Addicons1: TMenuItem;
+    Iconmasks1: TMenuItem;
+    CopyURLwithpassword1: TMenuItem;
+    CopyURLwithdifferentaddress1: TMenuItem;
+    hisIPaddressisusedforURLbuilding1: TMenuItem;
+    N20: TMenuItem;
+    Acceptconnectionson1: TMenuItem;
+    Anyaddress1: TMenuItem;
+    autoCommentChk: TMenuItem;
+    fingerprintsChk: TMenuItem;
+    CopyURLwithfingerprint1: TMenuItem;
+    recursiveListingChk: TMenuItem;
+    Disable1: TMenuItem;
+    logOnlyServedChk: TMenuItem;
+    Fingerprints1: TMenuItem;
+    saveNewFingerprintsChk: TMenuItem;
+    Createfingerprintonaddition1: TMenuItem;
+    encodePwdUrlChk: TMenuItem;
+    pwdInPagesChk: TMenuItem;
+    deleteDontAskChk: TMenuItem;
+    Updates1: TMenuItem;
+    updateDailyChk: TMenuItem;
+    N22: TMenuItem;
+    Howto1: TMenuItem;
+    testerUpdatesChk: TMenuItem;
+    Defaultsorting1: TMenuItem;
+    Name1: TMenuItem;
+    Size1: TMenuItem;
+    Time1: TMenuItem;
+    Hits1: TMenuItem;
+    centralPnl: TPanel;
+    splitV: TSplitter;
+    browseBtn: TToolButton;
+    Resettotals1: TMenuItem;
+    Clearandresettotals1: TMenuItem;
+    Dontlogsomefiles1: TMenuItem;
+    preventLeechingChk: TMenuItem;
+    NumberofdifferentIPaddresses1: TMenuItem;
+    NumberofdifferentIPaddresseseverconnected1: TMenuItem;
+    Addresseseverconnected1: TMenuItem;
+    N24: TMenuItem;
+    Allowedreferer1: TMenuItem;
+    ToolButton4: TToolButton;
+    oemForIonChk: TMenuItem;
+    portBtn: TToolButton;
+    resetOptions1: TMenuItem;
+    quitWithoutAskingToSaveChk: TMenuItem;
+    highSpeedChk: TMenuItem;
+    freeLoginChk: TMenuItem;
+    backupSavingChk: TMenuItem;
+    graphMenu: TPopupMenu;
+    Reset1: TMenuItem;
+    Extension1: TMenuItem;
+    linksBeforeChk: TMenuItem;
+    updateAutomaticallyChk: TMenuItem;
+    stopSpidersChk: TMenuItem;
+    logPnl: TPanel;
+    logBox: TRichEdit;
+    filesPnl: TPanel;
+    filesBox: TTreeView;
+    logTitle: TPanel;
+    filesTitle: TPanel;
+    graphBox: TPaintBox;
+    dumpTrafficChk: TMenuItem;
+    httpsUrlsChk: TMenuItem;
+    Hide: TMenuItem;
+    Speedlimitforsingleaddress1: TMenuItem;
+    macrosLogChk: TMenuItem;
+    Debug1: TMenuItem;
+    Appendmacroslog1: TMenuItem;
+    preventStandbyChk: TMenuItem;
+    titlePnl: TPanel;
+    HTMLtemplate1: TMenuItem;
+    Edit1: TMenuItem;
+    Changefile1: TMenuItem;
+    Changeeditor1: TMenuItem;
+    Restoredefault1: TMenuItem;
+    logToolbar: TPanel;
+    splitH: TSplitter;
+    collapsedPnl: TPanel;
+    expandBtn: TSpeedButton;
+    expandedPnl: TPanel;
+    openLogBtn: TSpeedButton;
+    searchPnl: TPanel;
+    logSearchBox: TLabeledEdit;
+    logUpDown: TUpDown;
+    openFilteredLog: TSpeedButton;
+    collapseBtn: TSpeedButton;
+    copyBtn: TToolButton;
+    urlBox: TEdit;
+    Bevel1: TBevel;
+    enableMacrosChk: TMenuItem;
+    Donate1: TMenuItem;
+    Purge1: TMenuItem;
+    Editeventscripts1: TMenuItem;
+    maxDLsIP1: TMenuItem;
+    Maxlinesonscreen1: TMenuItem;
+    Properties1: TMenuItem;
+    N11: TMenuItem;
+    restoreCfgBtn: TToolButton;
+    N14: TMenuItem;
+    Runscript1: TMenuItem;
+    Changeport1: TMenuItem;
+    logDeletionsChk: TMenuItem;
+    showMemUsageChk: TMenuItem;
+    trayiconforeachdownload1: TMenuItem;
+    tabOnLogFileChk: TMenuItem;
+    noContentdispositionChk: TMenuItem;
+    Defaultpointtoaddfiles1: TMenuItem;
+    switchMode: TMenuItem;
+    sbar: TStatusBar;
+    connBox: TListView;
+    Reverttopreviousversion1: TMenuItem;
+    updateBtn: TToolButton;
+    delayUpdateChk: TMenuItem;
+    oemTarChk: TMenuItem;
+    procedure FormResize(Sender: TObject);
+    procedure filesBoxCollapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean);
+    procedure newfolder1Click(Sender: TObject);
+    procedure filesBoxEditing(Sender: TObject; Node: TTreeNode; var AllowEdit: Boolean);
+    procedure filesBoxEdited(Sender: TObject; Node: TTreeNode; var S: String);
+    procedure Remove1Click(Sender: TObject);
+    procedure startBtnClick(Sender: TObject);
+    procedure filesBoxChange(Sender: TObject; Node: TTreeNode);
+    procedure Kickconnection1Click(Sender: TObject);
+    procedure Kickallconnections1Click(Sender: TObject);
+    procedure KickIPaddress1Click(Sender: TObject);
+    procedure Viewhttprequest1Click(Sender: TObject);
+    procedure connmenuPopup(Sender: TObject);
+    procedure filemenuPopup(Sender: TObject);
+    procedure About1Click(Sender: TObject);
+    procedure timerEvent(Sender: TObject);
+    procedure menuPopup(Sender: TObject);
+    procedure filesBoxDblClick(Sender: TObject);
+    procedure filesBoxMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure filesBoxCompare(Sender: TObject; Node1, Node2: TTreeNode;
+      Data: Integer; var Compare: Integer);
+    procedure foldersbeforeChkClick(Sender: TObject);
+    procedure Browseit1Click(Sender: TObject);
+    procedure Openit1Click(Sender: TObject);
+    procedure splitVMoved(Sender: TObject);
+    procedure appEventsShowHint(var HintStr: String;
+      var CanShow: Boolean; var HintInfo: THintInfo);
+    procedure logmenuPopup(Sender: TObject);
+    procedure Readonly1Click(Sender: TObject);
+    procedure Clear1Click(Sender: TObject);
+    procedure Copy1Click(Sender: TObject);
+    procedure Saveas1Click(Sender: TObject);
+    procedure Save1Click(Sender: TObject);
+    procedure Clearoptionsandquit1click(Sender: TObject);
+    procedure appEventsMinimize(Sender: TObject);
+    procedure appEventsRestore(Sender: TObject);
+    procedure Restore1Click(Sender: TObject);
+    procedure Numberofcurrentconnections1Click(Sender: TObject);
+    procedure Numberofloggeddownloads1Click(Sender: TObject);
+    procedure Numberofloggedhits1Click(Sender: TObject);
+    procedure Exit1Click(Sender: TObject);
+    procedure onDownloadChkClick(Sender: TObject);
+    procedure onconnectionChkClick(Sender: TObject);
+    procedure never1Click(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure filesBoxDragOver(Sender, Source: TObject; X, Y: Integer;
+      State: TDragState; var Accept: Boolean);
+    procedure filesBoxDragDrop(Sender, Source: TObject; X, Y: Integer);
+    procedure Savefilesystem1Click(Sender: TObject);
+    procedure filesBoxDeletion(Sender: TObject; Node: TTreeNode);
+    procedure Loadfilesystem1Click(Sender: TObject);
+    procedure leavedisconnectedconnectionsChkClick(Sender: TObject);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure Officialwebsite1Click(Sender: TObject);
+    procedure showmaintrayiconChkClick(Sender: TObject);
+    procedure Speedlimit1Click(Sender: TObject);
+    procedure tofile1Click(Sender: TObject);
+    procedure Maxconnections1Click(Sender: TObject);
+    procedure Maxconnectionsfromsingleaddress1Click(Sender: TObject);
+    procedure Forum1Click(Sender: TObject);
+    procedure FAQ1Click(Sender: TObject);
+    procedure License1Click(Sender: TObject);
+    procedure Paste1Click(Sender: TObject);
+    procedure Addfiles1Click(Sender: TObject);
+    procedure Addfolder1Click(Sender: TObject);
+    procedure graphSplitterMoved(Sender: TObject);
+    procedure Graphrefreshrate1Click(Sender: TObject);
+    procedure Pausestreaming1Click(Sender: TObject);
+    procedure Comment1Click(Sender: TObject);
+    procedure filesBoxCustomDrawItem(Sender: TCustomTreeView;
+      Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
+    procedure Setuserpass1Click(Sender: TObject);
+    procedure browseBtnClick(Sender: TObject);
+    procedure BanIPaddress1Click(Sender: TObject);
+    procedure BannedIPaddresses1Click(Sender: TObject);
+    procedure FormKeyUp(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure Checkforupdates1Click(Sender: TObject);
+    procedure Rename1Click(Sender: TObject);
+    procedure Nodownloadtimeout1Click(Sender: TObject);
+    procedure alwaysontopChkClick(Sender: TObject);
+    procedure Showbandwidthgraph1Click(Sender: TObject);
+    procedure Pause1Click(Sender: TObject);
+    procedure MIMEtypes1Click(Sender: TObject);
+    procedure Accounts1Click(Sender: TObject);
+    procedure traymessage1Click(Sender: TObject);
+    procedure Guide1Click(Sender: TObject);
+    procedure filesBoxAddition(Sender: TObject; Node: TTreeNode);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure Logfile1Click(Sender: TObject);
+    procedure Font1Click(Sender: TObject);
+    procedure Newlink1Click(Sender: TObject);
+    procedure SetURL1Click(Sender: TObject);
+    procedure Resetuserpass1Click(Sender: TObject);
+    procedure Switchtovirtual1Click(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure Loginrealm1Click(Sender: TObject);
+    procedure Introduction1Click(Sender: TObject);
+    procedure Resetfileshits1Click(Sender: TObject);
+    procedure persistentconnectionsChkClick(Sender: TObject);
+    procedure Kickidleconnections1Click(Sender: TObject);
+    procedure Connectionsinactivitytimeout1Click(Sender: TObject);
+    procedure splitHMoved(Sender: TObject);
+    procedure Clearfilesystem1Click(Sender: TObject);
+    procedure Numberofloggeduploads1Click(Sender: TObject);
+    procedure Flagfilesaddedrecently1Click(Sender: TObject);
+    procedure Flagasnew1Click(Sender: TObject);
+    procedure Donotlogaddress1Click(Sender: TObject);
+    procedure Custom1Click(Sender: TObject);
+    procedure Findexternaladdress1Click(Sender: TObject);
+    procedure sbarDblClick(Sender: TObject);
+    procedure NoIPtemplate1Click(Sender: TObject);
+    procedure Custom2Click(Sender: TObject);
+    procedure CJBtemplate1Click(Sender: TObject);
+    procedure DynDNStemplate1Click(Sender: TObject);
+    procedure Minimumdiskspace1Click(Sender: TObject);
+    procedure Banthisaddress1Click(Sender: TObject);
+    procedure Address2name1Click(Sender: TObject);
+    procedure Resetnewflag1Click(Sender: TObject);
+    procedure Renamepartialuploads1Click(Sender: TObject);
+    procedure SelfTest1Click(Sender: TObject);
+    procedure Opendirectlyinbrowser1Click(Sender: TObject);
+    procedure noPortInUrlChkClick(Sender: TObject);
+    procedure maxDLs1Click(Sender: TObject);
+    procedure MaxDLsIP1Click(Sender: TObject);
+    procedure Editresource1Click(Sender: TObject);
+    procedure modeBtnClick(Sender: TObject);
+    procedure Shellcontextmenu1Click(Sender: TObject);
+    procedure UninstallHFS1Click(Sender: TObject);
+    procedure maxIPs1Click(Sender: TObject);
+    procedure maxIPsDLing1Click(Sender: TObject);
+    procedure Autosaveevery1Click(Sender: TObject);
+    procedure CopyURL1Click(Sender: TObject);
+    procedure Apachelogfileformat1Click(Sender: TObject);
+    procedure Bindroottorealfolder1Click(Sender: TObject);
+    procedure Unbindroot1Click(Sender: TObject);
+    procedure Switchtorealfolder1Click(Sender: TObject);
+    procedure abortBtnClick(Sender: TObject);
+    procedure Seelastserverresponse1Click(Sender: TObject);
+    procedure Showcustomizedoptions1Click(Sender: TObject);
+    procedure useISOdateChkClick(Sender: TObject);
+    procedure RunHFSwhenWindowsstarts1Click(Sender: TObject);
+    procedure askFolderKindChkClick(Sender: TObject);
+    procedure defaultToVirtualChkClick(Sender: TObject);
+    procedure defaultToRealChkClick(Sender: TObject);
+    procedure Addicons1Click(Sender: TObject);
+    procedure Iconmasks1Click(Sender: TObject);
+    procedure Anyaddress1Click(Sender: TObject);
+    procedure filesBoxEndDrag(Sender, Target: TObject; X, Y: Integer);
+    procedure CopyURLwithfingerprint1Click(Sender: TObject);
+    procedure Disable1Click(Sender: TObject);
+    procedure saveNewFingerprintsChkClick(Sender: TObject);
+    procedure Createfingerprintonaddition1Click(Sender: TObject);
+    procedure pwdInPagesChkClick(Sender: TObject);
+    procedure Howto1Click(Sender: TObject);
+    procedure Name1Click(Sender: TObject);
+    procedure Size1Click(Sender: TObject);
+    procedure Time1Click(Sender: TObject);
+    procedure Hits1Click(Sender: TObject);
+    procedure Resettotals1Click(Sender: TObject);
+    procedure menuBtnClick(Sender: TObject);
+    procedure Clearandresettotals1Click(Sender: TObject);
+    procedure Dontlogsomefiles1Click(Sender: TObject);
+    procedure NumberofdifferentIPaddresses1Click(Sender: TObject);
+    procedure NumberofdifferentIPaddresseseverconnected1Click(Sender: TObject);
+    procedure Addresseseverconnected1Click(Sender: TObject);
+    procedure Allowedreferer1Click(Sender: TObject);
+    procedure filesBoxEnter(Sender: TObject);
+    procedure filesBoxMouseEnter(Sender: TObject);
+    procedure filesBoxMouseLeave(Sender: TObject);
+    procedure filesBoxExit(Sender: TObject);
+    procedure sbarMouseDown(Sender: TObject; Button: TMouseButton; shift: TShiftState; X, Y: Integer);
+    procedure portBtnClick(Sender: TObject);
+    procedure SwitchON1Click(Sender: TObject);
+    procedure resetOptions1Click(Sender: TObject);
+    procedure Reset1Click(Sender: TObject);
+    procedure Extension1Click(Sender: TObject);
+    procedure findExtOnStartupChkClick(Sender: TObject);
+    procedure openLogBtnClick(Sender: TObject);
+    procedure logSearchBoxKeyPress(Sender: TObject; var Key: Char);
+    procedure graphBoxPaint(Sender: TObject);
+    procedure logUpDownClick(Sender: TObject; Button: TUDBtnType);
+    procedure logSearchBoxChange(Sender: TObject);
+    procedure HideClick(Sender: TObject);
+    procedure Speedlimitforsingleaddress1Click(Sender: TObject);
+    procedure Edit1Click(Sender: TObject);
+    procedure Restoredefault1Click(Sender: TObject);
+    procedure Changefile1Click(Sender: TObject);
+    procedure Changeeditor1Click(Sender: TObject);
+    procedure expandBtnClick(Sender: TObject);
+    procedure collapseBtnClick(Sender: TObject);
+    procedure copyBtnClick(Sender: TObject);
+    procedure urlBoxChange(Sender: TObject);
+    procedure enableMacrosChkClick(Sender: TObject);
+    procedure Donate1Click(Sender: TObject);
+    procedure Purge1Click(Sender: TObject);
+    procedure Editeventscripts1Click(Sender: TObject);
+    procedure Maxlinesonscreen1Click(Sender: TObject);
+    procedure Properties1Click(Sender: TObject);
+    procedure filesBoxMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+    procedure restoreCfgBtnClick(Sender: TObject);
+    procedure Runscript1Click(Sender: TObject);
+    procedure logBoxChange(Sender: TObject);
+    procedure logBoxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+    procedure Changeport1Click(Sender: TObject);
+    procedure trayiconforeachdownload1Click(Sender: TObject);
+    procedure Defaultpointtoaddfiles1Click(Sender: TObject);
+    function appEventsHelp(Command: Word; Data: Integer;
+      var CallHelp: Boolean): Boolean;
+    procedure connBoxData(Sender: TObject; Item: TListItem);
+    procedure connBoxAdvancedCustomDrawSubItem(Sender: TCustomListView;
+      Item: TListItem; SubItem: Integer; State: TCustomDrawState;
+      Stage: TCustomDrawStage; var DefaultDraw: Boolean);
+    procedure Reverttopreviousversion1Click(Sender: TObject);
+    procedure updateBtnClick(Sender: TObject);
+  private
+    function searchLog(dir:integer):boolean;
+    function  getGraphPic(cd:TconnData=NIL): ansistring;
+    procedure WMDropFiles(var msg:TWMDropFiles);
+      message WM_DROPFILES;
+    procedure WMQueryEndSession(var msg:TWMQueryEndSession);
+      message WM_QUERYENDSESSION;
+    procedure WMEndSession(var msg:TWMEndSession);
+      message WM_ENDSESSION;
+    procedure WMNCLButtonDown(var msg:TWMNCLButtonDown);
+      message WM_NCLBUTTONDOWN;
+    procedure trayEvent(sender:Tobject; ev:TtrayEvent);
+    procedure downloadtrayEvent(sender:Tobject; ev:TtrayEvent);
+    procedure httpEvent(event:ThttpEvent; conn:ThttpConn);
+    function  addFileRecur(f:Tfile; parent:Ttreenode=NIL):Tfile;
+    function  pointedFile(strict:boolean=TRUE):Tfile;
+    function  pointedConnection():TconnData;
+    procedure updateSbar();
+    function  getFolderPage(folder:Tfile; cd:TconnData; otpl:Tobject):string;
+    procedure getPage(sectionName:string; data:TconnData; f:Tfile=NIL; tpl2use:Ttpl=NIL);
+    function  selectedConnection():TconnData;
+    function  sendPic(cd:TconnData; idx:integer=-1):boolean;
+    procedure ipmenuclick(sender:Tobject);
+    procedure acceptOnMenuclick(sender:Tobject);
+    procedure copyURLwithAddressMenuClick(sender:Tobject);
+    procedure copyURLwithPasswordMenuClick(sender:Tobject);
+    procedure updateTrayTip();
+    procedure updateCopyBtn();
+    procedure setTrayShows(s:string);
+    procedure addTray();
+    procedure refreshConn(conn:TconnData);
+    function  getVFS(node:Ttreenode=NIL):ansistring;
+    procedure setVFS(vfs:ansistring; node:Ttreenode=NIL);
+    procedure setnoDownloadTimeout(v:integer);
+		procedure addDropFiles(hnd:Thandle; under:Ttreenode);
+    procedure pasteFiles();
+		function  addFilesFromString(files:string; under:Ttreenode=NIL):Tfile;
+		procedure setGraphRate(v:integer);
+    procedure updateRecentFilesMenu();
+    procedure recentsClick(sender:Tobject);
+    procedure popupMainMenu();
+    procedure updateAlwaysOnTop();
+    procedure initVFS();
+		procedure refreshIPlist();
+		procedure updateUrlBox();
+    procedure loadVFS(fn:string);
+    procedure compressReply(cd:TconnData);
+    procedure purgeConnections();
+    procedure setEasyMode(easy:boolean=TRUE);
+    procedure hideGraph();
+    procedure showGraph();
+    function  fileAttributeInSelection(fa:TfileAttribute):boolean;
+    procedure progFrmHttpGetUpdate(sender:TObject; buffer:pointer; Len:integer);
+    procedure recalculateGraph();
+ public
+    procedure remove(node:Ttreenode=NIL);
+    function  setCfg(cfg:string; alreadyStarted:boolean=TRUE):boolean;
+    function  getCfg(exclude:string=''):string;
+    function  saveCFG():boolean;
+    function  addFile(f:Tfile; parent:Ttreenode=NIL; skipComment:boolean=FALSE):Tfile;
+    procedure add2log(lines:string; cd:TconnData=NIL; clr:Tcolor=Graphics.clDefault);
+    function  findFilebyURL(url:string; parent:Tfile=NIL; allowTemp:boolean=TRUE):Tfile;
+    function  ipPointedInLog():string;
+    procedure saveVFS(fn:string='');
+    function  finalInit():boolean;
+    procedure processParams_after(var params:TStringDynArray);
+    procedure setStatusBarText(s:string; lastFor:integer=5);
+    procedure minimizeToTray();
+    procedure autoCheckUpdates();
+    function  copySelection():TtreeNodeDynArray;
+    procedure setLogToolbar(v:boolean);
+    function  getTrayTipMsg(tpl:string=''):string;
+    procedure menuDraw(sender:Tobject; cnv: Tcanvas; r:Trect; selected:boolean);
+    procedure menuMeasure(sender:Tobject; cnv: Tcanvas; var w:integer; var h:integer);
+  end; // Tmainfrm
+
+const
+  FILEACTION2STR: array [TfileAction] of string = ('Access', 'Delete', 'Upload');
+
+var
+  mainFrm: TmainFrm;
+  srv: ThttpSrv;
+  tpl: Ttpl; // template for generated pages
+  customIPs: TStringDynArray;   // user customized IP addresses
+  iconMasks: TstringIntPairs;
+  ipsEverConnected: THashedStringList;
+  easyMode: boolean = TRUE;
+  defaultIP: string;    // the IP address to use forming URLs
+  rootNode: TtreeNode;
+  rootFile: Tfile;
+  noReplyBan: boolean;
+  exePath: string;
+  externalIP: string;
+  banlist: array of record ip,comment:string; end;
+  trayMsg: string; // template for the tray hint
+  customIPservice: string;
+  accounts: Taccounts;
+  tplFilename: string; // when empty, we are using the default tpl
+  trayNL: string = #13;
+  mimeTypes, address2name, IPservices: TstringDynArray;
+  IPservicesTime: TdateTime;
+  selectedFile: Tfile;  // last selected file on the tree
+  inBrowserIfMIME: boolean;
+  VFSmodified: boolean; // TRUE if the VFS changes have not been saved
+  tempScriptFilename: string;
+  uploadPaths: TstringDynArray;
+  inTotalOfs, outTotalOfs: int64; // used to cumulate in/out totals
+  hitsLogged, downloadsLogged, uploadsLogged: integer;
+  lastFileOpen: string;
+  minDiskSpace: int64; // in MB. an int32 would suffice, but an int64 will save us
+  speedLimit: real;            // overall limit, Kb/s --- it virtualizes the value of globalLimiter.maxSpeed, that's actually set to zero when streaming is paused
+  currentCFG: string;
+  currentCFGhashed: THashedStringList;
+  saveMode: ( SM_USER, SM_SYSTEM, SM_FILE );
+  tray: TmyTrayicon;
+  dyndns: record
+    url, lastResult, lastIP: string;
+    user, pwd, host: string;
+    active: boolean;
+    lastTime: Tdatetime;
+    end;
+
+procedure showOptions(page:TtabSheet);
+procedure kickBannedOnes();
+procedure repaintTray();
+function paramsAsArray():TStringDynArray;
+procedure processParams_before(var params:TStringDynArray; allowed:string='');
+function loadCfg(var ini,tpl:string):boolean;
+function idx_img2ico(i:integer):integer;
+function idx_ico2img(i:integer):integer;
+function idx_label(i:integer):string;
+function findEnabledLinkedAccount(account:Paccount; over:TStringDynArray; isSorted:boolean=FALSE):Paccount;
+function getImageIndexForFile(fn:string):integer;
+function conn2data(i:integer):TconnData; inline; overload;
+function uptimestr():string;
+function countIPs(onlyDownloading:boolean=FALSE; usersInsteadOfIps:boolean=FALSE):integer;
+function getSafeHost(cd:TconnData):string;
+function localDNSget(ip:string):string;
+function countDownloads(ip:string=''; user:string=''; f:Tfile=NIL):integer;
+function accountAllowed(action:TfileAction; cd:TconnData; f:Tfile):boolean;
+function getAccountList(users:boolean=TRUE; groups:boolean=TRUE):TstringDynArray;
+function fileExistsByURL(url:string):boolean;
+function createFingerprint(fn:string):string;
+function objByIP(ip:string):TperIp;
+function protoColon():string;
+procedure setSpeedLimitIP(v:real);
+procedure stopServer();
+function startServer():boolean;
+function deleteAccount(name:string):boolean;
+
+implementation
+
+{$R *.dfm}
+{$R data.res}
+
+uses
+  newuserpassDlg, optionsDlg, utilLib, folderKindDlg, shellExtDlg, diffDlg, ipsEverDlg, parserLib, MMsystem,
+  purgeDlg, filepropDlg, runscriptDlg, scriptLib;
+
+// global variables
+var
+  globalLimiter: TspeedLimiter;
+  ip2obj: THashedStringList;
+  sessions: THashedStringList;
+  addToFolder: string; // default folder where to add items from the command line
+  lastDialogFolder: string;  // stores last for open dialog, to make it persistent
+  clock: integer;       // program ticks (tenths of second)
+  // workaround for splitters' bad behaviour
+  lastGoodLogWidth, lastGoodConnHeight: integer;
+  etags: THashedStringList; 
+  tray_ico: Ticon;             // the actual icon shown in tray
+  usingFreePort: boolean=TRUE; // the actual server port set was 0
+  upTime: Tdatetime;           // the server is up since...
+  trayed: boolean;             // true if the window has been minimized to tray
+  trayShows: string;           // describes the content of the tray icon
+  flashOn: string;             // describes when to flash the taskbar
+  addFolderDefault: string;    // how to default adding a folder (real/virtual)
+  defSorting: string;          // default sorting, browsing
+  toDelete: Tlist;             // connections pending for deletion
+  systemimages: Timagelist;    // system icons
+  speedLimitIP: real;
+  maxConnections: integer;     // max number of connections (total)
+  maxConnectionsIP: integer;   // ...from a single address
+  maxContempDLs: integer;      // max number of contemporaneous downloads
+  maxContempDLsIP: integer;    // ...from a single address
+  maxContempDLsUser: integer;  // ...from a single user
+  maxIPs: integer;             // max number of different addresses connected
+  maxIPsDLing: integer;        // max number of different addresses downloading
+  autoFingerprint: integer;    // create fingerprint on file addition
+  renamePartialUploads: string;
+  allowedReferer: string;      // check over the Refer header field
+  altPressedForMenu: boolean;  // used to enable the menu on ALT key
+  noDownloadTimeout: integer;  // autoclose the application after (minutes)
+  connectionsInactivityTimeout: integer; // autokick connection after (seconds)
+  startingImagesCount: integer;
+  lastUpdateCheck, lastFilelistTpl: Tdatetime;
+  lastUpdateCheckFN: string;   // eventual temp file for saving lastUpdateCheck
+  lastActivityTime: Tdatetime;  // used for the "no download timeout"
+  recentFiles: TStringDynArray; // recently loaded files
+  addingItemsCounter: integer = -1; // -1 is disabled
+  stopAddingItems, queryingClose: boolean;
+  port: string;
+  defaultTpl: string;
+  tpl_help: string;
+  lastWindowRect: Trect;
+  dmBrowserTpl, filelistTpl: Ttpl;
+  tplEditor: string;
+  tplLast: Tdatetime;
+  tplImport: boolean;
+  eventScriptsLast, runScriptLast: Tdatetime;
+  autoupdatedFiles: TstringToIntHash;   // download counter for temp Tfile.s
+  iconsCache: TiconsCache;
+  usersInVFS: TusersInVFS;    // keeps track of user/pwd in the VFS
+  progFrm: TprogressForm;
+  graphInEasyMode: boolean;
+  cfgPath, tmpPath: string;
+  logMaxLines: integer;     // number of lines
+  windowsShuttingDown: boolean = FALSE;
+  dontLogAddressMask: string;
+  openInBrowser: string; // to not send the "attachment" suggestion in header
+  quitASAP: boolean;  // deferred quit
+  quitting: boolean; // ladies, we're quitting
+  scrollFilesBox: integer = -1;
+  defaultCfg: string;
+  selfTesting: boolean;
+  tplIsCustomized: boolean;
+  fakingMinimize: boolean; // user clicked the [X] but we simulate the [_]
+  sysidx2index: array of record sysidx, idx:integer; end; // maps system imagelist icons to internal imagelist
+  loginRealm: string;
+  serializedConnColumns: string;
+  VFScounterMod: boolean; // if any counter has changed
+  imagescache: array of ansistring;
+  logFontName: string;
+  logFontSize: integer;
+  forwardedMask: string;
+  applicationFullyInitialized: boolean;
+  lockTimerevent: boolean;
+  filesStayFlaggedForMinutes: integer;
+  autosaveVFS: Tautosave;
+  logRightClick: Tpoint;
+  warnManyItems: boolean = TRUE;
+  runningOnRemovable: boolean;
+  startupFilename: string;
+  trustedFiles, filesToAddQ: TstringDynArray;
+  setThreadExecutionState: function(d:dword):dword; stdcall; // as variable, because not available on Win95
+  listenOn: string;  // interfaces HFS should listen on
+  backuppedCfg: string;
+  updateASAP: string;
+  refusedUpdate: string;
+  updateWaiting: string;
+  filesBoxRatio: real;
+  fromTray: boolean; // used to notify about an eventy happening from a tray action
+  userInteraction: record
+    disabled: boolean;
+    bakVisible: boolean;  // backup value for mainFrm.visible
+    end;
+  logFile: record
+    filename: string;
+    apacheFormat: string;
+    apacheZoneString: string;
+    end;
+  loadingVFS: record
+    resetLetBrowse, unkFK, disableAutosave, visOnlyAnon, bakAvailable, useBackup, macrosFound: boolean;
+    build: string;
+    end;
+  lastDiffTpl: record
+    f: Tfile;
+    ofs: integer;
+    end;
+  userIcsBuffer, userSocketBuffer: integer;
+  searchLogTime, searchLogWhiteTime, timeTookToSearchLog: TdateTime;
+  sbarTextTimeout: Tdatetime;
+  sbarIdxs: record  // indexes within the statusbar
+    totalIn, totalOut, banStatus, customTpl, oos, out, notSaved: integer;
+    end;
+  graph: record
+  	rate: integer;    // update speed
+    lastOut, lastIn: int64; // save bytesSent and bytesReceived last values
+    maxV: integer;    // max value in scale
+    size: integer;    // height of the box
+    samplesIn, samplesOut: array [0..3000] of integer; // 1 sample, 1 pixel
+    beforeRecalcMax: integer;  // countdown
+    end;
+
+function deleteAccount(name:string):boolean;
+var
+  i, j, n: integer;
+begin
+n:=length(accounts);
+// search
+for i:=0 to n-1 do
+  if sameText(name, accounts[i].user) then // found
+    begin
+    // shift
+    for j:=i to n-2 do
+      accounts[j]:=accounts[j+1];
+    // shrink
+    setLength(accounts, n-1);
+    // aftermaths
+    purgeVFSaccounts();
+    mainfrm.filesBox.repaint();
+    result:=TRUE;
+    exit;
+    end;
+result:=FALSE;
+end; // deleteAccount
+
+function isCommentFile(fn:string):boolean;
+begin
+result:=(fn=COMMENTS_FILE)
+  or mainfrm.loadSingleCommentsChk.checked and isExtension(fn, COMMENT_FILE_EXT)
+  or mainfrm.supportDescriptionChk.checked and sameText(DESCRIPT_ION,fn)
+end; // isCommentFile
+
+function isFingerprintFile(fn:string):boolean;
+begin
+result:=mainfrm.fingerprintsChk.checked and isExtension(fn, '.md5')
+end; // isFingerprintFile
+
+function zCompressStr2(s:string; lev:TZCompressionLevel):ansistring;
+begin
+  result:=PansiChar(zcompressStr(s,lev))^
+end;
+
+type
+  TaccountRecursionStopCase = (ARSC_REDIR, ARSC_NOLIMITS, ARSC_IN_SET);
+
+// this function follows account linking until it finds and returns the account matching the stopCase
+function accountRecursion(account:Paccount; stopCase:TaccountRecursionStopCase; data:pointer=NIL; data2:pointer=NIL):Paccount;
+
+  function shouldStop():boolean;
+  begin
+  case stopCase of
+    ARSC_REDIR: result:=account.redir > '';
+    ARSC_NOLIMITS: result:=account.noLimits;
+    ARSC_IN_SET: result:=stringExists(account.user, TstringDynArray(data), boolean(data2));
+    else result:=FALSE;
+    end;
+  end;
+
+var
+  tocheck: TStringDynArray;
+  i: integer;
+begin
+result:=NIL;
+if (account = NIL) or not account.enabled then exit;
+if shouldStop() then
+  begin
+  result:=account;
+  exit;
+  end;
+i:=0;
+toCheck:=account.link;
+while i < length(toCheck) do
+  begin
+  account:=getAccount(toCheck[i], TRUE);
+  inc(i);
+  if (account = NIL) or not account.enabled then continue;
+  if shouldStop() then
+    begin
+    result:=account;
+    exit;
+    end;
+  addUniqueArray(toCheck, account.link);
+  end;
+end; // accountRecursion
+
+function findEnabledLinkedAccount(account:Paccount; over:TStringDynArray; isSorted:boolean=FALSE):Paccount;
+begin result:=accountRecursion(account, ARSC_IN_SET, over, boolToPtr(isSorted)) end;
+
+function noLimitsFor(account:Paccount):boolean;
+begin
+account:=accountRecursion(account, ARSC_NOLIMITS);
+result:=assigned(account) and account.noLimits;
+end; // noLimitsFor
+
+function accountAllowed(action:TfileAction; cd:TconnData; f:Tfile):boolean;
+var
+  a: TStringDynArray;
+begin
+result:=FALSE;
+if f = NIL then exit;
+if action = FA_ACCESS then
+  begin
+  result:=f.accessFor(cd);
+  exit;
+  end;
+if f.isTemp() then
+  f:=f.parent;
+if (action = FA_UPLOAD) and not f.isRealFolder() then exit;
+
+  repeat
+  a:=f.accounts[action];
+  if assigned(a)
+  and not ((action = FA_UPLOAD) and not f.isRealFolder()) then break;
+  f:=f.parent;
+  if f = NIL then exit;
+  until false;
+
+result:=TRUE;
+if stringExists(USER_ANYONE, a, TRUE) then exit;
+result:=(cd.usr = '') and stringExists(USER_ANONYMOUS, a, TRUE)
+  or assigned(cd.account) and stringExists(USER_ANY_ACCOUNT, a, TRUE)
+  or (NIL <> findEnabledLinkedAccount(cd.account, a, TRUE));
+end; // accountAllowed
+
+function hasRightAttributes(attr:integer):boolean; overload;
+begin
+result:=(mainfrm.listfileswithhiddenattributeChk.checked or (attr and faHidden = 0))
+  and (mainfrm.listfileswithsystemattributeChk.checked or (attr and faSysFile = 0));
+end; // hasRightAttributes
+
+function hasRightAttributes(fn:string):boolean; overload;
+begin result:=hasRightAttributes(GetFileAttributesA(pAnsiChar(ansiString(fn)))) end;
+
+function isAnyMacroIn(s:ansistring):boolean; inline;
+begin result:=pos(MARKER_OPEN, s) > 0 end;
+
+function loadDescriptionFile(fn:string):string;
+begin
+result:=loadTextFile(fn);
+if result = '' then
+  result:=loadTextFile(fn+'\descript.ion');
+if (result > '') and mainfrm.oemForIonChk.checked then
+  OEMToCharBuff(@result[1], @result[1], length(result)); //to test
+end; // loadDescriptionFile
+
+function escapeIon(s:string):string;
+begin
+// this escaping method (and also the 2-bytes marker) was reverse-engineered from Total Commander
+result:=escapeNL(s);
+if result <> s then
+  result:=result+#4#$C2;
+end; // escapeIon
+
+function unescapeIon(s:string):string;
+begin
+if ansiEndsStr(#4#$C2, s) then
+  begin
+  setLength(s, length(s)-2);
+  s:=unescapeNL(s);
+  end;
+result:=s;
+end; // unescapeIon
+
+function findNameInDescriptionFile(txt, name:string):integer;
+begin result:=reMatch(txt, '^'+quoteRegExprMetaChars(quoteIfAnyChar(' ',name)), 'mi') end;
+
+type
+  TfileListing = class
+  public
+    dir: array of Tfile;
+    ignoreConnFilter: boolean;
+    constructor create();
+    destructor Destroy; override;
+    function fromFolder(folder:Tfile; cd:TconnData; recursive:boolean=FALSE;
+      limit:integer=-1; toSkip:integer=-1; doClear:boolean=TRUE):integer;
+    procedure sort(cd:TconnData; def:string='');
+    end;
+
+constructor TfileListing.create();
+begin
+dir:=NIL;
+end; // create
+
+destructor TfileListing.destroy;
+var
+  i: integer;
+begin
+for i:=0 to length(dir)-1 do
+  freeIfTemp(dir[i]);
+inherited destroy;
+end; // destroy
+
+procedure TfileListing.sort(cd:TconnData; def:string='');
+var
+  foldersBefore, linksBefore, rev: boolean;
+  sortBy: ( SB_NAME, SB_EXT, SB_SIZE, SB_TIME, SB_DL, SB_COMMENT );
+
+  function compareExt(f1,f2:string):integer;
+  begin result:=ansiCompareText(extractFileExt(f1), extractFileExt(f2)) end;
+
+  function compareFiles(item1,item2:pointer):integer;
+  var
+    f1, f2:Tfile;
+  begin
+  f1:=item1;
+  f2:=item2;
+  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;
+  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:
+      if not f1.isFolder() and not f2.isFolder() then
+        result:=compareExt(f1.name, f2.name);
+    SB_COMMENT: result:=ansiCompareText(f1.comment, f2.comment);
+    end;
+  if result = 0 then // this happen both for SB_NAME and when other comparisons result in no difference
+    result:=ansiCompareText(f1.name,f2.name);
+  if rev then result:=-result;
+  end; // compareFiles
+
+  procedure qsort(left, right:integer);
+  var
+    split, t: Tfile;
+    i, j: integer;
+  begin
+  if left >= right then exit;
+  application.ProcessMessages();
+  if cd.conn.state = HCS_DISCONNECTED then exit;
+
+  i:=left;
+  j:=right;
+  split:=dir[(i+j) div 2];
+    repeat
+    while compareFiles(dir[i], split) < 0 do inc(i);
+    while compareFiles(split, dir[j]) < 0 do dec(j);
+    if i <= j then
+      begin
+      t:=dir[i];
+      dir[i]:=dir[j];
+      dir[j]:=t;
+
+      inc(i);
+      dec(j);
+      end
+    until i > j;
+  if left < j then qsort(left, j);
+  if i < right then qsort(i, right);
+  end; // qsort
+
+  procedure check1(var flag:boolean; val:string);
+  begin if val > '' then flag:=val='1' end;
+
+var
+  v: string;
+begin
+// caching
+foldersBefore:=mainfrm.foldersBeforeChk.checked;
+linksBefore:=mainfrm.linksBeforeChk.checked;
+
+v:=first([def, defSorting, 'name']);
+rev:=FALSE;
+if assigned(cd) then
+  with cd.urlvars do
+    begin
+    v:=first(values['sort'], v);
+    rev:=values['rev'] = '1';
+
+    check1(foldersBefore, values['foldersbefore']);
+    check1(linksBefore, values['linksbefore']);
+    end;
+if v[1]='!' then
+  begin
+  delete(v, 1,1);
+  rev:=not rev;
+  end;
+if v = '' then exit;
+case v[1] of
+  'n': sortBy:=SB_NAME;
+  'e': sortBy:=SB_EXT;
+  's': sortBy:=SB_SIZE;
+  't': sortBy:=SB_TIME;
+  'd': sortBy:=SB_DL;
+  'c': sortBy:=SB_COMMENT;
+  else exit; // unsupported value
+  end;
+qsort( 0, length(dir)-1 );
+end; // sort
+
+procedure loadIon(path:string; comments:TstringList);
+var
+  s, l, fn: string;
+begin
+if not mainfrm.supportDescriptionChk.checked then exit;
+s:=loadDescriptionFile(path);
+while s > '' do
+  begin
+  l:=chopLine(s);
+  if l = '' then continue;
+  fn:=chop(nonQuotedPos(' ', l), l);
+  comments.add(dequote(fn)+'='+trim(unescapeIon(l)));
+  end;
+end; // loadIon
+
+// returns number of skipped files
+function TfileListing.fromFolder(folder:Tfile; cd:TconnData;
+  recursive:boolean=FALSE; limit:integer=-1; toSkip:integer=-1; doClear:boolean=TRUE):integer;
+var
+  actualCount: integer;
+  seeProtected, noEmptyFolders, forArchive: boolean;
+  filesFilter, foldersFilter, urlFilesFilter, urlFoldersFilter: string;
+
+  procedure recurOn(f:Tfile);
+  begin
+  if not f.isFolder() then exit;
+  setLength(dir, actualCount);
+  toSkip:=fromFolder(f, cd, TRUE, limit, toSkip, FALSE);
+  actualCount:=length(dir);
+  end; // recurOn
+
+  procedure addToListing(f:Tfile);
+  begin
+  if noEmptyFolders and f.isEmptyFolder(cd)
+  and not accountAllowed(FA_UPLOAD, cd, f) then exit; // upload folders should be listed anyway
+  application.ProcessMessages();
+  if cd.conn.state = HCS_DISCONNECTED then exit;
+
+  if toSkip > 0 then dec(toSkip)
+  else
+    begin
+    if actualCount >= length(dir) then
+      setLength(dir, actualCount+100);
+    dir[actualCount]:=f;
+    inc(actualCount);
+    end;
+
+  if recursive and f.isFolder() then
+    recurOn(f);
+  end; // addToListing
+
+  function allowedTo(f:Tfile):boolean;
+  begin
+  if cd = NIL then result:=FALSE
+  else result:=(not (FA_VIS_ONLY_ANON in f.flags) or (cd.usr = ''))
+    and (seeProtected or f.accessFor(cd))
+    and not (forArchive and f.isDLforbidden())
+  end; // allowedTo
+
+  procedure includeFilesFromDisk();
+  var
+    comments: THashedStringList;
+    commentMasks: TStringDynArray;
+
+    // moves to "commentMasks" comments with a filemask as filename
+    procedure extractCommentsWithWildcards();
+    var
+      i: integer;
+      s: string;
+    begin
+    i:=0;
+    while i < comments.count do
+      begin
+      s:=comments.names[i];
+      if ansiContainsStr(s, '?')
+      or ansiContainsStr(s, '*') then
+        begin
+        addString(comments[i], commentMasks);
+        comments.Delete(i);
+        end
+      else
+        inc(i);
+      end;
+    end; // extractCommentsWithWildcards
+
+    // extract comment for "fn" from "commentMasks"
+    function getCommentByMaskFor(fn:string):string;
+    var
+      i: integer;
+      s, mask: string;
+    begin
+    for i:=0 to length(commentMasks)-1 do
+      begin
+      s:=commentMasks[i];
+      mask:=chop('=', s);
+      if fileMatch(mask, fn) then
+        begin
+        result:=s;
+        exit;
+        end;
+      end;
+    result:='';
+    end; // getCommentByMaskFor
+
+    procedure setBit(var i:integer; bits:integer; flag:boolean); inline;
+    begin
+    if flag then i:=i or bits
+    else i:=i and not bits;
+    end; // setBit
+
+{**
+
+this would let us have "=" inside the names, but names cannot be assigned
+
+    procedure fixQuotedStringList(sl:Tstrings);
+    var
+      i: integer;
+      s: string;
+    begin
+    for i:=0 to sl.count-1 do
+      begin
+      s:=sl.names[i];
+      if (s = '') or (s[1] <> '"') then continue;
+      s:=s+'='+sl.ValueFromIndex[i]; // reconstruct the line
+      sl.names[i]:=chop(nonQuotedPos('=', s), s);
+      sl.ValueFromIndex[i]:=s;
+      end;
+    end;
+}
+  var
+    f: Tfile;
+    sr: TSearchRec;
+    namesInVFS: TStringDynArray;
+    n: TtreeNode;
+    filteredOut: boolean;
+    i: integer;
+  begin
+  if (limit >= 0) and (actualCount >= limit) then exit;
+
+  // collect names in the VFS at this level. supposed to be faster than existsNodeWithName().
+  namesInVFS:=NIL;
+  n:=folder.node.getFirstChild();
+  while assigned(n) do
+    begin
+    addString(n.text, namesInVFS);
+    n:=n.getNextSibling();
+    end;
+
+  comments:=THashedStringList.create();
+  try
+    comments.caseSensitive:=FALSE;
+    try comments.loadFromFile(folder.resource+'\'+COMMENTS_FILE);
+    except end;
+    loadIon(folder.resource, comments);
+    i:=if_((filesFilter='\') or (urlFilesFilter='\'), faDirectory, faAnyFile);
+    setBit(i, faSysFile, mainFrm.listfileswithsystemattributeChk.checked);
+    setBit(i, faHidden, mainFrm.listfileswithHiddenAttributeChk.checked);
+    if findfirst(folder.resource+'\*', i, sr) <> 0 then exit;
+
+    try
+      extractCommentsWithWildcards();
+        repeat
+        application.ProcessMessages();
+        cd.lastActivityTime:=now();
+        // we don't list these entries
+        if (sr.name = '.') or (sr.name = '..')
+        or isCommentFile(sr.name) or isFingerprintFile(sr.name) or sameText(sr.name, DIFF_TPL_FILE)
+        or not hasRightAttributes(sr.attr)
+        or stringExists(sr.name, namesInVFS)
+        then continue;
+
+        filteredOut:=not fileMatch( if_(sr.Attr and faDirectory > 0, foldersFilter, filesFilter), sr.name)
+          or not fileMatch( if_(sr.Attr and faDirectory > 0, urlFoldersFilter, urlFilesFilter), sr.name);
+        // if it's a folder, though it was filtered, we need to recur
+        if filteredOut and (not recursive or (sr.Attr and faDirectory = 0)) then continue;
+
+        f:=Tfile.createTemp( folder.resource+'\'+sr.name );
+        f.node:=folder.node; // temporary nodes are bound to the parent's node
+        if (FA_SOLVED_LNK in f.flags) and f.isFolder() then
+          // sorry, but we currently don't support lnk to folders in real-folders
+          begin
+          f.free;
+          continue;
+          end;
+        if filteredOut then
+          begin
+          recurOn(f);
+          // possible children added during recursion are linked back through the node field, so we can safely free the Tfile
+          f.free;
+          continue;
+          end;
+
+        f.comment:=comments.values[sr.name];
+        if f.comment = '' then
+          f.comment:=getCommentByMaskFor(sr.name);
+        f.comment:=macroQuote(unescapeNL(f.comment));
+
+        f.size:=0;
+        if f.isFile() then
+          if FA_SOLVED_LNK in f.flags then
+            begin
+            f.size:=sizeOfFile(f.resource);
+            if f.size < 0 then // doesn't exist
+              begin
+              f.free;
+              continue;
+              end
+            end
+          else
+            f.size:=sr.FindData.nFileSizeLow
+              +int64(sr.FindData.nFileSizeHigh) shl 32;
+        f.mtime:=filetimeToDatetime(sr.FindData.ftLastWriteTime);
+        addToListing(f);
+        until (findNext(sr) <> 0) or (cd.conn.state = HCS_DISCONNECTED) or (limit >= 0) and (actualCount >= limit);
+    finally findClose(sr) end;
+  finally comments.free  end
+  end; // includeFilesFromDisk
+
+  procedure includeItemsFromVFS();
+  var
+    f: Tfile;
+    sr: TSearchRec;
+    n: Ttreenode;
+  begin
+  { this folder has been dinamically generated, thus the node is not actually
+  { its own... skip }
+  if folder.isTemp() then exit;
+
+  // include (valid) items from the VFS branch
+  n:=folder.node.getFirstChild();
+  while assigned(n) and (cd.conn.state <> HCS_DISCONNECTED)
+  and ((limit < 0) or (actualCount < limit)) do
+    begin
+    cd.lastActivityTime:=now();
+
+    f:=n.data;
+    n:=n.getNextSibling();
+
+    // watching not allowed, to anyone
+    if (FA_HIDDEN in f.flags) or (FA_HIDDENTREE in f.flags) then continue;
+
+    // filtered out
+    if not fileMatch( if_(f.isFolder(), foldersfilter, filesfilter), f.name)
+    or not fileMatch( if_(f.isFolder(), urlFoldersfilter, urlFilesfilter), f.name)
+    // in this case we must continue recurring: other virtual items may be contained in this real folder, and this flag doesn't apply to them.
+    or (forArchive and f.isRealFolder() and (FA_DL_FORBIDDEN in f.flags)) then
+      begin
+      if recursive then recurOn(f);
+      continue;
+      end;
+
+    if not allowedTo(f) then continue;
+
+    if FA_VIRTUAL in f.flags then // links and virtual folders are virtual
+      begin
+      addToListing(f);
+      continue;
+      end;
+    if FA_UNIT in f.flags then
+      begin
+      if sysutils.directoryExists(f.resource+'\') then
+        addToListing(f);
+      continue;
+      end;
+
+    // try to get more info about this item
+    if findFirst(f.resource, faAnyFile, sr) = 0 then
+      begin
+      try
+        // update size and time
+        with sr.FindData do f.size:=nFileSizeLow+int64(nFileSizeHigh) shl 32;
+        try f.mtime:=filetimeToDatetime(sr.FindData.ftLastWriteTime);
+        except f.mtime:=0 end;
+      finally findClose(sr) end;
+      if not hasRightAttributes(sr.attr) then continue;
+      end
+    else // why findFirst() failed? is it a shared folder?
+      if not sysutils.directoryExists(f.resource) then continue;
+    addToListing(f);
+    end;
+  end; // includeItemsFromVFS
+
+  function beginsOrEndsBy(ss:string; s:string):boolean;
+  begin result:=ansiStartsText(ss,s) or ansiEndsText(ss,s) end;
+
+  function par(k:string):string;
+  begin if cd = NIL then result:='' else result:=cd.urlvars.values[k] end;
+
+begin
+result:=toSkip;
+if doClear then dir:=NIL;
+
+if not folder.isFolder()
+or not folder.accessFor(cd)
+or folder.hasRecursive(FA_HIDDENTREE)
+or not (FA_BROWSABLE in folder.flags)
+then exit;
+
+if assigned(cd) then
+  begin
+  if limit < 0 then
+    limit:=StrToIntDef(par('limit'), -1);
+  if toSkip < 0 then
+    toSkip:=StrToIntDef(par('offset'), -1);
+  if toSkip < 0 then
+    toSkip:=max(0, pred(strToIntDef(par('page'), 1))*limit);
+  end;
+
+actualCount:=length(dir);
+folder.getFiltersRecursively(filesFilter, foldersFilter);
+if assigned(cd) and not ignoreConnFilter then
+  begin
+  urlFilesFilter:=par('files-filter');
+  if urlFilesFilter = '' then urlFilesFilter:=par('filter');
+  urlFoldersFilter:=par('folders-filter');
+  if urlFoldersFilter = '' then urlFoldersFilter:=par('filter');
+  if (urlFilesFilter+urlFoldersFilter = '') and (par('search') > '') then
+    begin
+    urlFilesFilter:=reduceSpaces(par('search'), '*');
+    if not beginsOrEndsBy('*', urlFilesFilter) then
+      urlFilesFilter:='*'+urlFilesFilter+'*';
+    urlFoldersFilter:=urlFilesFilter;
+    end;
+  end;
+// cache user options
+forArchive:=assigned(cd) and (cd.downloadingWhat = DW_ARCHIVE);
+seeProtected:=not mainfrm.hideProtectedItemsChk.Checked and not forArchive;
+noEmptyFolders:=(urlFilesFilter = '') and folder.hasRecursive(FA_HIDE_EMPTY_FOLDERS);
+try
+  if folder.isRealFolder() and not (FA_HIDDENTREE in folder.flags) and allowedTo(folder) then
+    includeFilesFromDisk();
+  includeItemsFromVFS();
+finally setLength(dir, actualCount) end;
+result:=toSkip;
+end; // fromFolder
+
+function isDownloading(data:TconnData):boolean;
+begin
+result:=assigned(data) and data.countAsDownload
+  and (data.conn.state in [HCS_REPLYING_BODY, HCS_REPLYING_HEADER, HCS_REPLYING])
+end; // isDownloading
+
+function isSendingFile(data:Tconndata):boolean;
+begin
+result:=assigned(data)
+  and (data.conn.state = HCS_REPLYING_BODY)
+  and (data.conn.reply.bodyMode in [RBM_FILE, RBM_STREAM])
+  and (data.downloadingWhat in [DW_FILE, DW_ARCHIVE])
+end; // isSendingFile
+
+function isReceivingFile(data:Tconndata):boolean;
+begin result:=assigned(data) and (data.conn.state = HCS_POSTING) and (data.uploadSrc > '') end;
+
+function conn2data(p:Tobject):TconnData; inline; overload;
+begin
+if p = NIL then result:=NIL
+else result:=TconnData((p as ThttpConn).data)
+end; // conn2data
+
+function conn2data(i:integer):TconnData; inline; overload;
+begin
+try
+  if i < srv.conns.count then
+    result:=conn2data(srv.conns[i])
+  else
+    result:=conn2data(srv.offlines[i-srv.conns.count])
+except result:=NIL end
+end; // conn2data
+
+function conn2data(li:TlistItem):TconnData; inline; overload;
+begin
+if li = NIL then
+  result:=NIL
+else
+  result:=conn2data(li.index)
+end; // conn2data
+
+function countConnectionsByIP(ip:string):integer;
+var
+  i: integer;
+begin
+result:=0;
+i:=0;
+while i < srv.conns.count do
+  begin
+  if conn2data(i).address = ip then
+  	inc(result);
+  inc(i);
+  end;
+end; // countConnectionsByIP
+
+function countDownloads(ip:string=''; user:string=''; f:Tfile=NIL):integer;
+var
+  i: integer;
+  d: TconnData;
+begin
+result:=0;
+i:=0;
+while i < srv.conns.count do
+  begin
+  d:=conn2data(i);
+  if isDownloading(d)
+  and ((f = NIL) or (assigned(d.lastFile) and d.lastFile.same(f)))
+  and ((ip = '') or addressMatch(ip, d.address))
+  and ((user = '') or sameText(user, d.usr))
+  then
+    inc(result);
+  inc(i);
+  end;
+end; // countDownloads
+
+function countIPs(onlyDownloading:boolean=FALSE; usersInsteadOfIps:boolean=FALSE):integer;
+var
+  i: integer;
+  d: TconnData;
+  ips: TStringDynArray;
+begin
+i:=0;
+ips:=NIL;
+while i < srv.conns.count do
+  begin
+  d:=conn2data(i);
+  if not onlyDownloading or isDownloading(d) then
+    addUniqueString(if_(usersInsteadOfIps, d.usr, d.address), ips);
+  inc(i);
+  end;
+result:=length(ips);
+end; // countIPs
+
+function idx_img2ico(i:integer):integer;
+begin
+if (i < startingImagesCount) or (i >= USER_ICON_MASKS_OFS) then result:=i
+else result:=i-startingImagesCount+USER_ICON_MASKS_OFS
+end;
+
+function idx_ico2img(i:integer):integer;
+begin
+if i < USER_ICON_MASKS_OFS then result:=i
+else result:=i-USER_ICON_MASKS_OFS+startingImagesCount
+end;
+
+function idx_label(i:integer):string;
+begin result:=intToStr(idx_img2ico(i)) end;
+
+function bmp2str(bmp:Tbitmap):ansistring;
+var
+  stream: Tbytesstream;
+	gif: TGIFImage;
+begin
+{ the gif component has a GDI object leak while reducing colors of
+{ transparent images. this seems to be not a big problem since the
+{ icon cache system was introduced, but a real fix would be nice. }
+stream:=Tbytesstream.create();
+gif:=TGIFImage.Create();
+
+gif.ColorReduction:=rmQuantize;
+gif.Compression:=gcLZW;
+gif.Assign(bmp);
+gif.SaveToStream(stream);
+setLength(result, stream.size);
+move(stream.bytes[0], result[1], stream.size);
+
+gif.free;
+stream.free;
+end; // bmp2str
+
+function pic2str(idx:integer):ansistring;
+var
+  pic, pic2: Tbitmap;
+begin
+result:='';
+if idx < 0 then exit;
+idx:=idx_ico2img(idx);
+if length(imagescache) < idx+1 then setlength(imagescache, idx+1);
+result:=imagescache[idx];
+if result > '' then exit;
+pic:=Tbitmap.create();
+mainfrm.images.getBitmap(idx,pic);
+// pic2 is the transparent version of pic
+pic2:=Tbitmap.create();
+pic2.Width:=mainfrm.images.Width;
+pic2.height:=mainfrm.images.height;
+pic2.TransparentMode:=tmFixed;
+
+pic2.TransparentColor:=$2FFFFFF;
+pic2.Transparent:=TRUE;
+BitBlt(pic2.Canvas.Handle, 0,0,16,16, pic.Canvas.Handle, 0,0, SRCAND);
+BitBlt(pic2.Canvas.Handle, 0,0,16,16, pic.Canvas.Handle, 0,0, SRCPAINT);
+
+result:=bmp2str(pic2);
+pic2.free;
+pic.free;
+imagescache[idx]:=result;
+end; // pic2str
+
+function str2pic(s:ansistring):integer;
+var
+	gif: TGIFImage;
+begin
+for result:=0 to mainfrm.images.count-1 do
+  if pic2str(result) = s then exit;
+// in case the pic was not found, it automatically adds it to the pool
+gif:=stringToGif(s);
+try
+  result:=mainfrm.images.addMasked(gif.bitmap, gif.Bitmap.TransparentColor);
+  etags.values['icon.'+intToStr(result)] := strMD5(s);
+finally gif.free end;
+end; // str2pic
+
+function getImageIndexForFile(fn:string):integer;
+var
+  i, n: integer;
+  ico: Ticon;
+  shfi: TShFileInfo;
+  s: ansistring;
+begin
+fillChar(shfi, SizeOf(TShFileInfo), 0);
+// documentation reports shGetFileInfo() to be working with relative paths too,
+// but it does not actually work without the expandFileName()
+shGetFileInfo( pchar(expandFileName(fn)), 0, shfi, SizeOf(shfi), SHGFI_SYSICONINDEX);
+if shfi.iIcon = 0 then
+  begin
+  result:=ICON_FILE;
+  exit;
+  end;
+// as reported by official docs
+if shfi.hIcon <> 0 then
+  destroyIcon(shfi.hIcon);
+
+// have we already met this sysidx before?
+for i:=0 to length(sysidx2index)-1 do
+  if sysidx2index[i].sysidx = shfi.iIcon then
+  	begin
+    result:=sysidx2index[i].idx;
+    exit;
+    end;
+// found not, let's check deeper: byte comparison.
+// we first add the ico to the list, so we can use pic2str()
+ico:=Ticon.create();
+try
+  systemimages.getIcon(shfi.iIcon, ico);
+  i:=mainfrm.images.addIcon(ico);
+  s:=pic2str(i);
+  etags.values['icon.'+intToStr(i)] := strMD5(s);
+finally ico.free end;
+// now we can search if the icon was already there, by byte comparison
+n:=0;
+while n < length(sysidx2index) do
+  begin
+  if pic2str(sysidx2index[n].idx) = s then
+    begin // found, delete the duplicate
+    mainfrm.images.delete(i);
+    setlength(imagescache, i);
+    i:=sysidx2index[n].idx;
+    break;
+    end;
+  inc(n);
+  end;
+
+n:=length(sysidx2index);
+setlength(sysidx2index, n+1);
+sysidx2index[n].sysidx:=shfi.iIcon;
+sysidx2index[n].idx:=i;
+result:=i;
+end; // getImageIndexForFile
+
+function getBaseTrayIcon(perc:real=0):Tbitmap;
+var
+  x: integer;
+begin
+result:=Tbitmap.create();
+result.Width:=16;
+result.Height:=16;
+mainfrm.images.GetBitmap( if_(assigned(srv) and srv.active,24,30), result);
+if perc > 0 then
+  begin
+  x:=round(14*perc);
+  result.canvas.Brush.color:=clYellow;
+  result.Canvas.FillRect(rect(1,7,x+1,15));
+  result.canvas.Brush.color:=clGreen;
+  result.Canvas.FillRect(rect(x+1,7,15,15));
+  end;
+end; // getBaseTrayIcon
+
+procedure drawTrayIconString(cnv:Tcanvas; s:string);
+var
+  x, i, idx: integer;
+begin
+x:=10;
+for i:=length(s) downto 1 do
+	begin
+  if s[i] = '%' then idx:=10
+  else idx:=ord(s[i])-ord('0');
+  mainfrm.numbers.draw(cnv, x, 8, idx);
+  dec(x,mainfrm.numbers.Width);
+  end;
+end; // drawTrayIconString
+
+procedure repaintTray();
+var
+  bmp: Tbitmap;
+  s: string;
+begin
+if quitting or (mainfrm = NIL) then exit;
+bmp:=getBaseTrayIcon();
+s:=trayShows;
+if s = 'connections' then s:=intTostr(srv.conns.count);
+if s = 'downloads' then s:=intToStr(downloadsLogged);
+if s = 'uploads' then s:=intToStr(uploadsLogged);
+if s = 'hits' then s:=intToStr(hitsLogged);
+if s = 'ips' then s:=intToStr(countIPs());
+if s = 'ips-ever' then s:=intToStr(ipsEverConnected.count);
+
+drawTrayIconString(bmp.canvas, s);
+tray_ico.Handle:=bmpToHico(bmp);
+tray_ico.Transparent:=FALSE;
+bmp.free;
+tray.setIcon(tray_ico);
+end; // repaintTray
+
+procedure resetTotals();
+begin
+hitsLogged:=0;
+downloadsLogged:=0;
+uploadsLogged:=0;
+outTotalOfs:=-srv.bytesSent;
+inTotalOfs:=-srv.bytesReceived;
+repainttray();
+end; // resetTotals
+
+procedure flash();
+begin
+FlashWindow(application.handle, TRUE);
+if mainFrm.beepChk.checked then MessageBeep(MB_OK);
+end; // flash
+
+function localDNSget(ip:string):string;
+var
+  i: integer;
+begin
+for i:=0 to length(address2name) div 2-1 do
+  if addressmatch(address2name[i*2+1], ip) then
+    begin
+    result:=address2name[i*2];
+    exit;
+    end;
+result:='';
+end; // localDNSget
+
+function existsNodeWithName(name:string; parent:Ttreenode):boolean;
+var
+  n: Ttreenode;
+begin
+result:=FALSE;
+if parent = NIL then parent:=rootNode;
+if parent = NIL then exit;
+while assigned(parent.data) and not Tfile(parent.data).isFolder() do
+  parent:=parent.parent;
+n:=parent.getFirstChild();
+while assigned(n) do
+  begin
+  result:=sameText(n.text, name);
+  if result then exit;
+  n:=n.getNextSibling();
+  end;
+end; // existsNodeWithName
+
+function getUniqueNodeName(start:string; parent:Ttreenode):string;
+var
+  i: integer;
+begin
+result:=start;
+if not existsNodeWithName(result, parent) then exit;
+i:=2;
+  repeat
+  result:=format('%s (%d)', [start,i]);
+  inc(i);
+  until not existsNodeWithName(result, parent);
+end; // getUniqueNodeName
+
+procedure updateDynDNS();
+
+  function interpretResponse(s:string):string;
+  const
+    ERRORS: array [1..10] of record code,msg:string; end = (
+      (code:'badauth';  msg:MSG_DDNS_badauth),
+      (code:'notfqdn';  msg:MSG_DDNS_notfqdn),
+      (code:'nohost';   msg:MSG_DDNS_nohost),
+      (code:'!yours';   msg:MSG_DDNS_notyours),
+      (code:'numhost';  msg:MSG_DDNS_numhost),
+      (code:'abuse';    msg:MSG_DDNS_abuse),
+      (code:'dnserr';   msg:MSG_DDNS_dnserr),
+      (code:'911';      msg:MSG_DDNS_911),
+      (code:'!donator'; msg:MSG_DDNS_notdonator),
+      (code:'badagent'; msg:MSG_DDNS_badagent)
+    );
+  var
+    i: integer;
+    code: string;
+  begin
+  s:=trim(s);
+  if s = '' then
+    begin
+    result:='no reply';
+    exit;
+    end;
+  code:='';
+  result:='successful';
+  code:=trim(lowercase(getTill(' ',s)));
+  if stringExists(code, ['good','nochg']) then exit;
+  for i:=1 to length(ERRORS) do
+    if code = ERRORS[i].code then
+      begin
+      result:='error: '+ERRORS[i].msg;
+      dyndns.active:=FALSE;
+      exit;
+      end;
+  result:='unknown reply: '+s;
+  end; // interpretResponse
+
+var
+  s: string;
+begin
+if externalIP = '' then exit;
+mainfrm.setStatusBarText('Updating dynamic DNS...');
+dyndns.lastTime:=now();
+try s:=httpGet(replaceText(dyndns.url, '%ip%', externalIP));
+except s:='' end;
+if s > '' then dyndns.lastResult:=s;
+if not mainfrm.logOtherEventsChk.checked then exit;
+if length(s) > 30 then s:=intToStr(length(s))+' bytes reply'
+else s:=interpretResponse(s);
+mainfrm.add2log('DNS update requested for '+dyndns.lastIP+': '+s);
+if dyndns.active then
+  dyndns.lastIP:=externalIP
+else
+  msgDlg('DNS update failed.'#13+s+'.'#13'User intervention is required.', MB_ICONERROR);
+mainfrm.setStatusBarText('');
+end; // updateDynDNS
+
+procedure disableUserInteraction();
+begin
+if userInteraction.disabled then exit;
+userInteraction.disabled:=TRUE;
+if mainFrm = NIL then userInteraction.bakVisible:=FALSE
+else
+  begin
+  userInteraction.bakVisible:=mainfrm.visible;
+  mainfrm.visible:=FALSE;
+  end;
+end; // disableUserInteraction
+
+procedure reenableUserInteraction();
+begin
+if not userInteraction.disabled then exit;
+userInteraction.disabled:=FALSE;
+if assigned(mainFrm) then
+  mainfrm.visible:=userInteraction.bakVisible;
+end; // reenableUserInteraction
+
+constructor TconnData.create(conn:ThttpConn);
+begin
+conn.data:=self;
+self.conn:=conn;
+time:=now();
+lastActivityTime:=time;
+downloadingWhat:=DW_UNK;
+urlvars:=THashedStringList.create();
+urlvars.lineBreak:='&';
+tplCounters:=TstringToIntHash.create();
+vars:=THashedStringList.create();
+postVars:=THashedStringList.create();
+end; // constructor
+
+destructor TconnData.destroy;
+var
+  i: integer;
+begin
+for i:=0 to vars.Count-1 do
+  if assigned(vars.Objects[i]) and (vars.Objects[i] <> currentCFGhashed) then
+    begin
+    vars.Objects[i].free;
+    vars.Objects[i]:=NIL;
+    end;
+freeAndNIL(vars);
+freeAndNIL(postVars);
+freeAndNIL(urlvars);
+freeAndNIL(tplCounters);
+freeAndNIL(limiter);
+// do NOT free "tpl". It is just a reference to cached tpl. It will be freed only at quit time. 
+if assigned(f) then
+  begin
+  closeFile(f^);
+  freeAndNIL(f);
+  end;
+inherited destroy;
+end; // destructor
+
+procedure Tconndata.disconnect(reason:string);
+begin
+disconnectReason:=reason;
+conn.disconnect();
+end; // disconnect
+
+function Tconndata.sessionGet(k:string):string;
+begin
+try result:=session.values[k];
+except result:='' end;
+end; // sessionGet
+
+procedure Tconndata.sessionSet(k, v:string);
+begin
+if session = NIL then
+  begin
+  session:=THashedStringList.create;
+  sessions.addObject(sessionID, session);
+  end;
+session.values[k]:=v;
+end; // sessionSet
+
+// we'll automatically free and previous temporary object
+procedure TconnData.setLastFile(f:Tfile);
+begin
+freeIfTemp(FlastFile);
+FlastFile:=f;
+end;
+
+constructor Tfile.create(fullpath:string);
+begin
+fullpath:=ExcludeTrailingPathDelimiter(fullpath);
+icon:=-1;
+size:=-1;
+atime:=now();
+mtime:=atime;
+flags:=[];
+setResource(fullpath);
+if (resource > '') and sysutils.directoryExists(resource) then
+  flags:=flags+[FA_FOLDER, FA_BROWSABLE];
+end; // create
+
+constructor Tfile.createTemp(fullpath:string);
+begin
+create(fullpath);
+include(flags, FA_TEMP);
+end; // createTemp
+
+constructor Tfile.createVirtualFolder(name:string);
+begin
+icon:=-1;
+setResource('');
+flags:=[FA_FOLDER, FA_VIRTUAL, FA_BROWSABLE];
+self.name:=name;
+atime:=now();
+mtime:=atime;
+end; // createVirtualFolder
+
+constructor Tfile.createLink(name:string);
+begin
+icon:=-1;
+setName(name);
+atime:=now();
+mtime:=atime;
+flags:=[FA_LINK, FA_VIRTUAL];
+end; // createLink
+
+procedure Tfile.setResource(res:string);
+
+  function sameDrive(f1,f2:string):boolean;
+  begin
+  result:=(length(f1) >= 2) and (length(f2) >= 2) and (f1[2] = ':')
+    and (f2[2] = ':') and (upcase(f1[1]) = upcase(f2[1]));
+  end; // sameDrive
+
+var
+  s: string;
+begin
+if isExtension(res, '.lnk') or fileExists(res+'\target.lnk') then
+  begin
+  s:=extractFileName(res);
+  if isExtension(s, '.lnk') then
+    setLength(s, length(s)-4);
+  setName(s);
+  lnk:=res;
+  res:=resolveLnk(res);
+  include(flags, FA_SOLVED_LNK);
+  end
+else
+  exclude(flags, FA_SOLVED_LNK);
+res:=ExcludeTrailingPathDelimiter(res);
+
+// in this case, drive letter may change. useful with pendrives.
+if runningOnRemovable and sameDrive(exePath, res) then
+  delete(res, 1,2);
+
+resource:=res;
+if (length(res) = 2) and (res[2] = ':') then // logical unit
+  begin
+  include(flags, FA_UNIT);
+  if not isRoot() and not (FA_SOLVED_LNK in flags) then
+    setName(res);
+  end
+else
+  begin
+  exclude(flags, FA_UNIT);
+  if not isRoot() and not (FA_SOLVED_LNK in flags) then
+    setName(extractFileName(res));
+  end;
+size:=-1;
+end; // setResource
+
+procedure Tfile.setName(name:string);
+begin
+self.name:=name;
+if node = NIL then exit;
+node.Text:=name;
+end; // setName
+
+function Tfile.same(f:Tfile):boolean;
+begin result:=(self = f) or (resource = f.resource) end;
+
+function Tfile.toggle(att:TfileAttribute):boolean;
+begin
+if att in flags then exclude(flags, att)
+else include(flags, att);
+result:=att in flags
+end;
+
+function Tfile.isRoot():boolean;
+begin result:=FA_ROOT in flags end;
+
+function Tfile.isFolder():boolean;
+begin result:=FA_FOLDER in flags end;
+
+function Tfile.isLink():boolean;
+begin result:=FA_LINK in flags end;
+
+function Tfile.isTemp():boolean;
+begin result:=FA_TEMP in flags end;
+
+function Tfile.isFile():boolean;
+begin result:=not ((FA_FOLDER in flags) or (FA_LINK in flags)) end;
+
+function Tfile.isFileOrFolder():boolean;
+begin result:=not (FA_LINK in flags) end;
+
+function Tfile.isRealFolder():boolean;
+begin result:=(FA_FOLDER in flags) and not (FA_VIRTUAL in flags) end;
+
+function Tfile.isVirtualFolder():boolean;
+begin result:=(FA_FOLDER in flags) and (FA_VIRTUAL in flags) end;
+
+function Tfile.isEmptyFolder(cd:TconnData=NIL):boolean;
+var
+  listing: TfileListing;
+begin
+result:=FALSE;
+if not isFolder() then exit;
+listing:=TfileListing.create();
+//** i fear it is not ok to use fromFolder() to know if the folder is empty, because it gives empty also for unallowed folders. 
+listing.fromFolder( self, cd, FALSE, 1 );
+result:= length(listing.dir) = 0;
+listing.free;
+end; // isEmptyFolder
+
+// uses comments file
+function Tfile.getDynamicComment(skipParent:boolean=FALSE):string;
+var
+  comments: THashedStringList;
+begin
+try
+  result:=comment;
+  if result > '' then exit;
+  if mainfrm.loadSingleCommentsChk.checked then
+    result:=loadTextFile(resource+COMMENT_FILE_EXT);
+  if (result > '') or skipParent then exit;
+  comments:=THashedStringList.create();
+  try
+    try
+      comments.CaseSensitive:=FALSE;
+      comments.LoadFromFile(resource+'\..\'+COMMENTS_FILE);
+      result:=comments.values[name];
+    except end
+  finally
+    if result = '' then
+      begin
+      loadIon(resource+'\..', comments);
+      result:=comments.values[name];
+      end;
+    if result > '' then
+      result:=unescapeNL(result);
+    comments.free
+  end;
+finally result:=macroQuote(result) end;
+end; // getDynamicComment
+
+procedure Tfile.setDynamicComment(cmt:string);
+var
+  s, path, name: string;
+  i: integer;
+begin
+if not isTemp() then
+  begin
+  comment:=cmt; // quite easy
+  exit;
+  end;
+path:=resource+COMMENT_FILE_EXT;
+if fileExists(path) then
+  begin
+  if cmt='' then
+    deleteFile(path)
+  else
+    saveTextFile(path, cmt);
+  exit;
+  end;
+name:=extractFileName(resource);
+
+// we prefer descript.ion, but if its support was disabled,
+// or it doesn't exist while hfs.comments.txt does, then we'll use the latter
+path:=extractFilePath(resource)+COMMENTS_FILE;
+if not mainfrm.supportDescriptionChk.checked
+or fileExists(path) and not fileExists(extractFilePath(resource)+DESCRIPT_ION) then
+  saveTextfile(path, setKeyInString(loadTextFile(path), name, escapeNL(cmt)));
+
+if not mainfrm.supportDescriptionChk.checked then exit;
+
+path:=extractFilePath(resource)+DESCRIPT_ION;
+try
+  s:=loadDescriptionFile(path);
+  cmt:=escapeIon(cmt); // that's how multilines are handled in this file
+  i:=findNameInDescriptionFile(s, name);
+  if i = 0 then // not found
+    if cmt='' then // no comment, we are good
+      exit
+    else
+      s:=s+quoteIfAnyChar(' ', name)+' '+cmt+CRLF // append
+  else // found, then replace
+    if cmt='' then
+      replace(s, '', i, findEOL(s, i)) // remove the whole line
+    else
+      begin
+      i:=nonQuotedPos(' ', s, i); // replace just the comment
+      replace(s, cmt, i+1, findEOL(s, i, FALSE));
+      end;
+  if s='' then
+    deleteFile(path)
+  else
+    saveTextFile(path, s);
+except end;
+end; // setDynamicComment
+
+function Tfile.getParent():Tfile;
+begin
+if node = NIL then result:=NIL
+else if isTemp() then result:=nodeToFile(node)
+else if node.parent = NIL then result:=NIL
+else result:=node.parent.data
+end; // getParent
+
+function Tfile.getDLcount():integer;
+begin
+if isFolder() then result:=getDLcountRecursive()
+else if isTemp() then result:=autoupdatedFiles.getInt(resource)
+else result:=FDLcount;
+end; // getDLcount
+
+procedure Tfile.setDLcount(i:integer);
+begin
+if isTemp() then autoupdatedFiles.setInt(resource, i)
+else FDLcount:=i;
+end; // setDLcount
+
+function Tfile.getDLcountRecursive():integer;
+var
+  n: Ttreenode;
+  i: integer;
+  f: Tfile;
+begin
+if not isFolder() then
+  begin
+  result:=DLcount;
+  exit;
+  end;
+result:=0;
+if node = NIL then exit;
+n:=node.getFirstChild();
+if not isTemp() then
+  while assigned(n) do
+    begin
+    f:=nodeToFile(n);
+    if assigned(f) then
+      if f.isFolder() then inc(result, f.getDLcountRecursive())
+      else inc(result, f.FDLcount);
+    n:=n.getNextSibling();
+    end;
+if isRealFolder() then
+  for i:=0 to autoupdatedFiles.count-1 do
+    if ansiStartsText(resource, autoupdatedFiles[i]) then
+      inc(result, autoupdatedFiles.getIntByIdx(i));
+end; // getDLcountRecursive
+
+function Tfile.diskfree():int64;
+begin
+if FA_VIRTUAL in flags then result:=0
+else result:=diskSpaceAt(resource);
+end; // diskfree
+
+procedure Tfile.setupImage(newIcon:integer);
+begin
+icon:=newIcon;
+setupImage();
+end; // setupImage
+
+procedure Tfile.setupImage();
+begin
+if icon >= 0 then node.Imageindex:=icon
+else node.ImageIndex:=getIconForTreeview();
+node.SelectedIndex:=node.imageindex;
+end; // setupImage
+
+function Tfile.getIconForTreeview():integer;
+begin
+if FA_UNIT in flags then result:=ICON_UNIT
+else if FA_ROOT in flags then result:=ICON_ROOT
+else if FA_LINK in flags then result:=ICON_LINK
+else
+  if FA_FOLDER in flags then
+    if FA_VIRTUAL in flags then result:=ICON_FOLDER
+    else result:=ICON_REAL_FOLDER
+  else
+    if mainfrm.useSystemIconsChk.checked and (resource > '') then
+      result:=getImageIndexForFile(resource) // skip iconsCache
+    else
+      result:=ICON_FILE;
+end; // getIconForTreeview
+
+function encodeURL(s:string; fullEncode:boolean=FALSE):string;
+begin
+if fullEncode or mainFrm.encodenonasciiChk.checked then
+  s:=ansiToUTF8(s);
+result:=HSlib.encodeURL(s, mainFrm.encodeNonasciiChk.checked,
+  fullEncode or mainFrm.encodeSpacesChk.checked)
+end; // encodeURL
+
+function protoColon():string;
+const
+  LUT: array [boolean] of string = ('http://','https://');
+begin
+result:=LUT[mainFrm.httpsUrlsChk.checked];
+end; // protoColon
+
+function totallyEncoded(s:string):string;
+var
+  i: integer;
+begin
+result:='';
+for i:=1 to length(s) do
+  result:=result+'%'+intToHex(ord(s[i]),2)
+end; // totallyEncoded
+
+function Tfile.relativeURL(fullEncode:boolean=FALSE):string;
+begin
+if isLink() then result:=replaceText(resource, '%ip%', defaultIP)
+else if isRoot() then result:=''
+else result:=encodeURL(name, fullEncode)+if_(isFolder(),'/')
+end;
+
+function Tfile.pathTill(root:Tfile=NIL; delim:char='\'):string;
+var
+  f: Tfile;
+begin
+result:='';
+if self = root then exit;
+result:=name;
+f:=parent;
+if isTemp() then
+  begin
+  if FA_SOLVED_LNK in flags then
+    result:=extractFilePath(copy(lnk,length(f.resource)+2, MAXINT))+name // the path is the one of the lnk, but we have to replace the file name as the lnk can make it
+  else
+    result:=copy(resource, length(f.resource)+2, MAXINT);
+  if delim <> '\' then result:=replaceStr(result, '\', delim);
+  end;
+while assigned(f) and (f <> root) and (f <> rootFile) do
+  begin
+  result:=f.name+delim+result;
+  f:=f.parent;
+  end;
+end; // pathTill
+
+function Tfile.url(fullEncode:boolean=FALSE):string;
+begin
+assert(node<>NIL, 'node can''t be NIL');
+if isLink() then result:=relativeURL(fullEncode)
+else result:='/'+encodeURL(pathTill(rootFile,'/'), fullEncode)
+  +if_(isFolder() and not isRoot(), '/');
+end; // url
+
+function Tfile.getFolder():string;
+var
+  f: Tfile;
+  s: string;
+begin
+result:='/';
+f:=parent;
+while assigned(f) and assigned(f.parent) do
+  begin
+  result:='/'+f.name+result;
+  f:=f.parent;
+  end;
+if not isTemp() then exit;
+f:=parent; // f now points to the non-temporary ancestor item
+s:=extractFilePath(resource);
+s:=copy( s, length(f.resource)+2, length(s) );
+result:=result+replaceStr(s, '\','/');
+end; // getFolder
+
+function Tfile.fullURL(userpwd:string=''; ip:string=''):string;
+begin
+result:=url();
+if isLink() then exit;
+if assigned(srv) and srv.active and (srv.port <> '80') and (pos(':',ip) = 0)
+and not mainfrm.noPortInUrlChk.checked then
+  result:=':'+srv.port+result;
+if ip = '' then ip:=defaultIP;
+result:=protoColon()+nonEmptyConcat('',userpwd,'@')+ip+result
+end; // fullURL
+
+function Tfile.isDLforbidden():boolean;
+var
+  f: Tfile;
+begin
+// the flag can be in this node
+result:=FA_DL_FORBIDDEN in flags;
+if result or not isTemp() then exit;
+f:=nodeToFile(node);
+result:=assigned(f) and (FA_DL_FORBIDDEN in f.flags);
+end; // isDLforbidden
+
+function Tfile.isNew():boolean;
+var
+  t: Tdatetime;
+begin
+if FA_TEMP in flags then t:=mtime
+else t:=atime;
+result:=(filesStayFlaggedForMinutes > 0)
+  and (trunc(abs(now()-t)*24*60) <= filesStayFlaggedForMinutes)
+end; // isNew
+
+function Tfile.getRecursiveDiffTplAsStr(outInherited:Pboolean=NIL; outFromDisk:Pboolean=NIL):string;
+var
+  basePath, runPath, s, fn, diff: string;
+  f: Tfile;
+  first: boolean;
+
+  function add2diff(s:string):boolean;
+  begin
+  result:=FALSE;
+  if s = '' then exit;
+  diff:=s
+    + ifThen((diff > '') and not ansiEndsStr(CRLF,s), CRLF)
+    + ifThen((diff > '') and not isSectionAt(@diff[1]), '[]'+CRLF)
+    + diff;
+  result:=TRUE;
+  end; // add2diff
+
+begin
+result:='';
+diff:='';
+runPath:='';
+f:=self;
+if assigned(outInherited) then outInherited^:=FALSE;     
+if assigned(outFromDisk) then outFromDisk^:=FALSE;
+first:=TRUE;
+while assigned(f) do
+  begin
+  if f.isRealFolder() then
+    if f.isTemp() then
+      begin
+      basePath:=excludeTrailingPathDelimiter( extractFilePath(f.parent.resource) );
+      runPath:=copy(f.resource, length(basePath)+2, length(f.resource));
+      f:=f.parent;
+      end
+    else
+      begin
+      basePath:=excludeTrailingPathDelimiter(extractFilePath(f.resource));
+      runPath:=extractFileName(f.resource);
+      end;
+  // temp realFolder will cycle more than once, while non-temp only once
+  while runPath > '' do
+    begin
+    if add2diff(loadTextFile(basePath+'\'+runPath+'\'+DIFF_TPL_FILE)) and assigned(outFromDisk) then
+      outFromDisk^:=TRUE;
+    runPath:=excludeTrailingPathDelimiter(ExtractFilePath(runPath));
+    end;
+  // consider the diffTpl in node
+  s:=f.diffTpl;
+  if (s > '') and singleLine(s) then
+    begin
+    // maybe it refers to a file
+    fn:=trim(s);
+    if fileExists(fn) then doNothing()
+    else if fileExists(exePath+fn) then fn:=exePath+fn
+    else if fileExists(f.resource+'\'+fn) then fn:=f.resource+'\'+fn;
+    if fileExists(fn) then s:=loadTextFile(fn);
+    end;
+  if add2diff(s) and not first and assigned(outInherited) then
+    outInherited^:=TRUE;
+  f:=f.parent;
+  first:=FALSE;
+  end;
+result:=diff;
+end; // getRecursiveDiffTplAsStr
+
+function Tfile.getDefaultFile():Tfile;
+var
+  f: Tfile;
+  mask, s: string;
+  sr: TsearchRec;
+  n: Ttreenode;
+begin
+result:=NIL;
+mask:=getRecursiveFileMask();
+if mask = '' then exit;
+
+n:=node.getFirstChild();
+{ if this folder has been dinamically generated, the treenode is not actually
+{ its own, and we won't care about subitems }
+if not isTemp() then
+  while assigned(n) do
+    begin
+    f:=n.data;
+    n:=n.getNextSibling();
+    if (FA_LINK in f.flags) or f.isFolder()
+    or not fileMatch(mask, f.name) or not fileExists(f.resource) then continue;
+    result:=f;
+    exit;
+    end;
+
+if not isRealFolder() or not sysutils.directoryExists(resource) then exit;
+
+while mask > '' do
+  begin
+  s:=chop(';', mask);
+  if findFirst(resource+'\'+s, faAnyFile-faDirectory, sr) <> 0 then continue;
+  try
+    // encapsulate for returning
+    result:=Tfile.createTemp(resource+'\'+sr.name);
+    result.node:=node; // temporary nodes are bound to the parent's node
+  finally findClose(sr) end;
+  exit;
+  end;
+end; // getDefaultFile
+
+function Tfile.shouldCountAsDownload():boolean;
+var
+  f: Tfile;
+  mask: string;
+begin
+result:=not (FA_DONT_COUNT_AS_DL in flags);
+if not result then exit;
+f:=self;
+  repeat
+  mask:=f.dontCountAsDownloadMask;
+  f:=f.parent;
+  until (f = NIL) or (mask > '');
+if mask > '' then result:=not fileMatch(mask, name)
+end; // shouldCountAsDownload
+
+function Tfile.getShownRealm():string;
+var
+  f: Tfile;
+begin
+f:=self;
+  repeat
+  result:=f.realm;
+  if result > '' then exit;
+  f:=f.parent;
+  until f = NIL;
+if mainfrm.useCommentAsRealmChk.checked then
+  result:=getDynamicComment();
+end; // getShownRealm
+
+function Tfile.parentURL():string;
+var
+  i: integer;
+begin
+result:=url(TRUE);
+i:=length(result)-1;
+while (i > 1) and (result[i] <> '/') do dec(i);
+setlength(result,i);
+end; // parentURL
+
+function Tfile.getSystemIcon():integer;
+var
+  ic: PcachedIcon;
+  i: integer;
+begin
+result:=icon;
+if result >= 0 then exit;
+if isFile() then
+  for i:=0 to length(iconMasks)-1 do
+    if fileMatch(iconMasks[i].str, name) then
+      begin
+      result:=iconMasks[i].int;
+      exit;
+      end;
+ic:=iconsCache.get(resource);
+if ic = NIL then
+  begin
+  result:=getImageIndexForFile(resource);
+  iconsCache.put(resource, result, mtime);
+  exit;
+  end;
+if mtime <= ic.time then result:=ic.idx
+else
+  begin
+  result:=getImageIndexForFile(resource);
+  ic.time:=mtime;
+  ic.idx:=result;
+  end;
+end; // getSystemIcon
+
+procedure Tfile.lock();
+begin locked:=TRUE end;
+
+procedure Tfile.unlock();
+begin locked:=FALSE end;
+
+function Tfile.isLocked():boolean;
+var
+  f: Tfile;
+  n: Ttreenode;
+begin
+// check ancestors (first, because it is always fast)
+f:=self;
+  repeat
+  result:=f.locked;
+  f:=f.parent;
+  until (f = NIL) or result;
+// check descendants
+n:=node.getFirstChild();
+while assigned(n) and not result do
+  begin
+  result:=nodeToFile(n).isLocked();
+  n:=n.getNextSibling();
+  end;
+end; // isLocked
+
+procedure Tfile.recursiveApply(callback:TfileCallback; par:integer=0; par2:integer=0);
+var
+  n, next: Ttreenode;
+  r: TfileCallbackReturn;
+begin
+r:=callback(self, FALSE, par, par2);
+if FCB_DELETE in r then
+  begin
+  node.delete();
+  exit;
+  end;
+if FCB_NO_DEEPER in r then exit;
+n:=node.getFirstChild();
+while assigned(n) do
+  begin
+  next:=n.getNextSibling(); // "next" must be saved this point because the callback may delete the current node
+  if assigned(n.data) then nodeToFile(n).recursiveApply(callback, par, par2);
+  n:=next;
+  end;
+if FCB_RECALL_AFTER_CHILDREN in r then
+  begin
+  r:=callback(self, TRUE, par, par2);
+  if FCB_DELETE in r then node.delete();
+  end;
+end; // recursiveApply
+
+function Tfile.hasRecursive(attributes: TfileAttributes; orInsteadOfAnd:boolean=FALSE; outInherited:Pboolean=NIL):boolean;
+var
+  f: Tfile;
+begin
+result:=FALSE;
+f:=self;
+if assigned(outInherited) then outInherited^:=FALSE;
+while assigned(f) do
+  begin
+  result:=orInsteadOfAnd and (attributes*f.flags <> [])
+    or (attributes*f.flags = attributes);
+  if result then exit;
+  f:=f.parent;
+  if assigned(outInherited) then outInherited^:=TRUE;
+  end;
+if assigned(outInherited) then outInherited^:=FALSE; // grant it is set only if result=TRUE
+end; // hasRecursive
+
+function Tfile.hasRecursive(attribute: TfileAttribute; outInherited:Pboolean=NIL):boolean;
+begin result:=hasRecursive([attribute], FALSE, outInherited) end;
+
+function Tfile.accessFor(cd:TconnData):boolean;
+begin
+if cd = NIL then result:=accessFor('', '')
+else result:=accessFor(cd.usr, cd.pwd)
+end; // accessFor
+
+function Tfile.accessFor(username, password:string):boolean;
+var
+  a: Paccount;
+  f: Tfile;
+  list: TStringDynArray;
+begin
+result:=FALSE;
+if isFile() and isDLforbidden() then exit;
+result:=FALSE;
+f:=self;
+while assigned(f) do
+  begin
+  list:=f.accounts[FA_ACCESS]; // shortcut
+  
+  if (username = '') and stringExists(USER_ANONYMOUS, list, TRUE) then break;
+  // first check in user/pass
+  if (f.user > '') and sameText(f.user, username) and (f.pwd = password) then break;
+  // then in accounts
+  if assigned(list) then
+    begin
+    a:=getAccount(username);
+
+    if stringExists(USER_ANYONE, list, TRUE) then break;
+    // we didn't match the user/pass, but this file is restricted, so we must have an account at least to access it
+    if assigned(a) and (a.pwd = password) and
+      (stringExists(USER_ANY_ACCOUNT, list, TRUE) or (findEnabledLinkedAccount(a, list, TRUE) <> NIL))
+    then break;
+      
+    exit;
+    end;
+  // there's a user/pass restriction, but the password didn't match (if we got this far). We didn't exit before to give accounts a chance.
+  if f.user > '' then exit;
+
+  f:=f.parent;
+  end;
+result:=TRUE;
+
+// in case the file is not protected, we must not accept authentication credentials belonging to disabled accounts
+if (username > '') and (f = NIL) then
+  begin
+  a:=getAccount(username);
+  if a = NIL then exit;
+  result:=a.enabled;
+  end;
+end; // accessFor
+
+function Tfile.getRecursiveFileMask():string;
+var
+  f: Tfile;
+begin
+f:=self;
+  repeat
+  result:=f.defaultFileMask;
+  if result > '' then exit;
+  f:=f.parent;
+  until f = NIL;
+end; // getRecursiveFileMask
+
+function Tfile.getAccountsFor(action:TfileAction; specialUsernames:boolean=FALSE; outInherited:Pboolean=NIL):TstringDynArray;
+var
+  i: integer;
+  f: Tfile;
+  s: string;
+begin
+result:=NIL;
+f:=self;
+if assigned(outInherited) then outInherited^:=FALSE;
+while assigned(f) do
+  begin
+  for i:=0 to length(f.accounts[action])-1 do
+  	begin
+    s:=f.accounts[action][i];
+    if (s = '')
+    or (action = FA_UPLOAD) and not f.isRealFolder() then continue; // we must ignore this setting
+
+    if specialUsernames and (s[1] = '@')
+    or accountExists(s, specialUsernames) then // we admit groups only if specialUsernames are admitted too
+      addString(s, result);
+    end;
+  if (action = FA_ACCESS) and (f.user > '') then addString(f.user, result);
+  if assigned(result) then exit;
+  if assigned(outInherited) then outInherited^:=TRUE;
+  f:=f.parent;
+  end;
+end; // getAccountsFor
+
+procedure Tfile.getFiltersRecursively(var files,folders:string);
+var
+  f: Tfile;
+begin
+files:='';
+folders:='';
+f:=self;
+while assigned(f) do
+  begin
+  if (files = '') and (f.filesfilter > '') then files:=f.filesFilter;
+  if (folders = '') and (f.foldersfilter > '') then folders:=f.foldersFilter;
+  if (files > '') and (folders > '') then break;
+  f:=f.parent;
+  end;
+end; // getFiltersRecursively
+
+procedure kickByIP(ip:string);
+var
+  i: integer;
+  d: TconnData;
+begin
+i:=0;
+while i < srv.conns.count do
+  begin
+  d:=conn2data(i);
+  if assigned(d) and (d.address = ip) or (ip = '*') then
+    d.disconnect(first(d.disconnectReason, 'kicked'));
+  inc(i);
+  end;
+end; // kickByIP
+
+function getSafeHost(cd:TconnData):string;
+begin
+result:='';
+if cd = NIL then exit;
+if addressmatch(forwardedMask, cd.conn.address) then
+  result:=cd.conn.getHeader('x-forwarded-host');
+if result = '' then
+  result:=cd.conn.getHeader('host');
+result:=stripChars(result, ['0'..'9','a'..'z','A'..'Z',':','.','-','_'], TRUE);
+end; // getSafeHost
+
+function nodeIsLocked(n:Ttreenode):boolean;
+begin
+result:=FALSE;
+if (n = NIL) or (n.data = NIL) then exit;
+result:=nodeToFile(n).isLocked();
+end; // nodeIsLocked
+
+function objByIP(ip:string):TperIp;
+var
+  i: integer;
+begin
+i:=ip2obj.indexOf(ip);
+if i < 0 then
+  i:=ip2obj.add(ip);
+if ip2obj.objects[i] = NIL then
+  ip2obj.objects[i]:=TperIp.create();
+result:=ip2obj.objects[i] as TperIp;
+end; // objByIP
+
+function Tmainfrm.findFilebyURL(url:string; parent:Tfile=NIL; allowTemp:boolean=TRUE):Tfile;
+
+  procedure workTheRestByReal(rest:string; f:Tfile);
+  var
+    s: string;
+  begin
+  if not allowTemp then exit;
+
+  s:=rest; // just a shortcut
+  if dirCrossing(s) then exit;
+
+  s:=includeTrailingPathDelimiter(f.resource)+s; // we made the ".." test before, so relative paths are allowed in the VFS
+  if not fileOrDirExists(s) then
+    if fileOrDirExists(s+'.lnk') then s:=s+'.lnk'
+    else s:=UTF8ToString(s); // these may actually be two distinct files, but it's very unlikely to be, and pratically we workaround big problem
+  if not fileOrDirExists(s) or not hasRightAttributes(s) then exit;
+  // found on disk, we need to build a temporary Tfile to return it
+  result:=Tfile.createTemp(s);
+  // the temp file inherits flags from the real folder
+  if FA_DONT_LOG in f.flags then include(result.flags, FA_DONT_LOG);
+  if not (FA_BROWSABLE in f.flags) then exclude(result.flags, FA_BROWSABLE);
+  // temp nodes are bound to parent's node
+  result.node:=f.node;
+  end; // workTheRestByReal
+
+var
+  parts: TStringDynArray;
+  s: string;
+  cur, n: Ttreenode;
+  found: boolean;
+  f: Tfile;
+  i, j: integer;
+
+  function workDots():boolean;
+  label REMOVE;
+  var
+    i: integer;
+  begin
+  result:=FALSE;
+  i:=0;
+  while i < length(parts) do
+    begin
+    if parts[i] = '.' then
+      goto REMOVE; // 10+ years have passed since the last time i used labels in pascal. It's a thrill. 
+    if parts[i] <> '..' then
+      begin
+      inc(i);
+      continue;
+      end;
+    if i > 0 then
+      begin
+      removeString(parts, i-1, 2);
+      dec(i);
+      continue;
+      end;
+    parent:=parent.parent;
+    if parent = NIL then exit;
+    REMOVE:
+    removeString(parts, i, 1);
+    end;
+  result:=TRUE;
+  end; // workDots
+
+begin
+result:=NIL;
+if (url = '') or anycharIn(#0, url) then exit;
+if parent = NIL then
+  parent:=rootFile;
+url:=replaceStr(url, '//', '/');
+if url[1] = '/' then
+  begin
+  delete(url, 1,1);  // remove initial "/"
+  parent:=rootFile; // it's an absolute path, not relative
+  end;
+excludeTrailingString(url, '/');
+parts:=split('/', url);
+if not workDots() then exit;
+
+if parent.isTemp() then
+  begin
+  workTheRestByReal(url, parent);
+  exit;
+  end;
+
+cur:=parent.node;   // we'll move using treenodes
+for i:=0 to length(parts)-1 do
+  begin
+  s:=parts[i];
+  if s = '' then exit; // no support for null filenames
+  found:=FALSE;
+  // search inside the VFS
+  n:=cur.getFirstChild();
+  while assigned(n) do
+    begin
+    found:=stringExists(n.text, s) or sameText(n.text, UTF8toString(s));
+    if found then break;
+    n:=n.getNextSibling();
+    end;
+  if not found then // this piece was not found the virtual way
+    begin
+    f:=cur.data;
+    if f.isRealFolder() then // but real folders have not all the stuff loaded and ready. we have another way to walk.
+      begin
+      for j:=i+1 to length(parts)-1 do
+        s:=s+'\'+parts[j];
+      workTheRestByReal(s, f);
+      end;
+    exit;
+    end;
+  cur:=n;
+  if cur = NIL then exit;
+  end;
+result:=cur.data;
+end; // findFileByURL
+
+function fileExistsByURL(url:string):boolean;
+var
+  f: Tfile;
+begin
+f:=mainFrm.findFilebyURL(url);
+result:=assigned(f);
+freeIfTemp(f);
+end; // fileExistsByURL
+
+function getAccountList(users:boolean=TRUE; groups:boolean=TRUE):TstringDynArray;
+var
+  i, n: integer;
+begin
+setLength(result, length(accounts));
+n:=0;
+for i:=0 to length(result)-1 do
+  with accounts[i] do
+    if group and groups
+    or not group and users
+    then
+      begin
+      result[n]:=user;
+      inc(n);
+      end;
+setlength(result, n);
+end; // getAccountList
+
+function banAddress(ip:string):boolean;
+resourcestring
+  MSG = 'There are %d open connections from this address.'#13+
+        'Do you want to kick them all now?';
+  MSG2 = 'You can edit the address.'#13'Masks and ranges are allowed.';
+var
+  i: integer;
+  comm: string;
+begin
+result:=FALSE;
+mainfrm.setFocus();
+if not InputQuery('IP mask',MSG2,ip) then exit;
+
+for i:=0 to length(banlist)-1 do
+  if banlist[i].ip = ip then
+    begin
+    msgDlg('This IP address is already banned', MB_ICONWARNING);
+    exit;
+    end;
+
+comm:='';
+if not InputQuery('Ban comment','A comment for this ban...',comm) then exit;
+
+i:=length(banlist);
+setlength(banlist, i+1);
+banlist[i].ip:=ip;
+banlist[i].comment:=comm;
+
+i:=countConnectionsByIP(ip);
+if (i > 0) and (msgDlg(format(MSG,[i]), MB_ICONQUESTION+MB_YESNO) = IDYES) then
+  kickByIP(ip);
+result:=TRUE;
+end; // banAddress
+
+function createFingerprint(fn:string):string;
+var
+  fs: Tfilestream;
+  digest: TMD5Digest;
+  context: TMD5Context;
+  buf: array [1..32*1024] of byte;
+  i: integer;
+begin
+result:='';
+fs:=TfileStream.create(fn, fmOpenRead+fmShareDenyWrite);
+for i:=0 to 15 do byte(digest[i]):=succ(i);
+MD5init(context);
+try
+  repeat
+  i:=fs.Read(buf, sizeof(buf));
+  MD5updateBuffer(context, @buf, i);
+  if not progFrm.visible then continue;
+  progFrm.progress:=safeDiv(0.0+fs.position, fs.size);
+  application.processMessages();
+  if progFrm.cancelRequested then exit;
+  until i < sizeof(buf);
+finally
+  fs.free;
+  MD5final(digest, context);
+  for i:=0 to 15 do
+    result:=result+intToHex(byte(digest[i]), 2);
+  end;
+end; // createFingerprint
+
+function uptimestr():string;
+var
+  t: Tdatetime;
+begin
+result:='server down';
+if not srv.active then exit;
+t:=now()-uptime;
+result:=if_(t>1, format('(%d days) ',[trunc(t)]) )
+  +formatDateTime('hh:nn:ss',t)
+end; // uptimeStr
+
+function loadMD5for(fn:string):string;
+begin
+if getMtimeUTC(fn+'.md5') < getMtimeUTC(fn) then result:=''
+else result:=trim(getTill(' ',loadTextfile(fn+'.md5')))
+end; // loadMD5for
+
+function shouldRecur(data:TconnData):boolean;
+begin
+result:=mainFrm.recursiveListingChk.checked
+  and ((data.urlvars.indexOf('recursive') >= 0) or (data.urlvars.values['search'] > ''))
+end; // shouldRecur
+
+function Tmainfrm.getFolderPage(folder:Tfile; cd:TconnData; otpl:Tobject):string;
+// we pass the Tpl parameter as Tobject because symbol Ttpl is not defined yet
+
+var
+  baseurl, list, fileTpl, folderTpl, linkTpl: string;
+  table: TStringDynArray;
+  ofsRelItemUrl, ofsRelUrl, numberFiles, numberFolders, numberLinks: integer;
+  img_file: boolean;
+  totalBytes: int64;
+  fast: TfastStringAppend;
+  buildTime: Tdatetime;
+  listing: TfileListing;
+  diffTpl: Ttpl;
+  isDMbrowser: boolean;
+  hasher: Thasher;
+  fullEncode, recur, oneAccessible: boolean;
+  md: TmacroData;
+
+  procedure applySequential();
+  const
+    PATTERN = '%sequential%';
+  var
+    idx, p: integer;
+    idxS: string;
+  begin
+  idx:=0;
+  p:=1;
+    repeat
+    p:=ipos(PATTERN, result, p);
+    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;
+  end; // applySequential
+
+  procedure handleItem(f:Tfile);
+  var
+    type_, s, url, fingerprint, itemFolder: string;
+    nonPerc: TStringDynArray;
+  begin
+  if not f.isLink and containsStr(f.resource, '?') then exit; // unicode filename?   //mod by mars
+
+  // build up the symbols table
+  md.table:=table;
+  nonPerc:=NIL;
+  if f.icon >= 0 then
+    begin
+    s:='~img'+intToStr(f.icon);
+    addArray(nonPerc, ['~img_folder', s, '~img_link', s]);
+    end;
+  if f.isFile() then
+    if img_file and (useSystemIconsChk.checked or (f.icon >= 0)) then
+      addArray(nonPerc, ['~img_file', '~img'+intToStr(f.getSystemIcon())]);
+
+  if recur or (itemFolder = '') then
+    itemFolder:=optUTF8(diffTpl, f.getFolder());
+  if recur then
+    url:=substr(itemFolder, ofsRelItemUrl)
+  else
+    url:='';
+  addArray(md.table, [
+    '%item-folder%', itemFolder,
+    '%item-relative-folder%', url
+  ]);
+
+  if not f.accessFor(cd) then
+    s:=diffTpl['protected']
+  else
+    begin
+    s:='';
+    if f.isFileOrFolder() then
+      oneAccessible:=TRUE;
+    end;
+  addArray(md.table, [
+    '%protected%', s
+  ]);
+
+  // url building
+  fingerprint:='';
+  if fingerprintsChk.checked and f.isFile() then
+    begin
+    s:=loadMD5for(f.resource);
+    if s = '' then s:=hasher.getHashFor(f.resource);
+    if s > '' then fingerprint:='#!md5!'+s;
+    end;
+  if f.isLink() then
+    begin
+    url:=f.resource;
+    s:=url;
+    end
+  else
+    if pwdInPagesChk.Checked and (cd.usr > '') then
+      begin
+      if encodePwdUrlChk.checked then s:=totallyEncoded(cd.pwd)
+      else s:=encodeURL(cd.pwd);
+      s:=f.fullURL( encodeURL(cd.usr)+':'+s, getSafeHost(cd) )+fingerprint;
+      url:=s
+      end
+    else
+      begin
+      if recur then
+        s:=copy(f.url(fullEncode), ofsRelUrl, MAXINT)+fingerprint
+      else
+        s:=f.relativeURL(fullEncode)+fingerprint;
+      url:=baseurl+s;
+      end;
+
+  if not f.isLink() then
+    begin
+    s:=macroQuote(s);
+    url:=macroQuote(url);
+    end;
+
+  addArray(md.table, [
+    '%item-url%', s,
+    '%item-full-url%', url
+  ]);
+
+  // select appropriate template
+  if f.isLink() then
+    begin
+    s:=linkTpl;
+    inc(numberLinks);
+    type_:='link';
+    end
+  else if f.isFolder() then
+    begin
+    s:=folderTpl;
+    inc(numberFolders);
+    type_:='folder';
+    end
+  else
+    begin
+    s:=diffTpl.getTxtByExt(ExtractFileExt(f.name));
+    if s = '' then s:=fileTpl;
+    inc(numberFiles);
+    type_:='file';
+    end;
+
+  addArray(md.table, [
+    '%item-type%', type_
+  ]);
+
+  s:=xtpl(s, nonPerc);
+  md.f:=f;
+  tryApplyMacrosAndSymbols(s, md, FALSE);
+  fast.append(s);
+  end; // handleItem
+
+var
+  i, n: integer;
+  f: Tfile;
+begin
+result:='';
+if (folder = NIL) or not folder.isFolder() then exit;
+
+if macrosLogChk.checked and not appendmacroslog1.checked then
+  resetLog();
+diffTpl:=Ttpl.create();
+folder.lock();
+try
+  buildTime:=now();
+  cd.conn.addHeader('Cache-Control: no-cache, no-store, must-revalidate, max-age=-1');
+  recur:=shouldRecur(cd);
+  baseurl:=protoColon()+getSafeHost(cd)+folder.url(TRUE);
+
+  if cd.tpl = NIL then
+    diffTpl.over:=otpl as Ttpl
+  else
+    begin
+    diffTpl.over:=cd.tpl;
+    cd.tpl.over:=otpl as Ttpl;
+    end;
+
+  if otpl <> filelistTpl then
+    diffTpl.fullText:=optUTF8(diffTpl.over, folder.getRecursiveDiffTplAsStr());
+
+  isDMbrowser:= otpl = dmBrowserTpl;
+  fullEncode:=not isDMbrowser;
+  ofsRelUrl:=length(folder.url(fullEncode))+1;
+  ofsRelItemUrl:=length(optUTF8(diffTpl, folder.pathTill()))+1;
+  // pathTill() is '/' for root, and 'just/folder', so we must accordingly consider a starting and trailing '/' for the latter case (bugfix by mars)
+  if not folder.isRoot() then
+    inc(ofsRelItemUrl, 2);
+
+  fillChar(md, sizeOf(md), 0);
+  md.cd:=cd;
+  md.tpl:=diffTpl;
+  md.folder:=folder;
+  md.archiveAvailable:=folder.hasRecursive(FA_ARCHIVABLE) and not folder.isDLforbidden();
+  md.hideExt:=folder.hasRecursive(FA_HIDE_EXT);
+
+  result:=diffTpl['special:begin'];
+  tryApplyMacrosAndSymbols(result, md, FALSE);
+
+  // cache these values
+  fileTpl:=xtpl(diffTpl['file'], table);
+  folderTpl:=xtpl(diffTpl['folder'], table);
+  linkTpl:=xtpl(diffTpl['link'], table);
+  // this may be heavy to calculate, only do it upon request
+  img_file:=pos('~img_file', fileTpl) > 0;
+
+  // build %list% based on dir[]
+  numberFolders:=0; numberFiles:=0; numberLinks:=0;
+  totalBytes:=0;
+  oneAccessible:=FALSE;
+  fast:=TfastStringAppend.Create();
+  listing:=TfileListing.create();
+  hasher:=Thasher.create();
+  if fingerprintsChk.checked then
+    hasher.loadFrom(folder.resource);
+  try
+    listing.fromFolder( folder, cd, recur );
+    listing.sort(cd, if_(recur or (otpl = filelistTpl), '?', diffTpl['sort by']) ); // '?' is just a way to cause the sort to fail in case the sort key is not defined by the connection
+
+    n:=length(listing.dir);
+    for i:=0 to n-1 do
+      begin
+      f:=listing.dir[i];
+      if f.size > 0 then
+        inc(totalBytes, f.size);
+      if f.isLink() then
+        inc(numberLinks)
+      else if f.isFolder() then
+        inc(numberFolders)
+      else
+        inc(numberFiles);
+      end;
+    table:=toSA([
+      '%upload-link%', if_(accountAllowed(FA_UPLOAD, cd, folder), diffTpl['upload-link']),
+      '%files%', diffTpl[if_(n>0, 'files','nofiles')],
+      '%number%', intToStr(n),
+      '%number-files%', intToStr(numberFiles),
+      '%number-folders%', intToStr(numberFolders),
+      '%number-links%', intToStr(numberlinks),
+      '%total-bytes%', intToStr(totalBytes),
+      '%total-kbytes%', intToStr(totalBytes div KILO),
+      '%total-size%', smartsize(totalBytes)
+    ]);
+
+    for i:=0 to length(listing.dir)-1 do
+      begin
+      application.ProcessMessages();
+      if cd.conn.state = HCS_DISCONNECTED then exit;
+      cd.lastActivityTime:=now();
+      handleItem(listing.dir[i])
+      end;
+    list:=fast.reset();
+  finally
+    listing.free;
+    fast.free;
+    hasher.free;
+    end;
+
+  if cd.conn.state = HCS_DISCONNECTED then exit;
+
+  // build final page
+  if not oneAccessible then md.archiveAvailable:=FALSE;
+  md.table:=table;
+  addArray(md.table, [
+    '%list%',list
+  ]);
+  result:=diffTpl[''];
+  md.f:=NIL;
+  md.afterTheList:=TRUE;
+  try tryApplyMacrosAndSymbols(result, md)
+  finally md.afterTheList:=FALSE end;
+  applySequential();
+  // ensure this is the last symbol to be translated
+  result:=replaceText(result, '%build-time%',
+    floatToStrF((now()-buildTime)*SECONDS, ffFixed, 7,3) );
+finally
+  folder.unlock();
+  diffTpl.free;
+  end;
+end; // getFolderPage
+
+function getETA(data:TconnData):string;
+begin
+if (data.conn.state in [HCS_REPLYING_BODY, HCS_POSTING])
+and (data.eta.idx > ETA_FRAME) then result:=elapsedToStr(data.eta.result)
+else result:='-'
+end; // getETA
+
+function tplFromFile(f:Tfile):Ttpl;
+begin result:=Ttpl.create(optUTF8(tpl, f.getRecursiveDiffTplAsStr()), tpl) end;
+
+procedure setDefaultIP(v:string);
+var
+  old: string;
+begin
+old:=defaultIP;
+if v > '' then defaultIP:=v
+else if externalIP > '' then defaultIP:=externalIP
+else defaultIP:=getIP();
+if mainfrm = NIL then exit;
+mainfrm.updateUrlBox();
+if old = defaultIP then exit;
+try
+  v:=clipboard.AsText;
+  if pos(old, v) = 0 then exit;
+except end;
+setClip( replaceStr(v, old, defaultIP) );
+end; // setDefaultIP
+
+function name2mimetype(fn:string; default:string):string;
+var
+  i: integer;
+begin
+result:=default;
+for i:=0 to length(mimeTypes) div 2-1 do
+  if fileMatch(mimeTypes[i*2], fn) then
+    begin
+    result:=mimeTypes[i*2+1];
+    exit;
+    end;
+for i:=0 to length(DEFAULT_MIME_TYPES) div 2-1 do
+  if fileMatch(DEFAULT_MIME_TYPES[i*2], fn) then
+    begin
+    result:=DEFAULT_MIME_TYPES[i*2+1];
+    exit;
+    end;
+end; // name2mimetype
+
+procedure Tmainfrm.getPage(sectionName:string; data:TconnData; f:Tfile=NIL; tpl2use:Ttpl=NIL);
+var
+  md: TmacroData;
+
+ procedure addProgressSymbols();
+  var
+    t, files, fn: string;
+    i: integer;
+    d: TconnData;
+    perc: real;
+    bytes, total: int64;
+  begin
+  if sectionName <> 'progress' then exit;
+
+  bytes:=0; total:=0; // shut up compiler
+  files:='';
+  i:=-1;
+    repeat // a while-loop would look better but would lead to heavy indentation
+    inc(i);
+    if i >= srv.conns.count then break;
+    d:=conn2data(i);
+    if d.address <> data.address then continue;
+    fn:='';
+    // fill fields
+    if isReceivingFile(d) then
+      begin
+      t:=tpl2use['progress-upload-file'];
+      fn:=d.uploadSrc; // already encoded by the browser
+      bytes:=d.conn.bytesPosted;
+      total:=d.conn.post.length;
+      end;
+    if isSendingFile(d) then
+      begin
+      if d.conn.reply.bodymode <> RBM_FILE then continue;
+      t:=tpl2use['progress-download-file'];
+      fn:=optUTF8(tpl2use, d.lastFN);
+      bytes:=d.conn.bytesSentLastItem;
+      total:=d.conn.bytesPartial;
+      end;
+    perc:=safeDiv(0.0+bytes, total); // 0.0 forces a typecast that will call the right overloaded function
+    // no file exchange
+    if fn = '' then continue;
+    fn:=macroQuote(fn);
+    // apply fields
+    files:=files+xtpl(t, [
+      '%item-user%', macroQuote(d.usr),
+      '%perc%',intToStr( trunc(perc*100) ),
+      '%filename%', fn,
+      '%filename-js%', jsEncode(fn, '''"'),
+      '%done-bytes%', intToStr(bytes),
+      '%total-bytes%', intToStr(total),
+      '%done%', smartsize(bytes),
+      '%total%', smartsize(total),
+      '%time-left%', getETA(d),
+      '%speed-kb%', floatToStrF(d.averageSpeed/1000, ffFixed, 7,1),
+      '%item-ip%', d.address,
+      '%item-port%', d.conn.port
+    ]);
+    until false;
+  if files = '' then files:=tpl2use['progress-nofiles'];
+  addArray(md.table, ['%progress-files%', files]);
+  end; // addProgressSymbols
+
+  procedure addUploadSymbols();
+  var
+    i: integer;
+    files: string;
+  begin
+  if sectionName <> 'upload' then exit;
+  files:='';
+  for i:=1 to 10 do
+    files:=files+ replaceText(tpl2use['upload-file'], '%idx%',intToStr(i));
+  addArray(md.table, ['%upload-files%', files]);
+  end; // addUploadSymbols
+
+  procedure addUploadResultsSymbols();
+  var
+    files: string;
+    i: integer;
+  begin
+  if sectionName <> 'upload-results' then exit;
+  files:='';
+  for i:=0 to length(data.uploadResults)-1 do
+    with data.uploadResults[i] do
+      files:=files+xtpl(tpl2use[ if_(reason='','upload-success','upload-failed') ],[
+        '%item-name%', htmlEncode(macroQuote(optUTF8(tpl2use, fn))),
+        '%item-url%', macroQuote(encodeURL(fn)),
+        '%item-size%', smartsize(size),
+        '%item-resource%', f.resource+'\'+fn,
+        '%idx%', intToStr(i+1),
+        '%reason%', optUTF8(tpl2use, reason),
+        '%speed%', intToStr(speed div 1000), // legacy
+        '%smart-speed%', smartsize(speed)
+      ]);
+  addArray(md.table, ['%uploaded-files%', files]);
+  data.uploadResults:=NIL; // reset
+  end; // addUploadResultsSymbols
+
+var
+  s: string;
+  section: PtplSection;
+  buildTime: Tdatetime;
+  externalTpl: boolean;
+begin
+buildTime:=now();
+
+externalTpl:=assigned(tpl2use);
+if not externalTpl then
+  tpl2use:=tplFromFile(Tfile(first(f, rootFile)));
+if assigned(data.tpl) then
+  begin
+  data.tpl.over:=tpl2use.over;
+  tpl2use.over:=data.tpl;
+  end;
+
+
+try
+  data.conn.reply.mode:=HRM_REPLY;
+  data.conn.reply.bodyMode:=RBM_STRING;
+  data.conn.reply.body:='';
+except end;
+
+section:=tpl2use.getSection(sectionName);
+if section = NIL then exit;
+
+try
+  fillChar(md, sizeOf(md), 0);
+  addUploadSymbols();
+  addProgressSymbols();
+  addUploadResultsSymbols();
+  if data = NIL then s:=''
+  else s:=first(data.banReason, data.disconnectReason);
+  addArray(md.table, ['%reason%', optUTF8(tpl2use, s)]);
+
+  data.conn.reply.contentType:=name2mimetype(sectionName, 'text/html');
+  if sectionName = 'ban' then data.conn.reply.mode:=HRM_DENY;
+  if sectionName = 'deny' then data.conn.reply.mode:=HRM_DENY;
+  if sectionName = 'not found' then data.conn.reply.mode:=HRM_NOT_FOUND;
+  if sectionName = 'unauthorized' then data.conn.reply.mode:=HRM_UNAUTHORIZED;
+  if sectionName = 'overload' then data.conn.reply.mode:=HRM_OVERLOAD;
+  if sectionName = 'max contemp downloads' then data.conn.reply.mode:=HRM_OVERLOAD;
+
+  md.cd:=data;
+  md.tpl:=tpl2use;
+  md.folder:=f;
+  md.f:=NIL;
+  md.archiveAvailable:=FALSE;
+  s:=tpl2use['special:begin'];
+  tryApplyMacrosAndSymbols(s, md, FALSE);
+
+  if data.conn.reply.mode = HRM_REPLY then
+    s:=section.txt
+  else
+    begin
+    s:=replaceText(tpl2use['error-page'], '%content%', section.txt);
+    if s = '' then
+      s:=section.txt;
+    end;
+
+  tryApplyMacrosAndSymbols(s, md);
+
+  s:=replaceText(s, '%build-time%',
+    floatToStrF((now()-buildTime)*SECONDS, ffFixed, 7,3) );
+  data.conn.reply.body:=UTF8encode(s);
+  if section.nolog then data.dontLog:=TRUE;
+  compressReply(data);
+finally
+  if not externalTpl then
+    tpl2use.free
+  end
+end; // getPage
+
+procedure TmainFrm.findExtOnStartupChkClick(Sender: TObject);
+resourcestring
+  MSG = 'This option is NOT compatible with "dynamic dns updater".'
+    +#13'Continue?';
+begin
+with sender as TMenuItem do
+  if dyndns.active and (dyndns.url > '') and checked then
+    checked:= msgDlg(MSG, MB_ICONWARNING+MB_YESNO) = MRYES;
+end;
+
+function notModified(conn:ThttpConn; etag, ts:string):boolean; overload;
+begin
+result:= (etag>'') and (etag = conn.getHeader('If-None-Match'));
+if result then
+  begin
+  conn.reply.mode:=HRM_NOT_MODIFIED;
+  exit;
+  end;
+conn.addHeader('ETag: '+etag);
+if ts > '' then
+  conn.addHeader('Last-Modified: '+ts);
+end; // notModified
+
+function notModified(conn:ThttpConn; f:string):boolean; overload;
+begin result:=notModified(conn, getEtag(f), dateToHTTP(f)) end;
+
+function notModified(conn:ThttpConn; f:Tfile):boolean; overload;
+begin result:=notModified(conn, f.resource) end;
+
+function Tmainfrm.sendPic(cd:TconnData; idx:integer=-1):boolean;
+var
+  s, url: string;
+  special: (no, graph);
+begin
+url:=decodeURL(cd.conn.request.url);
+result:=FALSE;
+special:=no;
+if idx < 0 then
+  begin
+  s:=url;
+  if not ansiStartsText('/~img', s) then exit;
+  delete(s,1,5);
+  // converts special symbols
+  if ansiStartsText('_graph', s) then special:=graph else
+  if ansiStartsText('_link', s) then idx:=ICON_LINK else
+  if ansiStartsText('_file', s) then idx:=ICON_FILE else
+  if ansiStartsText('_folder', s) then idx:=ICON_FOLDER else
+  if ansiStartsText('_lock', s) then idx:=ICON_LOCK else
+    try idx:=strToInt(s) except exit end;
+  end;
+
+if (special = no) and ((idx < 0) or (idx >= images.count)) then exit;
+
+case special of
+  no: cd.conn.reply.body:=pic2str(idx);
+  graph: cd.conn.reply.body:=getGraphPic(cd);
+  end;
+
+result:=TRUE;
+{**
+// browser caching support
+if idx < startingImagesCount then
+  s:=intToStr(idx)+':'+etags.values['exe']
+else
+  s:=etags.values['icon.'+intToStr(idx)];
+if notModified(cd.conn, s, '') then
+  exit;
+}
+cd.conn.reply.mode:=HRM_REPLY;
+cd.conn.reply.contentType:='image/gif';
+cd.conn.reply.bodyMode:=RBM_STRING;
+cd.downloadingWhat:=DW_ICON;
+cd.lastFN:=copy(url,2,1000);
+end; // sendPic
+
+function getAgentID(s:string):string; overload;
+var
+  res: string;
+
+  function test(id:string):boolean;
+  var
+    i: integer;
+  begin
+  result:=FALSE;
+  i:=pos(id,s);
+  case i of
+    0: exit;
+    1: res:=getTill('/', getTill(' ',s));
+    else
+      begin
+      delete(s,1,i-1);
+      res:=getTill(';',s);
+      end;
+    end;
+  result:=TRUE;
+  end; // its
+
+begin
+result:=stripChars(s,['<','>']);
+if test('Crazy Browser')
+or test('iPhone')
+or test('iPod')
+or test('iPad')
+or test('Chrome')
+or test('WebKit') // generic webkit browser
+or test('Opera')
+or test('MSIE')
+or test('Mozilla') then
+  result:=res;
+end; // getAgentID
+
+function getAgentID(conn:ThttpConn):string; overload;
+begin result:=getAgentID(conn.getHeader('User-Agent')) end;
+
+procedure setupDownloadIcon(data:TconnData);
+
+  procedure painticon();
+  var
+    bmp: Tbitmap;
+    s: string;
+    perc: real;
+  begin
+  perc:=safeDiv(0.0+data.conn.bytesSentLastItem, data.conn.bytesPartial);
+  s:=intToStr( trunc(perc*100) )+'%';
+  bmp:=getBaseTrayIcon(perc);
+  drawTrayIconString(bmp.canvas, s);
+  data.tray_ico.Handle:=bmpToHico(bmp);
+  bmp.free;
+  data.tray.setIcon(data.tray_ico);
+  data.tray.setTip(
+    if_( data.conn.reply.bodyMode=RBM_STRING, decodeURL(data.conn.request.url), data.lastFN )
+    +trayNL+format('%.1f KB/s', [data.averageSpeed/1000])
+    +trayNL+dotted(data.conn.bytesSentLastItem)+' bytes sent'
+    +trayNL+data.address
+  );
+  data.tray.show();
+  end; // paintIcon
+
+begin
+if (data = NIL) or (data.conn = NIL) then exit;
+if assigned(data.tray)
+and ((data.conn.state <> HCS_REPLYING_BODY) or
+  (data.conn.bytesSentLastItem = data.conn.bytesPartial)) then
+  begin
+  data.tray.hide();
+  freeAndNIL(data.tray);
+  data.tray_ico.free;
+  exit;
+  end;
+if not isSendingFile(data) then exit;
+
+if not data.countAsDownload then exit;
+
+if data.tray = NIL then
+  begin
+  data.tray:=TmyTrayIcon.create(mainfrm);
+  data.tray.data:=data;
+  data.tray_ico:=Ticon.create();
+  data.tray.onEvent:=mainfrm.downloadTrayEvent;
+  end;
+if mainfrm.trayfordownloadChk.checked and isSendingFile(data) then
+  paintIcon()
+else data.tray.hide();
+end; // setupDownloadIcon
+
+function getDynLogFilename(cd:TconnData):string; overload;
+var
+  d, m, y, w: word;
+  u: string;
+begin
+decodeDateFully(now(), y,m,d,w);
+if cd = NIL then u:=''
+else u:=nonEmptyConcat('(', cd.usr, ')');
+result:=xtpl(logFile.filename, [
+  '%d%', int0(d,2),
+  '%m%', int0(m,2),
+  '%y%', int0(y,4),
+  '%dow%', int0(w-1,2),
+  '%w%', int0(weekOf(now()),2),
+  '%user%', u
+]);
+end; // getDynLogFilename
+
+procedure applyISOdateFormat();
+begin
+if mainfrm.useISOdateChk.checked then FormatSettings.ShortDateFormat:='yyyy-mm-dd'
+else FormatSettings.ShortDateFormat:=GetLocaleStr(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE,'');
+end;
+
+procedure Tmainfrm.add2log(lines:string; cd:TconnData=NIL; clr:Tcolor=clDefault);
+var
+  s, ts, first, rest, addr: string;
+begin
+if not logOnVideoChk.checked
+and ((logFile.filename = '') or (logFile.apacheFormat > '')) then
+  exit;
+
+if clr = clDefault then
+  clr:=clWindowText;
+
+if logDateChk.checked then
+  begin
+  applyISOdateFormat(); // this call shouldn't be necessary here, but it's a workaround to this bug www.rejetto.com/forum/?topic=5739
+  if logTimeChk.checked then ts:=datetimeToStr(now())
+  else ts:=dateToStr(now())
+  end
+else
+  if logTimeChk.checked then ts:=timeToStr(now())
+  else ts:='';
+
+first:=chopLine(lines);
+if lines = '' then
+  rest:=''
+else
+  rest:=reReplace(lines, '^', '> ')+CRLF;
+
+addr:='';
+if assigned(cd) and assigned(cd.conn) then
+  begin
+  addr:=cd.address+':'+cd.conn.port
+    +nonEmptyConcat(' {', localDNSget(cd.address), '}');
+  if freeLoginChk.checked or cd.acceptedCredentials then
+    addr:=nonEmptyConcat('', cd.usr, '@')+addr;
+  end;
+
+if (logFile.filename > '') and (logFile.apacheFormat = '') then
+  begin
+  s:=ts;
+  if (cd = NIL) or (cd.conn = nil) then s:=s+TAB+''+TAB+''+TAB+''+TAB+''
+  else s:=s+TAB+cd.usr+TAB+cd.address+TAB+cd.conn.port+TAB+localDNSget(cd.address);
+  s:=s+TAB+first;
+
+  if tabOnLogFileChk.checked then s:=s+stripChars(reReplace(lines, '^', TAB),[#13,#10])
+  else s:=s+CRLF+rest;
+
+  includeTrailingString(s,CRLF);
+  appendFile(getDynLogFilename(cd), s);
+  end;
+
+if not logOnVideoChk.checked then exit;
+
+logbox.selstart:=length(logbox.Text);
+logBox.SelAttributes.name:=logFontName;
+if logFontSize > 0 then
+  logBox.SelAttributes.size:=logFontSize;
+logBox.SelAttributes.Color:=clRed;
+logBox.SelText:=ts+' ';
+if addr > '' then
+  begin
+  logBox.SelAttributes.Color:=ADDRESS_COLOR;
+  logBox.SelText:=addr+' ';
+  end;
+logBox.SelAttributes.color:=clr;
+logBox.SelText:=first+CRLF;
+logBox.selAttributes.color:=clBlue;
+logBox.SelText:=rest;
+
+if (logMaxLines = 0) or (logBox.Lines.Count <= logMaxLines) then exit;
+// found no better way to remove multiple lines with a single move
+logBox.perform(WM_SETREDRAW, 0, 0);
+try
+  logBox.SelStart:=0;
+  logBox.SelLength:=logBox.perform(EM_LINEINDEX, logBox.lines.count-round(logMaxLines*0.9), 0);;
+  logBox.selText:='';
+  logbox.selstart:=length(logbox.Text);
+finally
+  logBox.perform(WM_SETREDRAW, 1, 0);
+  logBox.invalidate();
+  end;
+end; // add2log
+
+function isBanned(address:string; out comment:string):boolean; overload;
+var
+  i:integer;
+begin
+result:=TRUE;
+for i:=0 to length(banlist)-1 do
+  if addressMatch(banlist[i].ip, address) then
+    begin
+    comment:=banlist[i].comment;
+    exit;
+    end;
+result:=FALSE;
+end; // isBanned
+
+function isBanned(cd:TconnData):boolean; overload;
+begin result:=assigned(cd) and isBanned(cd.address, cd.banReason) end;
+
+procedure kickBannedOnes();
+var
+  i: integer;
+  d: TconnData;
+begin
+i:=0;
+while i < srv.conns.count do
+  begin
+  d:=conn2data(i);
+  if isBanned(d) then
+    d.disconnect(first(d.disconnectReason, 'kick banned'));
+  inc(i);
+  end;
+end; // kickBannedOnes
+
+function startServer():boolean;
+
+  procedure tryPorts(list:array of string);
+  var
+    i: integer;
+  begin
+  for i:=0 to length(list)-1 do
+    begin
+    srv.port:=trim(list[i]);
+    if srv.start(listenOn) then exit;
+    end;
+  end; // tryPorts
+
+begin
+result:=FALSE;
+if srv.active then exit; // fail if already active
+
+if (localIPlist.IndexOf(listenOn) < 0) and (listenOn <> '127.0.0.1') then
+  listenOn:='';
+
+if port > '' then
+  tryPorts([port])
+else
+  tryPorts(['80','8080','280','10080','0']);
+if not srv.active then exit; // failed
+upTime:=now();
+result:=TRUE;
+end; // startServer
+
+procedure stopServer();
+begin if assigned(srv) then srv.stop() end;
+
+procedure sayPortBusy(port:string);
+var
+  fn: string;
+begin
+try fn:=extractFileName(pid2file(port2pid(port)));
+except fn:='' end;
+msgDlg('Cannot open port.'#13+if_(fn>'', 'It is already used by '+fn, 'Something is blocking, maybe your system firewall.'), MB_ICONERROR);
+end; // sayPortBusy
+
+procedure toggleServer();
+resourcestring
+  MSG2 = 'There are %d connections open.'#13'Do you want to close them now?';
+begin
+if srv.active then stopServer()
+else
+  if not startServer() then
+    sayPortBusy(srv.port);
+if (srv.conns.count = 0) or srv.active then exit;
+if msgDLg(format(MSG2,[srv.conns.count]), MB_ICONQUESTION+MB_YESNO) = IDYES then
+  kickByIP('*');
+end; // toggleServer
+
+function restartServer():boolean;
+var
+  port: string;
+begin
+result:=FALSE;
+if not srv.active then exit;
+port:=srv.port;
+srv.stop();
+srv.port:=port;
+result:=srv.start(listenOn);
+end; // restartServer
+
+procedure updatePortBtn();
+begin
+if assigned(srv) then
+  mainfrm.portBtn.Caption:=format(S_PORT_LABEL, [
+    if_(srv.active, srv.port, first(port,S_PORT_ANY))]);
+end; // updatePortBtn
+
+procedure apacheLogCb(re:TregExpr; var res:string; data:pointer);
+const
+  APACHE_TIMESTAMP_FORMAT = 'dd"/!!!/"yyyy":"hh":"nn":"ss';
+var
+  code, codes, par: string;
+  cmd: char;
+  cd: TconnData;
+
+  procedure extra();
+  var
+    i: integer;
+  begin
+  // apache log standard for "nothing" is "-", but "-" is a valid filename
+  res:='';
+  if cd.uploadResults = NIL then exit;
+  for i:=0 to length(cd.uploadResults)-1 do
+    with cd.uploadResults[i] do
+      if reason = '' then
+        res:=res+fn+'|';
+  setLength(res, length(res)-1);
+  end; // extra
+
+begin
+cd:=data;
+if cd = NIL then exit; // something's wrong
+code:=intToStr(HRM2CODE[cd.conn.reply.mode]);
+// first parameter specifies http code to match as CSV, with leading '!' to invert logic
+codes:=re.match[1];
+if (codes > '') and ((pos(code, codes) > 0) = (codes[1] = '!')) then
+  begin
+  res:='-';
+  exit;
+  end;
+par:=re.match[3];
+cmd:=re.match[4][1]; // it's case sensitive
+try
+  case cmd of
+    'a', 'h': res:=cd.address;
+    'l': res:='-';
+    'u': res:=first(cd.usr, '-');
+    't': res:='['
+      +replaceStr(formatDatetime(APACHE_TIMESTAMP_FORMAT, now()),
+        '!!!',MONTH2STR[monthOf(now())])
+      +' '+logfile.apacheZoneString+']';
+    'r': res:=getTill(CRLF, cd.conn.request.full);
+    's': res:=code;
+    'B': res:=intToStr(cd.conn.bytesSentLastItem);
+    'b': if cd.conn.bytesSentLastItem = 0 then res:='-' else res:=intToStr(cd.conn.bytesSentLastItem);
+    'i': res:=cd.conn.getHeader(par);
+    'm': res:=METHOD2STR[cd.conn.request.method];
+    'c': if (cd.conn.bytesToSend > 0) and (cd.conn.state = HCS_DISCONNECTED) then res:='X'
+          else if cd.disconnectAfterReply then res:='-'
+          else res:='+';
+    'e': res:=getEnvironmentVariable(par);
+    'f': res:=cd.lastFile.name;
+    'H': res:='HTTP'; // no way
+    'p': res:=srv.port;
+    'z': extra(); // extra information specific for hfs
+    else res:='UNSUPPORTED';
+    end;
+except res:='ERROR' end;
+end; // apacheLogCb
+
+procedure removeFilesFromComments(files:TStringDynArray);
+var
+  fn, lastPath, path: string;
+  trancheStart, trancheEnd: integer; // the tranche is a window within 'files' of items sharing the same path
+  ss: TstringList;
+
+  procedure doTheTranche();
+  var
+    i, b: integer;
+    fn, s: string;
+    anyChange: boolean;
+  begin
+  // leave only the files' name
+  for i:=trancheStart to trancheEnd do
+    files[i]:=copy(files[i],length(lastPath)+1,MAXINT);
+  // comments file
+  try
+    fn:=lastPath+COMMENTS_FILE;
+    ss.loadFromFile(fn);
+    anyChange:=FALSE;
+    for i:=trancheStart to trancheEnd do
+      begin
+      b:=ss.indexOfName(files[i]);
+      if b < 0 then continue;
+      ss.delete(b);
+      anyChange:=TRUE;
+      end;
+    if anyChange then
+      if ss.count = 0 then
+        deleteFile(fn)
+      else
+        ss.saveToFile(fn);
+  except end;
+  // descript.ion
+  if not mainfrm.supportDescriptionChk.checked then exit;
+  try
+    fn:=path+DESCRIPT_ION;
+    s:=loadTextFile(fn);
+    if s = '' then exit;
+    if mainfrm.oemForIonChk.checked then
+      OEMToCharBuff(@s[1], @s[1], length(s));
+    anyChange:=FALSE;
+    for i:=trancheStart to trancheEnd do
+      begin
+      b:=findNameInDescriptionFile(s, files[i]);
+      if b = 0 then continue;
+      delete(s, b, findEOL(s,b)-b+1);
+      anyChange:=TRUE;
+      end;
+    if anyChange then
+      if s='' then
+        deleteFile(fn)
+      else
+        saveTextfile(fn, s);
+  except end;
+  end; // doTheTranche
+
+begin
+// collect files with same path in tranche, then process it
+sortArray(files);
+trancheStart:=0;
+ss:=TstringList.create(); // we'll use this in doTheTranche(), but create the object once, as an optimization
+try
+  ss.caseSensitive:=FALSE;
+  for trancheEnd:=0 to length(files)-1 do
+    begin
+    fn:=files[trancheEnd];
+    path:=getTill(lastDelimiter('\/', fn), fn);
+    if trancheEnd = 0 then
+      lastPath:=path;
+    if path <> lastPath then
+      begin
+      doTheTranche();
+      // init the new tranche
+      trancheStart:=trancheEnd+1;
+      lastPath:=path;
+      end;
+    end;
+  trancheEnd:=length(files)-1; // after the for-loop, the variable seems to not be trustable
+  doTheTranche();
+finally ss.free end;
+end; // removeFilesFromComments
+
+procedure runTplImport();
+var
+  f, fld: Tfile;
+begin
+f:=Tfile.create(tplFilename);
+fld:=Tfile.create(extractFilePath(tplFilename));
+try runScript(tpl['special:import'], NIL, tpl, f, fld);
+finally
+  freeAndNIL(f);
+  freeAndNIL(fld);
+  end;
+end; // runTplImport
+
+// returns true if template was patched
+function setTplText(text:string):boolean;
+(* postponed to next release
+  procedure patch290();
+  {$J+}
+  const
+    PATCH: string = '';
+    PATCH_RE = '(\[ajax\.mkdir.+)\[special:import';
+  var
+    se: TstringDynArray;
+    i: integer;
+  begin
+  // is it default tpl?
+  if not ansiStartsText('Welcome! This is the default template for HFS 2.3', text) then
+    exit;
+  // needs to be patched?
+  if pos('template revision TR1.',substr(text,1,80)) = 0 then
+    exit;
+  // calculate the patch once
+  if length(PATCH)=0 then
+    PATCH:=reGet(defaultTpl, PATCH_RE, 1, '!mis');
+  {$J-}
+  // find the to-be-patched
+  i:=reMatch(text, PATCH_RE, '!mis', 1, @se);
+  if i=0 then exit; // something is wrong
+  result:=TRUE; // mark
+  replace(text, PATCH, i, i+length(se[1])-1); // real patch
+  text:=stringReplace(text, 'template revision TR1.', 'template revision TR3.', []); // version stamp
+  end;//patchIt
+*)
+begin
+result:=FALSE; // mod by mars
+//patch290();
+// if we'd use optUTF8() here, we couldn't make use of tpl.utf8, because text would not be parsed yet
+tpl.fullText:=text;
+tplIsCustomized:= text <> defaultTpl;
+if boolOnce(tplImport) then
+  runTplImport();
+end; // setTplText
+
+procedure keepTplUpdated();
+begin
+if fileExists(tplFilename) then
+  begin
+  if newMtime(tplFilename, tplLast) then
+    if setTplText(loadTextFile(tplFilename)) then
+      saveTextFile(tplFilename, tpl.fullText);
+  end
+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
+
+function getNewSID():string;
+begin result:=floatToStr(random()) end;
+
+procedure setNewTplFile(fn:string);
+begin
+tplFilename:=fn;
+tplImport:=TRUE;
+tplLast:=0;
+end; // setNewTplFile
+
+procedure Tmainfrm.httpEvent(event:ThttpEvent; conn:ThttpConn);
+var
+  data: TconnData;
+  f: Tfile;
+  url: ansistring;
+
+  procedure switchToDefaultFile();
+  var
+    default: Tfile;
+  begin
+  if (f = NIL) or not f.isFolder() then exit;
+  default:=f.getDefaultFile();
+  if default = NIL then exit;
+  freeIfTemp(f);
+  f:=default;
+  end; // switchToDefaultFile
+
+  function calcAverageSpeed(bytes:int64):integer;
+  begin result:=round(safeDiv(bytes, (now()-data.fileXferStart)*SECONDS)) end;
+
+  function runEventScript(event:string; table:array of string):string; overload;
+  var
+    md: TmacroData;
+    pleaseFree: boolean;
+  begin
+  result:=trim(eventScripts[event]);
+  if result = '' then exit;
+  fillChar(md, sizeOf(md), 0);
+  md.cd:=data;
+  md.table:=toSA(table);
+  md.tpl:=eventScripts;
+  addArray(md.table, ['%event%', event]);
+  pleaseFree:=FALSE;
+  try
+    if isReceivingFile(data) then
+      begin
+      // we must encapsulate it in a Tfile to expose file properties to the script. we don't need to cache the object because we need it only once.
+      md.f:=Tfile.createTemp(data.uploadDest);
+      md.f.size:=sizeOfFile(data.uploadDest);
+      pleaseFree:=TRUE;
+
+      md.folder:=data.lastFile;
+      if assigned(md.folder) then
+        md.f.node:=md.folder.node;
+      end
+    else if assigned(f) then
+      md.f:=f
+    else if assigned(data) then
+      md.f:=data.lastFile;
+
+    if assigned(md.f) and (md.folder = NIL) then
+      md.folder:=md.f.getParent();
+
+    tryApplyMacrosAndSymbols(result, md);
+
+  finally
+    if pleaseFree then
+      freeIfTemp(md.f);
+    end;
+  end; // runEventScript
+
+  function runEventScript(event:string):string; overload;
+  begin result:=runEventScript(event, []) end;
+
+  procedure doLog();
+  var
+    i: integer;
+    url_: string; // an alias, final '_' is to not confuse with the other var
+    s: string;
+  begin
+  if assigned(data) and data.dontLog and (event <> HE_DISCONNECTED) then exit; // we exit expect for HE_DISCONNECTED because dontLog is always set AFTER connections, so HE_CONNECTED is always logged. The coupled HE_DISCONNECTED should be then logged too.
+
+  if assigned(data) and (data.preReply = PR_BAN)
+  and not logBannedChk.checked then exit;
+
+  if conn = NIL then url_:=''
+  else url_:=decodeURL(conn.request.url);
+  if not (event in [HE_OPEN, HE_CLOSE, HE_CONNECTED, HE_DISCONNECTED, HE_GOT]) then
+    if not logIconsChk.checked and (data.downloadingWhat = DW_ICON)
+    or not logBrowsingChk.checked and (data.downloadingWhat = DW_FOLDERPAGE)
+    or not logProgressChk.checked and (url_ = '/~progress') then
+      exit;
+
+  if not (event in [HE_OPEN, HE_CLOSE])
+  and addressMatch(dontLogAddressMask, data.address) then
+    exit;
+
+  case event of
+    HE_OPEN: if logServerstartChk.Checked then add2log('Server start');
+    HE_CLOSE: if logServerstopChk.checked then add2log('Server stop');
+    HE_CONNECTED: if logconnectionsChk.Checked then add2log('Connected', data);
+    HE_DISCONNECTED: if logDisconnectionsChk.checked then
+      add2log('Disconnected'+if_(conn.disconnectedByServer, ' by server')
+        +nonEmptyConcat(': ', data.disconnectReason)
+        +if_(conn.bytesSent>0, ' - '+intToStr(conn.bytesSent)+' bytes sent'),
+      data);
+    HE_GOT:
+      begin
+      i:=conn.bytesGot-data.lastBytesGot;
+      if i <= 0 then exit;
+      if logBytesreceivedChk.Checked then
+        if now()-data.bytesGotGrouping.since <= BYTES_GROUPING_THRESHOLD then
+          inc(data.bytesGotGrouping.bytes, i)
+        else
+          begin
+          add2log(format('Got %d bytes',[i+data.bytesGotGrouping.bytes]), data);
+          data.bytesGotGrouping.since:=now();
+          data.bytesGotGrouping.bytes:=0;
+          end;
+      inc(data.lastBytesGot, i);
+      end;
+    HE_SENT:
+      begin
+      i:=conn.bytesSent-data.lastBytesSent;
+      if i <= 0 then exit;
+      if logBytessentChk.checked then
+        if now()-data.bytesSentGrouping.since <= BYTES_GROUPING_THRESHOLD then
+          inc(data.bytesSentGrouping.bytes, i)
+        else
+          begin
+          add2log(format('Sent %d bytes',[i+data.bytesSentGrouping.bytes]), data);
+          data.bytesSentGrouping.since:=now();
+          data.bytesSentGrouping.bytes:=0;
+          end;
+      inc(data.lastBytesSent, i);
+      end;
+    HE_REQUESTED:
+      if not logOnlyServedChk.checked
+      or (conn.reply.mode in [HRM_REPLY, HRM_REPLY_HEADER, HRM_REDIRECT]) then
+        begin
+        data.logLaterInApache:=TRUE;
+        if logRequestsChk.Checked then
+          begin
+          s:=subStr(conn.getHeader('Range'), 7);
+          if s > '' then
+            s:=TAB+'['+s+']';
+          add2log(format('Requested %s %s%s', [ METHOD2STR[conn.request.method], url_, s ]), data);
+          end;
+        if dumprequestsChk.checked then
+          add2log('Request dump'+CRLF+conn.request.full, data);
+        end;
+    HE_REPLIED:
+      if logRepliesChk.checked then
+        case conn.reply.mode of
+          HRM_REPLY: if not data.fullDLlogged then add2log(format('Served %s', [smartSize(conn.bytesSentLastItem)]), data);
+          HRM_REPLY_HEADER: add2log('Served head', data);
+          HRM_NOT_MODIFIED: add2log('Not modified, use cache', data);
+          HRM_REDIRECT: add2log(format('Redirected to %s', [conn.reply.url]), data);
+          else if not logOnlyServedChk.checked then
+            add2log(format('Not served: %d - %s', [HRM2CODE[conn.reply.mode], HRM2STR[conn.reply.mode] ])
+              +nonEmptyConcat(': ', data.error), data);
+          end;
+    HE_POST_FILE:
+      if logUploadsChk.checked and (data.uploadFailed = '') then
+        add2log(format('Uploading %s', [data.uploadSrc]), data);
+    HE_POST_END_FILE:
+      if logUploadsChk.checked then
+        if data.uploadFailed = '' then
+          add2log(format('Fully uploaded %s - %s @ %sB/s', [
+            data.uploadSrc,
+            smartSize(conn.bytesPostedLastItem),
+            smartSize(calcAverageSpeed(conn.bytesPostedLastItem)) ]), data)
+        else
+          add2log(format('Upload failed %s', [data.uploadSrc]), data);
+    HE_LAST_BYTE_DONE:
+      if logFulldownloadsChk.checked
+      and data.countAsDownload
+      and (data.downloadingWhat in [DW_FILE, DW_ARCHIVE]) then
+        begin
+        data.fullDLlogged:=TRUE;
+        add2log(format('Fully downloaded - %s @ %sB/s - %s', [
+          smartSize(conn.bytesSentLastItem),
+          smartSize(calcAverageSpeed(conn.bytesSentLastItem)),
+          url_]), data);
+        end;
+    end;
+
+  { apache format log is only related to http events, that's why it resides
+  { inside httpEvent(). moreover, it needs to access to some variables. }
+  if (logFile.filename = '') or (logFile.apacheFormat = '')
+  or (data = NIL) or not data.logLaterInApache
+  or not (event in [HE_LAST_BYTE_DONE, HE_DISCONNECTED]) then exit;
+
+  data.logLaterInApache:=FALSE;
+  s:=xtpl(logfile.apacheFormat, [
+    '\t', TAB,
+    '\r', #13,
+    '\n', #10,
+    '\"', '"',
+    '\\', '\'
+  ]);
+  s:=reCB('%(!?[0-9,]+)?(\{([^}]+)\})?>?([a-z])', s, apacheLogCb, data);
+  appendFile(getDynLogFilename(data), s+CRLF);
+  end; // doLog
+
+  function limitsExceededOnConnection():boolean;
+  begin
+  if noLimitsFor(data.account) then result:=FALSE
+  else
+    result:=(maxConnections>0) and (srv.conns.count > maxConnections)
+      or (maxConnectionsIP>0)
+        and (countConnectionsByIP(data.address) > maxConnectionsIP)
+      or (maxIPs>0) and (countIPs() > maxIPs)
+  end; // limitsExceededOnConnection
+
+  function limitsExceededOnDownload():boolean;
+  var
+    was: string;
+  begin
+  result:=FALSE;
+  data.disconnectReason:='';
+
+  if data.conn.ignoreSpeedLimit then exit;
+
+  if (maxContempDLs > 0) and (countDownloads() > maxContempDLs)
+  or (maxContempDLsIP > 0) and (countDownloads(data.address) > maxContempDLsIP) then
+    data.disconnectReason:='Max simultaneous downloads'
+  else if (maxIPsDLing > 0) and (countIPs(TRUE) > maxIPsDLing) then
+    data.disconnectReason:='Max simultaneous addresses downloading'
+  else if preventLeechingChk.checked and (countDownloads(data.address, '', f) > 1) then
+    data.disconnectReason:='Leeching';
+
+  was:=data.disconnectReason;
+  runEventScript('download');
+
+  result:=data.disconnectReason > '';
+  if not result then exit;
+  data.countAsDownload:=FALSE;
+  getPage(if_(was=data.disconnectReason, 'max contemp downloads', 'deny'), data);
+  end; // limitsExceededOnDownload
+
+  procedure extractParams();
+  var
+    s: ansistring;
+    i: integer;
+  begin
+  s:=url;
+  url:=chop('?',s);
+  s:=replaceStr(s,'+',' ');
+  data.urlvars.text:=s;
+  for i:=0 to data.urlvars.count-1 do
+    data.urlvars[i]:=decodeURL(data.urlvars[i]);
+  end; // extractParams
+
+  procedure closeUploadingFile();
+  begin
+  if data.f = NIL then exit;
+  closeFile(data.f^);
+  dispose(data.f);
+  data.f:=NIL;
+  end; // closeUploadingFile
+
+  // close and eventually delete/rename
+  procedure closeUploadingFile_partial();
+  begin
+  if (data = NIL) or (data.f = NIL) then exit;
+  closeUploadingFile();
+  if deletePartialUploadsChk.checked then deleteFile(data.uploadDest)
+  else if renamePartialUploads = '' then exit;
+  if ipos('%name%', renamePartialUploads) = 0 then
+    renameFile(data.uploadDest, data.uploadDest+renamePartialUploads)
+  else
+    renameFile(data.uploadDest,
+      extractFilePath(data.uploadDest) + replaceText(renamePartialUploads, '%name%',extractFileName(data.uploadDest)) );
+  end; // closeUploadingFile_partial
+
+  function isDownloadManagerBrowser():boolean;
+  begin
+  result:=(pos('GetRight',data.agent)>0)
+    or (pos('FDM',data.agent)>0)
+    or (pos('FlashGet',data.agent)>0)
+  end; // isDownloadManagerBrowser
+
+  procedure logUploadFailed();
+  begin
+  if not logUploadsChk.checked then exit;
+  add2log(format('Upload failed for %s: %s', [data.uploadSrc, data.uploadFailed]), data);
+  end; // logUploadFile
+
+  function eventToFilename(event:string; table:array of string):string;
+  var
+    i: integer;
+  begin
+  result:=trim(stripChars(runEventScript(event, table), [TAB,#10,#13]));
+  // turn illegal chars into underscores
+  for i:=1 to length(result) do
+    if result[i] in ILLEGAL_FILE_CHARS-[':','\'] then
+      result[i]:='_';
+  end; // eventToFilename
+
+  procedure getUploadDestinationFileName();
+  var
+    i: integer;
+    fn, ext, s: string;
+  begin
+  new(data.f);
+  fn:=data.uploadSrc;
+
+  data.uploadDest:=f.resource+'\'+fn;
+  assignFile(data.f^, data.uploadDest );
+
+  // see if an event script wants to change the name
+  s:=eventToFilename('upload name', []);
+
+  if validFilepath(s) then // is it valid anyway?
+    begin
+    if pos('\', s) = 0 then  // it's just the file name, no path specified: must include the path of the current folder
+      s:=f.resource+'\'+s;
+    // ok, we'll use this new name
+    data.uploadDest:=s;
+    fn:=extractFileName(s);
+    end;
+
+  if numberFilesOnUploadChk.checked then
+    begin
+    ext:=extractFileExt(fn);
+    setLength(fn, length(fn)-length(ext));
+    i:=0;
+    while fileExists(data.uploadDest) do
+      begin
+      inc(i);
+      data.uploadDest:=format('%s\%s (%d)%s', [f.resource, fn, i, ext]);
+      end;
+    end;
+  assignFile(data.f^, data.uploadDest);
+  end; // getUploadDestinationFileName
+
+  procedure sessionSetup();
+  begin
+  if (data = NIL) or assigned(data.session) then exit;
+  data.sessionID:=conn.getCookie(SESSION_COOKIE);
+  if data.sessionID = '' then
+    begin
+    data.sessionID:=getNewSID();
+    conn.setCookie(SESSION_COOKIE, data.sessionID, ['path','/'], 'HttpOnly'); // the session is site-wide, even if this request was related to a folder
+    end
+  else
+    try data.session:=sessions.objects[sessions.indexOf(data.sessionID)] as ThashedStringList
+    except end;
+  if data.usr = '' then
+    begin
+    data.usr:=data.sessionGet('user');
+    data.pwd:=data.sessionGet('password');
+    end;
+  if (data.usr = '') and (conn.request.user > '') then
+    begin
+    data.usr:=conn.request.user;
+    data.pwd:=conn.request.pwd;
+    end;
+  if (data.usr = '') <> (data.account = NIL) then
+    data.account:=getAccount(data.usr);
+  end; // sessionSetup
+
+  procedure serveTar();
+  var
+    tar: TtarStream;
+    nofolders, selection, itsAsearch: boolean;
+
+    procedure addFolder(f:Tfile; ignoreConnFilters:boolean=FALSE);
+    var
+      i, ofs: integer;
+      listing: TfileListing;
+      fi: Tfile;
+      fIsTemp: boolean;
+      s: string;
+    begin
+    if not f.accessFor(data) then exit;
+    listing:=TfileListing.create();
+    try
+      listing.ignoreConnFilter:=ignoreConnFilters;
+      listing.fromFolder( f, data, shouldRecur(data));
+      fIsTemp:=f.isTemp();
+      ofs:=length(f.resource)-length(f.name)+1;
+      for i:=0 to length(listing.dir)-1 do
+        begin
+        if conn.state = HCS_DISCONNECTED then
+          break;
+
+        fi:=listing.dir[i];
+        // we archive only files, folders are just part of the path
+        if not fi.isFile() then continue;
+        if not fi.accessFor(data) then continue;
+
+        // build the full path of this file as it will be in the archive
+        if noFolders then
+          s:=fi.name
+        else if fIsTemp and not (FA_SOLVED_LNK in fi.flags)then
+          s:=copy(fi.resource, ofs, MAXINT) // pathTill won't work this case, because f.parent is an ancestor but not necessarily the parent
+        else
+          s:=fi.pathTill(f.parent); // we want the path to include also f, so stop at f.parent
+
+        tar.addFile(fi.resource, s);
+        end
+    finally listing.free end;
+    end; // addFolder
+
+    procedure addSelection();
+    var
+      i: integer;
+      s: string;
+      ft: Tfile;
+    begin
+    selection:=FALSE;
+    for i:=0 to data.postvars.count-1 do
+      if sameText('selection', data.postvars.names[i]) then
+        begin
+        selection:=TRUE;
+        s:=decodeURL(getTill('#', data.postvars.valueFromIndex[i])); // omit #anchors
+        if dirCrossing(s) then continue;
+        ft:=findFilebyURL(s, f);
+        if ft = NIL then continue;
+
+        try
+          if not ft.accessFor(data) then continue;
+          // case folder
+          if ft.isFolder() then
+            begin
+            addFolder(ft, TRUE);
+            continue;
+            end;
+          // case file
+          if not fileExists(ft.resource) then continue;
+          if noFolders then
+            s:=substr(s, lastDelimiter('\/', s)+1);
+          tar.addFile(ft.resource, s);
+        finally freeIfTemp(ft) end;
+        end;
+    end; // addSelection
+
+  begin
+  if not f.hasRecursive(FA_ARCHIVABLE) then
+    begin
+    getPage('deny', data);
+    exit;
+    end;
+  data.downloadingWhat:=DW_ARCHIVE;
+  data.countAsDownload:=TRUE;
+  if limitsExceededOnDownload() then
+    exit;
+
+  // this will let you get all files as flatly arranged in the root of the archive, without folders
+  noFolders:=not stringExists(data.postVars.values['nofolders'], ['','0','false']);
+  itsAsearch:=data.urlvars.values['search'] > '';
+
+  tar:=TtarStream.create(); // this is freed by ThttpSrv
+  try
+    tar.fileNamesOEM:=oemTarChk.checked;
+    addSelection();
+    if not selection then
+      addFolder(f);
+
+    if tar.count = 0 then
+      begin
+      tar.free;
+      data.disconnectReason:='There is no file you are allowed to download';
+      getPage('deny', data, f);
+      exit;
+      end;
+    data.fileXferStart:=now();
+    conn.reply.mode:=HRM_REPLY;
+    conn.reply.contentType:=DEFAULT_MIME;
+    conn.reply.bodyMode:=RBM_STREAM;
+    conn.reply.bodyStream:=tar;
+
+    if f.name = '' then exit; // can this really happen?
+    data.lastFN:=if_(f.name='/', 'home', f.name)
+      +'.'+if_(selection, 'selection', if_(itsAsearch, 'search', 'folder'))
+      +'.tar';
+    data.lastFN:=first(eventToFilename('archive name', [
+      '%archive-name%', data.lastFN,
+      '%mode%', if_(selection, 'selection','folder'),
+      '%archive-size%', intToStr(tar.size)
+    ]), data.lastFN);
+    if not noContentdispositionChk.checked then
+      conn.addHeader('Content-Disposition: attachment; filename="'+data.lastFN+'";');
+  except tar.free end;
+  end; // serveTar
+
+  procedure checkCurrentAddress();
+  begin
+  if selftesting then exit;
+  if limitsExceededOnConnection() then
+    data.preReply:=PR_OVERLOAD;
+  if isBanned(data)  then
+    begin
+    data.disconnectReason:='banned';
+    data.preReply:=PR_BAN;
+    if noReplyBan then conn.reply.mode:=HRM_CLOSE;
+    end;
+  end; // checkCurrentAddress
+
+  procedure handleRequest();
+  var
+    dlForbiddenForWholeFolder, specialGrant: boolean;
+    urlCmd: string;
+
+    function accessGranted(forceFile:Tfile=NIL):boolean;
+    resourcestring
+      FAILED = 'Login failed';
+    var
+      m: TStringDynArray;
+      fTemp: Tfile;
+    begin
+    result:=FALSE;
+    if assigned(forceFile) then f:=forceFile;
+    if f = NIL then exit;
+    if f.isFile() and (dlForbiddenForWholeFolder or f.isDLforbidden()) then
+      begin
+      getPage('deny', data);
+      exit;
+      end;
+    result:=f.accessFor(data);
+    // ok, you are referring a section of the template, which virtually resides in the root because of the url starting with /~
+    // but you don't have access rights to the root. We'll let you pass if it's actually a section and you are using it from a folder that you have access to.
+    if not result and (f = rootFile) and ansiStartsStr('~', urlCmd) and tpl.sectionExist(copy(urlCmd,2,MAXINT))
+    and (0 < reMatch(conn.getHeader('Referer'), '://([^@]*@)?'+getSafeHost(data)+'(/.*)', 'i', 1, @m)) then
+      begin
+      fTemp:=findFileByUrl(m[2]);
+      result:=assigned(fTemp) and fTemp.accessFor(data);
+      specialGrant:=result;
+      freeIfTemp(Ftemp);
+      end;
+    if result then exit;
+    conn.reply.realm:=f.getShownRealm();
+    runEventScript('unauthorized');
+    getPage('unauthorized', data);
+    // log anyone trying to guess the password
+    if (forceFile = NIL) and stringExists(data.usr, getAccountList(TRUE, FALSE))
+    and logOtherEventsChk.checked then
+      add2log(FAILED, data);
+    end; // accessGranted
+
+    function isAllowedReferer():boolean;
+    var
+      r: string;
+    begin
+    result:=TRUE;
+    if allowedReferer = '' then exit;
+    r:=hostFromURL(conn.getHeader('Referer'));
+    if (r = '') or (r = getSafeHost(data)) then exit;
+    result:=fileMatch(allowedReferer, r);
+    end; // isAllowedReferer
+
+    procedure replyWithString(s:string);
+    begin
+    if (data.disconnectReason > '') and not data.disconnectAfterReply then
+      begin
+      getPage('deny', data);
+      exit;
+      end;
+    
+    if conn.reply.contentType = '' then
+      conn.reply.contentType:=if_(trim(getTill('<', s))='', 'text/html', 'text/plain');
+    conn.reply.mode:=HRM_REPLY;
+    conn.reply.bodyMode:=RBM_STRING;
+    conn.reply.body:=s;
+    compressReply(data);
+    end; // replyWithString
+
+    procedure deletion();
+    var
+      i: integer;
+      asUrl, s: string;
+      doneRes, done, errors: TStringDynArray;
+    begin
+    if (conn.request.method <> HM_POST)
+    or (data.postVars.values['action'] <> 'delete')
+    or not accountAllowed(FA_DELETE, data, f) then exit;
+
+    doneRes:=NIL;
+    errors:=NIL;
+    done:=NIL;
+    for i:=0 to data.postvars.count-1 do
+      if sameText('selection', data.postvars.names[i]) then
+        begin
+        asUrl:=decodeURL(getTill('#', data.postvars.valueFromIndex[i])); // omit #anchors
+        s:=uri2disk(asUrl, f);
+        if s = '' then continue;
+
+        if not fileOrDirExists(s) then continue; // ignore
+
+        runEventScript('file deleting', ['%item-deleting%', s]);
+        moveToBin(toSA([s, s+'.md5', s+COMMENT_FILE_EXT]) , TRUE);
+        if fileOrDirExists(s) then
+          begin
+          addString(asUrl, errors);
+          continue; // this was not deleted. permissions problem?
+          end;
+
+        addString(s, doneRes);
+        addString(asUrl, done);
+        runEventScript('file deleted', ['%item-deleted%', s]);
+        end;
+
+    removeFilesFromComments(doneRes);
+
+    if logDeletionsChk.checked and assigned(done) then
+      add2log('Deleted files in '+url+CRLF+join(CRLF, done), data);
+    if logDeletionsChk.checked and assigned(errors) then
+      add2log('Failed deletion in '+url+CRLF+join(CRLF, errors), data);
+    end; // deletion
+
+    function getAccountRedirect():string;
+    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:=replaceStr(result,'\','/');
+    end; // getAccountRedirect
+
+    function addNewAddress():boolean;
+    begin
+    result:=ipsEverConnected.indexOf(data.address) < 0;
+    if not result then exit;
+    ipsEverConnected.add(data.address);
+    end; // addNewAddress
+
+  var
+    b: boolean;
+    s: string;
+    i: integer;
+    section: PtplSection;
+  begin
+  // eventually override the address
+  if addressmatch(forwardedMask, conn.address) then
+    begin
+    data.address:=getTill(':', getTill(',', conn.getHeader('x-forwarded-for')));
+    if not checkAddressSyntax(data.address) then
+      data.address:=conn.address;
+    end;
+
+  checkCurrentAddress();
+
+  // update list
+  if (data.preReply = PR_NONE)
+  and addNewAddress()
+  and ipsEverFrm.visible then
+    ipsEverFrm.refreshData();
+
+  data.requestTime:=now();
+  data.downloadingWhat:=DW_UNK;
+  data.fullDLlogged:=FALSE;
+  data.countAsDownload:=FALSE;
+  conn.reply.contentType:='';
+  specialGrant:=FALSE;
+
+  data.lastFile:=NIL; // auto-freeing
+
+  with objByIp(data.address) do
+    begin
+    if speedLimitIP < 0 then limiter.maxSpeed:=MAXINT
+    else limiter.maxSpeed:=round(speedLimitIP*1000);
+    if conn.limiters.indexOf(limiter) < 0 then
+      conn.limiters.add(limiter);
+    end;
+
+  conn.addHeader('Accept-Ranges: bytes');
+  if sendHFSidentifierChk.checked then
+    conn.addHeader('Server: HFS '+VERSION);
+
+  case data.preReply of
+    PR_OVERLOAD:
+      begin
+      data.disconnectReason:='limits exceeded';
+      getPage('overload', data);
+      end;
+    PR_BAN:
+      begin
+      getPage('ban', data);
+      conn.reply.reason:='Banned: '+data.banReason;
+      end;
+    end;
+
+  runEventScript('pre-filter-request');
+
+  if (length(conn.request.user) > 100) or anycharIn('/\:?*<>|', conn.request.user) then
+    begin
+    conn.reply.mode:=HRM_BAD_REQUEST;
+    exit;
+    end;
+
+  if not (conn.request.method in [HM_GET,HM_HEAD,HM_POST]) then
+    begin
+    conn.reply.mode:=HRM_METHOD_NOT_ALLOWED;
+    exit;
+    end;
+  inc(hitsLogged);
+
+  if data.preReply <> PR_NONE then exit;
+
+  url:=conn.request.url;
+  extractParams();
+  url:=decodeURL(url);
+
+  data.lastFN:=extractFileName( replaceStr(url,'/','\') );
+  data.agent:=getAgentID(conn);
+
+  if selfTesting and (url = 'test') then
+    begin
+    replyWithString('HFS OK');
+    exit;
+    end;
+
+  sessionSetup();
+  if data.postVars.indexOfName('__USER') >= 0 then
+    begin
+    s:=data.postVars.values['__USER'];
+    data.account:=getAccount(s);
+    if data.account = NIL then
+      if s = '' then // logout
+        begin
+        s:='ok';
+        data.usr:='';
+        data.pwd:='';
+        end
+      else
+        s:='username not found'
+    else
+      begin
+      data.usr:=s;
+      { I opted to use double md5 for this authentication method so that in the
+        future we may make this work even if we store hashed password on the server.
+        In such case we would not be able to calculate pwd+sessionID because we'd had no clear pwd.
+        By relying on md5(pwd) instead of pwd, we will avoid such problem. }
+      s:=data.postVars.values['__PASSWORD_MD5'];
+      if (s > '') and (s = strMD5(strMD5(data.account.pwd)+data.sessionID))
+          or (data.postVars.values['__PASSWORD'] = data.account.pwd) then
+        begin
+        s:='ok';
+        data.pwd:=data.account.pwd;
+        data.sessionSet('user', data.usr);
+        data.sessionSet('password', data.pwd);
+        end
+      else
+        begin
+        s:='bad password';
+        data.account:=NIL;
+        data.usr:='';
+        end;
+      end;
+    if data.postVars.values['__AJAX'] = '1' then
+      begin
+      replyWithString(s);
+      exit;
+      end;
+    end;
+
+  // this is better to be refresh, because a user may be deleted meantime
+  data.account:=getAccount(data.usr);
+  conn.ignoreSpeedLimit:=noLimitsFor(data.account);
+
+  // all URIs must begin with /
+  if (url = '') or (url[1] <> '/') then
+    begin
+    conn.reply.mode:=HRM_BAD_REQUEST;
+    exit;
+    end;
+
+  runEventScript('request');
+  if data.disconnectReason > '' then
+    begin
+    getPage('deny', data);
+    exit;
+    end;
+  if conn.reply.mode = HRM_REDIRECT then
+    exit;
+
+  if ansiStartsStr('/~img', url) then
+    begin
+    if not sendPic(data) then
+      getPage('not found', data);
+    exit;
+    end;
+  if data.urlvars.values['mode'] = 'jquery' then
+    begin
+    if notModified(conn,'jquery'+FloatToStr(uptime), '') then
+      exit;
+    replyWithString(getRes('jquery'));
+    conn.reply.contentType:='text/javascript';
+    exit;
+    end;
+
+  // forbid using invalid credentials
+  if not freeLoginChk.checked and not specialGrant then
+    if (data.usr>'')
+    and ((data.account=NIL) or (data.account.pwd <> data.pwd))
+    and not usersInVFS.match(data.usr, data.pwd) then
+      begin
+      data.acceptedCredentials:=FALSE;
+      runEventScript('unauthorized');
+      getPage('unauthorized', data);
+      conn.reply.realm:='Invalid login';
+      exit;
+      end
+    else
+      data.acceptedCredentials:=TRUE;
+
+  f:=findFileByURL(url);
+  urlCmd:=''; // urlcmd is only if the file doesn't exist
+  if f = NIL then
+    begin
+    // maybe the file doesn't exist because the URL has a final command in it
+    // move last url part from 'url' into 'urlCmd'
+    urlCmd:=url;
+    url:=chop(lastDelimiter('/', urlCmd)+1, 0, urlCmd);
+    // we know an urlCmd must begin with ~
+    // favicon is handled as an urlCmd: we provide HFS icon.
+    // an non-existent ~file will be detected a hundred lines below.
+    if ansiStartsStr('~', urlCmd) or (urlCmd = 'favicon.ico') then
+      f:=findFileByURL(url);
+    end;
+  if f = NIL then
+    begin
+    if sameText(url, '/robots.txt') and stopSpidersChk.checked then
+      replyWithString('User-agent: *'+CRLF+'Disallow: /')
+    else
+      getPage('not found', data);
+    exit;
+    end;
+  if f.isFolder() and not ansiEndsStr('/',url) then
+    begin
+    conn.reply.mode:=HRM_MOVED;
+    conn.reply.url:=f.url(); // we use f.url() instead of just appending a "/" to url because of problems with non-ansi chars http://www.rejetto.com/forum/?topic=7837
+    exit;
+    end;
+  if f.isFolder() and (urlCmd = '') and (data.urlvars.indexOfName('mode')<0) then
+    switchToDefaultFile();
+  if enableNoDefaultChk.checked and (urlCmd = '~nodefault') then
+    urlCmd:='';
+
+  if f.isRealFolder() and not sysutils.directoryExists(f.resource)
+  or f.isFile() and not fileExists(f.resource) then
+    begin
+    getPage('not found', data);
+    exit;
+    end;
+  dlForbiddenForWholeFolder:=f.isDLforbidden();
+
+  if not accessGranted() then
+    exit;
+
+  if urlCmd = 'favicon.ico' then
+    begin
+    sendPic(data, 23);
+    exit;
+    end;
+
+  if urlCmd = '~login' then
+    if conn.request.user = '' then
+      begin // issue a login dialog
+      getPage('unauthorized', data);
+      if loginRealm > '' then conn.reply.realm:=loginRealm;
+      exit;
+      end
+    else
+      begin
+      conn.reply.mode:=HRM_REDIRECT;
+      conn.reply.url:=first(getAccountRedirect(), url);
+      exit;
+      end;
+
+  b:=urlCmd = '~upload+progress';
+  if (b or (urlCmd = '~upload') or (urlCmd = '~upload-no-progress')) then
+    begin
+    if not f.isRealFolder() then
+      getPage('deny', data)
+    else if accountAllowed(FA_UPLOAD, data, f) then
+      getPage( if_(b,'upload+progress','upload'), data, f)
+    else
+      begin
+      getPage('unauthorized', data);
+      runEventScript('unauthorized');
+      end;
+    if b then  // fix for IE6
+      begin
+      data.disconnectAfterReply:=TRUE;
+      data.disconnectReason:='IE6 workaround';
+      end;
+    exit;
+    end;
+
+  if (conn.request.method = HM_POST) and assigned(data.uploadResults) then
+    begin
+    getPage('upload-results', data, f);
+    exit;
+    end;
+
+  // provide access to any [section] in the tpl, included [progress]
+  if data.urlvars.values['mode'] = 'section' then
+    s:=first(data.urlvars.values['id'], 'no-id') // no way, you must specify the id
+  else if (f = rootFile) and (urlCmd > '') then
+    s:=substr(urlCmd,2)
+  else
+    s:='';
+  if (s > '') and f.isFolder() and not ansiStartsText('special:', s) then
+    with tplFromFile(f) do // temporarily builds from diff tpls
+      try
+        // NB: section [] is not accessible, because of the s>'' test
+        section:=getsection(s);
+        if assigned(section) and not section.nourl then // it has to exist and be accessible 
+          begin
+          if not section.cache
+          or not notModified(conn, s+floatToStr(section.ts), '') then
+            getPage(s, data, f, me());
+          exit;
+          end;
+      finally free end;
+
+  if f.isFolder() and not (FA_BROWSABLE in f.flags)
+  and stringExists(urlCmd,['','~folder.tar','~files.lst']) then
+    begin
+    getPage('deny', data);
+    exit;
+    end;
+
+  if not isAllowedReferer()
+  or f.isFile() and f.isDLforbidden() then
+    begin
+    getPage('deny', data);
+    exit;
+    end;
+
+  if (urlCmd = '~folder.tar')
+  or (data.urlvars.values['mode'] = 'archive') then
+    begin
+    serveTar();
+    exit;
+    end;
+
+  // please note: we accept also ~files.lst.m3u
+  if ansiStartsStr('~files.lst', urlCmd)
+  or f.isFolder() and (data.urlvars.values['tpl'] = 'list') then
+    begin
+    // load from external file
+    s:=cfgPath+FILELIST_TPL_FILE;
+    if newMtime(s, lastFilelistTpl) then
+      filelistTpl.fullText:=loadtextfile(s);
+    // if no file is given, load from internal resource
+    if not fileExists(s) and (lastFilelistTpl > 0) then
+      begin
+      lastFilelistTpl:=0;
+      filelistTpl.fullText:=getRes('filelistTpl');
+      end;
+
+    data.downloadingWhat:=DW_FOLDERPAGE;
+    data.disconnectAfterReply:=TRUE; // needed for IE6... ugh...
+    data.disconnectReason:='IE6 workaround';
+    replyWithString(trim(getFolderPage(f, data, filelistTpl)));
+    exit;
+    end;
+
+  // from here on, we manage only services with no urlCmd.
+  // a non empty urlCmd means the url resource was not found.
+  if urlCmd > '' then
+    begin
+    getPage('not found', data);
+    exit;
+    end;
+
+  case conn.request.method of
+    HM_GET, HM_POST:
+      begin
+      conn.reply.mode:=HRM_REPLY;
+      lastActivityTime:=now();
+      end;
+    HM_HEAD: conn.reply.mode:=HRM_REPLY_HEADER;
+    end;
+
+  data.lastFile:=f; // auto-freeing
+
+  if f.isFolder() then
+    begin
+    deletion();
+
+    data.downloadingWhat:=DW_FOLDERPAGE;
+    if DMbrowserTplChk.Checked and isDownloadManagerBrowser() then
+      s:=getFolderPage(f, data, dmBrowserTpl)
+    else
+      s:=getFolderPage(f, data, tpl);
+    if conn.reply.mode <> HRM_REDIRECT then
+      replyWithString(s);
+    exit;
+    end;
+
+  if notModified(conn, f) then // calling notModified before limitsExceededOnDownload makes possible for [download] to manipualate headers set here
+    exit;
+  data.countAsDownload:=f.shouldCountAsDownload();
+  if data.countAsDownload and limitsExceededOnDownload() then
+    exit;
+
+  setupDownloadIcon(data);
+  data.eta.idx:=0;
+  conn.reply.contentType:=name2mimetype(f.name, DEFAULT_MIME);
+  conn.reply.bodyMode:=RBM_FILE;
+  conn.reply.body:=f.resource;
+  data.downloadingWhat:=DW_FILE;
+  { I guess this would not help in any way for files since we are already handling the 'if-modified-since' field
+  try
+    conn.addHeader('ETag: '+getEtag(f.resource));
+  except end;
+  }
+  
+  data.fileXferStart:=now();
+  if data.countAsDownload and (flashOn = 'download') then flash();
+
+  b:=(openInBrowser <> '') and fileMatch(openInBrowser, f.name)
+    or inBrowserIfMIME and (conn.reply.contentType <> DEFAULT_MIME);
+
+  s:=first(eventToFilename('download name', []), f.name); // a script can eventually decide the name
+  // N-th workaround for IE. The 'accept' check should let us know if the save-dialog is displayed. More information at www.rejetto.com/forum/?topic=6275
+  if (data.agent = 'MSIE') and (conn.getHeader('Accept') = '*/*') then
+    s:=replaceStr(s, ' ','%20');
+  if not noContentdispositionChk.checked or not b then
+    conn.addHeader( 'Content-Disposition: '+if_(not b, 'attachment; ')+'filename="'+s+'";' );
+  end; // handleRequest
+
+  procedure lastByte();
+
+    procedure incDLcount(f:Tfile; res:string);
+    begin
+    if (f = NIL) or f.isTemp() then autoupdatedFiles.incInt(res)
+    else f.DLcount:=1+f.DLcount
+    end;
+
+  var
+    archive: TarchiveStream;
+    i: integer;
+  begin
+  if data.countAsDownload then
+    inc(downloadsLogged);
+  // workaround for a bug that was fixed in Wget/1.10
+  if stringExists(data.agent, ['Wget/1.7', 'Wget/1.8.2', 'Wget/1.9', 'Wget/1.9.1']) then
+    data.disconnect('wget bug workaround (consider updating wget)');
+  VFScounterMod:=TRUE;
+  case data.downloadingWhat of
+    DW_FILE:
+      if assigned(data) then
+        incDLcount(data.lastFile, data.lastFile.resource);
+    DW_ARCHIVE:
+      begin
+      archive:=conn.reply.bodyStream as TarchiveStream;
+      for i:=0 to length(archive.flist)-1 do
+        incDLcount(Tfile(archive.flist[i].data), archive.flist[i].src);
+      end;
+    end;
+  if data.countAsDownload then
+    runEventScript('download completed');
+  end; // lastByte
+
+  function canWriteFile():boolean;
+  begin
+  result:=FALSE;
+  if data.f = NIL then exit;
+  result:= minDiskSpace <= diskSpaceAt(data.uploadDest) div MEGA;
+  if result then exit;
+  closeUploadingFile_partial();
+  data.uploadFailed:='Minimum disk space reached.';
+  end; // canWriteFile
+
+  function complyUploadFilter():boolean;
+
+    function getMask():string;
+    begin
+    if f.isTemp() then result:=f.parent.uploadFilterMask
+    else result:=f.uploadFilterMask;
+    if result = '' then
+      result:='\'+PROTECTED_FILES_MASK; // the user can disable this default filter by inputing * as mask
+    end;
+
+  begin
+  result:=validFilename(data.uploadSrc)
+    and not sameText(data.uploadSrc, DIFF_TPL_FILE) // never allow this
+    and not isExtension(data.uploadSrc, '.lnk')  // security matters (by mars)
+    and fileMatch(getMask(), data.uploadSrc);
+  if not result then
+    data.uploadFailed:='File name or extension forbidden.';
+  end; // complyUploadFilter
+
+  function canCreateFile():boolean;
+  begin
+  IOresult;
+  rewrite(data.f^, 1);
+  result:=IOresult=0;
+  if result then exit;
+  data.uploadFailed:='Error creating file.';
+  end; // canCreateFile
+
+var
+  ur: TuploadResult;
+  i: integer;
+begin
+if assigned(conn) and (conn.getLockCount <> 1) then
+  add2log('please report on the forum about this message');
+
+f:=NIL;
+data:=NIL;
+if assigned(conn) then data:=conn.data;
+if assigned(data) then
+  data.lastActivityTime:=now();
+
+if dumpTrafficChk.Checked and (event in [HE_GOT, HE_SENT]) then
+  appendFile(exePath+'hfs-dump.bin', TLV(if_(event=HE_GOT,1,2),
+    TLV(10, str_(now()))+TLV(11, data.address)+TLV(12, conn.port)+TLV(13, conn.eventData)
+  ));
+
+if preventStandbyChk.checked and assigned(setThreadExecutionState) then
+  setThreadExecutionState(1);
+
+// this situation can happen when there is a call to processMessage() before this function ends
+if (data = NIL) and (event in [HE_REQUESTED, HE_GOT]) then
+  exit;
+
+case event of
+  HE_CANT_OPEN_FILE: data.error:='Can''t open file';
+  HE_OPEN:
+    begin
+    startBtn.Hide();
+    updateUrlBox();
+    // this happens when the server is switched on programmatically
+    usingFreePort:= port='';
+    updatePortBtn();
+    runEventScript('server start');
+    end;
+  HE_CLOSE:
+    begin
+    startBtn.show();
+    updatePortBtn();
+    updateUrlBox();
+    runEventScript('server stop');
+    end;
+  HE_REQUESTING:
+    begin
+    // do some clearing, due for persistent connections
+    data.vars.clear();
+    data.urlvars.clear();
+    data.postVars.clear();
+    data.tplCounters.clear();
+    refreshConn(data);
+    end;
+  HE_GOT_HEADER: runEventScript('got header');
+  HE_REQUESTED:
+    begin
+    data.dontLog:=FALSE;
+    handleRequest();
+    // we save the value because we need it also in HE_REPLY, and temp files are not avaliable there
+    data.dontLog:=data.dontLog or assigned(f) and f.hasRecursive(FA_DONT_LOG);
+    if f <> data.lastFile then
+      freeIfTemp(f);
+    refreshConn(data);
+    end;
+  HE_STREAM_READY:
+    begin
+    i:=length(data.disconnectReason);
+    runEventScript('stream ready');
+    if (i=0) and (data.disconnectReason > '') then // only if it was not already disconnecting
+      begin
+      conn.reply.additionalHeaders:=''; // content-disposition would prevent the browser
+      getPage('deny', data);
+      conn.initInputStream();
+      end;
+    end;
+  HE_REPLIED:
+    begin
+    setupDownloadIcon(data); // remove the icon
+    data.lastBytesGot:=0;
+    if data.disconnectAfterReply then
+      data.disconnect('replied');
+    if updateASAP > '' then
+      data.disconnect('updating');
+    refreshConn(data);
+    end;
+  HE_LAST_BYTE_DONE:
+    begin
+    if (conn.reply.mode = HRM_REPLY) and (data.downloadingWhat in [DW_FILE, DW_ARCHIVE]) then
+      lastByte();
+    runEventScript('request completed');
+    end;
+  HE_CONNECTED:
+    begin
+    //** lets see if this helps with speed
+    i:=-1;
+    WSocket_setsockopt(conn.sock.HSocket, IPPROTO_TCP, TCP_NODELAY, @i, sizeOf(i));
+
+    data:=TconnData.create(conn);
+    conn.limiters.add(globalLimiter); // every connection is bound to the globalLimiter
+    conn.sndBuf:=STARTING_SNDBUF;
+    data.address:=conn.address;
+    checkCurrentAddress();
+    connBox.items.add();
+    if (flashOn = 'connection') and (conn.reply.mode <> HRM_CLOSE) then flash();
+    runEventScript('connected');
+    end;
+  HE_DISCONNECTED:
+    begin
+    closeUploadingFile_partial();
+    if leavedisconnectedconnectionsChk.checked then
+      begin
+      if assigned(data) then
+        data.averageSpeed:=safeDiv(conn.bytesSent,SECONDS*(now()-data.time));
+      setupDownloadIcon(data); // remove the tray icon anyway
+      end
+    else
+      begin
+      data.deleting:=TRUE;
+      toDelete.add(data);
+      with connBox.items do count:=count-1;
+      end;
+    runEventScript('disconnected');
+    connBox.invalidate();
+    end;
+  HE_GOT: lastActivityTime:=now();
+  HE_SENT:
+    begin
+    if data.nextDloadScreenUpdate <= now() then
+      begin
+      data.nextDloadScreenUpdate:= now()+DOWNLOAD_MIN_REFRESH_TIME;
+      refreshConn(data);
+      setupDownloadIcon(data);
+      end;
+    lastActivityTime:=now();
+    end;
+  HE_POST_FILE:
+    begin
+    sessionSetup();
+    data.downloadingWhat:=DW_UNK;
+    data.agent:=getAgentID(conn);
+    data.fileXferStart:=now();
+    f:=findFileByURL(decodeURL(conn.request.url));
+    data.lastFile:=f; // auto-freeing
+    data.uploadSrc:=optAnsi(tpl.utf8, conn.post.filename);
+    data.uploadFailed:='';
+    if (f = NIL) or not accountAllowed(FA_UPLOAD, data, f) or not f.accessFor(data) then
+      data.uploadFailed:=if_(f=NIL, 'Folder not found.', 'Not allowed.')
+    else
+      begin
+      closeUploadingFile();
+      getUploadDestinationFileName();
+
+      if complyUploadFilter() and canWriteFile() and canCreateFile() then
+        saveFile(data.f^, conn.post.data);
+      repaintTray();
+      end;
+    if data.uploadFailed > '' then
+      logUploadFailed();
+    end;
+  HE_POST_MORE_FILE:
+    if canWriteFile() then
+      saveFile(data.f^, conn.post.data);
+  HE_POST_END_FILE:
+    begin
+    // fill the record
+    ur.fn:=first(extractFilename(data.uploadDest), data.uploadSrc);
+    if data.f = NIL then ur.size:=-1
+    else ur.size:=filesize(data.f^);
+    ur.speed:=calcAverageSpeed(conn.bytesPostedLastItem);
+    // custom scripts
+    if assigned(data.f) then inc(uploadsLogged);
+    closeUploadingFile();
+    if data.uploadFailed = '' then
+      data.uploadFailed:=trim(runEventScript('upload completed'))
+    else
+      runEventScript('upload failed');
+    ur.reason:=data.uploadFailed;
+    if data.uploadFailed > '' then
+      deleteFile(data.uploadDest);
+    // queue the record
+    i:=length(data.uploadResults);
+    setLength(data.uploadResults, i+1);
+    data.uploadResults[i]:=ur;
+
+    refreshConn(data);
+    end;
+  HE_POST_VAR: data.postVars.add(conn.post.varname+'='+conn.post.data);
+  HE_POST_VARS:
+    if conn.post.mode = PM_URLENCODED then
+      urlToStrings(conn.post.data, data.postVars);
+  // default case
+  else refreshConn(data);
+  end;//case
+if event in [HE_CONNECTED, HE_DISCONNECTED, HE_OPEN, HE_CLOSE, HE_REQUESTED, HE_POST_END, HE_LAST_BYTE_DONE] then
+  begin
+  repaintTray();
+  updateTrayTip();
+  end;
+doLog();
+end; // httpEvent
+
+procedure findSimilarIP(fromIP:string);
+
+  function howManySameNumbers(ip1,ip2:string):integer;
+  var
+    n1, n2: string;
+  begin
+  result:=0;
+  while ip1 > '' do
+    begin
+    n1:=chop('.',ip1);
+    n2:=chop('.',ip2);
+    if n1 <> n2 then exit;
+    inc(result);
+    end;
+  end; // howManySameNumbers
+
+var
+  chosen: string;
+  i: integer;
+  a: TStringDynArray;
+begin
+if fromIP = '' then exit;
+if stringExists(fromIP, customIPs) then
+  begin
+  setDefaultIP(fromIP);
+  exit;
+  end;
+chosen:=getIP();
+a:=getIPs();
+for i:=0 to length(a)-1 do
+  if howManySameNumbers(chosen, fromIP) < howManySameNumbers(a[i], fromIP) then
+    chosen:=a[i];
+setDefaultIP(chosen);
+end; // findSimilarIP
+
+procedure setLimitOption(var variable:integer; newValue:integer;
+  menuItem:TmenuItem; menuLabel:string);
+begin
+if newValue < 0 then newValue:=0;
+variable:=newValue;
+menuItem.caption:=format(menuLabel,
+  [if_(newValue=0,DISABLED,intToStr(newValue))]);
+end; // setLimitOption
+
+procedure setMaxIPs(v:integer);
+resourcestring
+  LIMIT = 'Max simultaneous addresses: %s ...';
+begin setLimitOption(maxIPs,v, mainfrm.maxIPs1, LIMIT) end;
+
+procedure setMaxIPsDLing(v:integer);
+resourcestring
+  LIMIT = 'Max simultaneous addresses downloading: %s ...';
+begin setLimitOption(maxIPsDLing,v, mainfrm.maxIPsDLing1, LIMIT) end;
+
+procedure setMaxConnections(v:integer);
+resourcestring
+  LIMIT = 'Max connections: %s ...';
+begin setLimitOption(maxConnections,v, mainfrm.maxConnections1, LIMIT) end;
+
+procedure setMaxConnectionsIP(v:integer);
+resourcestring
+  LIMIT = 'Max connections from single address: %s ...';
+begin setLimitOption(maxConnectionsIP, v, mainfrm.MaxconnectionsfromSingleaddress1, LIMIT) end;
+
+procedure setMaxDLs(v:integer);
+resourcestring
+  LIMIT = 'Max simultaneous downloads: %s ...';
+begin setLimitOption(maxContempDLs, v, mainfrm.maxDLs1, LIMIT) end;
+
+procedure setMaxDLsIP(v:integer);
+resourcestring
+  LIMIT = 'Max simultaneous downloads from single address: %s ...';
+begin setLimitOption(maxContempDLsIP, v, mainfrm.maxDLsIP1, LIMIT) end;
+
+procedure setAutoFingerprint(v:integer);
+resourcestring
+  FINGERPRINT = 'Create fingerprint on addition under %d KB';
+  NO_FINGERPRINT = 'Create fingerprint on addition: disabled';
+begin
+autoFingerprint:=v;
+mainfrm.Createfingerprintonaddition1.caption:=format(if_(v=0, NO_FINGERPRINT, FINGERPRINT), [v]);
+end;
+
+function loadFingerprint(fn:string):string;
+var
+  hasher: Thasher;
+begin
+result:=loadMD5for(fn);
+if result > '' then exit;
+
+hasher:=Thasher.create();
+hasher.loadFrom(ExtractFilePath(fn));
+result:=hasher.getHashFor(fn);
+hasher.Free;
+end; // loadFingerprint
+
+procedure applyFilesBoxRatio();
+begin
+if filesBoxRatio <= 0 then exit;
+mainfrm.filesPnl.width:=round(filesBoxRatio*mainfrm.clientWidth);
+end; // applyFilesBoxRatio
+
+procedure TmainFrm.FormResize(Sender: TObject);
+begin
+urlBox.Width:=urlToolbar.ClientWidth-browseBtn.Width-copyBtn.width;
+applyFilesBoxRatio();
+end;
+
+procedure checkIfOnlyCountersChanged();
+begin
+if not VFSmodified and VFScounterMod then
+  mainfrm.saveVFS(lastFileOpen)
+end;
+
+function checkVfsOnQuit():boolean;
+var
+  s: string;
+begin
+result:=TRUE;
+if loadingVFS.disableAutosave then exit;
+checkIfOnlyCountersChanged();
+if not VFSmodified or mainfrm.quitWithoutAskingToSaveChk.checked then exit;
+if mainfrm.autosaveVFSchk.checked then
+  mainfrm.saveVFS(lastFileOpen)
+else if windowsShuttingDown then
+  begin
+  s:=lastFileOpen; // don't change this
+  mainfrm.saveVFS(VFS_TEMP_FILE);
+  lastFileOpen:=s;
+  end
+else
+  case msgDlg('Your current file system is not saved.'#13'Save it?', MB_ICONQUESTION+if_(quitASAP, MB_YESNO, MB_YESNOCANCEL)) of
+    IDYES: mainfrm.saveVFS(lastFileOpen);
+    IDNO: ; // just go on
+    IDCANCEL: result:=FALSE;
+    end;
+end; // checkVfsOnQuit
+
+procedure inputComment(f:Tfile);
+resourcestring
+  MSG= 'Please insert a comment for "%s".'
+    +#13'You should use HTML: <br> for break line.';
+begin
+VFSmodified:=inputqueryLong('Comment', format(MSG, [f.name]), f.comment);
+end; // inputComment
+
+function Tmainfrm.addFile(f:Tfile; parent:Ttreenode=NIL; skipComment:boolean=FALSE):Tfile;
+begin
+abortBtn.show();
+stopAddingItems:=FALSE;
+try result:=addFileRecur(f,parent);
+finally abortBtn.hide() end;
+if result = NIL then exit;
+if stopAddingItems then
+  msgDlg('File addition was aborted.'#13'The list of files is incomplete.', MB_ICONWARNING);
+if assigned(parent) then parent.expanded:=TRUE;
+filesbox.Selected:=result.node;
+
+if skipComment or not autoCommentChk.checked then exit;
+application.restore();
+application.bringToFront();
+inputComment(f);
+end; // addFile
+
+function Tmainfrm.addFileRecur(f:Tfile; parent:Ttreenode=NIL):Tfile;
+var
+  n: Ttreenode;
+  sr: TsearchRec;
+  newF: Tfile;
+  s: string;
+begin
+result:=f;
+if stopAddingItems then exit;
+
+if parent = NIL then parent:=rootNode;
+
+if addingItemsCounter >= 0 then // counter enabled
+  begin
+  inc(addingItemsCounter);
+  if addingItemsCounter and 15 = 0 then // step 16
+    begin
+    application.ProcessMessages();
+    setStatusBarText(format('Adding item #%d', [addingItemsCounter]));
+    end;
+  end;
+
+// ensure the parent is a folder
+while assigned(parent) and assigned(parent.data)
+and not nodeToFile(parent).isFolder() do
+  parent:=parent.parent;
+// test for duplicate. it often happens when you have a shortcut to a file.
+if existsNodeWithName(f.name, parent) then
+  begin
+  result:=NIL;
+  exit;
+  end;
+
+if stopAddingItems then exit;
+
+n:=filesBox.Items.AddChild(parent, f.name);
+// stateIndex assignments are a workaround to a delphi bug
+n.stateIndex:=0;
+f.node:=n;
+n.stateIndex:=-1;
+n.Data:=f;
+f.setupImage();
+// autocreate fingerprint
+if f.isFile() and fingerprintsChk.checked and (autoFingerprint > 0) then
+  try
+    f.size:=sizeofFile(f.resource);
+    if (autoFingerprint >= f.size div 1024)
+    and (loadFingerprint(f.resource) = '') then
+      begin
+      s:=createFingerprint(f.resource);
+      if s > '' then saveTextFile(f.resource+'.md5', s);
+      end;
+  except
+  end;
+  
+if (f.resource = '') or not f.isVirtualFolder() then exit;
+// virtual folders must be run at addition-time
+if findFirst(f.resource+'\*',faAnyfile, sr) <> 0 then exit;
+try
+  repeat
+  if stopAddingItems then break;
+  if (sr.name[1] = '.')
+  or isFingerprintFile(sr.name) or isCommentFile(sr.name) then continue;
+  newF:=Tfile.create(f.resource+'\'+sr.name);
+  if newF.isFolder() then include(newF.flags, FA_VIRTUAL);
+  if addfileRecur(newF, n) = NIL then
+    freeAndNIL(newF);
+  until findnext(sr) <> 0;
+finally FindClose(sr) end;
+end; // addFileRecur
+
+procedure TmainFrm.filesBoxCollapsing(Sender: TObject; Node: TTreeNode;
+  var AllowCollapse: Boolean);
+begin
+AllowCollapse:=node.parent<>NIL;
+end;
+
+procedure TmainFrm.Newlink1Click(Sender: TObject);
+var
+  name: string;
+begin
+name:=getUniqueNodeName('New link', filesBox.Selected);
+addfile(Tfile.createLink(name), filesBox.Selected).node.Selected:=TRUE;
+setURL1click(sender);
+end;
+
+procedure TmainFrm.newfolder1Click(Sender: TObject);
+var
+  name: string;
+begin
+name:=getUniqueNodeName('New folder', filesBox.selected);
+with addFile(Tfile.createVirtualFolder(name), filesBox.Selected).node do
+  begin
+  Selected:=TRUE;
+  editText();
+  end;
+end;
+
+procedure TmainFrm.filesBoxEditing(Sender: TObject; Node: TTreeNode;
+  var AllowEdit: Boolean);
+begin
+if node = NIL then exit;
+{ disable shortcuts, to be used in editbox. Shortcuts need to be re-activated,
+{ but when the node text is left unchanged, no event is notified, so we got to
+{ use timerEvent to do the work. }
+remove1.ShortCut:=0;
+Paste1.ShortCut:=0;
+
+allowedit:=allowedit and not nodeToFile(node).isRoot()
+end;
+
+procedure TmainFrm.filesBoxEdited(Sender:TObject; Node:TTreeNode; var S:String);
+var
+  f: Tfile;
+begin
+f:=node.data;
+s:=trim(s); // mod by mars
+if f.name = s then exit;
+
+if f.isFileOrFolder() and not validFilename(s)
+or (s = '')
+or (pos('/',s) > 0)
+then
+  begin
+  s:=node.text;
+  msgDlg('Invalid filename', MB_ICONERROR);
+  exit;
+  end;
+
+if existsNodeWithName(s, node.parent)
+and (msgDlg(MSG_SAME_NAME, MB_ICONWARNING+MB_YESNO) <> IDYES) then
+  begin
+  s:=node.text; // mod by mars
+  exit;
+  end;
+
+f.name:=s;
+VFSmodified:=TRUE;
+updateUrlBox();
+end;
+
+function setNilChildrenFrom(nodes:TtreeNodeDynArray; father:integer):integer;
+var
+  i: integer;
+begin
+result:=0;
+for i:=father+1 to length(nodes)-1 do
+  if nodes[i].Parent = nodes[father] then
+    begin
+    nodes[i]:=NIL;
+    inc(result);
+    end;
+end; // setNilChildrenFrom
+
+procedure Tmainfrm.remove(node:Ttreenode=NIL);
+var
+  i: integer;
+  list: TtreenodeDynArray;
+  warn: boolean;
+begin
+if assigned(node) then
+  begin
+  if node.parent = NIL then exit;
+  if nodeIsLocked(node) then
+    begin
+    msgDlg(MSG_ITEM_LOCKED, MB_ICONERROR);
+    exit;
+    end;
+  node.Delete();
+  exit;
+  end;
+
+i:=filesbox.SelectionCount;
+if (i = 0) or (i = 1) and selectedFile.isRoot() then exit;
+if not deleteDontAskChk.checked
+and (msgDlg('Delete?', MB_ICONQUESTION+MB_YESNO) = IDNO) then
+  exit;
+list:=copySelection();
+// now proceed
+warn:=FALSE;
+for i:=0 to length(list)-1 do
+  if assigned(list[i]) and assigned(list[i].parent) then
+    if assigned(list[i].data) and nodeIsLocked(list[i]) then
+      warn:=TRUE
+    else
+      begin
+      // avoid messing with children that will automatically be deleted as soon as the father is
+      setNilChildrenFrom(list, i);
+      list[i].Delete();
+      end;
+
+if warn then
+  msgDlg(MSG_SOME_LOCKED, MB_ICONWARNING);
+end; // remove
+
+procedure TmainFrm.Remove1Click(Sender: TObject);
+begin
+// this method is bound to the DEL key also while a renaming is ongoing
+if not filesBox.IsEditing() then remove()
+end;
+
+procedure TmainFrm.startBtnClick(Sender: TObject);
+begin toggleServer() end;
+
+function Tmainfrm.pointedConnection():TconnData;
+var
+  li: TlistItem;
+begin
+result:=NIL;
+with connbox.screenToClient(mouse.cursorPos) do
+  li:=connbox.getItemAt(x,y);
+if li = NIL then exit;
+result:=conn2data(li);
+end; // pointedConnection
+
+function Tmainfrm.pointedFile(strict:boolean=TRUE):Tfile;
+var
+  n: Ttreenode;
+  p: Tpoint;
+begin
+result:=NIL;
+p:=filesbox.screenToClient(mouse.cursorPos);
+if strict and not (htOnItem in filesBox.getHitTestInfoAt(p.x,p.y)) then exit;
+n:=filesbox.getNodeAt(p.x,p.y);
+if (n = NIL) or (n.data = NIL) then exit;
+result:=n.data;
+end; // pointedFile
+
+procedure Tmainfrm.updateUrlBox();
+var
+  f: Tfile;
+begin
+if quitting then exit;
+if selectedFile = NIL then f:=rootFile
+else f:=selectedFile;
+
+if f = NIL then urlBox.Text:=''
+else urlBox.text:=f.fullURL()
+end; // updateUrlBox
+
+procedure TmainFrm.filesBoxChange(Sender: TObject; Node: TTreeNode);
+begin
+if filesBox.SelectionCount = 0 then selectedFile:=NIL
+else selectedFile:=filesBox.selections[0].data;
+updateUrlBox()
+end;
+
+function Tmainfrm.selectedConnection():TconnData;
+begin
+if connBox.selected = NIL then
+  result:=NIL
+else
+  result:=conn2data(connBox.selected)
+end;
+
+procedure TmainFrm.setLogToolbar(v:boolean);
+begin
+expandedPnl.visible:=v;
+collapsedPnl.visible:=not v;
+end; // setLogToolbar
+
+procedure TmainFrm.Kickconnection1Click(Sender: TObject);
+var
+  cd: TconnData;
+begin
+cd:=selectedConnection();
+if cd = NIL then exit;
+cd.disconnect('kicked');
+end;
+
+procedure TmainFrm.Kickallconnections1Click(Sender: TObject);
+begin kickByIP('*') end;
+
+procedure TmainFrm.KickIPaddress1Click(Sender: TObject);
+var
+  cd: TconnData;
+begin
+cd:=selectedConnection();
+if cd = NIL then exit;
+kickByIP(cd.address);
+end;
+
+procedure setAutosave(var rec:Tautosave; v:integer);
+resourcestring
+  AUTOSAVE = 'Auto save every: ';
+  SECONDS = '%d seconds';
+begin
+rec.every:=v;
+if assigned(rec.menu) then
+  rec.menu.caption:=
+    AUTOSAVE+if_(v=0,DISABLED, format('%d seconds',[v]));
+end; // setAutosave
+
+procedure setSpeedLimitIP(v:real);
+var
+  i, vi: integer;
+begin
+speedLimitIP:=v;
+if v < 0 then vi:=MAXINT
+else vi:=round(v*1000);
+for i:=0 to ip2obj.Count-1 do
+  with ip2obj.Objects[i] as TperIp do
+    if not customizedLimiter then
+      limiter.maxSpeed:=vi;
+mainfrm.Speedlimitforsingleaddress1.Caption:='Speed limit for single address: '+if_(v<0, DISABLED, floatToStr(v)+' KB/s' );
+end; // setSpeedLimitIP
+
+procedure setSpeedLimit(v:real);
+begin
+speedLimit:=v;
+if v < 0 then globalLimiter.maxSpeed:=MAXINT
+else globalLimiter.maxSpeed:=round(v*1000);
+mainfrm.speedLimit1.caption:='Speed limit: '+if_(v<0, DISABLED, floatToStr(v)+' KB/s' );
+end; // setSpeedLimit
+
+procedure autosaveClick(var rec:Tautosave; name:string);
+resourcestring
+  MSG = 'Auto-save %s.'
+    +#13'Specify in seconds.'
+    +#13'Leave blank to disable.';
+  MSG_MIN = 'We don''t accept less than %d';
+var
+  s: string;
+  v: integer;
+begin
+if rec.every <= 0 then s:=''
+else s:=intToStr(rec.every);
+  repeat
+  if not inputquery('Auto-save '+name, format(MSG,[name]), s) then exit;
+  s:=trim(s);
+  if s = '' then
+    begin
+    setAutosave(rec, 0);
+    break;
+    end
+  else
+    try
+      v:=strToInt(s);
+      if v >= rec.minimum then
+        begin
+        setAutosave(rec, v);
+        break;
+        end;
+      msgDlg(format(MSG_MIN,[rec.minimum]), MB_ICONERROR);
+    except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR) end;
+  until false;
+end; // autosaveClick
+
+// change port and test it working. Restore if not working.
+function changePort(newVal:string):boolean;
+var
+  act: boolean;
+  was: string;
+begin
+result:=TRUE;
+act:=srv.active;
+was:=port;
+port:=newVal;
+if act and (newVal = srv.port) then exit;
+stopServer();
+if startServer() then
+  begin
+  if not act then stopServer(); // restore
+  exit;
+  end;
+result:=FALSE;
+port:=was;
+if act then startServer();
+end; // changePort
+
+function TmainFrm.getCfg(exclude:string=''):string;
+type
+  Tencoding=(E_PLAIN,E_B64,E_ZIP);
+
+  function encode(s:string; encoding:Tencoding):string;
+  begin
+  case encoding of
+    E_PLAIN: result:=s;
+    E_B64: result:=base64encode(s);
+    E_ZIP:
+      begin
+      result:=zCompressStr2(s, zcMax);
+      if length(result) > round(0.95*length(s)) then result:=s;
+      result:=base64encode(result);
+      end;
+    end;
+  end;
+
+  function accountsToStr():string;
+  var
+    i: integer;
+    a: Paccount;
+
+    function prop(name, value:string; encoding:Tencoding=E_PLAIN):string;
+    begin result:=if_(value>'', '|'+name+':'+encode(value, encoding)) end;
+
+  begin
+  result:='';
+  for i:=0 to length(accounts)-1 do
+  	begin
+    a:=@accounts[i];
+    result:=result
+      +prop('login', a.user+':'+a.pwd, E_B64)
+      +prop('enabled', yesno[a.enabled])
+      +prop('group', yesno[a.group])
+      +prop('no-limits', yesno[a.noLimits])
+      +prop('redir', a.redir)
+      +prop('link', join(':',a.link))
+      +prop('notes', a.notes, E_ZIP)
+      +';';
+    end;
+  end; // accountsToStr
+
+  function banlistToStr():string;
+  var
+    i: integer;
+  begin
+  result:='';
+  for i:=0 to length(banlist)-1 do
+    result:=result+banlist[i].ip+'#'
+      +replaceStr(banlist[i].comment, '|','\$pipe')+'|';
+  end;
+
+  function connColumnsToStr():string;
+  var
+    i: integer;
+  begin
+  result:='';
+  for i:=0 to connBox.columns.count-1 do
+    with connBox.columns.items[i] do
+      result:=result+format('%s;%d|', [caption, width]);
+  end; // connColumnsToStr
+
+var
+  iconMasksStr, userIconMasks: string;
+
+  function iconMasksToStr():string;
+  var
+    i, j: integer;
+  begin
+  result:='';
+  for i:=0 to length(iconMasks)-1 do
+    begin
+    j:=idx_img2ico(iconMasks[i].int);
+    if j >= USER_ICON_MASKS_OFS then
+      userIconMasks:=userIconMasks+format('%d:%s|', [j, encode(pic2str(j), E_ZIP)]);
+    result:=result+format('%s|%d||', [iconMasks[i].str, j]);
+    end;
+  end; // iconMasksToStr
+
+  function fontToStr(f:Tfont):string;
+  begin
+  result:=if_(fsBold in f.Style, 'B')+if_(fsItalic in f.Style, 'I')
+    +if_(fsUnderline in f.Style, 'U')+if_(fsStrikeOut in f.Style, 'S');
+  result:=format('%s|%d|%s|%s', [f.Name,f.size,colorToString(f.Color),result]);
+  end; // fontToStr
+
+begin
+userIconMasks:='';
+iconMasksStr:=iconMasksToStr();
+result:='HFS '+VERSION+' - Build #'+VERSION_BUILD+CRLF
++'active='+yesno[srv.active]+CRLF
++'only-1-instance='+yesno[only1instanceChk.checked]+CRLF
++'window='+rectToStr(lastWindowRect)+CRLF
++'window-max='+yesno[windowState = wsMaximized]+CRLF
++'easy='+yesno[easyMode]+CRLF
++'port='+port+CRLF
++'files-box-ratio='+floatToStr(filesBoxRatio)+CRLF
++'log-max-lines='+intToStr(logMaxLines)+CRLF
++'log-read-only='+yesno[logbox.readonly]+CRLF
++'log-file-name='+logFile.filename+CRLF
++'log-font-name='+logFontName+CRLF
++'log-font-size='+intToStr(logFontSize)+CRLF
++'log-date='+yesno[LogdateChk.checked]+CRLF
++'log-time='+yesno[LogtimeChk.checked]+CRLF
++'log-to-screen='+yesno[logOnVideoChk.checked]+CRLF
++'log-only-served='+yesno[logOnlyServedChk.checked]+CRLF
++'log-server-start='+yesno[logServerstartChk.checked]+CRLF
++'log-server-stop='+yesno[logServerstopChk.checked]+CRLF
++'log-connections='+yesno[logConnectionsChk.checked]+CRLF
++'log-disconnections='+yesno[logDisconnectionsChk.checked]+CRLF
++'log-bytes-sent='+yesno[logBytessentChk.checked]+CRLF
++'log-bytes-received='+yesno[logBytesreceivedChk.checked]+CRLF
++'log-replies='+yesno[logRepliesChk.checked]+CRLF
++'log-requests='+yesno[logRequestsChk.checked]+CRLF
++'log-uploads='+yesno[logUploadsChk.checked]+CRLF
++'log-deletions='+yesno[logDeletionsChk.checked]+CRLF
++'log-full-downloads='+yesno[logFulldownloadsChk.checked]+CRLF
++'log-dump-request='+yesno[DumprequestsChk.checked]+CRLF
++'log-browsing='+yesno[logBrowsingChk.checked]+CRLF
++'log-icons='+yesno[logIconsChk.checked]+CRLF
++'log-progress='+yesno[logProgressChk.checked]+CRLF
++'log-banned='+yesno[logBannedChk.checked]+CRLF
++'log-others='+yesno[logOtherEventsChk.checked]+CRLF
++'log-file-tabbed='+yesno[tabOnLogFileChk.checked]+CRLF
++'log-apache-format='+logfile.apacheFormat+CRLF
++'tpl-file='+tplFilename+CRLF
++'tpl-editor='+tplEditor+CRLF
++'delete-dont-ask='+yesno[deleteDontAskChk.checked]+CRLF
++'free-login='+yesno[freeLoginChk.checked]+CRLF
++'confirm-exit='+yesno[confirmexitChk.checked]+CRLF
++'keep-bak-updating='+yesno[keepBakUpdatingChk.checked]+CRLF
++'include-pwd-in-pages='+yesno[pwdInPagesChk.Checked]+CRLF
++'ip='+defaultIP+CRLF
++'custom-ip='+join(';',customIPs)+CRLF
++'listen-on='+listenOn+CRLF
++'external-ip-server='+customIPservice+CRLF
++'dynamic-dns-updater='+base64encode(dyndns.url)+CRLF
++'dynamic-dns-user='+dyndns.user+CRLF
++'dynamic-dns-host='+dyndns.host+CRLF
++'search-better-ip='+yesno[searchbetteripChk.checked]+CRLF
++'start-minimized='+yesno[startMinimizedChk.checked]+CRLF
++'connections-height='+intToStr(lastGoodConnHeight)+CRLF
++'files-stay-flagged-for-minutes='+intToStr(filesStayFlaggedForMinutes)+CRLF
++'auto-save-vfs='+yesno[autosaveVFSchk.checked]+CRLF
++'folders-before='+yesno[foldersbeforeChk.checked]+CRLF
++'links-before='+yesno[linksBeforeChk.checked]+CRLF
++'use-comment-as-realm='+yesno[usecommentasrealmChk.checked]+CRLF
++'getright-template='+yesno[DMbrowserTplChk.checked]+CRLF
++'auto-save-options='+yesno[autosaveoptionsChk.checked]+CRLF
++'dont-include-port-in-url='+yesno[noPortInUrlChk.checked]+CRLF
++'persistent-connections='+yesno[persistentconnectionsChk.checked]+CRLF
++'modal-options='+yesno[modalOptionsChk.checked]+CRLF
++'beep-on-flash='+yesno[beepChk.checked]+CRLF
++'prevent-leeching='+yesno[preventLeechingChk.checked]+CRLF
++'delete-partial-uploads='+yesno[deletePartialUploadsChk.checked]+CRLF
++'rename-partial-uploads='+renamePartialUploads+CRLF
++'enable-macros='+yesno[enableMacrosChk.checked]+CRLF
++'use-system-icons='+yesno[usesystemiconsChk.checked]+CRLF
++'minimize-to-tray='+yesno[MinimizetotrayChk.checked]+CRLF
++'tray-icon-for-each-download='+yesno[trayfordownloadChk.checked]+CRLF
++'show-main-tray-icon='+yesno[showmaintrayiconChk.checked]+CRLF
++'always-on-top='+yesno[alwaysontopChk.checked]+CRLF
++'quit-dont-ask='+yesno[quitWithoutAskingToSaveChk.checked]+CRLF
++'support-descript.ion='+yesno[supportDescriptionChk.checked]+CRLF
++'oem-descript.ion='+yesno[oemForIonChk.checked]+CRLF
++'oem-tar='+yesno[oemTarChk.checked]+CRLF
++'enable-fingerprints='+yesno[fingerprintsChk.checked]+CRLF
++'save-fingerprints='+yesno[saveNewFingerprintsChk.checked]+CRLF
++'auto-fingerprint='+intToStr(autoFingerprint)+CRLF
++'encode-pwd-url='+yesno[encodePwdUrlChk.checked]+CRLF
++'stop-spiders='+yesno[stopSpidersChk.checked]+CRLF
++'backup-saving='+yesno[backupSavingChk.checked]+CRLF
++'recursive-listing='+yesno[recursiveListingChk.checked]+CRLF
++'send-hfs-identifier='+yesno[sendHFSidentifierChk.checked]+CRLF
++'list-hidden-files='+yesno[listfileswithhiddenattributeChk.checked]+CRLF
++'list-system-files='+yesno[listfileswithsystemattributeChk.checked]+CRLF
++'list-protected-items='+yesno[hideProtectedItemsChk.checked]+CRLF
++'enable-no-default='+yesno[enableNoDefaultChk.checked]+CRLF
++'browse-localhost='+yesno[browseUsingLocalhostChk.checked]+CRLF
++'add-folder-default='+addFolderDefault+CRLF
++'default-sorting='+defSorting+CRLF
++'last-dialog-folder='+lastDialogFolder+CRLF
++'auto-save-vfs-every='+intToStr(autosaveVFS.every)+CRLF
++'last-update-check='+floatToStr(lastUpdateCheck)+CRLF
++'allowed-referer='+allowedReferer+CRLF
++'forwarded-mask='+forwardedMask+CRLF
++'tray-shows='+trayShows+CRLF
++'tray-message='+escapeNL(trayMsg)+CRLF
++'speed-limit='+floatToStr(speedLimit)+CRLF
++'speed-limit-ip='+floatToStr(speedLimitIP)+CRLF
++'max-ips='+intToStr(maxIPs)+CRLF
++'max-ips-downloading='+intToStr(maxIPsDLing)+CRLF
++'max-connections='+intToStr(maxConnections)+CRLF
++'max-connections-by-ip='+intToStr(maxConnectionsIP)+CRLF
++'max-contemporary-dls='+intToStr(maxContempDLs)+CRLF
++'max-contemporary-dls-ip='+intToStr(maxContempDLsIP)+CRLF
++'login-realm='+loginRealm+CRLF
++'open-in-browser='+openInBrowser+CRLF
++'flash-on='+flashOn+CRLF
++'graph-rate='+intToStr(graph.rate)+CRLF
++'graph-size='+intToStr(graph.size)+CRLF
++'graph-visible='+yesno[graphBox.visible]+CRLF
++'no-download-timeout='+intToStr(noDownloadTimeout)+CRLF
++'connections-timeout='+intToStr(connectionsInactivityTimeout)+CRLF
++'no-reply-ban='+yesno[noReplyBan]+CRLF
++'ban-list='+banlistToStr()+CRLF
++'add-to-folder='+addToFolder+CRLF
++'last-file-open='+lastFileOpen+CRLF
++'reload-on-startup='+yesno[reloadonstartupChk.checked]+CRLF
++'https-url='+yesno[httpsUrlsChk.checked]+CRLF
++'find-external-on-startup='+yesno[findExtOnStartupChk.checked]+CRLF
++'encode-non-ascii='+yesno[encodenonasciiChk.checked]+CRLF
++'encode-spaces='+yesno[encodespacesChk.checked]+CRLF
++'mime-types='+join('|',mimeTypes)+CRLF
++'in-browser-if-mime='+yesno[inBrowserIfMIME]+CRLF
++'icon-masks='+iconMasksStr+CRLF
++'icon-masks-user-images='+userIconMasks+CRLF
++'address2name='+join('|',address2name)+CRLF
++'recent-files='+join('|',recentFiles)+CRLF
++'trusted-files='+join('|',trustedFiles)+CRLF
++'leave-disconnected-connections='+yesno[leavedisconnectedconnectionsChk.checked]+CRLF
++'accounts='+accountsToStr()+CRLF
++'account-notes-wrap='+yesno[optionsFrm.notesWrapChk.checked]+CRLF
++'tray-instead-of-quit='+yesno[trayInsteadOfQuitChk.checked]+CRLF
++'compressed-browsing='+yesno[compressedbrowsingChk.checked]+CRLF
++'use-iso-date-format='+yesno[useISOdateChk.Checked]+CRLF
++'hints4newcomers='+yesno[HintsfornewcomersChk.checked]+CRLF
++'save-totals='+yesno[saveTotalsChk.checked]+CRLF
++'log-toolbar-expanded='+yesno[mainfrm.expandedPnl.visible]+CRLF
++'number-files-on-upload='+yesno[numberFilesOnUploadChk.checked]+CRLF
++'do-not-log-address='+dontLogAddressMask+CRLF
++'last-external-address='+dyndns.lastIP+CRLF
++'min-disk-space='+intToStr(minDiskSpace)+CRLF
++'out-total='+intToStr(outTotalOfs+srv.bytesSent)+CRLF
++'in-total='+intToStr(inTotalOfs+srv.bytesReceived)+CRLF
++'hits-total='+intToStr(hitsLogged)+CRLF
++'downloads-total='+intToStr(downloadsLogged)+CRLF
++'upload-total='+intToStr(uploadsLogged)+CRLF
++'many-items-warning='+yesno[warnManyItems]+CRLF
++'load-single-comment-files='+yesno[loadSingleCommentsChk.checked]+CRLF
++'copy-url-on-start='+yesno[autocopyURLonstartChk.checked]+CRLF
++'connections-columns='+connColumnsToStr()+CRLF
++'auto-comment='+yesno[autoCommentChk.checked]+CRLF
++'update-daily='+yesno[updateDailyChk.checked]+CRLF
++'delayed-update='+yesno[delayUpdateChk.checked]+CRLF
++'tester-updates='+yesno[testerUpdatesChk.checked]+CRLF
++'copy-url-on-addition='+yesno[AutocopyURLonadditionChk.checked]+CRLF
++'ip-services='+join(';',IPservices)+CRLF
++'ip-services-time='+floatToStr(IPservicesTime)+CRLF
++'update-automatically='+yesno[updateAutomaticallyChk.checked]+CRLF
++'prevent-standby='+yesno[preventStandbyChk.checked]+CRLF;
+
+if ipsEverConnected.Count < IPS_THRESHOLD then
+  result:=result+'ips-ever-connected='+ipsEverConnected.DelimitedText+CRLF;
+
+if exclude = '' then exit;
+exclude:=replaceStr(exclude,'.','[^=]'); // optimization: since we are searching for keys, characters can't be "="
+result:=reReplace(result, '^('+exclude+')=.*$', '');
+end; // getCfg
+
+// this is to keep the "hashed" version updated
+var
+  lastUcCFG: Tdatetime;
+procedure updateCurrentCFG();
+var
+  s: string;
+begin
+if mainfrm = NIL then exit;
+
+// not faster
+if lastUcCFG+5/SECONDS > now() then exit;
+lastUcCFG:=now();
+
+s:=mainfrm.getCFG('.*-total'); // these will change often and are of no interest, so we ignore them as an optimization
+if s = currentCFG then exit;
+
+if (currentCFG>'') // first time, it's not an update, it's an initialization
+and mainfrm.autoSaveOptionsChk.checked then
+  mainfrm.saveCFG();
+
+currentCFG:=s;
+currentCFGhashed.text:=s; // re-parse
+end; // updateCurrentCFG
+
+function TmainFrm.setCfg(cfg:string; alreadyStarted:boolean):boolean;
+resourcestring
+  MSG_BAN = 'Your ban configuration may have been screwed up.'
+    +#13'Please verify it.';
+var
+  l, savedip, build: string;
+  warnings: TStringDynArray;
+  userIconOfs: integer;
+
+  function yes(s:string=''):boolean;
+  begin result:= if_(s>'',s,l)='yes' end;
+
+  function int():int64;
+  begin if not tryStrToInt64(l, result) then result:=0 end;
+
+  function real():TdateTime;
+  begin try result:=strToFloat(l) except result:=0 end end;
+
+  procedure loadBanlist(s:string);
+  var
+    p: string;
+    i: integer;
+  begin
+  { old versions wrongly used ; as ban-record separator, while it was already
+  { used as address separator }
+  if (build < '018') and (pos(';',s) > 0) then
+    begin
+    s:=replaceStr(s, ';','|');
+    addString(MSG_BAN, warnings);
+    end;
+  setLength(banlist, 0);
+  i:=0;
+  while s > '' do
+    begin
+    p:=chop('|',s);
+    if p = '' then continue;
+    setLength(banlist, i+1);
+    banlist[i].comment:=replaceStr(p, '\$pipe','|'); // unescape
+    banlist[i].ip:=chop('#',banlist[i].comment);
+    inc(i);
+    end;
+  end; // loadBanlist
+
+  function unzip(s:string):string;
+  begin
+  try result:=ZDecompressStr(base64decodeA(s));
+  except end;
+  end; // unzip
+
+  procedure strToAccounts();
+  var
+  	s, t, p: string;
+    i: integer;
+    a: Paccount;
+  begin
+  accounts:=NIL;
+  while l > '' do
+  	begin
+    // accounts are separated by semicolons
+    s:=chop(';',l);
+    if s = '' then continue;
+    i:=length(accounts);
+    setLength(accounts, i+1);
+    a:=@accounts[i];
+    a.enabled:=TRUE; // by default
+    while s > '' do
+      begin
+      // account properties are separated by pipes
+      t:=chop('|',s);
+      p:=chop(':',t); // get property name
+      if p = '' then continue;
+      if p = 'login' then
+      	begin
+        if not anycharIn(':', t) then
+  	      t:=base64decode(t);
+  	    a.user:=chop(':',t);
+	      a.pwd:=t;
+        end;
+      if p = 'enabled' then a.enabled:=yes(t);
+      if p = 'no-limits' then a.noLimits:=yes(t);
+      if p = 'group' then a.group:=yes(t);
+      if p = 'redir' then a.redir:=t;
+      if p = 'link' then a.link:=split(':',t);
+      if p = 'notes' then a.notes:=unzip(t);
+      end;
+    end;
+  end; // strToAccounts
+
+  procedure strToIconmasks();
+  var
+    i: integer;
+  begin
+  while l > '' do
+    begin
+    i:=length(iconMasks);
+    setLength(iconMasks, i+1);
+    iconMasks[i].str:=chop('|',l);
+    iconMasks[i].int:=StrToIntDef(chop('||',l),0);
+    end;
+  end; // strToIconmasks
+
+  procedure readUserIconMasks();
+  var
+    i, iFrom, iTo: integer;
+  begin
+  userIconOfs:=images.Count;
+  while l > '' do
+    begin
+    iFrom:=strTointDef(chop(':', l), -1);
+    iTo:=str2pic(unzip(chop('|', l)));
+    for i:=0 to length(iconMasks)-1 do
+      if iconMasks[i].int = iFrom then
+        iconMasks[i].int:=iTo;
+    end;
+  end; // readUserIconmasks
+
+  procedure strToFont(f:Tfont);
+  begin
+  f.Name:=chop('|', l);
+  f.Size:=strToIntDef(chop('|', l), f.size);
+  f.Color:=StringToColor(chop('|',l));
+  f.Style:=[];
+  if pos('B', l) > 0 then f.Style:=f.Style+[fsBold];
+  if pos('U', l) > 0 then f.Style:=f.Style+[fsUnderline];
+  if pos('I', l) > 0 then f.Style:=f.Style+[fsItalic];
+  if pos('S', l) > 0 then f.Style:=f.Style+[fsStrikeout];
+  end; // strToFont
+
+
+  procedure addMissingMimeTypes();
+  var
+    i: integer;
+  begin
+  // add missing default mime types
+  i:=length(DEFAULT_MIME_TYPES);
+  while i > 0 do
+    begin
+    dec(i, 2);
+    if stringExists(DEFAULT_MIME_TYPES[i], mimeTypes) then continue;
+    // add the missing pair at the beginning
+    addArray(mimeTypes, DEFAULT_MIME_TYPES, 0, i, 2);
+    end;
+  end;
+
+const
+  BOOL2WS: array [boolean] of TWindowState = (wsNormal, wsMaximized);
+var
+  i: integer;
+  h: string;
+  activateServer: boolean;
+begin
+result:=FALSE;
+if cfg = '' then exit;
+
+// prior to build #230, this header was required
+if ansiStartsStr('HFS ', cfg) then
+  begin
+  l:=chop(CRLF,cfg);
+  chop(' - Build #',l);
+  build:=l;
+  end
+else
+  build:=VERSION_BUILD;
+
+warnings:=NIL;
+if alreadyStarted then activateServer:=srv.active
+else activateServer:=TRUE;
+
+while cfg > '' do
+  begin
+  l:=chop(CRLF,cfg);
+  h:=chop('=',l);
+  try
+    if h = 'banned-ips' then h:='ban-list';
+    if h = 'user-mime-types' then h:='mime-types';  // user-mime-types was an experiment made in build #258..260
+    if h = 'save-in-out-totals' then h:='save-totals';
+
+    if h = 'active' then activateServer:=yes;
+    if (h = 'window') and (l <> '0,0,0,0') then
+    	begin
+      lastWindowRect:=strToRect(l);
+      boundsRect:=lastWindowRect;
+      end;
+    if h = 'window-max' then windowstate:=BOOL2WS[yes];
+    if h = 'port' then
+      if srv.active then changePort(l)
+      else port:=l;
+    if h = 'ip' then savedip:=l;
+    if h = 'custom-ip' then customIPs:=split(';',l);
+    if h = 'listen-on' then listenOn:=l;
+    if h = 'dynamic-dns-updater' then dyndns.url:=base64decode(l);
+    if h = 'dynamic-dns-user' then dyndns.user:=l;
+    if h = 'dynamic-dns-host' then dyndns.host:=l;
+    if h = 'login-realm' then loginRealm:=l;
+    if h = 'easy' then setEasyMode(yes);
+    if h = 'keep-bak-updating' then keepBakUpdatingChk.checked:=yes;
+		if h = 'encode-non-ascii' then encodenonasciiChk.checked:=yes;
+		if h = 'encode-spaces' then encodespacesChk.checked:=yes;
+		if h = 'search-better-ip' then searchbetteripChk.checked:=yes;
+    if h = 'start-minimized' then startMinimizedChk.checked:=yes;
+    if h = 'files-box-ratio' then filesBoxRatio:=real;
+    if h = 'log-max-lines' then logMaxLines:=int;
+    if h = 'log-file-name' then logFile.filename:=l;
+    if h = 'log-font-name' then logFontName:=l;
+    if h = 'log-font-size' then logFontSize:=int;
+    if h = 'log-date' then LogdateChk.checked:=yes;
+    if h = 'log-time' then LogtimeChk.checked:=yes;
+    if h = 'log-read-only' then logbox.readonly:=yes;
+    if h = 'log-browsing' then logBrowsingChk.checked:=yes;
+    if h = 'log-icons' then logIconsChk.checked:=yes;
+    if h = 'log-progress' then logProgressChk.checked:=yes;
+    if h = 'log-banned' then logBannedChk.checked:=yes;
+    if h = 'log-others' then logOtherEventsChk.checked:=yes;
+    if h = 'log-dump-request' then DumprequestsChk.checked:=yes;
+    if h = 'log-server-start' then logServerstartChk.checked:=yes;
+    if h = 'log-server-stop' then logServerstopChk.checked:=yes;
+    if h = 'log-connections' then logConnectionsChk.checked:=yes;
+    if h = 'log-disconnections' then logDisconnectionsChk.checked:=yes;
+    if h = 'log-bytes-sent' then logBytessentChk.checked:=yes;
+    if h = 'log-bytes-received' then logBytesreceivedChk.checked:=yes;
+    if h = 'log-replies' then logRepliesChk.checked:=yes;
+    if h = 'log-requests' then logRequestsChk.checked:=yes;
+    if h = 'log-uploads' then logUploadsChk.checked:=yes;
+    if h = 'log-deletions' then logDeletionsChk.checked:=yes;
+    if h = 'log-full-downloads' then logFulldownloadsChk.checked:=yes;
+    if h = 'log-apache-format' then logfile.apacheFormat:=l;
+    if h = 'log-only-served' then logOnlyServedChk.checked:=yes;
+    if h = 'log-to-screen' then logOnVideoChk.checked:=yes;
+    if h = 'log-file-tabbed' then tabOnLogFileChk.checked:=yes;
+    if h = 'confirm-exit' then confirmexitChk.checked:=yes;
+    if h = 'backup-saving' then backupSavingChk.checked:=yes;
+    if h = 'connections-height' then lastGoodConnHeight:=int;
+    if h = 'files-stay-flagged-for-minutes'then filesStayFlaggedForMinutes:=int;
+    if h = 'folders-before' then foldersbeforeChk.checked:=yes;
+    if h = 'include-pwd-in-pages' then pwdInPagesChk.Checked:=yes;
+    if h = 'minimize-to-tray' then MinimizetotrayChk.checked:=yes;
+    if h = 'prevent-standby' then preventStandbyChk.checked:=yes;
+		if h = 'use-system-icons' then usesystemiconsChk.checked:=yes;
+    if h = 'quit-dont-ask' then quitWithoutAskingToSaveChk.checked:=yes;
+		if h = 'auto-save-options' then autosaveoptionsChk.checked:=yes;
+    if h = 'use-comment-as-realm' then usecommentasrealmChk.checked:=yes;
+    if h = 'persistent-connections'then persistentconnectionsChk.checked:=yes;
+		if h = 'show-main-tray-icon' then showmaintrayiconChk.checked:=yes;
+    if h = 'delete-dont-ask' then deleteDontAskChk.checked:=yes;
+	  if h = 'tray-icon-for-each-download' then trayfordownloadChk.checked:=yes;
+    if h = 'copy-url-on-addition' then AutocopyURLonadditionChk.checked:=yes;
+    if h = 'copy-url-on-start' then autocopyURLonstartChk.checked:=yes;
+    if h = 'enable-macros' then enableMacrosChk.checked:=yes;
+    if h = 'update-daily' then updateDailyChk.checked:=yes;
+    if h = 'tray-instead-of-quit' then trayInsteadOfQuitChk.checked:=yes;
+    if h = 'modal-options' then modalOptionsChk.checked:=yes;
+    if h = 'beep-on-flash' then beepChk.checked:=yes;
+    if h = 'prevent-leeching' then preventLeechingChk.checked:=yes;
+    if h = 'list-hidden-files' then listfileswithhiddenattributeChk.checked:=yes;
+    if h = 'list-system-files' then listfileswithsystemattributeChk.checked:=yes;
+    if h = 'list-protected-items' then hideProtectedItemsChk.checked:=yes;
+    if h = 'always-on-top' then alwaysontopChk.checked:=yes;
+    if h = 'support-descript.ion' then supportDescriptionChk.Checked:=yes;
+    if h = 'oem-descript.ion' then oemForIonChk.checked:=yes;
+    if h = 'oem-tar' then oemTarChk.checked:=yes;
+    if h = 'free-login' then freeLoginChk.checked:=yes;
+    if h = 'https-url' then httpsUrlsChk.checked:=yes;
+    if h = 'enable-fingerprints' then fingerprintsChk.checked:=yes;
+    if h = 'save-fingerprints' then saveNewFingerprintsChk.checked:=yes;
+    if h = 'auto-fingerprint' then setAutoFingerprint(int);
+    if h = 'encode-pwd-url' then encodePwdUrlChk.checked:=yes;
+    if h = 'log-toolbar-expanded' then setLogToolbar(yes);
+    if h = 'last-update-check' then lastUpdateCheck:=real;
+    if h = 'recursive-listing' then recursiveListingChk.checked:=yes;
+    if h = 'enable-no-default' then enableNoDefaultChk.checked:=yes;
+    if h = 'browse-localhost' then browseUsingLocalhostChk.checked:=yes;
+    if h = 'tpl-file' then tplFilename:=l;
+    if h = 'tpl-editor' then tplEditor:=l;
+    if h = 'add-folder-default' then addFolderDefault:=l;
+    if h = 'default-sorting' then defSorting:=l;
+    if h = 'last-dialog-folder' then lastDialogFolder:=l;
+    if h = 'send-hfs-identifier' then sendHFSidentifierChk.checked:=yes;
+		if h = 'auto-save-vfs' then autosaveVFSchk.checked:=yes;
+    if h = 'add-to-folder' then addToFolder:=l;
+    if h = 'getright-template' then DMbrowserTplChk.checked:=yes;
+    if h = 'leave-disconnected-connections' then leavedisconnectedconnectionsChk.checked:=yes;
+		if h = 'speed-limit' then setSpeedLimit(real);
+		if h = 'speed-limit-ip' then setSpeedLimitIP(real);
+    if h = 'no-download-timeout' then setNoDownloadTimeout(int);
+    if h = 'connections-timeout' then connectionsInactivityTimeout:=int;
+    if h = 'max-ips' then setMaxIPs(int);
+    if h = 'max-ips-downloading' then setMaxIPsDLing(int);
+    if h = 'max-connections' then setMaxConnections(int);
+    if h = 'max-connections-by-ip' then setMaxConnectionsIP(int);
+    if h = 'max-contemporary-dls' then setMaxDLs(int);
+    if h = 'max-contemporary-dls-ip' then setMaxDLsIP(int);
+		if h = 'tray-message' then trayMsg:=replaceStr(unescapeNL(l), CRLF, trayNL);
+    if h = 'ban-list' then loadBanlist(l);
+    if h = 'no-reply-ban' then noReplyBan:=yes;
+    if h = 'save-totals' then saveTotalsChk.checked:=yes;
+    if h = 'allowed-referer' then allowedReferer:=l;
+    if h = 'open-in-browser' then openInBrowser:=l;
+		if h = 'last-file-open' then lastFileOpen:=l;
+		if h = 'reload-on-startup' then reloadonstartupChk.checked:=yes;
+    if h = 'stop-spiders' then stopSpidersChk.checked:=yes;
+    if h = 'find-external-on-startup' then findExtOnStartupChk.checked:=yes;
+    if h = 'dont-include-port-in-url' then noPortInUrlChk.checked:=yes;
+    if h = 'tray-shows' then trayshows:=l;
+    if h = 'auto-save-vfs-every' then setAutosave(autosaveVFS, int);
+    if h = 'external-ip-server' then customIPservice:=l;
+    if h = 'only-1-instance' then only1instanceChk.checked:=yes;
+		if h = 'graph-rate' then setGraphRate(int);
+		if h = 'graph-size' then graph.size:=int;
+    if h = 'forwarded-mask' then forwardedMask:=l;
+    if h = 'delete-partial-uploads' then deletePartialUploadsChk.checked:=yes;
+    if h = 'rename-partial-uploads' then renamePartialUploads:=l;
+    if h = 'do-not-log-address' then dontLogAddressMask:=l;
+    if h = 'out-total' then outTotalOfs:=int;
+    if h = 'in-total' then inTotalOfs:=int;
+    if h = 'hits-total' then hitsLogged:=int;
+    if h = 'downloads-total' then downloadsLogged:=int;
+    if h = 'upload-total' then uploadsLogged:=int;
+    if h = 'min-disk-space' then minDiskSpace:=int;
+    if h = 'flash-on' then flashOn:=l;
+    if h = 'last-external-address' then dyndns.lastIP:=l;
+    if h = 'recents' then recentFiles:=split(';',l);   // legacy: moved to recent-files because the split-char changed in #111
+    if h = 'recent-files' then recentFiles:=split('|',l);
+    if h = 'trusted-files' then trustedFiles:=split('|',l);
+    if h = 'ips-ever-connected' then ipsEverConnected.DelimitedText:=l;
+    if h = 'mime-types' then mimeTypes:=split('|',l);
+    if h = 'in-browser-if-mime' then inBrowserIfMIME:=yes;
+    if h = 'address2name' then address2name:=split('|',l);
+    if h = 'compressed-browsing' then compressedbrowsingChk.checked:=yes;
+    if h = 'hints4newcomers' then HintsfornewcomersChk.checked:=yes;
+    if h = 'tester-updates' then testerUpdatesChk.checked:=yes;
+    if h = 'number-files-on-upload' then numberFilesOnUploadChk.checked:=yes;
+    if h = 'many-items-warning' then warnManyItems:=yes;
+    if h = 'load-single-comment-files' then loadSingleCommentsChk.checked:=yes;
+    if h = 'accounts' then strToAccounts();
+    if h = 'use-iso-date-format' then useISOdateChk.Checked:=yes;
+    if h = 'auto-comment' then autoCommentChk.checked:=yes;
+    if h = 'icon-masks-user-images' then readUserIconMasks();
+    if h = 'icon-masks' then strToIconmasks();
+    if h = 'connections-columns' then serializedConnColumns:=l;
+    if h = 'ip-services' then IPservices:=split(';', l);
+    if h = 'ip-services-time' then IPservicesTime:=real;
+    if h = 'update-automatically' then updateAutomaticallyChk.checked:=yes;
+    if h = 'delayed-update' then delayUpdateChk.checked:=yes;
+    if h = 'links-before' then linksBeforeChk.checked:=yes;
+    if h = 'account-notes-wrap' then optionsFrm.notesWrapChk.checked:=yes;
+
+		if h = 'graph-visible' then
+      if yes then showGraph()
+      else hideGraph();
+    // extra commands for external use
+    if h = 'load-tpl-from' then setNewTplFile(l);
+  except end;
+  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;
+
+if not alreadyStarted
+and not saveTotalsChk.checked then
+  begin
+  outTotalOfs:=0;
+  inTotalOfs:=0;
+  hitsLogged:=0;
+  downloadsLogged:=0;
+  uploadsLogged:=0;
+  end;
+findSimilarIP(savedIP);
+if lastGoodLogWidth > 0 then
+  logBox.Width:=lastGoodLogWidth;
+if lastGoodConnHeight > 0 then
+  connPnl.Height:=lastGoodConnHeight;
+if not fileExists(tplFilename) then
+  setTplText(defaultTpl);
+srv.persistentConnections:=persistentconnectionsChk.Checked;
+applyFilesBoxRatio();
+updateRecentFilesMenu();
+keepTplUpdated();
+updateAlwaysOnTop();
+applyISOdateFormat();
+// the filematch() would be fooled by spaces, so lets trim
+for i:=0 to length(MIMEtypes)-1 do
+  MIMEtypes[i]:=trim(MIMEtypes[i]);
+
+addMissingMimeTypes();
+for i:=0 to length(warnings)-1 do
+  msgDlg(warnings[i], MB_ICONWARNING);
+if alreadyStarted then
+  if activateServer <> srv.active then toggleServer()
+  else
+else
+  if activateServer then startServer();
+result:=TRUE;
+
+updateCurrentCFG();
+end; // setcfg
+
+function loadCfg(var ini,tpl:string):boolean;
+
+  // until 2.2 the template could be kept in the registry, so we need to move it now.  
+  // returns true if the registry source can be deleted
+  function moveLegacyTpl(tpl:string):boolean;
+  begin
+  result:=FALSE;
+  if (tplFilename > '') or (tpl = '') then exit;
+  tplFilename:=cfgPath+TPL_FILE;
+  result:=saveTextFile(tplFilename, tpl);
+  end; // moveLegacyTpl
+
+begin
+result:=TRUE;
+ipsEverConnected.text:=loadTextfile(IPS_FILE);
+ini:=loadTextFile(cfgPath+CFG_FILE);
+if ini > '' then
+  begin
+  saveMode:=SM_FILE;
+  moveLegacyTpl(loadTextFile(cfgPath+TPL_FILE));
+  exit;
+  end;
+ini:=loadregistry(CFG_KEY, '');
+if ini > '' then
+  begin
+  saveMode:=SM_USER;
+  if moveLegacyTpl(loadregistry(CFG_KEY, TPL_FILE)) then
+    deleteRegistry(CFG_KEY, TPL_FILE);
+  exit;
+  end;
+ini:=loadregistry(CFG_KEY, '', HKEY_LOCAL_MACHINE);
+if ini > '' then
+  begin
+  saveMode:=SM_SYSTEM;
+  if moveLegacyTpl(loadregistry(CFG_KEY, TPL_FILE, HKEY_LOCAL_MACHINE)) then
+    deleteRegistry(CFG_KEY, TPL_FILE, HKEY_LOCAL_MACHINE);
+  exit;
+  end;
+result:=FALSE;
+end; // loadCfg
+
+procedure TmainFrm.Viewhttprequest1Click(Sender: TObject);
+var
+  cd: TconnData;
+begin
+cd:=selectedConnection();
+if cd = NIL then exit;
+msgDlg(first([cd.conn.request.full, cd.conn.getBuffer(), '(empty)']));
+end;
+
+procedure TmainFrm.connmenuPopup(Sender: TObject);
+var
+  bs,          // is there any connection selected?
+  ba: boolean; // is there any connection listed and connected?
+  i: integer;
+  cd: TconnData;
+begin
+cd:=selectedConnection();
+bs:=assigned(cd);
+ba:=FALSE;
+for i:=0 to connBox.items.count-1 do
+  if conn2data(i).conn.state <> HCS_DISCONNECTED then
+    begin
+    ba:=TRUE;
+    break;
+    end;
+Viewhttprequest1.enabled:=bs;
+BanIPaddress1.enabled:=bs;
+Kickconnection1.Enabled:=bs and (cd.conn.state <> HCS_DISCONNECTED);
+KickIPaddress1.Enabled:=bs and ba;
+Kickallconnections1.Enabled:=ba;
+Kickidleconnections1.Enabled:=ba;
+pause1.visible:=bs and isDownloading(cd);
+Pause1.Checked:=bs and cd.conn.paused;
+
+trayiconforeachdownload1.visible:=trayfordownloadChk.Checked and fromTray;
+end;
+
+function expandAccountByLink(a:Paccount; noGroups:boolean=TRUE):TstringDynArray;
+var
+  i: integer;
+begin
+result:=NIL;
+if a = NIL then exit;
+
+if not (a.group and noGroups) then
+  addString(a.user, result);
+for i:=0 to length(accounts)-1 do
+  if not stringExists(accounts[i].user, result)
+  and stringExists(a.user, accounts[i].link) then
+    addArray(result, expandAccountByLink(@accounts[i]));
+uniqueStrings(result);
+end; // expandAccountByLink
+
+function expandAccountsByLink(users:TStringDynArray; noGroups:boolean=TRUE):TstringDynArray;
+var
+  i: integer;
+begin
+result:=NIL;
+for i:=0 to length(users)-1 do
+  addArray(result, expandAccountByLink(getAccount(users[i], TRUE)));
+uniqueStrings(result);
+end; // expandAccountsByLink
+
+procedure makeOwnerDrawnMenu(mi:Tmenuitem; included:boolean=FALSE);
+var
+  i: integer;
+begin
+if included then
+  begin
+  mi.onDrawItem:=mainfrm.menuDraw;
+  mi.OnMeasureItem:=mainfrm.menuMeasure;
+  end;
+for i:=0 to mi.count-1 do
+  makeOwnerDrawnMenu(mi.items[i], TRUE);
+end; // makeOwnerDrawnMenu
+
+procedure TmainFrm.filemenuPopup(Sender: TObject);
+const
+  ONLY_ANY = 0;
+  ONLY_EASY = 1;
+  ONLY_EXPERT = 2;
+var
+  anyFileSelected: boolean;
+  i: integer;
+  f: Tfile;
+  a: TStringDynArray;
+
+  function onlySatisfied(only:integer):boolean;
+  begin
+  result:=(only=ONLY_ANY)
+    or (only=ONLY_EASY) and easyMode
+    or (only=ONLY_EXPERT) and not easyMode
+  end; // onlySatisfied
+
+  procedure visibleAs(mi:Tmenuitem; other:Tmenuitem; only:integer=ONLY_ANY);
+  begin mi.visible:=other.visible and onlySatisfied(only) end;
+
+  procedure visibleIf(mi:Tmenuitem; should:boolean; only:integer=ONLY_ANY);
+  begin if should then
+    mi.visible:=TRUE and onlySatisfied(only) end;
+
+  procedure checkedIf(mi:Tmenuitem; should:boolean);
+  begin if should then mi.checked:=TRUE end;
+
+  procedure enabledIf(mi:Tmenuitem; should:boolean);
+  begin if should then mi.enabled:=TRUE end;
+
+  procedure setDefaultValues(mi:TmenuItem);
+  var
+    i: integer;
+  begin
+  for i:=0 to mi.count-1 do
+    begin
+    mi[i].visible:=FALSE;
+    mi[i].enabled:=TRUE;
+    mi[i].checked:=FALSE;
+    end;
+  end; // setDefaultValues
+
+  function itemsVisible(mi:TmenuItem):integer;
+  var
+    i: integer;
+  begin
+  result:=0;
+  for i:=0 to mi.count-1 do
+    if mi.Items[i].visible then
+      inc(result);
+  end; // itemsVisible
+
+begin
+// default values
+setDefaultValues(filemenu.items);
+Addfiles1.visible:=TRUE;
+Addfolder1.visible:=TRUE;
+Properties1.visible:=TRUE;
+
+anyFileSelected:=selectedFile<>NIL;
+newfolder1.visible:=not anyFileSelected
+  or ((filesBox.SelectionCount=1) and selectedFile.isFolder());
+Setuserpass1.visible:=anyFileSelected;
+CopyURL1.visible:=anyFileSelected;
+
+visibleIf(Bindroottorealfolder1, (filesBox.SelectionCount=1) and selectedFile.isRoot() and selectedFile.isVirtualFolder(), ONLY_EXPERT);
+visibleIf(Unbindroot1, (filesBox.SelectionCount=1) and selectedFile.isRoot() and selectedFile.isRealFolder(), ONLY_EXPERT);
+
+for i:=0 to filesBox.SelectionCount-1 do
+  begin
+  f:=filesBox.selections[i].data;
+  visibleIf(setURL1, FA_LINK in f.flags);
+  visibleIf(Remove1, not f.isRoot());
+  visibleIf(Flagasnew1, not f.isNew() and (filesStayFlaggedForMinutes>0));
+  visibleIf(Resetnewflag1, f.isNew() and (filesStayFlaggedForMinutes>0));
+  visibleIf(SwitchToVirtual1, f.isRealFolder() and not f.isRoot(), ONLY_EXPERT);
+  visibleIf(SwitchToRealfolder1, f.isVirtualFolder() and not f.isRoot() and (f.resource > ''), ONLY_EXPERT);
+  visibleIf(Resetuserpass1, f.user>'');
+  visibleIf(CopyURLwithfingerprint1, f.isFile(), ONLY_EXPERT);
+  end;
+visibleAs(newlink1, newfolder1, ONLY_EXPERT);
+visibleIf(purge1, anyFileSelected, ONLY_EXPERT);
+
+if filesBox.SelectionCount = 1 then
+  begin
+  f:=selectedFile;
+  visibleIf(Defaultpointtoaddfiles1, f.isFolder(), ONLY_EXPERT);
+  visibleIf(Editresource1, not (FA_VIRTUAL in f.flags), ONLY_EXPERT);
+  visibleAs(rename1, remove1);
+  visibleIf(openit1, not f.isVirtualFolder());
+  visibleIf(browseIt1, TRUE, ONLY_EXPERT);
+  paste1.visible:=clipboard.HasFormat(CF_HDROP);
+
+  a:=NIL;
+  if anyFileSelected then
+    a:=expandAccountsByLink(selectedFile.getAccountsFor(FA_ACCESS, TRUE));
+  visibleIf(CopyURLwithpassword1, assigned(a), ONLY_EXPERT);
+  copyURLwithpassword1.Clear();
+  for i:=0 to length(a)-1 do
+    copyURLwithpassword1.add( newItem( a[i], 0, FALSE, TRUE, copyURLwithPasswordMenuClick, 0, '') );
+  end;
+
+a:=getPossibleAddresses();
+if length(a) = 1 then a:=NIL;
+visibleIf(CopyURLwithdifferentaddress1, anyFileSelected and assigned(a), ONLY_EXPERT);
+copyURLwithdifferentaddress1.clear();
+for i:=0 to length(a)-1 do
+  copyURLwithdifferentaddress1.add( newItem( a[i], 0, FALSE, TRUE, copyURLwithAddressMenuclick, 0, '') );
+
+end;
+
+function Tmainfrm.saveCFG():boolean;
+
+  procedure proposeUserRegistry();
+  resourcestring
+    MSG = 'Can''t save options there.'
+      +#13'Should I try to save to user registry?';
+  begin
+  if msgDlg(MSG, MB_ICONERROR+MB_YESNO) = IDYES then
+    begin
+    saveMode:=SM_USER;
+    saveCFG();
+    end;
+  end; // proposeUserRegistry
+
+var
+  cfg: string;
+begin
+result:=FALSE;
+if srv = NIL then exit;
+if quitting and (backuppedCfg > '') then
+  cfg:=backuppedCfg
+else
+  cfg:=getCfg();
+case saveMode of
+	SM_FILE:
+  	begin
+    if not saveTextFile(cfgPath+CFG_FILE, cfg) then
+      begin
+      proposeUserRegistry();
+      exit;
+      end;
+    result:=TRUE;
+    end;
+  SM_SYSTEM:
+  	begin
+    deleteFile(cfgPath+CFG_FILE);
+    deleteRegistry(CFG_KEY);
+    if not saveregistry( CFG_KEY, '', cfg, HKEY_LOCAL_MACHINE ) then
+      begin
+      proposeUserRegistry();
+      exit;
+      end;
+    result:=TRUE;
+    end;
+  SM_USER:
+  	begin
+    deleteFile(cfgPath+CFG_FILE);
+    result:=saveregistry(CFG_KEY, '', cfg);
+    end;
+  end;
+if ipsEverConnected.Count >= IPS_THRESHOLD  then
+  saveTextFile(IPS_FILE, ipsEverConnected.text)
+else
+  deleteFile(IPS_FILE);
+
+if result then
+  deleteFile(lastUpdateCheckFN);
+end; // saveCFG
+
+// this method is called by all "save options" ways
+procedure TmainFrm.tofile1Click(Sender: TObject);
+begin
+if sender = tofile1 then saveMode:=SM_FILE
+else if sender = toregistrycurrentuser1 then saveMode:=SM_USER
+else if sender = toregistryallusers1 then saveMode:=SM_SYSTEM
+else exit;
+
+if saveCFG() then
+  msgDlg(MSG_OPTIONS_SAVED);
+end;
+
+procedure TmainFrm.About1Click(Sender: TObject);
+begin msgDlg(format(getRes('copyright'), [VERSION,VERSION_BUILD])) end;
+
+procedure Tmainfrm.purgeConnections();
+var
+  i: integer;
+  data: TconnData;
+begin
+i:=0;
+while i < toDelete.Count do
+  begin
+  data:=toDelete[i];
+  inc(i);
+  if data = NIL then continue;
+  if assigned(data.conn) and data.conn.dontFree then continue;
+  toDelete[i-1]:=NIL;
+  setupDownloadIcon(data);
+  data.lastFile:=NIL; // auto-freeing
+
+  if assigned(data.limiter) then
+    begin
+    srv.limiters.remove(data.limiter);
+    freeAndNIL(data.limiter);
+    end;
+  freeAndNIL(data.conn);
+  try freeAndNIL(data) except end;
+  end;
+toDelete.clear();
+end; // purgeConnections
+
+procedure Tmainfrm.recalculateGraph();
+var
+  i: integer;
+begin
+if (srv = NIL) or quitting then exit;
+// shift samples
+i:=sizeOf(graph.samplesOut)-sizeOf(graph.samplesOut[0]);
+move(graph.samplesOut[0], graph.samplesOut[1], i);
+move(graph.samplesIn[0], graph.samplesIn[1], i);
+// insert new "out" sample
+graph.samplesOut[0]:=srv.bytesSent-graph.lastOut;
+graph.lastOut:=srv.bytesSent;
+// insert new "in" sample
+graph.samplesIn[0]:=srv.bytesReceived-graph.lastIn;
+graph.lastIn:=srv.bytesReceived;
+// increase the max value
+i:=max(graph.samplesOut[0], graph.samplesIn[0]);
+if i > graph.maxV then
+  begin
+  graph.maxV:=i;
+  graph.beforeRecalcMax:=100;
+  end;
+dec(graph.beforeRecalcMax);
+if graph.beforeRecalcMax > 0 then exit;
+// recalculate max value
+graph.maxV:=0;
+with graph do
+  for i:=0 to length(samplesOut)-1 do
+    maxV:=max(maxV, max(samplesOut[i], samplesIn[i]) );
+graph.beforeRecalcMax:=100;
+end; // recalculateGraph
+
+// parse the version-dependant notice
+procedure parseVersionNotice(s:string);
+var
+  l, msg: string;
+begin
+while s > '' do
+  begin
+  l:=trim(chopLine(s));
+  // the line has to start with a @ followed by involved versions
+  if (length(l) < 2) or (l[1] <> '@') then continue;
+  delete(l,1,1);
+  // collect the message (until next @-starting line)
+  msg:='';
+  while (s > '') and (s[1] <> '@') do
+    msg:=msg+chopLine(s)+#13;
+  // before 2.0 beta14 a bare semicolon-separated string comparison was used
+  if filematch(l, VERSION) or filematch(l, '#'+VERSION_BUILD) then
+    msgDlg(msg, MB_ICONWARNING);
+  end;
+end; // parseVersionNotice
+
+function doTheUpdate(url:string):boolean;
+resourcestring
+  MSG_SAVE_ERROR = 'Cannot save the update';
+  MSG_LIMITED = 'The auto-update feature cannot work because it requires the "Only 1 instance" option enabled.'
+    +#13#13'Your browser will now be pointed to the update, so you can install it manually.';
+const
+  UPDATE_BATCH_FILE = 'hfs.update.bat';
+  UPDATE_BATCH = 'START %0:s /WAIT "%1:s" -q'+CRLF
+    +'ping 127.0.0.1 -n 3 -w 1000> nul'+CRLF
+    +'DEL "%3:s'+PREVIOUS_VERSION+'"'+CRLF
+    +'%2:sMOVE "%1:s" "%3:s'+PREVIOUS_VERSION+'"'+CRLF
+    +'DEL "%1:s"'+CRLF
+    +'MOVE "%4:s" "%1:s"'+CRLF
+    +'START %0:s "%1:s"'+CRLF
+    +'DEL %%0'+CRLF;
+var
+  size: integer;
+  fn: string;
+begin
+result:=FALSE;
+if not mono.working then
+  begin
+  msgDlg(MSG_LIMITED, MB_ICONWARNING);
+  openURL(url);
+  exit;
+  end;
+if mainfrm.delayUpdateChk.checked
+and (srv.conns.count > 0) then
+  begin
+  updateASAP:=url;
+  stopServer();
+  mainfrm.kickidleconnections1Click(NIL);
+  mainfrm.setStatusBarText('Waiting for last requests to be served, then we''ll update', 20);
+  exit;
+  end;
+// must ask BEFORE: when the batch will be running, nothing should stop it, or it will fail
+if not checkVfsOnQuit() then exit;
+VFSmodified:=FALSE;
+
+progFrm.show('Downloading new version...', TRUE);
+try
+  fn:=paramStr(0)+'.new';
+  size:=sizeOfFile(fn);
+  // a previous failed update attempt? avoid re-downloading if not necessary
+  if (size <= 0) or (httpFileSize(url) <> size) then
+    try
+      if not httpGetFile(url, fn, 2, mainfrm.progFrmHttpGetUpdate) then
+        begin
+        if not lockTimerevent then
+          msgDlg(MSG_COMM_ERROR, MB_ICONERROR);
+        exit;
+        end;
+    except
+      if not lockTimerevent then
+        msgDlg(MSG_SAVE_ERROR, MB_ICONERROR);
+      exit;
+      end;
+finally progFrm.hide() end;
+if progFrm.cancelRequested then
+  begin
+  deleteFile(fn);
+  exit;
+  end;
+
+try
+  progFrm.show('Processing...');
+  saveTextFile(UPDATE_BATCH_FILE, format(UPDATE_BATCH, [
+    if_(isNT(), '""'),
+    paramStr(0),
+    if_(not mainfrm.keepBakUpdatingChk.checked,'REM '),
+    exePath,
+    fn
+  ]));
+  execNew(UPDATE_BATCH_FILE);
+  result:=TRUE;
+finally progFrm.hide() end;
+end; // doTheUpdate
+
+function promptForUpdating(url:string):boolean;
+resourcestring
+  MSG_UPDATE = 'You are invited to use the new version.'#13#13'Update now?';
+begin
+result:=FALSE;
+if url = '' then exit;
+if not mainfrm.updateAutomaticallyChk.checked
+and (msgDlg(MSG_UPDATE, MB_YESNO) = IDNO) then
+  exit;
+doTheUpdate(url);
+result:=TRUE;
+end; // promptForUpdating
+
+function downloadUpdateInfo():Ttpl;
+const
+  URL = 'http://www.rejetto.com/hfs/hfs.updateinfo.txt';
+  ON_DISK = 'hfs.updateinfo.txt';
+resourcestring
+  MSG_FROMDISK = 'Update info has been read from local file.'
+    +#13'To resume normal operation of the updater, delete the file '
+      +ON_DISK+' from the HFS program folder.';
+var
+  s: string;
+begin
+lastUpdateCheck:=now();
+saveTextFile(lastUpdateCheckFN, '');
+fileSetAttr(lastUpdateCheckFN, faHidden);
+
+result:=NIL;
+progFrm.show('Requesting...');
+try
+  // this let the developer to test the parsing locally
+  if not fileExists(ON_DISK) then
+    try s:=httpGet(URL)
+    except end
+  else
+    begin
+    s:=loadTextFile(ON_DISK);
+    msgDlg(MSG_FROMDISK, MB_ICONWARNING);
+    end;
+finally progFrm.hide() end;
+if pos('[EOF]', s) = 0 then exit;
+result:=Ttpl.create();
+result.fullText:=s;
+end; // downloadUpdateInfo
+
+procedure Tmainfrm.autoCheckUpdates();
+var
+  info: Ttpl;
+  updateURL, ver, build: string;
+
+  function thereSnew(kind:string):boolean;
+  var
+    s: string;
+  begin
+  s:=trim(info['last '+kind+' build']);
+  result:=(s > VERSION_BUILD) and (s <> refusedUpdate);
+  if not result then exit;
+  build:=s;
+  updateURL:=trim(info['last '+kind+' url']);
+  ver:=trim(info['last '+kind]);
+  end;
+
+begin
+if (VERSION_STABLE and (now()-lastUpdateCheck < 1))
+or (now()-lastUpdateCheck < 1/3) then exit;
+setStatusBarText('Checking for updates');
+try
+  info:=downloadUpdateInfo();
+  if info = NIL then
+    begin
+    if logOtherEventsChk.checked then add2log('Check update: failed');
+    setStatusBarText('Check update: failed');
+    exit;
+    end;
+  if not thereSnew('stable')
+  and (not VERSION_STABLE or testerUpdatesChk.checked) then
+    thereSnew('untested');
+  // same version? we show build number
+  if ver = VERSION then
+    ver:=format('Build #%s (current is #%s)', [build, VERSION_BUILD]);
+  if logOtherEventsChk.checked then
+    add2log('Check update: '+ifThen(updateURL = '', 'no new version', 'new version found: '+ver));
+  parseVersionNotice(info['version notice']);
+  setStatusBarText('');
+  if updateURL = '' then exit;
+  if updateAutomaticallyChk.checked
+  and doTheUpdate(updateURL) then exit;
+  // notify the user gently
+  updateBtn.show();
+  updateWaiting:=updateURL;
+  flash();
+finally freeAndNIL(info) end;
+end; // autoCheckUpdates
+
+procedure loadEvents();
+begin eventScripts.fullText:=loadTextFile(cfgpath+EVENTSCRIPTS_FILE) end;
+
+procedure Tmainfrm.updateCopyBtn();
+resourcestring
+  COPY = 'Copy to clipboard';
+  ALREADY = 'Already in clipboard';
+var
+  s: string;
+begin
+s:=copyBtn.caption;
+try
+  copyBtn.Caption:=if_(clipboard.asText = urlBox.text, ALREADY, COPY);
+  if copyBtn.caption <> s then FormResize(NIL);
+except end;
+end; // updateCopyBtn
+
+var
+  timedEventsRE: TRegExpr;
+  eventsLastRun: TstringToIntHash;
+
+procedure runTimedEvents();
+var
+  i: integer;
+  sections: TStringDynArray;
+  re: TRegExpr;
+  t, last: Tdatetime;
+  section: string;
+
+  procedure handleAtCase();
+  begin
+  t:=now();
+  // we must convert the format, because our structure stores integers
+  last:=unixToDatetime(eventsLastRun.getInt(section));
+  if (strToInt(re.match[9]) = hourOf(t))
+  and (strtoInt(re.match[10]) = minuteOf(t))
+  and (t-last > 0.9) then // approximately 1 day should have been passed
+    begin
+    eventsLastRun.setInt(section, datetimeToUnix(t));
+    runEventScript(section);
+    end;
+  end; // handleAtCase
+
+  procedure handleEveryCase();
+  begin
+  // get the XX:YY:ZZ
+  t:=strToFloat(re.match[2]);
+  if re.match[4] > '' then
+    t:=t*60+strToInt(re.match[4]);
+  if re.match[6] > '' then
+    t:=t*60+strToInt(re.match[6]);
+  // apply optional time unit
+  case upcase(getFirstChar(re.match[7])) of
+    'M': t:=t*60;
+    'H': t:=t*60*60;
+    end;
+  // now "t" is in seconds
+  if (t > 0) and ((clock div 10) mod round(t) = 0) then
+    runEventScript(section);
+  end; // handleEveryCase
+
+begin
+if timedEventsRE = NIL then
+  begin
+  timedEventsRE:=TRegExpr.create; // yes, i know, this is never freed, but we need it for the whole time
+  timedEventsRE.expression:='(every +([0-9.]+)(:(\d+)(:(\d+))?)? *([a-z]*))|(at (\d+):(\d+))';
+  timedEventsRE.modifierI:=TRUE;
+  timedEventsRE.compile();
+  end;
+
+if eventsLastRun = NIL then
+  eventsLastRun:=TstringToIntHash.create; // yes, i know, this is never freed, but we need it for the whole time
+
+re:=timedEventsRE; // a shortcut
+sections:=eventScripts.getSections();
+for i:=0 to length(sections)-1 do
+  begin
+  section:=sections[i]; // a shortcut
+  if not re.exec(section) then continue;
+
+  try
+    if re.match[1] > '' then handleEveryCase()
+    else handleAtCase();
+  except end; // ignore exceptions
+  end;
+end; // runTimedEvents
+
+procedure TmainFrm.timerEvent(Sender: TObject);
+var
+  now_: Tdatetime;
+
+  function itsTimeFor(var t:Tdatetime):boolean;
+  begin
+  result:=(t > 0) and (t < now_);
+  if result then t:=0;
+  end; // itsTimeFor
+
+  procedure calculateETA(data:TconnData; current:real; leftOver:int64);
+  var
+    i, n: integer;
+  begin
+  data.eta.data[data.eta.idx mod ETA_FRAME]:=current;
+  inc(data.eta.idx);
+
+  data.averageSpeed:=0;
+  n:=min(data.eta.idx, ETA_FRAME);
+  for i:=0 to n-1 do
+    data.averageSpeed:=data.averageSpeed+data.eta.data[i];
+  data.averageSpeed:=data.averageSpeed/n;
+
+  if data.averageSpeed > 0 then
+    data.eta.result:=(leftOver/data.averageSpeed)/SECONDS;
+  end; // calculateETA
+
+  procedure every10minutes();
+  begin
+  if dyndns.url > '' then
+    getExternalAddress(externalIP);
+  end; // every10minutes
+
+  procedure everyMinute();
+  begin
+  if updateDailyChk.Checked then
+    autoCheckUpdates();
+  // purge icons older than 5 minutes, because sometimes icons change
+  iconsCache.purge(now_-(5*60)/SECONDS);
+  end; // everyMinute
+
+  procedure every10sec();
+  var
+    s: string;
+    ss: Tstrings;
+  begin
+  if not stringExists(defaultIP, getPossibleAddresses()) then
+    // previous address not available anymore (it happens using dial-up)
+    findSimilarIP(defaultIP);
+    
+  if searchbetteripChk.checked
+  and not stringExists(defaultIP, customIPs) // we don't mess with custom IPs
+  and isLocalIP(defaultIP) then // we prefer non-local addresses
+    begin
+    s:=getIP();
+    if not isLocalIP(s) then // clearly better
+      setDefaultIP(s)
+    else if ansiStartsStr('169', defaultIP) then // we consider the 169 worst of other locals
+      begin
+      ss:=LocalIPList();
+      if ss.count > 1 then
+        setDefaultIP(ss[ if_(ss[0]=defaultIP, 1, 0) ]);
+      end;;
+    end;
+
+  end; // every10sec
+
+  procedure everySec();
+  var
+    i, outside, size: integer;
+    data: TconnData;
+  begin
+  // this is a already done in utilLib initialization, but it's a workaround to http://www.rejetto.com/forum/?topic=7724
+  FormatSettings.decimalSeparator:='.';
+  // check if the window is outside the visible screen area
+  outside:=left;
+  if assigned(monitor) then  // checking here because the following line once thrown this AV http://www.rejetto.com/forum/?topic=5568
+    for i:=0 to monitor.MonitorNum do
+      dec(outside, screen.monitors[i].width);
+  if (outside > 0)
+  or (boundsRect.bottom < 0)
+  or (boundsRect.right < 0) then
+    makeFullyVisible();
+
+
+  if dyndns.active and (dyndns.url > '') then
+    begin
+    if externalIP = '' then
+      getExternalAddress(externalIP);
+    if not isLocalIP(externalIP) and (externalIP <> dyndns.lastIP)
+    or (now()-dyndns.lastTime > 24) then
+      updateDynDNS();
+    // the action above takes some time, and it can happen we asked to quit in the meantime
+    if quitting then exit;
+    end;
+
+  // the alt+click shortcut to get file properties will result in an unwanted editing request if the file is already selected. This is a workaround.
+  if filesBox.isEditing and assigned(filepropFrm) then
+    selectedFile.node.EndEdit(TRUE);
+
+  updateTrayTip();
+
+  if warnManyItems and (filesBox.items.count > MANY_ITEMS_THRESHOLD) then
+    begin
+    warnManyItems:=FALSE;
+    msgDlg(MSG_MANY_ITEMS, MB_ICONWARNING);
+    end;
+
+  with autosaveVFS do // we do it only if the filename is already specified
+    if (every > 0) and (lastFileOpen > '') and not loadingVFS.disableAutosave
+    and ((now_-last)*SECONDS >= every) then
+      begin
+      last:=now_;
+      saveVFS(lastFileOpen);
+      end;
+
+  if assigned(srv) and assigned(srv.conns) then
+    for i:=0 to srv.conns.count-1 do
+      begin
+      data:=conn2data(i);
+      if data = NIL then continue;
+
+      if isReceivingFile(data) then
+        begin
+        refreshConn(data); // even if no data is coming, we must update other stats
+        calculateETA(data, data.conn.speedIn, data.conn.bytesToPost);
+        end;
+      if isSendingFile(data) then
+        begin
+        refreshConn(data);
+        calculateETA(data, data.conn.speedOut, data.conn.bytesToSend);
+
+        if userIcsBuffer > 0 then
+          data.conn.sock.bufSize:=userIcsBuffer;
+
+        size:=minmax(8192, MEGA, round(data.averageSpeed));
+        if userSocketBuffer > 0 then
+          data.conn.sndBuf:=userSocketBuffer
+        else if highSpeedChk.checked and (safeDiv(0.0+size, data.conn.sndbuf, 2) > 2) then
+            data.conn.sndBuf:=size;
+        end;
+
+      // connection inactivity timeout
+      if (connectionsInactivityTimeout > 0)
+      and ((now_-data.lastActivityTime)*SECONDS >= connectionsInactivityTimeout) then
+        data.disconnect('inactivity');
+      end;
+
+  // server inactivity timeout
+  if noDownloadTimeout > 0 then
+    if (now_-lastActivityTime)*SECONDS > noDownloadTimeout*60 then
+      quitASAP:=TRUE;
+
+  if windowState = wsNormal then
+    lastWindowRect:=mainfrm.boundsRect;
+
+  // update can be put off until there's no one connected
+  if (updateASAP > '') and (srv.conns.count = 0) then
+    doTheUpdate(clearAndReturn(updateASAP)); // before we call the function, lets clear the request
+
+  updateCopyBtn();
+  keepTplUpdated();
+  updateCurrentCFG();
+
+  if newMtime(cfgpath+EVENTSCRIPTS_FILE, eventScriptsLast) then
+    loadEvents();
+
+  if assigned(runScriptFrm) and runScriptFrm.visible
+  and runScriptFrm.autorunChk.checked and newMtime(tempScriptFilename, runScriptLast) then
+    runScriptFrm.runBtnClick(NIL);
+
+  runTimedEvents();
+  end; // everySec
+
+  procedure everyTenth();
+  var
+    f: Tfile;
+    n: Ttreenode;
+  begin
+  purgeConnections();
+
+  // see the filesBoxEditing event for an explanation of the following lines
+  if not filesBox.IsEditing and (remove1.ShortCut = 0) then
+    begin
+    remove1.ShortCut:=TextToShortCut('Del');
+    Paste1.ShortCut:=TextToShortCut('Ctrl+V');
+    end;
+
+  with optionsFrm do
+    if active and iconsPage.visible then
+      updateIconMap();
+
+  if scrollFilesBox in [SB_LINEUP,SB_LINEDOWN] then
+    postMessage(filesBox.Handle, WM_VSCROLL, scrollFilesBox, 0);
+
+  if assigned(filesToAddQ) then
+    begin
+    f:=findFilebyURL(addToFolder);
+    if f = NIL then
+      f:=selectedFile;
+    if f = NIL then
+      n:=NIL
+    else
+      n:=f.node;
+    addFilesFromString(join(CRLF, filesToAddQ), n);
+    filesToAddQ:=NIL;
+    end;
+
+  if itsTimeFor(searchLogTime) then
+    if searchLog(0) then logSearchBox.Color:=clWindow
+    else
+      begin
+      logSearchBox.Color:=BG_ERROR;
+      searchLogWhiteTime:=now_+5/SECONDS;
+      end;
+  if itsTimeFor(searchLogWhiteTime) then
+    logSearchBox.Color:=clWindow;
+
+  end; // everyTenth
+
+  function every(tenths:integer):boolean;
+  begin result:=not quitting and (clock mod tenths = 0) end;
+
+var
+  bak: boolean;
+begin
+if quitASAP and not quitting and not queryingClose then
+  begin
+  { close is not effective when lockTimerevent is TRUE, so we force it TRUE.
+  { it should not be necessary, but we want to be sure to quit even with bugs. }
+  bak:=lockTimerevent;
+  lockTimerevent:=FALSE;
+  application.MainForm.Close();
+  lockTimerevent:=bak;
+  end; // quit
+if not timer.enabled or quitting or lockTimerevent then exit;
+lockTimerevent:=TRUE;
+try
+  // idk how it can be, but sometimes this now() call causes an AV http://www.rejetto.com/forum/index.php?topic=6371.msg1038634#msg1038634
+  try now_:=now()
+  except now_:=0 end;
+  if now_ = 0 then exit;
+
+  inc(clock);
+  if every(1) then everyTenth();
+  if every(10*60*10) then every10minutes();
+  if every(60*10) then everyMinute();
+  if every(10*10) then every10sec();
+  if every(10) then everySec();
+  if every(STATUSBAR_REFRESH) then
+    updateSbar();
+  if every(graph.rate) then
+    begin
+    recalculateGraph();
+    graphBoxPaint(NIL);
+    end;
+finally lockTimerevent:=FALSE end;
+end; // timerEvent
+
+procedure Tmainfrm.updateSbar();
+var
+  pn: integer;
+
+  function addPanel(s:string; al:TAlignment=taCenter):integer;
+  begin
+  result:=pn;
+  inc(pn);
+  if sbar.Panels.count < pn then sbar.Panels.Add();
+  with sbar.panels[pn-1] do
+    begin
+    alignment:=al;
+    Text:=s;
+    width:=sbar.Canvas.TextWidth(s)+20;
+    end;
+  end; // addPanel
+
+  procedure checkDiskSpace();
+  resourcestring
+    NOSPACE = 'Out of space';
+  type
+    Tdrive = 1..26;
+  var
+    i: integer;
+    drives: set of Tdrive;
+    driveLetters: TStringDynArray;
+    driveLetter: char;
+  begin
+  if minDiskSpace <= 0 then exit;
+  drives:=[];
+  i:=0;
+  while i < length(uploadPaths) do
+    begin
+    include(drives, filenameToDriveByte(uploadPaths[i]));
+    inc(i);
+    end;
+  driveLetters:=NIL;
+  for i:=low(Tdrive) to high(Tdrive) do
+    if i in drives then
+      begin
+      driveLetter:=chr(i+ord('A')-1);
+      if not sysutils.directoryExists(driveLetter+':\') then continue;
+      if diskfree(i) div MEGA <= minDiskSpace then
+        addString(driveLetter, driveLetters);
+      end;
+  if driveLetters = NIL then exit;
+  sbarIdxs.oos:=addPanel( NOSPACE+': '+join(',', driveLetters));
+  end; // checkDiskSpace
+
+  function getConnectionsString():string;
+  resourcestring
+    CONN = 'Connections: %d';
+  var
+    i: integer;
+  begin
+  result:=format(CONN, [srv.conns.Count]);
+  if easyMode then exit;
+  i:=countIPs();
+  if i < srv.conns.count then result:=result+' / '+intToStr(i);
+  end;
+
+resourcestring
+  TOT_IN = 'Total In: %s';
+  TOT_OUT = 'Total Out: %s';
+  OUT_SPEED = 'Out: %.1f KB/s';
+  IN_SPEED = 'In: %.1f KB/s';
+  BANS = 'Ban rules: %d';
+  MEMORY = 'Mem';
+  CUSTOMIZED = 'Customized template';
+  ITEMS = 'VFS: %d items';
+var
+  tempText: string;
+begin
+if quitting then exit;
+fillChar(sbarIdxs, sizeof(sbarIdxs), -1);
+if sbarTextTimeout < now() then tempText:=''
+else tempText:=sbar.Panels[sbar.Panels.Count-1].text;
+pn:=0;
+if not easyMode then
+  addPanel( getConnectionsString() );
+sbarIdxs.out:=addPanel( format(OUT_SPEED,[srv.speedOut/1000]) );
+addPanel( format(IN_SPEED,[srv.speedIn/1000]) );
+if not easyMode then
+  begin
+  sbarIdxs.totalOut:=addPanel( format(TOT_OUT,[
+    smartSize(outTotalOfs+srv.bytesSent)]) );
+  sbarIdxs.totalIn:=addPanel( format(TOT_IN,[
+    smartSize(inTotalOfs+srv.bytesReceived)]) );
+  sbarIdxs.notSaved:=addPanel( format(ITEMS,[filesBox.items.count-1])
+    +if_(VFSmodified,' - not saved') );
+  if not vFsmodified then sbarIdxs.notSaved:=-1;
+  end;
+checkDiskSpace();
+
+if showMemUsageChk.checked then
+  addPanel(MEMORY+': '+dotted(allocatedMemory()));
+
+if assigned(banlist) then
+  sbarIdxs.banStatus:=addPanel(format(BANS, [length(banlist)]));
+
+if tplIsCustomized then sbarIdxs.customTpl:=addPanel(CUSTOMIZED);
+
+// if tempText empty, ensures a final panel terminator
+addPanel(tempText, taLeftJustify);
+
+// delete excess panels
+while sbar.Panels.count > pn do sbar.Panels.delete(pn);
+end; // updateSbar
+
+procedure Tmainfrm.refreshIPlist();
+CONST
+  INDEX_FOR_URL = 2;
+  INDEX_FOR_NIC = 1;
+var
+  a: TStringDynArray;
+  i: integer;
+begin
+while IPaddress1.Items[INDEX_FOR_URL].Caption <> '-' do
+  IPaddress1.delete(INDEX_FOR_URL);
+// fill 'IP address' menu
+a:=getPossibleAddresses();
+for i:=0 to length(a)-1 do
+  mainfrm.IPaddress1.Insert(INDEX_FOR_URL,
+    newItem(a[i], 0, a[i]=defaultIP, TRUE, ipmenuclick, 0, '') );
+
+// fill 'Accept connections on' menu
+while Acceptconnectionson1.count > INDEX_FOR_NIC  do
+  Acceptconnectionson1.delete(INDEX_FOR_NIC);
+Anyaddress1.checked:= listenOn = '';
+a:=listToArray(localIPlist);
+addUniqueString('127.0.0.1', a);
+for i:=0 to length(a)-1 do
+  Acceptconnectionson1.Insert(INDEX_FOR_NIC,
+    newItem( a[i], 0, a[i]=listenOn, TRUE, acceptOnMenuclick, 0, '') );
+end; // refreshIPlist
+
+procedure TmainFrm.filesBoxDblClick(Sender: TObject);
+begin
+if assigned(selectedFile) then setClip(selectedFile.fullURL());
+updateUrlBox();
+end;
+
+function setBrowsable(f:Tfile; childrenDone:boolean; par, par2:integer):TfileCallbackReturn;
+begin
+if not f.isFolder() then exit;
+if (FA_BROWSABLE in f.flags) = boolean(par) then VFSmodified:=TRUE
+else exit;
+if boolean(par) then exclude(f.flags, FA_BROWSABLE)
+else include(f.flags, FA_BROWSABLE);
+end; // setBrowsable
+
+procedure fileMenuSetFlag(sender:Tobject; flagToSet:TfileAttribute; filter:TfilterMethod=NIL; negateFilter:boolean=FALSE; recursive:boolean=FALSE; f:Tfile=NIL);
+// parameter "f" is designed to be set only inside this function
+var
+  newState: boolean;
+
+  procedure applyTo(f:Tfile);
+  var
+    n: TtreeNode;
+  begin
+  n:=f.node.getFirstChild();
+  while assigned(n) do
+    begin
+    if assigned(n.data) then fileMenuSetFlag(sender, flagToSet, filter, negateFilter, TRUE, n.data);
+    n:=n.getNextSibling();
+    end;
+
+  if assigned(filter) and (negateFilter = filter(f)) then exit;
+  if (flagToSet in f.flags) = newState then exit;
+  VFSmodified:=TRUE;
+  if newState then include(f.flags, flagToSet)
+  else exclude(f.flags, flagToSet);
+  end; // applyTo
+
+var
+  i: integer;
+begin
+if (f = NIL) and (selectedFile = NIL) then exit;
+newState:=not (sender as TmenuItem).checked;
+if assigned(f) then applyTo(f)
+else
+  begin
+  for i:=0 to mainFrm.filesBox.SelectionCount-1 do
+    applyTo(mainFrm.filesBox.Selections[i].data);
+  mainFrm.filesBox.Repaint();
+  end;
+end;
+
+procedure TmainFrm.HideClick(Sender: TObject);
+begin
+graphBox.Hide();
+graphSplitter.Hide();
+end;
+
+procedure TmainFrm.filesBoxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin filesBox.Selected:=filesbox.GetNodeAt(x,y) end;
+
+procedure setFilesBoxExtras(v:boolean);
+begin
+{ let disable this silly feature for now
+if winVersion <> WV_VISTA then exit;
+with mainfrm.filesBox do
+  begin
+  if isEditing then exit;
+  ShowButtons:=v;
+  ShowLines:=v;
+  end;}
+end; // setFilesBoxExtras
+
+procedure TmainFrm.filesBoxMouseEnter(Sender: TObject);
+begin
+with filesBox do setFilesBoxExtras(TRUE);
+end;
+
+procedure TmainFrm.filesBoxMouseLeave(Sender: TObject);
+begin
+with filesBox do setFilesBoxExtras(focused);
+end;
+
+procedure TmainFrm.filesBoxMouseUp(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
+begin
+if (shift = [ssAlt]) and (button = mbLeft) then
+  Properties1.click();
+end;
+
+procedure TmainFrm.filesBoxCompare(Sender: TObject; Node1, Node2: TTreeNode; Data: Integer; var Compare: Integer);
+var
+  f1, f2: Tfile;
+begin
+f1:=Tfile(node1.data);
+f2:=Tfile(node2.data);
+if (f1 = NIL) or (f2 = NIL) then exit;
+if not foldersbeforeChk.checked or (f1.isFolder() = f2.isFolder()) then
+  compare:=ansiCompareText(f1.name, f2.name)
+else
+  if f1.isFolder() then compare:=-1
+  else compare:=+1;
+end;
+
+procedure TmainFrm.foldersbeforeChkClick(Sender: TObject);
+begin rootNode.AlphaSort(TRUE) end;
+
+procedure browse(url:string);
+begin
+if mainfrm.browseUsingLocalhostChk.Checked then
+  begin
+  chop('//',url);
+  chop('/',url);
+  url:='http://localhost:'+srv.port+'/'+url;
+  end;
+openURL(url);
+end; // browse
+
+procedure TmainFrm.Browseit1Click(Sender: TObject);
+begin
+if selectedFile = NIL then exit;
+if selectedFile.isLink() then openURL(selectedfile.url())
+else browse(selectedfile.fullurl())
+end;
+
+procedure TmainFrm.Openit1Click(Sender: TObject);
+begin
+if selectedFile = NIL then exit;
+exec('"'+selectedfile.resource+'"')
+end;
+
+procedure TmainFrm.openLogBtnClick(Sender: TObject);
+var
+  mask, fn: string;
+  s: TfastStringAppend;
+  i: integer;
+begin
+mask:=logSearchBox.text;
+s:=TfastStringAppend.create;
+try
+  if sender = openLogBtn then s.append(logBox.text)
+  else
+    for i:=0 to logBox.Lines.Count-1 do
+      if filematch('*'+mask+'*', logbox.lines[i]) then
+        s.append(logBox.lines[i]+CRLF);
+  if s.length() = 0 then
+    begin
+    msgDlg('It''s empty', MB_ICONWARNING);
+    exit;
+    end;
+  fn:=saveTempFile(s.get());
+finally s.free end;
+if renameFile(fn, fn+'.txt') then exec(fn+'.txt')
+else msgDlg(MSG_NO_TEMP, MB_ICONERROR);
+end;
+
+procedure Tmainfrm.ipmenuclick(sender:Tobject);
+var
+  ip: string;
+begin
+ip:=(sender as Tmenuitem).caption;
+delete(ip, pos('&',ip), 1);
+setDefaultIP(ip);
+searchbetteripChk.checked:=FALSE;
+setClip(urlBox.text);
+end; // ipmenuclick
+
+// returns the last file added
+function Tmainfrm.addFilesFromString(files:string; under:Ttreenode=NIL):Tfile;
+var
+  folderKindFrm: TfolderKindFrm;
+
+  function selectFolderKind():integer;
+  begin
+  application.restore();
+  application.BringToFront();
+  Application.CreateForm(TfolderKindFrm, folderKindFrm);
+  result:=folderKindFrm.ShowModal();
+  folderKindFrm.Free;
+  end; // selectFolderKind
+
+resourcestring
+  MSG1 = '%s item(s) already exists:'#13'%s'#13#13'Continue?';
+const
+  MAX_DUPE = 50;
+var
+  f: Tfile;
+  kind, s, fn: string;
+  doubles: TStringDynArray;
+  res: integer;
+  upload, skipComment: boolean;
+begin
+result:=NIL;
+if files = '' then exit;
+upload:=FALSE;
+if singleLine(files) then
+  begin
+  files:=trim(files); // this let me treat 'files' as a simple filename, not caring of the trailing CRLF
+
+  // suggest template installation
+  if (lowerCase(extractFileExt(files)) = '.tpl')
+  and (msgDlg('Install this template?', MB_YESNO) = MRYES) then
+    begin
+    setNewTplFile(files);
+    exit;
+    end;
+
+  upload:=(ipos('upload', extractFilename(files)) > 0)
+    and (msgDlg('Do you want ANYONE to be able to upload to this folder?', MB_YESNO) = MRYES);
+  end;
+// warn upon double filenames
+doubles:=NIL;
+s:=files;
+while s > '' do
+	begin
+  fn:=chopLine(s);
+  // we must resolve links here, or we may miss duplicates
+	if isExtension(fn, '.lnk') or fileExists(fn+'\target.lnk') then  // mod by mars
+    fn:=resolveLnk(fn);
+
+  if (length(fn) = 3) and (fn[2] = ':') then fn:=fn[1]+fn[2] // unit root folder
+	else fn:=ExtractFileName(fn);
+  if existsNodeWithName(fn, under) then
+    if addString(fn, doubles) > MAX_DUPE then
+      break;
+  end;
+if assigned(doubles) then
+  begin
+  filesBox.Repaint();
+  res:=length(doubles);
+  s:=if_(res > MAX_DUPE, intToStr(MAX_DUPE)+'+', intToStr(res));
+  s:=format(MSG1, [s, join(', ',doubles)]);
+  if msgDlg(s, MB_ICONWARNING+MB_YESNO) <> IDYES then exit;
+  end;
+
+f:=NIL;
+skipComment:=not singleLine(files);
+kind:=if_(upload, 'real', addFolderDefault);
+addingItemsCounter:=0;
+try
+	repeat
+  fn:=chopLine(files);
+  if fn = '' then continue;
+  f:=Tfile.create(fn);
+  if f.isFolder() then
+    begin
+    if kind = '' then
+      begin // we didn't decide if real or virtual yet
+      res:=selectFolderKind();
+
+      if isAbortResult(res) then
+        begin
+        f.free;
+        exit;
+        end;
+      kind:=if_(res = mrYes, 'virtual', 'real');
+      end;
+
+    if kind = 'virtual' then                                             
+      include(f.flags, FA_VIRTUAL);
+    end;
+
+  f.lock();
+  try
+    f.name:=getUniqueNodeName(f.name, under);
+    addFile(f, under, skipComment);
+  finally
+    f.unlock();
+    end;
+
+  until (files = '') or stopAddingItems;
+finally addingItemsCounter:=-1 end;
+
+if upload then
+  begin
+  addUniqueString(USER_ANYONE, f.accounts[FA_UPLOAD]);
+  sortArray(f.accounts[FA_UPLOAD]);
+  end;
+if assigned(f) and autocopyURLonadditionChk.checked then
+  setClip(f.fullURL());
+result:=f;
+end; // addFilesFromString
+
+procedure Tmainfrm.addDropFiles(hnd:Thandle; under:Ttreenode);
+var
+  i, n: integer;
+  buffer: array [0..2000] of char;
+  files: string;
+begin
+if hnd = 0 then exit;
+GlobalLock(hnd);
+n:=DragQueryFile(hnd,cardinal(-1),NIL,0);
+files:='';
+buffer:='';
+for i:=0 to n-1 do
+  begin
+  DragQueryFile(hnd,i,@buffer,sizeof(buffer));
+  files:=files+buffer+CRLF;
+  end;
+//DragFinish(hnd);  // this call seems to cause instability, don't know why
+GlobalUnlock(hnd);
+
+addFilesFromString(files, under);
+end; // addDropFiles
+
+procedure Tmainfrm.WMDropFiles(var msg:TWMDropFiles);
+begin
+with filesbox.screenToClient(mouse.cursorPos) do
+  addDropFiles(msg.Drop, filesbox.getNodeAt(x,y));
+inherited;
+end; // WMDropFiles
+
+procedure Tmainfrm.WMQueryEndSession(var msg:TWMQueryEndSession);
+begin
+windowsShuttingDown:=TRUE;
+quitting:=TRUE; // in hard times, formClose() is not called (or not soon enough)
+quitASAP:=TRUE;
+msg.Result:=1;
+close();
+inherited;
+end; // WMQueryEndSession
+
+procedure Tmainfrm.WMEndSession(var msg:TWMEndSession);
+begin
+if msg.EndSession then
+  begin
+  windowsShuttingDown:=TRUE;
+  quitting:=TRUE;
+  quitASAP:=TRUE;
+  close();
+  end;
+inherited;
+end; // WMEndSession
+
+procedure TmainFrm.WMNCLButtonDown(var msg:TWMNCLButtonDown);
+begin
+if (msg.hitTest = windows.HTCLOSE) and trayInsteadOfQuitChk.checked then
+  begin
+  msg.hitTest:=windows.HTCAPTION; // cancel closing
+  minimizeToTray();
+  end;
+inherited;
+end;
+
+procedure TmainFrm.splitVMoved(Sender: TObject);
+begin
+if logBox.width > 0 then lastGoodLogWidth:=logBox.width;
+filesBoxRatio:=filesPnl.Width/ClientWidth
+end;
+
+procedure TmainFrm.appEventsShowHint(var HintStr: String; var CanShow: Boolean; var HintInfo: THintInfo);
+
+  function reduce(s:string):string;
+  begin
+  result:=xtpl(s, [ #13,' ', #10,'' ]);
+  if length(result) > 30 then
+    begin
+    setlength(result, 29);
+    result:=result+'...';
+    end;
+  end; // reduce
+
+  function fileHint():string;
+  const
+    INHERITED_LABEL = ' [inherited]';
+    EXTERNAL_LABEL = ' [external]';
+  var
+    f, parent: Tfile;
+    s, s2: string;
+    inheritd, externl: boolean;
+
+    function flag(lbl:string; att:TfileAttribute; positive:boolean=TRUE):string;
+    begin result:=if_((att in f.flags) = positive, #13+lbl) end;
+
+    function flagR(lbl:string; att:TfileAttribute; positive:boolean=TRUE):string;
+    var
+      inh: boolean;
+    begin
+    result:=if_(f.hasRecursive(att, @inh), #13+lbl);
+    result:=result+if_(inh, INHERITED_LABEL);
+    end; // flagR
+
+    procedure perm(action:TfileAction; msg:string);
+    var
+      s: string;
+    begin
+    s:=join(', ', f.getAccountsFor(action, TRUE, @inheritd));
+    if (s > '') and inheritd then s:=s+INHERITED_LABEL;
+    if s > '' then result:=result+#13+msg+': '+s;
+    end;
+
+  begin
+  result:=if_(HintsfornewcomersChk.checked,'Drag your files here');
+  f:=pointedFile();
+  if f = NIL then exit;
+  parent:=f.parent;
+
+  result:='URL: '+f.url()
+    +if_(f.isRealFolder() or f.isFile(), #13'Path: '+f.resource);
+  if f.isFile() then
+    result:=result+format(#13'Size: %s'#13'Downloads: %d',
+      [ smartsize(sizeofFile(f.resource)), f.DLcount ]);
+
+  s:=flagR('Invisible', FA_HIDDENTREE, TRUE);
+  if s = '' then s:=flag('Invisible', FA_HIDDEN);
+  result:=result+s
+    +flag('Download forbidden', FA_DL_FORBIDDEN)
+    +flagR('Don''t log', FA_DONT_LOG);
+
+  if f.isFolder() then
+    begin
+    if assigned(parent) and parent.hasRecursive(FA_HIDE_EMPTY_FOLDERS) then
+        result:=result+#13'Hidden if empty'+INHERITED_LABEL;
+
+    result:=result
+      +flag('Not browsable', FA_BROWSABLE, FALSE)
+      +flag('Hide empty folders', FA_HIDE_EMPTY_FOLDERS)
+      +flagR('Hide extention', FA_HIDE_EXT)
+      +flagR('Archivable', FA_ARCHIVABLE)
+    end;
+
+  s:=f.getRecursiveFileMask();
+  if (s > '') and (f.defaultFileMask = '') then s:=s+INHERITED_LABEL;
+  if s > '' then result:=result+#13'Default file mask: '+s;
+
+  perm(FA_ACCESS, 'Access for');
+  if f.isRealFolder() then perm(FA_UPLOAD, 'Upload allowed for');
+  perm(FA_DELETE, 'Delete allowed for');
+
+  s:=reduce(f.getDynamicComment());
+  if (s > '') and (f.comment = '') then s:=s+EXTERNAL_LABEL;
+  if s > '' then result:=result+#13'Comment: '+s;
+
+  s:=reduce(f.getShownRealm());
+  if (s > '') and (f.realm = '') then s:=s+INHERITED_LABEL;
+  if s > '' then result:=result+#13'Realm: '+s;
+
+  s:=reduce(f.getRecursiveDiffTplAsStr(@inheritd, @externl));
+  if s > '' then
+    begin
+    if inheritd then s:=s+INHERITED_LABEL;
+    if externl then s:=s+EXTERNAL_LABEL;
+    result:=result+#13'Diff template: '+s;
+    end;
+
+  f.getFiltersRecursively(s, s2);
+  result:=result
+    +if_(s>'', #13'Files filter: '+s
+      +if_(f.filesFilter = '', INHERITED_LABEL))
+    +if_(s2>'', #13'Folders filter: '+s2
+      +if_(f.foldersFilter = '', INHERITED_LABEL))
+    +if_(f.uploadFilterMask>'', #13'Upload filter: '+f.uploadFilterMask)
+    +flag('Don''t consider as download', FA_DONT_COUNT_AS_DL)
+    +if_(f.dontCountAsDownloadMask>'',
+      #13'Don''t consider as download (mask): '+f.dontCountAsDownloadMask)
+  end; // filehint
+
+  function connHint():string;
+  var
+    cd: TconnData;
+  begin
+  cd:=pointedConnection();
+  result:=if_(HintsForNewcomersChk.checked, 'This box shows info about current connections');
+  if cd = NIL then exit;
+  result:='Connection time: '+dateTimeToStr(cd.time)
+    +#13'Last request time: '+dateTimeToStr(cd.requestTime)
+    +#13'Agent: '+first(cd.agent,'<unknown>');
+  end;
+
+begin
+if hintinfo.HintControl = filesBox then
+  begin
+  hintinfo.ReshowTimeout:=800;
+  hintStr:=filehint();
+  end;
+if hintinfo.HintControl = connBox then
+  begin
+  hintinfo.ReshowTimeout:=800;
+  hintStr:=connHint();
+  end;
+
+if not hintsForNewcomersChk.checked
+and ((hintinfo.hintcontrol = modeBtn)
+  or (hintinfo.hintcontrol = menuBtn)
+  or (hintinfo.hintcontrol = graphBox))
+then hintStr:='';
+hintStr:=chop(#0, hintStr); // info past null char are used for extra data storing
+canShow:=hintstr > '';
+end;
+
+procedure TmainFrm.logmenuPopup(Sender: TObject);
+begin
+Readonly1.Checked:=logBox.ReadOnly;
+Readonly1.visible:=not easyMode;
+Banthisaddress1.visible:= logBox.selAttributes.color=ADDRESS_COLOR;
+Address2name1.visible:=not easyMode;
+Logfile1.visible:=not easyMode;
+logOnVideoChk.visible:=not easyMode;
+Donotlogaddress1.visible:=not easyMode;
+Clearandresettotals1.visible:=not easyMode;
+Addresseseverconnected1.visible:=not easyMode;
+Maxlinesonscreen1.visible:=not easyMode;
+Dontlogsomefiles1.visible:=not easyMode;
+Apachelogfileformat1.visible:=not easyMode and (logfile.filename>'');
+tabOnLogFileChk.Visible:=not easyMode and (logfile.filename>'');
+end;
+
+function Tmainfrm.searchLog(dir:integer):boolean;
+var
+  t, s: string;
+  i, l, tl, from, n: integer;
+begin
+timeTookToSearchLog:=now();
+try
+  result:=TRUE;
+  from:=logBox.SelStart+1;
+  t:=ansiLowerCase(logBox.text);
+  s:=ansiLowerCase(logSearchBox.text);
+  if s = '' then exit;
+  result:=FALSE;
+  if t = '' then exit;
+  tl:=length(t);
+  // if we are typing (dir=0) then before search forward, see if we can extend the current selection
+  if dir <> 0 then l:=0
+  else l:=match(pchar(s), @t[from], FALSE, [#13,#10]);
+  if l > 0 then
+    i:=from
+  // if he doesn't use wildcards, use posEx(), it should be much faster on a long text
+  else if pos('?',s)+pos('*',s) = 0 then
+    begin
+    if dir <= 0 then
+      begin
+      s:=reverseString(s);
+      t:=reverseString(t);
+      from:=tl-from+1;
+      end;
+    i:=posEx(s, t, from+1);
+    if i = 0 then i:=pos(s, t);
+    if i = 0 then exit;
+    l:=length(s);
+    if dir <= 0 then i:=tl-i-l+2;
+    end
+  else // it's using wildcards, so use match(), but don't allow matching across different lines, or a search with a * may take forever
+    begin
+    if dir = 0 then dir:=-1;
+    inc(from, dir);
+    i:=from+dir;
+    n:=0;
+    s:=trim2(s, ['*',' ']);
+      repeat
+      l:=match(pchar(s), @t[i], FALSE, [#13,#10]);
+      if l > 0 then break;
+      inc(i, dir);
+      inc(n);
+      if n >= tl then exit;
+      if i > tl then i:=1;
+      if i = 0 then i:=tl;
+      until false;
+    end;
+  logBox.SelStart:=i-1;
+  logBox.SelLength:=l;
+  result:=TRUE;
+finally timeTookToSearchLog:=now()-timeTookToSearchLog end;
+end;
+
+procedure TmainFrm.logSearchBoxChange(Sender: TObject);
+begin
+// from when he stopped typing, wait twice the time of a searching, but max 2 seconds
+searchLogTime:=now()+min(timeTookToSearchLog*2, 2/SECONDS);
+openFilteredLog.Enabled:=logSearchBox.Text > '';
+end;
+
+procedure TmainFrm.logSearchBoxKeyPress(Sender: TObject; var Key: Char);
+begin
+if key = #13 then
+  begin
+  searchLog(-1);
+  key:=#0;
+  end;
+end;
+
+procedure TmainFrm.logUpDownClick(Sender: TObject; Button: TUDBtnType);
+begin searchLog(if_(button = btNext, -1, +1)) end;
+
+procedure TmainFrm.Readonly1Click(Sender: TObject);
+begin with logBox do ReadOnly:=not ReadOnly end;
+
+procedure TmainFrm.Clear1Click(Sender: TObject);
+begin logBox.Clear() end;
+
+procedure TmainFrm.Clearandresettotals1Click(Sender: TObject);
+begin
+logBox.clear();
+resetTotals();
+end;
+
+procedure TmainFrm.Copy1Click(Sender: TObject);
+begin
+if logBox.SelLength > 0 then setClip(logBox.SelText)
+else setClip(logBox.Text)
+end;
+
+procedure TmainFrm.Saveas1Click(Sender: TObject);
+var
+  fn: string;
+begin
+fn:='';
+if PromptForFileName(fn, 'Text file|*.txt', 'txt', 'Save log', '', TRUE) then
+  saveTextFile(fn, logBox.text);
+end;
+
+procedure TmainFrm.Save1Click(Sender: TObject);
+begin saveTextfile('hfs.log', logBox.text) end;
+
+procedure deleteCFG();
+begin
+deleteFile(lastUpdateCheckFN);
+deleteFile(cfgPath+CFG_FILE);
+deleteRegistry(CFG_KEY);
+deleteRegistry(CFG_KEY, HKEY_LOCAL_MACHINE);
+end; // deleteCFG
+
+procedure TmainFrm.Clearoptionsandquit1click(Sender: TObject);
+begin
+deleteCFG();
+autoSaveOptionsChk.Checked:=FALSE;
+close();
+end;
+
+procedure TmainFrm.collapseBtnClick(Sender: TObject);
+begin setLogToolbar(FALSE) end;
+
+function ListView_GetSubItemRect(lv:TlistView; iItem, iSubItem: Integer):Trect;
+const
+  LVM_FIRST               = $1000;      { ListView messages }
+  LVM_GETSUBITEMRECT      = LVM_FIRST + 56;
+begin
+result.top:=iSubItem;
+result.left:=0;
+if sendMessage(lv.handle, LVM_GETSUBITEMRECT, iItem, Longint(@result)) = 0 then
+  result.Top:=-1
+end;
+
+procedure TmainFrm.connBoxAdvancedCustomDrawSubItem(Sender: TCustomListView;
+  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
+  Stage: TCustomDrawStage; var DefaultDraw: Boolean);
+var
+  r: Trect;
+  cnv: Tcanvas;
+
+  procedure textCenter(s:string);
+  var
+    i: integer;
+  begin
+  i:=((r.bottom-r.top)-cnv.textHeight(s)) div 2; // vertical margin, to center vertically
+  inc(r.top, i);
+  drawCentered(cnv,r,s);
+  dec(r.top, i);
+  end; // textCentered
+
+  procedure drawProgress(now,total,lowerbound,upperbound:int64);
+  var
+    d: real;
+    selected: boolean;
+    r1: Trect;
+    x: integer;
+    colors:array [boolean] of Tcolor;
+  begin
+  if (total <= 0) or (lowerbound >= upperbound) then exit;
+  colors[false]:=clWindow;
+  colors[true]:=blend(clWindow, clWindowText, 0.25);
+  selected:=cdsSelected in state;
+  r1:=rect(r.Left+1,r.Top+1,r.Right-1,r.Bottom-1);
+  // paint a shadow for non requested piece of data
+  cnv.brush.Color:=blend(clWindow, clHotLight, 0.30);
+  cnv.Brush.Style:=bsSolid;
+  cnv.FillRect(r1);
+  // and shrink the rectangle
+  x:=r1.Right-r1.Left;
+  cnv.pen.color:=colors[selected];
+  cnv.pen.Style:=psSolid;
+  if lowerbound > 0 then
+    begin
+    inc( r1.Left, round(x*lowerbound/total) );
+    cnv.MoveTo(r1.Left-1, r1.Top);
+    cnv.LineTo(r1.Left-1, r1.Bottom);
+    end;
+  if upperbound > 0 then dec( r1.Right, round(x*(total-upperbound)/total) );
+  // border + non filled part
+  cnv.brush.Color:=colors[not selected];
+  cnv.Brush.Style:=bsSolid;
+  cnv.FillRect(r1);
+  // filled part
+  d:=now / (upperbound-lowerbound);
+  if d > 1 then d:=1;
+  inc(r1.Left, 1+round(d*(r1.right-r1.Left-2)));
+  dec(r1.right); dec(r1.bottom); inc(r1.top);
+  cnv.brush.Color:=colors[selected];
+  if not IsRectEmpty(r1) then cnv.FillRect(r1);
+  // label
+  cnv.Font.Name:='Small Fonts';
+  cnv.font.Size:=7;
+  cnv.font.Color:=clWindowText;
+  SetBkMode(cnv.handle, TRANSPARENT);
+  inc(r.top);
+  textCenter(format('%d%%', [trunc(d*100)]));
+  end; // drawProgress
+
+var
+  cd: TconnData;
+begin
+if subItem <> 5 then exit;
+cd:=conn2data(item);
+if cd = NIL then exit;
+cnv:=connBox.canvas;
+r:=ListView_GetSubItemRect(connBox, item.index, subItem);
+if isSendingFile(cd) or (cd.conn.reply.bodyMode = RBM_STREAM) then
+  drawProgress( cd.conn.bytesSentLastItem, cd.conn.bytesFullBody, cd.conn.reply.firstByte, cd.conn.reply.lastByte )
+else if isReceivingFile(cd) then
+  drawProgress( cd.conn.bytesPosted, cd.conn.post.length, 0, cd.conn.post.length);
+end;
+
+procedure TmainFrm.connBoxData(Sender: TObject; Item: TListItem);
+const
+  HCS2STR :array [ThttpConnState] of string = ('idle', 'requesting', 'receiving', 'thinking', 'replying', 'sending', 'disconnected');
+var
+  data: TconnData;
+
+  function getFname():string;
+  begin
+  if isSendingFile(data) then result:=data.lastFN
+  else if isReceivingFile(data) then result:=data.uploadSrc
+  else result:='-'
+  end;
+
+  function getStatus():string;
+  begin
+  if isSendingFile(data) then
+    begin
+    if data.conn.paused then
+      result:='paused'
+    else
+      result:=format('%s / %s sent', [
+        dotted(data.conn.bytesSentLastItem),
+        dotted(data.conn.bytesPartial)
+      ]);
+    exit;
+    end;
+  if isReceivingFile(data) then
+    begin
+    result:=format('%s / %s received', [
+      dotted(data.conn.bytesPosted),
+      dotted(data.conn.post.length)
+    ]);
+    exit;
+    end;
+  result:=HCS2STR[data.conn.state]
+    +if_(data.conn.state = HCS_IDLE, ' '+intToStr(data.conn.requestCount))
+  end; // getStatus
+
+  function getSpeed():string;
+  var
+    d: real;
+  begin
+  case data.conn.state of
+    HCS_REPLYING_BODY: d:=data.conn.speedOut;
+    HCS_POSTING: d:=data.conn.speedIn;
+    else d:=data.averageSpeed;
+    end;
+  if d < 1 then result:='-'
+  else result:=format('%.1f KB/s',[d/1000])
+  end; // getSpeed
+
+var
+  progress: real;
+begin
+if quitting then exit;
+if item = NIL then exit;
+data:=conn2data(item);
+if data = NIL then exit;
+item.caption:=nonEmptyConcat('', data.usr, '@')+data.address+':'+data.conn.port;
+while item.subitems.count < 5 do
+  item.subitems.add('');
+
+item.imageIndex:=-1;
+progress:=-1;
+if data.conn.state = HCS_DISCONNECTED then
+  item.imageIndex:=21
+else if isSendingFile(data) then
+  begin
+  item.imageIndex:=32;
+  progress:= data.conn.bytesSentLastItem / data.conn.bytesPartial;
+  end
+else if isReceivingFile(data) then
+  begin
+  item.imageIndex:=33;
+  progress:= data.conn.bytesPosted / data.conn.post.length;
+  end;
+
+item.subItems[0]:=getFname();
+item.subItems[1]:=getStatus();
+item.subItems[2]:=getSpeed();
+item.subItems[3]:=getETA(data);
+item.subItems[4]:=if_(progress<0,'', format('%d%%', [trunc(progress*100)]));
+end;
+
+function TmainFrm.appEventsHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;
+begin
+callHelp:=FALSE; // avoid exception to be thrown
+result:=FALSE; 
+end;
+
+procedure TmainFrm.appEventsMinimize(Sender: TObject);
+begin
+if not MinimizetotrayChk.Checked then exit;
+minimizeToTray();
+end;
+
+procedure TmainFrm.appEventsRestore(Sender: TObject);
+begin
+trayed:=FALSE;
+if not showmaintrayiconChk.checked then tray.hide();
+end;
+
+procedure Tmainfrm.trayEvent(sender:Tobject; ev:TtrayEvent);
+begin
+updateTrayTip();
+if userInteraction.disabled then exit;
+case ev of
+  TE_RCLICK:
+    begin
+    setForegroundWindow(handle); // application.bringToFront() will act up when the window is minimized: the popped up menu will stay up forever  
+    with mouse.cursorPos do
+      menu.popup(x,y);
+    end;
+  TE_CLICK:
+    application.bringToFront();
+  TE_2CLICK:
+    begin
+    application.restore();
+    application.bringToFront();
+    end;
+  end;
+end; // trayEvent
+
+procedure TmainFrm.trayiconforeachdownload1Click(Sender: TObject);
+begin trayfordownloadChk.Checked:=FALSE end;
+
+procedure Tmainfrm.downloadtrayEvent(sender:Tobject; ev:TtrayEvent);
+var
+  i: integer;
+begin
+if userInteraction.disabled then exit;
+
+for i:=connBox.items.count-1 downto 0 do
+    if conn2data(i) = (sender as TmyTrayIcon).data then
+      connBox.itemIndex:=i;
+
+case ev of
+  TE_CLICK,
+  TE_RCLICK:
+    try
+      fromTray:=TRUE;
+      with mouse.cursorPos do
+        connmenu.popup(x,y);
+    finally fromTray:=FALSE end;
+  TE_2CLICK:
+    begin
+    application.restore();
+    application.bringToFront();
+    connBox.setFocus();
+    end;
+  end;
+end; // downloadtrayEvent
+
+function Tmainfrm.getTrayTipMsg(tpl:string=''):string;
+begin
+if quitting or (rootFile = NIL) then
+  begin
+  result:='';
+  exit;
+  end;
+result:=xtpl(first(tpl, trayMsg), [
+  '%uptime%', uptimestr(),
+  '%url%', rootFile.fullURL(),
+  '%ip%', defaultIP,
+  '%port%', srv.port,
+  '%hits%', intToStr(hitsLogged),
+  '%downloads%', intToStr(downloadsLogged),
+  '%uploads%', intToStr(uploadsLogged),
+  '%version%', VERSION,
+  '%build%', VERSION_BUILD
+]);
+end; // getTrayTipMsg
+
+procedure Tmainfrm.updateTrayTip();
+begin tray.setTip(getTrayTipMsg()) end;
+
+procedure TmainFrm.Restore1Click(Sender: TObject);
+begin
+application.Restore();
+application.bringToFront();
+end;
+
+procedure TmainFrm.restoreCfgBtnClick(Sender: TObject);
+begin
+setCfg(backuppedCfg);
+backuppedCfg:='';
+restoreCfgBtn.hide();
+eventScriptsLast:=0;
+resetOptions1.Enabled:=TRUE;
+end;
+
+procedure TmainFrm.Restoredefault1Click(Sender: TObject);
+begin
+if msgDlg('Continue?', MB_ICONQUESTION+MB_YESNO) = MRNO then exit;
+tplFilename:='';
+tplLast:=-1;
+tplImport:=TRUE;
+setStatusBarText('The template has been reset');
+end;
+
+procedure TmainFrm.Reverttopreviousversion1Click(Sender: TObject);
+const
+  FN = 'revert.bat';
+  REVERT_BATCH = 'START %0:s /WAIT "%1:s" -q'+CRLF
+    +'ping 127.0.0.1 -n 3 -w 1000> nul'+CRLF
+    +'DEL "%1:s"'+CRLF
+    +'MOVE "%2:s'+PREVIOUS_VERSION+'" "%1:s"'+CRLF
+    +'START %0:s "%1:s"'+CRLF
+    +'DEL %%0'+CRLF;
+begin
+try
+  progFrm.show('Processing...');
+  saveTextFile(FN, format(REVERT_BATCH, [
+    if_(isNT(), '""'),
+    paramStr(0),
+    exePath
+  ]));
+  execNew(FN);
+finally progFrm.hide() end;
+
+end;
+
+procedure TmainFrm.Numberofcurrentconnections1Click(Sender: TObject);
+begin setTrayShows('connections') end;
+
+procedure TmainFrm.NumberofdifferentIPaddresses1Click(Sender: TObject);
+begin setTrayShows('ips') end;
+
+procedure TmainFrm.NumberofdifferentIPaddresseseverconnected1Click(
+  Sender: TObject);
+begin setTrayShows('ips-ever') end;
+
+procedure TmainFrm.Numberofloggeddownloads1Click(Sender: TObject);
+begin setTrayShows('downloads') end;
+
+procedure TmainFrm.Numberofloggedhits1Click(Sender: TObject);
+begin setTrayShows('hits') end;
+
+procedure Tmainfrm.setTrayShows(s:string);
+begin
+trayShows:=s;
+repainttray();
+end; // setTrayShows
+
+procedure TmainFrm.Exit1Click(Sender: TObject);
+begin close() end;
+
+procedure TmainFrm.Extension1Click(Sender: TObject);
+begin defSorting:='ext' end;
+
+procedure TmainFrm.onDownloadChkClick(Sender: TObject);
+begin flashOn:='download' end;
+
+procedure TmainFrm.onconnectionChkClick(Sender: TObject);
+begin flashOn:='connection' end;
+
+procedure TmainFrm.never1Click(Sender: TObject);
+begin flashOn:='' end;
+
+procedure Tmainfrm.addTray();
+begin
+repaintTray();
+tray.show();
+end; // addTray
+
+procedure TmainFrm.Allowedreferer1Click(Sender: TObject);
+resourcestring
+  MSG = 'Leave empty to disable this feature.'
+    +#13'Here you can specify a mask.'
+    +#13'When a file is requested, if the mask doesn''t match the "Referer" HTTP field, the request is rejected.';
+begin
+inputQuery('Allowed referer', MSG, allowedReferer)
+end;
+
+// addtray
+
+procedure TmainFrm.FormShow(Sender: TObject);
+begin
+if trayed then showWindow(application.handle, SW_HIDE);
+updateTrayTip();
+connBox.DoubleBuffered:=true;
+end;
+
+procedure TmainFrm.filesBoxDragOver(Sender, Source: TObject; X, Y: Integer;
+  State: TDragState; var Accept: Boolean);
+const
+  THRESHOLD = 10;
+var
+  src, dst: Tfile;
+  i: integer;
+begin
+scrollFilesBox:=-1;
+if y < THRESHOLD then scrollFilesBox:=SB_LINEUP;
+if filesBox.Height-y < THRESHOLD then scrollFilesBox:=SB_LINEDOWN;
+
+accept:=FALSE;
+if sender <> source then exit; // only move files within filesBox
+dst:=pointedFile(FALSE);
+if assigned(dst) and not dst.isFolder() then dst:=dst.parent;
+if dst = NIL then exit;
+for i:=0 to filesBox.SelectionCount-1 do
+  with nodeToFile(filesbox.selections[i]) do
+    if isRoot() or isLocked() then exit;
+src:=selectedFile;
+accept:=(dst <> src.parent) and (dst <> src);
+end;
+
+procedure TmainFrm.filesBoxDragDrop(Sender, Source: TObject; X,Y: Integer);
+var
+  dst: Ttreenode;
+  i, bak: integer;
+  nodes: array of Ttreenode;
+begin
+if selectedFile = NIL then exit;
+VFSmodified:=TRUE;
+dst:=filesBox.dropTarget;
+if not nodeToFile(dst).isFolder() then dst:=dst.parent;
+// copy list of selected nodes
+setlength(nodes, filesBox.SelectionCount);
+for i:=0 to filesBox.SelectionCount-1 do nodes[i]:=filesbox.selections[i];
+// check for namesakes
+for i:=0 to length(nodes)-1 do
+  if existsNodeWithName(nodes[i].Text, dst) then
+    if msgDlg(MSG_SAME_NAME, MB_ICONWARNING+MB_YESNO) = IDYES then break
+    else exit;
+// move'em
+for i:=0 to length(nodes)-1 do
+  begin
+  // removing and restoring stateIndex is a workaround to a delphi bug
+  bak:=nodes[i].stateIndex;
+  nodes[i].stateIndex:=0;
+  nodes[i].moveTo(dst, naAddChild);
+  nodes[i].stateIndex:=bak;
+  end;
+filesBox.refresh();
+dst.alphaSort(FALSE);
+end;
+
+procedure TmainFrm.refreshConn(conn:TconnData);
+var
+  r: Trect;
+  i: integer;
+begin
+if quitting then exit;
+
+for i:=0 to connBox.items.count-1 do
+  if conn2data(i) = conn then
+    begin
+    connBoxData(connBox, connBox.items[i]);
+    r:=connBox.items[i].displayRect(drBounds);
+    invalidateRect(connBox.handle, @r, TRUE);
+    break;
+    end;
+//updateSbar();   // this was causing too many refreshes on fast connections
+end; // refreshConn
+
+const
+  // IDs used for file chunks
+  FK_HEAD = 0;
+  FK_RESOURCE = 1;
+  FK_NAME = 2;
+  FK_FLAGS = 3;
+  FK_NODE = 4;
+  FK_FORMAT_VER = 5;
+  FK_CRC = 6;
+  FK_COMMENT = 7;
+  FK_USERPWD = 8;
+  FK_ADDEDTIME = 9;
+  FK_DLCOUNT = 10;
+  FK_ROOT = 11;
+  FK_ACCOUNTS = 12;
+  FK_FILESFILTER = 13;
+  FK_FOLDERSFILTER = 14;
+  FK_ICON_GIF = 15;
+  FK_REALM = 16;
+  FK_UPLOADACCOUNTS = 17;
+  FK_DEFAULTMASK = 18;
+  FK_DONTCOUNTASDOWNLOADMASK = 19;
+  FK_AUTOUPDATED_FILES = 20;
+  FK_DONTCOUNTASDOWNLOAD = 21;
+  FK_HFS_VER = 22;
+  FK_HFS_BUILD = 23;
+  FK_COMPRESSED_ZLIB = 24;
+  FK_DIFF_TPL = 25;
+  FK_UPLOADFILTER = 26;
+  FK_DELETEACCOUNTS = 27;
+
+function Tmainfrm.getVFS(node:Ttreenode=NIL):ansistring;
+
+  function getAutoupdatedFiles():string;
+  var
+    i: integer;
+    fn: string;
+  begin
+  result:='';
+  i:=0;
+  while i < autoupdatedFiles.Count do
+    begin
+    fn:=autoupdatedFiles[i];
+    result:=result+TLV(FK_NODE, TLV(FK_NAME, fn)
+      + TLV(FK_DLCOUNT, str_(autoupdatedFiles.getInt(fn))) );
+    inc(i);
+    end;
+  end; // getAutoupdatedFiles
+
+var
+  i: integer;
+  f: Tfile;
+  commonFields, s: ansistring;
+begin
+if node = NIL then node:=rootNode;
+if node = NIL then exit;
+f:=nodeToFile(node);
+commonFields:=TLV(FK_FLAGS, str_(f.flags))
+    +TLV_NOT_EMPTY(FK_RESOURCE, f.resource)
+    +TLV_NOT_EMPTY(FK_COMMENT, f.comment)
+    +if_(f.user>'', TLV(FK_USERPWD, base64encode(f.user+':'+f.pwd)))
+    +TLV_NOT_EMPTY(FK_ACCOUNTS, join(';',f.accounts[FA_ACCESS]) )
+    +TLV_NOT_EMPTY(FK_UPLOADACCOUNTS, join(';',f.accounts[FA_UPLOAD]))
+    +TLV_NOT_EMPTY(FK_DELETEACCOUNTS, join(';',f.accounts[FA_DELETE]))
+    +TLV_NOT_EMPTY(FK_FILESFILTER, f.filesfilter)
+    +TLV_NOT_EMPTY(FK_FOLDERSFILTER, f.foldersfilter)
+    +TLV_NOT_EMPTY(FK_REALM, f.realm)
+    +TLV_NOT_EMPTY(FK_DEFAULTMASK, f.defaultFileMask)
+    +TLV_NOT_EMPTY(FK_UPLOADFILTER, f.uploadFilterMask)
+    +TLV_NOT_EMPTY(FK_DONTCOUNTASDOWNLOADMASK, f.dontCountAsDownloadMask)
+    +TLV_NOT_EMPTY(FK_DIFF_TPL, f.diffTpl);
+
+result:='';
+if f.isRoot() then
+	result:=result+TLV(FK_ROOT, commonFields );
+for i:=0 to node.Count-1 do
+  result:=result+getVFS(node.item[i]); // recursion
+if f.isRoot() then
+  begin
+  result:=result+TLV_NOT_EMPTY(FK_AUTOUPDATED_FILES, getAutoupdatedFiles() );
+  exit;
+  end;
+if not f.isFile() then s:=''
+else s:=TLV(FK_DLCOUNT, str_(f.DLcount)); // called on a folder would be recursive
+
+// for non-root nodes, subnodes must be calculated first, so to be encapsulated
+result:=TLV(FK_NODE, commonFields
+  +TLV_NOT_EMPTY(FK_NAME, f.name)
+  +TLV(FK_ADDEDTIME, str_(f.atime))
+  +TLV_NOT_EMPTY(FK_ICON_GIF, pic2str(f.icon))
+  +s
+  +result // subnodes
+);
+end; // getVFS
+
+procedure Tmainfrm.setVFS(vfs:ansistring; node:Ttreenode=NIL);
+resourcestring
+  MSG_BETTERSTOP = #13'Going on may lead to problems.'
+    +#13'It is adviced to stop loading.'
+    +#13'Stop?';
+  MSG_BADCRC = 'This file is corrupted (CRC).';
+  MSG_NEWER='This file has been created with a newer and incompatible version.';
+  MSG_ZLIB = 'This file is corrupted (ZLIB).';
+  MSG_BAKAVAILABLE = 'This file is corrupted but a backup is available.'#13'Continue with backup?';
+
+var
+  data: ansistring;
+  f: Tfile;
+  after: record
+    resetLetBrowse: boolean;
+    end;
+  act: TfileACtion;
+  tlv: Ttlv;
+
+  procedure parseAutoupdatedFiles(data:ansistring);
+  var
+    s, fn: ansistring;
+  begin
+  autoupdatedFiles.Clear();
+  tlv.down();
+  while tlv.pop(s) = FK_NODE do
+    begin
+    tlv.down();
+    while not tlv.isOver() do
+      case tlv.pop(s) of
+        FK_NAME: fn:=s;
+        FK_DLCOUNT: autoupdatedFiles.setInt(fn, int_(s));
+        end;
+    tlv.up();
+    end;
+  tlv.up();
+  end; // parseAutoupdatedFiles
+
+begin
+if vfs = '' then exit;
+if node = NIL then // this is supposed to be always true when loading a vfs, and never recurring
+  begin
+  node:=rootNode;
+  uploadPaths:=NIL;
+  usersInVFS.reset();
+  if isAnyMacroIn(vfs) then loadingVFS.macrosFound:=TRUE;
+  end;
+fillchar(after, sizeof(after), 0);
+node.DeleteChildren();
+f:=Tfile(node.data);
+f.node:=node;
+tlv:=Ttlv.create;
+tlv.parse(vfs);
+while not tlv.isOver() do
+  case tlv.pop(data) of
+    FK_ROOT:
+      begin
+      setVFS(data, rootNode );
+      if loadingVFS.build < '109' then
+        include(f.flags, FA_ARCHIVABLE);
+      end;
+    FK_NODE:
+      begin
+      if progFrm.cancelRequested then exit;
+      if progFrm.visible then
+        begin
+        progFrm.progress:= tlv.getPerc();
+        application.ProcessMessages();
+        end;
+      setVFS(data, addFile(Tfile.create(''), node, TRUE).node );
+      end;
+    FK_COMPRESSED_ZLIB:
+      { Explanation for the #0 workaround.
+      { I found an uncompressable vfs file, with ZDecompressStr2() raising an exception.
+      { In the end i found it was missing a trailing #0, maybe do to an incorrect handling of strings
+      { containing a trailing #0. You know, being using a zlib wrapper there is some underlying C code.
+      { I was unable to reproduce the bug, but i found that correct data doesn't complain if i add an extra #0. }
+      try
+        data:=ZDecompressStr(bytesOf(data+#0));
+        if isAnyMacroIn(data) then loadingVFS.macrosFound:=TRUE;
+        setVFS(data, node);
+      except msgDlg(MSG_ZLIB, MB_ICONERROR) end;
+    FK_FORMAT_VER:
+      begin
+      if length(data) < 4 then // early versions: '1.0', '1.1'
+        begin
+        loadingVFS.resetLetBrowse:=TRUE;
+        after.resetLetBrowse:=TRUE;
+        end;
+      if (int_(data) > CURRENT_VFS_FORMAT)
+      and (msgDlg(MSG_NEWER+MSG_BETTERSTOP, MB_ICONERROR+MB_YESNO) = IDYES) then
+        exit;
+      end;
+  	FK_CRC:
+      if str_(getCRC(tlv.getTheRest())) <> data then
+        begin
+        if loadingVFS.bakAvailable then
+          if msgDlg(MSG_BAKAVAILABLE, MB_ICONWARNING+MB_YESNO) = IDYES then
+            begin
+            loadingVFS.useBackup:=TRUE;
+            exit;
+            end;
+        if msgDlg(MSG_BADCRC+MSG_BETTERSTOP,MB_ICONERROR+MB_YESNO) = IDYES then
+        	exit;
+        end;
+    FK_RESOURCE: f.resource:=data;
+    FK_NAME:
+      begin
+      f.name:=data;
+      node.text:=data;
+      end;
+    FK_FLAGS: move(data[1], f.flags, length(data));
+  	FK_ADDEDTIME: f.atime:=dt_(data);
+    FK_COMMENT: f.comment:=data;
+    FK_USERPWD:
+    	begin
+      data:=base64decode(data);
+      f.user:=chop(pos(':',data),1,data);
+      f.pwd:=data;
+      usersInVFS.track(f.user, f.pwd);
+      end;
+    FK_DLCOUNT: f.DLcount:=int_(data);
+    FK_ACCOUNTS: f.accounts[FA_ACCESS]:=split(';',data);
+    FK_UPLOADACCOUNTS: f.accounts[FA_UPLOAD]:=split(';',data);
+    FK_DELETEACCOUNTS: f.accounts[FA_DELETE]:=split(';',data);
+    FK_FILESFILTER: f.filesfilter:=data;
+    FK_FOLDERSFILTER: f.foldersfilter:=data;
+    FK_UPLOADFILTER: f.uploadFilterMask:=data;
+    FK_REALM: f.realm:=data;
+    FK_DEFAULTMASK: f.defaultFileMask:=data;
+    FK_DIFF_TPL: f.diffTpl:=data;
+    FK_DONTCOUNTASDOWNLOADMASK: f.dontCountAsDownloadMask:=data;
+    FK_DONTCOUNTASDOWNLOAD: if boolean(data[1]) then include(f.flags, FA_DONT_COUNT_AS_DL);  // legacy, now moved into flags
+    FK_ICON_GIF: if data > '' then f.setupImage(str2pic(data));
+    FK_AUTOUPDATED_FILES: parseAutoupdatedFiles(data);
+    FK_HFS_BUILD: loadingVFS.build:=data;
+    FK_HEAD, FK_HFS_VER: ; // recognize these fields, but do nothing
+    else loadingVFS.unkFK:=TRUE;
+    end;
+freeAndNIL(tlv);
+// legacy: in build #213 special usernames renamed for uniformity, and usernames are now sorted for faster access
+for act:=low(act) to high(act) do
+  if loadingVFS.build < '213' then
+    begin
+    replaceString(f.accounts[act], '*', USER_ANYONE);
+    replaceString(f.accounts[act], '*+', USER_ANY_ACCOUNT);
+    uniqueStrings(f.accounts[act]);
+    sortArray(f.accounts[act]);
+    // for a little time, we tried to replace anyone with any+anon. it was a failed and had to revert.
+    if stringExists(loadingVFS.build, ['211','212'])
+    and stringExists(USER_ANY_ACCOUNT, f.accounts[act])
+    and stringExists(USER_ANONYMOUS, f.accounts[act]) then
+      begin
+      removeString(USER_ANY_ACCOUNT, f.accounts[act]);
+      replaceString(f.accounts[act], USER_ANONYMOUS, USER_ANYONE);
+      end;
+    end;
+
+if FA_VIS_ONLY_ANON in f.flags then
+  loadingVFS.visOnlyAnon:=TRUE;
+if f.isVirtualFolder() or f.isLink() then f.mtime:=f.atime;
+if assigned(f.accounts[FA_UPLOAD]) 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
+
+function addVFSheader(vfsdata:ansistring):ansistring;
+begin
+if length(vfsdata) > COMPRESSION_THRESHOLD then
+  vfsdata:=TLV(FK_COMPRESSED_ZLIB,
+    ZcompressStr2(vfsdata, zcFastest) );
+result:= TLV(FK_HEAD, VFS_FILE_IDENTIFIER)
+  +TLV(FK_FORMAT_VER, str_(CURRENT_VFS_FORMAT))
+  +TLV(FK_HFS_VER, VERSION)
+  +TLV(FK_HFS_BUILD, VERSION_BUILD)
+  +TLV(FK_CRC, str_(getCRC(vfsdata)));  // CRC must always be right before data
+result:=result+vfsdata
+end; // addVFSheader
+
+procedure TmainFrm.Savefilesystem1Click(Sender: TObject);
+begin saveVFS() end;
+
+procedure TmainFrm.filesBoxDeletion(Sender: TObject; Node: TTreeNode);
+var
+  f: Tfile;
+begin
+f:=node.data;
+node.data:=NIL;
+// the test on uploadPaths may save some function call
+if assigned(f.accounts[FA_UPLOAD]) and assigned(uploadPaths) then
+  removeString(f.resource, uploadPaths);
+try f.free
+except
+  end;
+if node = rootNode then
+  rootNode:=NIL;
+VFSmodified:=TRUE
+end;
+
+function blockLoadSave():boolean;
+begin
+result:=addingItemsCounter > 0;
+if not result then exit;
+msgDlg('Cannot load or save while adding files', MB_ICONERROR);
+end; // blockLoadSave
+
+procedure TmainFrm.Loadfilesystem1Click(Sender: TObject);
+var
+  fn: string;
+begin
+if blockLoadSave() then exit;
+if not checkVfsOnQuit() then exit;
+fn:='';
+if promptForFileName(fn, 'VirtualFileSystem|*.vfs', 'vfs', 'Open VFS file') then
+  loadVFS(fn);
+end;
+
+procedure TmainFrm.leavedisconnectedconnectionsChkClick(Sender: TObject);
+var
+  i: integer;
+  data: TconnData;
+begin
+if leavedisconnectedconnectionsChk.checked then exit;
+i:=0;
+while i < connBox.items.count do
+  begin
+  data:=conn2data(i);
+  if data.conn.state = HCS_DISCONNECTED then
+    begin
+    toDelete.Add(data);
+    data.deleting:=TRUE;
+    end;
+  inc(i);
+  end;
+connBox.items.count:=srv.conns.count;
+end;
+
+procedure drawGraphOn(cnv:Tcanvas; colors:TIntegerDynArray=NIL);
+var
+  i, h, maxV: integer;
+  r: Trect;
+  top: double;
+  s: string;
+
+  procedure drawSample(sample:integer);
+  begin
+	cnv.moveTo(r.left+i, r.bottom);
+  cnv.lineTo(r.Left+i, r.Bottom-1-sample*h div maxV);
+  end; // drawSample
+
+  function getColor(idx:integer; def:Tcolor):Tcolor;
+  begin
+  if (length(colors) <= idx) or (colors[idx] = clDefault) then result:=def
+  else result:=colors[idx]
+  end; // getColor
+
+resourcestring
+  LIMIT = 'Limit';
+  TOP_SPEED = 'Top speed';
+begin
+r:=cnv.cliprect;
+// clear
+cnv.brush.color:=getColor(0, clBlack);
+cnv.fillrect(r);
+// draw grid
+cnv.Pen.color:=getColor(1, rgb(0,0,120));
+i:=r.left;
+while i < r.right do
+  begin
+  cnv.moveTo(i, r.top);
+  cnv.LineTo(i, r.Bottom);
+  inc(i,10);
+  end;
+i:=r.bottom;
+while i > r.top do
+  begin
+  cnv.moveTo(r.left, i);
+  cnv.LineTo(r.right, i);
+  dec(i,10);
+  end;
+
+maxV:=max(graph.maxV, 1);
+h:=r.bottom-r.top-1;
+// draw graph
+cnv.Pen.color:=getColor(2, clFuchsia);
+for i:=0 to (r.Right-r.left)-1 do	drawSample(graph.samplesOut[i]);
+cnv.Pen.color:=getColor(3, clYellow);
+for i:=0 to (r.Right-r.left)-1 do	drawSample(graph.samplesIn[i]);
+// text
+cnv.Font.Color:=getColor(4, clLtGray);
+cnv.Font.Name:='Small Fonts';
+cnv.font.size:=7;
+SetBkMode(cnv.handle, TRANSPARENT);
+top:=(graph.maxV/1000)*safeDiv(10.0, graph.rate);
+s:=format(TOP_SPEED+': %.1f KB/s    ---    %d kbps', [top, round(top*8)]);
+cnv.TextOut(r.right-cnv.TextWidth(s)-20, 3, s);
+if assigned(globalLimiter) and (globalLimiter.maxSpeed < MAXINT) then
+  cnv.TextOut(r.right-180+25, 15, format(LIMIT+': %.1f KB/s', [globalLimiter.maxSpeed/1000]));
+end; // drawGraphOn
+
+procedure TmainFrm.graphBoxPaint(Sender: TObject);
+var
+  bmp: Tbitmap;
+  r: Trect;
+begin
+if not graphBox.visible then exit;
+bmp:=Tbitmap.create();
+bmp.Width:=graphBox.Width;
+bmp.Height:=graphBox.Height;
+r:=bmp.canvas.ClipRect;
+drawGraphOn(bmp.canvas);
+graphBox.canvas.CopyRect(r,bmp.canvas,r);
+bmp.free;
+end;
+
+function Tmainfrm.getGraphPic(cd:TconnData=NIL):ansistring;
+var
+  bmp: Tbitmap;
+  refresh: ansistring;
+  i: integer;
+  colors: TIntegerDynArray;
+  options: string;
+
+  procedure addColor(c:Tcolor);
+  var
+    n: integer;
+  begin
+  n:=length(colors);
+  setLength(colors, n+1);
+  colors[n]:=c;
+  end; // addColor
+
+begin
+options:=copy(decodeURL(cd.conn.request.url), 12, MAXINT);
+delete(options, pos('?',options), MAXINT);
+bmp:=Tbitmap.create();
+bmp.Width:=graphBox.Width;
+bmp.Height:=graphBox.Height;
+colors:=NIL;
+if options = '' then
+  begin
+  // here is an initial support for ?parameters. colors not supported yet.
+  try bmp.width:=strToInt(cd.urlvars.Values['w']) except end;
+  try bmp.height:=min(strToInt(cd.urlvars.Values['h']), 300000 div max(1,bmp.width)) except end;
+  refresh:=ansistring(cd.urlvars.Values['refresh']);
+  end
+else
+  try
+    i:=strToInt(chop('x',options));
+    if (i > 0) and (i <= length(graph.samplesIn)) then bmp.Width:=i;
+    i:=strToInt(chop('x',options));
+    if (i > 0) and (i <= length(graph.samplesIn)) then
+      bmp.height:=min(i, 300000 div max(1,bmp.width));
+    refresh:=ansistring(chop('x',options));
+    for i:=1 to 5 do
+      addColor(stringToColorEx(chop('x',options), clDefault));
+  except
+    end;
+drawGraphOn(bmp.canvas, colors);
+result:=bmp2str(bmp);
+bmp.free;
+if cd = NIL then exit;
+cd.conn.addHeader('Cache-Control: no-cache');
+if refresh > '' then
+  cd.conn.addHeader('Refresh: '+refresh);
+end; // getGraphPic
+
+procedure resendShortcut(mi:Tmenuitem; sc:Tshortcut);
+var
+  i: integer;
+begin
+if mi.shortcut = sc then mi.click();
+for i:=0 to mi.count-1 do resendShortcut(mi.items[i], sc); 
+end;
+
+procedure TmainFrm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+begin
+altPressedForMenu:=(key = 18) and (shift = [ssAlt]);
+resendShortcut(menu.items, shortcut(key,shift));
+if shift = [] then
+  case key of
+    VK_F10: popupMainMenu();
+    end;
+end;
+
+procedure TmainFrm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+begin
+if altPressedForMenu and (key = 18) and (shift = []) then
+  popupMainMenu();
+altPressedForMenu:=FALSE
+end;
+
+procedure TmainFrm.Officialwebsite1Click(Sender: TObject);
+begin openURL('http://www.rejetto.com/hfs/') end;
+
+procedure TmainFrm.showmaintrayiconChkClick(Sender: TObject);
+begin
+if showmaintrayiconChk.Checked then addTray()
+else tray.hide();
+end;
+
+function Shell_GetImageLists(var hl,hs:Thandle):boolean; stdcall; external 'shell32.dll' index 71;
+
+function getSystemimages():TImageList;
+var
+  hl, hs: Thandle;
+begin
+result:=NIL;
+if not Shell_GetImageLists(hl,hs) then exit;
+result:=Timagelist.Create(NIL);
+result.ShareImages:=TRUE;
+result.handle:=hs;
+end; // loadSystemimages
+
+procedure TmainFrm.expandBtnClick(Sender: TObject);
+begin setLogToolbar(TRUE) end;
+
+procedure TmainFrm.Speedlimit1Click(Sender: TObject);
+resourcestring
+  MSG_MAX_BW = 'Max bandwidth (KB/s).';
+  ZEROMSG = 'Zero is an effective limit.'#13'To disable instead, leave empty.';
+  LIMIT = 'Speed limit';
+var
+  s: string;
+begin
+if speedLimit < 0 then s:=''
+else s:=floatToStr(speedLimit);
+if inputquery(LIMIT, MSG_MAX_BW+#13+MSG_EMPTY_NO_LIMIT, s) then
+	try
+  	s:=trim(s);
+  	if s = '' then setSpeedLimit(-1)
+    else setSpeedLimit(strToFloat(s));
+    if speedLimit = 0 then
+      msgDlg(ZEROMSG, MB_ICONWARNING);
+    // a manual set of speedlimit voids the pause command
+    Pausestreaming1.Checked:=FALSE;
+  except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR)
+  end;
+end;
+
+procedure TmainFrm.Speedlimitforsingleaddress1Click(Sender: TObject);
+resourcestring
+  MSG_MAX_BW_1 = 'Max bandwidth for single address (KB/s).';
+  LIMIT1 = 'Speed limit for single address';
+var
+  s: string;
+begin
+if speedLimitIP <= 0 then s:=''
+else s:=floatToStr(speedLimitIP);
+if inputquery(LIMIT1, MSG_MAX_BW_1+#13+MSG_EMPTY_NO_LIMIT, s) then
+	try
+  	s:=trim(s);
+  	if s = '' then setSpeedLimitIP(-1)
+    else setSpeedLimitIP(strToFloat(s));
+  except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR)
+  end;
+end;
+
+procedure Tmainfrm.setnoDownloadTimeout(v:integer);
+resourcestring
+  NODL = 'No downloads timeout: ';
+begin
+if v < 0 then v:=0;
+if v <> noDownloadTimeout then lastActivityTime:=now();
+noDownloadTimeout:=v;
+noDownloadTimeout1.caption:=NODL+if_(v=0, DISABLED, intToStr(v) );
+end;
+
+procedure Tmainfrm.setGraphRate(v:integer);
+resourcestring
+  MSG = 'Graph refresh rate: %d (tenths of second)';
+begin
+if v < 1 then v:=1;
+if graph.rate = v then exit;
+graph.rate:=v;
+Graphrefreshrate1.caption:=format(MSG, [v]);
+// changing rate invalidates previous data
+fillChar(graph.samplesOut, sizeof(graph.samplesOut), 0);
+fillChar(graph.samplesIn, sizeof(graph.samplesIn), 0);
+graph.maxV:=0;
+end; // setGraphRate
+
+procedure TmainFrm.Maxconnections1Click(Sender: TObject);
+resourcestring
+  MSG = 'Max simultaneous connections to serve.'
+    +#13'Most people don''t know this function well, and have problems. If you are unsure, please use the "Max simultaneous downloads".';
+  MSG2 = 'In this moment there are %d active connections';
+var
+  s: string;
+begin
+if maxConnections > 0 then s:=intToStr(maxConnections)
+else s:='';
+if inputquery('Max connections', MSG+#13+MSG_EMPTY_NO_LIMIT, s) then
+	try setMaxConnections(strToUInt(s))
+  except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR)
+  end;
+if (maxConnections > 0) and (srv.conns.count > maxConnections) then
+  msgDlg(format(MSG2, [srv.conns.count]), MB_ICONWARNING);
+end;
+
+procedure TmainFrm.maxDLs1Click(Sender: TObject);
+resourcestring
+  MSG = 'Max simultaneous downloads.';
+  MSG2 = 'In this moment there are %d active downloads';
+var
+  s: string;
+  i: integer;
+begin
+if maxContempDLs > 0 then s:=intToStr(maxContempDLs)
+else s:='';
+if inputquery('Max downloads', MSG+#13+MSG_EMPTY_NO_LIMIT, s) then
+	try setMaxDLs(strToUInt(s))
+  except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR)
+  end;
+if maxContempDLs = 0 then exit;
+i:=countDownloads();
+if i > maxContempDLs then
+  msgDlg(format(MSG2, [i]), MB_ICONWARNING);
+end;
+
+procedure TmainFrm.Maxconnectionsfromsingleaddress1Click(Sender: TObject);
+resourcestring
+  MSG = 'Max simultaneous connections to accept from a single IP address.'
+    +#13'Most people don''t know this function well, and have problems. If you are unsure, please use the "Max simultaneous downloads from a single IP address".';
+var
+  s: string;
+  addresses: TStringDynArray;
+  i: integer;
+begin
+if maxConnectionsIP > 0 then s:=intToStr(maxConnectionsIP)
+else s:='';
+if inputquery('Max connections by IP', MSG+#13+MSG_EMPTY_NO_LIMIT, s) then
+	try setMaxConnectionsIP(strToUInt(s))
+  except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR)
+  end;
+if maxConnectionsIP = 0 then exit;
+addresses:=NIL;
+for i:=0 to srv.conns.Count-1 do
+  with conn2data(i) do
+    if countConnectionsByIP(address) > maxConnectionsIP then
+      addUniqueString(address, addresses);
+if assigned(addresses) then
+  msgDlg(format(MSG_ADDRESSES_EXCEED,[join(#13, addresses)]), MB_ICONWARNING);
+end;
+
+procedure TmainFrm.MaxDLsIP1Click(Sender: TObject);
+resourcestring
+  MSG = 'Max simultaneous downloads from a single IP address.';
+var
+  s: string;
+  addresses: TStringDynArray;
+  i: integer;
+begin
+if maxContempDLsIP > 0 then s:=intToStr(maxContempDLsIP)
+else s:='';
+if inputquery('Max downloads by IP', MSG+#13+MSG_EMPTY_NO_LIMIT, s) then
+	try setMaxDLsIP(strToUInt(s))
+  except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR)
+  end;
+if maxContempDLsIP = 0 then exit;
+addresses:=NIL;
+for i:=0 to srv.conns.Count-1 do
+  with conn2data(i) do
+    if countDownloads(address) > maxContempDLsIP then
+      addUniqueString(address, addresses);
+if assigned(addresses) then
+  msgDlg(format(MSG_ADDRESSES_EXCEED,[join(#13, addresses)]), MB_ICONWARNING);
+end;
+
+procedure TmainFrm.Forum1Click(Sender: TObject);
+begin openURL('http://www.rejetto.com/forum/') end;
+
+procedure TmainFrm.FAQ1Click(Sender: TObject);
+begin openURL('http://www.rejetto.com/sw/?faq=hfs') end;
+
+procedure TmainFrm.License1Click(Sender: TObject);
+begin openURL('http://www.rejetto.com/sw/license.txt') end;
+
+procedure Tmainfrm.pasteFiles();
+begin
+// try twice
+try addDropFiles(clipboard.GetAsHandle(CF_HDROP), filesBox.selected)
+except
+  try addDropFiles(clipboard.GetAsHandle(CF_HDROP), filesBox.selected)
+  except on e:Exception do
+    msgDlg(e.message, MB_ICONERROR);
+    end
+  end;
+end;
+
+procedure TmainFrm.Paste1Click(Sender: TObject);
+begin pasteFiles() end;
+
+procedure TmainFrm.Addfiles1Click(Sender: TObject);
+var
+  dlg: TopenDialog;
+  i: integer;
+begin
+dlg:=TopenDialog.create(self);
+if sysutils.directoryExists(lastDialogFolder) then
+  dlg.InitialDir:=lastDialogFolder;
+dlg.Options:=dlg.Options+[ofAllowMultiSelect, ofFileMustExist, ofPathMustExist];
+if dlg.Execute() then
+  begin
+	for i:=0 to dlg.files.count-1 do
+    addFile(Tfile.create(dlg.files[i]), filesBox.Selected, dlg.Files.count<>1 );
+  lastDialogFolder:=extractFilePath(dlg.fileName);
+  end;
+dlg.free;
+end;
+
+procedure TmainFrm.Addfolder1Click(Sender: TObject);
+begin
+if selectFolder('', lastDialogFolder) then
+  begin
+  addFilesFromString(lastDialogFolder, filesBox.selected);
+  end;
+end;
+
+procedure TmainFrm.graphSplitterMoved(Sender: TObject);
+begin graph.size:=graphBox.height end;
+
+procedure TmainFrm.Graphrefreshrate1Click(Sender: TObject);
+var
+  s: string;
+begin
+s:=intToStr(graph.rate);
+if inputquery('Graph refresh rate', 'Tenths of second',s) then
+	try
+  	s:=trim(s);
+  	if s = '' then setGraphRate(10)
+    else setGraphRate(strToInt(s))
+  except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR)
+  end;
+end;
+
+procedure TmainFrm.Pausestreaming1Click(Sender: TObject);
+begin
+if pausestreaming1.checked then globalLimiter.maxSpeed:=0
+else setSpeedLimit(speedLimit)
+end;
+
+procedure TmainFrm.Comment1Click(Sender: TObject);
+var
+  i: integer;
+begin
+if selectedFile = NIL then exit;
+inputComment(selectedFile);
+for i:=0 to filesBox.SelectionCount-1 do
+  nodeToFile(filesBox.Selections[i]).comment:=selectedFile.comment;
+end;
+
+procedure TmainFrm.filesBoxCustomDrawItem(Sender: TCustomTreeView;
+  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
+var
+  f: Tfile;
+  a: TStringDynArray;
+  onlyAnon: boolean;
+begin
+if not sender.visible then exit;
+f:=Tfile(node.data);
+if f = NIL then exit;
+if f.hasRecursive([FA_HIDDEN, FA_HIDDENTREE], TRUE) then
+	with sender.Canvas.Font do
+  	style:=style+[fsItalic];
+a:=f.accounts[FA_ACCESS];
+onlyAnon:= onlyString(USER_ANONYMOUS, a);
+node.stateIndex:=ifThen((f.user > '') or (assigned(a) and not onlyAnon), ICON_LOCK, -1);
+end;
+
+function Tmainfrm.fileAttributeInSelection(fa:TfileAttribute):boolean;
+var
+  i: integer;
+begin
+for i:=0 to filesBox.SelectionCount-1 do
+  if fa in nodeTofile(filesBox.Selections[i]).flags then
+    begin
+    result:=TRUE;
+    exit;
+    end;
+result:=FALSE;
+end; // fileAttributeInSelection
+
+procedure TmainFrm.Setuserpass1Click(Sender: TObject);
+var
+  i: integer;
+  user, pwd: string;
+  f: Tfile;
+begin
+if selectedFile = NIL then exit;
+if fileAttributeInSelection(FA_LINK)
+and (msgDlg(MSG_UNPROTECTED_LINKS, MB_ICONWARNING+MB_YESNO) <> IDYES) then exit;
+user:=selectedFile.user;
+pwd:=selectedFile.pwd;
+if not newuserpassFrm.prompt(user, pwd) then exit;
+for i:=0 to filesBox.SelectionCount-1 do
+  begin
+  f:=filesBox.Selections[i].data;
+  usersInVFS.drop(f.user, f.pwd);
+  f.user:=user;
+  f.pwd:=pwd;
+  usersInVFS.track(f.user, f.pwd);
+  end;
+filesBox.Repaint();
+VFSmodified:=TRUE;
+end;
+
+procedure TmainFrm.browseBtnClick(Sender: TObject);
+begin browse(urlBox.Text) end;
+
+procedure TmainFrm.BanIPaddress1Click(Sender: TObject);
+var
+  cd: TconnData;
+begin
+cd:=selectedConnection();
+if cd = NIL then exit;
+banAddress(cd.address);
+end;
+
+procedure showOptions(page:TtabSheet);
+var
+  was: boolean;
+begin
+optionsFrm.pageCtrl.ActivePage:=page;
+was:=page.TabVisible;
+page.TabVisible:=TRUE;
+if mainfrm.modalOptionsChk.checked and not optionsFrm.visible then optionsFrm.showModal()
+else optionsFrm.show();
+page.TabVisible:=was;
+end;
+
+procedure TmainFrm.BannedIPaddresses1Click(Sender: TObject);
+begin showOptions(optionsFrm.bansPage) end;
+
+procedure Tmainfrm.recentsClick(sender:Tobject);
+var
+  i: integer;
+begin
+if blockLoadSave() then exit;
+i:=strToInt((sender as Tmenuitem).Caption[3]);
+if i > length(recentFiles) then exit;
+dec(i); // convert to zero based
+if fileExists(recentFiles[i]) then
+  begin
+  if not checkVfsOnQuit() then exit;
+  loadVFS(recentFiles[i]);
+  end
+else
+  begin
+  msgDlg('The file does not exist anymore', MB_ICONERROR);
+  removeString(recentFiles, i);
+  updateRecentFilesMenu();
+  end;
+end;
+
+procedure Tmainfrm.updateRecentFilesMenu();
+var
+  i: integer;
+begin
+Loadrecentfiles1.Clear();
+for i:=0 to length(recentFiles)-1 do
+  loadrecentfiles1.Add(
+    NewItem( '[&'+intToStr(i+1)+'] '+ExtractFileName(recentFiles[i]), 0, FALSE, TRUE, recentsClick, 0, 'recent') );
+Loadrecentfiles1.visible:=Loadrecentfiles1.count>0;
+end; // updateRecentFilesMenu
+
+procedure Tmainfrm.loadVFS(fn:string);
+resourcestring
+  MSG_TITLE = 'Loading VFS';
+  MSG_OLD = 'This file is old and uses different settings.'
+    +#13'The "let browse" folder option will be reset.'
+    +#13'Re-saving the file will update its format.';
+  MSG_UNK_FK = 'This file has been created with a newer version.'
+    +#13'Some data was discarded because unknown.'
+    +#13'If you save the file now, the discarded data will NOT be saved.';
+  MSG_VIS_ONLY_ANON =
+    'This VFS file uses the "Visible only to anonymous users" feature.'
+  +#13'This feature is not available anymore.'
+  +#13'You can achieve similar results by restricting access to @anonymous,'
+  +#13'then enabling "List protected items only for allowed users".';
+  MSG_AUTO_DISABLED = 'Because of the problems encountered in loading,'
+    +#13'automatic saving has been disabled'
+    +#13'until you save manually or load another one.';
+  MSG_CORRUPTED = 'This file does not contain valid data.';
+  MSG_MACROS_FOUND = '!!!!!!!!! DANGER !!!!!!!!!'
+    +#13'This file contains macros.'
+    +#13'Don''t accept macros from people you don''t trust.'
+    +#13#13'Trust this file?';
+var
+  took: Tdatetime;
+  data: ansistring;
+
+  function anyAutosavingFeatureEnabled():boolean;
+  begin  result:=(autosaveVFS.every > 0) or autosaveVFSchk.checked end;
+
+  function restoreBak():boolean;
+  begin
+  result:=fileExists(fn+BAK_EXT)
+    and (not fileExists(fn) or renameFile(fn, fn+CORRUPTED_EXT))
+    and renameFile(fn+BAK_EXT, fn);
+  if result then
+    data:=loadfile(fn);
+  end; // restoreBak
+
+begin
+if fn = '' then exit;
+filesBox.hide(); // it seems to speed up a lot
+progFrm.show('Loading VFS...', TRUE);
+disableUserInteraction();
+try
+  fillchar(loadingVFS, sizeof(loadingVFS), 0);
+  took:=now();
+  data:=loadfile(fn);
+  loadingVfs.bakAvailable:=fileExists(fn+BAK_EXT);
+  if not ansiStartsStr(TLV(FK_HEAD, VFS_FILE_IDENTIFIER), data)
+  and not restoreBak() then
+    begin
+    if data = '' then
+      msgDlg(MSG_CORRUPTED, MB_ICONERROR);
+    exit;
+    end;
+  try
+    initVFS();
+    setVFS(data);
+    if loadingVFS.useBackup and restoreBak() then
+      begin
+      initVFS();
+      setVFS(loadfile(fn));
+      end;
+    took:=now()-took;
+  finally
+    if progFrm.cancelRequested then initVFS()
+    else lastFileOpen:=fn;
+    VFSmodified:=FALSE;
+    purgeVFSaccounts(); // remove references to non-existent users
+    filesBox.FullCollapse();
+    rootNode.Selected:=TRUE;
+    rootNode.MakeVisible();
+    end;
+finally
+  reenableUserInteraction();
+  progFrm.hide();
+  filesBox.show();
+  end;
+if progFrm.cancelRequested then exit;
+if loadingVFS.macrosFound
+and not stringExists(fn, trustedFiles)
+and (msgDlg(MSG_MACROS_FOUND, MB_ICONWARNING+MB_YESNO, MSG_TITLE) = mrNo) then
+  begin
+  initVFS();
+  exit;
+  end;
+addUniqueString(fn, trustedFiles);
+if loadingVFS.visOnlyAnon then
+  msgDlg(MSG_VIS_ONLY_ANON, MB_ICONWARNING, MSG_TITLE);
+if loadingVFS.resetLetBrowse then msgDlg(MSG_OLD, MB_ICONWARNING, MSG_TITLE);
+if loadingVFS.unkFK then msgDlg(MSG_UNK_FK, MB_ICONWARNING, MSG_TITLE);
+
+with loadingVFS do disableAutosave:=unkFK or resetLetBrowse or visOnlyAnon;
+if loadingVFS.disableAutosave and anyAutosavingFeatureEnabled() then
+  msgDlg(MSG_AUTO_DISABLED, MB_ICONWARNING, MSG_TITLE);
+
+setStatusBarText(format('Loaded in %.1f seconds (%s)', [took*SECONDS,fn]), 10);
+
+removestring(fn, recentFiles); // avoid duplicates
+insertstring(fn, 0, recentFiles); // insert fn as first element
+removeString(recentFiles, MAX_RECENT_FILES, length(recentFiles)); // shrink2max
+updateRecentFilesMenu();
+end; // loadVFS
+
+procedure TmainFrm.logBoxChange(Sender: TObject);
+begin logToolbar.visible:=not easyMode and (logBox.Lines.count > 0) end;
+
+procedure TmainFrm.logBoxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+if button = mbRight then
+  logRightClick:=point(x,y);
+end;
+
+procedure Tmainfrm.popupMainMenu();
+begin
+menuBtn.Down:=TRUE;
+with menuBtn.clientToScreen(point(0,menuBtn.height)) do
+  menu.popup(x,y);
+menuBtn.Down:=FALSE;
+end;
+
+procedure TmainFrm.portBtnClick(Sender: TObject);
+var
+  s: string;
+begin
+s:=port;
+  repeat
+  if not inputQuery('Port', 'Specify a port to accept connection,'#13'or leave empty to decide automatically.', s) then exit;
+  s:=trim(s);
+  if not isOnlyDigits(s) then
+    begin
+    msgDlg('Numbers only', MB_ICONERROR);
+    continue;
+    end;
+  if changePort(s) then exit;
+  sayPortBusy(s);
+  until FALSE;
+end;
+
+procedure Tmainfrm.updateAlwaysOnTop();
+begin
+if alwaysOnTopchk.checked then FormStyle:=fsStayOnTop
+else formStyle:=fsNormal
+end; // updateAlwaysOnTop
+
+procedure TmainFrm.updateBtnClick(Sender: TObject);
+begin
+if now()-lastUpdateCheck > 1*HOURS then
+  autoCheckUpdates(); // refresh update info, in case the button is clicked long after the check
+
+doTheUpdate(clearAndReturn(updateWaiting));
+updateBtn.hide();
+end;
+
+procedure TmainFrm.Changeeditor1Click(Sender: TObject);
+begin selectFile(tplEditor, '', 'Programs|*.exe', [ofFileMustExist]) end;
+
+procedure TmainFrm.Changefile1Click(Sender: TObject);
+begin
+if selectFile(tplFilename, 'Change template file', 'Template file|*.tpl', [ofPathMustExist, ofCreatePrompt]) then
+  setNewTplFile(tplFilename);
+end;
+
+procedure TmainFrm.Changeport1Click(Sender: TObject);
+begin portBtnClick(portBtn) end;
+
+procedure TmainFrm.Checkforupdates1Click(Sender: TObject);
+resourcestring
+  MSG_INFO = 'Last stable version: %s'#13#13'Last untested version: %s'#13;
+  MSG_NEWER = 'There''s a new version available online: %s';
+var
+  updateURL: string;
+  info: Ttpl;
+begin
+progFrm.show('Searching for updates...');
+try info:=downloadUpdateInfo()
+finally progFrm.hide() end;
+
+if info = NIL then
+  begin
+  msgDlg(MSG_COMM_ERROR, MB_ICONERROR);
+  exit;
+  end;
+
+try
+  msgDlg(format(MSG_INFO, [ info['last stable'], first([info['last untested'],'none']) ]));
+
+  updateURL:='';
+  if trim(info['last stable build']) > VERSION_BUILD then
+    begin
+    msgDlg(format(MSG_NEWER,[info['last stable']]));
+    updateURL:=trim(info['last stable url']);
+    end
+  else
+    if (not VERSION_STABLE or testerUpdatesChk.checked)
+    and (trim(info['last untested build']) > VERSION_BUILD) then
+      begin
+      msgDlg(format(MSG_NEWER,[info['last untested']]));
+      updateURL:=trim(info['last untested url']);
+      end;
+
+  msgDlg(info['notice'], MB_ICONWARNING);
+  parseVersionNotice(info['version notice']);
+finally info.free end;
+promptForUpdating(updateURL);
+end;
+
+procedure Tmainfrm.setEasyMode(easy:boolean=TRUE);
+resourcestring
+  ARE_EXPERT = 'You are in Expert mode';
+  ARE_EASY = 'You are in Easy mode';
+  SW2EXPERT = 'Switch to Expert mode';
+  SW2EASY = 'Switch to Easy mode';
+const
+  ICO :array [boolean] of integer = (ICON_EXPERT, ICON_EASY);
+begin
+easyMode:=easy;
+switchMode.caption:=ifThen(easyMode, SW2EXPERT, SW2EASY);
+//switchMode.imageIndex:=ICO[not easyMode];  disabled because it's ugly, it uses the same icon as the next menu item (accounts)
+modeBtn.caption:=ifThen(easyMode, ARE_EASY, ARE_EXPERT);
+modeBtn.imageIndex:=ICO[easyMode];
+if not easyMode or graphInEasyMode then showGraph()
+else hideGraph();
+optionsFrm.mimePage.tabVisible:=not easyMode;
+optionsFrm.accountsPage.tabVisible:=not easyMode;
+optionsFrm.a2nPage.tabVisible:=not easyMode;
+logBoxChange(NIL);
+updateSbar();
+end; // switchEasyMode
+
+procedure TmainFrm.Rename1Click(Sender: TObject);
+begin
+if assigned(selectedFile) then
+  filesBox.Selected.EditText()
+end;
+
+procedure TmainFrm.noDownloadtimeout1Click(Sender: TObject);
+resourcestring
+  MSG = 'Enter the number of MINUTES with no download after which the program automatically shuts down.'
+    +#13'Leave blank to get no timeout.';
+var
+  s:string;
+begin
+if noDownloadTimeout > 0 then s:=intToStr(noDownloadTimeout)
+else s:='';
+if inputquery('No downloads timeout', MSG, s) then
+	try setnoDownloadTimeout(strToUInt(s))
+  except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR)
+  end;
+end;
+
+procedure Tmainfrm.initVFS();
+var
+  f:Tfile;
+begin
+uploadPaths:=NIL;
+if assigned(rootNode) then rootNode.delete();
+f:=Tfile.createVirtualFolder('/');
+f.flags:=f.flags+[FA_ROOT, FA_ARCHIVABLE];
+f.dontCountAsDownloadMask:='*.htm;*.html;*.css';
+f.defaultFileMask:='index.html;index.htm;default.html;default.htm';
+rootFile:=f;
+addFile(f, NIL, TRUE);
+rootNode:=rootFile.node;
+VFSmodified:=FALSE;
+lastFileOpen:='';
+end; // initVFS
+
+procedure TmainFrm.alwaysontopChkClick(Sender: TObject);
+begin updateAlwaysOnTop() end;
+
+procedure TmainFrm.hideGraph();
+begin
+graphSplitter.hide();
+graphBox.hide();
+graphInEasyMode:=FALSE;
+end; // hideGraph
+
+procedure TmainFrm.showGraph();
+begin
+graphSplitter.show();
+graphBox.show();
+graphBox.Height:=graph.size;
+if easyMode then graphInEasyMode:=TRUE;
+end; // showGraph
+
+procedure TmainFrm.Showbandwidthgraph1Click(Sender: TObject);
+begin showGraph() end;
+
+procedure TmainFrm.Pause1Click(Sender: TObject);
+var
+  cd: TconnData;
+begin
+cd:=selectedConnection();
+if cd = NIL then exit;
+with cd.conn do paused:=not paused;
+end;
+
+procedure TmainFrm.MIMEtypes1Click(Sender: TObject);
+begin showOptions(optionsFrm.mimePage) end;
+
+procedure TmainFrm.accounts1Click(Sender: TObject);
+begin showOptions(optionsFrm.accountsPage) end;
+
+procedure TmainFrm.CopyURL1Click(Sender: TObject);
+var
+  i: integer;
+  s: string;
+begin
+s:='';
+for i:=0 to filesBox.SelectionCount-1 do
+  s:=s+nodeTofile(filesBox.Selections[i]).fullURL()+CRLF;
+setLength(s, length(s)-2);
+setClip(s);
+end;
+
+procedure Tmainfrm.copyURLwithPasswordMenuClick(sender:TObject);
+var
+  a: Paccount;
+  user, pwd: string;
+  f: Tfile;
+begin
+if selectedFile = NIL then exit;
+user:=(sender as Tmenuitem).caption;
+delete(user, pos('&',user), 1);
+// protection may have been inherited
+f:=selectedFile;
+while assigned(f) and (f.accounts[FA_ACCESS] = NIL) and (f.user = '') do
+  f:=f.parent;
+
+if f.user = user then pwd:=f.pwd
+else
+  begin
+  a:=getAccount(user);
+  if assigned(a) then pwd:=a.pwd
+  else pwd:='';
+  end;
+if encodePwdUrlChk.checked then pwd:=totallyEncoded(pwd)
+else pwd:=encodeURL(pwd);
+
+setClip( selectedFile.fullURL( encodeURL(user)+':'+pwd ) )
+end; // copyURLwithPasswordMenuClick
+
+procedure Tmainfrm.copyURLwithAddressMenuClick(sender:Tobject);
+var
+  s, addr: string;
+  i: integer;
+begin
+addr:=(sender as Tmenuitem).Caption;
+delete(addr, pos('&',addr), 1);
+
+s:='';
+for i:=0 to filesBox.SelectionCount-1 do
+  s:=s+nodeTofile(filesBox.Selections[i]).fullURL('', addr)+CRLF;
+setLength(s, length(s)-2);
+
+setClip(s);
+end; // copyURLwithAddressMenuClick
+
+procedure TmainFrm.CopyURLwithfingerprint1Click(Sender: TObject);
+var
+  f: Tfile;
+  s, hash: string;
+  i: integer;
+begin
+if selectedFile = NIL then exit;
+s:='';
+try
+  for i:=0 to filesBox.SelectionCount-1 do
+    begin
+    f:=filesBox.Selections[i].data;
+
+    progFrm.show('Hashing '+f.name, TRUE);
+    progFrm.progress:=i / filesBox.SelectionCount;
+    application.ProcessMessages();
+
+    hash:=loadFingerprint(f.resource);
+    if (hash = '') and f.isFile() then
+      begin
+      progFrm.push( 1/filesBox.SelectionCount );
+      try hash:=createFingerprint(f.resource);
+      finally progFrm.pop() end;
+      if saveNewFingerprintsChk.checked and (hash > '') then
+        saveTextFile(f.resource+'.md5', hash);
+      end;
+    if progFrm.cancelRequested then exit;
+    s:=s + f.fullURL() + nonEmptyConcat('#!md5!', hash) + CRLF;
+    end;
+finally progFrm.hide() end;
+setLength(s, length(s)-2);
+
+urlBox.Text:=getTill(#13, s);
+setClip(s);
+end;
+
+procedure TmainFrm.urlBoxChange(Sender: TObject);
+begin updateCopyBtn() end;
+
+procedure TmainFrm.traymessage1Click(Sender: TObject);
+begin showOptions(optionsFrm.trayPage) end;
+
+procedure TmainFrm.Guide1Click(Sender: TObject);
+begin openURL('http://www.rejetto.com/hfs/guide/') end;
+
+procedure Tmainfrm.saveVFS(fn:string='');
+begin
+if blockLoadSave() then exit;
+if fn = '' then
+  begin
+  fn:=lastFileOpen;
+  if not promptForFileName(fn, 'VirtualFileSystem|*.vfs', 'vfs', 'Save VFS', '', TRUE) then
+    exit;
+  end;
+lastFileOpen:=fn;
+deleteFile(fn+BAK_EXT);
+renameFile(fn, fn+BAK_EXT);
+if not savefile(fn, addVFSheader(getVFS())) then
+  begin
+  deleteFile(fn);
+  renameFile(fn+BAK_EXT, fn);
+  msgDlg('Error saving', MB_ICONERROR);
+  exit;
+  end;
+if not backupSavingChk.checked then
+  deleteFile(fn+BAK_EXT);
+VFSmodified:=FALSE;
+loadingVFS.disableAutosave:=FALSE;
+addUniqueString(fn, trustedFiles);
+end; // saveVFS
+
+procedure TmainFrm.filesBoxAddition(Sender: TObject; Node: TTreeNode);
+begin VFSmodified:=TRUE end;
+
+procedure TmainFrm.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+quitting:=TRUE;
+runEventScript('quit');
+timer.enabled:=FALSE;
+if autosaveOptionsChk.checked then saveCFG();
+// we disconnectAll() before srv.free, so we can purgeConnections()
+if assigned(srv) then srv.disconnectAll(TRUE);
+purgeConnections();
+freeAndNIL(srv);
+freeAndNIL(tray);
+freeAndNIL(tray_ico);
+end;
+
+procedure TmainFrm.Logfile1Click(Sender: TObject);
+resourcestring
+  MSG = 'This function does not save any previous information to the log file.'
+    +#13'Instead, it saves all information that appears in the log box in real-time (from when you click "OK", below).'
+    +#13'Specify a filename for the log.'
+    +#13'If you leave the filename blank, no log file is saved.'
+    +#13
+    +#13'Here are some symbols you can use in the filename to split the log:'
+    +#13'  %d% -- day of the month (1..31)'
+    +#13'  %m% -- month (1..12)'
+    +#13'  %y% -- year (2000..)'
+    +#13'  %dow% -- day of the week (0..6)'
+    +#13'  %w% -- week of the year (1..53)'
+    +#13'  %user% -- username surrounded by parenthesis';
+begin
+InputQuery('Log file', MSG, logFile.filename)
+end;
+
+procedure TmainFrm.Font1Click(Sender: TObject);
+var
+  dlg: TFontDialog;
+begin
+dlg:=TFontDialog.Create(NIL);
+dlg.Font.name:=logFontName;
+dlg.Font.size:=logFontSize;
+if dlg.Execute then
+  begin
+  logBox.font.Assign(dlg.Font);
+  logFontName:=dlg.Font.Name;
+  logFontSize:=dlg.Font.size;
+  end;
+dlg.free;
+end;
+
+procedure TmainFrm.SetURL1Click(Sender: TObject);
+resourcestring
+  MSG = 'Please insert an URL for the link'
+    +#13
+    +#13'Do not forget to specify http:// or whatever.'
+    +#13'%%ip%% will be translated to your address';
+var
+  i: integer;
+  s: string;
+begin
+if selectedFile = NIL then exit;
+s:=selectedFile.resource;
+// this is a little help for who's linking an email. We don't mess with http/ftp because even www.asd.com may be the name of a folder.
+if ansiContainsStr(s, '@')
+and not ansiStartsText('mailto:', s)
+and not ansiContainsStr(s, '://')
+and not ansiContainsStr(s, '/') then
+  s:='mailto:'+s;
+if not inputquery('Set URL', MSG, s) then exit;
+for i:=0 to filesBox.SelectionCount-1 do
+  with nodeToFile(filesBox.Selections[i]) do
+    if FA_LINK in flags then
+      resource:=s;
+VFSmodified:=TRUE;
+end;
+
+procedure TmainFrm.Resetuserpass1Click(Sender: TObject);
+var
+  i: integer;
+  f: Tfile;
+begin
+for i:=0 to filesBox.SelectionCount-1 do
+  begin
+  f:=filesBox.Selections[i].data;
+  usersInVFS.drop(f.user, f.pwd);
+  f.user:='';
+  f.pwd:='';
+  end;
+VFSmodified:=TRUE;
+filesBox.Repaint();
+end;
+
+procedure TmainFrm.Switchtovirtual1Click(Sender: TObject);
+var
+  f: Tfile;
+  under: Ttreenode;
+  i: integer;
+  bakIcon: integer;
+  someLocked: boolean;
+  nodes: TtreenodeDynArray;
+begin
+if selectedFile = NIL then exit;
+nodes:=copySelection();
+
+addingItemsCounter:=0;
+try
+  someLocked:=FALSE;
+  for i:=0 to length(nodes)-1 do
+    if assigned(nodes[i]) then
+      with nodeToFile(nodes[i]) do
+        if isRealFolder() and not isRoot() then
+          if isLocked() then someLocked:=TRUE
+          else
+            begin
+            bakIcon:=icon;
+            f:=Tfile.create(resource);
+            under:=node.Parent;
+            include(f.flags, FA_VIRTUAL);
+            setNilChildrenFrom(nodes, i);
+            node.Delete();
+            addFile(f, under, TRUE);
+            f.setupImage(bakIcon);
+            f.node.Focused:=TRUE;
+            end;
+  VFSmodified:=TRUE;
+  if someLocked then msgDlg(MSG_SOME_LOCKED, MB_ICONWARNING);
+finally addingItemsCounter:=-1 end;
+end;
+
+procedure TmainFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+begin
+queryingClose:=TRUE;
+try
+  if confirmexitChk.checked and not windowsShuttingDown and not quitASAP then
+    if msgDlg('Quit?', MB_ICONQUESTION+MB_YESNO) = IDNO then
+      begin
+      canclose:=FALSE;
+      exit;
+      end;
+  if not checkVfsOnQuit() then
+    begin
+    canClose:=FALSE;
+    exit;
+    end;
+  stopAddingItems:=TRUE;
+  if lockTimerevent or not applicationFullyInitialized then
+    begin
+    quitASAP:=TRUE;
+    canClose:=FALSE;
+    end;
+  { it's better to switch off this flag, because some software that has been queried after us may prevent
+  { Windows from shutting down, but the flag would stay set, while Windows is no more shutting down. }
+  windowsShuttingDown:=FALSE;
+finally queryingClose:=FALSE end;
+end;
+
+procedure TmainFrm.Loginrealm1Click(Sender: TObject);
+resourcestring
+  MSG = 'The realm string is shown on the user/pass dialog of the browser.'
+    +#13'Here you can customize the realm for the login button';
+begin
+if not inputquery('Login realm', MSG, loginRealm) then exit;
+loginRealm:=trim(loginRealm);
+end;
+
+procedure TmainFrm.Introduction1Click(Sender: TObject);
+begin openURL('http://www.rejetto.com/hfs/guide/intro.html') end;
+
+procedure TmainFrm.Reset1Click(Sender: TObject);
+begin
+zeroMemory(@graph.samplesIn, sizeOf(graph.samplesIn));
+zeroMemory(@graph.samplesOut, sizeOf(graph.samplesOut));
+graph.maxV:=0;
+graph.beforeRecalcMax:=1;
+recalculateGraph();
+end;
+
+procedure TmainFrm.Resetfileshits1Click(Sender: TObject);
+var
+  n: Ttreenode;
+begin
+repaintTray();
+n:=rootnode;
+while assigned(n) do
+  begin
+  nodeToFile(n).DLcount:=0;
+  n:=n.getNext();
+  end;
+VFSmodified:=TRUE;
+autoupdatedFiles.clear();
+end;
+
+procedure TmainFrm.persistentconnectionsChkClick(Sender: TObject);
+begin
+srv.persistentConnections:=persistentconnectionsChk.Checked;
+if not srv.persistentConnections then
+  Kickidleconnections1Click(NIL);
+end;
+
+procedure TmainFrm.Kickidleconnections1Click(Sender: TObject);
+var
+  i: integer;
+begin
+i:=0;
+while i < srv.conns.count do
+  begin
+  with conn2data(i) do
+    if conn.state = HCS_IDLE then
+      disconnect('kicked idle');
+  inc(i);
+  end;
+end;
+
+procedure TmainFrm.Connectionsinactivitytimeout1Click(Sender: TObject);
+resourcestring
+  MSG = 'The connection is kicked after a timeout.'
+    +#13'Specify in seconds.'
+    +#13'Leave blank to get no timeout.';
+var
+  s:string;
+begin
+if connectionsInactivityTimeout <= 0 then s:=''
+else s:=intToStr(connectionsInactivityTimeout);
+if not inputquery('Connection inactivity timeout', MSG, s) then exit;
+try connectionsInactivityTimeout:=strToUInt(s)
+except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR) end;
+end;
+
+procedure TmainFrm.splitHMoved(Sender: TObject);
+begin if connPnl.height > 0 then lastGoodConnHeight:=connPnl.height end;
+
+procedure TmainFrm.Clearfilesystem1Click(Sender: TObject);
+resourcestring
+  MSG = 'All changes will be lost'#13'Continue?';
+begin
+checkIfOnlyCountersChanged();
+if VFSmodified and (msgDlg(MSG, MB_ICONQUESTION+MB_YESNO) = IDNO) then exit;
+initVFS();
+end;
+
+function checkMultiInstance():boolean;
+begin
+result:=not mono.working;
+if result then msgDlg(MSG_SINGLE_INSTANCE, MB_ICONERROR);
+end; // checkMultiInstance
+
+function isIntegratedInShell():boolean;
+begin
+result:=(loadregistry('*\shell\Add to HFS\command', '', HKEY_CLASSES_ROOT) > '')
+  and (loadregistry('Folder\shell\Add to HFS\command','',HKEY_CLASSES_ROOT) >'')
+  and (loadregistry('.vfs', '', HKEY_CLASSES_ROOT) > '')
+  and (loadregistry('.vfs\shell\Open\command', '', HKEY_CLASSES_ROOT) > '')
+end; // isIntegratedInShell
+
+function integrateInShell():boolean;
+var
+  exe: string;
+
+  function addToContextMenuFor(kind:string):boolean;
+  begin
+  deleteRegistry(kind+'\shell\HFS', HKEY_CLASSES_ROOT); // legacy: till version 2.0 beta23 we used this key. this call is to keep the registry clean from old unused keys.
+  result:=saveRegistry(kind+'\shell\Add to HFS\command', '',
+    '"'+exe+'" "%1"', HKEY_CLASSES_ROOT);
+  end;
+
+begin
+exe:=expandFileName(paramStr(0));
+result:=addToContextMenuFor('*')
+  and addToContextMenuFor('Folder')
+  and saveregistry('.vfs','','HFS file system', HKEY_CLASSES_ROOT)
+  and saveregistry('.vfs\shell\Open\command','','"'+exe+'" "%1"', HKEY_CLASSES_ROOT)
+end; // integrateInShell
+
+procedure disintegrateShell();
+begin
+deleteRegistry('*\shell\Add to HFS', HKEY_CLASSES_ROOT);
+deleteRegistry('*\shell\HFS', HKEY_CLASSES_ROOT);
+deleteRegistry('Folder\shell\Add to HFS', HKEY_CLASSES_ROOT);
+deleteRegistry('Folder\shell\HFS', HKEY_CLASSES_ROOT);
+deleteRegistry('.vfs\shell\Open\command', HKEY_CLASSES_ROOT);
+deleteRegistry('.vfs', HKEY_CLASSES_ROOT);
+end; // disintegrateShell
+
+procedure uninstall();
+const
+  BATCH_FILE = 'hfs.uninstall.bat';
+  BATCH = 'START "" /WAIT "%s" -q'+CRLF
+    +'DEL "%0:s"'+CRLF
+    +'DEL %%0'+CRLF;
+begin
+if checkMultiInstance() then exit;
+mainfrm.autosaveoptionsChk.checked:=FALSE;
+disintegrateShell();
+deleteCFG();
+saveTextFile(BATCH_FILE, format(BATCH,[paramStr(0)]));
+quitASAP:=TRUE;
+execNew(BATCH_FILE);
+end; // uninstall
+
+procedure processParams_before(var params:TStringDynArray; allowed:string='');
+var
+  i, n, consume: integer;
+  fn: string;
+
+  function getSinglePar():string;
+  begin
+  if i >= length(params)-1 then raise Exception.Create('missing parameter needed');
+  consume:=2;
+  result:=params[i+1];
+  end; // getSinglePar
+
+begin
+//** see if FindCmdLineSwitch() can be useful for the job below
+i:=2; // [0] is cwd [1] is the exe file
+while i < length(params) do
+  begin
+  if (length(params[i]) = 2) and (params[i][1] = '-')
+  and ((allowed = '') or (pos(params[i][2], allowed) > 0)) then
+    begin
+    consume:=1; // number of params an option takes
+    case params[i][2] of
+      'q': quitASAP:=TRUE;
+      'u': uninstall();
+      'i': cfgPath:=IncludeTrailingPathDelimiter(getSinglePar());
+      'b': userIcsBuffer:=strToIntDef(getSinglePar(), 0);
+      'B': userSocketBuffer:=strToIntDef(getSinglePar(), 0);
+      'd': // delay
+        begin
+        n:=strToIntDef(getSinglePar(), 0);
+        if n > 0 then sleep(n*100);
+        end;
+      'a':
+        begin
+        fn:=getSinglePar();
+        if not fileExists(fn) then fn:=cfgPath+fn;
+        if not fileExists(fn) then exit;
+        mainfrm.setcfg(loadTextFile(fn));
+        end;
+      'c': mainfrm.setcfg(unescapeNL(getSinglePar()));
+      end;
+    for consume:=1 to consume do removeString(params, i);
+    continue;
+    end;
+  inc(i);
+  end;
+end; // processParams_before
+
+procedure Tmainfrm.processParams_after(var params:TStringDynArray);
+var
+  i: integer;
+  dir: string;
+begin
+dir:=includeTrailingPathDelimiter(popString(params));
+popString(params); // hfs.exe
+for i:=0 to length(params)-1 do
+  if not isAbsolutePath(params[i]) then
+    params[i]:=dir+params[i];
+// note: 2 .vfs files will be treated as any file
+if (length(params) = 1) and isExtension(params[0], '.vfs') then
+  begin
+  if blockLoadSave() then exit;
+  mainfrm.loadVFS(params[0])
+  end
+else
+  { parameters are also passed by other instances via sendMessage().
+  { since this operation may require user interaction, it must be queued
+  { because those instances wouldn't quit until the dialog is closed. }
+  addArray(filesToAddQ, params);
+end; // processParams_after
+
+procedure TmainFrm.Numberofloggeduploads1Click(Sender: TObject);
+begin setTrayShows('uploads') end;
+
+procedure Tmainfrm.compressReply(cd:TconnData);
+const
+  BAD_IE_THRESHOLD = 2000; // under this size (few bytes less, really) old IE versions will go nuts with UTF-8 pages
+var
+  s: ansistring;
+begin
+if not compressedbrowsingChk.checked then exit;
+s:=cd.conn.reply.body;
+if s = '' then exit;
+if ipos('gzip', cd.conn.getHeader('Accept-Encoding')) = 0 then exit;
+// workaround for IE6 pre-SP2 bug
+if (cd.workaroundForIEutf8  = toDetect) and (cd.agent > '') then
+  if reMatch(cd.agent, '^MSIE [4-6]\.', '!') > 0 then // version 6 and before
+    cd.workaroundForIEutf8:=yes
+  else
+    cd.workaroundForIEutf8:=no;
+s:=ZcompressStr2(s, zcFastest);
+if (cd.workaroundForIEutf8  = yes) and (length(s) < BAD_IE_THRESHOLD) then exit;
+cd.conn.addHeader('Content-Encoding: gzip');
+//cd.conn.addHeader('Content-Length: '+intToStr(length(s)));
+cd.conn.reply.body:=s;
+end; // compressReply
+
+procedure TmainFrm.Flagfilesaddedrecently1Click(Sender: TObject);
+resourcestring
+  MSG = 'Enter the number of MINUTES files stay flagged from their addition.'
+    +#13'Leave blank to disable.';
+var
+  s: string;
+begin
+if filesStayFlaggedForMinutes <= 0 then s:=''
+else s:=intToStr(filesStayFlaggedForMinutes);
+if InputQuery('Flag new files', MSG, s) then
+	try
+  	s:=trim(s);
+  	if s = '' then filesStayFlaggedForMinutes:=0
+    else filesStayFlaggedForMinutes:=strToInt(s);
+  except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR)
+  end;
+end;
+
+procedure TmainFrm.Flagasnew1Click(Sender: TObject);
+var
+  i: integer;
+begin
+if selectedFile = NIL then exit;
+for i:=0 to filesBox.SelectionCount-1 do
+  nodeTofile(filesBox.Selections[i]).atime:=now();
+VFSmodified:=TRUE;
+end;
+
+function removeFlagNew(f:Tfile; childrenDone:boolean; par, par2:integer):TfileCallbackReturn;
+begin
+result:=[];
+VFSmodified:=TRUE;
+f.atime:=now()-succ(filesStayFlaggedForMinutes)/(24*60)
+end; // removeFlagNew
+
+procedure TmainFrm.Resetnewflag1Click(Sender: TObject);
+var
+  i: integer;
+begin
+if selectedFile = NIL then exit;
+for i:=0 to filesBox.SelectionCount-1 do
+  nodeTofile(filesBox.Selections[i]).recursiveApply(removeFlagNew);
+VFSmodified:=TRUE;
+end;
+
+procedure TmainFrm.resetOptions1Click(Sender: TObject);
+var
+  keepAccounts: Taccounts;
+begin
+(sender as Tmenuitem).enabled:=FALSE;
+restoreCfgBtn.show();
+eventScripts.fullText:='';
+backuppedCfg:=getCfg();
+keepAccounts:=accounts;
+setCfg(defaultCfg);
+accounts:=keepAccounts;
+end;
+
+procedure Tmainfrm.setStatusBarText(s:string; lastFor:integer);
+begin
+with sbar.panels[sbar.panels.count-1] do
+  begin
+  alignment:=taLeftJustify;
+  text:=s;
+  end;
+sbarTextTimeout:=now()+lastFor/SECONDS;
+end;
+
+procedure TmainFrm.Donate1Click(Sender: TObject);
+begin openURL('http://www.rejetto.com/hfs-donate') end;
+
+procedure TmainFrm.Donotlogaddress1Click(Sender: TObject);
+resourcestring
+  MSG = 'Any event from the following IP address mask will be not logged.';
+begin
+inputQuery('Do not log address', MSG, dontLogAddressMask)
+end;
+
+procedure TmainFrm.Custom1Click(Sender: TObject);
+resourcestring
+  MSG = 'Specify your addresses, each per line';
+var
+  s: string;
+  a: TStringDynArray;
+begin
+s:=join(CRLF, customIPs);
+if not inputQueryLong('Custom IP addresses', MSG, s) then exit;
+customIPs:=split(CRLF, s);
+removeStrings('', customIPs);
+// change the address if it is not available anymore
+a:=getPossibleAddresses();
+if assigned(a) and not stringExists(defaultIP, a) then
+  setDefaultIP(a[0]);
+end;
+
+procedure TmainFrm.Findexternaladdress1Click(Sender: TObject);
+resourcestring
+  MSG = 'Can''t find external address'#13'( %s )';
+var
+  service: string;
+begin
+// this is a manual request, try twice
+if not getExternalAddress(externalIP, @service)
+and not getExternalAddress(externalIP, @service) then
+  begin
+  msgDlg(format(MSG, [service]), MB_ICONERROR);
+  exit;
+  end;
+setDefaultIP(externalIP);
+msgDlg(externalIP);
+end;
+
+procedure TmainFrm.sbarDblClick(Sender: TObject);
+var
+  i: integer;
+begin
+i:=whatStatusPanel(sbar,sbar.screenToClient(mouse.cursorPos).X);
+if (i = sbarIdxs.totalIn) or (i = sbarIdxs.totalOut) then
+  if msgDlg('Do you want to reset total in/out?', MB_YESNO) = IDYES then
+    begin
+    outTotalOfs:=-srv.bytesSent;
+    inTotalOfs:=-srv.bytesReceived;
+    end;
+if i = sbarIdxs.banStatus then BannedIPaddresses1Click(NIL);
+if i = sbarIdxs.customTpl then Edit1Click(NIL);
+if i = sbarIdxs.oos then Minimumdiskspace1Click(NIL);
+if i = sbarIdxs.out then Speedlimit1Click(NIL);
+if i = sbarIdxs.notSaved then Savefilesystem1Click(NIL); 
+end;
+
+procedure TmainFrm.sbarMouseDown(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
+begin
+// since right click is not used for now, it will act as double click
+if button = mbRight then
+  sbarDblClick(sender);
+end;
+
+procedure forceDynDNSupdate(url:string='');
+resourcestring
+  MSG = 'This option makes pointless the option "Find external address at startup", which has now been disabled for your convenience.';
+begin
+dyndns.url:=url;
+if url = '' then exit; 
+// this function is called when setting any dyndns service.
+// calling it from somewhere else may make the following test unsuitable
+if mainfrm.findExtOnStartupChk.checked then
+  begin
+  mainfrm.findExtOnStartupChk.checked:=FALSE;
+  msgDlg(MSG, MB_ICONINFORMATION);
+  exit;
+  end;
+dyndns.active:=TRUE;
+dyndns.lastIP:='';
+externalIP:='';
+end; // forceDynDNSupdate
+
+procedure TmainFrm.Custom2Click(Sender: TObject);
+resourcestring
+  MSG = 'Enter URL for updating.'
+    +#13'%ip% will be translated to your external IP.';
+var
+  s: string;
+begin
+s:=dyndns.url;
+if inputQuery('Enter URL', MSG, s) then
+  if ansiStartsText('https://', s) then
+    msgDlg('Sorry, HTTPS is not supported yet', MB_ICONERROR)
+  else
+    forceDynDNSupdate(s);
+end;
+
+procedure TmainFrm.Defaultpointtoaddfiles1Click(Sender: TObject);
+begin
+if selectedFile = NIL then exit;
+addToFolder:=selectedFile.url();
+msgDlg('Ok');
+end;
+
+function dynDNSinputUserPwd():boolean;
+begin
+result:=inputQuery('Enter user', 'Enter user', dyndns.user)
+  and (dyndns.user > '')
+  and inputQuery('Enter password', 'Enter password', dyndns.pwd)
+  and (dyndns.pwd > '');
+dyndns.user:=trim(dyndns.user);
+dyndns.pwd:=trim(dyndns.pwd);
+end; // dynDNSinputUserPwd
+
+function dynDNSinputHost():boolean;
+begin
+result:=FALSE;
+while true do
+  begin
+  if not inputQuery('Enter host', 'Enter domain (full form!)', dyndns.host)
+  or (dyndns.host = '') then exit;
+  dyndns.host:=trim(dyndns.host);
+  if pos('://', dyndns.host) > 0 then
+    chop('://', dyndns.host);
+  if pos('.', dyndns.host) > 0 then
+    begin
+    result:=TRUE;
+    exit;
+    end;
+  msgDlg('Please, enter it in the FULL form, with dots', MB_ICONERROR);
+  end;
+end; // dynDNSinputHost
+
+procedure finalizeDynDNS();
+begin
+addString(dyndns.host, customIPs);
+setDefaultIP(dyndns.host);
+end; // finalizeDynDNS
+
+procedure TmainFrm.NoIPtemplate1Click(Sender: TObject);
+begin
+if not dynDNSinputUserPwd() or not dynDNSinputHost() then exit;
+forceDynDNSupdate('http://'+dyndns.user+':'+dyndns.pwd+'@dynupdate.no-ip.com/nic/update?hostname='+dyndns.host);
+finalizeDynDNS();
+end;
+
+procedure TmainFrm.CJBtemplate1Click(Sender: TObject);
+begin
+if not dynDNSinputUserPwd() then exit;
+forceDynDNSupdate('http://www.cjb.net/cgi-bin/dynip.cgi?username='+dyndns.user+'&password='+dyndns.pwd+'&ip=%ip%');
+dyndns.host:=dyndns.user+'.cjb.net';
+finalizeDynDNS();
+end;
+
+procedure TmainFrm.DynDNStemplate1Click(Sender: TObject);
+begin
+if not dynDNSinputUserPwd() or not dynDNSinputHost() then exit;
+forceDynDNSupdate('http://'+dyndns.user+':'+dyndns.pwd+'@members.dyndns.org/nic/update?hostname='+dyndns.host+'&myip=%ip%&wildcard=NOCHG&backmx=NOCHG&mx=NOCHG&system=dyndns');
+finalizeDynDNS();
+end;
+
+procedure TmainFrm.Minimumdiskspace1Click(Sender: TObject);
+resourcestring
+  MSG = 'The upload will fail if your disk has less than the specified amount of free MegaBytes.';
+var
+  s: string;
+begin
+if minDiskSpace <= 0 then s:=''
+else s:=intToStr(minDiskSpace);
+if InputQuery('Min disk space', MSG, s) then
+	try
+  	s:=trim(s);
+  	if s = '' then minDiskSpace:=0
+    else minDiskSpace:=strToInt(s);
+  except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR)
+  end;
+end;
+
+function pointToCharPoint(re:TRichEdit; pt:Tpoint):Tpoint;
+const
+  EM_EXLINEFROMCHAR = WM_USER+54;
+begin
+result.x:=re.perform(EM_CHARFROMPOS, 0, integer(@pt));
+if result.x < 0 then exit;
+result.y:=re.perform(EM_EXLINEFROMCHAR, 0, result.x);
+dec(result.x, re.perform(EM_LINEINDEX, result.y, 0));
+end; // pointToCharPoint
+
+function Tmainfrm.ipPointedInLog():string;
+var
+  i: integer;
+  s: string;
+  pt: Tpoint;
+begin
+result:='';
+pt:=pointToCharPoint(logBox, logRightClick);
+if pt.x < 0 then
+  pt:=logbox.caretpos;
+if pt.y >= logbox.lines.count then exit;
+s:=logbox.lines[pt.y];
+if pt.x > length(s) then exit;
+i:=pt.x;
+while (i > 1) and (s[i] <> ' ') do dec(i);
+inc(i);
+s:=copy(s,i, posEx(' ',s,i));
+s:=trim(getTill(':',getTill('@',s)));
+if checkAddressSyntax(s,FALSE) then
+  result:=s;
+end; // ipPointedInLog
+
+procedure TmainFrm.Banthisaddress1Click(Sender: TObject);
+begin banAddress(ipPointedInLog()); end;
+
+procedure TmainFrm.Address2name1Click(Sender: TObject);
+begin showOptions(optionsFrm.a2nPage) end;
+
+procedure TmainFrm.Addresseseverconnected1Click(Sender: TObject);
+begin
+if modalOptionsChk.checked then ipsEverFrm.ShowModal()
+else ipsEverFrm.show()
+end;
+
+procedure TmainFrm.Renamepartialuploads1Click(Sender: TObject);
+resourcestring
+  MSG = 'This string will be appended to the filename.'
+    +#13
+    +#13'If you need more control, enter a string with %name% in it, and this symbol will be replaced by the original filename.';
+begin
+InputQuery('Rename partial uploads', MSG, renamePartialUploads)
+end;
+
+procedure TmainFrm.SelfTest1Click(Sender: TObject);
+resourcestring
+  MSG_BEFORE = 'Here you can test if your server does work on the Internet.'
+    +#13'If you are not interested in serving files over the Internet, this is NOT for you.'
+    +#13
+    +#13'We''ll now perform a test involving network activity.'
+    +#13'In order to complete this test, you may need to allow HFS''s activity in your firewall, by clicking Allow on the warning prompt.'
+    +#13
+    +#13'WARNING: for the duration of the test, all ban rules and limits on the number of connections won''t apply.';
+  MSG_OK = 'The test is successful. The server should be working fine.';
+  MSG_OK_PORT = 'Port %s is not working, but another working port has been found and set: %s.';
+  MSG_3 = 'You may be behind a router or firewall.';
+  MSG_6 = 'You are behind a router.'
+    +#13'Ensure it is configured to forward port %s to your computer.';
+  MSG_7 = 'You may be behind a firewall.'
+    +#13'Ensure nothing is blocking HFS.';
+
+  function doTheTest(host:string; port:string=''):string;
+
+    function findRedirection():boolean;
+    var
+      http: THttpCli;
+    begin
+    result:=FALSE;
+    http:=Thttpcli.create(NIL);
+    try
+      http.url:=host;
+      http.agent:=HFS_HTTP_AGENT;
+      try http.get()
+      except // a redirection will result in an exception
+        if (http.statusCode < 300) or (http.statusCode >= 400) then exit;        
+        result:=TRUE;
+        host:=http.hostname;
+        port:=http.ctrlSocket.Port;
+        end;
+    finally http.free end
+    end;
+
+  var
+    t: Tdatetime;
+    ms: integer;
+    name: string;
+  begin
+  result:='';
+  if progFrm.cancelRequested then exit;
+  { The user may be using the "port 80 redirect" service of no-ip, or a similar one.
+  { The redirection service does not support a request containing "test" as URL,
+  { considering it malformed (it requires a leading slash).
+  { Thus, we need to find the redirect here (client-side), and then test to see if
+  { the target of the redirection is a working HFS. }
+  if (port = '') and not checkAddressSyntax(host) and noPortInUrlChk.Checked then
+    name:=ifThen(findRedirection(), host);
+  if port = '' then
+    port:=srv.port;
+  if name = '' then
+    name:=host+':'+port;
+  progFrm.show('Testing '+name+' ...', TRUE);
+  if not srv.active and not startServer() then exit;
+  // we many need to try this specific test more than once
+    repeat
+    t:=now();
+    try result:=httpGet(SELF_TEST_URL+'?port='+port+'&host='+host+'&natted='+YESNO[localIPlist.IndexOf(externalIP)<0] )
+    except break end;
+    t:=now()-t;
+    if (result ='') or (result[1] <> '4') or progFrm.cancelRequested then break;
+    ms:=3100-round(t*SECONDS*1000); // we mean to never query faster than 1/3s
+    if ms > 0 then
+      sleep(ms);
+    until progFrm.cancelRequested;
+  end; // doTheTest
+
+  function successful(s:string):boolean;
+  begin result:=(s > '') and (s[1] = '1') end;
+
+var
+  best: record host, res: string; end;
+
+  procedure tryDifferentHosts();
+  var
+    i: integer;
+    tries: TStringDynArray;
+    s: string;
+  begin
+  if externalIP = '' then
+    begin
+    progFrm.show('Retrieving external address...');
+    getExternalAddress(externalIP);
+    end;
+  tries:=getPossibleAddresses();
+  // ensure defaultIP is the first one
+  insertString(defaultIP, 0, tries);
+  uniqueStrings(tries);
+
+  best.res:='';
+  for i:=0 to length(tries)-1 do
+    begin
+    if isLocalIP(tries[i]) then continue;
+
+    progFrm.progress:=succ(i)/succ(length(tries));
+    s:=doTheTest(tries[i]);
+    // we want a digit
+    if (s='') or not charInSet(s[1],['0'..'9']) then continue;
+    // we want a better one (lower)
+    if (best.res > '') and (best.res[1] <= s[1]) then continue;
+    // we consider this to be better, record it
+    best.res:=s;
+    best.host:=tries[i];
+    if successful(s) then break;
+    end;
+  end; // tryDifferentHosts
+
+  procedure tryDifferentPorts();
+  var
+    i: integer;
+    tries: TStringDynArray;
+    bak: record
+      port: string;
+      active: boolean;
+      end;
+    ip, s: string;
+  begin
+  ip:=defaultIP;
+  if isLocalIP(ip) then
+    ip:=externalIP;
+  if (ip='') or isLocalIP(ip) then
+    exit;
+  // build list of ports we'll test
+  tries:=toSA(['80','8123']);
+  removeString(srv.port, tries); // already tested
+
+  bak.active:=srv.active;
+  bak.port:=port;
+  for i:=0 to length(tries)-1 do
+    begin
+    progFrm.progress:=succ(i)/succ(length(tries));
+    port:=tries[i];
+    stopServer();
+    if not startServer() then continue;
+    s:=doTheTest(ip);
+    if successful(s) then break;
+    end;
+  if successful(s) and (best.res = '') then
+    begin
+    best.res:=s;
+    best.host:=defaultIP;
+    end
+  else
+    begin
+    port:=bak.port;
+    stopServer();
+    if bak.active then startServer();
+    end;
+  end; // tryDifferentPorts
+
+var
+  originalPort, s: string;
+begin
+if msgDlg(MSG_BEFORE, MB_ICONWARNING+MB_OKCANCEL) <> IDOK then exit;
+
+originalPort:=port;
+
+if not srv.active and not startServer() then
+  begin
+  port:='';
+  if not startServer() then
+    begin
+    msgDlg('Unable to switch the server on', MB_ICONERROR);
+    exit;
+    end;
+  end;
+
+if listenOn = '127.0.0.1' then
+  begin
+  msgDlg('Self test cannot be performed because HFS was configured to accept connections only on 127.0.0.1', MB_ICONERROR);
+  exit;
+  end;
+
+if httpsUrlsChk.checked then
+  msgDlg('Self test doesn''t support HTTPS.'#13'It''s likely it won''t work.', MB_ICONWARNING);
+
+disableUserInteraction();
+progFrm.show('Self testing...');
+selfTesting:=TRUE;
+try
+  best.res:='';
+  progFrm.push(0.5);
+  tryDifferentHosts();
+  progFrm.pop();
+
+  progFrm.push(0.4);
+  if not successful(best.res) then
+    tryDifferentPorts();
+  progFrm.pop();
+
+  s:=best.res;
+  if successful(s) then
+    begin
+    progFrm.progress:=1;
+    if (originalPort = '') or (originalPort = port) then
+      msgDlg(MSG_OK)
+    else
+      msgDlg(format(MSG_OK_PORT, [originalPort, port]));
+    if best.host <> defaultIP then setDefaultIP(best.host);
+    exit;
+    end
+  else
+
+
+  if progFrm.cancelRequested then
+    begin
+    msgDlg('Test cancelled');
+    exit;
+    end;
+
+  // error
+  if s = '' then
+    try
+      progFrm.show('Testing internet connection...');
+      httpGet(ALWAYS_ON_WEB_SERVER);
+      s:='Sorry, the test is unavailable at the moment';
+    except s:='Your internet connection does not work' end
+  else
+    begin
+    case s[1] of
+      '3': s:=MSG_3;
+      '6': s:=format(MSG_6, [first(port,'80')]);
+      '7': s:=MSG_7;
+      end;
+    s:='The test failed: server does not answer.'#13#13+s;
+    end;
+  msgDlg(s, MB_ICONERROR);
+
+finally
+  selfTesting:=FALSE;
+  reenableUserInteraction();
+  progFrm.hide();
+  end;
+end;
+
+procedure TmainFrm.Opendirectlyinbrowser1Click(Sender: TObject);
+resourcestring
+  MSG = '"Suggest" the browser to open directly the specified files.'
+    +#13'Other files should pop up a save dialog.';
+begin
+InputQuery('Open directly in browser', MSG, openInBrowser)
+end;
+
+procedure TmainFrm.noPortInUrlChkClick(Sender: TObject);
+resourcestring
+  MSG = 'You should not use this option unless you really know its meaning.'
+    +#13'Continue?';
+begin
+if noPortInUrlChk.Checked and (msgDlg(MSG, MB_YESNO) = ID_YES) then
+  mainfrm.updateUrlBox()
+else
+  noPortInUrlChk.Checked:=FALSE;
+end;
+
+function getTplEditor():string;
+begin
+result:=first([
+  if_(fileExists(tplEditor), nonEmptyConcat('"', tplEditor, '"')),
+  loadregistry('SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\notepad++.exe', '', HKEY_LOCAL_MACHINE),
+  'notepad.exe'
+])
+end;
+
+procedure TmainFrm.Edit1Click(Sender: TObject);
+begin
+if not fileExists(tplFilename) then
+  begin
+  tplFilename:=TPL_FILE;
+  saveTextFile(tplFilename, defaultTpl);
+  end;
+exec(getTplEditor(), '"'+tplFilename+'"');
+end;
+
+procedure TmainFrm.Editeventscripts1Click(Sender: TObject);
+resourcestring
+  HELP = 'For help on how to use this file please refer http://www.rejetto.com/wiki/?title=HFS:_Event_scripts';
+var
+  fn: string;
+begin
+fn:=cfgPath+EVENTSCRIPTS_FILE;
+if not fileExists(fn) then
+  saveTextFile(fn, HELP);
+exec(getTplEditor(), '"'+fn+'"');
+end;
+
+procedure TmainFrm.Editresource1Click(Sender: TObject);
+resourcestring
+  CAPTION = 'Edit resource';
+var
+  oldRes, oldName, res: string;
+  done, nameSync: boolean;
+begin
+if (selectedFile = NIL) or (FA_VIRTUAL in selectedFile.flags) then exit;
+res:=selectedFile.resource;
+oldRes:=res;
+oldName:=selectedFile.name;
+// name sync, only if the name was not customized
+nameSync:= selectedFile.name = ExtractFileName(selectedFile.resource);
+if selectedFile.isFolder then done:=selectFolder(CAPTION, res)
+else done:=PromptForFileName(res, '', '', CAPTION);
+if done then VFSmodified:=TRUE;
+selectedFile.setResource(res);
+if not nameSync then selectedFile.setName(oldName);
+selectedFile.setupImage();
+end;
+
+procedure TmainFrm.enableMacrosChkClick(Sender: TObject);
+resourcestring
+  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;
+
+procedure TmainFrm.modeBtnClick(Sender: TObject);
+begin setEasyMode(not easyMode) end;
+
+procedure TmainFrm.Shellcontextmenu1Click(Sender: TObject);
+begin
+if isIntegratedInShell() then disintegrateShell()
+else if integrateInShell() then msgDlg(MSG_ADD_TO_HFS)
+else msgDlg(MSG_ERROR_REGISTRY, MB_ICONERROR);
+end;
+
+procedure TmainFrm.menuBtnClick(Sender: TObject);
+begin popupMainMenu() end;
+
+var
+  bakShellMenuText: string;
+procedure TmainFrm.menuPopup(Sender: TObject);
+resourcestring
+  REMOVE_SHELL = 'Remove from shell context menu';
+  S_OFF = 'Switch OFF';
+  S_ON = 'Switch ON';
+  LOG = 'Log';
+
+  procedure showSetting(mi:Tmenuitem; v:integer; unit_:string); overload;
+  begin mi.caption:=getTill('...', mi.caption, TRUE)+if_(v>0, format('       (%d %s)', [v, unit_])) end;
+
+var
+  i: integer;
+begin
+if quitting then exit; // here we access some objects like srv that may not be ready anymore
+
+refreshIPlist();
+for i:=1 to Fingerprints1.Count-1 do
+  Fingerprints1.items[i].Enabled:=fingerprintsChk.checked;
+
+logmenu.items.caption:=LOG;
+if menu.items.find(logmenu.items.caption) = NIL then
+  menu.items.insert(7,logmenu.items);
+
+SwitchON1.imageIndex:=if_(srv.active, 11, 4);
+SwitchON1.caption:=if_(srv.active, S_OFF, S_ON);
+
+Appendmacroslog1.Enabled:=macrosLogChk.checked;
+stopSpidersChk.Enabled:=not fileExistsByURL('/robots.txt');
+Showbandwidthgraph1.visible:=not graphBox.visible;
+if bakShellMenuText='' then
+  bakShellMenuText:=Shellcontextmenu1.Caption;
+Shellcontextmenu1.Caption:=if_(isIntegratedInShell(), REMOVE_SHELL, bakShellMenuText);
+showSetting(mainFrm.Connectionsinactivitytimeout1, connectionsInactivityTimeout, 'seconds');
+showSetting(mainFrm.Minimumdiskspace1, minDiskSpace, 'MB');
+showSetting(mainFrm.Flagfilesaddedrecently1, filesStayFlaggedForMinutes, 'minutes');
+Restore1.visible:=trayed;
+Restoredefault1.Enabled:=tplIsCustomized;
+Numberofcurrentconnections1.Checked:= trayShows='connections';
+Numberofloggedhits1.checked:= trayShows='hits';
+Numberofloggeddownloads1.checked:= trayShows='downloads';
+Numberofloggeduploads1.Checked:= trayShows='uploads';
+NumberofdifferentIPaddresses1.Checked:= trayShows='ips';
+NumberofdifferentIPaddresseseverconnected1.Checked:= trayShows='ips-ever';
+ondownloadChk.checked:= flashOn='download';
+onconnectionChk.checked:= flashOn='connection';
+never1.checked:= flashOn='';
+defaultToVirtualChk.Checked:= addFolderDefault='virtual';
+defaultToRealChk.Checked:= addFolderDefault='real';
+askFolderKindChk.Checked:= addFolderDefault='';
+name1.Checked:= TRUE;
+time1.Checked:= defSorting='time';
+size1.checked:= defSorting='size';
+hits1.Checked:= defSorting='hits';
+Extension1.Checked:= defSorting='ext';
+Renamepartialuploads1.Enabled:=not deletePartialUploadsChk.checked;
+Seelastserverresponse1.visible:= dyndns.lastResult>'';
+Disable1.visible:= dyndns.url>'';
+try RunHFSwhenWindowsstarts1.checked:= paramStr(0) = readShellLink(startupFilename)
+except RunHFSwhenWindowsstarts1.checked:= FALSE end;
+// point out where the options will automatically be saved
+tofile1.Default:= saveMode=SM_FILE;
+toregistrycurrentuser1.default:= saveMode=SM_USER;
+toregistryallusers1.Default:= saveMode=SM_SYSTEM;
+
+Reverttopreviousversion1.Visible:=fileExists(exePath+PREVIOUS_VERSION);
+Saveoptions1.visible:=not easyMode;
+testerUpdatesChk.visible:=not easyMode;
+preventStandbyChk.visible:=not easyMode;
+searchbetteripChk.visible:=not easyMode;
+Addfiles2.visible:=easyMode;
+Addfolder2.visible:=easyMode;
+freeLoginChk.visible:=not easyMode;
+Speedlimitforsingleaddress1.visible:=not easyMode;
+quitWithoutAskingToSaveChk.visible:=not easyMode;
+backupSavingChk.visible:=not easyMode;
+Defaultsorting1.visible:=not easyMode;
+sendHFSidentifierChk.visible:=not easyMode;
+URLencoding1.visible:=not easyMode;
+persistentconnectionsChk.visible:=not easyMode;
+DMbrowserTplChk.visible:=not easyMode;
+MIMEtypes1.visible:=not easyMode;
+compressedbrowsingChk.visible:=not easyMode;
+modalOptionsChk.visible:=not easyMode;
+Allowedreferer1.visible:=not easyMode;
+Fingerprints1.visible:=not easyMode;
+findExtOnStartupChk.visible:=not easyMode;
+listfileswithsystemattributeChk.visible:=not easyMode;
+Custom1.visible:=not easyMode;
+noPortInUrlChk.visible:=not easyMode;
+DynamicDNSupdater1.visible:=not easyMode;
+only1instanceChk.visible:=not easyMode;
+Flashtaskbutton1.visible:=not easyMode;
+HintsfornewcomersChk.visible:=not easyMode;
+Graphrefreshrate1.visible:=not easyMode;
+foldersbeforeChk.visible:=not easyMode;
+listfileswithhiddenattributeChk.visible:=not easyMode;
+saveTotalsChk.visible:=not easyMode;
+trayfordownloadChk.visible:=not easyMode;
+Accounts1.visible:=not easyMode;
+VirtualFileSystem1.visible:=not easyMode;
+Pausestreaming1.visible:=not easyMode;
+Maxconnections1.visible:=not easyMode;
+Maxconnectionsfromsingleaddress1.visible:=not easyMode;
+maxIPsDLing1.visible:=not easyMode;
+maxIPs1.visible:=not easyMode;
+MaxDLsIP1.visible:=not easyMode;
+Connectionsinactivitytimeout1.visible:=not easyMode;
+minimumDiskSpace1.visible:=not easyMode;
+HTMLtemplate1.visible:=not easyMode;
+shellcontextmenu1.visible:=not easyMode;
+useCommentAsRealmChk.visible:=not easyMode;
+openDirectlyInBrowser1.visible:=not easyMode;
+keepBakUpdatingChk.visible:=not easyMode;
+loginRealm1.visible:=not easyMode;
+DumprequestsChk.visible:=not easyMode;
+logBytesreceivedChk.visible:=not easyMode;
+logBytessentChk.visible:=not easyMode;
+logconnectionsChk.visible:=not easyMode;
+logDisconnectionsChk.visible:=not easyMode;
+autoCommentChk.visible:=not easyMode;
+traymessage1.visible:=not easyMode;
+showmaintrayiconChk.visible:=not easyMode;
+numberOfLoggedHits1.visible:=not easyMode;
+Showcustomizedoptions1.visible:=not easyMode;
+enableNoDefaultChk.visible:=not easyMode;
+browseUsingLocalhostChk.visible:=not easyMode;
+useISOdateChk.visible:=not easyMode;
+Addicons1.visible:=not easyMode;
+Acceptconnectionson1.visible:=not easyMode;
+numberFilesOnUploadChk.visible:=not easyMode;
+Renamepartialuploads1.visible:=not easyMode;
+deletePartialUploadsChk.visible:=not easyMode;
+updateAutomaticallyChk.visible:=not easyMode;
+stopSpidersChk.visible:=not easyMode;
+linksBeforeChk.visible:=not easyMode;
+Debug1.visible:=not easyMode;
+delayUpdateChk.visible:=not easyMode;
+end;
+
+function paramsAsArray():TStringDynArray;
+var
+  i: integer;
+begin
+i:=paramCount();
+setlength(result, i+2);
+result[0]:=monoLib.initialPath;
+for i:=0 to i do result[i+1]:=paramStr(i);
+end; // paramsAsArray
+
+function Tmainfrm.finalInit():boolean;
+
+  function getBrowserPath():string;
+  var
+    i: integer;
+  begin
+  result:=loadRegistry('HTTP\shell\open\command', '', HKEY_CLASSES_ROOT);
+  if result = '' then exit;
+  i:=nonQuotedPos(' ', result);
+  if i > 0 then
+    delete(result, i, MAXINT);
+  result:=dequote(result);
+  end; // getBrowserPath
+
+  procedure fixAddToHFS();
+  var
+    should: string;
+
+    procedure fix(kind:string);
+    var
+      s: string;
+    begin
+    s:=loadregistry(kind+'\shell\Add to HFS\command', '', HKEY_CLASSES_ROOT);
+    if (s > '') and (s <> should) then
+      saveRegistry(kind+'\shell\Add to HFS\command','', should, HKEY_CLASSES_ROOT);
+    end;
+
+  begin
+  should:='"'+expandFileName(paramstr(0))+'" "%1"';
+  fix('*');
+  fix('Folder');
+  end; // fixAddToHFS
+
+  function loadAndApplycfg():boolean;
+  resourcestring
+    MSG = 'You are invited to re-insert your No-IP configuration, otherwise the updater won''t work as expected.';
+  var
+    iniS, tplS: string;
+  begin
+  loadCfg(iniS, tplS);
+  result:=setcfg(iniS, FALSE);
+  // convert old no-ip template url to new one (build#204)
+  if dyndns.active and ansiContainsText(dyndns.url, 'no-ip.com') and not ansiContainsText(dyndns.url, 'nic/update')
+  and (msgDlg(MSG, MB_OKCANCEL+MB_ICONWARNING) = MROK) then
+      NoIPtemplate1Click(NIL);
+  if (tplS > '') and assigned(tpl) then setTplText(tplS);
+  if lastUpdateCheck = 0 then
+    lastUpdateCheck:=getMtime(lastUpdateCheckFN);
+  end; // loadAndApplycfg
+
+  procedure strToConnColumns(l:string);
+  var
+    s, labl: string;
+    i: integer;
+  begin
+  while l > '' do
+    with connBox.columns do
+      begin
+      s:=chop('|',l);
+      if s = '' then continue;
+      labl:=chop(';',s);
+      for i:=0 to count-1 do
+        with items[i] do
+          if caption = labl then
+            begin
+            width:=strToIntDef(s, width);
+            break;
+            end;
+      end;
+  end; // strToConnColumns
+
+var
+  cfgLoaded: boolean;
+  params: TStringDynArray;
+begin
+result:=FALSE;
+
+{ it would be nice, but this is screwing our layouts. so for now we'll just stay with the main window.
+for i:=0 to application.componentCount-1 do
+  if application.components[i] is Tform then
+    fixFontFor(application.components[i] as Tform);
+}
+fixFontFor(mainFrm);
+sbar.canvas.font.assign(sbar.font); // this is just a workaround, i don't exactly understand the need of it.
+
+// some windows versions do not support multiline tray tips
+if winVersion < WV_2000 then trayNL:='  ';
+
+trayMsg:='%ip%'
+  +trayNL+'Uptime: %uptime%'
+  +trayNL+'Downloads: %downloads%';
+
+startingImagesCount:=mainfrm.images.count;
+srv:=ThttpSrv.create();
+srv.autoFreeDisconnectedClients:=FALSE;
+srv.limiters.add(globalLimiter);
+srv.onEvent:=httpEvent;
+tray_ico:=Ticon.create();
+tray:=TmyTrayicon.create(self);
+DragAcceptFiles(handle, true);
+caption:=format('HFS ~ HTTP File Server %s%sBuild %s',
+  [VERSION, stringOfChar(' ',80), VERSION_BUILD]);
+application.Title:=format('HFS %s (%s)', [VERSION, VERSION_BUILD]);
+setSpeedLimit(-1);
+setSpeedLimitIP(-1);
+setGraphRate(10);
+setMaxConnections(0);
+setMaxConnectionsIP(0);
+setMaxDLs(0);
+setMaxDLsIP(0);
+setMaxIPs(0);
+setMaxIPsDLing(0);
+setnoDownloadTimeout(0);
+setAutosave(autosaveVFS, 0);
+setAutoFingerprint(0);
+setLogToolbar(FALSE);
+
+autosaveVFS.minimum:=5;
+autosaveVFS.menu:=autosaveevery1;
+
+params:=paramsAsArray();
+processParams_before(params, 'i');
+
+initVFS();
+setFilesBoxExtras(winVersion <> WV_VISTA);
+
+defaultCfg:=replaceText(getCfg(), 'active=no', 'active=yes');
+
+loadEvents();
+cfgLoaded:=FALSE;
+// if SHIFT is pressed skip configuration loading
+if not holdingKey(VK_SHIFT) then
+  cfgLoaded:=loadAndApplyCFG()
+else
+  setStatusBarText('Clean start');
+
+// CTRL avoids the only1instance setting
+if not holdingKey(VK_CONTROL)
+and only1instanceChk.checked and not mono.master then
+  begin
+  result:=FALSE;
+  quitASAP:=TRUE;
+  end;
+
+if not cfgLoaded then
+  setTplText(defaultTpl);
+  
+processParams_before(params);
+
+if not quitASAP then
+  begin
+
+  if not cfgLoaded then
+    begin
+    startServer();
+    if not isIntegratedInShell() then
+      with TshellExtFrm.create(mainfrm) do
+        try
+          if showModal() = mrYes then
+            if not integrateInShell() then
+              msgDlg(MSG_ERROR_REGISTRY, MB_ICONERROR);
+        finally free end;
+    end;
+
+  if findExtOnStartupChk.checked and getExternalAddress(externalIP) then
+    setDefaultIP(externalIP);
+
+  end;
+
+// no address set or not available anymore
+if not stringExists(defaultIP, getPossibleAddresses()) then
+  setDefaultIP(getIP());
+
+progFrm:=TprogressForm.create();
+progFrm.preventBackward:=TRUE;
+updateUrlBox();
+application.HintPause:=100;
+splitV.AutoSnap:=FALSE;
+splitV.AutoSnap:=TRUE;
+splitV.update();
+graph.size:=graphBox.height;
+if not quitASAP then
+  begin
+  if autocopyURLonStartChk.Checked then
+    setClip( rootFile.fullURL() );
+
+
+  if reloadonstartupChk.checked then
+    if not fileExists(lastFileOpen) and not fileExists(lastFileOpen+BAK_EXT) then
+      lastFileOpen:='';
+
+  if getMtime(VFS_TEMP_FILE) > getMtime(lastFileOpen) then
+    if msgDlg('A file system backup has been created for a system shutdown.'#13'Do you want to restore this backup?', MB_YESNO+MB_ICONWARNING) = MRYES then
+      begin
+      deleteFile(lastFileOpen+BAK_EXT);
+      if renameFile(lastFileOpen, lastFileOpen+BAK_EXT) then
+        renameFile(VFS_TEMP_FILE, lastFileOpen)
+      else
+        lastFileOpen:=VFS_TEMP_FILE
+      end;
+
+  loadVFS(lastFileOpen);
+  end;
+processParams_after(params);
+
+if not quitASAP then
+  begin
+  if not cfgLoaded then
+    setEasyMode(easyMode);
+  tray.setIcon(tray_ico);
+  tray.onEvent:=trayEvent;
+  if showmaintrayiconChk.checked then addTray();
+  end;
+timer.Enabled:=TRUE;
+applicationFullyInitialized:=TRUE;
+if quitASAP then
+  begin
+  application.showmainform:=FALSE;
+  close();
+  exit;
+  end;
+
+show();
+strToConnColumns(serializedConnColumns);
+if startminimizedChk.checked then application.Minimize();
+if findExtOnStartupChk.checked and (externalIP = '') then
+  setStatusBarText('Search for external address failed', 30);
+updatePortBtn();
+fixAddToHFS();
+filesBox.setFocus();
+//loadEvents();
+formResize(NIL); // recalculate to solve graphical glitches
+
+if not tplIsCustomized then
+  runTplImport();
+
+runEventScript('start');
+{** trying to move loadEvents() before loadCfg()
+if srv.active then
+  runEventScript('server start'); // because this event wouldn't fire at start, the server was already on
+}
+end; // finalInit
+
+function expertModeNeededMsg():string;
+begin result:=if_(easyMode, 'Switch to expert mode.') end;
+
+procedure TmainFrm.Dontlogsomefiles1Click(Sender: TObject);
+begin
+msgDlg(expertModeNeededMsg()
+  +#13'Select the files/folder you don''t want to be logged,'
+  +#13'then right click and select "Don''t log".');
+end;
+
+procedure TmainFrm.progFrmHttpGetUpdate(sender:Tobject; buffer:pointer; len:integer);
+begin
+with sender as ThttpCli do
+  begin
+  progFrm.progress:=safeDiv(0.0+RcvdCount, contentLength);
+  if progFrm.cancelRequested then abort();
+  end;
+end; // progFrmHttpGetUpdate
+
+function purgeFilesCB(f:Tfile; childrenDone:boolean; par, par2:integer):TfileCallbackReturn;
+begin
+result:=[];
+if f.locked or f.isRoot() then exit;
+result:=[FCB_RECALL_AFTER_CHILDREN];
+if f.isFile() and purgeFrm.rmFilesChk.checked and not fileExists(f.resource)
+or f.isRealFolder() and purgeFrm.rmRealFoldersChk.checked and not sysutils.directoryExists(f.resource)
+or f.isVirtualFolder() and purgeFrm.rmEmptyFoldersChk.checked and (f.node.count = 0)
+then result:=[FCB_DELETE]; // don't dig further
+end; // purgeFilesCB
+
+procedure TmainFrm.Properties1Click(Sender: TObject);
+begin
+if selectedFile = NIL then exit;                                                                           
+
+filepropFrm:=TfilepropFrm.Create(mainFrm);
+try
+  if filepropFrm.showModal() = mrCancel then exit;
+finally freeAndNIL(filepropFrm) end;
+VFSmodified:=TRUE;
+filesBox.invalidate();
+end;
+
+procedure TmainFrm.Purge1Click(Sender: TObject);
+var
+  f: Tfile;
+begin
+f:=selectedFile;
+if f = NIL then f:=rootFile;
+if purgeFrm = NIL then
+  application.CreateForm(TpurgeFrm, purgeFrm);
+if purgeFrm.showModal() <> mrOk then exit;
+f.recursiveApply(purgeFilesCB);
+end;
+
+procedure TmainFrm.UninstallHFS1Click(Sender: TObject);
+begin
+if checkMultiInstance() then exit;
+if msgDlg('Delete HFS and all settings?', MB_ICONQUESTION+MB_YESNO) <> IDYES then
+  exit;
+uninstall();
+end;
+
+procedure TmainFrm.maxIPs1Click(Sender: TObject);
+resourcestring
+  MSG = 'Max simultaneous addresses.';
+  MSG2 = 'In this moment there are %d different addresses';
+var
+  s: string;
+  i: integer;
+begin
+if maxIPs > 0 then s:=intToStr(maxIPs)
+else s:='';
+if inputquery('Max addresses', MSG+#13+MSG_EMPTY_NO_LIMIT, s) then
+	try setMaxIPs(strToUInt(s))
+  except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR)
+  end;
+if maxIPs = 0 then exit;
+i:=countIPs();
+if i > maxIPs then
+  msgDlg(format(MSG2, [i]), MB_ICONWARNING);
+end;
+
+procedure TmainFrm.maxIPsDLing1Click(Sender: TObject);
+resourcestring
+  MSG = 'Max simultaneous addresses downloading.';
+  MSG2 = 'In this moment there are %d different addresses downloading';
+var
+  s: string;
+  i: integer;
+begin
+if maxIPsDLing > 0 then s:=intToStr(maxIPsDLing)
+else s:='';
+if inputquery('Max addresses downloading', MSG+#13+MSG_EMPTY_NO_LIMIT, s) then
+	try setMaxIPsDLing(strToUInt(s))
+  except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR)
+  end;
+if maxIPsDLing = 0 then exit;
+i:=countIPs(TRUE);
+if i > maxIPsDLing then
+  msgDlg(format(MSG2, [i]), MB_ICONWARNING);
+end;
+
+procedure TmainFrm.Maxlinesonscreen1Click(Sender: TObject);
+resourcestring
+  MSG = 'Max lines on screen';
+var
+  s: string;
+begin
+s:=if_(logMaxLines > 0, intToStr(logMaxLines));
+  repeat
+  if not inputQuery(MSG, MSG+'.'#13+MSG_EMPTY_NO_LIMIT, s) then break;
+  try
+    logMaxLines:=strToUInt(s);
+    break;
+  except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR) end;
+  until false;
+end;
+
+procedure TmainFrm.Autosaveevery1Click(Sender: TObject);
+begin autosaveClick(autosaveVFS, 'file system') end;
+
+procedure TmainFrm.Apachelogfileformat1Click(Sender: TObject);
+resourcestring
+  MSG = 'Here you can specify how to format the log file complying Apache standard.'
+    +#13'Leave blank to get bare copy of screen on file.'
+    +#13
+    +#13'Example:'
+    +#13'   %h %l %u %t "%r" %>s %b';
+begin
+InputQuery('Apache log file format', MSG, logFile.apacheFormat)
+end;
+
+procedure TmainFrm.Bindroottorealfolder1Click(Sender: TObject);
+var
+  f: Tfile;
+  res: string;
+begin
+f:=selectedFile;
+if (f = NIL) or not f.isVirtualFolder() or not f.isRoot() then exit;
+res:=exePath;
+if not selectFolder('', res) then exit;
+f.setResource(res);
+exclude(f.flags, FA_VIRTUAL);
+VFSmodified:=TRUE;
+end;
+
+procedure TmainFrm.Unbindroot1Click(Sender: TObject);
+var
+  f: Tfile;
+begin
+f:=selectedFile;
+if (f = NIL) or not f.isRealFolder() or not f.isRoot() then exit;
+f.setResource('');
+f.uploadFilterMask:='';
+f.accounts[FA_UPLOAD]:=NIL;
+include(f.flags, FA_VIRTUAL);
+VFSmodified:=TRUE;
+end;
+
+procedure TmainFrm.SwitchON1Click(Sender: TObject);
+begin toggleServer() end;
+
+procedure TmainFrm.Switchtorealfolder1Click(Sender: TObject);
+var
+  i: integer;
+  someLocked: boolean;
+  list: TtreeNodeDynArray;
+begin
+if selectedFile = NIL then exit;
+someLocked:=FALSE;
+list:=copySelection();
+for i:=0 to length(list)-1 do
+  if assigned(list[i]) then
+    with nodeTofile(list[i]) do
+      if isVirtualFolder() and not isRoot() and (resource > '') then
+        if isLocked() then someLocked:=TRUE
+        else
+          begin
+          exclude(flags, FA_VIRTUAL);
+          setResource(resource);
+          setupImage();
+          setNilChildrenFrom(list, i);
+          node.DeleteChildren();
+          end;
+VFSmodified:=TRUE;
+if someLocked then msgDlg(MSG_SOME_LOCKED, MB_ICONWARNING);
+end;
+
+procedure TmainFrm.abortBtnClick(Sender: TObject);
+begin stopAddingItems:=TRUE end;
+
+procedure TmainFrm.Seelastserverresponse1Click(Sender: TObject);
+var
+  fn: string;
+begin
+if ipos('<html>', dyndns.lastResult) = 0 then
+  begin
+  msgDlg(dyndns.lastResult);
+  exit;
+  end;
+fn:=saveTempFile(UTF8encode(dyndns.lastResult));
+if fn = '' then
+  begin
+  msgDlg(MSG_NO_TEMP, MB_ICONERROR);
+  exit;
+  end;
+renameFile(fn, fn+'.html');
+exec(fn+'.html');
+end;
+
+procedure TmainFrm.Showcustomizedoptions1Click(Sender: TObject);
+var
+  default: TStrings;
+  current, defV, v, k: string;
+  diff: string;
+begin
+default:=TStringList.create();
+default.text:=defaultCfg;
+current:=getCfg();
+diff:='# '+VERSION+' (build '+VERSION_BUILD+')'+CRLF;
+
+while current > '' do
+  begin
+  v:=chopLine(current);
+  k:=chop('=', v);
+  if ansiEndsStr('-width', k) or ansiEndsStr('-height', k)
+  or stringExists(k, ['active','window','graph-visible','graph-size','ip', 'accounts',
+    'dynamic-dns-user', 'dynamic-dns-host', 'ips-ever', 'ips-ever-connected',
+    'icon-masks-user-images', 'last-external-address', 'last-dialog-folder'])
+  then continue;
+  
+  defV:=default.values[k];
+  if defV = v then continue;
+  if k = 'dynamic-dns-updater' then
+    begin // remove login data
+    v:=base64decode(v);
+    chop('//',v);
+    v:=chop('/',v);
+    if ansiContainsStr(v, '@') then chop('@',v);
+    v:='...'+v+'...';
+    end;
+  diff:=diff+k+'='+v+CRLF+'# default: '+defV+CRLF+CRLF;
+  end;
+default.free;
+
+diffFrm.memoBox.text:=diff;
+diffFrm.showModal();
+end;
+
+procedure TmainFrm.useISOdateChkClick(Sender: TObject);
+begin applyISOdateFormat() end;
+
+procedure TmainFrm.RunHFSwhenWindowsstarts1Click(Sender: TObject);
+begin
+deleteFile(startupFilename); // we delete both for deactivation (of course) and before activation (to purge possible existing links to other exe files)
+if not (sender as Tmenuitem).Checked then
+  createShellLink(startupFilename, paramStr(0));
+end;
+
+procedure TmainFrm.Runscript1Click(Sender: TObject);
+begin
+if not fileExists(tempScriptFilename) then
+  saveTextFile(tempScriptFilename, '');
+runScriptLast:=getMtime(tempScriptFilename);
+if runScriptFrm = NIL then
+  runScriptFrm:=TrunScriptFrm.create(self);
+runScriptFrm.show();
+exec(getTplEditor(), '"'+tempScriptFilename+'"');
+end;
+
+procedure TmainFrm.minimizeToTray();
+begin
+application.Minimize();
+addTray();
+showWindow(application.handle, SW_HIDE); // hide taskbar button
+trayed:=TRUE;
+end; // minimizeToTray
+
+procedure TmainFrm.askFolderKindChkClick(Sender: TObject);
+begin addFolderDefault:='' end;
+
+procedure TmainFrm.defaultToVirtualChkClick(Sender: TObject);
+begin addFolderDefault:='virtual' end;
+
+procedure TmainFrm.defaultToRealChkClick(Sender: TObject);
+begin addFolderDefault:='real' end;
+
+procedure TmainFrm.Addicons1Click(Sender: TObject);
+var
+  files: TStringDynArray;
+  i, n: integer;
+begin
+if not selectFiles('', files) then exit;
+n:=images.Count;
+for i:=0 to length(files)-1 do
+  getImageIndexForFile(files[i]);
+n:=images.Count-n;
+msgDlg(format('%d new icons added',[n]));
+end;
+
+procedure TmainFrm.Iconmasks1Click(Sender: TObject);
+begin showOptions(optionsFrm.iconsPage) end;
+
+procedure TmainFrm.Anyaddress1Click(Sender: TObject);
+begin
+listenOn:='';
+restartServer();
+end;
+
+procedure Tmainfrm.acceptOnMenuclick(sender:Tobject);
+begin
+listenOn:=(sender as Tmenuitem).caption;
+delete(listenOn, pos('&',listenOn), 1);
+restartServer();
+end; // acceptOnMenuclick
+
+procedure TmainFrm.filesBoxEndDrag(Sender, Target: TObject; X, Y: Integer);
+begin
+scrollFilesBox:=-1;
+filesBox.Refresh();
+end;
+
+procedure TmainFrm.filesBoxEnter(Sender: TObject);
+begin setFilesBoxExtras(TRUE) end;
+
+procedure TmainFrm.filesBoxExit(Sender: TObject);
+begin setFilesBoxExtras(filesBox.MouseInClient) end;
+
+procedure TmainFrm.Disable1Click(Sender: TObject);
+begin
+dyndns.url:='';
+msgDlg('Dynamic DNS updater disabled');
+end;
+
+procedure TmainFrm.saveNewFingerprintsChkClick(Sender: TObject);
+resourcestring
+  MSG = 'This option creates an .md5 file for every new calculated fingerprint.'
+    +#13'Use with care to get not your disk invaded by these files.';
+begin
+if saveNewFingerprintsChk.Checked then
+  msgDlg(MSG, MB_ICONWARNING);
+end;
+
+procedure TmainFrm.Createfingerprintonaddition1Click(Sender: TObject);
+resourcestring
+  MSG = 'When you add files and no fingerprint is found, it is calculated.'
+    +#13'To avoid long waitings, set a limit to file size (in KiloBytes).'
+    +#13'Leave empty to disable, and have no fingerprint created.';
+var
+  s: string;
+begin
+if autoFingerprint = 0 then s:=''
+else s:=intToStr(autoFingerprint);
+if not inputquery('Auto fingerprint', MSG, s) then exit;
+try setAutoFingerprint(strToUInt(s))
+except msgDlg(MSG_INVALID_VALUE, MB_ICONERROR) end;
+end;
+
+procedure TmainFrm.pwdInPagesChkClick(Sender: TObject);
+resourcestring
+  MSG = 'This feature is INCOMPATIBLE with Internet Explorer.';
+begin
+if pwdInPagesChk.Checked
+and (msgDlg(MSG, MB_ICONWARNING+MB_OKCANCEL) = IDOK) then
+  begin
+  msgDlg(MSG_ENABLED);
+  exit;
+  end;
+pwdInPagesChk.checked:=FALSE;
+msgDlg(MSG_DISABLED)
+end;
+
+procedure TmainFrm.Howto1Click(Sender: TObject);
+begin msgDLg(getRes('uploadHowTo')) end;
+
+procedure TmainFrm.Name1Click(Sender: TObject);
+begin defSorting:='name' end;
+
+procedure TmainFrm.Size1Click(Sender: TObject);
+begin defSorting:='size' end;
+
+procedure TmainFrm.Time1Click(Sender: TObject);
+begin defSorting:='time' end;
+
+procedure TmainFrm.Hits1Click(Sender: TObject);
+begin defSorting:='hits' end;
+
+procedure TmainFrm.Resettotals1Click(Sender: TObject);
+begin resetTotals() end;
+
+procedure TmainFrm.copyBtnClick(Sender: TObject);
+begin setClip(urlBox.text) end;
+
+function TmainFrm.copySelection():TtreeNodeDynArray;
+var
+  i: integer;
+begin
+setlength(result, filesBox.SelectionCount);
+for i:=0 to filesBox.SelectionCount-1 do result[i]:=filesbox.selections[i];
+end; // copySelection
+
+procedure TmainFrm.menuMeasure(sender:Tobject; cnv: Tcanvas; var w:integer; var h:integer);
+begin
+with sender as Tmenuitem do
+  if isLine() then
+    w:=cnv.textwidth(hint+'----')
+  else
+    w:=cnv.textWidth(caption+'----')+images.Width;
+h:=getSystemMetrics(SM_CYMENU);
+end;
+
+procedure TmainFrm.menuDraw(sender:Tobject; cnv: Tcanvas; r:Trect; selected:boolean);
+var
+  mi: Tmenuitem;
+  s: string;
+  i: integer;
+begin
+mi:=sender as Tmenuitem;
+if mi.IsLine() then
+  begin
+  i:=(r.Bottom+r.top) div 2;
+  cnv.Pen.Color:=clBtnHighlight;
+  cnv.MoveTo(r.Left, i);
+  cnv.lineTo(r.right, i);
+  cnv.Pen.Color:=clBtnShadow;
+  cnv.MoveTo(r.Left, i-1);
+  cnv.lineTo(r.right, i-1);
+
+  if mi.hint = '' then exit;
+  s:=' '+mi.hint+' ';
+  inc(r.Top, cnv.TextHeight(s) div 5);
+  cnv.font.color:=clBtnHighlight;
+  drawText(cnv.handle, pchar(s), -1, r, DT_VCENTER or DT_CENTER);
+  setBkMode(cnv.handle, TRANSPARENT);
+  cnv.font.color:=clBtnShadow;
+  dec(r.Left);
+  dec(r.top);
+  drawText(cnv.handle, pchar(s), -1, r, DT_VCENTER or DT_CENTER);
+  exit;
+  end;
+cnv.fillRect(r);
+inc(r.left, images.width*2);
+inc(r.top,2);
+drawText(cnv.handle, pchar(mi.caption), -1, r, DT_LEFT or DT_VCENTER);
+dec(r.left, images.width*2);
+
+if mi.ImageIndex >= 0 then
+  images.draw(cnv, r.left+1, r.top, mi.ImageIndex);
+if mi.Checked then
+  begin
+  cnv.font.Name:='WingDings';
+  with cnv.Font do size:=size+2;
+  cnv.TextOut(r.Left+images.width, r.Top, 'ü'); // check mark
+  end;
+end;
+
+var
+  dll: HMODULE;
+
+INITIALIZATION
+
+randomize();
+setErrorMode(SEM_FAILCRITICALERRORS);
+exePath:=extractFilePath(ExpandFileName(paramStr(0)));
+cfgPath:=exePath;
+// we give priority to exePath because some people often clear the temp folder
+tmpPath:=exePath;
+if saveTextfile(tmpPath+'test.tmp','') then
+  deleteFile(tmpPath+'test.tmp')
+else
+  tmpPath:=getTempDir();
+lastUpdateCheckFN:=tmpPath+'HFS last update check.tmp';
+setCurrentDir(exePath); // sometimes people mess with the working directory, so we force it to the exe path
+if fileExists('default.tpl') then
+  defaultTpl:=loadTextfile('default.tpl')
+else
+  defaultTpl:=getRes('defaultTpl');
+tpl_help:=getRes('tplHlp');
+tpl:=Ttpl.create();
+defSorting:='name';
+dmBrowserTpl:=Ttpl.create(getRes('dmBrowserTpl'));
+filelistTpl:=Ttpl.create(getRes('filelistTpl'));
+globalLimiter:=TspeedLimiter.create();
+ip2obj:=THashedStringList.create();
+etags:=THashedStringList.create();
+sessions:=THashedStringList.create();
+ipsEverConnected:=THashedStringList.create();
+ipsEverConnected.sorted:=TRUE;
+ipsEverConnected.duplicates:=dupIgnore;
+ipsEverConnected.delimiter:=';';
+logMaxLines:=2000;
+trayShows:='downloads';
+flashOn:='download';
+forwardedMask:='127.0.0.1';
+runningOnRemovable:=DRIVE_REMOVABLE = GetDriveTypeA(PansiChar(ansistring(exePath[1]+':\')));
+etags.values['exe']:=strMD5(dateToHTTP(getMtimeUTC(paramStr(0))));
+
+dll:=GetModuleHandle('kernel32.dll');
+if dll <> HINSTANCE_ERROR then
+  setThreadExecutionState:=getprocaddress(dll, 'SetThreadExecutionState');
+
+toDelete:=Tlist.create();
+usersInVFS:=TusersInVFS.create();
+
+openInBrowser:='*.htm;*.html;*.jpg;*.jpeg;*.gif;*.png;*.txt;*.swf;*.svg';
+MIMEtypes:=toSA([
+	'*.htm;*.html', 'text/html',
+  '*.jpg;*.jpeg;*.jpe', 'image/jpeg',
+  '*.gif', 'image/gif',
+  '*.png', 'image/png',
+  '*.bmp', 'image/bmp',
+  '*.ico', 'image/x-icon',
+  '*.mpeg;*.mpg;*.mpe', 'video/mpeg',
+  '*.avi', 'video/x-msvideo',
+  '*.txt', 'text/plain',
+  '*.css', 'text/css',
+  '*.js',  'text/javascript'
+]);
+
+systemimages:=getSystemimages();
+saveMode:=SM_USER;
+lastDialogFolder:=getCurrentDir();
+autoupdatedFiles:=TstringToIntHash.create();
+iconsCache:=TiconsCache.create();
+dyndns.active:=TRUE;
+connectionsInactivityTimeout:=60; // 1 minute
+startupFilename:=getShellFolder('Startup')+'\HFS.lnk';
+tempScriptFilename:=getTempDir()+'hfs script.tmp';
+
+logfile.apacheZoneString:=if_(GMToffset < 0, '-','+')
+  +format('%.2d%.2d', [abs(GMToffset div 60), abs(GMToffset mod 60)]);
+
+
+FINALIZATION
+
+progFrm.free;
+toDelete.free;
+tpl.free;
+filelistTpl.free;
+autoupdatedFiles.free;
+iconsCache.free;
+usersInVFS.free;
+globalLimiter.Free;
+ip2obj.free;
+ipsEverConnected.free;
+etags.free;
+
+end.
diff --git a/monoLib.pas b/monoLib.pas
new file mode 100644
index 0000000..107274e
--- /dev/null
+++ b/monoLib.pas
@@ -0,0 +1,110 @@
+{
+Copyright (C) 2002-2008 Massimo Melina (www.rejetto.com)
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+
+This lib ensures only one instance of the software does run
+}
+unit monoLib;
+
+interface
+
+uses
+  windows, messages, forms, classes, sysUtils;
+
+type
+  Tmono = class
+  private
+    msgID: Thandle;
+    Fmaster: boolean;
+    Ferror: string;
+    Fworking: boolean;
+    function hook(var msg:TMessage):boolean;
+  public
+    onSlaveParams: procedure(params:string);
+    property error:string read Ferror;
+    property master:boolean read Fmaster;
+    property working:boolean read Fworking;
+
+    function init(id:string):boolean; // FALSE on error
+    procedure sendParams();
+    end;
+
+var
+  mono: Tmono;
+  initialPath: string;
+  
+implementation
+
+const
+  //MSG_WHEREAREYOU = 1;
+  //MSG_HEREIAM = 2;
+  MSG_PARAMS = 3;
+
+function atomToStr(atom:Tatom):string;
+begin
+setlength(result, 5000);
+setlength(result, globalGetAtomName(atom, @result[1], length(result)));
+end; // atomToStr
+
+function Tmono.hook(var msg:TMessage):boolean;
+begin
+result:=master and (msg.msg = msgID) and (msg.wparam = MSG_PARAMS);
+if not result or not assigned(onSlaveParams) then exit;
+msg.Result:=1;
+onSlaveParams(atomToStr(msg.lparam));
+GlobalDeleteAtom(msg.LParam);
+end; // hook
+
+function Tmono.init(id:string):boolean;
+begin
+result:=FALSE;
+msgID:=registerWindowMessage(pchar(id));
+application.HookMainWindow(hook);
+// the mutex is auto-released when the application terminates
+if createMutex(nil, True, pchar(id)) = 0 then
+  begin
+  setlength(Ferror,1000);
+  setlength(Ferror, FormatMessage(
+    FORMAT_MESSAGE_FROM_SYSTEM+FORMAT_MESSAGE_IGNORE_INSERTS, NIL,
+    GetLastError(), 0, @Ferror[1], length(Ferror), NIL) );
+  exit;
+  end;
+Fmaster:= GetLastError() <> ERROR_ALREADY_EXISTS;
+Fworking:=TRUE;
+result:=TRUE;
+end; // init
+
+procedure Tmono.sendParams();
+var
+  s: string;
+  i: integer;
+begin
+s:=initialPath+#13+paramStr(0);
+for i:=1 to paramCount() do
+  s:=s+#13+paramStr(i);
+// the master will delete the atom
+postMessage(HWND_BROADCAST, msgId, MSG_PARAMS, globalAddAtom(pchar(s)));
+end; // sendParams
+
+initialization
+initialPath:=getCurrentDir();
+mono:=Tmono.create;
+
+finalization
+mono.free;
+
+end.
diff --git a/newuserpassDlg.dfm b/newuserpassDlg.dfm
new file mode 100644
index 0000000..4afff35
--- /dev/null
+++ b/newuserpassDlg.dfm
@@ -0,0 +1,73 @@
+object newuserpassFrm: TnewuserpassFrm
+  Left = 362
+  Top = 207
+  BorderStyle = bsDialog
+  Caption = 'Insert the requested user/pass'
+  ClientHeight = 131
+  ClientWidth = 302
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object userBox: TLabeledEdit
+    Left = 104
+    Top = 16
+    Width = 121
+    Height = 21
+    EditLabel.Width = 48
+    EditLabel.Height = 13
+    EditLabel.Caption = 'Username'
+    LabelPosition = lpLeft
+    TabOrder = 0
+  end
+  object pwdBox: TLabeledEdit
+    Left = 104
+    Top = 40
+    Width = 121
+    Height = 21
+    EditLabel.Width = 46
+    EditLabel.Height = 13
+    EditLabel.Caption = 'Password'
+    LabelPosition = lpLeft
+    PasswordChar = '*'
+    TabOrder = 1
+  end
+  object pwd2Box: TLabeledEdit
+    Left = 104
+    Top = 64
+    Width = 121
+    Height = 21
+    EditLabel.Width = 85
+    EditLabel.Height = 13
+    EditLabel.Caption = 'Re-type password'
+    LabelPosition = lpLeft
+    PasswordChar = '*'
+    TabOrder = 2
+  end
+  object okBtn: TButton
+    Left = 104
+    Top = 96
+    Width = 75
+    Height = 25
+    Caption = '&Ok'
+    Default = True
+    TabOrder = 3
+    OnClick = okBtnClick
+  end
+  object resetBtn: TButton
+    Left = 192
+    Top = 96
+    Width = 75
+    Height = 25
+    Caption = '&Reset'
+    TabOrder = 4
+    OnClick = resetBtnClick
+  end
+end
diff --git a/newuserpassDlg.pas b/newuserpassDlg.pas
new file mode 100644
index 0000000..98e7753
--- /dev/null
+++ b/newuserpassDlg.pas
@@ -0,0 +1,90 @@
+{
+Copyright (C) 2002-2012  Massimo Melina (www.rejetto.com)
+
+This file is part of HFS ~ HTTP File Server.
+
+    HFS is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    HFS is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with HFS; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+}
+unit newuserpassDlg;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, utilLib;
+
+type
+  TnewuserpassFrm = class(TForm)
+    userBox: TLabeledEdit;
+    pwdBox: TLabeledEdit;
+    pwd2Box: TLabeledEdit;
+    okBtn: TButton;
+    resetBtn: TButton;
+    procedure okBtnClick(Sender: TObject);
+    procedure resetBtnClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    function prompt(var usr,pwd:string):boolean;
+  end;
+
+var
+  newuserpassFrm: TnewuserpassFrm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TnewuserpassFrm.okBtnClick(Sender: TObject);
+var
+  error: string;
+begin
+userBox.text:=trim(userBox.text);
+pwdBox.text:=trim(pwdBox.text);
+error:='';
+if (userBox.text > '') and not validUsername(userBox.Text)
+or (pwdBox.text > '') and not validUsername(pwdBox.text) then
+  error:='The characters below are not allowed'#13'/\:?*"<>|;&&@'
+else if (pwdBox.text > '') and (userBox.text = '') then
+  error:='User is mandatory'
+else if pwdBox.text <> pwd2Box.text then
+  error:='The two passwords you entered don''t match';
+
+if error = '' then ModalResult:=mrOk
+else msgDlg(error, MB_ICONERROR);
+end;
+
+procedure TnewuserpassFrm.resetBtnClick(Sender: TObject);
+begin
+userBox.text:='';
+pwdBox.text:='';
+pwd2Box.text:='';
+end;
+
+procedure TnewuserpassFrm.FormShow(Sender: TObject);
+begin userBox.SetFocus() end;
+
+function TnewuserpassFrm.prompt(var usr,pwd:string):boolean;
+begin
+userBox.Text:=usr;
+pwdBox.text:=pwd;
+pwd2Box.text:=pwd;
+result:= ShowModal() = mrOk;
+usr:=userBox.Text;
+pwd:=pwdBox.text;
+end;
+
+end.
diff --git a/notes.txt b/notes.txt
new file mode 100644
index 0000000..9f41975
--- /dev/null
+++ b/notes.txt
@@ -0,0 +1,62 @@
+=== 4GB+ FILES DOWNLOAD SUPPORT 
+Reget Deluxe 4.1
+MetaProducts Download Express 1.7
+Getright
+Firefox 2.0
+
+=== 2GB+ FILES UPLOAD SUPPORT
+firefox 3.0: no
+
+=== HOW TO CREATE BIG FILES
+fsutil file createnew <filename> <filesize>
+
+=== HOW TO DOWNLOAD WITH NO DISK ACTIVITY (SPEED TEST)
+create a big file as above
+then download this way: wget -q -O nul http://localhost/big
+
+=== SUBMITTED TO
+www.nonags.com
+www.sharewareconnection.com
+
+=== LISTED ON
+www.sofotex.com
+www.download3000.com
+www.onekit.com
+www.all4you.dk/FreewareWorld
+www.snapfiles.com
+sourceforge
+www.freedownloadscenter.com
+download.freenet.de
+www.softonic.com
+www.portablefreeware.com
+www.download.com
+www.freewarepub.org
+www.handyarchive.com
+www.softpedia.com
+www.acidfiles.com
+www.fileedge.com
+www.freewarepark.com
+
+=== REVIEWS
+http://www.technospot.net/blogs/host-a-web-server-on-your-home-pc/
+http://www.snapfiles.com/get/hfs.html
+http://www.downloadsquad.com/2006/05/24/hft-quick-and-easy-http-file-server/
+http://www.caseytech.com/how-to-host-a-web-site-from-your-computer/
+http://www.chip.de/downloads/c1_downloads_29480524.html
+http://blog.pcserenity.com/2009/01/easy-conten-sharing-with-windows.html
+http://hfs.onehelp.ch
+http://www.lanacion.com.ar/nota.asp?nota_id=1148507
+http://blogmotion.fr/systeme/partage-windows-hfs-3947
+ita
+http://lafabbricadibyte.wordpress.com/2007/05/01/hfs-file-server-http-gratuito-per-windows/
+http://server.html.it/articoli/leggi/2335/hfs-file-sharing-via-http/
+
+=== OTHER SOFTWARE BASED ON HFS
+http://www.wrinx.com/products/pfs/
+  commercial, licensed
+http://www.powernetservers.com/pnwfs.php
+  commercial, probably unlicensed
+
+=== INSTALLABLE PLUGINS
+log links usage 
+    http://www.rejetto.com/forum/index.php/topic,7765.msg1047258.html#msg1047258
diff --git a/optionsDlg.dfm b/optionsDlg.dfm
new file mode 100644
index 0000000..7f834cf
--- /dev/null
+++ b/optionsDlg.dfm
@@ -0,0 +1,691 @@
+object optionsFrm: ToptionsFrm
+  Left = 287
+  Top = 162
+  BorderIcons = [biSystemMenu, biMinimize]
+  Caption = 'Options'
+  ClientHeight = 449
+  ClientWidth = 805
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnActivate = FormActivate
+  OnCreate = FormCreate
+  OnResize = FormResize
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 14
+  object pageCtrl: TPageControl
+    Left = 0
+    Top = 0
+    Width = 805
+    Height = 414
+    ActivePage = accountsPage
+    Align = alClient
+    Images = mainFrm.images
+    MultiLine = True
+    TabOrder = 0
+    object bansPage: TTabSheet
+      Caption = 'Bans'
+      ImageIndex = 25
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+      object Panel1: TPanel
+        Left = 0
+        Top = 0
+        Width = 797
+        Height = 30
+        Align = alTop
+        BevelOuter = bvNone
+        TabOrder = 0
+        object addBtn: TButton
+          Left = 4
+          Top = 5
+          Width = 73
+          Height = 21
+          Caption = 'Add row'
+          TabOrder = 0
+          OnClick = addBtnClick
+        end
+        object deleteBtn: TButton
+          Left = 86
+          Top = 5
+          Width = 73
+          Height = 21
+          Caption = 'Delete row'
+          TabOrder = 1
+          OnClick = deleteBtnClick
+        end
+        object sortBanBtn: TButton
+          Left = 168
+          Top = 5
+          Width = 73
+          Height = 21
+          Caption = 'Sort'
+          TabOrder = 2
+          OnClick = sortBanBtnClick
+        end
+      end
+      object bansBox: TValueListEditor
+        Left = 0
+        Top = 30
+        Width = 797
+        Height = 329
+        Align = alClient
+        KeyOptions = [keyEdit, keyAdd, keyDelete]
+        Strings.Strings = (
+          '=')
+        TabOrder = 1
+        TitleCaptions.Strings = (
+          'IP address mask'
+          'Comment')
+        ColWidths = (
+          108
+          683)
+      end
+      object Panel3: TPanel
+        Left = 0
+        Top = 359
+        Width = 797
+        Height = 26
+        Align = alBottom
+        BevelOuter = bvNone
+        TabOrder = 2
+        object noreplybanChk: TCheckBox
+          Left = 5
+          Top = 5
+          Width = 145
+          Height = 17
+          Caption = 'Disconnect with no reply'
+          TabOrder = 0
+        end
+        object Button1: TButton
+          Left = 176
+          Top = 4
+          Width = 141
+          Height = 19
+          Caption = 'How to invert the logic?'
+          TabOrder = 1
+          OnClick = Button1Click
+        end
+      end
+    end
+    object accountsPage: TTabSheet
+      Caption = 'Accounts'
+      ImageIndex = 29
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+      DesignSize = (
+        797
+        385)
+      object Label1: TLabel
+        Left = 9
+        Top = 16
+        Width = 57
+        Height = 14
+        Caption = 'Account list'
+        FocusControl = accountsBox
+      end
+      object Label7: TLabel
+        Left = 251
+        Top = 349
+        Width = 299
+        Height = 28
+        Hint = 'You also need to right click on the folder, then restrict access'
+        Anchors = [akLeft, akBottom]
+        Caption = 
+          'WARNING: creating an account is not enough to protect  your file' +
+          's...'
+        ParentShowHint = False
+        ShowHint = True
+        WordWrap = True
+      end
+      object accountpropGrp: TGroupBox
+        Left = 163
+        Top = 26
+        Width = 619
+        Height = 317
+        Anchors = [akLeft, akTop, akRight, akBottom]
+        Caption = 'Account properties'
+        TabOrder = 7
+        ExplicitHeight = 318
+        DesignSize = (
+          619
+          317)
+        object Label3: TLabel
+          Left = 11
+          Top = 173
+          Width = 257
+          Height = 28
+          Caption = 'Here you can see protected resources this user can access...'
+          FocusControl = accountAccessBox
+          WordWrap = True
+        end
+        object Label8: TLabel
+          Left = 336
+          Top = 20
+          Width = 28
+          Height = 14
+          Caption = 'Notes'
+          FocusControl = notesBox
+          WordWrap = True
+        end
+        object accountenabledChk: TCheckBox
+          Left = 11
+          Top = 20
+          Width = 97
+          Height = 17
+          Caption = '&Enabled'
+          TabOrder = 0
+          OnClick = accountenabledChkClick
+        end
+        object accountAccessBox: TTreeView
+          Left = 11
+          Top = 192
+          Width = 302
+          Height = 116
+          Anchors = [akLeft, akTop, akBottom]
+          Images = mainFrm.images
+          Indent = 19
+          ParentShowHint = False
+          ReadOnly = True
+          ShowHint = False
+          ShowRoot = False
+          TabOrder = 7
+          OnContextPopup = accountAccessBoxContextPopup
+          OnDblClick = accountAccessBoxDblClick
+          ExplicitHeight = 117
+        end
+        object ignoreLimitsChk: TCheckBox
+          Left = 226
+          Top = 20
+          Width = 97
+          Height = 17
+          Caption = '&Ignore limits'
+          TabOrder = 2
+        end
+        object pwdBox: TLabeledEdit
+          Left = 11
+          Top = 63
+          Width = 198
+          Height = 21
+          EditLabel.Width = 50
+          EditLabel.Height = 14
+          EditLabel.Caption = '&Password'
+          PasswordChar = '*'
+          TabOrder = 3
+          OnEnter = pwdBoxEnter
+          OnExit = pwdBoxExit
+        end
+        object redirBox: TLabeledEdit
+          Left = 11
+          Top = 106
+          Width = 198
+          Height = 21
+          EditLabel.Width = 111
+          EditLabel.Height = 14
+          EditLabel.Caption = 'After ~login, redirect to'
+          TabOrder = 4
+          OnChange = redirBoxChange
+        end
+        object accountLinkBox: TLabeledEdit
+          Left = 11
+          Top = 146
+          Width = 198
+          Height = 21
+          EditLabel.Width = 51
+          EditLabel.Height = 14
+          EditLabel.Caption = 'Member of'
+          TabOrder = 5
+          OnExit = accountLinkBoxExit
+        end
+        object groupChk: TCheckBox
+          Left = 114
+          Top = 20
+          Width = 97
+          Height = 17
+          Caption = '&Group'
+          TabOrder = 1
+          OnClick = groupChkClick
+        end
+        object groupsBtn: TButton
+          Left = 215
+          Top = 146
+          Width = 90
+          Height = 21
+          Caption = 'Choose...'
+          TabOrder = 6
+          OnClick = groupsBtnClick
+        end
+        object notesBox: TMemo
+          Left = 345
+          Top = 39
+          Width = 271
+          Height = 269
+          Anchors = [akLeft, akTop, akRight, akBottom]
+          ParentShowHint = False
+          ScrollBars = ssVertical
+          ShowHint = False
+          TabOrder = 8
+          ExplicitHeight = 270
+        end
+        object notesWrapChk: TCheckBox
+          Left = 502
+          Top = 21
+          Width = 91
+          Height = 17
+          Anchors = [akTop, akRight]
+          Caption = 'Wrap'
+          Checked = True
+          State = cbChecked
+          TabOrder = 9
+          OnClick = notesWrapChkClick
+        end
+      end
+      object deleteaccountBtn: TButton
+        Left = 3
+        Top = 351
+        Width = 45
+        Height = 17
+        Anchors = [akLeft, akBottom]
+        Caption = 'de&lete'
+        Enabled = False
+        Font.Charset = ANSI_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 2
+        OnClick = deleteaccountBtnClick
+        ExplicitTop = 352
+      end
+      object renaccountBtn: TButton
+        Left = 53
+        Top = 328
+        Width = 49
+        Height = 17
+        Anchors = [akLeft, akBottom]
+        Caption = '&rename'
+        Enabled = False
+        Font.Charset = ANSI_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 3
+        OnClick = renaccountBtnClick
+        ExplicitTop = 329
+      end
+      object addaccountBtn: TButton
+        Left = 3
+        Top = 328
+        Width = 45
+        Height = 17
+        Anchors = [akLeft, akBottom]
+        Caption = 'ad&d'
+        Font.Charset = ANSI_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 1
+        OnClick = addaccountBtnClick
+        ExplicitTop = 329
+      end
+      object upBtn: TButton
+        Left = 107
+        Top = 328
+        Width = 45
+        Height = 17
+        Anchors = [akLeft, akBottom]
+        Caption = '&up'
+        Font.Charset = ANSI_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 5
+        OnClick = upBtnClick
+        OnMouseUp = upBtnMouseUp
+        ExplicitTop = 329
+      end
+      object downBtn: TButton
+        Left = 107
+        Top = 351
+        Width = 45
+        Height = 17
+        Anchors = [akLeft, akBottom]
+        Caption = 'do&wn'
+        Font.Charset = ANSI_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 6
+        OnClick = upBtnClick
+        OnMouseUp = upBtnMouseUp
+        ExplicitTop = 352
+      end
+      object sortBtn: TButton
+        Left = 53
+        Top = 351
+        Width = 49
+        Height = 17
+        Anchors = [akLeft, akBottom]
+        Caption = 'sort'
+        Font.Charset = ANSI_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 4
+        OnClick = sortBtnClick
+        OnMouseUp = upBtnMouseUp
+        ExplicitTop = 352
+      end
+      object accountsBox: TListView
+        Left = 3
+        Top = 35
+        Width = 149
+        Height = 287
+        Anchors = [akLeft, akTop, akBottom]
+        Columns = <>
+        DragMode = dmAutomatic
+        HideSelection = False
+        OwnerData = True
+        RowSelect = True
+        ParentShowHint = False
+        ShowHint = False
+        SmallImages = mainFrm.images
+        TabOrder = 0
+        ViewStyle = vsList
+        OnChange = accountsBoxChange
+        OnClick = accountsBoxClick
+        OnData = accountsBoxData
+        OnDblClick = accountsBoxDblClick
+        OnEdited = accountsBoxEdited
+        OnEditing = accountsBoxEditing
+        OnDragDrop = accountsBoxDragDrop
+        OnDragOver = accountsBoxDragOver
+        OnKeyDown = accountsBoxKeyDown
+        OnKeyPress = accountsBoxKeyPress
+        ExplicitHeight = 288
+      end
+    end
+    object mimePage: TTabSheet
+      Caption = 'MIME types'
+      ImageIndex = 7
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+      object mimeBox: TValueListEditor
+        Left = 0
+        Top = 30
+        Width = 797
+        Height = 355
+        Align = alClient
+        KeyOptions = [keyEdit, keyAdd, keyDelete]
+        Strings.Strings = (
+          '=')
+        TabOrder = 0
+        TitleCaptions.Strings = (
+          'File Mask'
+          'MIME Description')
+        ColWidths = (
+          108
+          683)
+      end
+      object Panel5: TPanel
+        Left = 0
+        Top = 0
+        Width = 797
+        Height = 30
+        Align = alTop
+        BevelOuter = bvNone
+        TabOrder = 1
+        object addMimeBtn: TButton
+          Left = 4
+          Top = 5
+          Width = 73
+          Height = 21
+          Caption = 'Add row'
+          TabOrder = 0
+          OnClick = addMimeBtnClick
+        end
+        object deleteMimeBtn: TButton
+          Left = 86
+          Top = 5
+          Width = 73
+          Height = 21
+          Caption = 'Delete row'
+          TabOrder = 1
+          OnClick = deleteMimeBtnClick
+        end
+        object inBrowserIfMIMEchk: TCheckBox
+          Left = 184
+          Top = 7
+          Width = 305
+          Height = 17
+          Caption = 'Open directly in browser when MIME type is defined'
+          TabOrder = 2
+        end
+      end
+    end
+    object trayPage: TTabSheet
+      Caption = 'Tray Message'
+      ImageIndex = 10
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+      object Label2: TLabel
+        Left = 8
+        Top = 16
+        Width = 292
+        Height = 168
+        Caption = 
+          'You can customize the message in the tray icon tip. '#13#10'The messag' +
+          'e length is determined by your Windows version'#13#10'(in XP the limit' +
+          ' is 127 characters including spaces).'#13#10'Available symbols:'#13#10#13#10'  %' +
+          'uptime% - server uptime'#13#10'  %url% - server main URL'#13#10'  %ip% - IP ' +
+          'address set as default'#13#10'  %port% - Port on which the server is l' +
+          'istening'#13#10'  %hits% - number of requests made to the server'#13#10'  %d' +
+          'ownloads% - number of files downloaded'#13#10'  %version% - HFS versio' +
+          'n'
+      end
+      object Label10: TLabel
+        Left = 264
+        Top = 157
+        Width = 40
+        Height = 14
+        Caption = 'Preview'
+      end
+      object traymsgBox: TMemo
+        Left = 16
+        Top = 176
+        Width = 233
+        Height = 121
+        Lines.Strings = (
+          'traymsgBox')
+        TabOrder = 0
+        OnChange = traymsgBoxChange
+      end
+      object traypreviewBox: TMemo
+        Left = 264
+        Top = 176
+        Width = 233
+        Height = 121
+        Color = clInfoBk
+        ReadOnly = True
+        TabOrder = 1
+      end
+    end
+    object a2nPage: TTabSheet
+      Caption = 'Address2name'
+      ImageIndex = -1
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+      object Panel4: TPanel
+        Left = 0
+        Top = 0
+        Width = 797
+        Height = 67
+        Align = alTop
+        Alignment = taLeftJustify
+        BevelOuter = bvNone
+        TabOrder = 0
+        object Label4: TLabel
+          Left = 8
+          Top = 8
+          Width = 243
+          Height = 28
+          Caption = 
+            'You can associate a label to an address (or many addresses). It ' +
+            'will be used in the log.'
+          WordWrap = True
+        end
+        object deleteA2Nbtn: TButton
+          Left = 83
+          Top = 40
+          Width = 73
+          Height = 21
+          Caption = '&Delete row'
+          TabOrder = 0
+          OnClick = deleteA2NbtnClick
+        end
+        object addA2Nbtn: TButton
+          Left = 4
+          Top = 41
+          Width = 73
+          Height = 21
+          Caption = 'Add &row'
+          TabOrder = 1
+          OnClick = addA2NbtnClick
+        end
+      end
+      object a2nBox: TValueListEditor
+        Left = 0
+        Top = 67
+        Width = 797
+        Height = 318
+        Align = alClient
+        KeyOptions = [keyEdit, keyAdd, keyDelete]
+        Strings.Strings = (
+          '=')
+        TabOrder = 1
+        TitleCaptions.Strings = (
+          'Name'
+          'IP Mask')
+        ColWidths = (
+          108
+          683)
+      end
+    end
+    object iconsPage: TTabSheet
+      Caption = 'Icon masks'
+      ImageIndex = -1
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
+      DesignSize = (
+        797
+        385)
+      object Label5: TLabel
+        Left = 8
+        Top = 32
+        Width = 207
+        Height = 28
+        Caption = 'Each line is a file-mask associated with an icon'
+        WordWrap = True
+      end
+      object Label6: TLabel
+        Left = 272
+        Top = 128
+        Width = 76
+        Height = 14
+        Caption = 'Icon associated'
+      end
+      object iconMasksBox: TMemo
+        Left = 8
+        Top = 48
+        Width = 225
+        Height = 245
+        Anchors = [akLeft, akTop, akBottom]
+        TabOrder = 0
+        OnChange = iconMasksBoxChange
+        ExplicitHeight = 246
+      end
+      object iconsBox: TComboBox
+        Left = 272
+        Top = 144
+        Width = 76
+        Height = 22
+        Style = csOwnerDrawFixed
+        TabOrder = 1
+        OnChange = iconsBoxChange
+        OnDrawItem = iconsBoxDrawItem
+        OnDropDown = iconsBoxDropDown
+      end
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 414
+    Width = 805
+    Height = 35
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 1
+    DesignSize = (
+      805
+      35)
+    object okBtn: TButton
+      Left = 561
+      Top = 6
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Caption = '&OK'
+      TabOrder = 0
+      OnClick = okBtnClick
+    end
+    object applyBtn: TButton
+      Left = 725
+      Top = 6
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Caption = '&Apply'
+      TabOrder = 1
+      OnClick = applyBtnClick
+    end
+    object cancelBtn: TButton
+      Left = 643
+      Top = 6
+      Width = 75
+      Height = 25
+      Anchors = [akRight, akBottom]
+      Caption = '&Cancel'
+      TabOrder = 2
+      OnClick = cancelBtnClick
+    end
+  end
+end
diff --git a/optionsDlg.pas b/optionsDlg.pas
new file mode 100644
index 0000000..4fd203e
--- /dev/null
+++ b/optionsDlg.pas
@@ -0,0 +1,954 @@
+{
+Copyright (C) 2002-2012  Massimo Melina (www.rejetto.com)
+
+This file is part of HFS ~ HTTP File Server.
+
+    HFS is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    HFS is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with HFS; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+}
+unit optionsDlg;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Math,
+  Dialogs, ExtCtrls, StdCtrls, Grids, ComCtrls, ValEdit, types, main, CheckLst;
+
+type
+  ToptionsFrm = class(TForm)
+    pageCtrl: TPageControl;
+    bansPage: TTabSheet;
+    accountsPage: TTabSheet;
+    accountpropGrp: TGroupBox;
+    accountenabledChk: TCheckBox;
+    pwdBox: TLabeledEdit;
+    Label1: TLabel;
+    deleteaccountBtn: TButton;
+    renaccountBtn: TButton;
+    mimePage: TTabSheet;
+    mimeBox: TValueListEditor;
+    trayPage: TTabSheet;
+    Label2: TLabel;
+    traymsgBox: TMemo;
+    Panel1: TPanel;
+    Label3: TLabel;
+    accountAccessBox: TTreeView;
+    Panel2: TPanel;
+    okBtn: TButton;
+    applyBtn: TButton;
+    cancelBtn: TButton;
+    bansBox: TValueListEditor;
+    addBtn: TButton;
+    deleteBtn: TButton;
+    Panel3: TPanel;
+    noreplybanChk: TCheckBox;
+    Button1: TButton;
+    a2nPage: TTabSheet;
+    Panel4: TPanel;
+    Label4: TLabel;
+    a2nBox: TValueListEditor;
+    ignoreLimitsChk: TCheckBox;
+    Panel5: TPanel;
+    addMimeBtn: TButton;
+    deleteMimeBtn: TButton;
+    deleteA2Nbtn: TButton;
+    addA2Nbtn: TButton;
+    iconsPage: TTabSheet;
+    iconMasksBox: TMemo;
+    iconsBox: TComboBox;
+    Label5: TLabel;
+    Label6: TLabel;
+    Label7: TLabel;
+    redirBox: TLabeledEdit;
+    inBrowserIfMIMEchk: TCheckBox;
+    traypreviewBox: TMemo;
+    Label10: TLabel;
+    accountLinkBox: TLabeledEdit;
+    groupChk: TCheckBox;
+    groupsBtn: TButton;
+    addaccountBtn: TButton;
+    upBtn: TButton;
+    downBtn: TButton;
+    sortBtn: TButton;
+    notesBox: TMemo;
+    Label8: TLabel;
+    sortBanBtn: TButton;
+    notesWrapChk: TCheckBox;
+    accountsBox: TListView;
+    procedure FormShow(Sender: TObject);
+    procedure FormResize(Sender: TObject);
+    procedure addaccountBtnClick(Sender: TObject);
+    procedure deleteaccountBtnClick(Sender: TObject);
+    procedure accountsBoxEdited(Sender: TObject; Item: TListItem; var S: String);
+    procedure renaccountBtnClick(Sender: TObject);
+    procedure accountAccessBoxDblClick(Sender: TObject);
+    procedure accountAccessBoxContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
+    procedure cancelBtnClick(Sender: TObject);
+    procedure okBtnClick(Sender: TObject);
+    procedure applyBtnClick(Sender: TObject);
+    procedure addBtnClick(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+    procedure deleteBtnClick(Sender: TObject);
+    procedure pwdBoxEnter(Sender: TObject);
+    procedure pwdBoxExit(Sender: TObject);
+    procedure addMimeBtnClick(Sender: TObject);
+    procedure deleteMimeBtnClick(Sender: TObject);
+    procedure addA2NbtnClick(Sender: TObject);
+    procedure deleteA2NbtnClick(Sender: TObject);
+    procedure iconsBoxDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
+    procedure iconsBoxDropDown(Sender: TObject);
+    procedure iconsBoxChange(Sender: TObject);
+    procedure iconMasksBoxChange(Sender: TObject);
+    procedure traymsgBoxChange(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
+    procedure accountLinkBoxExit(Sender: TObject);
+    procedure groupChkClick(Sender: TObject);
+    procedure groupsBtnClick(Sender: TObject);
+    procedure accountenabledChkClick(Sender: TObject);
+    procedure upBtnClick(Sender: TObject);
+    procedure sortBtnClick(Sender: TObject);
+    procedure ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
+      State: TDragState; var Accept: Boolean);
+    procedure upBtnMouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure sortBanBtnClick(Sender: TObject);
+    procedure notesWrapChkClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure accountsBoxData(Sender: TObject; Item: TListItem);
+    procedure accountsBoxKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure accountsBoxClick(Sender: TObject);
+    procedure accountsBoxDragOver(Sender, Source: TObject; X, Y: Integer;
+      State: TDragState; var Accept: Boolean);
+    procedure accountsBoxDragDrop(Sender, Source: TObject; X, Y: Integer);
+    procedure accountsBoxChange(Sender: TObject; Item: TListItem;
+      Change: TItemChange);
+    procedure updateAccessBox();
+    procedure accountsBoxDblClick(Sender: TObject);
+    procedure redirBoxChange(Sender: TObject);
+    procedure accountsBoxKeyPress(Sender: TObject; var Key: Char);
+    procedure accountsBoxEditing(Sender: TObject; Item: TListItem;
+      var AllowEdit: Boolean);
+  public
+    procedure checkRedir();
+		procedure loadAccountProperties();
+		function saveAccountProperties():boolean;
+		procedure deleteAccount(idx:integer=-1);
+    procedure loadValues();
+    function  saveValues():boolean; // it may fail on incorrect input
+    function  checkValues():string; // returns an error message
+    procedure updateIconMap();
+    procedure updateIconsBox();
+    procedure selectAccount(i:integer; saveBefore:boolean=TRUE);
+  end;
+
+var
+  optionsFrm: ToptionsFrm;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  utilLib, HSlib, strUtils, classesLib, listSelectDlg;
+
+var
+  lastAccountSelected: integer = -1; // stores the previous selection index
+  tempAccounts: Taccounts; // the GUI part can't store the temp data
+  tempIcons: array of integer;
+  renamingAccount: boolean;
+
+procedure ToptionsFrm.selectAccount(i:integer; saveBefore:boolean=TRUE);
+begin
+if saveBefore then saveAccountProperties();
+accountsBox.itemIndex:=i;
+accountsBox.ItemFocused:=accountsBox.Selected;
+loadAccountProperties();
+end; // selectAccount
+
+procedure ToptionsFrm.loadValues();
+var
+  i:integer;
+begin
+// bans
+noreplybanChk.checked:=noReplyBan;
+bansBox.Strings.Clear();
+for i:=0 to length(banList)-1 do
+	bansBox.strings.Add(banList[i].ip+'='+banlist[i].comment);
+// mime types
+inBrowserIfMIMEchk.Checked:=inBrowserIfMIME;
+mimeBox.Strings.Clear();
+for i:=0 to length(mimeTypes) div 2-1 do
+	mimeBox.strings.add(mimeTypes[i*2]+'='+mimeTypes[i*2+1]);
+for i:=0 to length(DEFAULT_MIME_TYPES) div 2-1 do
+  if not stringExists(DEFAULT_MIME_TYPES[i*2], mimeTypes) then
+  	mimeBox.strings.add(DEFAULT_MIME_TYPES[i*2]+'='+DEFAULT_MIME_TYPES[i*2+1]);
+// address2name
+a2nBox.Strings.clear();
+for i:=0 to length(address2name) div 2-1 do
+	a2nBox.strings.Add(address2name[i*2]+'='+address2name[i*2+1]);
+// tray message
+traymsgBox.Text:=replaceStr(trayMsg,#13,CRLF);
+// accounts
+tempAccounts:=accounts;
+setLength(tempAccounts, length(tempAccounts)); // unlink from the source
+accountsBox.items.count:=length(accounts);
+lastAccountSelected:=-1;
+loadAccountProperties();
+// remember original name for tracking possible later renaming
+for i:=0 to length(accounts)-1 do
+  with accounts[i] do
+    wasUser:=user;
+// icons
+updateIconsBox();
+i:=length(iconMasks);
+setLength(tempIcons, i+1);
+iconMasksBox.Text:='';
+for i:=0 to i-1 do
+  begin
+  iconMasksBox.lines.Add(iconMasks[i].str);
+  tempIcons[i]:=iconMasks[i].int;
+  end;
+iconMasksBox.SelStart:=0;
+end; // loadValues
+
+procedure ToptionsFrm.notesWrapChkClick(Sender: TObject);
+begin
+notesBox.WordWrap:=notesWrapChk.checked;
+if notesBox.WordWrap then
+  notesBox.ScrollBars:=ssVertical
+else
+  notesBox.ScrollBars:=ssBoth
+end;
+
+function ToptionsFrm.checkValues():string;
+var
+  i: integer;
+  s: string;
+begin
+for i:=bansBox.Strings.count downto 1 do
+  begin
+  bansbox.cells[0,i]:=trim(bansbox.cells[0,i]);
+  s:=bansbox.cells[0,i];
+  if s = '' then continue;
+  if bansBox.strings.indexOfName(s)+1 < i then
+    begin
+    result:=format('Bans: "%s" is duplicated', [s]);
+    exit;
+    end;
+  if not checkAddressSyntax(s) then
+    begin
+    result:=format('Bans: syntax error for "%s"', [s]);
+    exit;
+    end;
+  end;
+for i:=a2nBox.Strings.count downto 1 do
+  begin
+  s:=trim(a2nBox.cells[1,i]);
+  if trim(s+a2nBox.cells[0,i]) = '' then
+    a2nBox.DeleteRow(i)
+  else
+    if (s>'') and not checkAddressSyntax(s) then
+      begin
+      result:=format('Address2name: syntax error for "%s"', [s]);
+      exit;
+      end;
+  end;
+result:='';
+end; // checkValues
+
+function ToptionsFrm.saveValues():boolean;
+var
+  i, n: integer;
+  s: string;
+begin
+result:=FALSE;
+s:=checkValues();
+if s > '' then
+  begin
+  msgDlg(s, MB_ICONERROR);
+  exit;
+  end;
+if not saveAccountProperties() then exit;
+// bans
+noReplyBan:=noreplybanChk.checked;
+i:=bansbox.Strings.Count;
+if bansbox.Cells[0,i] = '' then dec(i);
+setlength(banlist, i);
+n:=0;
+for i:=0 to length(banlist)-1 do
+  begin
+  banlist[n].ip:=trim(bansBox.Cells[0,i+1]); // mod by mars
+  if banlist[n].ip = '' then continue;
+  banlist[n].comment:=bansBox.Cells[1,i+1];
+  inc(n);
+  end;
+setlength(banlist, n);
+kickBannedOnes();
+// mime types
+inBrowserIfMIME:=inBrowserIfMIMEchk.checked;
+mimeTypes:=NIL;
+for i:=1 to mimebox.rowCount-1 do
+  addArray(mimeTypes, [mimeBox.cells[0,i], mimeBox.cells[1,i]]);
+
+// address2name
+address2name:=NIL;
+for i:=1 to a2nBox.RowCount-1 do
+  begin
+  s:=trim(a2nBox.Cells[1,i]);
+  if s > '' then addArray(address2name, [a2nBox.Cells[0,i], s]);
+  end;
+// tray message
+trayMsg:=replaceStr(traymsgBox.Text, #10,'');
+// accounts
+accounts:=tempAccounts;
+purgeVFSaccounts();
+mainfrm.filesBox.repaint();
+// icons
+setlength(iconMasks, 0); // mod by mars
+n:=0;
+for i:=0 to iconMasksBox.Lines.Count-1 do
+  begin
+  s:=iconMasksBox.Lines[i];
+  if trim(s) = '' then continue;
+  inc(n);
+  setlength(iconMasks, n);
+  iconMasks[n-1].str:=s;
+  iconMasks[n-1].int:=tempIcons[i];
+  end;
+result:=TRUE;
+end; // saveValues
+
+function ipListComp(list: TStringList; index1, index2: integer):integer;
+
+  function extract(s:string; var o:integer):string;
+  var
+    i: integer;
+  begin
+  i:=posEx('.',s,o);
+  if i = 0 then i:=length(s)+1;
+  result:=substr(s,o,i-1);
+  o:=i+1;
+  end; // extract
+
+  function compare(a,b:string):integer;
+  begin
+  try result:=compare_(strToInt(a), strToInt(b));
+  except
+    result:=compare_(length(a), length(b));
+    if result = 0 then
+      result:=ansiCompareStr(a,b);
+    end;
+  end; // compare
+
+var
+  o1, o2: integer;
+  s1, s2: string;
+begin
+s1:=getTill('=', list[index1]);
+s2:=getTill('=', list[index2]);
+o1:=1;
+o2:=1;
+  repeat
+  result:=compare(extract(s1,o1), extract(s2,o2));
+  until (result <> 0) or (o1 > length(s1)) and (o2 > length(s2));
+end; // ipListComp
+
+procedure ToptionsFrm.sortBanBtnClick(Sender: TObject);
+begin
+(bansbox.strings as TstringList).customSort(ipListComp);
+end;
+
+procedure ToptionsFrm.sortBtnClick(Sender: TObject);
+
+  function sortIt(reverse:boolean=FALSE):boolean;
+  var
+    s, i, j, l: integer;
+  begin
+  result:=FALSE;
+  s:=accountsBox.ItemIndex;
+  l:=length(tempAccounts);
+  for i:=0 to l-2 do
+    for j:=i+1 to l-1 do
+      if reverse XOR (compareText(tempAccounts[i].user, tempAccounts[j].user) > 0) then
+        begin
+        swapMem(tempAccounts[i], tempAccounts[j], sizeof(tempAccounts[0]));
+        if i = s then
+          s:=j
+        else if j = s then
+          s:=i;
+        result:=TRUE;
+        end;
+  accountsBox.ItemIndex:=s;
+  end; // sortIt
+
+begin
+lastAccountSelected:=-1;
+if not sortIt(FALSE) then sortIt(TRUE);
+accountsBox.invalidate();
+end;
+
+procedure ToptionsFrm.traymsgBoxChange(Sender: TObject);
+begin traypreviewBox.text:=mainfrm.getTrayTipMsg(traymsgBox.text) end;
+
+procedure ToptionsFrm.FormShow(Sender: TObject);
+var
+  i: integer;
+  s: string;
+begin
+// if we do this, any hint window will bring focus to the main form
+//setwindowlong(handle, GWL_HWNDPARENT, 0); // get a taskbar button
+loadValues();
+if pageCtrl.activePage <> a2nPage then exit;
+s:=mainfrm.ipPointedInLog();
+if s = '' then exit;
+// select row or insert new one
+i:=length(address2name)-1;
+while (i > 0) and not addressmatch(address2name[i], s) do
+  dec(i, 2);
+if i <= 0 then a2nBox.row:=a2nBox.insertRow('',s,TRUE)
+else
+  try a2nBox.Row:=i
+  except end; // this should not happen, but in case (it was reported once) just skip selecting
+
+a2nBox.SetFocus();
+a2nBox.EditorMode:=TRUE;
+end;
+
+procedure ToptionsFrm.groupChkClick(Sender: TObject);
+begin
+pwdBox.visible:=not groupChk.checked;
+accountsBox.invalidate();
+end;
+
+procedure ToptionsFrm.FormActivate(Sender: TObject);
+begin traymsgBoxChange(NIL) end;
+
+procedure ToptionsFrm.FormCreate(Sender: TObject);
+begin
+notesWrapChk.Checked:=TRUE;
+end;
+
+procedure ToptionsFrm.FormResize(Sender: TObject);
+begin bansBox.ColWidths[1]:=bansBox.ClientWidth-bansBox.colWidths[0]-2 end;
+
+procedure setEnabledRecur(c:Tcontrol; v:boolean);
+var
+  i: integer;
+begin
+c.enabled:=v;
+if c is TTreeView then
+  (c as TTreeView).items.clear();
+if c is TLabeledEdit then
+  (c as TLabeledEdit).text:='';
+if c is Tmemo then
+  (c as Tmemo).text:='';
+if c is Tcheckbox then
+  (c as Tcheckbox).checked:=FALSE;
+
+if c is Twincontrol then
+  with c as Twincontrol do
+    for i:=0 to controlCount-1 do
+    	setEnabledRecur(controls[i], v);
+end; // setEnabledRecur
+
+procedure ToptionsFrm.updateAccessBox();
+var
+  n: Ttreenode;
+  f: Tfile;
+  props: TstringDynArray;
+  act: TfileAction;
+  s: string;
+  a, other: Paccount;
+begin
+accountAccessBox.items.clear();
+if lastAccountSelected < 0 then exit;
+a:=@tempAccounts[lastAccountSelected];
+n:=rootNode;
+while n <> NIL do
+  begin
+  f:=Tfile(n.data);
+  n:=n.getNext();
+  if f =  NIL then continue;
+
+  props:=NIL;
+  for act:=low(TfileAction) to high(TfileAction) do
+    begin
+    s:=FILEACTION2STR[act];
+    // any_account will suffice, otherwise our username (or a linked one) must be there explicitly, otherwise the resource is not protected or we have no access and thus must not be listed
+    if not stringExists(USER_ANY_ACCOUNT, f.accounts[act]) then
+      begin
+      other:=findEnabledLinkedAccount(a, f.accounts[act]);
+      if other = NIL then continue;
+      if other <> a then
+        s:=s+' via '+other.user;
+      end;
+    addString(s, props);
+    end;
+  if props = NIL then continue;
+
+  with accountAccessBox.items.addObject(NIL, f.name+' ['+join(', ',props)+']', f.node) do
+    begin
+    imageIndex:=f.node.imageIndex;
+    selectedIndex:=imageIndex;
+    end;
+  end;
+end; // updateAccessBox
+
+procedure ToptionsFrm.checkRedir();
+begin // mod by mars
+redirBox.color:=blend(clWindow, clRed,
+  ifThen((redirBox.text >'') and not fileExistsByURL(redirBox.text), 0.5, 0) );
+end; // checkRedir
+
+procedure ToptionsFrm.loadAccountProperties();
+var
+  a: Paccount;
+  b, bakWrap: boolean;
+  i: integer;
+begin
+lastAccountSelected:=accountsBox.ItemIndex;
+b:=lastAccountSelected >= 0;
+bakWrap:=notesWrapChk.checked;
+setEnabledRecur(accountpropGrp, b);
+notesWrapChk.checked:=bakWrap;
+renAccountBtn.enabled:=b;
+deleteAccountBtn.enabled:=b;
+upBtn.Enabled:=b;
+downBtn.enabled:=b;
+
+if not accountpropGrp.Enabled then exit;
+a:=@tempAccounts[lastAccountSelected];
+accountEnabledChk.checked:=a.enabled;
+pwdBox.Text:=a.pwd;
+groupChk.Checked:=a.group;
+accountLinkBox.text:=join(';',a.link);
+ignoreLimitsChk.Checked:=a.noLimits;
+redirBox.Text:=a.redir;
+notesBox.text:=a.notes;
+
+groupsBtn.enabled:=FALSE;;
+for i:=0 to length(tempAccounts)-1 do
+  if tempAccounts[i].group and (i <> accountsBox.itemIndex) then
+    groupsBtn.enabled:=TRUE;
+
+updateAccessBox();
+accountsBox.invalidate();
+end; // loadAccountProperties
+
+function ToptionsFrm.saveAccountProperties():boolean;
+const
+  MSG_CHARS = 'The characters below are not allowed'
+    +#13'/\:?*"<>|;&&@';
+  MSG_PWD = 'Invalid password.'#13+MSG_CHARS;
+var
+  a: Paccount;
+begin
+result:=TRUE;
+if lastAccountSelected < 0 then exit;
+result:=FALSE;
+if not validUsername(pwdbox.Text, TRUE) then
+  begin
+	msgDlg(MSG_PWD, MB_ICONERROR);
+  exit;
+  end;
+
+a:=@tempAccounts[lastAccountSelected];
+a.enabled:=accountEnabledChk.checked;
+a.pwd:=pwdBox.Text;
+a.noLimits:=ignoreLimitsChk.checked;
+a.redir:=redirBox.Text;
+a.notes:=notesBox.text;
+a.link:=split(';', trim(accountLinkBox.text));
+a.group:=groupChk.Checked;
+uniqueStrings(a.link);
+result:=TRUE;
+accountsBox.invalidate();
+end; // saveAccountProperties
+
+function findUser(user:string):integer;
+begin
+result:=length(tempAccounts)-1;
+while (result >= 0) and not sameText(tempAccounts[result].user, user) do
+  dec(result);
+end; // findUser
+
+function userExists(user:string):boolean; overload;
+begin result:=findUser(user) >= 0 end;
+
+function userExists(user:string; excpt:integer):boolean; overload;
+var
+  i: integer;
+begin
+i:=findUser(user);
+result:=(i >= 0) and (i <> excpt);
+end;
+
+procedure ToptionsFrm.addaccountBtnClick(Sender: TObject);
+var
+  i: integer;
+  a: Taccount;
+begin
+a.user:=getUniqueName('new user', userExists);
+a.pwd:='';
+a.enabled:=TRUE;
+a.noLimits:=FALSE;
+a.redir:='';
+
+i:=length(tempAccounts);
+setLength(tempAccounts, i+1);
+tempAccounts[i]:=a;
+accountsBox.items.add();
+selectAccount(i);
+
+renaccountBtnClick(sender);
+end;
+
+procedure ToptionsFrm.deleteAccount(idx:integer=-1);
+var
+  i: integer;
+begin
+if idx < 0 then
+	begin
+  idx:=accountsBox.itemIndex;
+  if idx < 0 then exit;
+ 	if msgDlg('Delete?', MB_ICONQUESTION+MB_YESNO) = IDNO then
+  	exit;
+  end;
+// shift
+for i:=idx+1 to length(tempAccounts)-1 do
+  tempAccounts[i-1]:=tempAccounts[i];
+// shorten
+with accountsBox.items do count:=count-1; // dunno why, but invoking delete* methods doesn't work
+setlength(tempAccounts, length(tempAccounts)-1);
+selectAccount(min(idx, length(tempAccounts)-1), FALSE);
+end; // deleteAccount
+
+procedure ToptionsFrm.deleteaccountBtnClick(Sender: TObject);
+begin deleteAccount() end;
+
+procedure swapItems(i, j:integer);
+var
+  s: integer;
+begin
+s:=length(tempAccounts)-1;
+if not inRange(i, 0,s) or not inRange(j, 0,s) then exit;
+s:=optionsFrm.accountsBox.itemIndex;
+lastAccountSelected:=-1; // avoid data saving from fields while moving
+swapMem(tempAccounts[i], tempAccounts[j], sizeof(tempAccounts[i]));
+if i = s then
+  s:=j
+else if j = s then
+  s:=i;
+with optionsFrm.accountsBox do
+  begin
+  itemIndex:=s;
+  selected.focused:=TRUE;
+  invalidate();
+  end;
+end; // swapItems
+
+procedure ToptionsFrm.accountsBoxChange(Sender: TObject; Item: TListItem; Change: TItemChange);
+begin
+if (change = ctState) and assigned(item) and item.selected then
+  selectAccount(item.index);
+end;
+
+procedure ToptionsFrm.accountsBoxClick(Sender: TObject);
+begin
+selectAccount(accountsBox.itemIndex);
+end;
+
+procedure ToptionsFrm.accountsBoxData(Sender: TObject; Item: TListItem);
+var
+  a: Paccount;
+begin
+if (item = NIL) or not inRange(item.index, 0,length(tempAccounts)-1) then
+  exit;
+a:=@tempAccounts[item.index];
+item.caption:=a.user;
+item.imageIndex:=if_(item.index = lastAccountSelected,
+  accountIcon(accountenabledChk.checked, groupChk.checked),
+  accountIcon(a)
+);
+end;
+
+procedure ToptionsFrm.accountsBoxDblClick(Sender: TObject);
+begin renaccountBtnClick(renaccountBtn) end;
+
+procedure ToptionsFrm.accountsBoxDragDrop(Sender, Source: TObject; X,
+  Y: Integer);
+begin
+swapItems(accountsBox.getItemAt(x,y).index, accountsBox.itemIndex);
+end;
+
+procedure ToptionsFrm.accountsBoxDragOver(Sender, Source: TObject; X,
+  Y: Integer; State: TDragState; var Accept: Boolean);
+begin
+accept:=(sender = source) and assigned(accountsBox.getItemAt(x,y));
+end;
+
+procedure ToptionsFrm.accountsBoxEdited(Sender: TObject; Item: TListItem; var S: String);
+var
+  old, err: string;
+  i, idx: integer;
+begin
+renamingAccount:=FALSE;
+try idx:=item.index  // workaround to wine's bug http://www.rejetto.com/forum/index.php/topic,9563.msg1053890.html#msg1053890
+except idx:=lastAccountSelected end;
+old:=tempAccounts[idx].user;
+if not validUsername(s) then
+  err:='Invalid username'
+else if userExists(s, accountsBox.itemIndex) then
+  err:='Username already used'
+else
+  err:='';
+
+if err > '' then
+  begin
+  msgDlg(err, MB_ICONERROR);
+  s:=old;
+  exit;
+  end;
+// update linkings
+for i:=0 to length(tempAccounts)-1 do
+  replaceString(tempAccounts[i].link, old, s);
+tempAccounts[idx].user:=s;
+end;
+
+procedure ToptionsFrm.accountsBoxEditing(Sender: TObject; Item: TListItem;
+  var AllowEdit: Boolean);
+begin
+renamingAccount:=TRUE;
+end;
+
+procedure ToptionsFrm.accountsBoxKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+if shift = [] then
+	case key of
+  	VK_F2: renaccountBtn.click();
+    VK_INSERT: addaccountBtn.click(); // mod by mars
+    VK_DELETE: deleteAccount();
+    end;
+{mod by mars}
+if shift = [ssAlt] then
+  case key of
+    VK_UP: upBtn.click();
+    VK_DOWN: downBtn.click();
+    end;
+{/mod}
+end;
+
+procedure ToptionsFrm.accountsBoxKeyPress(Sender: TObject; var Key: Char);
+var
+  s, i, ir, n: integer;
+begin
+if renamingAccount then
+  exit;
+key:=upcase(key);
+if key in ['0'..'9','A'..'Z'] then
+  begin
+  s:=accountsBox.ItemIndex;
+  n:=length(tempAccounts);
+  for i:=1 to n-1 do
+    begin
+    ir:=(s+i) mod n;
+    if key = upcase(tempAccounts[ir].user[1]) then
+      begin
+      selectAccount(ir);
+      exit;
+      end;
+    end;
+  end;
+end;
+
+procedure ToptionsFrm.redirBoxChange(Sender: TObject);
+begin checkRedir() end;
+
+procedure ToptionsFrm.renaccountBtnClick(Sender: TObject);
+begin
+if accountsBox.selected = NIL then exit;
+accountsBox.Selected.editCaption();
+end;
+
+procedure ToptionsFrm.accountLinkBoxExit(Sender: TObject);
+const
+  MSG_MISSING_USERS = 'Cannot find these linked usernames: %s'
+    +#13'This is abnormal, but you may add them later.';
+var
+  users, missing: TStringDynArray;
+  i: integer;
+begin
+users:=split(';', trim(accountLinkBox.text));
+// check for non-existent linked account
+missing:=NIL;
+for i:=0 to length(users)-1 do
+  if not userExists(users[i]) then
+    addString(users[i], missing);
+if assigned(missing) then
+  msgDlg(format(MSG_MISSING_USERS, [join(', ', missing)]), MB_ICONWARNING);
+// permissions may have been changed
+updateAccessBox();
+end;
+
+procedure ToptionsFrm.accountAccessBoxDblClick(Sender: TObject);
+begin
+with sender as Ttreeview do
+  begin
+  if selected = NIL then exit;
+  mainfrm.filesBox.selected:=selected.Data;
+  mainfrm.setFocus();
+  end;
+end;
+
+procedure ToptionsFrm.accountenabledChkClick(Sender: TObject);
+begin accountsBox.invalidate() end;
+
+procedure ToptionsFrm.accountAccessBoxContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
+begin
+with sender as Ttreeview do
+  if selected = NIL then handled:=TRUE
+  else mainfrm.filesBox.selected:=selected.data;
+end;
+
+procedure ToptionsFrm.cancelBtnClick(Sender: TObject);
+begin close() end;
+
+procedure ToptionsFrm.applyBtnClick(Sender: TObject);
+begin saveValues() end;
+
+procedure ToptionsFrm.okBtnClick(Sender: TObject);
+begin if saveValues() then close() end;
+
+procedure ToptionsFrm.Button1Click(Sender: TObject);
+begin msgDlg(getRes('invertBan')) end;
+
+procedure ToptionsFrm.groupsBtnClick(Sender: TObject);
+var
+  i: integer;
+  there: TStringDynArray;
+  groups: TstringList;
+  s: string;
+begin
+there:=split(';', accountLinkBox.Text);
+groups:=TstringList.create;
+try
+  for i:=0 to length(tempAccounts)-1 do
+    if tempAccounts[i].group and (i <> accountsBox.itemIndex) then
+      begin
+      s:=tempAccounts[i].user;
+      groups.AddObject(s, if_(stringExists(s, there), PTR1, NIL));
+      end;
+  if not listSelect('Select groups', groups) then exit;
+  s:='';
+  for i:=0 to groups.Count-1 do
+    if groups.Objects[i] <> NIL then
+      s:=s+groups[i]+';';
+  accountLinkBox.Text:=getTill(-1, s);
+finally groups.free end;
+end;
+
+procedure ToptionsFrm.pwdBoxEnter(Sender: TObject);
+begin if pwdBox.Text > '' then pwdBox.passwordChar:=#0 end;
+
+procedure ToptionsFrm.pwdBoxExit(Sender: TObject);
+begin pwdBox.passwordChar:='*' end;
+
+procedure ToptionsFrm.addBtnClick(Sender: TObject);
+begin bansBox.InsertRow('','',TRUE) end;
+
+procedure ToptionsFrm.deleteBtnClick(Sender: TObject);
+begin
+if bansbox.strings.count > 0 then
+  bansBox.Strings.Delete(bansBox.Row-1)
+end;
+
+procedure ToptionsFrm.addMimeBtnClick(Sender: TObject);
+begin mimeBox.InsertRow('','',TRUE) end;
+
+procedure ToptionsFrm.deleteMimeBtnClick(Sender: TObject);
+begin
+if mimeBox.strings.count > 0 then
+  mimeBox.Strings.Delete(mimeBox.Row-1)
+end;
+
+procedure ToptionsFrm.addA2NbtnClick(Sender: TObject);
+begin
+a2nBox.insertRow('','',TRUE);
+a2nBox.setFocus();
+end;
+
+procedure ToptionsFrm.deleteA2NbtnClick(Sender: TObject);
+begin
+if a2nBox.strings.count > 0 then
+  a2nBox.Strings.Delete(a2nBox.Row-1)
+end;
+
+procedure ToptionsFrm.iconsBoxDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
+var
+  cnv: TCanvas;
+  bmp: Tbitmap;
+begin
+cnv:=iconsBox.Canvas;
+bmp:=Tbitmap.create;
+try
+  mainfrm.images.GetBitmap(index, bmp);
+  cnv.FillRect(rect);
+  cnv.Draw(rect.Left, rect.Top, bmp);
+  cnv.TextOut(rect.Left+mainfrm.images.Width+2, rect.Top, idx_label(index));
+finally bmp.free end;
+end;
+
+procedure ToptionsFrm.updateIconsBox();
+// alloc enough slots. the text is not used, labels are built by the paint event
+begin iconsBox.Items.Text:=dupeString(CRLF, mainfrm.images.count) end;
+
+procedure ToptionsFrm.iconsBoxDropDown(Sender: TObject);
+begin updateIconsBox() end;
+
+procedure ToptionsFrm.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
+begin
+accept:=source = sender;
+end;
+
+procedure ToptionsFrm.upBtnClick(Sender: TObject);
+var
+  i, dir: integer;
+begin
+dir:=if_(sender = upBtn, -1, +1);
+i:=accountsBox.itemIndex;
+if not inRange(i+dir, 0,length(tempAccounts)-1) then exit;
+swapItems(i, i+dir);
+end;
+
+procedure ToptionsFrm.upBtnMouseUp(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
+begin
+accountsBox.setFocus()
+end;
+
+procedure ToptionsFrm.updateIconMap();
+begin
+if not iconsBox.DroppedDown then
+  iconsBox.ItemIndex:=tempIcons[iconMasksBox.CaretPos.Y];
+end;
+
+procedure ToptionsFrm.iconsBoxChange(Sender: TObject);
+begin tempIcons[iconMasksBox.CaretPos.Y]:=iconsBox.ItemIndex end;
+
+procedure ToptionsFrm.iconMasksBoxChange(Sender: TObject);
+begin setLength(tempIcons, iconMasksBox.Lines.count+1) end;
+
+end.
diff --git a/parserLib.pas b/parserLib.pas
new file mode 100644
index 0000000..3fb4ab9
--- /dev/null
+++ b/parserLib.pas
@@ -0,0 +1,247 @@
+unit parserLib;
+
+interface
+
+uses
+  strutils, sysutils, classes, types, utilLib, windows;
+
+type
+  TmacroCB = function(fullMacro:string; pars:Tstrings; cbData:pointer):string;
+  EtplError = class(Exception)
+    pos, row, col: integer;
+    code: string;
+    constructor Create(const msg, code:string; row,col:integer);
+    end;
+const
+  MARKER_OPEN = '{.';
+  MARKER_CLOSE = '.}';
+  MARKER_SEP = '|';
+  MARKER_QUOTE = '{:';
+  MARKER_UNQUOTE = ':}';
+  MARKERS: array [0..4] of string = ( MARKER_OPEN, MARKER_CLOSE, MARKER_SEP, MARKER_QUOTE, MARKER_UNQUOTE );
+
+function anyMacroMarkerIn(s:string):boolean;
+function findMacroMarker(s:string; ofs:integer=1):integer;
+procedure applyMacrosAndSymbols(var txt:string; cb:TmacroCB; cbData:pointer; removeQuotings:boolean=TRUE);
+
+implementation
+
+const
+  MAX_RECUR_LEVEL = 50;
+type
+  TparserIdsStack = array [1..MAX_RECUR_LEVEL] of string;
+
+constructor EtplError.create(const msg, code:string; row, col:integer);
+begin
+inherited create(msg);
+self.row:=row;
+self.col:=col;
+self.code:=code;
+end;
+
+procedure applyMacrosAndSymbols2(var txt:string; cb:TmacroCB; cbData:pointer; var idsStack:TparserIdsStack; recurLevel:integer=0);
+const
+  // we don't track SEPs, they are handled just before the callback
+  QUOTE_ID = 0;   // QUOTE must come before OPEN because it is a substring
+  UNQUOTE_ID = 1;
+  OPEN_ID = 2;
+  CLOSE_ID = 3;
+  MAX_MARKER_ID = 3;
+
+  function alreadyRecurredOn(s:string):boolean;
+  var
+    i: integer;
+  begin
+  result:=TRUE;
+  for i:=recurLevel downto 1 do
+    if sameText(s, idsStack[i]) then exit;
+  result:=FALSE;
+  end; // alreadyRecurredOn
+
+  procedure handleSymbols();
+  var
+    b, e, l : integer;
+    s, newS: string;
+  begin
+  e:=0;
+  l:=length(txt);
+  while e < l do
+    begin
+    // search for next symbol
+    b:=posEx('%',txt,e+1);
+    if b = 0 then break;
+    e:=b+1;
+    if txt[e] = '%' then
+      begin    // we don't accept %% as a symbol. so, restart parsing from the second %
+      e:=b;
+      continue;
+      end;
+    if not charInSet(txt[e], ['_','a'..'z','A'..'Z']) then continue; // first valid character
+    while (e < l) and charInSet(txt[e], ['0'..'9','a'..'z','A'..'Z','-','_']) do
+      inc(e);
+    if txt[e] <> '%' then continue;
+    // found!
+    s:=substr(txt,b,e);
+    if alreadyRecurredOn(s) then continue; // the user probably didn't meant to create an infinite loop
+
+    newS:=cb(s, NIL, cbData);
+    if s = newS then continue;
+
+    idsStack[recurLevel]:=s; // keep track of what we recur on
+    // apply translation, and eventually recur
+    try applyMacrosAndSymbols2(newS, cb, cbData, idsStack, recurLevel);
+    except end;
+    idsStack[recurLevel]:='';
+    inc(e, replace(txt, newS, b, e));
+    l:=length(txt);
+    end;
+  end; // handleSymbols
+
+  procedure handleMacros();
+  var
+    pars: Tstrings;
+
+    function expand(from,to_:integer):integer;
+    var
+      s, fullMacro: string;
+      i, o, q, u: integer;
+    begin
+    result:=0;
+    fullMacro:=substr(txt, from+length(MARKER_OPEN), to_-length(MARKER_CLOSE));
+    if alreadyRecurredOn(fullMacro) then exit; // the user probably didn't meant to create an infinite loop
+
+    // let's find the SEPs to build 'pars'
+    pars.clear();
+    i:=1; // char pointer from where we shall copy the macro parameter
+    o:=0;
+    q:=posEx(MARKER_QUOTE, fullMacro); // q points to _QUOTE
+      repeat
+      o:=posEx(MARKER_SEP, fullmacro, o+1);
+      if o = 0 then break;
+      if (q > 0) and (q < o) then // this SEP is possibly quoted
+        begin
+        // update 'q' and 'u'
+          repeat
+          u:=posEx(MARKER_UNQUOTE, fullMacro, q);
+          if u = 0 then exit; // macro quoting not properly closed
+          q:=posEx(MARKER_QUOTE, fullMacro, q+1); // update q for next cycle
+          // if we find other _QUOTEs before _UNQUOTE, then they are stacked, and we must go through the same number of both markers
+          while (q > 0) and (q < u) do
+            begin
+            u:=posEx(MARKER_UNQUOTE, fullMacro, u+1);
+            if u = 0 then exit; // macro quoting not properly closed
+            q:=posEx(MARKER_QUOTE, fullMacro, q+1);
+            end;
+          until (q = 0) or (o < q);
+        // eventually skip this chunk of string
+        if o < u then
+          begin // yes, this SEP is quoted
+          o:=u;
+          continue;
+          end;
+        end;
+      // ok, that's a valid SEP, so we collect this as a parameter 
+      pars.add(substr(fullMacro, i, o-1));
+      i:=o+length(MARKER_SEP);
+      until false;
+    pars.add(substr(fullMacro, i, length(fullMacro))); // last piece
+    // ok, 'pars' has now been built
+
+    // do the call, recur, and replace with the result
+    s:=cb(fullMacro, pars, cbData);
+    idsStack[recurLevel]:=fullmacro; // keep track of what we recur on
+    try
+      try applyMacrosAndSymbols2(s, cb, cbData, idsStack, recurLevel) except end;
+    finally idsStack[recurLevel]:='' end;
+    result:=replace(txt, s, from, to_);
+    end; // expand
+
+  const
+    ID2TAG: array [0..MAX_MARKER_ID] of string = (MARKER_QUOTE, MARKER_UNQUOTE, MARKER_OPEN, MARKER_CLOSE);
+  type
+    TstackItem = record
+      pos: integer;
+      row, col: word;
+      quote: boolean;
+      end;
+  var
+    i, lastNL, row, m, t: integer;
+    stack: array of TstackItem;
+    Nstack: integer;
+  begin
+  setLength(stack, length(txt) div length(MARKER_OPEN)); // it will never need more than this
+  Nstack:=0;
+  pars:=TstringList.create;
+  try
+    i:=1;
+    row:=1;
+    lastNL:=0;
+    while i <= length(txt) do
+      begin
+      if txt[i] = #10 then
+        begin
+        inc(row);
+        lastNL:=i;
+        end;
+      for m:=0 to MAX_MARKER_ID do
+        begin
+        if not strAt(txt, ID2TAG[m], i) then continue;
+        case m of
+          QUOTE_ID,
+          OPEN_ID:
+            begin
+            if (m = OPEN_ID) and (Nstack > 0) and stack[Nstack-1].quote then continue; // don't consider quoted OPEN markers
+            stack[Nstack].pos:=i;
+            stack[Nstack].quote:= m=QUOTE_ID;
+            stack[Nstack].row:=row;
+            stack[Nstack].col:=i-lastNL;
+            inc(Nstack);
+            end;
+          CLOSE_ID:
+            begin
+            if Nstack = 0 then
+              raise EtplError.create('unmatched marker', copy(txt,i,30), row, i-lastNL);
+            if (Nstack > 0) and stack[Nstack-1].quote then continue; // don't consider quoted CLOSE markers
+            t:=length(MARKER_CLOSE);
+            inc(i, t-1+expand(stack[Nstack-1].pos, i+t-1));
+            dec(Nstack);
+            end;
+          UNQUOTE_ID:
+            begin
+            if (Nstack = 0) or not stack[Nstack-1].quote then continue;
+            dec(Nstack);
+            end;
+          end;
+        end;//for
+      inc(i);
+      end;
+  finally pars.free end;
+  if Nstack > 0 then
+    with stack[Nstack-1] do
+      raise EtplError.create('unmatched marker', copy(txt,pos,30), row, col)
+  end; // handleMacros
+
+begin
+if recurLevel > MAX_RECUR_LEVEL then exit;
+inc(recurLevel);
+handleSymbols();
+handleMacros();
+end; //applyMacrosAndSymbols2
+
+procedure applyMacrosAndSymbols(var txt:string; cb:TmacroCB; cbData:pointer; removeQuotings:boolean=TRUE);
+var
+  idsStack: TparserIdsStack;
+begin
+enforceNUL(txt);
+applyMacrosAndSymbols2(txt,cb,cbData,idsStack);
+if removeQuotings then
+  txt:=xtpl(txt, [MARKER_QUOTE, '', MARKER_UNQUOTE, ''])
+end;
+
+function findMacroMarker(s:string; ofs:integer=1):integer;
+begin result:=reMatch(s, '\{[.:]|[.:]\}|\|', 'm!', ofs) end;
+
+function anyMacroMarkerIn(s:string):boolean;
+begin result:=findMacroMarker(s) > 0 end;
+
+end.
diff --git a/progFrmLib.pas b/progFrmLib.pas
new file mode 100644
index 0000000..81a72e7
--- /dev/null
+++ b/progFrmLib.pas
@@ -0,0 +1,203 @@
+{
+Copyright (C) 2002-2008 Massimo Melina (www.rejetto.com)
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+
+}
+unit progFrmLib;
+
+interface
+
+uses
+  ComCtrls, Forms, controls, ExtCtrls, buttons, graphics;
+
+type
+  TprogressForm = class
+  private
+    prog: TProgressBar;
+    frm: Tform;
+    msgPnl: Tpanel;
+    cancelBtn: TbitBtn;
+    btnPnl: Tpanel;
+    stack: array of record ofs,length:real end;
+    partialLength: real;
+    canceled: boolean;
+    function getPos():real;
+    procedure setPos(x:real);
+    function getGlobalPos():real;
+    procedure setGlobalPos(x:real);
+    function getCaption():string;
+    procedure setCaption(x:string);
+    function getVisible():boolean;
+    procedure onCancel(Sender: TObject);
+    procedure onResize(Sender: TObject);
+  public
+    preventBackward: boolean;
+    constructor create;
+    procedure show(caption_:string=''; cancel:boolean=FALSE);
+    procedure hide();
+    property progress:real read getPos write setPos;
+    property globalPosition:real read getGlobalPos write setGlobalPos;
+    property caption:string read getCaption write setCaption;
+    property visible:boolean read getVisible;
+    property cancelRequested:boolean read canceled;
+    procedure push(sublength:real);
+    procedure pop();
+    procedure showCancel();
+    procedure hideCancel();
+    procedure reset();
+    end;
+
+implementation
+
+function max(a,b:integer):integer;
+begin if a > b then result:=a else result:=b end;
+
+constructor TprogressForm.create;
+begin
+frm:=Tform.create(NIL);
+frm.Position:=poScreenCenter;
+frm.Width:=200;
+frm.BorderStyle:=bsNone;
+frm.BorderWidth:=15;
+frm.Height:=25+frm.BorderWidth*2;
+frm.OnResize:=onResize;
+//frm.FormStyle:=fsStayOnTop;
+
+msgPnl:=Tpanel.create(frm);
+msgPnl.Parent:=frm;
+msgPnl.align:=alTop;
+msgPnl.height:=20;
+msgPnl.BevelOuter:=bvLowered;
+
+prog:=TProgressBar.Create(frm);
+prog.Parent:=frm;
+prog.BorderWidth:=3;
+prog.Min:=0;
+prog.max:=100; // resolution
+prog.Align:=alClient;
+prog.smooth:=TRUE;
+
+btnPnl:=Tpanel.create(frm);
+btnPnl.parent:=frm;
+btnPnl.Align:=alBottom;
+btnPnl.BevelOuter:=bvLowered;
+
+cancelBtn:=TbitBtn.create(frm);
+cancelBtn.parent:=btnPnl;
+cancelBtn.Kind:=bkCancel;
+cancelBtn.top:=10;
+cancelBtn.OnClick:=onCancel;
+
+btnPnl.Height:=cancelBtn.Height+cancelBtn.top*2;
+btnPnl.Hide();
+
+partialLength:=1;
+push(1); // init stack
+frm.Height:=frm.Height+msgPnl.Height;
+end; // constructor
+
+function TprogressForm.getVisible():boolean;
+begin result:=frm.Visible end;
+
+procedure TprogressForm.showCancel();
+begin
+if btnPnl.visible then exit;
+frm.Height:=frm.Height+btnPnl.Height;
+btnPnl.show();
+end; // showCancel
+
+procedure TprogressForm.hideCancel();
+begin
+if not btnPnl.visible then exit;
+frm.Height:=frm.Height-btnPnl.Height;
+btnPnl.hide();
+end; // hideCancel
+
+procedure TprogressForm.show(caption_: string; cancel:boolean);
+begin
+canceled:=FALSE;
+if not frm.visible then reset();
+if caption_ > '' then caption:=caption_;
+if cancel then showCancel();
+frm.Show();
+end; // show
+
+procedure TprogressForm.hide();
+begin
+frm.hide();
+hideCancel();
+end;
+
+function TprogressForm.getCaption():string;
+begin result:=msgPnl.caption end;
+
+procedure TprogressForm.setCaption(x:string);
+begin
+msgPnl.caption:=x;
+frm.Width:=max(200,
+  frm.Canvas.TextWidth(x)+(msgPnl.BorderWidth+frm.BorderWidth)*2+20 );
+end;
+
+procedure TprogressForm.setGlobalPos(x:real);
+begin
+x:=x*prog.max;
+if preventBackward and (prog.position > x) then x:=prog.position;
+prog.position:=round(x);
+end; // setGlobalPos
+
+function TprogressForm.getGlobalPos():real;
+begin result:=prog.position/prog.max end;
+
+procedure TprogressForm.setPos(x:real);
+begin setGlobalPos(stack[length(stack)-1].ofs + x*partialLength ) end;
+
+function TprogressForm.getPos():real;
+begin result:=getGlobalPos()/partialLength + stack[length(stack)-1].ofs end;
+
+procedure TprogressForm.push(sublength:real);
+var
+  i: integer;
+begin
+assert(sublength <= 1,'TprogressForm.push(X): X>1');
+i:=length(stack);
+setLength(stack, i+1);
+stack[i].ofs:=globalPosition;
+stack[i].length:=partialLength;
+partialLength:=partialLength*sublength;
+end; // push
+
+procedure TprogressForm.pop();
+var
+  i: integer;
+begin
+assert(length(stack) > 1, 'TprogressForm.pop(): empty stack');
+progress:=1;
+i:=length(stack)-1;
+partialLength:=stack[i].length;
+setlength(stack, i);
+end; // pop
+
+procedure TprogressForm.onCancel(Sender: TObject);
+begin canceled:=TRUE end;
+
+procedure TprogressForm.onResize(Sender: TObject);
+begin cancelBtn.left:=(frm.width-cancelBtn.width) div 2-frm.borderWidth end;
+
+procedure TprogressForm.reset();
+begin prog.position:=0 end;
+
+end.
diff --git a/purgeDlg.dfm b/purgeDlg.dfm
new file mode 100644
index 0000000..59eefb5
--- /dev/null
+++ b/purgeDlg.dfm
@@ -0,0 +1,73 @@
+object purgeFrm: TpurgeFrm
+  Left = 0
+  Top = 0
+  Caption = 'Purge options'
+  ClientHeight = 152
+  ClientWidth = 186
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 8
+    Top = 8
+    Width = 127
+    Height = 13
+    Caption = 'Choose what to remove...'
+  end
+  object rmFilesChk: TCheckBox
+    Left = 8
+    Top = 35
+    Width = 177
+    Height = 17
+    Caption = 'Non-existent files'
+    Checked = True
+    State = cbChecked
+    TabOrder = 0
+  end
+  object rmRealFoldersChk: TCheckBox
+    Left = 8
+    Top = 58
+    Width = 171
+    Height = 17
+    Caption = 'Non-existent real folders'
+    Checked = True
+    State = cbChecked
+    TabOrder = 1
+  end
+  object rmEmptyFoldersChk: TCheckBox
+    Left = 8
+    Top = 81
+    Width = 177
+    Height = 17
+    Caption = 'Empty folders'
+    Checked = True
+    State = cbChecked
+    TabOrder = 2
+  end
+  object Button1: TButton
+    Left = 8
+    Top = 118
+    Width = 75
+    Height = 25
+    Caption = '&Ok'
+    Default = True
+    ModalResult = 1
+    TabOrder = 3
+  end
+  object Button2: TButton
+    Left = 103
+    Top = 118
+    Width = 75
+    Height = 25
+    Caption = '&Cancel'
+    ModalResult = 2
+    TabOrder = 4
+  end
+end
diff --git a/purgeDlg.pas b/purgeDlg.pas
new file mode 100644
index 0000000..0a0bf9b
--- /dev/null
+++ b/purgeDlg.pas
@@ -0,0 +1,30 @@
+unit purgeDlg;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls;
+
+type
+  TpurgeFrm = class(TForm)
+    rmFilesChk: TCheckBox;
+    Label1: TLabel;
+    rmRealFoldersChk: TCheckBox;
+    rmEmptyFoldersChk: TCheckBox;
+    Button1: TButton;
+    Button2: TButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  purgeFrm: TpurgeFrm;
+
+implementation
+
+{$R *.dfm}
+
+end.
diff --git a/recompile data.bat b/recompile data.bat
new file mode 100644
index 0000000..bce0a56
--- /dev/null
+++ b/recompile data.bat	
@@ -0,0 +1,2 @@
+brcc32 data.rc
+dcc32 hfs -U\code\mine\libs;\code\other\ics\delphi\vc32;\code\other\compiled;c:\code\other\jcl\source\windows\;c:\code\other\jcl\source\common\;C:\progs\Borland\BDS\4.0\lib
diff --git a/runscriptDlg.dfm b/runscriptDlg.dfm
new file mode 100644
index 0000000..d3790bc
--- /dev/null
+++ b/runscriptDlg.dfm
@@ -0,0 +1,63 @@
+object runScriptFrm: TrunScriptFrm
+  Left = 0
+  Top = 0
+  Caption = 'Run script'
+  ClientHeight = 312
+  ClientWidth = 544
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object resultBox: TMemo
+    Left = 0
+    Top = 41
+    Width = 544
+    Height = 271
+    Align = alClient
+    Lines.Strings = (
+      'Write your script in the external editor, then click Run.'
+      'In this box will see the result of the script you run.')
+    TabOrder = 0
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 544
+    Height = 41
+    Align = alTop
+    BevelOuter = bvNone
+    TabOrder = 1
+    object sizeLbl: TLabel
+      Left = 503
+      Top = 24
+      Width = 32
+      Height = 13
+      Alignment = taRightJustify
+      Caption = 'Size: 0'
+    end
+    object runBtn: TButton
+      Left = 16
+      Top = 10
+      Width = 75
+      Height = 25
+      Caption = '&Run'
+      TabOrder = 0
+      OnClick = runBtnClick
+    end
+    object autorunChk: TCheckBox
+      Left = 104
+      Top = 16
+      Width = 169
+      Height = 17
+      Caption = '&Auto run at every saving'
+      Checked = True
+      State = cbChecked
+      TabOrder = 1
+    end
+  end
+end
diff --git a/runscriptDlg.pas b/runscriptDlg.pas
new file mode 100644
index 0000000..c6fd300
--- /dev/null
+++ b/runscriptDlg.pas
@@ -0,0 +1,47 @@
+unit runscriptDlg;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls;
+
+type
+  TrunScriptFrm = class(TForm)
+    resultBox: TMemo;
+    Panel1: TPanel;
+    runBtn: TButton;
+    autorunChk: TCheckBox;
+    sizeLbl: TLabel;
+    procedure runBtnClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  runScriptFrm: TrunScriptFrm;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  main, utilLib, classesLib, scriptLib;
+
+procedure TrunScriptFrm.runBtnClick(Sender: TObject);
+var
+  tpl: Ttpl;
+begin
+tpl:=Ttpl.create;
+try
+  try
+    tpl.fullText:=loadTextFile(tempScriptFilename);
+    resultBox.text:=runScript(tpl[''], NIL, tpl);
+    sizeLbl.Caption:=getTill(':', sizeLbl.Caption)+': '+intToStr(length(resultBox.text));
+  except on e:Exception do resultBox.text:=e.message end;
+finally tpl.free end;
+end;
+
+end.
diff --git a/scriptLib.pas b/scriptLib.pas
new file mode 100644
index 0000000..3024856
--- /dev/null
+++ b/scriptLib.pas
@@ -0,0 +1,2588 @@
+{
+Copyright (C) 2002-2012  Massimo Melina (www.rejetto.com)
+
+This file is part of HFS ~ HTTP File Server.
+
+    HFS is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    HFS is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with HFS; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+}
+unit scriptLib;
+
+interface
+
+uses main, classesLib, iniFiles, types;
+
+type
+  TmacroData = record
+    cd: TconnData;
+    tpl: Ttpl;
+    folder, f: Tfile;
+    afterTheList, archiveAvailable, hideExt, breaking: boolean;
+    aliases, tempVars: THashedStringList;
+    table: TStringDynArray;
+    logTS: boolean;
+    end;
+
+var
+  defaultAlias: THashedStringList;
+  staticVars : THashedStringList; // these scripting variables are held for the whole run-time
+  eventScripts: Ttpl;
+
+function tryApplyMacrosAndSymbols(var txt:string; var md:TmacroData; removeQuotings:boolean=true):boolean;
+function macroQuote(s:string):string;
+function runScript(script:string; table:TstringDynArray=NIL; tpl_:Ttpl=NIL; f:Tfile=NIL; folder:Tfile=NIL; cd:TconnData=NIL):string;
+function runEventScript(event:string; table:TStringDynArray=NIL; cd:TconnData=NIL):string;
+procedure resetLog();
+
+implementation
+
+uses windows, utilLib, trayLib, parserLib, graphics, classes, sysutils, StrUtils,
+  hslib, comctrls, math, controls, forms, clipbrd, MMsystem, OverbyteicsMD5, OverbyteIcsSha1;
+
+const
+  HEADER = '<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"><style>'
+  +#13'dt, dd { margin:0; padding:0.2em 0.5em; white-space:pre; display:block; font-family:monospace; } dt { background:#dfd; } dd { background:#fdd; }'
+  +#13'</style></head><body>';
+
+var
+  stopOnMacroRename: boolean; // this ugly global var is used to avoid endless recursion on a renaming rename event. this method won't work on a multithreaded system, but i opted for it because otherwise the changes would have been big.
+  cachedTpls: TcachedTpls;
+  flog: ^file;
+
+function macrosLog(textIn, textOut:string; ts:boolean=FALSE):boolean;
+var
+  s: string;
+begin
+s:='';
+if ts then
+    s:='<hr>'+dateTimeToStr(now())+CRLF;
+s:=s+#13'<dt>'+htmlEncode(textIn)+'</dt><dd>'+htmlEncode(textOut)+'</dd>';
+if flog = NIL then
+  begin
+  new(flog);
+  assignFile(flog^, MACROS_LOG_FILE);
+  reset(flog^, 1);
+  if IOresult() <> 0 then rewrite(flog^,1)
+  else seek(flog^,fileSize(flog^));
+  end;
+result:=saveFile(flog^, s)
+end; // macrosLog
+
+procedure resetLog();
+begin
+try
+  closeFile(flog^);
+  dispose(flog);
+  flog:=NIL;
+except end;
+deleteFile(MACROS_LOG_FILE);
+end; // resetLog
+
+function expandLinkedAccounts(account:Paccount):TStringDynArray;
+var
+  i: integer;
+begin
+result:=NIL;
+if account = NIL then exit;
+i:=0;
+result:=account.link;
+while i < length(result) do
+  begin
+  account:=getAccount(result[i], TRUE);
+  inc(i);
+  if (account = NIL) or not account.enabled then continue;
+  addUniqueArray(result, account.link);
+  end;
+end; // expandLinkedAccounts
+
+function encodeMarkers(s:string):string;
+var
+  i: integer;
+  t: string;
+begin
+for i:=0 to length(MARKERS)-1 do
+  begin
+  t:=MARKERS[i];
+  replace(t, '&#'+intToStr(charToUnicode(t[1]))+';', 1,1);
+  s:=replaceStr(s, MARKERS[i], t);
+  end;
+result:=s;
+end; // encodeMarkers
+
+function noMacrosAllowed(s:string):string;
+// prevent hack attempts
+var
+  i: integer;
+begin
+i:=1;
+enforceNUL(s);
+  repeat
+  i:=findMacroMarker(s, i);
+  if i = 0 then break;
+  replace(s, '&#'+intToStr(charToUnicode(s[i]))+';', i,i);
+  until false;
+s:=reReplace(s,'%([-a-z0-9]+%)','&#37;$1', 'mi');
+result:=s;
+end; // noMacrosAllowed
+
+function isMacroQuoted(s:string):boolean;
+begin result:=ansiStartsStr(MARKER_QUOTE, s) and ansiEndsStr(MARKER_UNQUOTE, s) end;
+
+function macroQuote(s:string):string;
+var
+  t: string;
+begin
+enforceNUL(s);
+if not anyMacroMarkerIn(s) then
+  begin
+  result:=s;
+  exit;
+  end;
+// an UNQUOTE would invalidate our quoting, so let's encode any of it
+t:=MARKER_UNQUOTE;
+replace(t, '&#'+intToStr(charToUnicode(t[1]))+';', 1,1);
+result:=MARKER_QUOTE+replaceStr(s, MARKER_UNQUOTE, t)+MARKER_UNQUOTE
+end; // macroQuote
+
+function macroDequote(s:string):string;
+begin
+result:=s;
+s:=trim(s);
+if isMacroQuoted(s) then
+  result:=copy(s, length(MARKER_QUOTE)+1, length(s)-length(MARKER_QUOTE)-length(MARKER_UNQUOTE) );
+end; // macroDequote
+
+function cbMacros(fullMacro:string; pars:Tstrings; cbData:pointer):string;
+var
+  md: ^TmacroData;
+  name, p: string;
+  unnamedPars: integer; // this is a guessing of the number of unnamed parameters. just guessing because there's no true distinction between a parameter "value" named "key", and parameter "key=value"
+
+  procedure macroError(msg:string);
+  begin result:='<div class=macroerror>macro error: '+name+nonEmptyConcat('<br>',msg)+'</div>' end;
+
+  procedure deprecatedMacro(what:string=''; instead:string='');
+  begin mainfrm.add2log('WARNING, deprecated macro: '+first(what, name)+nonEmptyConcat(' - Use instead: ',instead), NIL, clRed) end;
+
+  function satisfied(p:pointer):boolean;
+  begin
+  result:=assigned(p);
+  if not result then
+    macroError('cannot be used here');
+  end;
+
+  procedure unsatisfied(b:boolean=TRUE);
+  begin if b then macroError('cannot be used here') end;
+
+  function parEx(idx:integer; name:string=''; doTrim:boolean=TRUE):string; overload;
+  var
+    i: integer;
+  begin
+  result:='';
+  if name > '' then
+    begin
+    i:=pars.IndexOfName(name);
+    if i >= 0 then
+      begin
+      result:=pars.valueFromIndex[i];
+      if doTrim then result:=trim(result);
+      exit;
+      end;
+    end;
+  if (idx < 0) // no numeric index accept
+  or (idx >= pars.count) // invalid index
+  or (name > '') and (pars.names[idx] > '') and not anycharIn(' '#13#10, pars.names[idx]) // this numerical index was already taken by a valid mnemonic name
+  then
+    raise Exception.create('invalid parameter index');
+  result:=pars[idx];
+  if doTrim then result:=trim(result);
+  end; // parEx
+
+  function parEx(name:string; doTrim:boolean=TRUE):string; overload;
+  begin result:=parEx(-1, name, doTrim) end;
+
+  function par(idx:integer; name:string=''; doTrim:boolean=TRUE):string; overload;
+  begin
+  try result:=parEx(idx, name, doTrim)
+  except result:='' end
+  end;
+
+  function par(name:string=''; doTrim:boolean=TRUE; defval:string=''):string; overload;
+  begin
+  try result:=parEx(-1, name, doTrim)
+  except result:=defval end
+  end;
+
+  function parI(idx:integer):int64; overload;
+  begin result:=strToInt64(par(idx)) end;
+
+  function parI(idx:integer; def:int64):int64; overload;
+  begin result:=strToInt64Def(par(idx), def) end;
+
+  function parI(name:string; def:int64):int64; overload;
+  begin result:=strToInt64Def(par(name), def) end;
+
+  function parF(idx:integer):extended; overload;
+  begin result:=strToFloat(par(idx)) end;
+
+  function parF(idx:integer; def:extended):extended; overload;
+  begin result:=strToFloatDef(par(idx), def) end;
+
+  function parF(name:string; def:extended):extended; overload;
+  begin result:=strToFloatDef(par(name), def) end;
+
+  // note this function works on N parameters
+  function parExist(names: array of string):boolean;
+  var
+    i: integer;
+  begin
+  result:=FALSE;
+  for i:=0 to length(names)-1 do
+    if pars.indexOfName(names[i]) < 0 then
+      exit;
+  result:=TRUE;
+  end; // parExist
+
+  procedure trueIf(condition:boolean);
+  begin if condition then result:='1' else result:='' end;
+
+  // this is for cases where normally we want a "clean" output. User can still detect outcome by using macro "length".
+  // Reason for having this instead of using in place a simple "result:=if_(cond, ' ')" is to evidence our purpose. It's not faster or cleaner, it's more semantic.
+  procedure spaceIf(condition:boolean);
+  begin if condition then result:=' ' else result:='' end;
+
+  function isFalse(s:string):boolean;
+  begin result:=(s='') or (strToFloatDef(s,1) = 0) end;
+
+  function isTrue(s:string):boolean; inline;
+  begin result:=not isFalse(s) end;
+
+  function getVarSpace(var varname:string):THashedStringList;
+  begin
+  varname:=trim(varname);
+  if ansiStartsStr(G_VAR_PREFIX, varname) then
+    begin
+    result:=staticVars;
+    delete(varname,1,length(G_VAR_PREFIX));
+    end
+  else if satisfied(md.cd) then
+    result:=md.cd.vars
+  else if satisfied(md.tempVars) then
+    result:=md.tempVars
+  else
+    raise Exception.create('no namespace available');
+  end; // getVarSpace
+
+  function getVar(varname:string):string; overload;
+  begin result:=getVarSpace(varname).values[varname] end;
+
+  // if par with name exists, then it's a var name, otherwise it's a constant value at specified index
+  function parVar(parname:string; idx:integer):string; overload;
+  begin
+  if parExist([parname]) then
+    result:=getVar(par(parname))
+  else
+    result:=pars[idx];
+  end; // parVar
+
+  function setVar(varname, value:string; space:THashedStringList=NIL):boolean;
+  var
+    o: Tobject;
+    i: integer;
+  begin
+  result:=FALSE;
+  if space = NIL then
+    space:=getVarSpace(varname);
+  if not satisfied(space) then exit;
+  i:=space.indexOfName(varname);
+  if i < 0 then
+    if value = '' then exit // all is good the way it is
+    else i:=space.add(varname+'='+value)
+  else
+    if value > '' then // in case of empty value, there's no need to assign, because we are going to delete it (after we cleared the bound object)
+      space.valueFromIndex[i]:=value;
+
+  assert(i >= 0, 'setVar: i<0');
+  // the previous hash object linked to this data is not valid anymore, and must be freed
+  o:=space.objects[i];
+  freeAndNIL(o);
+
+  if value = '' then
+    space.delete(i)
+  else
+    space.objects[i]:=NIL;
+  result:=TRUE;
+  end; // setVar
+
+  // we wrap pos() to switch between case sensitivity
+  function pos_(caseSensitive:boolean; ss, s:string; ofs:integer=1):integer;
+  begin
+  if caseSensitive then result:=posEx(ss,s,ofs)
+  else result:=ipos(ss,s,ofs)
+  end; // pos_
+
+  procedure allLogic(isAnd:boolean); // when not "isAnd", then it isOr ;-)
+  var
+    i: integer;
+  begin
+  // AND will return first FALSE value, or having none, the last TRUE value.
+  // OR will return last TRUE value, or having none, last value. 
+  result:='';
+  for i:=0 to pars.count-1 do
+    begin
+    result:=par(i);
+    if isAnd xor isTrue(result) then exit;
+    end;
+  end; // allLogic
+
+  procedure substring();
+  var
+    i, j: integer;
+    s: string;
+    what2inc: integer;
+    caseSens: boolean;
+  begin
+  result:='';
+
+  // input what to be included in the result
+  s:=par('include');
+  try what2inc:=strToInt(s)
+  except // we also support the following values
+    if s = 'none' then what2inc:=0
+    else if s = 'both' then what2inc:=3
+    else if s = '1+2' then what2inc:=3
+    else what2inc:=1; // by default we include only the first delimiter
+    end;
+
+  caseSens:=isTrue(par('case'));
+
+  // find the delimiters
+  s:=macroDequote(par(2));
+  if pars[0] = '' then i:=1
+  else i:=pos_(caseSens, pars[0], s); // we don' trim this, so you can use blank-space as delimiter
+  if i = 0 then exit;
+  j:=pos_(caseSens, pars[1], s, i+1);
+  if j = 0 then j:=length(s)+1;
+
+  // apply what2inc
+  if what2inc and 1 = 0 then
+    inc(i, length(pars[0]));
+  if what2inc and 2 > 0 then
+    inc(j, length(pars[1]));
+
+  // end of the story
+  result:=macroQuote(copy(s, i, j-i));
+  end; // substring
+
+  procedure switch();
+  var
+    what, sep: string;
+    i, j: integer;
+    a: TStringDynArray;
+  begin
+  what:=par(0);
+  sep:=first(pars[1], ' '); // we don' trim this, so you can use blank-space as separator
+  i:=2;
+  while i < pars.count do
+    begin
+    if i = pars.count-1 then
+      begin
+      result:=macroDequote(par(i));
+      exit;
+      end;
+    a:=split(sep, par(i));
+    for j:=0 to length(a)-1 do
+      if sameText(a[j], what) then
+        begin
+        result:=macroDequote(par(i+1));
+        exit;
+        end;
+    inc(i, 2);
+    end;
+  result:='';
+  end; // switch
+
+  procedure cut();
+  var
+    from, upTo, l: integer;
+    s, v: string;
+  begin
+  v:=par('var');
+  if v = '' then
+    s:=par(2,'what')
+  else
+    s:=getVar(v);
+  l:=length(s);
+
+  from:=strToIntDef(par(0,'from'), 1);
+  if from < 0 then from:=l+from+1;
+
+  try upTo:=strToInt(parEx('to'))
+  except
+    upTo:=strToIntDef(par(1,'size'), 0);
+    if upTo = 0 then
+      upTo:=l
+    else if upTo > 0 then
+      upTo:=from+upTo-1
+    else
+      upTo:=l+upTo;
+    end;
+    
+  result:=substr(s, from, upTo);
+  try setVar(parEx('remainder'), substr(s,1,from-1)+substr(s,upTo+1));
+  except end;
+  if v = '' then exit;
+  setVar(v, result);
+  result:='';
+  end; // cut
+
+  procedure minOrMax();
+  var
+    i: integer;
+    r, v: real;
+    min: boolean;
+  begin
+  min:=name='min';
+  r:=parF(0);
+  for i:=1 to pars.Count-1 do
+    begin
+    v:=parF(i);
+    if (v < r) and min
+    or (v > r) and not min then
+      r:=v;
+    end;
+  result:=floatToStr(r);
+  end; // minOrMax
+
+  procedure getUri();
+  var
+    i, ex, eq: integer;
+    vars: Tstrings;
+    s: string;
+  begin
+  if not satisfied(md.cd) then exit;
+  try
+    result:=md.cd.conn.request.url;
+    if pars.count < 2 then exit;
+    s:=result;
+    result:=chop('?', s);
+    vars:=TstringList.create();
+    try
+      vars.delimiter:='&';
+      vars.quoteChar:=#0;
+      vars.delimitedText:=s;
+      if pars.count > 1 then
+        for i:=1 to pars.count-1 do
+          begin
+          s:=par(i);
+          if s = '' then continue;
+          eq:=pos('=', s);
+          if eq = 0 then
+            begin
+            if vars.indexOf(s) < 0 then
+              vars.add(pars[i]);
+            continue;
+            end;
+          ex:=vars.indexOfName(chop(eq,s));
+          if ex < 0 then
+            if s = '' then
+              continue   // the parameter didn't exist, and we are trying to empty it
+            else
+              vars.add(par(i))  // didn't exist, put the whole
+          else
+            if s = '' then
+              vars.delete(ex) //  exists, but we are trying to empty it
+            else
+              vars.valueFromIndex[ex]:=s; // exists, change the value
+          end;
+      if vars.count = 0 then exit;
+      for i:=vars.Count-1 downto 0 do
+        if vars[i] = '' then
+          vars.delete(i);
+      result:=result+'?'+vars.delimitedText;
+    finally vars.free end;
+  finally result:=macroQuote(result) end;
+  end; // getUri
+
+  procedure section(ofs:integer);
+  var
+    t: Ttpl;
+    s: string;
+  begin
+  if not satisfied(md.tpl) then exit;
+  s:=par(ofs);
+  if (par('file') = '') and ((s = '') or (pos('=',s) > 0)) then
+    begin // current template
+    result:='';
+    t:=md.tpl;
+    ofs:=parI('back', 0);
+    while ofs > 0 do
+      begin
+      dec(ofs);
+      t:=t.over;
+      if t = NIL then exit;
+      end;
+    try result:=t[p] except end;
+    exit;
+    end;
+  // template in other file
+
+  t:=Ttpl.create;
+  try
+    t.fullText:=loadTextFile(par(ofs, 'file'));
+    result:=t[p];
+  finally t.free end;
+  // templates outside hfs folder get quoted for security reasons
+  if anyCharIn('\/', par(ofs)) then
+    result:=macroQuote(result);
+  end; // section
+
+  function urlVar(k:string):string;
+  var
+    s: string;
+  begin
+  if not satisfied(md.cd) then exit;
+  s:=md.cd.urlvars.values[k];
+  if (s = '') and (md.cd.urlvars.indexOf(k) >= 0) then s:='1';
+  try
+    result:=noMacrosAllowed(optUTF8(md.tpl, s));
+    setVar(parEx('var'), result); // if no var is specified, it will break here, and result will have the value
+    result:='';
+  except end;
+  end; // urlVar
+
+  function maybeUrlvar(k:string):string;
+  begin
+  if (k = '') or (k[1] <> '?') then result:=k
+  else result:=urlvar(copy(k,2,MAXINT));
+  end; // maybeUrlvar
+
+  function compare(op,p1,p2:string):boolean;
+  var
+    r1,r2: double;
+    c: integer;
+  begin
+  try
+    r1:=StrToFloat(p1);
+    r2:=StrToFloat(p2);
+    c:=compare_(r1,r2)
+  except
+    c:=ansiCompareText(p1,p2);
+    end;
+  if op = '=' then result:= c=0
+  else if op = '>' then result:= c>0
+  else if op = '<' then result:= c<0
+  else if op = '>=' then result:= c>=0
+  else if op = '<=' then result:= c<=0
+  else if (op = '<>') or (op = '!=') then result:= c<>0
+  else result:=FALSE;
+  end; // compare
+
+  procedure infixOperators(ops:array of string);
+  var
+    i, j: integer;
+    s: string;
+  begin
+  if pars.count > 0 then exit;
+  for i:=0 to length(ops)-1 do
+    begin
+    j:=pos(ops[i], name);
+    if j = 0 then continue;
+    s:=trim(chop(j, length(ops[i]), name));
+    trueIf(compare(ops[i], maybeUrlvar(s), maybeUrlvar(trim(name))));
+    exit;
+    end;
+  end; // infixOperators
+
+  procedure call(code:string; ofs:integer=0);
+  var
+    i: integer;
+  begin
+  result:=code;
+  if pars.count=0 then
+    exit;
+  for i:=ofs to pars.Count-1 do
+    result:=replaceStr(result, format('$%d',[i-ofs+1]), pars[i]);
+  for i:=pars.count to pars.count+5 do
+    result:=replaceStr(result, format('$%d',[i-ofs+1]), '');
+  end; // call
+
+  procedure breadcrumbs();
+  var
+    e, d: string;
+    ae, ad: TstringDynArray;
+    i: integer;
+    fld: Tfile;
+    freeIt: boolean;
+  begin
+  freeIt:=FALSE;
+  if md.f = NIL then
+    fld:=md.folder
+  else
+    begin
+    fld:=md.f.parent;
+    if md.f.isTemp() then
+      begin
+      e:=extractFilePath(md.f.resource);
+      if length(e) > 3 then
+        e:=excludeTrailingPathDelimiter(e);
+      if e <> fld.resource then
+        begin
+        fld:=Tfile.createTemp(e);
+        fld.node:=md.f.node;
+        freeIt:=TRUE;
+        end
+      end;
+    end;
+
+  if not satisfied(fld) then exit;
+  e:=htmlEncode(encodeMarkers(fld.url(TRUE)));
+  d:=htmlEncode(encodeMarkers(optUTF8(md.tpl, fld.getFolder()+fld.name+'/')));
+  ae:=split('/', e);
+  ad:=split('/', d);
+  p:=macroDequote(p);
+  result:='';
+  e:='';
+  i:=length(ae)-1;
+  if ae[i] = '' then
+    dec(i);
+  for i:=parI('from',0) to i do
+    begin
+    e:=e+ae[i]+'/';
+    result:=result+xtpl(p, [
+      '%bread-url%', e,
+      '%bread-name%', ad[i],
+      '%bread-idx%', intToStr(i)
+    ]);
+    end;
+
+  if freeIt then
+    freeAndNIL(fld);
+  end; // breadcrumbs
+
+  procedure inc_(v:integer=+1);
+  begin
+  result:='';
+  try setVar(p, intToStr(strToIntDef(getVar(p),0)+v*parI(1,1))) except end;
+  end; // inc_
+
+  procedure convert();
+  begin
+  if sameText(p, 'ansi') and sameText(par(1), 'utf-8') then result:=ansiToUTF8(par(2))
+  else if sameText(p, 'utf-8') and sameText(par(1), 'ansi') then result:=utf8ToAnsi(par(2))
+  end; // convert
+
+  procedure encodeuri();
+  var
+    i: integer;
+    cs: Tcharset;
+  begin
+  result:='';
+  try cs:=[#0..#255]-strToCharset(parEx('only'));
+  except
+    cs:=['a'..'z','A'..'Z','0'..'9',',','/','#','&','?',':','$','@','=','+']
+      -strToCharset(par('add'))+strToCharset(par('not'));
+    end;
+  for i:=1 to length(p) do
+    if p[i] in cs then
+      result:=result+p[i]
+    else
+      result:=result+'%'+intToHex(ord(p[i]),2)
+  end; // encodeuri
+
+  procedure addFolder();
+  var
+    parent: Ttreenode;
+    f, old: Tfile;
+    fn, name: string;
+
+    // extract the path from "name", if any, and assign it to "parent"
+    function validateAndExtractParent():boolean;
+    var
+      i: integer;
+      parentF: Tfile;
+    begin
+    result:=TRUE;
+    i:=lastDelimiter('/',name);
+    if i = 0 then exit;
+    result:=FALSE;
+    parentf:=mainfrm.findFilebyURL(chop(i+1, 0, name), NIL, FALSE);
+    if parentf = NIL then exit;
+    parent:=parentf.node; // ok, this is where we'll add the folder
+    result:=TRUE;
+    end; // validateAndExtractParent
+
+  begin
+  result:='';
+  if not stringExists(p, ['real','virtual']) then exit;
+
+  parent:=NIL;
+  if assigned(md.folder) then
+    parent:=md.folder.node;
+
+  if p = 'virtual' then
+    begin
+    name:=par(1);
+    if not validateAndExtractParent() then exit;
+    f:=Tfile.createVirtualFolder(name);
+    end
+  else
+    begin
+    fn:=uri2diskMaybe(par(1));
+    if not isAbsolutePath(fn) and assigned(md.folder) then
+      fn:=expandFileName(md.folder.resource+'\'+fn);
+    if not directoryExists(fn) then exit; // the real folder must exists on disk
+
+    // is a name specified in the third parameter, or should we deduce it from the disk path?
+    name:=par(2);
+    if (name = '') or containsStr(name,'=') then
+      name:=extractFileName(fn);
+
+    if not validateAndExtractParent() then exit;
+    f:=Tfile.create(fn);
+    f.name:=name;
+    end;
+
+  if not validFilename(f.name) then
+    begin
+    f.free;
+    exit;
+    end;
+
+  old:=mainfrm.findFilebyURL(f.name, nodeToFile(parent), FALSE);
+  if assigned(old) then
+    if not old.isRoot()
+    and (not parExist(['overwrite']) or isTrue(par('overwrite'))) then
+      try old.node.delete() except end // delete existing one
+    else
+      begin
+      f.free;
+      exit;
+      end;
+
+  if mainfrm.addFile(f, parent, TRUE) = NIL then
+    f.free
+  else
+    spaceIf(TRUE)
+  end; // addFolder
+
+  procedure setItem();
+  var
+    f: Tfile;
+    act: TfileAction;
+
+    function get(prefix:string):TStringDynArray;
+    begin
+    result:=onlyExistentAccounts(split(';', parEx(prefix+FILEACTION2STR[act])));
+    uniqueStrings(result);
+    end;
+
+    procedure setAttr(a:TfileAttribute; parName:string);
+    begin
+    try
+      if isTrue(parEx(parname)) then
+        include(f.flags, a)
+      else
+        exclude(f.flags, a);
+    except end;
+    end; // setAttr
+
+  begin
+  result:='';
+  f:=mainfrm.findFileByURL(p, md.folder);
+  if f = NIL then exit; // doesn't exist
+
+  try f.setDynamicComment(macroDequote(parEx('comment'))) except end;
+  try
+    f.name:=parEx('name');
+    if assigned(f.node) then
+      f.node.text:=f.name;
+  except end;
+  try f.resource:=parEx('resource') except end;
+  try f.diffTpl:=parEx('diff template') except end;
+  try f.filesFilter:=parEx('files filter') except end;
+  try f.foldersFilter:=parEx('folders filter') except end;
+
+  // following commands make no sense on temporary items
+  if freeIfTemp(f) then exit;
+
+  setAttr(FA_HIDDEN, 'hide');
+  setAttr(FA_HIDDENTREE, 'hide tree');
+  setAttr(FA_DONT_LOG, 'no log');
+  setAttr(FA_ARCHIVABLE, 'archivable');
+  setAttr(FA_BROWSABLE, 'browsable');
+  setAttr(FA_DL_FORBIDDEN, 'download forbidden');
+  if f.isFolder() then
+    try f.dontCountAsDownloadMask:=parEx('not as download') except end
+  else
+    setAttr(FA_DONT_COUNT_AS_DL, 'not as download');
+
+  for act:=low(act) to high(act) do
+    begin
+    try f.accounts[act]:=get('') except end;
+    try addUniqueArray(f.accounts[act], get('add ')) except end;
+    try removeArray(f.accounts[act], get('remove ')) except end;
+    end;
+  VFSmodified:=TRUE;
+  mainfrm.filesBox.repaint();
+  end; // setItem
+
+  function getItemIcon(f:Tfile):string;
+  begin
+  if f = NIL then
+    result:=''
+  else if (f.icon >= 0) or (mainfrm.useSystemIconsChk.checked and f.isFile()) then
+    result:='/~img'+intToStr(f.getSystemIcon())
+  else if f.isFile() then
+    result:='/~img_file'
+  else if f.isFolder() then
+    if FA_UNIT in f.flags then
+      result:=format('/~img%d', [f.getIconForTreeview()])
+    else
+      result:='/~img_folder'
+  else if f.isLink() then
+    result:='/~img_link'
+  else
+    result:='';
+  end; // getItemIcon
+
+  procedure deleteItem();
+  var
+    f: Tfile;
+  begin
+  f:=mainfrm.findFileByURL(p);
+  spaceIf(assigned(f)); // so you can know if something really has been deleted
+  if f = NIL then exit; // doesn't exist
+  mainFrm.remove(f.node);
+  VFSmodified:=TRUE;
+  end; // deleteItem
+
+  procedure getItem();
+  var
+    f: Tfile;
+    act: TfileAction;
+    w: string;
+
+    function getAttr(name:string; a:TfileAttribute):boolean;
+    begin
+    result:= w = name;
+    if result then
+      trueIf(a in f.flags);
+    end; // setAttr
+
+  begin
+  result:='';
+  f:=mainfrm.findFileByURL(p, md.folder);
+  if f = NIL then exit; // doesn't exist
+
+  try
+    w:=par(1);
+    if w = 'exists' then
+      result:='1'
+    else if w = 'comment' then
+      result:=f.getDynamicComment()
+    else if w = 'resource' then
+      result:=f.resource
+    else if w = 'icon' then
+      result:=getItemIcon(f)
+    else if getAttr('hide', FA_HIDDEN)
+      or getAttr('hide tree', FA_HIDDENTREE)
+      or getAttr('no log', FA_DONT_LOG) then
+      exit
+    else if w = 'not as download' then
+      if f.isFolder() then
+        result:=f.dontCountAsDownloadMask
+      else
+        trueIf(FA_DONT_COUNT_AS_DL in f.flags);
+
+    for act:=low(act) to high(act) do
+      if compareText(w, FILEACTION2STR[act]) = 0 then
+        begin
+        result:=join(';', f.accounts[act]);
+        exit;
+        end;
+  finally freeIfTemp(f) end;
+  end; // getItem
+
+  procedure foreach();
+  var
+    i, e: integer;
+    s, code: string;
+  begin
+  e:=pars.count-2; // 3 parameters minimum (the check is outside)
+  code:=macroDequote(par(pars.count-1));
+  with TfastStringAppend.create do
+    try
+      for i:=1 to e do
+        begin
+        setVar(p, par(i));
+        s:=code;
+        applyMacrosAndSymbols(s, cbMacros, cbData);
+        append(s);
+        end;
+      result:=reset();
+    finally free end;
+  end; // foreach
+
+  procedure for_();
+  var
+    b, e, i, d: integer;
+    s, code: string;
+  begin
+  try
+    b:=strToInt(par(1));
+    e:=strToInt(par(2));
+    try
+      d:=strToInt(par(3));
+      code:=par(4);
+    except
+      d:=1;
+      code:=par(3);
+      end;
+    if d = 0 then exit;
+    if (e < b) and (d > 0) then d:=-d; // we care
+    code:=macroDequote(code);
+    with TfastStringAppend.create do
+      try
+        for i:=1 to (e-b) div d+1 do
+          begin
+          setVar(p, intToStr(b));
+          s:=code;
+          applyMacrosAndSymbols(s, cbMacros, cbData);
+          append(s);
+          inc(b, d);
+          end;
+        result:=reset();
+      finally free end;
+  except end;
+  end; // for_
+
+  procedure while_();
+  var
+    bTest, bDo, s: string;
+    never: boolean;
+    res: TfastStringAppend;
+    space: THashedStringList;
+    start, timeout: Tdatetime;
+  begin
+  result:='';
+  res:=TfastStringAppend.create;
+  try
+    never:=TRUE;
+    bDo:=macroDequote(par(1)); // do-block
+
+    bTest:='';
+    // test-block
+    space:=NIL;
+    if anyMacroMarkerIn(p) then
+        bTest:=macroDequote(p)
+    else
+      try // lets see if the test-block is just the name of a variable
+        space:=getVarSpace(p);
+        bTest:=p;
+      except end;
+
+    if bTest = '' then exit;
+
+    timeout:=parF('timeout', 1)/SECONDS; // stay safe: 1 second timeout by default
+    start:=now();
+      repeat
+      if (timeout > 0) and (now()-start > timeout) then break;
+      if assigned(space) then
+        s:=space.values[bTest]
+      else
+        begin
+        s:=bTest;
+        applyMacrosAndSymbols(s, cbMacros, cbData);
+        end;
+      if isFalse(trim(s)) then break;
+      s:=bDo;
+      applyMacrosAndSymbols(s, cbMacros, cbData);
+      res.append(s);
+      never:=FALSE;
+      until false;
+    if never then
+      res.append(macroDequote(par('else'))); // else-block
+  finally
+    result:=res.reset();
+    try
+      setVar(parEx('var'), result);
+      result:='';
+    except end;
+    res.free();
+    end;
+  end; // while_
+
+  procedure setEncodedTable(varname, txt:string);
+  var
+    space, h: ThashedStringList;
+    i: integer;
+  begin
+  chopLine(txt); // first line is just a useless header
+  // search the variable in the varspace
+  space:=getVarSpace(varname);
+  if not satisfied(space) then exit;
+  i:=space.indexOfName(varname);
+  // eventually destroy previous object
+  if i >= 0 then
+    begin
+    h:=space.objects[i] as ThashedStringList;
+    freeAndNIL(h);
+    space.objects[i]:=NIL;
+    end;
+  // create the table object
+  h:=ThashedStringList.create();
+  while txt > '' do
+    h.add(unescapeNL(chopline(txt)));
+  // assign the variable value
+  txt:=h.text;
+  if i < 0 then
+    i:=space.add(varname+'='+txt)
+  else
+    space.valueFromIndex[i]:=txt;
+  // link the object
+  space.objects[i]:=h;
+  end; // setEncodedTable
+
+  procedure load(fn:string; varname:string='');
+  var
+    from, size: int64;
+  begin
+  result:='';
+  from:=parI('from', 0);
+  // 'size' has priority over 'to'
+  size:=parI('size', -1);
+  if size = -1 then
+    begin
+    size:=parI('to', -1);
+    if size >= 0 then
+      inc(size, 1-from);
+    end;
+  if size = 0 then exit;
+  from:=max(0,from);
+
+  if reMatch(fn, '^https?://', 'i!') > 0 then
+    try result:=httpGet(fn, from, size)
+    except result:='' end
+  else
+    result:=loadFile(uri2diskMaybe(fn), from, size);
+
+  if varname = '' then
+    begin
+    if anyCharIn('/\',fn) then result:=macroQuote(result);
+    exit;
+    end;
+  if ansiStartsStr(ENCODED_TABLE_HEADER, result) then
+    setEncodedTable(varname, result)
+  else
+    setVar(varname, result);
+  result:='';
+  end; // load
+
+  function uri2diskMaybeFolder(s:string):string; // like uri2diskMaybe, but limited to the path, excluding the filename
+  var
+    path: string;
+  begin
+  if ansiContainsStr(s, '/') then
+    begin
+    path:=uri2disk(chop(lastDelimiter('/\',s)+1, 0, s), md.folder);
+    if path > '' then
+      s:=path+'\'+trim(s); // mod by mars
+    end;
+  result:=s;
+  end; // uri2diskMaybeFolder
+
+  procedure save();
+  var
+    space, h: THashedStringList;
+    s: string;
+    i: integer;
+    encode: boolean;
+  begin
+  result:='';
+  if not parExist(['var']) then // will we work with a variable?
+    s:=pars[1]
+  else
+    begin
+    s:=par('var');
+    space:=getVarSpace(s);
+    if not satisfied(space) then exit;
+
+    i:=space.indexOfName(s);
+    if i < 0 then exit; // this var doesn't exit. won't write.
+    encode:=FALSE;
+    // if this is used as table, and has newlines, we must encode it to preserve associations
+    h:=space.objects[i] as THashedStringList;
+    if assigned(h) then
+      for i:=0 to h.count-1 do
+        if anyCharIn([#13,#10], h.strings[i]) then
+          begin
+          encode:=TRUE;
+          break;
+          end;
+    if not encode then
+      s:=space.valueFromIndex[i]
+    else
+      with TfastStringAppend.create do
+        try // table must be codified, or they won't work at load-time
+          append(ENCODED_TABLE_HEADER);
+          for i:=0 to h.count-1 do
+            append(escapeNL(h.strings[i])+CRLF);
+          s:=get();
+        finally free end;
+    end;
+  // now we have in 's' the content to be saved
+  spaceIf(saveFile(uri2diskMaybeFolder(p), s, name='append'));
+  end; // save
+
+  procedure replace();
+  var
+    i: integer;
+    v: string;
+  begin
+  try
+    v:=parEx('var');
+    result:=getVar(v);
+  except result:=pars[pars.count-1] end;
+
+  i:=0;
+  while i < pars.count-2 do
+    begin
+    result:=replaceText(result, pars[i], pars[i+1]);
+    inc(i, 2);
+    end;
+  if v = '' then exit;
+  setVar(v, result);
+  result:='';
+  end; // replace
+
+  procedure dialog();
+  const
+    STR2CODE: array [1..7] of string = (
+      'okcancel=1',
+      'yesno=4',
+      'yesnocancel=3',
+      'error=16',
+      'question=32',
+      'warning=48',
+      'information=64'
+    );
+  var
+    i, j, code: integer;
+    decode: TStringDynArray;
+    s: string;
+    buttons, icon: boolean;
+  begin
+  decode:=split(' ',par(1));
+  code:=0;
+  for i:=0 to length(decode)-1 do
+    for j:=1 to length(STR2CODE) do
+      begin
+      s:=STR2CODE[j];
+      if ansiStartsStr(decode[i], s) then
+        inc(code, strToIntDef(substr(s, 1+pos('=',s)), 0));
+      end;
+  buttons:=code AND 15 > 0;
+  icon:=code SHR 4 > 0;
+  if not icon and buttons then
+    inc(code, MB_ICONQUESTION);
+  case msgDlg(p, code, par(2)) of
+    MRYES, MROK: result:=if_(buttons, '1'); // if only OK button is available, then return nothing
+    MRCANCEL: result:=if_(code and MB_YESNOCANCEL = MB_YESNOCANCEL, 'cancel'); // for the YESNOCANCEL, we return cancel to allow to tell NO from CANCEL
+    else result:='';
+    end;
+  end; // dialog
+
+  procedure setAccount();
+  var
+    a: Paccount;
+    s: string;
+  begin
+  result:='';
+  if p > '' then
+    a:=getAccount(p, TRUE)
+  else
+    a:=md.cd.account;
+  if a = NIL then exit;
+  spaceIf(TRUE);
+
+  try
+    s:=parEx('password');
+    if validUsername(s, TRUE) then
+      a.pwd:=s;
+  except end;
+
+  try
+    s:=parEx('newname');
+    if validUsername(s) then
+      a.user:=s;
+  except end;
+
+  try a.redir:=parEx('redirect') except end;
+  try a.noLimits:=isTrue(parEx('no limits')) except end;
+  try a.enabled:=isTrue(parEx('enabled')) except end;
+  try a.group:=isTrue(parEx('is group')) except end;
+  try a.link:=split(';',parEx('member of')) except end;
+  try addArray(a.link, split(';',parEx('add member of'))) except end;
+  try removeArray(a.link, split(';',parEx('remove member of'))) except end;
+  try a.notes:=parEx('notes') except end;
+  try a.notes:=setKeyInString(a.notes, parEx('notes key')) except end;
+  end; // setAccount
+
+  procedure getterAccount();
+  var
+    a: Paccount;
+    s: string;
+  begin
+  result:='';
+  if p > '' then
+    a:=getAccount(p, TRUE)
+  else
+    a:=md.cd.account;
+  if a = NIL then exit;
+  s:=lowercase(par(1));
+  if s = 'redirect' then result:=a.redir
+  else if s = 'no limits' then trueIf(a.nolimits)
+  else if s = 'enabled' then trueIf(a.enabled)
+  else if s = 'is group' then trueIf(a.group)
+  else if s = 'member of' then result:=join(';',a.link)
+  else if s = 'notes' then result:=a.notes
+  else if s = 'password' then result:=a.pwd
+  else if s = 'password is' then trueIf((a.pwd=pars[2]) or (trim(a.pwd)=par(2)))  //add by mars
+  else if s = 'exists' then result:='1';
+  try result:=getKeyFromString(a.notes, parEx('notes key')) except end;
+  end; // getterAccount
+
+  procedure newAccount();
+  var
+    a: Taccount;
+  begin
+  result:='';
+  if accountExists(p, TRUE) then exit; // username already in use
+  if not validUsername(p) then exit;
+  fillchar(a, sizeof(a), 0); // the account is disabled by default
+  a.user:=p;
+  setLength(accounts, length(accounts)+1);
+  accounts[length(accounts)-1]:=a;
+  setAccount();
+  end; // newAccount
+
+  function fromTable(tbl, k:string):string;
+  var
+    i: integer;
+    space, h: THashedStringList;
+    s: string;
+  begin
+  result:='';
+  if tbl = 'ini' then deprecatedMacro('from table|ini','from table|#ini');
+  try space:=getVarSpace(tbl);
+  except exit end;
+  if not satisfied(space) then exit;
+  i:=space.indexOfName(tbl);
+  if (i < 0) and ansiStartsStr('$', tbl) then
+    begin
+    s:=md.tpl[copy(tbl,2,MAXINT)];
+    if s = '' then exit;
+    i:=space.add(tbl+'='+s);
+    end;
+  if i < 0 then exit;
+  // the text of the table is converted to a hashed structure, and cached through the objects[] property
+  h:=space.objects[i] as THashedStringList;
+  if h = NIL then
+    begin
+    h:=ThashedStringList.create();
+    h.text:=space.valueFromIndex[i];
+    space.objects[i]:=h;
+    end;
+  result:=h.values[k];
+  // we are reading a value from the ini, so we convert the 'no' to a valid false value (the empty string)
+  if stringExists(tbl, ['ini','#ini']) and (result = 'no') then result:='';
+  end; // fromTable
+
+  procedure setTable();
+  var
+    i: integer;
+    k, v: string;
+    space, h: THashedStringList;
+  begin
+  result:='';
+  space:=getVarSpace(p);
+  if not satisfied(space) then exit;
+  // set the table variable as text
+  v:=par(1);
+  space.values[p]:=nonEmptyConcat('', space.values[p], CRLF)+v;
+  // access the table object
+  i:=space.indexOfName(p);
+  h:=space.objects[i] as THashedStringList;
+  if h = NIL then
+    begin
+    h:=ThashedStringList.create();
+    space.objects[i]:=h;
+    end;
+  // fill the object
+  k:=chop('=',v);
+  v:=macroDequote(v);
+  h.values[k]:=v;
+  end; // setTable
+
+  procedure disconnect();
+  var
+    i: integer;
+    ipmask, portmask: string;
+  begin
+  if pars.count = 0 then
+    begin
+    if satisfied(md.cd) then
+      md.cd.conn.disconnect();
+    exit;
+    end;
+  ipmask:=par(0,'ip');
+  portmask:=par(1,'port');
+  if ipmask = '' then exit;
+  for i:=0 to srv.conns.count-1 do
+    with conn2data(i) do
+      if addressmatch(ipmask, address)
+      and ((portmask = '') or filematch(portmask, conn.port)) then
+        conn.disconnect();
+  result:='';
+  end; // disconnect
+
+  procedure vardomain();
+  var
+    space: ThashedStringList;
+    sep: string;
+    i: integer;
+    fs: TfastStringAppend;
+    values: boolean;
+  begin
+  fs:=TfastStringAppend.create;
+  try
+    values:=sameText(par('get'), 'values');
+    sep:=par('separator', FALSE, '|');
+    space:=getVarSpace(p);
+    for i:=0 to space.count-1 do
+      if ansiStartsText(p, space.names[i]) then
+        begin
+        if fs.length > 0 then
+          fs.append(sep);
+        if values then
+          fs.append(space.valueFromIndex[i])
+        else
+          fs.append(space.names[i]);
+        end;
+    result:=fs.get();
+  finally fs.free end;
+  end; // vardomain
+
+  procedure exec_();
+  var
+    s: string;
+    code: cardinal;
+  begin
+  s:=macroDequote(par(1));
+  if fileOrDirExists(s) then
+    s:=quoteIfAnyChar(' ', s)
+  else
+    if unnamedPars < 2 then
+      s:='';
+  if parExist(['out']) or parExist(['timeout']) or parExist(['exit code']) then
+    try
+      spaceIf(captureExec(macroDequote(p)+nonEmptyConcat(' ', s), s, code, parF('timeout',2)));
+      try setVar(parEx('exit code'), intToStr(code)) except end;
+      setVar(parEx('out'), s);
+    except end
+  else
+    spaceIf(exec(macroDequote(p), s))
+  end; // exec_
+
+  procedure memberOf();
+  var
+    a: Paccount;
+    s: string;
+  begin
+  result:='';
+  s:=par(1, 'user');
+  if s > '' then
+    a:=getAccount(s, TRUE)
+  else if assigned(md.cd) then
+    a:=md.cd.account
+  else
+    exit;
+  s:=par(0,'group');
+  if s = '' then // you don't tell me the group, i'll tell you the groups
+    begin
+    result:=join(';',expandLinkedAccounts(md.cd.account));
+    exit;
+    end;
+  a:=findEnabledLinkedAccount(a, split(';',s));
+  if assigned(a) then result:=a.user;
+  end; // memberOf
+
+  procedure canArchive(f:Tfile);
+  begin trueIf(assigned(f) and f.hasRecursive(FA_ARCHIVABLE) or (f = NIL) and md.archiveAvailable) end;
+
+  procedure actionAllowed(action:TfileAction);
+  var
+    f: Tfile;
+    local: boolean;
+  begin // note: "delete" is meant for files inside the folder bearing the permission
+  local:=FALSE;
+  result:='';
+  try
+    f:=mainfrm.findFileByURL(parEx('path'), md.folder);
+    if f = NIL then exit;
+    local:=TRUE;
+  except
+    if action = FA_ACCESS then f:=md.f
+    else f:=md.folder;
+    end;
+  trueIf(accountAllowed(action, md.cd, f));
+  if local then
+    freeIfTemp(f);
+  end; // actionAllowed
+
+  procedure cookie();
+
+    function timeForCookies(v:string):string;
+    var
+      t: Tdatetime;
+    begin
+    try
+      if getFirstChar(v) in ['+','-'] then
+        t:=now()+strToFloat(v)
+      else
+        try t:=maybeUnixTime(strToFloat(v));
+        except t:=strToDateTime(v) end;
+      result:=dateToHTTP(localToGMT(t));
+    except result:=v end;
+    end; // timeForCookies
+
+    function getPairs():TStringDynArray;
+    var
+      i: integer;
+      k, v: string;
+    begin
+    result:=NIL;
+    for i:=1 to pars.count-1 do
+      begin
+      v:=pars[i];
+      k:=trim(chop('=', v));
+      v:=trim(v);
+      if k = 'value' then // this is handled below
+        continue
+      else if k = 'expires' then
+        v:=timeForCookies(v);
+      addArray(result, [k, v]);
+      end;
+    end; // getPairs
+
+  begin
+  if not satisfied(md.cd) then exit;
+  result:='';
+  try md.cd.conn.setCookie(p, parEx('value'), getPairs());
+  except result:=noMacrosAllowed(md.cd.conn.getCookie(p)) end; // there was no "value" to set, so just read
+  end; // cookie
+
+  procedure regexp();
+  var
+    subs: TStringDynArray;
+    subj, s, mods: string;
+    i: integer;
+  begin
+  // input from variable or text
+  try subj:=getVar(parEx('var'));
+  except subj:=par(1) end;
+  // check
+  mods:='m'+if_(isFalse(par('case')),'i');
+  p:=macroDequote(p);
+  i:=reMatch(subj, p, mods, 1, @subs);
+  if i <= 0 then
+    begin
+    result:='';
+    exit;
+    end;
+  // return first match, or position
+  if assigned(subs) then
+    result:=subs[min(length(subs)-1,1)]
+  else
+    result:=intToStr(i);
+  // eventually communicate matched substrings
+  try
+    parEx('sub');
+    s:='';
+    for i:=0 to length(subs)-1 do
+      s:=s+format('%d=%s'+CRLF, [i, subs[i]]);
+    setVar(parEx('sub'), s);
+  except end;
+
+  try
+    result:=reReplace(subj, p, parEx('replace'), mods);
+    setVar(parEx('var'), result); // we put the output where we got the input
+    result:='';
+  except end;
+  end; // regexp
+
+  procedure dir();
+  var
+    sr: TSearchRec;
+    fs: TfastStringAppend;
+    sep, s: string;
+  begin
+  result:='';
+  // user can specify a file mask, or a folder path
+  s:=excludeTrailingPathDelimiter(p);
+  if directoryExists(s) then
+    s:=s+'\*';
+  if findfirst(s, faAnyFile, sr) <> 0 then exit;
+
+  sep:=par('separator', FALSE, '|');
+  try
+    fs:=TfastStringAppend.create();
+      repeat
+      if (sr.name = '.') or (sr.name = '..') then continue;
+      if fs.length > 0 then
+        fs.append(sep);
+      fs.append(sr.name);
+      until findNext(sr) <> 0;
+    result:=fs.get();
+  finally
+    findClose(sr);
+    freeAndNIL(fs);
+    end;
+  end; // dir
+
+  procedure handleSymbol();
+  var
+    s, usr: string;
+    i: integer;
+  begin
+  // search for the symbol in the translation table
+  i:=length(md.table)-2;
+  if odd(i) then dec(i); // ensure the table has a legal length
+  while (i >= 0) and not sameText(md.table[i], name) do
+    dec(i,2);
+  if i >= 0 then
+    begin
+    result:=md.table[i+1];
+    exit;
+    end;
+
+  result:=name; // by default, an unrecognized symbol remains the same (just as the song)
+
+  // most symbols here, are here because they can be heavy to calculate, so we ensure we do
+  // it only upon request. others are for centralization.
+
+  if ansiStartsText('%sym-', name) then // legacy: surpassed by {.section.}
+    result:=tpl[substr(name,2,-1)]
+  else if name = '%item-icon%' then
+    result:=first(getItemIcon(md.f), name)
+  else if name = '%item-archive%' then
+    if assigned(md.f) and assigned(md.tpl) and md.f.hasRecursive(FA_ARCHIVABLE) then result:=md.tpl['item-archive']
+    else result:=''
+  else if name = '%item-dl-count%' then
+    if md.f = NIL then result:=''
+    else result:=intToStr(md.f.DLcount)
+  else if name = '%connections%' then
+    result:=intToStr(srv.conns.count)
+  else if name = '%style%' then
+    result:=tpl['style']
+  else if name = '%timestamp%' then
+    result:=optUTF8(tpl, dateTimeToStr(now()))
+  else if name = '%date%' then
+    result:=optUTF8(tpl, dateToStr(now()))
+  else if name = '%time%' then
+    result:=optUTF8(tpl, timeToStr(now()))
+  else if name = '%now%' then
+    result:=floatToStr(now())
+  else if name = '%version%' then
+    result:=main.VERSION
+  else if name = '%build%' then
+    result:=VERSION_BUILD
+  else if name = '%uptime%' then
+    result:=optUTF8(tpl, uptimestr())
+  else if name = '%speed-out%' then
+    result:=floatToStrF(srv.speedOut/1000, ffFixed, 7,2)
+  else if name = '%speed-in%' then
+    result:=floatToStrF(srv.speedIn/1000, ffFixed, 7,2)
+  else if name = '%total-out%' then
+    result:=smartSize(outTotalOfs+srv.bytesSent)
+  else if name = '%total-in%' then
+    result:=smartSize(inTotalOfs+srv.bytesReceived)
+  else if name = '%total-downloads%' then
+    result:=intToStr(downloadsLogged)
+  else if name = '%total-hits%' then
+    result:=intToStr(hitsLogged)
+  else if name = '%total-uploads%' then
+    result:=intToStr(uploadsLogged)
+  else if name = '%number-addresses%' then
+    result:=intToStr(countIPs())
+  else if name = '%number-addresses-ever%' then
+    result:=intToStr(ipsEverConnected.count)
+  else if name = '%number-addresses-downloading%' then
+    result:=intToStr(countIPs(TRUE))
+  else if name = '%number-users%' then
+    result:=intToStr(countIPs(FALSE, TRUE))
+  else if name = '%number-users-downloading%' then
+    result:=intToStr(countIPs(TRUE, TRUE))
+  else if name = '%cwd%' then
+    result:=getCurrentDir()
+  else if name = '%port%' then
+    result:=srv.port;
+
+  if assigned(md.cd) then
+    begin
+    usr:=md.cd.usr;
+    if name = '%host%' then
+      result:=getSafeHost(md.cd)
+    else if name = '%ip%' then
+      result:=md.cd.address
+    else if name = '%ip-to-name%' then
+      result:=localDNSget(md.cd.address)
+    else if name = '%lang%' then
+      result:=stripChars(copy(md.cd.conn.getHeader('Accept-Language'),1,2), ['a'..'z','A'..'Z'], TRUE)
+    else if name = '%url%' then
+      result:=macroQuote(md.cd.conn.request.url)
+    else if name = '%user%' then
+      result:=optUTF8(md.tpl, macroQuote(usr))
+    else if name = '%password%' then
+      result:=macroQuote(md.cd.conn.request.pwd)
+    else if name = '%loggedin%' then
+      result:=if_(usr>'', tpl['loggedin'])
+    else if name = '%login-link%' then
+      result:=if_(usr='', tpl['login-link'])
+    else if name = '%user-notes%' then
+      if md.cd.account = NIL then result:=''
+      else result:=md.cd.account.notes
+    else if name = '%stream-size%' then
+      result:=intToStr(md.cd.conn.bytesFullBody)
+    else if name = '%is-archive%' then
+      trueIf(md.cd.downloadingWhat=DW_ARCHIVE)
+    end;
+
+
+  if assigned(md.folder) then
+    if name = '%folder-item-comment%' then
+      result:=optUTF8(md.tpl, md.folder.getDynamicComment())
+    else if name = '%folder-comment%' then
+      begin
+      result:=md.folder.getDynamicComment();
+      if result > '' then
+        result:=optUTF8(md.tpl, replaceText(tpl['folder-comment'], '%item-comment%', result));
+      end
+    else if name = '%diskfree%' then
+      result:=smartSize(diskSpaceAt(md.folder.resource)-minDiskSpace*MEGA)
+    else if name = '%up%' then
+      result:=if_(assigned(md.tpl) and not md.folder.isRoot(), md.tpl['up'])
+    else if name = '%encoded-folder%' then
+      result:=md.folder.url(TRUE)
+    else if name = '%parent-folder%' then
+      result:=md.folder.parentURL()
+    else if name = '%folder-name%' then
+      result:=optUTF8(md.tpl, md.folder.name)
+    else if name = '%folder-resource%' then
+      result:=md.folder.resource
+    else if name = '%folder%' then
+      with md.folder do result:=optUTF8(md.tpl, if_(isRoot(), '/', getFolder()+name+'/'))
+  ;
+
+  if assigned(md.f) then
+    if name = '%item-name%' then
+      begin
+      s:=md.f.name;
+      if md.hideExt and md.f.isFile() then
+        setLength(s, length(s)-length(extractFileExt(s)) );
+      result:=htmlEncode(macroQuote(optUTF8(md.tpl, s)))
+      end
+    else if name = '%item-type%' then
+      if md.f.isLink() then
+        result:='link'
+      else if md.f.isFolder() then
+        result:='folder'
+      else
+        result:='file'
+   else if name = '%item-size-b%' then
+      result:=intToStr(md.f.size)
+   else if name = '%item-size-kb%' then
+      result:=intToStr(md.f.size div KILO)
+    else if name = '%item-size%' then
+      result:=smartsize(md.f.size)
+    else if name = '%item-resource%' then
+      result:=macroQuote(md.f.resource)
+    else if name = '%item-ext%' then
+      result:=macroQuote(optUTF8(md.tpl, copy(extractFileExt(md.f.name), 2, MAXINT)))
+    else if name = '%item-added-dt%' then
+      result:=floatToStr(md.f.atime)
+    else if name = '%item-modified-dt%' then
+      result:=floatToStr(md.f.mtime)
+    // these twos are actually redundant, {.time||when=%item-added-dt%.}
+    else if name = '%item-added%' then
+      result:=optUTF8(md.tpl, datetimeToStr(md.f.atime))
+    else if name = '%item-modified%' then
+      result:=if_(md.f.mtime=0, 'error', optUTF8(md.tpl, datetimeToStr(md.f.mtime)))
+    else if name = '%item-comment%' then
+      result:=optUTF8(md.tpl, md.f.getDynamicComment(TRUE))
+    else if name = '%item-url%' then
+      result:=macroQuote(optUTF8(md.tpl, md.f.url()))
+  ;
+
+  if assigned(md.f) and assigned(md.tpl) then
+    if name = '%new%' then
+      result:=if_(md.f.isNew(), md.tpl['newfile'])
+    else if name = '%comment%' then
+      result:=if_(md.f.getDynamicComment(TRUE) > '', md.tpl['comment'])
+  ;
+
+  if assigned(md.tpl) then
+    if name = '%archive%' then
+      result:=if_(md.archiveAvailable, md.tpl['archive']);
+
+  if ansiContainsText(name, 'folder') and not ansiContainsText(name, 'comment') then
+    result:=macroQuote(result);
+  end; // handleSymbol
+
+  function stringTotrayMessageType(s:string):TtrayMessageType;
+  begin
+  if compareText(s,'warning') = 0 then
+    result:=TM_WARNING
+  else if compareText(s,'error') = 0 then
+    result:=TM_ERROR
+  else if compareText(s,'info') = 0 then
+    result:=TM_INFO
+  else
+    result:=TM_NONE
+  end; // stringTotrayMessageType
+
+  function renameIt(src,dst:string):boolean;
+  var
+    srcReal, dstReal: string;
+  begin
+  srcReal:=uri2diskMaybe(src,NIL,FALSE);
+  dstReal:=uri2diskMaybeFolder(dst);
+  if isExtension(srcReal, '.lnk')
+  and not isExtension(src, '.lnk') then
+    dstReal:=dstReal+'.lnk';
+  if extractFilePath(dstReal)='' then
+    dstReal:=extractFilePath(srcReal)+dstReal;
+  result:=renameFile(srcReal, dstReal)
+  end; // renameIt
+
+var
+  i64: int64;
+  i: integer;
+  r: Tdatetime;
+  s: string;
+begin
+try
+  assert(assigned(cbData), 'cbMacros: cbData=NIL');
+  md:=cbData;
+  if md.breaking then exit;
+  try
+
+    name:=fullmacro;
+    if (name[1] = '%') and (name[length(name)] = '%') then
+      begin
+      handleSymbol();
+      exit;
+      end;
+
+    if not mainfrm.enableMacrosChk.checked then
+      begin
+      result:=fullMacro;
+      exit;
+      end;
+
+    if pars.count = 0 then exit;
+    // extract first parameter as 'name'
+    name:=trim(pars[0]);
+    pars.delete(0);    // this operation is done with a memory move over pointers. Having few parameters normally, it's fast. We may eventually avoid this deletion and consider parameters starting from 1.
+    if name = '' then exit;
+    macroError('not supported or illegal parameters');
+    // eventually remove trailing
+    if pars.Count > 0 then
+      begin
+      p:=pars[pars.count-1];
+      if ansiEndsText('/'+name, p) then
+        begin
+        setLength(p, length(p)-length(name)-1);
+        pars[pars.count-1]:=p;
+        end;
+      end;
+
+    unnamedPars:=0;
+    for i:=0 to pars.count-1 do
+      begin
+      pars[i]:=replaceStr(pars[i], '{:|:}','|');
+      if (i = unnamedPars) and (pos('=',pars[i]) = 0) then
+        inc(unnamedPars);
+      end;
+
+    // handle aliases
+    if assigned(md.aliases) then
+      begin
+      s:=md.aliases.values[name];
+      if s > '' then
+        begin
+        if not ansiStartsStr(MARKER_OPEN, s) then
+          s:=MARKER_OPEN+s+MARKER_CLOSE;
+        call(s);
+        exit;
+        end;
+      end;
+
+    // here we try to handle some shortcuts.
+    // it's a special starting character that identifies the macro, and the rest of the name is a parameter.
+    p:=copy(name,2,MAXINT);
+
+    if name[1] = '$' then
+      section(0);
+
+    if name[1] = '!' then
+      // we look for they key (p) in {.^special:strings.} then in [special:strings]. If no luck, we try to output an eventual parameter, or the key itself.
+      try result:=first([fromTable('special:strings',p), md.tpl.getStrByID(p), par(0), p]) except end;
+
+    if name[1] = '^' then
+      try call(getVar(p), 0) except end;
+
+    if name[1] = '?' then  // shortcut for 'urlvar'
+      result:=urlvar(p);
+
+    p:=par(0); // a handy shortcut for the first parameter
+
+    // comment is for comments, or if you just want to trash the output of a macro.
+    // Careful: the comment itself (the parameter of this command) is executed as anything else, unless it's {:quoted:}
+    if name = 'comment' then
+      begin
+      result:='';
+      exit;
+      end;
+
+    // infix operators are macros in the form PARAMETER NAME PARAMETER. it's handy for comparisons.
+    infixOperators(['>=','<=','<>','!=','=','>','<']); // the order is important, because >= would be confused with =
+
+    // ok, fom here we have macros in the straight form NAME|PARAM|PARAM
+    name:=ansiLowercase(name);
+
+    if name = 'count' then
+      if satisfied(md.cd) then
+        result:=intToStr(md.cd.tplCounters.incInt(p)-1); // it can work even with no parameters
+
+    if name = 'time' then
+      begin
+      s:=par(0,'format');
+      r:=parF('when',now())+parF('offset',0);
+      if s = 'y' then result:=floatToStr(r)
+      else datetimeToString(result, first(s,'c'), r );
+      result:=optUTF8(md.tpl, result); // we may have special chars from datetimeToString()
+      end;
+
+    if name = 'disconnect' then
+      disconnect();
+
+    if name = 'stop server' then
+      stopServer();
+    if name = 'start server' then
+      startServer();
+
+
+    if name = 'focus' then
+      begin
+      application.restore();
+      application.bringToFront();
+      result:='';
+      end;
+
+    if name = 'current downloads' then
+      result:=intToStr( countDownloads( par('ip'), par('user'), if_(sameText(par('file'), 'this'), md.f) as Tfile) );
+
+    if name = 'disconnection reason' then
+      begin
+      try
+        if isFalse(parEx('if')) then
+          begin
+          result:='';
+          exit;
+          end;
+      except end;
+      result:=md.cd.disconnectReason; // return the previous state
+      if pars.count > 0 then md.cd.disconnectReason:=p;
+      end;
+
+    if name = 'clipboard' then
+      if p = '' then
+        result:=clipboard.asText
+      else
+        begin
+        try setClip(getVar(parEx('var')))
+        except setClip(p) end;
+        result:='';
+        end;
+
+    if name = 'save vfs' then
+      begin
+      mainfrm.saveVFS(first(p,lastFileOpen));
+      result:='';
+      end;
+
+    if name = 'save cfg' then
+      begin
+      if p = 'file' then savemode:=SM_FILE
+      else if p = 'registry' then savemode:=SM_USER
+      else if p = 'global registry' then savemode:=SM_SYSTEM;
+      mainFrm.saveCFG();
+      result:='';
+      end;
+
+    if name = 'js encode' then
+      result:=jsEncode(p, first(par(1),'''"'));
+
+    if name = 'base64' then
+      result:=base64encode(p);
+    if name = 'base64decode' then
+      result:=base64decode(p);
+    if name = 'md5' then
+        result:=strMD5(p);
+    if name = 'sha1' then
+        result:=SHA1toHex(sha1OfStr(p));
+
+    if name = 'vfs select' then
+      if pars.count = 0 then
+        try result:=selectedFile.url()
+        except result:='' end
+      else if p = 'next' then
+        if selectedFile = NIL then
+          spaceIf(FALSE)
+        else
+          begin
+          with mainFrm.filesBox do selected:=selected.getNext();
+          spaceIf(TRUE);
+          end
+      else
+        try
+          s:=parEx('path');
+          spaceIf(FALSE);
+          mainFrm.filesBox.selected:= mainFrm.findFilebyURL(s, NIL, FALSE).node;
+          spaceIf(TRUE);
+        except end;
+
+    if name = 'break' then
+      begin
+      result:='';
+      try
+        if isFalse(parEx('if')) then
+          exit;
+      except end;
+      try result:=parEx('result') except end;
+      md.breaking:=TRUE;
+      exit;
+      end;
+
+    if pars.Count < 1 then exit; // from here, only macros with parameters
+
+    if name = 'var domain' then
+      vardomain();
+
+    if name = 'dir' then
+      dir();
+
+    if name = 'no pipe' then
+      result:=replaceStr(substr(fullMacro, '|'), '|','{:|:}');
+
+    if name = 'pipe' then
+      result:=replaceStr(substr(fullMacro, '|'), '{:|:}','|');
+
+    if name = 'add to log' then
+      begin
+      try s:=getVar(parEx('var'))
+      except s:=p end;
+      mainfrm.add2log(s, md.cd, stringToColorEx(par(1,'color'), clDefault));
+      result:='';
+      end;
+
+    if name = 'mkdir' then
+      begin
+      s:=trim(uri2diskMaybeFolder(p));
+      spaceIf(not directoryExists(s) and forceDirectory(s));
+      end;
+
+    if name = 'chdir' then
+      begin
+      IOresult;
+      setCurrentDir(p);
+      spaceIf(IOresult=0);
+      end;
+
+    if name = 'encodeuri' then
+      encodeuri();
+
+    if name = 'decodeuri' then
+      result:=decodeURL(p);
+
+    if name = 'set cfg' then
+      trueIf(mainfrm.setcfg(p));
+
+    if name = 'dialog' then
+      dialog();
+
+    if name = 'any macro marker' then
+      trueIf(anyMacroMarkerIn(first(loadTextfile(uri2diskMaybe(p)), p)));
+
+    if name = 'random' then
+      result:=randomFrom(listToArray(pars));
+
+    if name = 'random number' then
+      if pars.count = 1 then
+        result:=intToStr(random(1+parI(0)))
+      else
+        result:=intToStr(parI(0)+random(1+parI(1)-parI(0)));
+
+    if name = 'force ansi' then
+      if satisfied(md.tpl) and md.tpl.utf8 then
+        result:=noMacrosAllowed(UTF8toAnsi(p))
+      else
+        result:=p;
+
+    if name = 'maybe utf8' then
+      if satisfied(md.tpl) then
+        result:=optUTF8(md.tpl.utf8, p);
+
+    if name = 'after the list' then
+      if md.afterTheList then
+        result:=macroDequote(p)
+      else
+        result:=MARKER_OPEN+fullMacro+MARKER_CLOSE;
+
+    if name = 'breadcrumbs' then
+      breadcrumbs();
+
+    if name = 'filename' then
+      result:=substr(p, lastDelimiter('\/:',p)+1);
+
+    if name = 'filepath' then
+      begin
+      i:=lastDelimiter('\/:',p);
+      if i = 0 then
+        result:=''
+      else
+        result:=substr(p, 1, i);
+      end;
+
+    if name = 'not' then
+      trueIf(isFalse(p));
+
+    if name = 'length' then
+      begin // don't trim
+      try s:=getVar(parEx('var', FALSE))
+      except s:=pars[0] end;
+      result:=intToStr(length(s));
+      end;
+
+    if name = 'load' then
+      load(p, par(1,'var'));
+
+    if name = 'load tpl' then
+      if satisfied(md.cd) then
+        begin
+        md.cd.tpl:=cachedTpls.getTplFor(p);
+        result:='';
+        end;
+
+    if name = 'filesize' then
+      begin
+      if reMatch(p, '^https?://', 'i!') > 0 then i64:=httpFileSize(p)
+      else i64:=sizeOfFile(uri2diskMaybe(p));
+      result:=intToStr(max(0,i64)); // we return 0 instead of -1 for non-existent files, t
+      end;
+
+    if name = 'filetime' then
+      result:=floatToStr(getMtime(p));
+
+    if name = 'header' then
+      if satisfied(md.cd) then
+        try result:=noMacrosAllowed(md.cd.conn.getHeader(p)) except end;
+
+    if name = 'urlvar' then
+      result:=urlvar(p);
+
+    if name = 'postvar' then
+      if satisfied(md.cd) then
+        try
+          result:=noMacrosAllowed(md.cd.postVars.values[p]);
+          setVar(parEx('var'), result); // if no var is specified, it will break here, and result will have the value
+          result:='';
+        except end;
+
+    if name = 'section' then
+      section(1);
+
+    if name = 'trim' then
+      result:=p;
+
+    if name = 'lower' then
+      result:=ansiLowercase(p);
+
+    if name = 'upper' then
+      result:=ansiUppercase(p);
+
+    if name = 'abs' then
+      result:=floatToStr(abs(parF(0)));
+
+    if name = 'upload failed' then
+      begin
+      md.cd.uploadFailed:=p;
+      result:='';
+      end;
+
+    if name = 'is file protected' then
+      result:=if_(filematch(PROTECTED_FILES_MASK, parVar('var',0)), '1');
+
+    if name = 'get' then
+      try
+        if p = 'can recur' then trueIf(mainFrm.recursiveListingChk.Checked)
+        else if p = 'can upload' then actionAllowed(FA_UPLOAD)
+        else if p = 'can delete' then actionAllowed(FA_DELETE)
+        else if p = 'can access' then actionAllowed(FA_ACCESS)
+        else if p = 'can archive' then canArchive(md.folder)
+        else if p = 'can archive item' then canArchive(md.f)
+        else if p = 'url' then getUri()
+        else if p = 'stop spiders' then trueIf(mainFrm.stopSpidersChk.checked)
+        else if p = 'is new' then trueIf(md.f.isNew())
+        else if p = 'agent' then result:=md.cd.agent
+        else if p = 'tpl file' then result:=tplFilename
+        else if p = 'protocolon' then result:=protoColon()
+        else if p = 'speed limit' then result:=intToStr(round(speedLimit))
+        else if p = 'external address' then
+          begin
+          if externalIP = '' then getExternalAddress(externalIP);
+          result:=externalIP;
+          end
+        else if p = 'accounts' then
+          result:=join(';', getAccountList(
+            stringExists(par(1),['','users']),
+            stringExists(par(1),['','groups'])
+          ))
+        ;
+      except unsatisfied() end;
+
+    if name = 'call' then
+      try call(getVar(p), 1) except end;
+
+    if name = 'inc' then
+      inc_();
+    if name = 'dec' then
+      inc_(-1);
+
+    if name = 'chr' then
+      begin
+      result:='';
+      for i:=0 to pars.count-1 do
+        try result:=result+chr(strToInt(replaceStr(pars[i],'x','$')))
+        except end;
+      end;
+
+    if name = 'dequote' then
+      result:=macroDequote(p);
+
+    if name ='quote' then
+      begin
+      p:=macroDequote(p);
+      applyMacrosAndSymbols(p, cbMacros, cbData);
+      result:=macroQuote(p);
+      end;
+
+    if name = 'encode html' then
+      result:=htmlEncode(p);
+
+    if name = 'play' then
+      begin
+      result:='';
+      playSound(Pchar(p), 0, SND_ALIAS or SND_ASYNC or SND_NOWAIT);
+      end;
+
+    if name = 'delete' then
+      begin
+      s:=uri2diskMaybe(p,NIL,FALSE);
+      if isTrue(par('bin',TRUE,'1')) then
+        spaceIf(moveToBin(s, isTrue(par('forced'))))
+      else
+        spaceIf(deltree(s));
+      end;
+
+    if name = 'disk free' then
+      result:=intToStr(diskSpaceAt(uri2diskMaybe(p)));
+
+    if name = 'vfs to disk' then
+      if isAbsolutePath(p) then
+        result:=p
+      else if dirCrossing(p) and not ansiStartsStr('/', p) then
+        result:=expandFileName(includeTrailingPathDelimiter(md.folder.resource)+p)
+      else
+        result:=uri2disk(p, md.folder);
+
+    if name = 'exists' then
+      if ansiContainsStr(p, '/') then
+        trueIf(fileExistsByURL(p))
+      else
+        trueIf(fileOrDirExists(p));
+
+    if name = 'is file' then
+      trueIf(fileExists(p));
+
+    if name = 'mime' then
+      begin
+      result:='';
+      if satisfied(md.cd) then md.cd.conn.reply.contentType:=p;
+      end;
+
+    if name = 'calc' then
+      result:=floatToStr(evalFormula(p));
+
+    if name = 'smart size' then
+      result:=smartsize(strToInt64(p));
+
+    if name = 'round' then
+      result:=floatToStr(roundTo(parF(0), -parI(1, 0)));
+
+    if name = 'md5 file' then
+      result:=createFingerprint(p);
+
+    if name = 'exec' then
+      exec_();
+
+    if name = 'set speed limit for address' then
+      begin
+      if pars.count = 1 then
+        setSpeedLimitIP(parF(0))
+      else
+        with objByIp(p) do
+          begin
+          limiter.maxSpeed:=round(parF(1)*1000);
+          customizedLimiter:=TRUE;
+          end;
+      result:='';
+      end;
+
+    if name = 'set speed limit for connection' then
+      if satisfied(md.cd) then
+        try
+          if assigned(md.cd.limiter) then
+            begin
+            md.cd.limiter.maxSpeed:=round(parF(0)*1000);
+            exit;
+            end;
+          md.cd.limiter:=TspeedLimiter.create(round(parF(0)*1000));
+          md.cd.conn.limiters.add(md.cd.limiter);
+          srv.limiters.add(md.cd.limiter);
+          result:='';
+        except
+          md.cd.conn.limiters.remove(md.cd.limiter);
+          srv.limiters.remove(md.cd.limiter);
+          freeAndNIL(md.cd.limiter);
+          result:='';
+          end;
+
+    if name = 'member of' then
+      memberOf();
+
+    if name = 'add header' then
+      if satisfied(md.cd) then
+        begin
+        result:='';
+        // macro 'mime' should be used for content-type, but this test will save precious time to those who will be fooled by the presence this macro
+        if ansiStartsText('Content-Type:', p) then
+          md.cd.conn.reply.contentType:=trim(substr(p, ':'))
+        else if ansiStartsText('Location:', p) then
+          with md.cd.conn.reply do
+            begin
+            mode:=HRM_REDIRECT;
+            url:=trim(substr(p, ':'))
+            end
+        else
+          md.cd.conn.addHeader(p, isTrue(par('overwrite',true,'1')));
+        end;
+
+    if name = 'remove header' then
+      if satisfied(md.cd) then
+        begin
+        result:='';
+        md.cd.conn.removeHeader(p);
+        end;
+
+    if name = 'get ini' then
+      result:=getKeyFromString(mainFrm.getCfg(), p);
+
+    if name = 'set ini' then
+      begin
+      result:='';
+      mainfrm.setCfg(p);
+      end;
+
+    if name = 'set' then
+      begin
+      try s:=getVar(parEx('var'));
+      except
+        if pars.count < 2 then s:=''
+        else s:=macroDequote(pars[1]);
+        end;
+      if par('mode') = 'append' then
+        s:=getVar(p)+s
+      else if par('mode') = 'prepend' then
+        s:=s+getVar(p);
+      spaceIf(setVar(p, s));
+      end;
+
+    if name = 'notify' then
+      begin
+      tray.balloon(p, parF('timeout',3), stringTotrayMessageType(par('type')), par('title'));
+      result:='';
+      end;
+
+    if name = 'cookie' then
+      cookie();
+
+    if name = 'new account' then
+      newAccount();
+
+    if name = 'delete account' then
+      begin
+      deleteAccount(p);
+      result:='';
+      end;
+
+    if name = 'delete item' then
+      deleteItem();
+      
+    if pars.count < 2 then exit; // from here, only macros with at least 2 parameters
+
+    if name = 'set item' then
+      setItem();
+    if name = 'get item' then
+      getItem();
+
+    if name = 'while' then
+      while_();
+
+    if name = 'set table' then
+      setTable();
+
+    if name = 'add folder' then
+      addFolder();
+
+    if (name = 'save') or (name = 'append') then
+      save();
+
+    if name = 'rename' then
+      begin
+      spaceIf( not isExtension(par(1), '.lnk') and // security matters (by mars)
+        renameIt(p, par(1)) );
+      if (result > '') and not stopOnMacroRename then // should we stop recursion?
+        try
+          // by default, we'll stop after first stacked [on macro rename], but recursive=1 will remove this limit
+          stopOnMacroRename:=isFalse(par('recursive'));
+          runEventScript('on macro rename', toSA(['%old-name%',p,'%new-name%',par(1)]), md.cd);
+        finally
+          stopOnMacroRename:=FALSE;
+          end;
+      end;
+
+    if name = 'move' then
+      begin
+      s:=uri2diskMaybeFolder(par(1));
+      spaceIf((s>'') and movefile(uri2diskMaybe(p,NIL,FALSE), s));
+      end;
+
+    if name = 'copy' then
+      spaceIf(copyfile(uri2diskMaybe(p), uri2diskMaybeFolder(par(1))));
+
+    if name = 'from table' then
+      result:=fromTable(p, par(1));
+
+    if name = 'match' then
+      trueIf(filematch(p, par(1)));
+
+    if name = 'match address' then
+      trueIf(addressmatch(p, par(1)));
+
+    if name = 'regexp' then
+      regexp();
+
+    if name = 'pos' then
+      result:=intToStr(pos_(isTrue(par('case')), parVar('what', 0), parVar('var', 1), strToIntDef(par('from'), 1)));
+
+    if name = 'repeat' then
+      result:=dupeString(macroDequote(par(1)), strToIntDef(p,1));
+
+    if name = 'count substring' then
+      result:=intToStr(countSubstr(pars[0], par(1)));
+
+    if name = 'and' then
+      allLogic(TRUE);
+
+    if name = 'or' then
+      allLogic(FALSE);
+
+    if name = 'xor' then
+      trueIf(isTrue(p) xor isTrue(par(1)));
+
+    if name = 'add' then
+      result:=floatToStr(parF(0)+parF(1));
+    if name = 'sub' then
+      result:=floatToStr(parF(0)-parF(1));
+    if name = 'mul' then
+      result:=floatToStr(parF(0)*parF(1));
+    if name = 'div' then
+      result:=floatToStr(safeDiv(parF(0),parF(1)));
+    if name = 'mod' then
+      result:=intToStr(safeMod(parI(0),parI(1)));
+
+    if stringExists(name, ['min','max']) then
+      minOrMax();
+
+    if stringExists(name, ['if','if not']) then
+      if isFalse(p) xor (length(name) > 2) then result:=macroDequote(par(2))
+      else result:=macroDequote(par(1));
+
+    if stringExists(name, ['=','>','>=','<','<=','<>','!=']) then
+      trueIf(compare(name, p, par(1)));
+
+    if name = 'switch' then
+      switch();
+
+    if name = 'set account' then
+      setAccount();
+    if name = 'get account' then
+      getterAccount();
+
+    if name = 'cut' then
+      cut();
+
+    if pars.count < 3 then exit; // from here, only macros with at least 3 parameters
+
+    if name ='for each' then
+      foreach();
+
+    if name = 'substring' then
+      substring();
+
+    if name = 'replace' then
+      replace();
+
+    if name = 'convert' then
+      convert();
+
+    if pars.count < 4 then exit;
+
+    if name = 'for' then
+      for_();
+  finally
+    if mainfrm.macrosLogChk.checked then
+      begin
+      if not fileExists(MACROS_LOG_FILE) then
+        saveFile(MACROS_LOG_FILE, HEADER);
+      macrosLog(fullMacro, result, md.logTS);
+      md.logTS:=FALSE;
+      end;
+    end;
+except
+  if mainfrm.macrosLogChk.checked then
+    macrosLog(fullMacro, 'Exception, please report this bug on www.rejetto.com/forum/');
+  result:='';
+  end;
+end; // cbMacros
+
+function tryApplyMacrosAndSymbols(var txt:string; var md:TmacroData; removeQuotings:boolean=true):boolean;
+var
+  s: string;
+begin
+result:=FALSE;
+
+try
+  md.aliases:=defaultalias; // we don't even create a new object if not necessary
+  if assigned(md.tpl) then
+    begin
+    s:=md.tpl['special:alias'];
+    if s > '' then
+      begin
+      md.aliases:=THashedStringList.create;
+      md.aliases.text:=s;
+      md.aliases.addStrings(defaultAlias);
+      end;
+    end;
+
+  if md.cd = NIL then
+    begin
+    md.tempVars:=THashedStringList.create;
+    end;
+
+  md.logTS:=TRUE;
+  md.breaking:=FALSE;
+
+  try
+    applyMacrosAndSymbols(txt, cbMacros, @md, removeQuotings);
+    result:=TRUE;
+  except
+    on e:EtplError do mainFrm.setStatusBarText(format('Template error at %d,%d: %s: %s ...', [e.row,e.col,e.message,e.code]), 1000);
+    on Exception do raise;
+    end;
+finally
+  if md.aliases <> defaultAlias then
+    freeAndNIL(md.aliases);
+  freeAndNIL(md.tempVars);  
+  end;
+end; // tryApplyMacrosAndSymbols
+
+function runScript(script:string; table:TstringDynArray=NIL; tpl_:Ttpl=NIL; f:Tfile=NIL; folder:Tfile=NIL; cd:TconnData=NIL):string;
+var
+  md: TmacroData;
+begin
+result:=trim(script);
+if result = '' then exit;
+fillchar(md, sizeOf(md), 0);
+md.tpl:=first(tpl_, tpl);
+md.f:=f;
+md.folder:=folder;
+md.cd:=cd;
+md.table:=table;
+tryApplyMacrosAndSymbols(result, md);
+end; // runScript
+
+function runEventScript(event:string; table:TStringDynArray=NIL; cd:TconnData=NIL):string;
+begin
+addArray(table, ['%event%', event]);
+result:=runScript(eventScripts[event], table, eventScripts, NIL, NIL, cd);
+end; // runEventScript
+
+initialization
+cachedTpls:=TcachedTpls.create();
+eventScripts:=Ttpl.create();
+defaultAlias:=THashedStringList.create();
+defaultAlias.caseSensitive:=FALSE;
+defaultAlias.text:=getRes('alias');
+staticVars:=THashedStringList.create;
+currentCFGhashed:=THashedStringList.create();
+with staticVars do
+  objects[add('ini='+currentCFG)]:=currentCFGhashed;
+
+finalization
+freeAndNIL(cachedTpls);
+freeAndNIL(eventScripts);
+freeAndNIL(defaultAlias);
+freeAndNIL(currentCFGhashed);
+staticVars.free;
+if assigned(flog) then
+  begin
+  closeFile(flog^);
+  dispose(flog);
+  end;
+
+end.
diff --git a/shell.gif b/shell.gif
new file mode 100644
index 0000000..2e53007
Binary files /dev/null and b/shell.gif differ
diff --git a/shellExtDlg.dfm b/shellExtDlg.dfm
new file mode 100644
index 0000000..8979f69
--- /dev/null
+++ b/shellExtDlg.dfm
@@ -0,0 +1,61 @@
+object shellExtFrm: TshellExtFrm
+  Left = 226
+  Top = 146
+  Caption = 'Option...'
+  ClientHeight = 265
+  ClientWidth = 388
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poDesktopCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Image1: TImage
+    Left = 0
+    Top = 0
+    Width = 388
+    Height = 169
+    Align = alTop
+    AutoSize = True
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 169
+    Width = 388
+    Height = 96
+    Align = alClient
+    BevelOuter = bvLowered
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 16
+      Top = 16
+      Width = 215
+      Height = 13
+      Caption = 'Do you want HFS in your shell context menu?'
+    end
+    object Button1: TButton
+      Left = 108
+      Top = 56
+      Width = 75
+      Height = 25
+      Caption = '&Yes'
+      Default = True
+      ModalResult = 6
+      TabOrder = 0
+    end
+    object Button2: TButton
+      Left = 204
+      Top = 56
+      Width = 75
+      Height = 25
+      Caption = '&No'
+      ModalResult = 7
+      TabOrder = 1
+    end
+  end
+end
diff --git a/shellExtDlg.pas b/shellExtDlg.pas
new file mode 100644
index 0000000..dbc1b2e
--- /dev/null
+++ b/shellExtDlg.pas
@@ -0,0 +1,40 @@
+unit shellExtDlg;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ExtCtrls, StdCtrls, GIFImage, utilLib;
+
+type
+  TshellExtFrm = class(TForm)
+    Image1: TImage;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Button1: TButton;
+    Button2: TButton;
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  shellExtFrm: TshellExtFrm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TshellExtFrm.FormCreate(Sender: TObject);
+var
+  gif: TGIFImage;
+begin
+// turbo delphi doesn't allow me to load a gif from the form designer, so i do it run-time
+gif:=stringToGif(getRes('shell', 'GIF'));
+try image1.picture.assign(gif);
+finally gif.free end;
+end;
+
+end.
diff --git a/todo.txt b/todo.txt
new file mode 100644
index 0000000..69fc7f1
--- /dev/null
+++ b/todo.txt
@@ -0,0 +1,194 @@
+* consider letting comment "protected" files. Can it really cause harm? 
+* flag to enable lnk files in a folder (disabled by default)
+experiment session login in place of http authentication
++ add mkv mime type http://www.rejetto.com/forum/html-templates/online-video-mkv-player/msg1061237/?topicseen#msg1061237
++ sign exe http://www.rejetto.com/forum/hfs-~-http-file-server/'unsafe'/msg1061437/#msg1061437
+cache reReplace
+- comments are not updated when moving or renaming files http://www.rejetto.com/forum/bug-reports/descript-ion-and-comment-not-cleaned-up-after-moving-file/
++ hash&salt passwords
+- setInterval > setTimeout
++ target=_blank as an option on links
+- an unsaved VFS will be asked twice if a restart is caused by an update
+- while renaming a file, CTRL+C/V doesn't work on the text but is handled by the context menu action
++ more macros http://www.rejetto.com/forum/index.php/topic,10631.0.html
+- long folder names are overflowing the tree-box http://www.rejetto.com/forum/index.php/topic,10631.0.html
++ {.vfs delete.}
++ log: color upload and downloads http://www.rejetto.com/forum/index.php/topic,10202.0.html
++ make simple variables work outside connections http://www.rejetto.com/forum/index.php/topic,9805.msg1054886.html#msg1054886
++ {.server stop.} http://www.rejetto.com/forum/index.php/topic,9577.msg1054784.html#msg1054784
++ macros missing to cache a folder: {.reply|content=|var=|code=|filename=|mime=.}
+- unexpected scripting behavior http://www.rejetto.com/forum/index.php/topic,9728.msg1054517.html#msg1054517
+    in handleItem() translate only symbols, and run all macros at the end
+document: [+section]
+document: {.set item|diff template.}
+document: single line diff templates
+document: disconnection reason|if=XXX
+document: %url%
+document: commands returning white space: add folder, save, set account, exec, mkdir, chdir, delete, rename, move copy, set
+document: dir, disk free, filetime, file changed, load tpl
++ event to filter logging http://www.rejetto.com/forum/index.php/topic,9784.0.html
+- wrong browser http://www.rejetto.com/forum/index.php/topic,9710.0.html
+    solution:
+        read HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\Associations\UrlAssociations\http\UserChoice::Progid
+        read ROOT\$program-id\shell\open\command::Default
+* findExtOnStartupChk, when failing, is not reporting the server
+- better dialog message http://www.rejetto.com/forum/index.php/topic,9778.0.html
++ upload to non-browsable folder
+- android doesn't upload http://www.rejetto.com/forum/index.php/topic,9699.0/topicseen.html#msg1054287
+- android doesn't work with passwords http://www.rejetto.com/forum/index.php/topic,9575.msg1054029.html#msg1054029
+? default tpl: check with IE6
+? default tpl: consider css data uri http://www.nczonline.net/blog/2010/07/06/data-uris-make-css-sprites-obsolete/
++ default tpl: support for rawr thumbnails
++ next VFS file format version should be XML-based
++ remove the "progress" from "log what", and use [progress|no log] instead
+? {.rename.} should update descript.ion
++ folder archive depth limit http://www.rejetto.com/forum/index.php/topic,8546.msg1050027.html#msg1050027
+? in getPage() many %symbols% are translated in a way incompatible with {.section.}
+? Windows Script Interfaces
+? {.image|src=file|width=x|dst=outfile.}
++ replace /~imgXX with ?mode=icon&id=XX
++ user input through {.dialog.}
++ show missing files in VFS http://www.rejetto.com/forum/index.php/topic,8203.new.html
+* {.cache.} should be able to work on a simple variable
++ plugins system http://www.rejetto.com/wiki/index.php/HFS:_plugins_design
+? tpl as plugin category
+? try merging 2 implementations of runEventScript()
++ support PUT http method
+? use the system index for faster searching http://msdn.microsoft.com/en-us/library/bb266517(VS.85).aspx http://www.rejetto.com/forum/index.php/topic,7700.msg1047024.html#msg1047024
+- out of memory / GDI http://www.rejetto.com/forum/index.php/topic,7703.msg1047118.html#msg1047118
+? consider using tpl.appendString() in getFolderPage() instead of getRecursiveDiffTplAsStr() to avoid some string concatenations
+? fake the by-default "anyone" in permission/download, to reflect the behavior www.rejetto.com/forum/?topic=7301
++ log event to filter www.rejetto.com/forum/?topic=7332.0
+? integration with mediainfo.dll www.rejetto.com/forum/?topic=7329
++ folder archive log, just as for deletion http://www.rejetto.com/forum/index.php?topic=6904.msg1042974;topicseen#msg1042974
+- upload doesn't work on chinese folders with uneven length  www.rejetto.com/forum/?topic=5382
+- chinese problems since #161 www.rejetto.com/forum/?topic=5344
+- AV with RealVNC on hints by mouse hovering www.rejetto.com/forum/?topic=5261
+- N-Stalker can locally crash HFS
+- AV in #179 http://www.rejetto.com/forum/index.php?topic=5653.msg1033457#msg1033457  www.rejetto.com/forum/?topic=5681
+- AV in #184 http://www.rejetto.com/forum/index.php?topic=5792.msg1034538#msg1034538
+- AV in #185 http://www.rejetto.com/forum/indebx.php?topic=5795.msg1034536#msg1034536  www.rejetto.com/forum/?topic=5873
+- focus problem hovering this hint http://www.rejetto.com/forum/index.php?topic=6321.msg1038272#msg1038272
+- lock icon is lost on moving http://www.rejetto.com/forum/index.php?topic=6371.msg1038531#msg1038531
+- there seems to be problems with SMB resources www.rejetto.com/forum/?topic=6365
+- malfunctions with incorrect timestamps http://www.rejetto.com/forum/index.php?topic=6418.msg1039179#msg1039179
+? permission events www.rejetto.com/forum/?topic=6698
+- show error message http://www.rejetto.com/forum/index.php?topic=6695.msg1041212#msg1041212
+- AV deleting files in #221 www.rejetto.com/forum/?topic=6629
++ "no download" should become a permission http://www.rejetto.com/forum/index.php?topic=6870.msg1042583#msg1042583
++ http://www.rejetto.com/forum/index.php?topic=6719.msg1041559#msg1041559
++ link properties: "open in new window"
++ authentication digest
++ improve the connections box http://www.rejetto.com/forum/index.php?topic=6689.msg1041182#msg1041182
++ ban page can't eventually access template files www.rejetto.com/forum/?topic=6628
++ support POSTed files www.rejetto.com/forum/?topic=6618
++ clicking on a group, user should get notified of what accounts are part of it
++ multi-span folder archive www.rejetto.com/forum/?topic=6575
++ an updated hint on virtual folders, to explain how to get upload working
+- requesting a non-existant file inside an unauthorized folder, apache replies 401, hfs 404. try to comply.
++ make %list% available in every page
++ support for ALT+F4 with option "Minimize to tray clicking the close button" www.rejetto.com/forum/?topic=6351 
++ replace and delete icons http://www.rejetto.com/forum/index.php?topic=6317.msg1038157#msg1038157
++ self-test supporting https
+? currently the delete permission is only inside a folder. you can't mark a file or delete the marked folder. is this ok?
++ when a link is protected (no access for this user) it may be displayed as a link to the %item-name%, then 401, and if login is successful provide a redirection 
++ change folder/link/generic-file icons (via GUI, without editing the template) 
++ a way to get bigger icons (client side) 
++ be able to produce rss http://www.rejetto.com/forum/index.php?topic=5846.msg1035481#msg1035481
+* better warning message http://www.rejetto.com/forum/index.php?topic=5795.msg1034406#msg1034406
+? on the fly files compression www.rejetto.com/forum/?topic=5492
+? firewall mode www.rejetto.com/forum/?topic=5461
+? auto-removing folders www.rejetto.com/forum/?topic=3149
++ last-access-time for files www.rejetto.com/forum/?topic=5266
++ expiration time for account www.rejetto.com/forum/?topic=5409
++ warn the user if there's no useful IP address http://www.rejetto.com/forum/index.php?topic=3193.msg1031371#msg1031371  
++ GUI suggestions www.rejetto.com/forum/?topic=5334
++ {.cookie.} http://www.rejetto.com/forum/index.php?topic=5349.0
++ restrict access to -> ip mask www.rejetto.com/forum/?topic=5244
++ an option to not consider LAN traffic graph/statistics http://www.rejetto.com/forum/index.php?topic=5244.msg1030090#msg1030090
++ url command to save the output in a cache, given an ID an an expiry time (minutes?) http://www.rejetto.com/forum/index.php?topic=5239.msg1030223#msg1030223
++ ban list sorting (maybe always sort?) www.rejetto.com/forum/?topic=5251
+? shutdown message www.rejetto.com/forum/?topic=3206
++ a variant of ?limit to trim after full listing (rename limit? the other method recalls the SQL limit, would fit better) http://www.rejetto.com/forum/index.php?topic=5196.msg1029734#msg1029734
++ show update news inside HFS
++ a way to filter/show only "new" files www.rejetto.com/forum/?topic=5227
+? add to the LOG the X-REQUEST To to be able to know whom the  proxy is forwarding to
++ a way to add via cmdline a file specifying its virtual name/path
+? "sticky file" with an hint on adding a leading blank space www.rejetto.com/forum/?topic=5088
++ upload file overwriting per-folder www.rejetto.com/forum/?topic=5086
++ https
++ filter mask based on host, to disconnect who is not using our dyndns
++ mouse hovering the graph, shows the speed and time for that point
++ per-folder no-limit
++ windows auth (NLTM? seems to be available in ICS) www.rejetto.com/forum/?topic=3762
++ more stats www.rejetto.com/forum/?topic=4968
++ to disable single ban rules 
++ ban by hostname
++ edit comments for real folders www.rejetto.com/forum/?topic=4667
++ a way to pass ini commands through the command line
++ create folders via command line www.rejetto.com/forum/?topic=3955
+? support mp3ToIon www.rejetto.com/forum/?topic=4600
++ download only for <account-list>
++ account: see all transfers in ~progress http://www.rejetto.com/forum/index.php/topic,9325.msg1053416/topicseen.html#msg1053416 
++ limit account to a host mask
++ tray icons for uploads
++ MAC filter
++ if robots.txt does not exist, an option "don't be listed on search engines"
++ menu -> limits -> temporarily disable all limits
++ menu -> limits -> max speed for each address
++ option to display counter for folders as number of accesses instead of total access to files in it   
++ autodisabling accounts www.rejetto.com/forum/?topic=5379 
++ on update, propose a link to the "what's new" page
++ add special folder (expert mode): let you specify a special folder, like documents, or manually enter a path (useful for relative paths), or GUID
++ logs rotation (hfs always append)
++ double address bar, one for LAN and one for the Internet   
++ per user diff-tpl (apply both folder and user diff-tpl.s, and let the user decide priority, default:user,folder)
++ "Folder image mask", a file mask indicating the external file that should be used as icon (~img_folder)
++ to be able to add icons from multi-icon files (like shell32.dll)
++ installer (saving to registry, and making ini-file the new default, don't ask for shell menu)
++ support unicode filenames (FindFirstFileW. Cannot be done because widgets don't support unicode) 
+* show "(home)" instead of "/" in VFS
++ show updateinfo notice also in autocheck
++ top 10 downloaded files
++ after the self test fails, and a router problem is detected, prompt a wizard for portforwad.com (extract routers list)
++ export vfs map as txt/html
++ specific message for each disabled account             
++ search for files including meta information (id3 tag) www.rejetto.com/forum/?topic=5312
++ multiupload using flash
+? support shortcut to folders in real-folders
+* save custom icons in VFS only once
++ DNS reverse for ips www.rejetto.com/forum/?topic=4970
++ UPnP (www.upnpworks.alcidelic.com/links.html) (www.whitebear.ch) (http://miniupnp.free.fr/) (http://miniupnp.free.fr/files/xchat-upnp20061022.patch)
++ UPnP Media Server www.rejetto.com/forum/?topic=5538
++ save to registry in different strings
++ loading cfg, if version < current then warn user
++ auto-ban IP if: bad login X times (with IP exclusion mask) [macros?]
++ deny listing and download for uploading files
++ download/upload quota (global and account-based)
++ purge VFS from unexistant items: files, real folders, virtual folders, empty folders
++ custom browser [with an help on how to get a new browser window]
++ admin panel (with stats, and maybe commands)
++ limit bandwidth/downloads/kb by user, by ip
++ external text files with list of authorized IP addresses/accounts
++ periodic password changer? (t=1061)
++ thumbnails mode (create thumbnails on addition)
+? socks5
++ SSI
++ support file renaming notification
++ multi-language
++ zip format for folder archives
+* stop using /~commands and move all of them in the standard ?name=value form
+
+VER 3
++ new kind of folder (no more real/virtual folders) 
+
+VER 3.5
++ search for files
++ file/folder properties in a window (collect menu commands)
++ undo (multilevel)
+
+VER 4
++ PHP/ASP via CGI (http://cgi-spec.golux.com/)
+
+VER 5
++ ftp / webdav
diff --git a/traylib.pas b/traylib.pas
new file mode 100644
index 0000000..08e52cb
--- /dev/null
+++ b/traylib.pas
@@ -0,0 +1,216 @@
+{
+Copyright (C) 2002-2008  Massimo Melina (www.rejetto.com)
+
+This file is part of Http File Server (HFS).
+
+    HFS is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    HFS is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with HFS; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+}
+unit traylib;
+
+interface
+
+uses
+  forms, ShellAPI, Messages, windows, graphics, sysutils, classes;
+
+const
+  WM_TRAY = WM_USER+1;
+type
+  TtrayEvent = (TE_CLICK, TE_2CLICK, TE_RCLICK);
+  TtrayMessageType = (
+    TM_NONE = NIIF_NONE,
+    TM_INFO = NIIF_INFO,
+    TM_WARNING = NIIF_WARNING,
+    TM_ERROR = NIIF_ERROR
+  );
+
+  TNotifyIconDataEx = record
+    cbSize: DWORD;
+    wnd: HWND;
+    uID: UINT;
+    uFlags: UINT;
+    uCallbackMessage: UINT;
+    hIcon: HICON;
+    szTip: array [0..127] of AnsiChar;
+    dwState: DWORD;
+    dwStateMask: DWORD;
+    szInfo: array[0..255] of AnsiChar;
+    uVersion: UINT;
+    szInfoTitle: array[0..63] of AnsiChar;
+    dwInfoFlags: DWORD;
+    end;
+
+  TmyTrayIcon=class
+    private
+      icondata: TNotifyIconDataEx;
+      shown: boolean;
+      procedure wndProc(var Message: TMessage);
+      procedure notify(ev:TtrayEvent);
+    public
+      data: pointer;  // user data
+      onEvent: procedure(sender:Tobject; ev:TtrayEvent) of object;
+      constructor create(form:Tform);
+      destructor Destroy; override;
+      procedure minimize;
+      procedure update;
+      procedure hide;
+      procedure show;
+      procedure setIcon(icon:Ticon);
+      procedure setTip(s:string);
+      function  balloon(msg:string; secondsTimeout:real=3; kind:TtrayMessageType=TM_NONE; title:string=''):boolean;
+      procedure setIconFile(fn:string);
+      procedure updateHandle(handle:HWND);
+    end; // TmyTrayIcon
+
+implementation
+
+var
+  maxTipLength: integer;
+
+constructor TmyTrayIcon.create(form:Tform);
+begin
+with icondata do
+  begin
+  uCallbackMessage := WM_TRAY;
+  cbSize := sizeof(icondata);
+  Wnd := classes.AllocateHWnd(wndproc);
+  uID := 1;
+  uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
+  uVersion:=3;
+  end;
+setIcon(application.icon);
+setTip(application.title);
+end; // create
+
+destructor TmyTrayIcon.destroy;
+begin
+classes.DeallocateHWnd(icondata.wnd);
+hide;
+end;
+
+procedure TmyTrayIcon.updateHandle(handle:HWND);
+begin
+if not shown then
+  begin
+  icondata.wnd:=handle;
+  exit;
+  end;
+hide;
+icondata.wnd:=handle;
+Shell_NotifyIcon(NIM_ADD, @icondata)
+end;
+
+procedure TmyTrayIcon.update();
+begin
+if shown then
+  if not Shell_NotifyIcon(NIM_MODIFY, @icondata) then
+    Shell_NotifyIcon(NIM_ADD, @icondata);
+end; { update }
+
+procedure TmyTrayIcon.setIcon(icon:Ticon);
+begin
+if icon=NIL then exit;
+icondata.hIcon:=icon.handle;
+update();
+end; { setIcon }
+
+procedure TmyTrayIcon.setIconFile(fn:string);
+var
+  ico:Ticon;
+begin
+ico:=Ticon.create;
+try
+  ico.loadFromFile(fn);
+  setIcon(ico);
+finally ico.free end;  // is this ok, or should we ensure the system resource is not deallocated?
+end; // setIconFile
+
+procedure TmyTrayIcon.setTip(s:string);
+begin
+s:=stringReplace(s,'&','&&',[rfReplaceAll]);
+if length(s) > maxTipLength then setlength(s,maxTipLength);
+if string(icondata.szTip) = s then exit;
+strPLCopy(icondata.szTip, ansiString(s), sizeOf(icondata.szTip)-1);
+update();
+end; // setTip
+
+procedure TmyTrayIcon.minimize();
+begin
+show();
+Application.ShowMainForm := False;
+// Toolwindows dont have a TaskIcon. (Remove if TaskIcon is to be show when form is visible)
+SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
+end; // minimizeToTray
+
+procedure TmyTrayIcon.show();
+begin
+if shown then exit;
+shown:=true;
+Shell_NotifyIcon(NIM_ADD, @icondata);
+Shell_NotifyIcon(NIM_SETVERSION, @iconData);
+end; // show
+
+procedure TmyTrayIcon.hide();
+begin
+if not shown then exit;
+shown:=FALSE;
+Shell_NotifyIcon(NIM_DELETE, @icondata);
+end; // hide
+
+procedure TmyTrayIcon.wndproc(var Message: TMessage);
+begin
+case message.msg of
+  WM_TRAY:
+    case message.lParam of
+      WM_RBUTTONUP: notify(TE_RCLICK);
+      WM_LBUTTONUP: notify(TE_CLICK);
+      WM_LBUTTONDBLCLK: notify(TE_2CLICK);
+      end;
+  WM_QUERYENDSESSION:
+    message.result := 1;
+  WM_ENDSESSION:
+    if TWmEndSession(Message).endSession then
+      hide();
+  NIN_BALLOONHIDE,
+  NIN_BALLOONTIMEOUT:
+    icondata.uFlags := icondata.uFlags and not NIF_INFO;
+  end;
+message.result:=1;
+end;
+
+procedure TmyTrayIcon.notify(ev:TtrayEvent);
+begin if assigned(onEvent) then onEvent(self, ev) end;
+
+function TmyTrayIcon.balloon(msg:string; secondsTimeout:real; kind:TtrayMessageType; title:string):boolean;
+begin
+case kind of
+  TM_WARNING: icondata.dwInfoFlags:=NIIF_WARNING;
+  TM_ERROR: icondata.dwInfoFlags:=NIIF_ERROR;
+  TM_INFO: icondata.dwInfoFlags:=NIIF_INFO;
+  else icondata.dwInfoFlags:=NIIF_NONE;
+end;
+strPLCopy(icondata.szInfo, ansiString(msg), sizeOf(icondata.szInfo)-1);
+strPLCopy(icondata.szInfoTitle, ansiString(title), sizeOf(icondata.szInfoTitle)-1);
+icondata.uVersion:=round(secondsTimeout*1000);
+icondata.uFlags := icondata.uFlags or NIF_INFO;
+update();
+icondata.uFlags := icondata.uFlags and not NIF_INFO;
+result:=TRUE;
+end; // balloon
+
+INITIALIZATION
+if byte(getVersion()) < 5 then maxTipLength:=63
+else maxTipLength:=127;
+
+end.
diff --git a/upload_disabled.txt b/upload_disabled.txt
new file mode 100644
index 0000000..66b4d8d
--- /dev/null
+++ b/upload_disabled.txt
@@ -0,0 +1,5 @@
+You selected a virtual folder.
+Upload is NOT available for virtual folders, only for real folders.
+
+=== How to get a real folder?
+Add a folder from your disk, then click on "Real Folder".
diff --git a/upload_how.txt b/upload_how.txt
new file mode 100644
index 0000000..2daf33b
--- /dev/null
+++ b/upload_how.txt
@@ -0,0 +1,10 @@
+1. Add a folder (choose "real folder") 
+
+You should now see a RED folder in your virtual file sytem, inside HFS 
+
+2. Right click on this folder
+3. Properties -> Permissions -> Upload
+4. Check on "Anyone"
+5. Ok 
+
+Now anyone who has access to your HFS server can upload files to you.
diff --git a/utillib.pas b/utillib.pas
new file mode 100644
index 0000000..7a57af3
--- /dev/null
+++ b/utillib.pas
@@ -0,0 +1,3128 @@
+{
+Copyright (C) 2002-2012  Massimo Melina (www.rejetto.com)
+
+This file is part of HFS ~ HTTP File Server.
+
+    HFS is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    HFS is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with HFS; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+}
+{$INCLUDE defs.inc }
+
+unit utilLib;
+
+interface
+
+uses
+	IOUtils, main, hslib, regexpr, types, windows, graphics, dialogs, registry, classes, dateUtils, gifimage,
+  shlobj, shellapi, activex, comobj, strutils, forms, stdctrls, controls, psAPI, menus, math,
+  longinputDlg, OverbyteIcsWSocket, OverbyteIcshttpProt, comCtrls, iniFiles, richedit, sysutils, classesLib{, fastmm4};
+
+const
+  ILLEGAL_FILE_CHARS = [#0..#31,'/','\',':','?','*','"','<','>','|'];
+  DOW2STR: array [1..7] of string=( 'Sun','Mon','Tue','Wed','Thu','Fri','Sat' );
+  MONTH2STR: array [1..12] of string = ( 'Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec' );
+  PTR1: Tobject = ptr(1);
+var
+  GMToffset: integer; // in minutes
+  inputQueryLongdlg: TlonginputFrm;
+  winVersion: (WV_LOWER, WV_2000, WV_VISTA, WV_SEVEN, WV_HIGHER);
+type
+  TcharSet = set of char;
+  TreCB = procedure(re:TregExpr; var res:string; data:pointer);
+  PstringDynArray = ^TstringDynArray;
+  TnameExistsFun = function(user:string):boolean;
+
+procedure doNothing(); inline; // useful for readability
+function accountExists(user:string; evenGroups:boolean=FALSE):boolean;
+function getAccount(user:string; evenGroups:boolean=FALSE):Paccount;
+function nodeToFile(n:TtreeNode):Tfile;
+procedure fixFontFor(frm:Tform);
+function hostFromURL(s:string):string;
+function hostToIP(name: string):string;
+function allocatedMemory():int64;
+function stringToGif(s:ansistring; gif:TgifImage=NIL):TgifImage;
+function maybeUnixTime(t:Tdatetime):Tdatetime;
+function filetimeToDatetime(ft:TFileTime):Tdatetime;
+function localToGMT(d:Tdatetime):Tdatetime;
+function onlyExistentAccounts(a:TstringDynArray):TstringDynArray;
+procedure onlyForExperts(controls:array of Tcontrol);
+function createAccountOnTheFly():Paccount;
+function newMenuSeparator(lbl:string=''):Tmenuitem;
+function accountIcon(isEnabled, isGroup:boolean):integer; overload;
+function accountIcon(a:Paccount):integer; overload;
+function evalFormula(s:string):real;
+function boolOnce(var b:boolean):boolean;
+procedure drawCentered(cnv:Tcanvas; r:Trect; text:string);
+function minmax(min, max, v:integer):integer;
+function isLocalIP(ip:string):boolean;
+function clearAndReturn(var v:string):string;
+function swapMem(var src,dest; count:dword; cond:boolean=TRUE):boolean;
+function pid2file(pid:integer):string;
+function port2pid(port:string):integer;
+function holdingKey(key:integer):boolean;
+function blend(from,to_:Tcolor; perc:real):Tcolor;
+function isNT():boolean;
+function setClip(s:string):boolean;
+function eos(s:Tstream):boolean;
+function safeDiv(a,b:real; default:real=0):real; overload;
+function safeDiv(a,b:int64; default:int64=0):int64; overload;
+function safeMod(a,b:int64; default:int64=0):int64;
+function smartsize(size:int64):string;
+function httpGet(url:string; from:int64=0; size:int64=-1):string;
+function httpGetFile(url, filename:string; tryTimes:integer=1; notify:TdocDataEvent=NIL):boolean;
+function httpFileSize(url:string):int64;
+function getIPs():TStringDynArray;
+function getPossibleAddresses():TstringDynArray;
+function whatStatusPanel(statusbar:Tstatusbar; x:integer):integer;
+function getExternalAddress(var res:string; provider:Pstring=NIL):boolean;
+function checkAddressSyntax(address:string; wildcards:boolean=TRUE):boolean;
+function inputQueryLong(const caption, msg:string; var value:string; ofs:integer=0):boolean;
+procedure purgeVFSaccounts();
+function exec(cmd:string; pars:string=''; showCmd:integer=SW_SHOW):boolean;
+function execNew(cmd:string):boolean;
+function captureExec(DosApp : string; out output:string; out exitcode:cardinal; timeout:real=0):boolean;
+function openURL(url:string):boolean;
+function getRes(name:pchar; typ:string='TEXT'):string;
+function bmpToHico(bitmap:Tbitmap):hicon;
+function compare_(i1,i2:double):integer; overload;
+function compare_(i1,i2:int64):integer; overload;
+function compare_(i1,i2:integer):integer; overload;
+function msgDlg(msg:string; code:integer=0; title:string=''):integer;
+function if_(v:boolean; v1:string; v2:string=''):string; overload; inline;
+function if_(v:boolean; v1:int64; v2:int64=0):int64; overload; inline;
+function if_(v:boolean; v1:integer; v2:integer=0):integer; overload; inline;
+function if_(v:boolean; v1:Tobject; v2:Tobject=NIL):Tobject; overload; inline;
+function if_(v:boolean; v1:boolean; v2:boolean=FALSE):boolean; overload; inline;
+// file
+function getEtag(filename:string):string;
+function getDrive(fn:string):string;
+function diskSpaceAt(path:string):int64;
+function deltree(path:string):boolean;
+function newMtime(fn:string; var previous:Tdatetime):boolean;
+function dirCrossing(s:string):boolean;
+function forceDirectory(path:string):boolean;
+function moveToBin(fn:string; force:boolean=FALSE):boolean; overload;
+function moveToBin(files:TstringDynArray; force:boolean=FALSE):boolean; overload;
+function uri2disk(url:string; parent:Tfile=NIL; resolveLnk:boolean=TRUE):string;
+function uri2diskMaybe(path:string; parent:Tfile=NIL; resolveLnk:boolean=TRUE):string;
+function freeIfTemp(var f:Tfile):boolean; inline;
+function isAbsolutePath(path:string):boolean;
+function getTempDir():string;
+function createShellLink(linkFN:WideString; destFN:string):boolean;
+function readShellLink(linkFN:WideString):string;
+function getShellFolder(id:string):string;
+function getTempFilename():string;
+function saveTempFile(data:ansistring):string;
+function fileOrDirExists(fn:string):boolean;
+function sizeOfFile(fn:string):int64; overload;
+function sizeOfFile(fh:Thandle):int64; overload;
+function loadFile(fn:string; from:int64=0; size:int64=-1):ansistring;
+function loadTextFile(fn:string):string;
+function saveTextFile(fn:string; text:string):boolean;
+function saveFile(fn:string; data:ansistring; append:boolean=FALSE):boolean; overload;
+function saveFile(var f:file; data:ansistring):boolean; overload;
+function moveFile(src, dst:string; op:UINT=FO_MOVE):boolean;
+function copyFile(src, dst:string):boolean;
+function resolveLnk(fn:string):string;
+function validFilename(s:string):boolean;
+function validFilepath(fn:string; acceptUnits:boolean=TRUE):boolean;
+function match(mask, txt:pchar; fullMatch:boolean=TRUE; charsNotWildcard:Tcharset=[]):integer;
+function filematch(mask, fn:string):boolean;
+function appendFile(fn:string; data:ansistring):boolean;
+function getFilename(var f:file):string;
+function filenameToDriveByte(fn:string):byte;
+function selectFile(var fn:string; title:string=''; filter:string=''; options:TOpenOptions=[]):boolean;
+function selectFiles(caption:string; var files:TStringDynArray):boolean;
+function selectFolder(caption:string; var folder:string):boolean;
+function selectFileOrFolder(caption:string; var fileOrFolder:string):boolean;
+function isExtension(filename, ext:string):boolean;
+function getMtimeUTC(filename:string):Tdatetime;
+function getMtime(filename:string):Tdatetime;
+// registry
+function loadregistry(key,value:string; root:HKEY=0):string;
+function saveregistry(key,value,data:string; root:HKEY=0):boolean;
+function deleteRegistry(key,value:string; root:HKEY=0):boolean; overload;
+function deleteRegistry(key:string; root:HKEY=0):boolean; overload;
+// strings array
+function split(separator, s:string; nonQuoted:boolean=FALSE):TStringDynArray;
+function join(separator:string; ss:TstringDynArray):string;
+function addUniqueString(s:string; var ss:TStringDynArray):boolean;
+function addString(s:string; var ss:TStringDynArray):integer;
+function replaceString(var ss:TStringDynArray; old, new:string):integer;
+function popString(var ss:TstringDynArray):string;
+procedure insertString(s:string; idx:integer; var ss:TStringDynArray);
+function removeString(var a:TStringDynArray; idx:integer; l:integer=1):boolean; overload;
+function removeString(find:string; var a:TStringDynArray):boolean; overload;
+procedure removeStrings(find:string; var a:TStringDynArray);
+procedure toggleString(s:string; var ss:TStringDynArray);
+function onlyString(s:string; ss:TStringDynArray):boolean;
+function addArray(var dst:TstringDynArray; src:array of string; where:integer=-1; srcOfs:integer=0; srcLn:integer=-1):integer;
+function removeArray(var src:TstringDynArray; toRemove:array of string):integer;
+function addUniqueArray(var a:TstringDynArray; b:array of string):integer;
+procedure uniqueStrings(var a:TstringDynArray);
+function idxOf(s:string; a:array of string; isSorted:boolean=FALSE):integer;
+function stringExists(s:string; a:array of string; isSorted:boolean=FALSE):boolean;
+function listToArray(l:Tstrings):TstringDynArray;
+function arrayToList(a:TStringDynArray; list:TstringList=NIL):TstringList;
+procedure sortArray(var a:TStringDynArray);
+// convert
+function boolToPtr(b:boolean):pointer;
+function strToCharset(s:string):Tcharset;
+function ipToInt(ip:string):dword;
+function rectToStr(r:Trect):string;
+function strToRect(s:string):Trect;
+function dt_(s:ansistring):Tdatetime;
+function int_(s:ansistring):integer;
+function str_(i:integer):ansistring; overload;
+function str_(fa:TfileAttributes):ansistring; overload;
+function str_(t:Tdatetime):ansistring; overload;
+function str_(b:boolean):ansistring; overload;
+function strToUInt(s:string):integer;
+function elapsedToStr(t:Tdatetime):string;
+function dateToHTTP(gmtTime:Tdatetime):string; overload;
+function dateToHTTP(filename:string):string; overload;
+function toSA(a:array of string):TstringDynArray; // this is just to have a way to typecast
+function stringToColorEx(s:string; default:Tcolor=clNone):Tcolor;
+// misc string
+procedure excludeTrailingString(var s:string; ss:string);
+function findEOL(s:string; ofs:integer=1; included:boolean=TRUE):integer;
+function getUniqueName(start:string; exists:TnameExistsFun):string;
+function getStr(from,to_:pchar):string;
+function TLV(t:integer; data:ansistring):ansistring;
+function TLV_NOT_EMPTY(t:integer; data:ansistring):ansistring;
+function popTLV(var s,data:ansistring):integer;
+function getCRC(data:ansistring):integer;
+function dotted(i:int64):string;
+function xtpl(src:string; table:array of string):string; overload;
+function validUsername(s:string; acceptEmpty:boolean=FALSE):boolean;
+function anycharIn(chars, s:string):boolean; overload;
+function anycharIn(chars:Tcharset; s:string):boolean; overload;
+function int0(i,digits:integer):string;
+function addressmatch(mask, address:string):boolean;
+function getTill(ss, s:string; included:boolean=FALSE):string; overload;
+function getTill(i:integer; s:string):string; overload;
+function singleLine(s:string):boolean;
+function poss(chars:TcharSet; s:string; ofs:integer=1):integer;
+function optUTF8(bool:boolean; s:string):string; overload;
+function optUTF8(tpl:Ttpl; s:string):string; overload;
+function optAnsi(bool:boolean; s:string):string;
+function utf8Test(s:string):boolean;
+function jsEncode(s, chars:string):string;
+function nonEmptyConcat(pre,s:string; post:string=''):string;
+function first(a,b:integer):integer; overload;
+function first(a,b:double):double; overload;
+function first(a,b:pointer):pointer; overload;
+function first(a,b:string):string; overload;
+function first(a:array of string):string; overload;
+function stripChars(s:string; cs:Tcharset; invert:boolean=FALSE):string;
+function isOnlyDigits(s:string):boolean;
+function strAt(s, ss:string; at:integer):boolean; inline;
+function substr(s:string; start:integer; upTo:integer=0):string; inline; overload;
+function substr(s:string; after:string):string; overload;
+function reduceSpaces(s:string; replacement:string=' '; spaces:TcharSet=[]):string;
+function replace(var s:string; ss:string; start,upTo:integer):integer;
+function countSubstr(ss:string; s:string):integer;
+function trim2(s:string; chars:Tcharset):string;
+procedure urlToStrings(s:string; sl:Tstrings);
+function reCB(expr, subj:string; cb:TreCB; data:pointer=NIL):string;
+function reMatch(s, exp:string; mods:string='m'; ofs:integer=1; subexp:PstringDynArray=NIL):integer;
+function reReplace(subj, exp, repl:string; mods:string='m'):string;
+function reGet(s, exp:string; subexpIdx:integer=1; mods:string='!mi'; ofs:integer=1):string;
+function getSectionAt(p:pchar; out name:string):boolean;
+function isSectionAt(p:pchar):boolean;
+function dequote(s:string; quoteChars:TcharSet=['"']):string;
+function quoteIfAnyChar(badChars, s:string; quote:string='"'; unquote:string='"'):string;
+function getKeyFromString(s:string; key:string; def:string=''):string;
+function setKeyInString(s:string; key:string; val:string=''):string;
+function getFirstChar(s:string):char;
+function escapeNL(s:string):string;
+function unescapeNL(s:string):string;
+function htmlEncode(s:string):string;
+procedure enforceNUL(var s:string);
+
+implementation
+
+uses
+  clipbrd, JclNTFS, JclWin32, parserLib, newuserpassDlg, winsock, OverbyteicsMD5;
+
+var
+  ipToInt_cache: ThashedStringList;
+  onlyDotsRE: TRegExpr;
+
+// method TregExpr.ReplaceEx does the same thing, but doesn't allow the extra data field (sometimes necessary).
+// Moreover, here i use the TfastStringAppend that will give us good performance with many replacements.
+function reCB(expr, subj:string; cb:TreCB; data:pointer=NIL):string;
+var
+  r: string;
+  last: integer;
+  re: TRegExpr;
+  s: TfastStringAppend;
+begin
+re:=TRegExpr.create;
+s:=TfastStringAppend.create;
+try
+  re.modifierI:=TRUE;
+  re.ModifierS:=FALSE;
+  re.expression:=expr;
+  re.compile();
+  last:=1;
+  if re.exec(subj) then
+    repeat
+    r:=re.match[0];
+    cb(re, r, data);
+    if re.MatchPos[0] > 1 then
+      s.append(substr(subj, last, re.matchPos[0]-1)); // we must IF because 0 is the end of string for substr()
+    s.append(r);
+    last:=re.matchPos[0]+re.matchLen[0];
+    until not re.execNext();
+  s.append(substr(subj, last));
+  result:=s.get();
+finally
+  re.free;
+  s.free;
+  end
+end; // reCB
+
+// this is meant to detect junctions, symbolic links, volume mount points
+function isJunction(path:string):boolean; inline;
+var
+  attr: DWORD;
+begin
+attr:=getFileAttributes(PChar(path));
+// don't you dare to convert the <>0 in a boolean typecast! my TurboDelphi (2006) generates the wrong assembly :-(
+result:=(attr <> DWORD(-1)) and (attr and FILE_ATTRIBUTE_REPARSE_POINT <> 0)
+end;
+
+// the file may not be a junction itself, but we may have a junction at some point in the path
+function hasJunction(fn:string):string;
+var
+  i: integer;
+begin
+i:=length(fn);
+while i > 0 do
+  begin
+  result:=copy(fn,1,i);
+  if isJunction(result) then
+    exit;
+  while (i > 0) and not charInSet(fn[i],['\','/']) do dec(i);
+  dec(i);
+  end;
+result:='';
+end; // hasJunction
+
+// this is a fixed version of the one contained in JclNTFS.pas
+function NtfsGetJunctionPointDestination(const Source: string; var Destination: widestring): Boolean;
+var
+  Handle: THandle;
+  ReparseData: record
+    case Boolean of
+      False: (Reparse: TReparseDataBuffer;);
+      True: (Buffer: array [0..MAXIMUM_REPARSE_DATA_BUFFER_SIZE] of Char;);
+    end;
+  BytesReturned: DWORD;
+begin
+Result := False;
+if not NtfsFileHasReparsePoint(Source) then exit;
+handle := CreateFile(PChar(Source), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS or FILE_FLAG_OPEN_REPARSE_POINT, 0);
+if handle = INVALID_HANDLE_VALUE then exit;
+try
+  BytesReturned := 0;
+  if not DeviceIoControl(Handle, FSCTL_GET_REPARSE_POINT, nil, 0, @ReparseData, MAXIMUM_REPARSE_DATA_BUFFER_SIZE, BytesReturned, nil) then exit;
+  if BytesReturned < DWORD(ReparseData.Reparse.SubstituteNameLength + SizeOf(WideChar)) then exit;
+  SetLength(Destination, (ReparseData.Reparse.SubstituteNameLength div SizeOf(WideChar)));
+  Move(ReparseData.Reparse.PathBuffer[0], Destination[1], ReparseData.Reparse.SubstituteNameLength);
+  Result := True;
+finally CloseHandle(Handle) end
+end; // NtfsGetJunctionPointDestination
+
+function getDrive(fn:string):string;
+var
+  i: integer;
+  ws: widestring;
+begin
+result:=fn;
+  repeat
+  fn:=hasJunction(result);
+  if fn = '' then break;
+  if not NtfsGetJunctionPointDestination(fn, ws) then
+    break; // at worst we hope the drive is the same
+  result:=WideCharToString(@ws[1]);
+  // sometimes we get a unicode result
+  i:=length(result);
+  if (i > 3) and (result[2] = #0) then
+    begin
+    break;
+    result:=wideCharToString(@result[1]);
+    setLength(result, i-1);
+    end;
+  // remove some trailing null chars
+  result:=trim(result);
+  // we don't like this form, remove useless chars
+  if reMatch(result, '^\\\?\?\\.:', '!') > 0 then
+    delete(result, 1,4);
+  until false;
+result:=extractFileDrive(result);
+end; // getDrive
+
+function moveToBin(fn:string; force:boolean=FALSE):boolean; overload;
+begin result:=moveToBin(toSA(fn), force) end;
+
+function moveToBin(files:TstringDynArray; force:boolean=FALSE):boolean; overload;
+var
+  fo: TSHFileOpStruct;
+  i: integer;
+  fn, test, list: string;
+begin
+result:=FALSE;
+// the list is null-separated. A double-null will mark the end of the list, but delphi adds an extra hidden null in every string.
+list:='';
+try
+  for i:=0 to length(files)-1 do
+    begin
+    fn:=expandFileName(files[i]); // if we don't specify a full path, the bin won't be used, and the file will be just deleted
+    test:=fn;
+    if (reMatch(fn, '[*?]', '!')>0) then
+      test:=ExtractFilePath(test);
+    // this system call doesn't work on linked files. Moreover, it hangs the process for a while, so we try to detect them, to abort.
+    if not fileOrDirExists(test) or (hasJunction(test) > '') then continue;
+    
+    list:=list+fn+#0;
+    end;
+
+  if list = '' then exit;
+
+  try
+    fillChar(fo, sizeOf(fo), 0);
+    fo.wFunc:=FO_DELETE;
+    fo.pFrom:=pchar(list);
+    fo.fFlags:=FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_NOERRORUI or FOF_SILENT;
+    result:=SHFileOperation(fo) = 0;
+  except result:=FALSE end;
+finally
+  if not result and force then
+    begin
+    // enter the rude
+    result:=TRUE;
+    for i:=0 to length(files)-1 do
+      result:=result and deltree(files[i]);
+    end;
+  end;
+end; // moveToBin
+
+function moveFile(src, dst:string; op:UINT=FO_MOVE):boolean;
+var
+  fo: TSHFileOpStruct;
+begin
+try
+  fillChar(fo, sizeOf(fo), 0);
+  fo.wFunc:=op;
+  fo.pFrom:=pchar(src+#0);
+  fo.pTo:=pchar(dst+#0);
+  fo.fFlags:=FOF_ALLOWUNDO + FOF_NOCONFIRMATION + FOF_NOERRORUI + FOF_SILENT + FOF_NOCONFIRMMKDIR;
+  result:=SHFileOperation(fo) = 0;
+except result:=FALSE end;
+end; // movefile
+
+function copyFile(src, dst:string):boolean;
+begin result:=movefile(src, dst, FO_COPY) end;
+
+var
+  reTempCache, reFixedCache: THashedStringList;
+
+function reCache(exp:string; mods:string='m'):TregExpr;
+const
+  CACHE_MAX = 100;
+var
+  i: integer;
+  cache: THashedStringList;
+  temporary: boolean;
+  key: string;
+
+begin
+
+// this is a temporary cache: older things get deleted. order: first is older, last is newer.
+if reTempCache = NIL then
+  reTempCache:=THashedStringList.create();
+// this is a permanent cache: things are never deleted (while the process is alive)
+if reFixedCache = NIL then
+  reFixedCache:=THashedStringList.create();
+
+// is it temporary or not?
+i:=pos('!', mods);
+temporary:= i=0;
+Tobject(cache):=if_(temporary, reTempCache, reFixedCache);
+delete(mods, i, 1);
+
+// access the cache
+key:=mods+#255+exp;
+i:=cache.indexOf(key);
+if i >= 0 then
+  begin
+  result:=cache.objects[i] as TregExpr;
+  if temporary then
+    cache.move(i, cache.count-1); // just requested, refresh position
+  end
+else
+  begin
+  // cache fault, create new object
+  result:=TRegExpr.Create;
+  cache.addObject(key, result);
+
+  if temporary and (cache.count > CACHE_MAX) then
+    // delete older ones
+    for i:=1 to CACHE_MAX div 10 do
+      try
+        cache.objects[0].free;
+        cache.delete(0);
+      except end;
+
+  result.modifierS:=FALSE;
+  result.modifierStr:=mods;
+  result.expression:=exp;
+  result.compile();
+  end;
+
+end;//reCache
+
+function reMatch(s, exp:string; mods:string='m'; ofs:integer=1; subexp:PstringDynArray=NIL):integer;
+var
+  i: integer;
+  re: TRegExpr;
+begin
+result:=0;
+re:=reCache(exp,mods);
+if assigned(subexp) then
+  subexp^:=NIL;
+// do the job
+try
+  re.inputString:=s;
+  if not re.execPos(ofs) then exit;
+  result:=re.matchPos[0];
+  if subexp = NIL then exit;
+  i:=re.subExprMatchCount;
+  setLength(subexp^, i+1); // it does include also the whole match, with index zero
+  for i:=0 to i do
+    subexp^[i]:=re.match[i]
+except end;
+end; // reMatch
+
+function reGet(s, exp:string; subexpIdx:integer=1; mods:string='!mi'; ofs:integer=1):string;
+var
+  se: TstringDynArray;
+begin
+if reMatch(s, exp, mods, ofs, @se) > 0 then
+  result:=se[subexpIdx]
+else
+  result:='';
+end; // reGet
+
+function reReplace(subj, exp, repl:string; mods:string='m'):string;
+var
+  re: TRegExpr;
+begin
+re:=reCache(exp,mods);
+result:=re.replace(subj, repl, TRUE);
+end; // reReplace
+
+// converts from integer to string[4]
+function str_(i:integer):ansistring; overload;
+begin
+setlength(result, 4);
+move(i, result[1], 4);
+end; // str_
+
+// converts from boolean to string[1]
+function str_(b:boolean):ansistring; overload;
+begin result:=ansichar(b) end;
+
+// converts from TfileAttributes to string[4]
+function str_(fa:TfileAttributes):ansistring; overload;
+begin result:=str_(integer(fa)) end;
+
+// converts from Tdatetime to string[8]
+function str_(t:Tdatetime):ansistring; overload;
+begin
+setlength(result, 8);
+move(t, result[1], 8);
+end; // str_
+
+// converts from string[4] to integer
+function int_(s:ansistring):integer;
+begin result:=Pinteger(@s[1])^ end;
+
+// converts from string[8] to datetime
+function dt_(s:ansistring):Tdatetime;
+begin result:=Pdatetime(@s[1])^ end;
+
+function strToUInt(s:string):integer;
+begin
+s:=trim(s);
+if s='' then result:=0
+else result:=strToInt(s);
+if result < 0 then
+  raise Exception.Create('strToUInt: Signed value not accepted');
+end; // strToUInt
+
+function split(separator, s:string; nonQuoted:boolean=FALSE):TStringDynArray;
+var
+  i, j, n, l: integer;
+begin
+l:=length(s);
+result:=NIL;
+if l = 0 then exit;
+i:=1;
+n:=0;
+  repeat
+  if length(result) = n then
+    setLength(result, n+50);
+  if nonQuoted then
+    j:=nonQuotedPos(separator, s, i)
+  else
+    j:=posEx(separator, s, i);
+  if j = 0 then
+    j:=l+1;
+  if i < j then
+    result[n]:=substr(s, i, j-1);
+  i:=j+length(separator);
+  inc(n);
+  until j > l;
+setLength(result, n);
+end; // split
+
+function join(separator:string; ss:TstringDynArray):string;
+var
+  i:integer;
+begin
+result:='';
+if length(ss) = 0 then exit;
+result:=ss[0];
+for i:=1 to length(ss)-1 do
+  result:=result+separator+ss[i];
+end; // join
+
+procedure toggleString(s:string; var ss:TStringDynArray);
+var
+  i: integer;
+begin
+i:=idxOf(s, ss);
+if i < 0 then addString(s, ss)
+else removeString(ss, i);
+end; // toggleString
+
+procedure uniqueStrings(var a:TstringDynArray);
+var
+  i, j: integer;
+begin
+for i:=length(a)-1 downto 1 do
+  for j:=i-1 downto 0 do
+    if ansiCompareText(a[i], a[j]) = 0 then
+      begin
+      removeString(a, i);
+      break;
+      end;
+end; // uniqueStrings
+
+// remove all instances of the specified string
+procedure removeStrings(find:string; var a:TStringDynArray);
+var
+  i, l: integer;
+begin
+  repeat
+  i:=idxOf(find,a);
+  if i < 0 then break;
+  l:=1;
+  while (i+l < length(a)) and (ansiCompareText(a[i+l], find) = 0) do inc(l);
+  removeString(a, i, l);
+  until false;
+end; // removeStrings
+
+// remove first instance of the specified string
+function removeString(find:string; var a:TStringDynArray):boolean;
+begin result:=removeString(a, idxOf(find,a)) end;
+
+function removeArray(var src:TstringDynArray; toRemove:array of string):integer;
+var
+  i, l, ofs: integer;
+  b: boolean;
+begin
+l:=length(src);
+i:=0;
+ofs:=0;
+while i+ofs < l do
+  begin
+  b:=stringExists(src[i+ofs], toRemove);
+  if b then inc(ofs);
+  if i+ofs > l then break;
+  if ofs > 0 then src[i]:=src[i+ofs];
+  if not b then inc(i);
+  end;
+setLength(src, l-ofs);
+result:=ofs;
+end; // removeArray
+
+function popString(var ss:TstringDynArray):string;
+begin
+result:='';
+if ss = NIL then exit;
+result:=ss[0];
+removeString(ss, 0);
+end; // popString
+
+function addString(s:string; var ss:TStringDynArray):integer;
+begin
+result:=length(ss);
+addArray(ss, [s], result)
+end; // addString
+
+function replaceString(var ss:TStringDynArray; old, new:string):integer;
+var
+  i: integer;
+begin
+result:=0;
+  repeat
+  i:=idxOf(old, ss);
+  if i < 0 then exit;
+  inc(result);
+  ss[i]:=new;
+  until false;
+end; // replaceString
+
+function onlyString(s:string; ss:TStringDynArray):boolean;
+// we are case insensitive, just like other functions in this set
+begin result:=(length(ss) = 1) and sameText(ss[0], s) end;
+
+function addUniqueString(s:string; var ss:TStringDynArray):boolean;
+begin
+result:=idxof(s, ss) < 0;
+if result then addString(s, ss)
+end; // addUniqueString
+
+procedure insertstring(s:string; idx:integer; var ss:TStringDynArray);
+begin addArray(ss, [s], idx) end;
+
+function removestring(var a:TStringDynArray; idx:integer; l:integer=1):boolean;
+begin
+result:=FALSE;
+if (idx<0) or (idx >= length(a)) then exit;
+result:=TRUE;
+while idx+l < length(a) do
+  begin
+  a[idx]:=a[idx+l];
+  inc(idx);
+  end;
+setLength(a, idx);
+end; // removestring
+
+function dotted(i:int64):string;
+begin
+result:=intToStr(i);
+i:=length(result)-2;
+while i > 1 do
+  begin
+  insert(FormatSettings.ThousandSeparator, result, i);
+  dec(i,3);
+  end;
+end; // dotted
+
+function getRes(name:pchar; typ:string='TEXT'):string;
+var
+  h1, h2: Thandle;
+  p: pchar;
+  l: integer;
+  ansi: ansiString;
+begin
+result:='';
+h1:=FindResource(HInstance, name, pchar(typ));
+h2:=LoadResource(HInstance, h1);
+if h2=0 then exit;
+l:=SizeOfResource(HInstance, h1);
+p:=LockResource(h2);
+setLength(ansi, l);
+move(p^, ansi[1], l);
+UnlockResource(h2);
+FreeResource(h2);
+result:=ansi;
+end; // getRes
+
+function compare_(i1,i2:int64):integer; overload;
+begin
+if i1 < i2 then result:=-1 else
+if i1 > i2 then result:=1 else
+  result:=0
+end; // compare_
+
+function compare_(i1,i2:integer):integer; overload;
+begin
+if i1 < i2 then result:=-1 else
+if i1 > i2 then result:=1 else
+  result:=0
+end; // compare_
+
+function compare_(i1,i2:double):integer; overload;
+begin
+if i1 < i2 then result:=-1 else
+if i1 > i2 then result:=1 else
+  result:=0
+end; // compare_
+
+function rectToStr(r:Trect):string;
+begin result:=format('%d,%d,%d,%d',[r.left,r.top,r.right,r.bottom]) end;
+
+function strToRect(s:string):Trect;
+begin
+result.Left:=strToInt(chop(',',s));
+result.Top:=strToInt(chop(',',s));
+result.right:=strToInt(chop(',',s));
+result.bottom:=strToInt(chop(',',s));
+end; // strToRect
+
+function TLV(t:integer; data:ansistring):ansistring;
+begin result:=str_(t)+str_(length(data))+data end;
+
+function TLV_NOT_EMPTY(t:integer; data:ansistring):ansistring;
+begin if data > '' then result:=TLV(t,data) else result:='' end;
+
+// for heavy jobs you are supposed to use class Ttlv
+function popTLV(var s,data:ansistring):integer;
+begin
+result:=-1;
+if length(s) < 8 then exit;
+result:=Pinteger(@s[1])^;
+data:=copy(s,9,Pinteger(@s[5])^);
+delete(s,1,8+length(data));
+end; // popTLV
+
+function getCRC(data:ansistring):integer;
+var
+  i:integer;
+  p:Pinteger;
+begin
+result:=0;
+p:=@data[1];
+for i:=1 to length(data) div 4 do
+  begin
+  inc(result, p^);
+  inc(p);
+  end;
+end; // crc
+
+function bmpToHico(bitmap:Tbitmap):hicon;
+var
+  iconX, iconY : integer;
+  IconInfo: TIconInfo;
+  IconBitmap, MaskBitmap: TBitmap;
+  dx,dy,x,y: Integer;
+  tc: TColor;
+begin
+if bitmap=NIL then
+  begin
+  result:=0;
+  exit;
+  end;
+iconX := GetSystemMetrics(SM_CXICON);
+iconY := GetSystemMetrics(SM_CYICON);
+IconBitmap:= TBitmap.Create;
+IconBitmap.Width:= iconX;
+IconBitmap.Height:= iconY;
+IconBitmap.TransparentColor:=Bitmap.TransparentColor;
+tc:=Bitmap.TransparentColor and $FFFFFF;
+Bitmap.transparent:=FALSE;
+dx:=bitmap.width*2;
+dy:=bitmap.height*2;
+if (dx < iconX) and (dy < iconY) then
+  begin
+  IconBitmap.Canvas.brush.color:=tc;
+  with IconBitmap.Canvas do fillrect(clipRect);
+  x:=(iconX-dx) div 2;
+  y:=(iconY-dy) div 2;
+  IconBitmap.Canvas.StretchDraw(Rect(x,y,x+dx,y+dy), Bitmap);
+  end
+else
+  IconBitmap.Canvas.StretchDraw(Rect(0, 0, iconX, iconY), Bitmap);
+MaskBitmap:= TBitmap.Create;
+MaskBitmap.Assign(IconBitmap);
+with MaskBitmap.canvas do fillrect(cliprect);
+IconInfo.fIcon:= True;
+IconInfo.hbmMask:= MaskBitmap.MaskHandle;
+IconInfo.hbmColor:= IconBitmap.Handle;
+Result:= CreateIconIndirect(IconInfo);
+MaskBitmap.Free;
+IconBitmap.Free;
+end; // bmpToHico
+
+function msgDlg(msg:string; code:integer=0; title:string=''):integer;
+var
+  parent: Thandle;
+begin
+result:=0;
+if msg='' then exit;
+if code = 0 then code:=MB_OK+MB_ICONINFORMATION;
+if screen.ActiveCustomForm = NIL then parent:=0
+else parent:=screen.ActiveCustomForm.handle;
+application.restore();
+application.BringToFront();
+title:=application.Title+nonEmptyConcat(' -- ', title);
+result:=messageBox(parent, pchar(msg), pchar(title), code)
+end; // msgDlg
+
+function idxOf(s:string; a:array of string; isSorted:boolean=FALSE):integer;
+var
+  r, b, e: integer;
+begin
+if not isSorted then
+  begin
+  result:=ansiIndexText(s,a);
+  exit;
+  end;
+// a classic one... :-P
+b:=0;
+e:=length(a)-1;
+while b <= e do
+  begin
+  result:=(b+e) div 2;
+  r:=ansiCompareText(s, a[result]);
+  if r = 0 then exit;
+  if r < 0 then e:=result-1
+  else b:=result+1;
+  end;
+result:=-1;
+end;
+
+function stringExists(s:string; a:array of string; isSorted:boolean=FALSE):boolean;
+begin result:= idxOf(s,a, isSorted) >= 0 end;
+
+function validUsername(s:string; acceptEmpty:boolean=FALSE):boolean;
+begin
+result:=(s = '') and acceptEmpty
+  or (s > '') and not anycharIn('/\:?*"<>|;&',s) and (length(s) <= 40)
+  and not anyMacroMarkerIn(s) // mod by mars
+end;
+
+function validFilename(s:string):boolean;
+begin
+result:=(s>'')
+  and not dirCrossing(s)
+  and not anycharIn(ILLEGAL_FILE_CHARS,s)
+end;
+
+function validFilepath(fn:string; acceptUnits:boolean=TRUE):boolean;
+var
+  withUnit: boolean;
+begin
+withUnit:=(length(fn) > 2) and charInSet(fn[1], ['a'..'z','A'..'Z']) and (fn[2] = ':');
+
+result:=(fn > '')
+  and (posEx(':', fn, if_(withUnit,3,1)) = 0)
+  and (poss([#0..#31,'?','*','"','<','>','|'], fn) = 0)
+  and (length(fn) <= 255+if_(withUnit, 2));
+end;
+
+function loadTextFile(fn:string):string;
+begin
+try result:=IOUtils.TFile.ReadAllText(fn)
+except result:='' end
+end;
+
+function loadFile(fn:string; from:int64=0; size:int64=-1):ansistring;
+var
+  f:file;
+  bak: byte;
+begin
+result:='';
+IOresult;
+if not validFilepath(fn) then exit;
+if not isAbsolutePath(fn) then chDir(exePath);
+assignFile(f, fn);
+bak:=fileMode;
+fileMode:=0;
+try
+  reset(f,1);
+  if IOresult <> 0 then exit;
+  if (size < 0) or (size > filesize(f)-from) then
+    size:=filesize(f)-from;
+  setLength(result, size);
+  seek(f, from);
+  blockRead(f, result[1], size);
+finally
+  closeFile(f);
+  filemode:=bak;
+  end;
+end; // loadFile
+
+function saveFile(var f:file; data:ansistring):boolean; overload;
+begin
+blockWrite(f, data[1], length(data));
+result:=IOresult=0;
+end;
+
+function forceDirectory(path:string):boolean;
+var
+  s: string;
+begin
+result:=TRUE;
+path:=excludeTrailingPathDelimiter(path);
+if path = '' then exit;
+if directoryExists(path) then exit;
+s:=extractFilePath(path);
+if s = path then exit; // we are at the top, going nowhere
+forceDirectory(s);
+result:=createDir(path);
+end; // forceDirectory
+
+function saveFile(fn:string; data:ansistring; append:boolean=FALSE):boolean;
+var
+  f: file;
+  path, temp: string;
+begin
+result:=FALSE;
+try
+  if not validFilepath(fn) then exit;
+  if not isAbsolutePath(fn) then chDir(exePath);
+  path:=extractFilePath(fn);
+  if (path > '') and not forceDirectory(path) then exit;
+  IOresult();
+  if append then
+    begin
+    assignFile(f, fn);
+    reset(f,1);
+    if IOresult() <> 0 then rewrite(f,1)
+    else seek(f,fileSize(f));
+    end
+  else
+    begin
+    // in this case, we save to a temp file, and overwrite the previous one (if it exists) only after the saving is complete
+    temp:=format('%s~%d.tmp', [fn, random(MAXINT)]);
+    if not validFilepath(temp) then // fn may be too long to append something
+      temp:=format('hfs~%d.tmp', [fn, random(999)]);
+    assignFile(f, temp);
+    rewrite(f,1)
+    end;
+
+  if IOresult() <> 0 then exit;
+  if not saveFile(f, data) then exit;
+  closeFile(f);
+  if not append then
+    begin
+    deleteFile(fn); // this may fail if the file didn't exist already
+    renameFile(temp, fn);
+    end;
+  result:=TRUE;
+except end;
+end; // saveFile
+
+function saveTextFile(fn:string; text:string):boolean;
+begin result:=saveFile(fn, UTF8encode(text)) end;
+
+function appendFile(fn:string; data:ansistring):boolean;
+begin result:=saveFile(fn, data, TRUE) end;
+
+function getTempFilename():string;
+begin result:=TPath.GetRandomFileName() end;
+
+function saveTempFile(data:ansistring):string;
+begin
+result:=getTempFilename();
+if result > '' then saveFile(result, data);
+end; // saveTempFile
+
+function loadregistry(key,value:string; root:HKEY=0):string;
+begin
+result:='';
+with Tregistry.create do
+  try
+    try
+      if root > 0 then rootKey:=root;
+      if openKey(key, FALSE) then
+        begin
+        result:=readString(value);
+        closeKey();
+        end;
+    finally free end
+  except end
+  end; // loadregistry
+
+function saveregistry(key,value,data:string; root:HKEY=0):boolean;
+begin
+result:=FALSE;
+with Tregistry.create do
+  try
+    if root > 0 then rootKey:=root;
+    try
+      createKey(key);
+      if openKey(key, FALSE) then
+        begin
+        WriteString(value,data);
+        closeKey;
+        result:=TRUE;
+        end;
+    finally free end
+  except end;
+end; // saveregistry
+
+function deleteRegistry(key,value:string; root:HKEY=0):boolean; overload;
+var
+  reg:Tregistry;
+begin
+reg:=Tregistry.create;
+if root > 0 then reg.RootKey:=root;
+result:=reg.OpenKey(key,FALSE) and reg.DeleteValue(value);
+reg.free
+end; // deleteRegistry
+
+function deleteRegistry(key:string; root:HKEY=0):boolean; overload;
+var
+  reg:Tregistry;
+  ss:TstringList;
+  i:integer;
+  deleteIt:boolean;
+begin
+reg:=Tregistry.create;
+if root > 0 then reg.RootKey:=root;
+result:=reg.DeleteKey(key);
+// delete also parent keys, if empty
+ss:=Tstringlist.create;
+while key>'' do
+  begin
+  i:=LastDelimiter('\',key);
+  if i=0 then break;
+  setlength(key, i-1);
+  if not reg.OpenKeyReadOnly(key) then break;
+  reg.GetValueNames(ss);
+  deleteIt:=(ss.count=0) and not reg.HasSubKeys;
+  reg.CloseKey;
+  if deleteit then reg.deleteKey(key)
+  else break;
+  end;
+ss.free;
+reg.free
+end; // deleteRegistry
+
+function resolveLnk(fn:string):string;
+Var
+  sl: IShellLink;
+  buffer: array [0..MAX_PATH] of char;
+  fd: Twin32finddata;
+begin
+result:=fn;
+  try
+    olecheck(coCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IShellLink, sl));
+    olecheck((sl as IPersistFile).load(pwidechar(widestring(fn)), STGM_READ));
+    olecheck(sl.resolve(0, SLR_ANY_MATCH or SLR_NO_UI));
+    olecheck(sl.getPath(Buffer, MAX_PATH, fd, 0));
+    result:=buffer;
+  except // convertion failed, but keep original filename
+  end;
+end; // resolveLnk
+
+function anycharIn(chars:Tcharset; s:string):boolean;
+begin result:=poss(chars, s) > 0 end;
+
+function anycharIn(chars, s:string):boolean;
+begin result:=anyCharIn(strToCharset(chars), s) end;
+
+function exec(cmd:string; pars:string=''; showCmd:integer=SW_SHOW):boolean;
+const
+  MAX_PARS = 9;
+var
+  pars0: string;
+  i, o: integer;
+  poss: array [1..MAX_PARS] of TintegerDynArray; // positions where we found the Nth parameter, in the %N form, for later substitution
+  a: TintegerDynArray;
+  parsA: TStringDynArray; // splitted version of pars
+begin
+result:=FALSE;
+cmd:=trim(cmd);
+if (cmd = '') or (dequote(cmd) = '') then exit;
+
+i:=nonQuotedPos(' ', cmd);
+if (cmd > '') and (cmd[1] <> '"') and (extractFileExt(cmd) > '') and (extractFileExt(substr(cmd, 0, i)) = '') then
+  pars0:=''
+else
+  begin
+  // the cmd sometimes contains parameters, because loaded from registry
+  pars0:=cmd;
+  // split such parameters from the real cmd
+  cmd:=chop(i, pars0);
+  // if pars0 contains %1, it must be replaced with the first parameter contained 'pars'.
+  // Sadly we can't just replace, because 'pars' may contain %DIGIT strings (that must not be replaced). So we collect positions first, then make substitutions.
+  for i:=1 to MAX_PARS do
+    begin
+    a:=NIL;
+    o:=0;
+      repeat
+      o:=posEx('%'+intToStr(i), pars0, o+1);
+      if o = 0 then break;
+      setLength(a, length(a)+1);
+      a[length(a)-1]:=o;
+      until false;
+    poss[i]:=a;
+    end;
+
+  parsA:=split(' ', pars, TRUE);
+  // now do all the collected replacements
+  for i:=1 to MAX_PARS do
+    begin
+    for o:=0 to length(poss[i])-1 do
+      replace(pars0, parsA[i-1], poss[i][o], 1+poss[i][o]);
+    if length(poss[i]) > 0 then
+      removeString(parsA, i-1);
+    end;
+  // ok, now we have the final version of parameters
+  pars:=pars0+nonEmptyConcat(' ', join(' ',parsA));
+  end;
+// go
+result:=(cmd > '') and (32 < shellexecute(0, 'open', pchar(cmd), pchar(pars), NIL, showCmd))
+end;
+
+// exec but does not wait for the process to end
+function execNew(cmd:string):boolean;
+var
+  si: TStartupInfo;
+  pi: TProcessInformation;
+begin
+fillchar(si, sizeOf(si), 0);
+fillchar(pi, sizeOf(pi), 0);
+si.cb:=sizeOf(si);
+result:=createProcess(NIL,pchar(cmd),NIL,NIL,FALSE,0,NIL,NIL,si,pi)
+end; // execNew
+
+function addArray(var dst:TstringDynArray; src:array of string; where:integer=-1; srcOfs:integer=0; srcLn:integer=-1):integer;
+var
+  i, l:integer;
+begin
+l:=length(dst);
+if where < 0 then // this means: at the end of it
+  where:=l;
+if srcLn < 0 then
+  srcLn:=length(src);
+setLength(dst, l+srcLn); // enlarge your array!
+
+i:=max(l, where+srcLn);
+while i > l do // we are over newly allocated memory, just copy
+  begin
+  dec(i);
+  dst[i]:=src[i-where+srcOfs];
+  end;
+while i > where+srcLn do  // we're over the existing data, just shift
+  begin
+  dec(i);
+  dst[i+srcLn]:=dst[i];
+  end;
+while i > where do // we'are in middle-earth, both shift and copy
+  begin
+  dec(i);
+  dst[i+srcLn]:=dst[i];
+  dst[i]:=src[i-where+srcOfs];
+  end;
+result:=l+srcLn;
+end; // addArray
+
+function addUniqueArray(var a:TstringDynArray; b:array of string):integer;
+var
+  i, l, j, n, lb:integer;
+  found: boolean;
+  bi: string;
+begin
+l:=length(a);
+n:=l; // real/final length of 'a'
+lb:=length(b); // cache this value
+setlength(a, l+lb);
+for i:=0 to lb-1 do
+  begin
+  bi:=b[i]; // cache this value
+  found:=FALSE;
+  for j:=0 to n-1 do
+    if sameText(a[j], bi) then
+      begin
+      found:=TRUE;
+      break;
+      end;
+  if found then continue;
+  a[n]:=bi;
+  inc(n);
+  end;
+setLength(a, n);
+result:=n-l;
+end; // addUniqueArray
+
+function if_(v:boolean; v1:boolean; v2:boolean=FALSE):boolean;
+begin if v then result:=v1 else result:=v2 end;
+
+function if_(v:boolean; v1, v2:string):string;
+begin if v then result:=v1 else result:=v2 end;
+
+function if_(v:boolean; v1,v2:int64):int64;
+begin if v then result:=v1 else result:=v2 end;
+
+function if_(v:boolean; v1, v2:integer):integer;
+begin if v then result:=v1 else result:=v2 end;
+
+function if_(v:boolean; v1, v2:Tobject):Tobject;
+begin if v then result:=v1 else result:=v2 end;
+
+function match(mask, txt:pchar; fullMatch:boolean; charsNotWildcard:Tcharset):integer;
+// charsNotWildcard is for chars that are not allowed to be matched by wildcards, like CR/LF
+var
+  i: integer;
+begin
+result:=0;
+// 1 to 1 match
+while not charInSet(mask^, [#0,'*'])
+and (txt^ <> #0)
+and (
+  (ansiUpperCase(mask^) = ansiUpperCase(txt^))
+  or (upCase(mask^) = upCase(txt^))
+  or (mask^ = '?') and not charInSet(txt^, charsNotWildcard)
+) do
+  begin
+  inc(mask);
+  inc(txt);
+  inc(result);
+  end;
+if (mask^ = #0) and (not fullMatch or (txt^ = #0)) then
+  exit;
+if mask^ <> '*' then
+  begin
+  result:=0;
+  exit;
+  end;
+while mask^ = '*' do inc(mask);
+if mask^ = #0 then // final *, anything matches
+  begin
+  inc(result, strLen(txt));
+  exit;
+  end;
+
+  repeat
+  if charInSet(txt^, charsNotWildcard) then break;
+
+  if fullMatch and (strpos(mask,'*') = NIL) then
+    begin // we just passed last * so we are trying to match the final part of txt. This block is just an optimization. It happens often because of mime types and masks like *.css 
+    i:=length(txt)-length(mask);
+    if i < 0 then break; // not enough characters left
+    // move forward of the minimum part that's required to be covered by the last *
+    inc(txt, i);
+    inc(result, i);
+    i:=match(mask, txt, fullMatch);
+    if i = 0 then break; // no more chances
+    end
+  else
+    i:=match(mask, txt, fullMatch);
+
+  if i > 0 then
+    begin
+    inc(result, i);
+    exit;
+    end;
+  // we're after a *, next part may match at any point, so try it in every way
+  inc(txt);
+  inc(result);
+  until txt^ = #0;
+result:=0;
+end; // match
+
+function filematch(mask, fn:string):boolean;
+var
+  invert: integer;
+begin
+result:=TRUE;
+invert:=0;
+while (invert < length(mask)) and (mask[invert+1] = '\') do
+  inc(invert);
+delete(mask,1,invert);
+while mask > '' do
+  begin
+  result:=match( pchar(chop(';',mask)), pchar(fn) ) > 0;
+  if result then break;
+  end;
+result:=result xor odd(invert);
+end; // filematch
+
+function checkAddressSyntax(address:string; wildcards:boolean=TRUE):boolean;
+var
+  a1, a2: string;
+  i, dots, lastDot: integer;
+  wildcardsMet: boolean;
+
+  function validNumber():boolean;
+  begin result:=strToIntDef(substr(a1,lastDot+1,i-1), 0) <= 255 end;
+
+begin
+result:=FALSE;
+if address = '' then exit;
+while (address > '') and (address[1] = '\') do delete(address,1,1);
+while address > '' do
+  begin
+  a2:=chop(';', address);
+  if sameText(a2, 'lan') then continue;
+  a1:=chop('-', a2);
+  if a2 > '' then
+    if not checkAddressSyntax(a1, FALSE)
+    or not checkAddressSyntax(a2, FALSE) then
+      exit;
+  wildcardsMet:=FALSE;
+  dots:=0;
+  lastDot:=0;
+  for i:=1 to length(a1) do
+    case a1[i] of
+      '.':
+        begin
+        if not validNumber() then exit;
+        lastDot:=i;
+        inc(dots);
+        end;
+      '0'..'9': ;
+      '?','*' : if wildcards then wildcardsMet:=TRUE else exit;
+      else exit;
+      end;
+  if (dots > 3) or not wildcardsMet and (dots <> 3) then exit;
+  end;
+result:=validNumber();
+end; // checkAddressSyntax
+
+function addressMatch(mask, address:string):boolean;
+var
+  invert: boolean;
+  part1, part2: string;
+  addrInt: dword;
+  ofs, i, bits: integer;
+  masks: TStringDynArray;
+  mode: (SINGLE, BITMASK, RANGE);
+begin
+result:=FALSE;
+invert:=FALSE;
+while (mask > '') and (mask[1] = '\') do
+  begin
+  delete(mask,1,1);
+  invert:=not invert;
+  end;
+addrInt:=ipToInt(address);
+masks:=split(';',mask);
+ofs:=1;
+while not result and (ofs <= length(mask)) do
+  begin
+  mode:=SINGLE;
+  part1:=trim(substr(mask, ofs, max(0,posEx(';', mask, ofs)-1) ));
+  inc(ofs, length(part1)+1);
+
+  if sameText(part1, 'lan') then
+    begin
+    result:=isLocalIP(address);
+    continue;
+    end;
+
+  i:=lastDelimiter('-/', part1);
+  if i > 0 then
+    begin
+    if part1[i] = '-' then mode:=RANGE
+    else mode:=BITMASK;
+    part2:=part1;
+    part1:=chop(i, 1, part2);
+    end;
+
+  case mode of
+    SINGLE: result:=match( pchar(part1), pchar(address) ) > 0;
+    RANGE: result:=(addrInt >= ipToInt(part1)) and (addrInt <= ipToInt(part2));
+    BITMASK:
+      try
+        bits:=32-strToInt(part2);
+        result:=addrInt shr bits = ipToInt(part1) shr bits;
+      except end;
+    end;
+  end;
+result:=result xor invert;
+end; // addressMatch
+
+function freeIfTemp(var f:Tfile):boolean; inline;
+begin
+try
+  result:=assigned(f) and f.isTemp();
+  if result then freeAndNIL(f);
+except result:=FALSE end;
+end; // freeIfTemp
+
+function uri2disk(url:string; parent:Tfile=NIL; resolveLnk:boolean=TRUE):string;
+var
+  fi: Tfile;
+  i: integer;
+  append: string;
+begin
+// don't consider wildcard-part when resolving
+i:=reMatch(url, '[?*]', '!');
+if i = 0 then
+  append:=''
+else
+  begin
+  i:=lastDelimiter('/', url);
+  append:=substr(url,i);
+  if i>0 then append[1]:='\';
+  delete(url,i, MaxInt);
+  end;
+try
+  fi:=mainfrm.findFilebyURL(url, parent);
+  try result:=ifThen(resolveLnk or (fi.lnk=''), fi.resource, fi.lnk) +append;
+  finally freeIfTemp(fi) end;
+except result:='' end;
+end; // uri2disk
+
+function uri2diskMaybe(path:string; parent:Tfile=NIL; resolveLnk:boolean=TRUE):string;
+begin
+if ansiContainsStr(path, '/') then result:=uri2disk(path, parent, resolveLnk)
+else result:=path;
+end; // uri2diskmaybe
+
+function sizeOfFile(fh:Thandle):int64; overload;
+var
+  h, l: dword;
+begin
+l:=getFileSize(fh, @h);
+if (l = $FFFFFFFF) and (getLastError() <> NO_ERROR) then result:=-1
+else result:=l+int64(h) shl 32;
+end; // sizeOfFile
+
+function sizeOfFile(fn:string):int64; overload;
+var
+  h: Thandle;
+begin
+if ansiStartsText('http://', fn) then
+  begin
+  result:=httpFilesize(fn);
+  exit;
+  end;
+if ansiContainsStr(fn, '/') then fn:=uri2disk(fn);
+h:=fileopen(fn, fmOpenRead+fmShareDenyNone);
+result:=sizeOfFile(h);
+fileClose(h);
+end; // sizeOfFile
+
+function isAbsolutePath(path:string):boolean;
+begin result:=(path > '') and (path[1] = '\') or (length(path) > 1) and (path[2] = ':') end;
+
+function min(a,b:integer):integer; inline;
+begin if a>b then result:=b else result:=a end;
+
+function fileOrDirExists(fn:string):boolean;
+begin
+result:=fileExists(fn) or directoryExists(fn);
+{** first i used this way, because faster, but it proved to not always work: http://www.rejetto.com/forum/index.php/topic,10825.0.html
+var
+  sr:TsearchRec;
+begin
+result:= 0=findFirst(ExcludeTrailingPathDelimiter(fn),faAnyFile,sr);
+if result then FindClose(sr);
+}
+end; // fileOrDirExists
+
+function int0(i,digits:integer):string;
+begin
+result:=intToStr(i);
+result:=stringOfChar('0',digits-length(result))+result;
+end; // int0
+
+function elapsedToStr(t:Tdatetime):string;
+var
+  sec: integer;
+begin
+sec:=trunc(t*SECONDS);
+result:=format('%d:%.2d:%.2d', [sec div 3600, sec div 60 mod 60, sec mod 60] );
+end; // elapsedToStr
+
+// ensure f.accounts does not store non-existent users
+function cbPurgeVFSaccounts(f:Tfile; callingAfterChildren:boolean; par, par2:integer):TfileCallbackReturn;
+var
+  usernames, renamings: THashedStringList;
+  i: integer;
+  act: TfileAction;
+  u, n: string;
+begin
+result:=[];
+usernames:=THashedStringList(par);
+renamings:=THashedStringList(par2);
+for act:=low(act) to high(act) do
+  for i:=length(f.accounts[act])-1 downto 0 do
+    begin
+    u:=f.accounts[act][i];
+    n:=renamings.values[u];
+    if n > '' then
+      begin
+      f.accounts[act][i]:=n;
+      VFSmodified:=TRUE;
+      continue;
+      end;
+    if (u = '')
+    or not charInSet(u[1], ['@','*']) and (usernames.indexOf(u) < 0) then
+      begin
+      removeString(f.accounts[act], i);
+      VFSmodified:=TRUE;
+      end;
+    end;
+end; // cbPurgeVFSaccounts
+
+procedure purgeVFSaccounts();
+var
+  usernames, renamings: THashedStringList;
+  i: integer;
+  a: Paccount;
+begin
+usernames:=THashedStringList.create;
+renamings:=THashedStringList.create;
+try
+  for i:=0 to length(accounts)-1 do
+    begin
+    a:=@accounts[i];
+    usernames.add(a.user);
+    if (a.wasUser > '') and (a.user <> a.wasUser) then
+      renamings.Values[a.wasUser]:=a.user;
+    end;
+  rootFile.recursiveApply(cbPurgeVFSaccounts, integer(usernames), integer(renamings));
+finally
+  usernames.free;
+  renamings.free;
+  end;
+end; // purgeVFSaccounts
+
+function inputQueryLong(const caption, msg:string; var value:string; ofs:integer=0):boolean;
+begin
+inputQueryLongdlg.Caption:=caption;
+inputQueryLongdlg.msgLbl.Caption:='  '+replaceStr(msg, #13,#13'  ');
+inputQueryLongdlg.inputBox.Text:=value;
+inputQueryLongdlg.inputBox.SelStart:=ofs;
+// i want focus on the editor, but setFocus works only on visible windows -_-' any better idea?
+inputQueryLongdlg.show();                                                   
+inputQueryLongdlg.inputBox.SetFocus();
+inputQueryLongdlg.hide();
+result:=inputQueryLongdlg.ShowModal() = mrOk;
+if result then value:=inputQueryLongdlg.inputBox.Text;
+end; // inputQueryLong
+
+function httpGet(url:string; from:int64=0; size:int64=-1):string;
+var
+  http: THttpCli;
+  reply: Tstringstream;
+begin
+if size = 0 then
+  begin
+  result:='';
+  exit;
+  end;
+reply:=TStringStream.Create('');
+try
+  http:=Thttpcli.create(NIL);
+  try
+    http.URL:=url;
+    http.followRelocation:=TRUE;
+    http.rcvdStream:=reply;
+    http.agent:=HFS_HTTP_AGENT;
+    if (from <> 0) or (size > 0) then
+      http.contentRangeBegin:=intToStr(from);
+    if size > 0 then
+      http.contentRangeEnd:=intToStr(from+size-1);
+    http.get();
+    result:=reply.dataString;
+  finally http.free end
+finally reply.free end
+end; // httpGet
+
+function httpFileSize(url:string):int64;
+var
+  http: THttpCli;
+begin
+http:=Thttpcli.create(NIL);
+try
+  http.URL:=url;
+  http.Agent:=HFS_HTTP_AGENT;
+  try
+    http.head();
+    result:=http.contentLength
+  except result:=-1 end;
+finally http.free end
+end; // httpFileSize
+
+function httpGetFile(url, filename:string; tryTimes:integer=1; notify:TdocDataEvent=NIL):boolean;
+var
+  http: THttpCli;
+  reply: Tfilestream;
+  supposed: integer;
+begin
+reply:=TfileStream.Create(filename, fmCreate);
+try
+  http:=Thttpcli.create(NIL);
+  try
+    http.URL:=url;
+    http.RcvdStream:=reply;
+    http.Agent:=HFS_HTTP_AGENT;
+    http.OnDocData:=notify;
+    result:=TRUE;
+    try http.get()
+    except result:=FALSE end;
+    supposed:=http.ContentLength;
+  finally http.free end
+finally reply.free end;
+result:= result and (sizeOfFile(filename)=supposed);
+if not result then deleteFile(filename);
+
+if not result and (tryTimes > 1) then
+  result:=httpGetFile(url, filename, tryTimes-1, notify);
+end; // httpGetFile
+
+function getExternalAddress(var res:string; provider:Pstring=NIL):boolean;
+
+  procedure loadIPservices(src:string='');
+  var
+    l:string;
+  begin
+  if src = '' then
+    begin
+    if now()-IPservicesTime < 1 then exit; // once a day
+    IPservicesTime:=now();
+    try src:=trim(httpGet(IP_SERVICES_URL));
+    except exit end;
+    end;
+  IPservices:=NIL;
+  while src > '' do
+    begin
+    l:=chopLine(src);
+    if ansiStartsText('http://', l) then addString(l, IPservices);
+    end;
+  end; // loadIPservices
+
+const {$J+}
+  lastProvider: string = ''; // this acts as a static variable
+var
+  s, mark, addr: string;
+  i: integer;
+begin
+result:=FALSE;
+if customIPservice > '' then s:=customIPservice
+else
+  begin
+  loadIPservices();
+  if IPservices = NIL then
+    loadIPservices(getRes('IPservices'));
+  if IPservices = NIL then
+    exit;
+
+    repeat
+      s:=IPservices[random(length(IPservices))];
+    until (s <> lastProvider) or (length(IPservices) < 2);
+  lastProvider:=s;
+  end;
+addr:=chop('|',s);
+if assigned(provider) then provider^:=addr;
+mark:=s;
+try s:=httpGet(addr);
+except exit end;
+if mark > '' then chop(mark, s);
+s:=trim(s);
+if s = '' then exit;
+// try to determine length
+i:=1;
+while (i < length(s)) and (i < 15) and charInSet(s[i+1], ['0'..'9','.']) do inc(i);
+while (i > 0) and (s[i] = '.') do dec(i);
+setLength(s,i);
+result:= checkAddressSyntax(s) and not HSlib.isLocalIP(s);
+if not result then exit;
+if (res <> s) and mainFrm.logOtherEventsChk.checked then
+  mainFrm.add2log('New external address: '+s+' via '+hostFromURL(addr));
+res:=s;
+end; // getExternalAddress
+
+function whatStatusPanel(statusbar:Tstatusbar; x:integer):integer;
+var
+  x1: integer;
+begin
+result:=0;
+x1:=statusbar.panels[0].width;
+while (x > x1) and (result < statusbar.Panels.Count-1) do
+  begin
+  inc(result);
+  inc(x1, statusbar.panels[result].width);
+  end;
+end; // whatStatusPanel
+
+function getIPs():TStringDynArray;
+begin
+try result:=listToArray(localIPlist) except result:=NIL end;
+end;
+
+function getPossibleAddresses():TstringDynArray;
+begin // next best
+result:=toSA([defaultIP, dyndns.host]);
+addArray(result, customIPs);
+addString(externalIP, result);
+addArray(result, getIPs());
+removeStrings('', result);
+uniqueStrings(result);
+end; // getPossibleAddresses
+
+function getFilename(var f:file):string;
+begin result:=pchar(@f)+72 end;
+
+function filenameToDriveByte(fn:string):byte;
+begin
+if (length(fn) < 2) or (fn[2] <> ':') then fn:=exePath; // relative paths are actually based on the same drive of the executable
+fn:=getDrive(fn);
+if fn = '' then
+  result:=0
+else
+  result:=ord(upcase(fn[1]))-ord('A')+1;
+end; // filenameToDriveByte
+
+function smartsize(size:int64):string;
+begin
+if size < 0 then result:='N/A'
+else
+  if size < 1 shl 10 then result:=intToStr(size)
+  else
+    if size < 1 shl 20 then result:=format('%.1f K',[size/(1 shl 10)])
+    else
+      if size < 1 shl 30 then result:=format('%.1f M',[size/(1 shl 20)])
+      else result:=format('%.1f G',[size/(1 shl 30)])
+end; // smartsize
+
+function cbSelectFolder(wnd:HWND; uMsg:UINT; lp,lpData:LPARAM):LRESULT; stdcall;
+begin
+result:=0;
+if (uMsg <> BFFM_INITIALIZED) or (lpdata = 0) then exit;
+SendMessage(wnd, BFFM_SETSELECTION, 1, LPARAM(pchar(lpdata)));
+SendMessage(wnd, BFFM_ENABLEOK, 0, 1);
+end; // cbSelectFolder
+
+function selectWrapper(caption:string; var from:string; flags:dword=0):boolean;
+const
+  BIF_NEWDIALOGSTYLE = $40;
+  BIF_UAHINT = $100;
+  BIF_SHAREABLE = $8000;
+var
+  bi: TBrowseInfo;
+  res: PItemIDList;
+  buff: array [0..MAX_PATH] of char;
+  im: iMalloc;
+begin
+result:=FALSE;
+if SHGetMalloc(im) <> 0 then exit;
+bi.hwndOwner:=GetActiveWindow();
+bi.pidlRoot:=NIL;
+bi.pszDisplayName:=@buff;
+bi.lpszTitle:=pchar(caption);
+bi.ulFlags:=BIF_RETURNONLYFSDIRS+BIF_NEWDIALOGSTYLE+BIF_SHAREABLE+BIF_UAHINT+BIF_EDITBOX+flags;
+bi.lpfn:=@cbSelectFolder;
+bi.lParam:=integer(@from[1]);
+bi.iImage:=0;
+res:=SHBrowseForFolder(bi);
+if res = NIL then exit;
+if not SHGetPathFromIDList(res, buff) then exit;
+im.Free(res);
+from:=buff;
+result:=TRUE;
+end; // selectWrapper
+
+function selectFolder(caption:string; var folder:string):boolean;
+begin result:=selectWrapper(caption, folder) end;
+
+// works only on XP
+function selectFileOrFolder(caption:string; var fileOrFolder:string):boolean;
+begin result:=selectWrapper(caption, fileOrFolder, BIF_BROWSEINCLUDEFILES) end;
+
+function selectFile(var fn:string; title, filter:string; options:TOpenOptions):boolean;
+var
+  dlg: TopenDialog;
+begin
+result:=FALSE;
+dlg:=TopenDialog.create(screen.activeForm);
+if title > '' then dlg.Title:=title;
+dlg.Filter:=filter;
+if fn > '' then
+  begin
+  dlg.FileName:=fn;
+  if not isAbsolutePath(fn) then dlg.InitialDir:=exePath;
+  end;
+try
+  dlg.Options:=[ofEnableSizing]+options;
+  if not dlg.Execute() then exit;
+  fn:=dlg.FileName;
+  result:=TRUE;
+finally dlg.free end;
+end; // selectFile
+
+function safeMod(a,b:int64; default:int64=0):int64;
+begin if b=0 then result:=default else result:=a mod b end;
+
+function safeDiv(a,b:int64; default:int64=0):int64; inline;
+begin if b=0 then result:=default else result:=a div b end;
+
+function safeDiv(a,b:real; default:real=0):real; inline;
+begin if b=0 then result:=default else result:=a/b end;
+
+function isExtension(filename, ext:string):boolean;
+begin result:= 0=ansiCompareText(ext, extractFileExt(filename)) end;
+
+function getTill(ss, s:string; included:boolean=FALSE):string;
+var
+  i: integer;
+begin
+i:=pos(ss, s);
+if i = 0 then result:=s
+else result:=copy(s,1,i-1+if_(included,length(ss)));
+end; // getTill
+
+function getTill(i:integer; s:string):string;
+begin
+if i < 0 then i:=length(s)+i;
+result:=copy(s, 1, i);
+end; // getTill
+
+function dateToHTTP(filename:string):string; overload;
+begin result:=dateToHTTP(getMtimeUTC(filename)) end;
+
+function dateToHTTP(gmtTime:Tdatetime):string; overload;
+begin
+result:=formatDateTime('"'+DOW2STR[dayOfWeek(gmtTime)]+'," dd "'+MONTH2STR[monthOf(gmtTime)]
+  +'" yyyy hh":"nn":"ss "GMT"', gmtTime);
+end; // dateToHTTP
+
+function getEtag(filename:string):string;
+var
+  sr: TsearchRec;
+  st: TSystemTime;
+begin
+result:='';
+if findFirst(filename, faAnyFile, sr) <> 0 then exit;
+FileTimeToSystemTime(sr.FindData.ftLastWriteTime, st);
+result:=intToStr(sr.Size)+':'+floatToStr(SystemTimeToDateTime(st))+':'+expandFileName(filename);
+findClose(sr);
+result:=StrMD5(result);
+end; // getEtag
+
+function getMtimeUTC(filename:string):Tdatetime;
+var
+  sr: TsearchRec;
+  st: TSystemTime;
+begin
+result:=0;
+if findFirst(filename, faAnyFile, sr) <> 0 then exit;
+FileTimeToSystemTime(sr.FindData.ftLastWriteTime, st);
+result:=SystemTimeToDateTime(st);
+findClose(sr);
+end; // getMtimeUTC
+
+function getMtime(filename:string):Tdatetime;
+begin
+if not fileAge(filename, result) then
+  result:=0;
+end; // getMtime
+
+function ipToInt(ip:string):dword;
+var
+  i: integer;
+begin
+i:=ipToInt_cache.Add(ip);
+result:=dword(ipToInt_cache.Objects[i]);
+if result <> 0 then exit;
+result:=WSocket_ntohl(WSocket_inet_addr(pchar(ip)));
+ipToInt_cache.Objects[i]:=Tobject(result);
+end; // ipToInt
+
+function getShellFolder(id:string):string;
+begin
+result:=loadregistry(
+  'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', id,
+  HKEY_CURRENT_USER);
+end; // getShellFolder
+
+function createShellLink(linkFN:WideString; destFN:string):boolean;
+var
+  ShellObject: IUnknown;
+begin
+shellObject:=CreateComObject(CLSID_ShellLink);
+result:=((shellObject as IShellLink).setPath(PChar(destFN)) = NOERROR)
+  and ((shellObject as IPersistFile).Save(PWChar(linkFN), False) = S_OK)
+end; // createShellLink
+
+function readShellLink(linkFN:WideString):string;
+var
+  ShellObject: IUnknown;
+  pfd: _WIN32_FIND_DATA;
+begin
+shellObject:=CreateComObject(CLSID_ShellLink);
+if (shellObject as IPersistFile).Load(PWChar(linkFN), 0) <> S_OK then
+  raise Exception.create('readShellLink: cannot load');
+setLength(result, MAX_PATH);
+if (shellObject as IShellLink).getPath(pchar(result), length(result), pfd, 0) <> NOERROR then
+  raise Exception.create('readShellLink: cannot getPath');
+setLength(result, strLen(pchar(result)));
+end; // readShellLink
+
+function selectFiles(caption:string; var files:TStringDynArray):boolean;
+var
+  dlg: TopenDialog;
+  i: integer;
+begin
+dlg:=TopenDialog.create(screen.activeForm);
+try
+  dlg.Options:=dlg.Options+[ofAllowMultiSelect, ofFileMustExist, ofPathMustExist];
+  result:=dlg.Execute();
+  if result then
+    begin
+    setLength(files, dlg.Files.count);
+    for i:=0 to dlg.files.Count-1 do
+      files[i]:=dlg.files[i];
+    end;
+finally dlg.free end;
+end;
+
+function eos(s:Tstream):boolean;
+begin result:=s.position >= s.size end;
+
+function singleLine(s:string):boolean;
+var
+  i, l: integer;
+begin
+i:=pos(#13,s);
+l:=length(s);
+result:=(i = 0) or (i = l) or (i = l-1) and (s[l] = #10)
+end; // singleLine
+
+function setClip(s:string):boolean;
+begin
+result:=TRUE;
+try clipboard().AsText:=s
+except result:=FALSE end;
+end; // setClip
+
+function getStr(from, to_:pchar):string;
+var
+  l: integer;
+begin
+result:='';
+if (from = NIL) or assigned(to_) and (from > to_) then exit;
+if to_ = NIL then
+  begin
+  to_:=strEnd(from);
+  dec(to_);
+  end;
+l:=to_-from+1;
+setLength(result, l);
+if l > 0 then strLcopy(@result[1], from, l);
+end; // getStr
+
+function poss(chars:TcharSet; s:string; ofs:integer=1):integer;
+begin
+for result:=ofs to length(s) do
+  if charInSet(s[result], chars) then
+    exit;
+result:=0;
+end; // poss
+
+function isNT():boolean;
+var
+  vi: TOSVERSIONINFO;
+begin
+result:=TRUE;
+vi.dwOSVersionInfoSize:=sizeOf(vi);
+if not windows.getVersionEx(vi) then exit;
+result:= vi.dwPlatformId = VER_PLATFORM_WIN32_NT;
+end; // isNT
+
+function getTempDir():string;
+begin
+setLength(result, 1000);
+setLength(result, getTempPath(length(result), @result[1]));
+end; // getTempDir
+
+function optUTF8(bool:boolean; s:string):string;
+begin if bool then result:=ansiToUtf8(s) else result:=s end;
+
+function optUTF8(tpl:Ttpl; s:string):string; inline;
+begin result:=optUTF8(assigned(tpl) and tpl.utf8, s) end;
+
+function optAnsi(bool:boolean; s:string):string;
+begin if bool then result:=UTF8toAnsi(s) else result:=s end;
+
+function blend(from,to_:Tcolor; perc:real):Tcolor;
+var
+  i: integer;
+begin
+result:=0;
+from:=ColorToRGB(from);
+to_:=ColorToRGB(to_);
+for i:=0 to 2 do
+  inc(result, min($FF, round(((from shr (i*8)) and $FF)*(1-perc)
+    +((to_ shr (i*8)) and $FF)*perc)) shl (i*8));
+end; // blend
+
+function listToArray(l:Tstrings):TstringDynArray;
+var
+  i: integer;
+begin
+try
+  setLength(result, l.Count);
+  for i:=0 to l.Count-1 do
+    result[i]:=l[i];
+except
+  result:=NIL
+  end
+end; // listToArray
+
+function jsEncode(s, chars:string):string;
+var
+  i: integer;
+begin
+for i:=1 to length(chars) do
+  s:=ansiReplaceStr(s, chars[i], '\x'+intToHex(ord(chars[i]),2));
+result:=s;
+end; // jsEncode
+
+function holdingKey(key:integer):boolean;
+begin result:=getAsyncKeyState(key) and $8000 <> 0 end;
+
+function utf8Test(s:string):boolean;
+begin result:=ansiContainsText(s, 'charset=UTF-8') end;
+
+// concat pre+s+post only if s is non empty
+function nonEmptyConcat(pre, s:string; post:string=''):string;
+begin if s = '' then result:='' else result:=pre+s+post end;
+
+// returns the first non empty string
+function first(a:array of string):string;
+var
+  i: integer;
+begin
+result:='';
+for i:=0 to length(a)-1 do
+  begin
+  result:=a[i];
+  if result > '' then exit;
+  end;
+end; // first
+
+function first(a,b:string):string;
+begin if a = '' then result:=b else result:=a end;
+
+function first(a,b:integer):integer;
+begin if a = 0 then result:=b else result:=a end;
+
+function first(a,b:double):double;
+begin if a = 0 then result:=b else result:=a end;
+
+function first(a,b:pointer):pointer;
+begin if a = NIL then result:=b else result:=a end;
+
+// taken from http://www.delphi3000.com/articles/article_3361.asp
+function captureExec(DosApp : string; out output:string; out exitcode:cardinal; timeout:real=0):boolean;
+const
+  ReadBuffer = 1048576;  // 1 MB Buffer
+var
+  sa            : TSecurityAttributes;
+  ReadPipe,WritePipe  : THandle;
+  start               : TStartUpInfoA;
+  ProcessInfo         : TProcessInformation;
+  Buffer              : Pansichar;
+  TotalBytesRead,
+  BytesRead           : DWORD;
+  Apprunning,
+  BytesLeftThisMessage,
+  TotalBytesAvail : integer;
+begin
+result:=FALSE;
+output:='';
+sa.nlength:=SizeOf(sa);
+sa.binherithandle:=TRUE;
+sa.lpsecuritydescriptor:=NIL;
+
+if not createPipe(ReadPipe, WritePipe, @sa, 0) then exit;
+// Redirect In- and Output through STARTUPINFO structure
+Buffer:=AllocMem(ReadBuffer + 1);
+FillChar(Start,Sizeof(Start),#0);
+start.cb:= SizeOf(start);
+start.hStdOutput:= WritePipe;
+start.hStdInput:= ReadPipe;
+start.dwFlags:= STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
+start.wShowWindow:= SW_HIDE;
+TotalBytesRead:=0;
+if timeout = 0 then
+  timeout:=MaxExtended
+else
+  timeout:=now()+timeout/SECONDS;
+// Create a Console Child Process with redirected input and output
+try
+  if CreateProcessA(nil, PansiChar(ansistring(DosApp)), @sa, @sa, true, CREATE_NO_WINDOW or NORMAL_PRIORITY_CLASS, nil, nil, start, ProcessInfo) then
+    repeat
+    result:=TRUE;
+    // wait for end of child process
+    Apprunning := WaitForSingleObject(ProcessInfo.hProcess,100);
+    Application.ProcessMessages();
+    // it is important to read from time to time the output information
+    // so that the pipe is not blocked by an overflow. New information
+    // can be written from the console app to the pipe only if there is
+    // enough buffer space.
+    if not PeekNamedPipe(ReadPipe, @Buffer[TotalBytesRead], ReadBuffer,
+      @BytesRead, @TotalBytesAvail, @BytesLeftThisMessage ) then
+      break
+    else if BytesRead > 0 then
+      ReadFile(ReadPipe, Buffer[TotalBytesRead], BytesRead, BytesRead, nil );
+    inc(TotalBytesRead, BytesRead);
+    until (Apprunning <> WAIT_TIMEOUT) or (now() >= timeout);
+  Buffer[TotalBytesRead]:= #0;
+  OemToCharA(PansiChar(Buffer),Buffer);
+  output:=strPas(Buffer);
+finally
+  GetExitCodeProcess(ProcessInfo.hProcess, exitcode);
+  TerminateProcess(ProcessInfo.hProcess, 0);
+  FreeMem(Buffer);
+  CloseHandle(ProcessInfo.hProcess);
+  CloseHandle(ProcessInfo.hThread);
+  CloseHandle(ReadPipe);
+  CloseHandle(WritePipe);
+  end;
+end; // captureExec
+
+function port2pid(port:string):integer;
+var
+  s, l, p: string;
+  code: cardinal;
+begin
+result:=-1;
+if not captureExec('netstat -naop tcp', s, code) then
+  exit;
+  
+while s > '' do
+  begin
+  l:=chopline(s);
+  if pos('LISTENING', l) = 0 then continue;
+  chop(':', l);
+  p:=chop(' ',l);
+  if p <> port then continue;
+  chop('LISTENING', l);
+  result:=strToIntDef(trim(l), -1);
+  exit;
+  end;
+end; // port2pid
+
+function pid2file(pid:integer):string;
+var
+  h: Thandle;
+begin
+result:='';
+// this is likely to fail on Vista if we are querying a service, because we are running with less privs
+h:=openProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, FALSE, pid);
+if h = 0 then exit;
+try
+  setLength(result, MAX_PATH);
+  if getModuleFileNameEx(h, 0, pchar(Result), MAX_PATH) > 0 then
+    setLength(result, strLen(pchar(result)))
+  else
+    result:=''
+finally closeHandle(h) end;
+end; // pid2file
+
+function stripChars(s:string; cs:Tcharset; invert:boolean=FALSE):string;
+var
+  i, l, ofs: integer;
+  b: boolean;
+begin
+l:=length(s);
+i:=1;
+ofs:=0;
+while i+ofs <= l do
+  begin
+  b:=charInSet(s[i+ofs], cs) xor invert;
+  if b then inc(ofs);
+  if i+ofs > l then break;
+  if ofs > 0 then s[i]:=s[i+ofs];
+  if not b then inc(i);
+  end;
+setLength(s, l-ofs);
+result:=s;
+end; // stripChars
+
+function isOnlyDigits(s:string):boolean;
+var
+  i: integer;
+begin
+result:=FALSE;
+for i:=length(s) downto 1 do
+  if not charInSet(s[i], ['0'..'9']) then
+    exit;
+result:=TRUE;
+end; // isOnlyDigits
+
+function openURL(url:string):boolean;
+begin
+result:=exec(url);
+end; // openURL
+
+// tells if a substring is found at specific position
+function strAt(s, ss:string; at:integer):boolean; inline;
+begin
+if (ss = '') or (length(s) < at+length(ss)-1) then result:=FALSE
+else if length(ss) = 1 then result:=s[at] = ss[1]
+else if length(ss) = 2 then result:=(s[at] = ss[1]) and (s[at+1] = ss[2])
+else result:=copy(s,at,length(ss)) = ss;
+end; // strAt
+
+function swapMem(var src,dest; count:dword; cond:boolean=TRUE):boolean; inline;
+var
+  temp:pointer;
+begin
+result:=cond;
+if not cond then exit;
+getmem(temp, count);
+move(src, temp^, count);
+move(dest, src, count);
+move(temp^, dest, count);
+freemem(temp, count);
+end; // swapMem
+
+function replace(var s:string; ss:string; start,upTo:integer):integer;
+var
+  common, oldL, surplus: integer;
+begin
+oldL:=upTo-start+1;
+common:=min(length(ss), oldL);
+move(ss[1], s[start], common*SizeOf(char));
+surplus:=oldL-length(ss);
+if surplus > 0 then delete(s, start+length(ss), surplus)
+else insert(copy(ss, common+1, -surplus), s, start+common);
+result:=-surplus;
+end; // replace
+
+function substr(s:string; start:integer; upTo:integer=0):string; inline;
+var
+  l: integer;
+begin
+l:=length(s);
+if start = 0 then inc(start)
+else if start < 0 then start:=l+start+1;
+if upTo <= 0 then upTo:=l+upTo;
+result:=copy(s, start, upTo-start+1)
+end; // substr
+
+function substr(s:string; after:string):string;
+var
+  i: integer;
+begin
+i:=pos(after,s);
+if i = 0 then result:=''
+else result:=copy(s, i+length(after), MAXINT)
+end; // substr
+
+function xtpl(src:string; table:array of string):string; overload;
+var
+  i:integer;
+begin
+i:=0;
+while i < length(table) do
+  begin
+  src:=replaceText(src,table[i],table[i+1]);
+  inc(i, 2);
+  end;
+result:=src;
+end; // xtpl
+
+function clearAndReturn(var v:string):string;
+begin
+result:=v;
+v:='';
+end;
+
+procedure drawCentered(cnv:Tcanvas; r:Trect; text:string);
+begin drawText(cnv.Handle, pchar(text), length(text), r, DT_CENTER+DT_NOPREFIX+DT_VCENTER+DT_END_ELLIPSIS) end;
+
+function minmax(min, max, v:integer):integer; inline;
+begin
+if v < min then result:=min
+else if v > max then result:=max
+else result:=v
+end;
+
+function isLocalIP(ip:string):boolean;
+begin result:=checkAddressSyntax(ip, FALSE) and HSlib.isLocalIP(ip) end;
+
+function reduceSpaces(s:string; replacement:string=' '; spaces:TcharSet=[]):string;
+var
+  i, c, l: integer;
+begin
+if spaces = [] then include(spaces, ' ');
+i:=0;
+l:=length(s);
+while i < l do
+  begin
+  inc(i);
+  c:=i;
+  while (c <= l) and charInSet(s[c], spaces) do
+    inc(c);
+  if c = i then continue;
+  replace(s, replacement, i, c-1);
+  end;
+result:=s;
+end; // reduceSpaces
+
+function countSubstr(ss:string; s:string):integer;
+var
+  i, l: integer;
+  c: char;
+begin
+result:=0;
+l:=length(ss);
+if l = 1 then
+  begin
+  l:=length(s);
+  c:=ss[1];
+  for i:=1 to l do
+    if s[i] = c then
+      inc(result);
+  exit;
+  end;
+i:=1;
+  repeat
+  i:=posEx(ss, s, i);
+  if i = 0 then exit;
+  inc(result);
+  inc(i, l);
+  until false;
+end; // countSubstr
+
+function trim2(s:string; chars:Tcharset):string;
+var
+  b, e: integer;
+begin
+b:=1;
+while (b <= length(s)) and charInSet(s[b], chars) do inc(b);
+e:=length(s);
+while (e > 0) and charInSet(s[e], chars) do dec(e);
+result:=substr(s, b, e);
+end; // trim2
+
+function boolOnce(var b:boolean):boolean;
+begin result:=b; b:=FALSE end;
+
+procedure urlToStrings(s:string; sl:Tstrings);
+var
+  i, l, p: integer;
+  t: string;
+begin
+i:=1;
+l:=length(s);
+while i <= l do
+  begin
+  p:=posEx('&',s,i);
+  t:=decodeURL(replaceStr(substr(s,i,if_(p=0,0,p-1)), '+',' '), FALSE); // TODO should we instead try to decode utf-8? doing so may affect calls to {.force ansi.} in the template
+  sl.add(t);
+  if p = 0 then exit;
+  i:=p+1;
+  end;
+end; // urlToStrings
+
+// extract at p the section name of a text, if any
+function getSectionAt(p:pchar; out name:string):boolean;
+var
+ eos, eol: pchar;
+begin
+result:=FALSE;
+if (p = NIL) or (p^ <> '[') then exit;
+eos:=p;
+while eos^ <> ']' do
+  if charInSet(eos^, [#0, #10, #13]) then exit
+  else inc(eos);
+// ensure the line is termineted correctly
+eol:=eos;
+inc(eol);
+while not charInSet(eol^, [#10,#0]) do
+  if not charInSet(eol^, [#9,#32,#13]) then exit
+  else inc(eol);
+inc(p);
+dec(eos);
+name:=getStr(p, eos);
+result:=TRUE;
+end; // getSectionAt
+
+function isSectionAt(p:pchar):boolean;
+var
+  trash: string;
+begin
+result:=getSectionAt(p, trash);
+end; // isSectionAt
+
+procedure doNothing();
+begin end;
+
+// calculates the value of a constant formula
+function evalFormula(s:string):real;
+// this algo is by far not the quickest, because it manipulates the string, but it's the simpler that came to my mind
+const
+  PAR_VAL = 100;
+var
+  i, v,
+  mImp, // index of the most important operator
+  mImpV: integer; // importance of the most important
+  ofsImp: integer; // importance offset, due to parenthesis
+  ch: char;
+  left, right: real;
+  leftS, rightS: string;
+
+  function getOperate(dir:integer):string;
+  var
+    j: integer;
+  begin
+  i:=mImp+dir;
+    repeat
+    j:=i+dir;
+    if (j > 0) and (j <= length(s)) and charInSet(s[j], ['0'..'9','.']) then
+      i:=j
+    else
+      break;
+    until false;
+  j:=mImp+dir;
+  swapMem(i, j, sizeOf(i), dir > 0);
+  j:=j-i+1;
+  result:=copy(s, i, j);
+  end; // getOperate
+
+begin
+  repeat
+  // search the most urgent operator
+  ofsImp:=0;
+  mImp:=0;
+  mImpV:=0;
+  for i:=1 to length(s) do
+    begin
+    // calculate operator precedence (if any)
+    ch:=s[i];
+    v:=0;
+    case ch of
+      '*','/','%': v:=5+ofsImp;
+      '+','-': v:=3+ofsImp;
+      '(': inc(ofsImp, PAR_VAL);
+      ')': dec(ofsImp, PAR_VAL);
+      end;
+
+    if (i = 1) // a starting operator is not an operator
+    or (v <= mImpV) // left-to-right precedence
+    then continue;
+    // we got a better one, record it
+    mImpV:=v;
+    mImp:=i;
+    end;//for
+
+  // found or not?
+  if mImp = 0 then
+    begin
+    result:=strToFloat(s);
+    exit;
+    end;
+  // determine operates
+  leftS:=getOperate(-1);
+  rightS:=getOperate(+1);
+  left:=StrToFloatDef(trim(leftS), 0);
+  right:=strToFloat(trim(rightS));
+  // calculate
+  ch:=s[mImp];
+  case ch of
+    '+': result:=left+right;
+    '-': result:=left-right;
+    '*': result:=left*right;
+    '/':
+      if right <> 0 then result:=left/right
+      else raise Exception.create('division by zero');
+    '%':
+      if right <> 0 then result:=trunc(left) mod trunc(right)
+      else raise Exception.create('division by zero');
+    else raise Exception.create('operator not supported: '+ch);
+    end;
+  // replace sub-expression with result
+  i:=mImp-length(leftS);
+  v:=mImp+length(rightS);
+  if (i > 1) and (v < length(s)) and (s[i-1] = '(') and (s[v+1] = ')') then
+    begin  // remove also parenthesis
+    dec(i);
+    inc(v);
+    end;
+  if v-i+1 = length(s) then exit; // we already got the result
+  replace(s, floatToStr(result), i, v);
+  until false;
+end; // evalFormula
+
+function getUniqueName(start:string; exists:TnameExistsFun):string;
+var
+  i: integer;
+begin
+result:=start;
+if not exists(result) then exit;
+i:=2;
+  repeat
+  result:=format('%s (%d)', [start,i]);
+  inc(i);
+  until not exists(result);
+end; // getUniqueName
+
+function accountIcon(isEnabled, isGroup:boolean):integer; overload;
+begin result:=if_(isGroup, if_(isEnabled,29,40), if_(isEnabled,27,28)) end;
+
+function accountIcon(a:Paccount):integer; overload;
+begin result:=accountIcon(a.enabled, a.group) end;
+
+function newMenuSeparator(lbl:string=''):Tmenuitem;
+begin
+result:=newItem('-',0,FALSE,TRUE,NIL,0,'');
+result.hint:=lbl;
+result.onDrawItem:=mainfrm.menuDraw;
+result.OnMeasureItem:=mainfrm.menuMeasure;
+end; // newMenuSeparator
+
+function arrayToList(a:TStringDynArray; list:TstringList=NIL):TstringList;
+var
+  i: integer;
+begin
+if list = NIL then
+  list:=ThashedStringList.create;
+result:=list;
+list.Clear();
+for i:=0 to length(a)-1 do
+  list.add(a[i]);
+end; // arrayToList
+
+function createAccountOnTheFly():Paccount;
+var
+  acc: Taccount;
+  i: integer;
+begin
+result:=NIL;
+fillChar(acc, sizeof(acc), 0);
+acc.enabled:=TRUE;
+  repeat
+  if not newuserpassFrm.prompt(acc.user, acc.pwd)
+  or (acc.user = '') then exit;
+
+  if getAccount(acc.user) = NIL then break;
+  msgDlg('Username already exists', MB_ICONERROR)
+  until false;
+i:=length(accounts);
+setLength(accounts, i+1);
+accounts[i]:=acc;
+result:=@accounts[i];
+end; // createAccountOnTheFly
+
+procedure sortArray(var a:TStringDynArray);
+var
+  i, j, l: integer;
+begin
+l:=length(a);
+for i:=0 to l-2 do
+  for j:=i+1 to l-1 do
+    swapMem(a[i], a[j], sizeof(a[i]), ansiCompareText(a[i], a[j]) > 0);
+end; // sortArray
+
+procedure onlyForExperts(controls:array of Tcontrol);
+var
+  i: integer;
+begin
+for i:=0 to length(controls)-1 do
+  controls[i].visible:=not easyMode;
+end; // onlyForExperts
+
+function onlyExistentAccounts(a:TstringDynArray):TstringDynArray;
+var
+  i: integer;
+  s: string;
+begin
+for i:=0 to length(a)-1 do
+  begin
+  s:=trim(a[i]);
+  if (s = '') or (s[1] <> '@') and (getAccount(s) = NIL) then
+    removeString(a, i)
+  else
+    a[i]:=s;
+  end;
+result:=a;
+end; // onlyExistentAccounts
+
+function strToCharset(s:string):Tcharset;
+var
+  i: integer;
+begin
+result:=[];
+for i:=1 to length(s) do
+  include(result, ansichar(s[i]));
+end; // strToCharset
+
+function boolToPtr(b:boolean):pointer;
+begin result:=if_(b, PTR1, NIL) end;
+
+// recognize strings containing pieces (separated by backslash) made of only dots
+function dirCrossing(s:string):boolean;
+begin
+result:=FALSE;
+
+if onlyDotsRE = NIL then
+  begin
+  onlyDotsRE:=TRegExpr.Create;
+  onlyDotsRE.modifierM:=TRUE;
+  onlyDotsRE.expression:='(^|\\)\.\.+($|\\)';
+  onlyDotsRE.compile();
+  end;
+
+with onlyDotsRE do
+  try result:=exec(s);
+  except end;
+end; // dirCrossing
+
+// this will tell if the file has changed
+function newMtime(fn:string; var previous:Tdatetime):boolean;
+var
+  d: TDateTime;
+begin
+d:=getMtime(fn);
+result:=fileExists(fn) and (d <> previous);
+if result then
+  previous:=d;
+end; // newMtime
+
+function dequote(s:string; quoteChars:TcharSet=['"']):string;
+begin
+if (s > '') and (s[1] = s[length(s)]) and charInSet(s[1], quoteChars) then
+  result:=copy(s, 2, length(s)-2)
+else
+  result:=s;
+end; // dequote
+
+// finds the end of the line
+function findEOL(s:string; ofs:integer=1; included:boolean=TRUE):integer;
+begin
+ofs:=max(1,ofs);
+result:=posEx(#13, s, ofs);
+if result > 0 then
+  begin
+  if not included then
+    dec(result)
+  else
+    if (result < length(s)) and (s[result+1] = #10) then
+      inc(result);
+  exit;
+  end;
+result:=posEx(#10, s, ofs);
+if result > 0 then
+  begin
+  if not included then
+    dec(result);
+  exit;
+  end;
+result:=length(s);
+end; // findEOL
+
+function quoteIfAnyChar(badChars, s:string; quote:string='"'; unquote:string='"'):string;
+begin
+if anycharIn(badChars, s) then
+  s:=quote+s+unquote;
+result:=s;
+end; // quoteIfAnyChar
+
+function toSA(a:array of string):TstringDynArray; // this is just to have a way to typecast
+begin
+result:=NIL;
+addArray(result, a);
+end; // toSA
+
+// this is feasible for spot and low performance needs
+function getKeyFromString(s:string; key:string; def:string=''):string;
+var
+  i: integer;
+begin
+result:=def;
+includeTrailingString(key, '=');
+i:=1;
+  repeat
+  i:=ipos(key, s, i);
+  if i = 0 then exit; // not found
+  until (i = 1) or charInSet(s[i-1], [#13,#10]); // ensure we are at the very beginning of the line
+inc(i, length(key));
+result:=substr(s,i, findEOL(s,i,FALSE));
+end; // getKeyFromString
+
+// "key=val" in second parameter (with 3rd one empty) is supported
+function setKeyInString(s:string; key:string; val:string=''):string;
+var
+  i: integer;
+begin
+i:=pos('=', key);
+if i = 0 then
+  key:=key+'='
+else if val = '' then
+  begin
+  val:=copy(key,i+1,MAXINT);
+  setLength(key, i);
+  end;
+// now key has a trailing '='. Let's find where it is.
+i:=0;
+  repeat i:=ipos(key, s, i+1);
+  until (i <= 1) or charInSet(s[i-1], [#13,#10]); // we accept cases 0,1 as they are. Other cases must comply with being at start of line.
+if i = 0 then // missing, then add
+  begin
+  if s > '' then
+    includeTrailingString(s, CRLF);
+  result:=s+key+val;
+  exit;
+  end;
+// replace
+inc(i, length(key));
+replace(s, val, i, findEOL(s,i, FALSE));
+result:=s;
+end; // setKeyInString
+
+// useful for casing on the first char
+function getFirstChar(s:string):char;
+begin
+if s = '' then result:=#0
+else result:=s[1]
+end; // getFirstChar
+
+function localToGMT(d:Tdatetime):Tdatetime;
+begin result:=d-GMToffset*60/SECONDS end;
+
+// this is useful when we don't know if the value is expressed as a real Tdatetime or in unix time format
+function maybeUnixTime(t:Tdatetime):Tdatetime;
+begin
+if t > 1000000 then result:=unixToDateTime(round(t))
+else result:=t
+end;
+
+procedure excludeTrailingString(var s:string; ss:string);
+var
+  i: integer;
+begin
+i:=length(s)-length(ss);
+if copy(s, i+1, length(ss)) = ss then
+  setLength(s, i);
+end;
+
+function deltree(path:string):boolean;
+var
+  sr: TSearchRec;
+  fn: string;
+begin
+result:=FALSE;
+if fileExists(path) then
+  begin
+  result:=deleteFile(path);
+  exit;
+  end;
+if not ansiContainsStr(path, '?') and not ansiContainsStr(path, '*') then
+  path:=path+'\*';
+if findfirst(path, faAnyFile, sr) <> 0 then exit;
+try
+  repeat
+  if (sr.name = '.') or (sr.name = '..') then continue;
+  fn:=path+'\'+sr.name;
+  if boolean(sr.attr and faDirectory) then
+    delTree(fn)
+  else
+    deleteFile(fn);
+  until findNext(sr) <> 0;
+finally
+  findClose(sr);
+  rmDir(path);
+  end;
+end; // deltree
+
+function str2bytes(s:ansistring):Tbytes;
+begin
+setLength(result, length(s));
+move(s[1], result[0], length(result));
+end;
+
+function stringToGif(s:ansistring; gif:TgifImage=NIL):TgifImage;
+var
+  ss: Tbytesstream;
+begin
+ss:=Tbytesstream.create(str2bytes(s));
+try
+  if gif = NIL then
+    gif:=TGIFImage.Create();
+  gif.loadFromStream(ss);
+  result:=gif;
+finally ss.free end;
+end; // stringToGif
+
+function allocatedMemory():int64;
+var
+  mms: TMemoryManagerState;
+  i: integer;
+begin
+getMemoryManagerState(mms);
+result:=0;
+for i:=0 to high(mms.SmallBlockTypeStates)-1 do
+  with mms.SmallBlockTypeStates[i] do
+    //inc(result, ReservedAddressSpace);   i guess this is real consumption from a system PoV, but it's actually preallocated, not fully used
+    inc(result, internalBlockSize*allocatedBlockCount);
+inc(result, mms.TotalAllocatedLargeBlockSize+mms.TotalAllocatedMediumBlockSize);
+end; // allocatedMemory
+
+{function allocatedMemory():int64;
+var
+  mm: TMemoryManagerUsageSummary;
+begin
+getMemoryManagerUsageSummary(mm);
+result:=mm.allocatedBytes;
+end; // allocatedMemory
+}
+function removeStartingStr(ss,s:string):string;
+begin
+if ansiStartsStr(ss, s) then
+  result:=substr(s, 1+length(ss))
+else
+  result:=s
+end; // removeStartingStr
+
+function stringToColorEx(s:string; default:Tcolor=clNone):Tcolor;
+begin
+try
+  if reMatch(s, '#?[0-9a-f]{3,6}','!i') > 0 then
+    begin
+    s:=removeStartingStr('#', s);
+    case length(s) of
+      3: s:=s[3]+s[3]+s[2]+s[2]+s[1]+s[1];
+      6: s:=s[5]+s[6]+s[3]+s[4]+s[1]+s[2];
+      end;
+    end;
+  result:=stringToColor('$'+s)
+except
+  try result:=stringToColor('cl'+s);
+  except
+    if default = clNone then
+      result:=stringToColor(s)
+    else
+      try result:=stringToColor(s)
+      except result:=default end;
+    end;
+  end;
+end; // stringToColorEx
+
+function filetimeToDatetime(ft:TFileTime):Tdatetime;
+var
+  st: TsystemTime;
+begin
+FileTimeToLocalFileTime(ft, ft);
+FileTimeToSystemTime(ft, st);
+TryEncodeDateTime(st.wYear, st.wMonth, st.wDay, st.wHour, st.wMinute, st.wSecond, st.wMilliseconds, result);
+end; // filetimeToDatetime
+
+function diskSpaceAt(path:string):int64;
+var
+  tmp: int64;
+  was: string;
+begin
+while not directoryExists(path) do
+  begin
+  was:=path;
+  path:=extractFileDir(path);
+  if path = was then break; // we're on the road to nowhere
+  end;
+if not getDiskFreeSpaceEx(pchar(path), result, tmp, NIL) then
+  result:=-1;
+end; // diskSpaceAt
+
+// this is a blocking method for dns resolving. The Wsocket.DnsLookup() method provided by ICS is non-blocking 
+function hostToIP(name: string):string;
+type
+  Tbytes = array [0..3] of byte;
+var
+  hostEnt: PHostEnt;
+  addr: ^Tbytes;
+begin
+result:='';
+hostEnt:=gethostbyname(@ansiString(name)[1]);
+if (hostEnt = NIL) or (hostEnt^.h_addr_list = NIL) then exit;
+addr:=pointer(hostEnt^.h_addr_list^);
+if addr = NIL then exit;
+result:=format('%d.%d.%d.%d', [addr[0], addr[1], addr[2], addr[3]]);
+end; // hostToIP
+
+function hostFromURL(s:string):string;
+begin result:=reGet(s, '([a-z]+://)?([^/]+@)?([^/]+)', 3) end;
+
+procedure fixFontFor(frm:Tform);
+var
+  nonClientMetrics: TNonClientMetrics;
+begin
+nonClientMetrics.cbSize:=sizeOf(nonClientMetrics);
+systemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @nonClientMetrics, 0);
+frm.font.handle:=createFontIndirect(nonClientMetrics.lfMessageFont);
+if frm.scaled then
+  frm.font.height:=nonClientMetrics.lfMessageFont.lfHeight;
+end; // fixFontFor
+
+function nodeToFile(n:TtreeNode):Tfile; inline;
+begin if n = NIL then result:=NIL else result:=Tfile(n.data) end;
+
+function getAccount(user:string; evenGroups:boolean=FALSE):Paccount;
+var
+  i: integer;
+begin
+result:=NIL;
+for i:=0 to length(accounts)-1 do
+  if sameText(user, accounts[i].user) then
+    begin
+    if evenGroups or not accounts[i].group then
+      result:= @accounts[i];
+    exit;
+    end;
+end; // getAccount
+
+function accountExists(user:string; evenGroups:boolean=FALSE):boolean;
+begin result:=getAccount(user, evenGroups) <> NIL end;
+
+type
+  Tnewline = (NL_UNK, NL_D, NL_A, NL_DA, NL_MIXED);
+
+function newlineType(s:string):Tnewline;
+var
+  d, a, l: integer;
+begin
+d:=pos(#13,s);
+a:=pos(#10,s);
+if d = 0 then
+  if a = 0 then
+    result:=NL_UNK
+  else
+    result:=NL_A
+else
+  if a = 0 then
+    result:=NL_D
+  else
+    if a = 1 then
+      result:=NL_MIXED
+    else
+      begin
+      result:=NL_MIXED;
+      // search for an unpaired #10
+      while (a > 0) and (s[a-1] = #13) do
+        a:=posEx(#10, s, a+1);
+      if a > 0 then exit;
+      // search for an unpaired #13
+      l:=length(s);
+      while (d < l) and (s[d+1] = #10) do
+        d:=posEx(#13, s, d+1);
+      if d > 0 then exit;
+      // ok, all is paired
+      result:=NL_DA;
+      end;
+end; // newlineType
+
+function escapeNL(s:string):string;
+begin
+s:=replaceStr(s, '\','\\');
+case newlineType(s) of
+  NL_D: s:=replaceStr(s, #13,'\n');
+  NL_A: s:=replaceStr(s, #10,'\n');
+  NL_DA: s:=replaceStr(s, #13#10,'\n');
+  NL_MIXED: s:=replaceStr(replaceStr(replaceStr(s, #13#10,'\n'), #13,'\n'), #10,'\n'); // bad case, we do our best
+  end;
+result:=s;
+end; // escapeNL
+
+function unescapeNL(s:string):string;
+var
+  o, n: integer;
+begin
+o:=1;
+while o <= length(s) do
+  begin
+  o:=posEx('\n', s, o);
+  if o = 0 then break;
+  n:=1;
+  while (o-n > 0) and (s[o-n] = '\') do inc(n);
+  if odd(n) then
+    begin
+    s[o]:=#13;
+    s[o+1]:=#10;
+    end;
+  inc(o,2);
+  end;
+result:=replaceStr(s, '\\','\');
+end; // unescapeNL
+
+function htmlEncode(s:string):string;
+var
+  i: integer;
+  p: string;
+  fs: TfastStringAppend;
+begin
+fs:=TfastStringAppend.create;
+try
+  for i:=1 to length(s) do
+    begin
+    case s[i] of
+      '&': p:='&amp;';
+      '<': p:='&lt;';
+      '>': p:='&gt;';
+      '"': p:='&quot;';
+      '''': p:='&#039;';
+      else p:=s[i];
+      end;
+    fs.append(p);
+    end;
+  result:=fs.get();
+finally fs.free end;
+end; // htmlEncode
+
+procedure enforceNUL(var s:string);
+begin
+if s>'' then
+  setLength(s, strLen(Pwidechar(@s[1])))
+end; // enforceNUL
+
+var
+  TZinfo:TTimeZoneInformation;
+
+INITIALIZATION
+FormatSettings.DecimalSeparator:='.'; // standardize
+
+ipToInt_cache:=THashedStringList.Create;
+ipToInt_cache.Sorted:=TRUE;
+ipToInt_cache.Duplicates:=dupIgnore;
+inputQueryLongdlg:=TlonginputFrm.create(NIL); // mainFrm is NIL at this time
+
+// calculate GMToffset
+GetTimeZoneInformation(TZinfo);
+case GetTimeZoneInformation(TZInfo) of
+  TIME_ZONE_ID_STANDARD: GMToffset:=TZInfo.StandardBias;
+  TIME_ZONE_ID_DAYLIGHT: GMToffset:=TZInfo.DaylightBias;
+  else GMToffset:=0;
+  end;
+GMToffset:=-(TZinfo.bias+GMToffset);
+
+// windows version detect
+case byte(getversion()) of
+  1..4: winVersion:=WV_LOWER;
+  5: winVersion:=WV_2000;
+  6: case hibyte(getversion()) of
+      0: winVersion:=WV_VISTA;
+      1: winVersion:=WV_SEVEN;
+      else winVersion:=WV_HIGHER;
+      end;
+  7..15: winVersion:=WV_HIGHER;
+  end;
+
+trayMsg:='%ip%'
+  +trayNL+'Uptime: %uptime%'
+  +trayNL+'Downloads: %downloads%';
+
+//fastmm4.SuppressMessageBoxes:=TRUE;
+
+FINALIZATION
+freeAndNIL(ipToInt_cache);
+freeAndNIL(inputQueryLongdlg);
+freeAndNIL(onlyDotsRE);
+
+end.
diff --git a/whatsnew.txt b/whatsnew.txt
new file mode 100644
index 0000000..0af4996
--- /dev/null
+++ b/whatsnew.txt
@@ -0,0 +1,951 @@
+HFS - what's new
+
+LEGEND
+!   very important
++   new feature
+*   change
+-   bug fix
+AV  access violation
+
+VER 2.4
+propaganda
+  New mobile-friendly template
+/propaganda
++ new default template
++ {.set item|name.}
++ {.get item|icon.}
++ {.set cfg.}
++ cache for jquery and template sections
++ new template commands: base64, base64decode, md5, sha1
+- fixed template handling of section names with both '+' and '=' present
+- fixed LNK files to deleted items
+- fixed comments files were not updated upon deletion of files
+- fixed "requesting" forever with empty cookies http://rejetto.com/forum/index.php?topic=13112.0
+- fixed double "Content-Length" header on compressed pages
+- fixed log text base color not matching system settings http://rejetto.com/forum/index.php?topic=13233.0 
+
+VER 2.3m
+propaganda
+  Bug fixes
+/propaganda
++ initial localization support http://www.rejetto.com/forum/programmers-corner/translations-to-other-languages/
++ {.remove header.}
+- fixed error pages' loading problem http://www.rejetto.com/forum/bug-reports/httpauth-challenge-http-headers-bug/
+- fixed error with {.load.} with size exceeding real size http://rejetto.com/forum/index.php?topic=12059.msg1062781#msg1062781
+- fixed template translation issues http://rejetto.com/forum/index.php?topic=11880.msg1062167#msg1062167
+
+VER 2.3k
+propaganda
+  Bug fixes
+/propaganda
+- fixed {.rename.} {.move.} and {.delete.} with lnk files
+- fixed slowness problem introduced in previous release http://www.rejetto.com/forum/hfs-~-http-file-server/very-slow-loading-on-2-3j-with-userpass-folders/
+- fixed management of user/pass overlapping accounts
+- fiexd invisible window http://www.rejetto.com/forum/hfs-~-http-file-server/new-version-2-3j/msg1062129/#msg1062129
+
+VER 2.3j
+propaganda
+   Security and bug fixes
+/propaganda
+- prevent upload and rename of .lnk files
+- cache system didn't recognize sub-second changes
+- fixed chinese search problem http://www.rejetto.com/forum/bug-reports/can-not-search-chinese-word-in-recent-2-3-beta-version/
+- fixed missing "delete" button
+- fixed {.add header.} http://www.rejetto.com/forum/staff/proposal-of-update-to-correct-the-macro-'add-header'/msg1061397/#msg1061397
+- fixed renaming files with dollar sign http://www.rejetto.com/forum/bug-reports/standard-template-rename-does-funny-things-with-$-before-numbers-in-new-name/
+
+ver 2.3i
+propaganda
+   Security fix
+/propaganda
++ Report range for partial downloads in the log http://www.rejetto.com/forum/hfs-~-http-file-server/add-to-log-range-(starting-and-ending-byte)/
+- fixed Remote Command Execution http://www.rejetto.com/forum/bug-reports/execution-exploit/
+- {.add header.} wasn't overwriting existing headers
+- temporary files not deleted
+- incorrect handling of empty rows in ban tables
+
+ver 2.3h
+propaganda
+   Bugs fixed
+/propaganda
+- account names were uppercased http://www.rejetto.com/forum/bug-reports/account-names/
+- malformed TAR files with long file paths http://www.rejetto.com/forum/hfs-~-http-file-server/tar-headers-corrupt/
+- template [+sections] with a plus sign ahead were not working in diff template http://www.rejetto.com/forum/html-templates/disable-right-click-in-template/msg1061207/#msg1061207 
+- in case of lnk files, wrong file size was displayed
+- a lnk in a folder was stored with the wrong path if downloaded as archive
+
+ver 2.3g
+propaganda
+   Bugs fixed
+/propaganda
+- general problems navigating folders http://www.rejetto.com/forum/bug-reports/404-not-found-server-error/
+- default template: comment was not moved with the file http://www.rejetto.com/forum/bug-reports/descript-ion-and-comment-not-cleaned-up-after-moving-file/msg1060608/#msg1060608
+- request header limit too small, now raised to 16KB
+
+ver 2.3f
+propaganda
+   Security fix
+/propaganda
++ new [stream ready] event and %is-archive% symbol http://www.rejetto.com/forum/index.php?topic=8609.msg1060172#msg1060172
++ now you can use [upload completed] to refuse uploads http://www.rejetto.com/forum/html-templates/limits-to-upload-files-by-extension-and-size/msg1060476/#msg1060476
+* no more CDN for jquery
+- "bad session" error was not handled correctly http://www.rejetto.com/forum/html-templates/troubleshooting-hfs-cookie-issues-on-rename-in-the-default-template
+- possible XSS with %symbols%, and session stealing (thanks to Daniele Linguaglossa)
+
+ver 2.3e
+propaganda
+  Small fixes
+/propaganda
++ upload: multiple file selection
++ search accounts by typing the first letter
++ smarter speed measure in the log
+* using jquery's CDN instead of google's
+- delete not working after archive http://www.rejetto.com/forum/bug-reports/2-3d-(292)-delete-after-archive-repeats-the-archive-download-again/
+- getUri problem http://www.rejetto.com/forum/programmers-corner/last-beta-sources/msg1059938/#msg1059938
+- a big MD5 file can hang http://www.rejetto.com/forum/bug-reports/hfs-hangs-on-access/
+
+ver 2.3d
+propaganda
+  Security fixes
+/propaganda
+- fixed Remote Command Execution CVE-2014-7226 (thanks to Daniele Linguaglossa)
+- default files were totally overriding the template http://www.rejetto.com/forum/hfs-~-http-file-server/deconfiguring-template/msg1059524/#msg1059524
+
+ver 2.3c
+propaganda
+  Security fixes
+/propaganda
+* files are reloaded when the timestamp has changed, not only when it's newer
+- fixed Remote Command Execution CVE-2014-6287 (thanks to Daniele Linguaglossa)
+- fixed CSRF (thanks to D.L.)
+- fixed XSS on comments and upload (thanks to D.L.)
+- program was stuck on lengthy disk harvesting
+
+ver 2.3b
+propaganda
+  Security fixes
+/propaganda
+- fixed default template for serious security flaws 
+- fixed possible discovery of server paths
+- fixed "bind root to real folder"
+- fixed {.load tpl.} not applying to some pages http://www.rejetto.com/forum/html-templates/multiple-templates-based-on-browser/msg1058862/#msg1058862
+- fixed {.filename.} and {.filepath.} to work with backslashes
+
+ver 2.3a
+propaganda
+  Self-test fixed
+/propaganda
+- fixed self-test
+- fixed external IP services
++ new event [got header] http://www.rejetto.com/forum/hfs-~-http-file-server/new-events-section/
+
+ver 2.3
+propaganda
+  Faster file transfer
+  Brand new template
+  Delete files remotely
+  Scripting system, for both template and automation
+  Account groups
+  More
+/propaganda
++ extreme speed up of VFS loading
++ Menu > updates > revert to previous version
++ loading of "default.tpl" in the exe's folder
++ improved accessibility
++ alternative method to get archive: ?mode=archive instead of ~folder.tar (will be deprecated in the future)
++ "lan" symbol for address masks
++ command line parameter -c to set configuration directly on the command line
++ bans: sort button
++ "view http header" will now show even incomplete http headers
++ the TAR format is more standard compliant (is it?)
++ faster self-test
++ Log menu -> Log what -> Deletions
++ address masks support form 1.2.3.4/5 http://en.wikipedia.org/wiki/CIDR#CIDR_blocks
++ new tabbed format for the regular log http://www.rejetto.com/forum/index.php?topic=6719.msg1041763#msg1041763
++ improved Windows links support (*.lnk)   
++ %build-time% in other pages
++ now you can archive even search results
++ URL parameter "nofolders" for folder archives http://www.rejetto.com/wiki/index.php/HFS:_URL_parameters
++ selective folder archive
++ new template section [special:alias] http://www.rejetto.com/forum/index.php?topic=6635.msg1040986#msg1040986
++ by specifying [+section] instead of [section], the new text will not overwrite a previously existing [section] but will be appended 
++ Account notes (and related %user-notes%)
++ File Menu -> "Properties..."
++ Log menu -> "Max lines on screen..."
++ added F7 shortcut for accounts
++ a way to give access/upload to any account
++ Folder menu -> "Delete permissions"
++ Options -> MIME types -> "Open directly in browser when MIME type is defined"
++ Options -> Accounts -> new "upload" box preview
++ Options -> Tray message -> new preview box  
++ adding an "upload" folder suggest proper settings
++ easier way to restore options after "temporarily reset options"
++ apache log format improved (more symbols, conditions, parameters)
++ template installation through drag&drop
++ "addresses ever connected" moved to external file hfs.ips.txt, and hopefully fixed performance problems with many addresses www.rejetto.com/forum/?topic=5716
++ per-folder default sorting http://www.rejetto.com/forum/index.php?topic=5656.msg1033337#msg1033337
++ Menu -> Other options -> "Prevent system standby on network activity" www.rejetto.com/forum/?topic=5694 
++ Menu -> Limits -> Speed limit for single address
++ customize the default template by putting a [style.user] section in the diff template of the root
++ %folder-item-comment% has the same value of %item-comment% in [folder-comment]
++ searching ABC* will force the name to begin by ABC, while *ABC force it to be at the end
++ automatic comment for the uploaded file 
++ search results have links to their folder http://www.rejetto.com/forum/index.php?topic=5371.msg1031206#msg1031206
++ reverse sorting by clicking twice
++ Menu -> URL encoding -> "URLs starting with https instead of http" http://www.rejetto.com/forum/index.php?topic=2002.msg1030879#msg1030879
++ Menu -> Other options -> "Dump traffic"
++ "dynamic dns updater" automatically disables "find external address on startup" because they are incompatible.
++ show header(x-forwarded-for) instead of IP, but only if IP in a customizable ip-mask (127.0.0.1 by default) www.rejetto.com/forum/?topic=5811
++ (expert mode) Menu -> Limits -> "Stop spiders" www.rejetto.com/forum/?topic=3097
++ proportional files/log size www.rejetto.com/forum/?topic=5310
++ log toolbar
++ upload filter will by default reject index.htm* and default.htm* files for improved security
++ nicer icon for the self test, thanks to Jayrome
+* "@" allowed in user name
+* double slash in URL ignored (Apache behaviour)
+- many bugfixes
+
+ver 2.2f
+propaganda
+  Bug and security fixes
+/propaganda
+- several progress indicators were stuck to zero
+- save log had extension .tt instead of .txt
+- big security problem only for Win95/98/ME (not others): directory crossing www.rejetto.com/forum/?topic=6542
+- "open it" was not working if the path had spaces http://www.rejetto.com/forum/index.php?topic=6632.msg1040608#msg1040608
+- setting same name for 2 accounts was not prevented http://www.rejetto.com/forum/index.php?topic=6550.msg1039964#msg1039964
+* characters ;|^,{} are no more encoded in URLs
+
+ver: 2.2e
+propaganda
+  Bug and security fixes
+/propaganda
+* double slash in URL ignored (Apache behaviour)
+- fixed unicode support for uploads
+- small file upload bug www.rejetto.com/forum/?topic=5044
+- pendrive support wasn't applied by "edit resource"
+- NT4 incompatibility with automatic updates
+- some problems automatic updates
+- using special characters in username led to hanging connections http://www.rejetto.com/forum/index.php?topic=5573.msg1033030#msg1033030
+- dynamic dns host was not saved
+- sometimes it was reported "options saved" when they were not
+- couldn't load some files with read only attribute
+- erroneous handling of null chars in the URL
+- "minimum disk space" not working when using HFS on removable drives
+- vfs loading could jam www.rejetto.com/forum/?topic=5979
+- for range "0-0" it was sent the whole file instead of the first byte
+- "Browse it" wasn't working with links http://www.rejetto.com/forum/index.php?topic=6010.msg1035702#msg1035702
+- MIME types would not work with blank spaces in file masks
+- IE6 refresh problem should be now fixed www.rejetto.com/forum/?topic=5376
+- workaround for IE7 that most times will solve the "underscore_instead_of_spaces" problem www.rejetto.com/forum/?topic=6275
+
+ver: 2.2d
+propaganda
+  Bug fixes
+/propaganda
+- AV with very long paths and %user% in log filename
+- missing ":" for port in %host%
+
+ver: 2.2c
+propaganda
+  Security fixes
+/propaganda
+- prevent possible XSS attack
+- on specific (non-default) configuration DoS attack and arbitrary file creation was possible
+- was possible to know the version of HFS even with proper configuration
+
+ver: 2.2b
+propaganda
+  Bug fixes
+/propaganda
+- forged uploads were able to upload outside the assigned folder
+- sometimes importing an UTF-8 template resulted in an empty text www.rejetto.com/forum/?topic=5306
+- files with local characters were not sorted correctly
+- %item-ext% was not working with enabled "Hide file extension in listing"
+- folder was left locked after downloading it as archive  
+- incorrect behaviour accessing /~
+- incorrect handling of // in URI www.rejetto.com/forum/?topic=4969
+- incorrect behaviour adding an empty CD drives
+- bad URL for links with ?recursive www.rejetto.com/forum/?topic=5070  
+- archive for subfolders of real folders had a wrong path 
+- fixed unicode support for uploading file names
+- file icons on Windows98 broken in build #123
+- URLs to folders with no trailing / were not always redirected
+
+ver: 2.2a
+propaganda
+  Bug fixes
+/propaganda
+- a protected folder inside a folder protected by different account, was not accessible
+- occasional wrong URL building (double slash)
+- invasion of "save file system?" dialogs
+- AV upgrading
+- some files had no icon
+- no more dupe filenames if you add items to a real folder
+- "hide empty folders" was very slow 
+
+ver: 2.2
+propaganda
+  Folder archive: download a folder with 1 click
+  Anti-leeching system (download accelerators)
+  better USB drive support
+  Improved usability
+  Lot of new features
+  Many bug fixes
+/propaganda
++ Folder archive
++ smarter bandwidth division (between connections)
++ specific warning messages on some limits
++ Menu -> Limits -> "Allowed referer..." (to stop hotlinking)
++ when the port is busy, reports the name of process holding the port
++ new log file name symbol: %user% 
++ new template symbols: %build% %item-ext% %sequential% %number-addresses-ever%
++ Log menu -> "Addresses ever connected..."
++ File menu -> "Don't log"
++ Menu -> Limits -> "Prevent leeching"
++ custom symbols %sym-NAME%
++ offset and limit URL parameters 
++ main tray icon shows -> number of different IP addresses
++ main tray icon shows -> number of different IP addresses ever connected
++ CTRL A in some editors, to select the whole text
++ smarter saving prompting
++ Menu -> Virtual File System -> "Use OEM for DESCRIPT.ION"
++ failed logins are now logged, if enabled Log what -> Other events  
++ warning message after aborting file addition
++ support for dynamic path for the log
++ double (or right) clicking on statusbar: "out" opens speed limit, "vfs not saved" opens save dialog
++ speed limit is shown in the graph
++ remembers edit position for last diff template
++ introduced a workaround uploading 2GB+ files with browser not supporting it
++ \t (tab) and \n (newline) symbols supported in apache log format
++ warning on "don't include port in url"  
++ if hfs runs on a  ble drive, any file on the same drive is pointed relatively (useful for pendrives) 
++ (expert mode) Log menu -> "Clear and reset totals"
++ locks are shown also on the browser (new template symbol: %protected%)    
+* log menu -> log what -> replies  ...now disabled by default
+* log: no more "served" messages after "full downloaded"
+* Moved some File Menu items in a "Advanced" subgroup
+* big change for the ON button and the Port box
+* beta versions will check for new build every 8 hours
+- the "from stable versions to unstable" was not working with the daily check
+- "Create fingerprints" misbehaved when fingerprints were disabled  
+- problems with multi monitor
+- focus problem with options modal off 
+- "copy URL with fingerprint" now visible only for files
+- virtual file inside real folders made wrong counters
+- "Minimize to tray clicking the close button" was not working with Aero in Vista
+- removable drives were not handled correctly with real folders
+- hovering with mouse while editing a filename in vfs would stop the editing
+- clicking on statusbar may lead to the wrong dialog
+- "out of space" was shown also for disconnected drives
+- possible problem disabling "speed limit"
+- sometimes reporting "disconnected by server" while it was actually the client
+- "log icons" now filters also favicon in subfolders
+- fixed vfs corruption on loading abortion
+- file list for "/a/new a" was broken
+- user icon indexes are not fixed, breaking saved iconMasks 
+- problems with the "always on top"
+- problem with "confirm exit" and windows shutdown
+- download got corrupted if resumed after 2GB  
+- file list not working with diff template
+- file list on unexistant path now returns [not found]
+- occasional AVs 
+- freezing on listing/archiving
+- didn't save option when the system shuts down
+- access rights, beside upload rights, are now checked for uploads
+- inherited files/folders filter was not displayed in hint
+- fixed possible non standard formatting in cache commands
+- the connection was unfairly closed/reset after downloads (IE6 sometimes complaining about this)
+- complains updating  
+- graph visibility was not saved
+- bad %protected% behaviour
+- sometimes "Edit HTML template" was not working from the tray icon 
+- @anonymous restriction was considered as protection
+- using DNS updater, the IP changes when it shouldn't
+- unicode support for diff tpl
+- fix for uninstalling error
+- handle uninstall/update without only1instance
+- AV on void rename
+
+ver: 2.1d - build #088
+propaganda
+  UTF8 support improved
+  bug fixes
+/propaganda
++ Menu -> Virtual File System -> "Reset totals"
++ speed limit accepts decimal values 
+* clearing the log no longer reset totals
+* renamed: "Reset downloads" > "Reset files hits"
+* renamed: "Don't count as download" > "Don't consider as a download" 
+* renamed: "Save total in/out" > "Save totals", also saves hits/downloads/uploads, enabled by default 
+* show browser icon in address bar
+- updated template help
+- UTF8 fix for filename in progress frame (only uploading)
+- ~specials (urls with ~) didn't work with folders with "?" in the name
+- holding SHIFT and CTRL keys were undetected at startup
+- hfs.comments.txt was not used for symbol %folder-comment%
+- template import/export support for UTF8
+
+ver: 2.1d - build #086
+propaganda
+  template features: section aliasing, new symbols, graph colors, better UTF8 support
+  many bug fixes
+/propaganda
++ new template symbols: %total-downloads% %total-uploads% %total-hits% %folder-name% %time-left% %item-folder% %item-url%
++ template section aliasing, e.g. [file.gif = file.jpg = file.png]
++ Menu -> Other options -> "Default sorting"
++ dns updater: host is now automatically included in IP address list
++ graph colors customizable via URL 
++ Upgrading, prompt for saving before quitting
++ if an update attempt fails, re-use the already downloaded update
++ Menu -> Updates -> "Offer me to update from stable versions to unstable testing versions"
+* now visible in easy mode: Menu -> Upload -> "How to?"
+* improved readability in transfer progress bar  
+* renamed: "save in/out totals" > "save total in/out"
+* non-ascii option applied also inside pages
+* file menu: now hidden in easy mode: comment, icon, switch to, new link, browse it
+* file menu: rearranged and renamed some items to improve usability (let download > no download, new folder > new empty folder, copy URL > copy URL address, let browse > browsable) 
+* address bar redesigned
+* "HFS last update check.tmp" is now created as hidden, less intrusive
+* now some special files are protected with same access rights as the root folder: /~img*, /~progress, /favicon.ico
+- fixed UTF-8 support 
+- removed passwords from "show customized options"
+- dns updater: User and Host are now saved in options
+- favicon.ico now respect the "log icons" option
+- uploading, only upload rights were checked but no access rights
+- "Encode non-ASCII characters" was not working anymore
+- server refuses to turn on after a "complete" IP change 
+- fixed continous DNS update requests
+- "Max addresses downloading" was not working
+- problem fixed with no-ip
+- fixed support of special characters in folders
+- it was possible set empty name for folders   
+- possible DoS vulnerability by asking for big graph
+
+ver: 2.1c - build #071
+propaganda
+  UTF8 support
+  bug fixes
+/propaganda
++ Menu -> Upload -> "How to?"
++ support for UTF-8 templates
++ autoupdate clipboard on change ip
+- no backward compatibility for no-ip
+- "Check update: failed" every minute
+- HFS was no more working with "Persistent connections" disabled 
+- "last update check" thing works also without saving options
+
+ver: 2.1b
+propaganda
+  autocheck updates
+  bug fixes
+/propaganda
++ Menu -> Updates -> "Auto check every day"
++ new template symbol: %ip%
++ filelist.tpl is loaded at every change, not only at start
++ the "Fully downloaded" event, reports the URL
+* Build number shown in the title bar
+* SVG files are added to the default "open directly in browser"
+- edit template: same shortcut for font and find
+- solved win9x problem
+- downloaders browser was not detected
+
+ver: 2.1a
+propaganda
+  many bug fixes
+/propaganda
+* "Keep old version updating" now disabled by default
+- forged html could let upload were not allowed
+- with port different than 80 and "include password in pages" enabled, port was included twice
+- was unable to interpret no-ip response
+- problems with unicode encoding of special ascii characters
+- characters in the "UP" link were not properly encoded
+- upload is broken sometimes
+- update feature not working on 98/ME systems
+- support for 4byte unicode characters   
+- "Let download" erroneously shown for virtual folders
+
+ver: 2.1
+propaganda
+  improved usability
+  fingerprints
+  external comments
+  bind to single network interface
+  [file.EXT] sections in template
+  many bug fixes
+/propaganda
++ Menu -> "Accept connections on"
++ Menu -> Virtual File System -> "Support DESCRIPT.ION"
++ Menu -> Virtual File System -> "Adding folder"  
++ Menu -> Virtual File System -> "Icon masks..."
++ Menu -> Virtual File System -> "Enable recursive listing"  
++ Menu -> Virtual File System -> "Support Link Fingerprints"
++ Menu -> Virtual File System -> "Skip confirmation on deletion"
++ Menu -> Other options -> "Input comment on file addition"
++ Menu -> Other options -> "Show customized options"
++ Menu -> Other options -> "Use ISO date format"
++ Menu -> Other options -> "Browse using localhost" 
++ Menu -> Other options -> "Add icons..."
++ Menu -> Dynamic DNS updater -> "Disable"
++ Menu -> Fingerprints
++ Menu -> URL encoding -> "Unreadable passwords in URLs"
++ Menu -> URL encoding -> "Include password in pages"
++ Log menu -> Log what -> "Only served requests" (enabled by default)
++ File Menu -> "Copy URL with fingerprint"
++ File Menu -> "Diff template" (overlap main template)
++ File Menu -> "Hide file extention in listing"
++ File Menu -> Restrict acces -> "@anonymous"
++ File Menu -> Restrict acces -> "New account"
++ File Menu -> Upload -> Upload for accounts -> "New account"
++ File Menu -> Icon -> "New icon"
++ Self Test distinguish between router and firewall problems
++ confirm on item deletion
++ Self-test now cancelable
++ improved file/folder hints
++ improved drag&drop scrolling on VFS
++ when no port is specified and port 80 is busy, port 8080, 280, 10080 are probed (then dynamic port is used)
++ Log menu: clicking "Address 2 name" automatically fills the IP field
++ total download counter works now also for real-folders 
++ symbol ~nodefault to skip the default file 
++ command line: -a <FILENAME> (load additional ini file)
++ support browser cache command (If-Modified-Since)
++ [file.<EXT>] sections in template
++ "Copy url" now works for multiple files
++ double clicking on download tray icon brings to HFS window
++ F8 key switches easy/expert 
++ cancel folder reading if client disconnected (useful for big folders)
++ speed up folder sorting (useful for big folders)
++ template editor: customizable font and status bar 
++ sort by hits
++ added ini-commmand to be used with -a parameter: "load-tpl-from=FULLPATH"
+* template: changed default refresh time for progress frame, from 3 to 7 seconds
+* removed feature: "Visible only to anonymous users"
+* self test: clearer warning
+* Set url: old value as default
+* accept IP masks with less than 3 dots if wildcards are used
+* %up% %host% in [upload] [upload-results]
+* renamed items in "Restrict access"
+* renamed "Get passworded URL" in "Copy URL with password"
+* split "Copy URL" and "Copy URL with different address"
+* Users renamed to Accounts
+- shortcut to folders inside real-folders are unsupported, thus now are correctly not listed  
+- eliminated the lnk2frame() error message
+- using "Add to HFS" on many folders, many instances stayed open
+- messages "Cannot open clipboard" now trapped
+- ~files.lst was not protected
+- fixed and improved dns updater
+
+VER: 2.0b
+- problem with Login and IE
+
+VER: 2.0a
+propaganda
+  boosted startup download speed
+  bug fixes
+/propaganda
++ boosted startup download speed
+- problem requesting folders without including trailing slash
+- authentication didn't work for URLs http://user:pwd@host/folder (no trailing slash)
+- "file list" was not affected by "Let browse"
+- "file list" didn't work for folders with single quotes (')
+- moving a protected item, didn't paint the lock anymore
+- "get passwored url" was not working for inherited user/pass 
+- authentication didn't work for URLs http://user:pwd@host/folder (no trailing slash)
+- other minor bugfixes
+
+ver: 2.0
+propaganda
+  Upload
+  Default file mask
+  Easy/Expert mode
+  Load comments from external files
+  Dynamic DNS updater
+  IP-ranges
+  Self Test
+  Uninstall
+  Flag files added recently
+  Apache log file format
+  Autoupdate (automatic download & replace)
+  For full list check the website
+/propaganda
++ File Menu -> Upload (only for real-folders)
++ File Menu -> Default file mask
++ Easy/Expert mode
++ multiselect files
++ load comments from external files
++ support for IP-ranges (syntax FROM_ADDRESS-TO_ADDRESS)
++ you can abort loading VFS and downloading update
++ new VFS format with compression
++ warn you loading incompatible VFS formats
++ Menu -> Start/Exit -> "Only 1 instance"
++ Menu -> Other options -> "Compressed browsing"
++ Menu -> Other options -> "Delete partial uploads"
++ Menu -> Other options -> "Rename partial uploads"
++ Menu -> Other options -> "Modal dialog for options"
++ Menu -> "Self Test"
++ Menu -> "Uninstall"
++ Menu -> Virtual File System -> "Flag files added recently"
++ Menu -> Virtual File System -> "Auto-save every..."
++ Menu -> Tray icons -> The tray icon shows -> "Number of logged uploads"
++ Menu -> Start/Exit -> "Confirm exit"
++ Menu -> IP address -> "Don't include port in URL"
++ Menu -> IP address -> "Find external address"
++ Menu -> "Dynamic DNS updater"
++ Menu -> Start/Exit -> "Find external address at startup"
++ Menu -> Other options -> "Save in/out totals"
++ Menu -> Other options -> "Keep old version updating"
++ Menu -> Limits -> "Minimum disk space"
++ Menu -> Limits -> "Max contemporary downloads"
++ Menu -> Limits -> "Max contemporary downloads from single address"
++ Menu -> Limits -> "Max contemporary addresses"
++ Menu -> Limits -> "Max contemporary addresses downloading"
++ Menu -> Flash taskbutton -> "Also beep"
++ Menu -> Save options -> "Auto-save every..."
++ File Menu -> "Bind/unbind root to real-folder"
++ File Menu -> "Switch to real-folder" 
++ File Menu -> "Don't count as download"
++ File Menu -> "Flag as new"
++ File Menu -> "Reset <new> flag"
++ File Menu -> "Edit resource"
++ File Menu -> "Visible only to anonymous users"
++ File Menu -> "Let download"
++ File Menu -> "Auto-hide empty folders"
++ Log Menu -> "Do not log address"
++ Log Menu -> "Ban this address" (an address must be at caret position)
++ Log Menu -> Log what -> "Banned"
++ Log Menu -> "Apache log file format..."
++ shell context menu: checkbox instead of add/delete (moved to Other options)
++ Template editor -> Find
++ warning on many items
++ better "open folder" dialog
++ "Ignore limits" for accounts
++ Bans -> "Add/delete row" (easier to understand)
++ new HTML template symbols: you can find a full list in the included help
++ file-masks and address-masks now support inverted logic: just put "\" ahead
++ pipelined requests now supported
++ autoupdate (automatic download & replace)
++ /~progress
++ multiple custom addresses
++ new symbol in tray message: %uploads% (global uploads counter)
++ "File list" link generating a list to feed download managers
++ new symbols in the log filename for log rotation
++ username displayed (when logged in)
++ Download counter now works also for real folders
++ command line: -d X (waits at start for X tenth of second)
++ command line: -q (quit, useful with "only 1 instance")
++ command line: -i X (load/save hfs.ini in folder X)
++ average speed are logged
++ ~files.lst template can be loaded from external file "filelist.tpl"
++ first start: a dialog suggest to enable shell integration
+* hfs.ini by default saved in the same folder with hfs.exe
+* "copy URL" as submenu
+* save options -> "delete" replaced by "Clear options and quit"
+* "No tray icon for file extentions" has been removed because obsolete
+* symbol %login% renamed in %login-link%
+* new behaviour for Options dialog
+* "Abort file addition" more visible
+* "Access for users" renamed to "Restrict access"
+* "Run it" renamed to "Open it"
+* by default config is now saved in user registry
+* filetime sorts from newer to older
+- sometimes the VFS was not flagged as modified (and then not auto-saved)
+- newline problem in tray message
+- comments were limited to 255 chars
+- "Flash task button: on download" was flashing on every GET request
+- clearing the file system, no new file name was asked
+- problem downloading empty files
+- "leave disconnected connections" prevented tray icons from being removed
+- tray icons now display total percentage, to be consistent with the main window
+- fixed problems with unicode 
+- logging bytes sent/received could stuck
+- ban list was unproperly saved in configuration
+- loading a new VFS didn't discard completely old settings 
+- sometimes IE hangs after reaching 100%
+- ~files.lst showing filenames it shouldn't
+- "let browse" was not inherited by subfolders of real folders
+- set user/pass: inputing a password with empty username did not raise error
+- other minor fixes
+
+ver: 1.6a
+propaganda
+  many bug fixes
+/propaganda
+- file hints: also inherited user access were shown (while the rest shown is just local)
+- having folders URLs with no trailing slash, caused problems with some folder/browser pairs
+- users panel: you was able to enter 2 users with same username
+- sometimes DEL and CTRL+V shortcuts were lost
+- port changes were not applied to the address bar
+- Accept-Ranges was not sent
+- URL problems with non-latin characters (thanks Pavel Rus)
+
+ver: 1.6
+propaganda
+  LOGIN button (browsing)
+  support for external links in the VFS: File Menu -> `New link`
+  customizable 401 and 403 HTTP error pages
+  customizable ban page
+  faster page generation
+  more XP styled
+  support for default favicon.ico (i saw Mozilla using it)
+  new HTML template symbols
+  File hint now additionally displays: users, files/folders filter, realm
+  fixed possible DoS attack
+  4GB single file limit removed
+  many bug fixes
+/propaganda
++ LOGIN button (browsing)
++ support for external links in the VFS: File Menu -> "New link"
++ customizable 401 and 403 HTTP error pages
++ customizable ban page
++ faster page generation
++ Menu -> Other options -> "Use comment as realm"
++ Menu -> Other options -> "Login realm"
++ Menu -> Limits -> "Connection inactivity timeout"
++ Menu -> Encoding URL -> "Use UNICODE in HTML"
++ Menu -> Help -> "Introduction"
++ Menu -> Virtual File System -> "Reset hits"
++ Menu -> Virtual File System -> "Reset downloads"
++ Menu -> "Abort file addition"
++ Menu -> "Clear file system"
++ File Menu -> Icon
++ File Menu -> Switch to virtual
++ File Menu -> "Customized realm"
++ File Menu -> Access for users -> ALL/NONE
++ Log Menu -> "Log what"
++ Log Menu -> "Log on video"
++ Connections menu -> "Kick idle connections"
++ Users -> User properties: browse protected resources by user
++ complete downloads counting
++ "Time left"
++ more XP styled
++ added Reset button in "Set user/pass" dialog
++ support for default favicon.ico (i saw Mozilla using it)
++ new HTML template symbols: %total-bytes%, %total-kbytes%, %total-size%  (size of listed files)
++ File hint now additionally displays: users, files/folders filter, realm
+* connections box: merge of "IP" and "User" fields
+* connections box: "Agent" and "Start time" displayed in tip
+* folders known before as "autoupdated folders" are now "real folders", others (yellow) are "virtual folders"
+* "Get passworded URL" doesn't show password anymore
+* new "let browse" behavior
+* options saved to file by default
+* "reload open VFS" by default
+* username is now case insensitive
+- problems sending HTTP error pages
+- problems with files with corrupted timestamp
+- VFS: minor redrawing problem
+- "Hide tree" was not propagating to autoupdated folders
+- hits were not displayed (in tips) for folders
+- it is safer now during long files addition: files are locked and you can quit the program at once
+- removed a useless limit on filenames
+- drag&drop was restricted to labels area
+- inverted ban logic was not applyed on start (but after opening options window)
+- the hidden graph was reappearing after a couple of restarts
+- fixed possible DoS attack
+- 4GB single file limit removed
+- whole drives were unsupported
+- file & folder filters were not applied to subfolders
+- adding files by copy&paste caused instability
+- problems with non-virtual shared folders
+- problems with wildcards
+- other minor bugs
+
+ver: 1.5g
++ wildcards (*,?) allowed in Bans window
++ Menu -> Virtual File System -> "List files with <hidden> attribute"
++ Menu -> Virtual File System -> "List files with <system> attribute"
++ Menu -> Virtual File System -> "List protected items only for allowed users"
++ username is shown in Log and in Connections box
++ more distinction between main tray icon and download icons
++ Log Menu -> "Font"
+* moved some options here and there
+* new GIF library: made by Anders Melander
+- virtual sub-items of an autoupdated folder were listed also at deeper levels
+- log font is wrong on some systems
+- 2GB limit removed on several things (like status bar)
+- problem with HEAD requests (0 bytes)
+
+ver: 1.5f
++ Dual mode ban list: ban/allow
++ Log menu -> "Log file"
++ File Menu -> "Hide tree"
+- hang on starting
+
+ver: 1.5e
+- adding an auto-updated folder can cause AV
+- "speed limit" was not able to get over 10k/s
+
+ver: 1.5d
++ Menu -> Other Options -> "Persistent connections"
+- files remained blocked (open)
+- prevents Windows from shutting down
+
+ver: 1.5c
++ improved speed/cpu usage
++ Menu -> Other Options -> "Send HFS identifier"
+- on some systems HFS refuses to open any port for listening
+- the "no download" timeout was reset only at download start, and not downloading
+- unstable while user browsing if a "speed limit" was set
+- files bigger 2Gb+ were not handled
+- ban was not immediate
+- the check for duplicate files was case sensitive
+- AV if quit occours while uploading
+
+ver: 1.5
++ now the statusbar shows the total bytes sent
++ Menu -> Other Options -> "Users"
++ Menu -> "URL encoding"
++ Menu -> Tray Icons -> "Tray message"
++ Menu -> Other Options -> "Getright browser specific HTML"
++ Menu -> Other Options -> "Auto-save VFS on exit"
++ File Menu -> "Get passworded URL"
++ File Menu -> "Access for users"
++ File Menu -> Filters
++ File Menu -> Expand/Collapse
++ different tray icon when the server is offline
++ items can be added to an autoupdated folder
++ customizable "server full" page
++ user/pass validation on user input
++ statusbar: [not saved] appears when the VFS is edited
+- you was unable to set a local address if an internet address was available
+- "Hide" should not be available for the root item
+- other minor fixes
+
+ver: 1.5 rc6
++ IP address is checked every 10 seconds
++ HTML template: %item-added% is the item's addition time
++ items' downloads count is now saved to file
++ Menu -> Other Options -> "Reload on startup VFS file previously open"
++ Menu -> Other Options -> "MIME types"
++ Menu -> Other Options -> "Auto-copy URL on start"
+* added standard "..." to menu
+- user/pass was not saved for the root item
+- non-ascii characters were not encoded in the URL
+
+ver: 1.5 rc5
++ you can now hide the bandwidth graph
++ Connection menu -> "Pause"
++ window position is saved
++ Menu -> Other Options -> "Always on top"
++ Menu -> Tray icons -> "No tray icon for file extentions"
++ Menu -> "Auto-close"
++ switching off the server, user is asked for closing open connections
++ File Menu -> Edit
++ sorting
++ F4 switch the server on/off
++ log improved
++ customizable file-not-found page (404)
++ new template symbols: %item-modified% %item-dl-count%
++ more info on download tray icons
++ brand new html template
++ files in VFS that does not exist anymore are not listed while browsing
++ check for updates
++ browse button
++ comment is sent as message/realm to the user/password dialog (if present)
++ a padlock is displayed
++ Menu -> Limits -> "Bans"
++ Menu -> "Recent files"
++ Connection Menu -> "Ban IP address"
++ F10 shows the main menu
++ support for persistent connections (HTTP 1.1)
+* moved many options to Menu -> "Other options"
+* when drag&dropping a folder, the dialog for autoupdate is set foreground
+- problems with url-encoding for � � � � � (IE, Opera)
+- problems saving a template to registry
+- sometimes "check for update" was not working after a failure
+- CRITICAL: directory crossing was possible on autoupdating folders
+- agent was not shown for folder requests
+- problems with not-found documents (404)
+- solved possible DoS attack
+- internal GIFs were not transparent
+- password was not applied to items in autoupdated folders
+- sometimes the server button was ON when the server was OFF
+- sometimes AV on "Kick IP address"
+- sometimes the config file was saved in the wrong folder
+- fast hits cause AVs
+- several minor bugs fixed
+
+ver: 1.5 beta1
++ user/password protection
++ comments for files/folders
++ Menu -> Limits -> "Pause streaming"
++ hidden items in VFS are painted in italic
+
+ver: 1.4 beta2
++ download tray icons, now % filling
++ improved bandwidth graph
++ now you can publish files via copy&paste
++ now you can publish files via "Add files" and "Add Folder"
++ Menu -> Weblinks
+
+ver: 1.4 beta1
++ Menu -> Limits -> "Speed limit"
++ Menu -> Limits -> "Max connections", "Max connections for single address"
++ Menu -> Save options -> "Auto-save options on exit"
++ speed improvement, over 3Mb/s on my Duron@1300
++ smarter tray refresh (less CPU)
+- hiding a file, adjacent one was hidden too
+
+ver: 1.3 beta8
+- custom ip was never selected on start
+
+ver: 1.3 beta7
++ Menu -> "Use system icons"
++ Menu -> "Official website"
++ Menu -> Tray icons -> "Show main tray icon"
+* new tray icon
+- invalid mime-type was sent for GIF files
+- individual tray icons for downloads were not working
+
+ver: 1.3 beta6
+- forgot to encode blank-spaces in clipboard
+
+ver: 1.3 beta5
++ "Custom ip", now you can use yourowndomain.com
+- autoupdate folders was not applying the "Folders before" setting
+- there were problems with url-encoding for blank-space, � and "
+- some crashes may have been fixed
+
+ver: 1.3 beta4
++ added GIF support for internal images (requires JVCL library)
+* brand new html template
+- kick all connections was not working
+- html folder pages were not served for folders with 1 single item, and hidden
+
+ver: 1.3 beta3
++ added CRC checking to VFS files
+
+ver: 1.3 beta2
++ check for same filename in same folder
+* new icons
+- %folder% in template was not url-decoded
+- problems with URLs encoding
+
+ver: 1.3 beta1
++ Autoupdate folders
++ "Leave disconnected connections" in connections menu
++ smarter "agent" colum
++ Bandwidth graph
+* Loading a project the tree is not expanded
+- Problems with special characters
+- While editing the filename, Delete key deletes the file
+- "Tray icon for each download" was not saved
+- Renaming a virtual folder was not applied on the web
+
+ver: 1.2
++ "Tray icon for each download" in main menu
++ Drastic speed up on fast downloads (LAN)
+- Closing HFS with open connections causes AV
+- Fast hits cause AV
+
+ver: 1.1
++ "agent" column for connections
++ colored log
+- StarDownloader was not recognizing resume feature
+- On fast downloads (LAN), information on window was not updated
+- Resume was not always working correctly
+
+ver: 1.0
+first sane release, fully rewritten
+
+ver: 0.1
+please, forget it