Remove link to TTreeNode from TFile

README.md

@@ -1,6 +1,6 @@
-# HFS
-HTTP File Server by https://github.com/rejetto
-
-http://rejetto.com/hfs/
-
-Uses for.rnq from R&Q
+# HFS
+HTTP File Server by https://github.com/rejetto
+
+http://rejetto.com/hfs/
+
+Uses for.rnq from R&Q

RnQBuiltTime.inc

@@ -0,0 +1,2 @@
+{ 14.08.2019 13:49:44 }
+ BuiltTime = 43691.5762090162;

classesLib.pas

@@ -23,7 +23,8 @@
 interface
 
 uses
-  iniFiles, types, hslib, strUtils, sysUtils, classes, math;
+  iniFiles, types, strUtils, sysUtils, classes, math,
+  hslib, hfsGlobal;
 
 type
   TfastStringAppend = class
@@ -51,7 +52,7 @@   TiconsCache = class
     procedure put(data:string; idx:integer; time:Tdatetime);
     procedure clear();
     procedure purge(olderThan:Tdatetime);
-    function idxOf(data:shortstring):integer;
+    function idxOf(const data: string):integer;
     end;
 
   TusersInVFS = class
@@ -162,12 +163,39 @@   Ttlv = class
     function getTheRest():RawByteString;
     end;
 
+  TconnDataMain = class  // data associated to a client connection
+  public
+    address: string;   // this is address shown in the log, and it is not necessarily the same as the socket address
+    time: Tdatetime;  // connection start time
+    requestTime: Tdatetime; // last request start time
+    { 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;
+    limiter: TspeedLimiter;
+    acceptedCredentials: boolean;
+    usr, pwd: string;
+    account: Paccount;
+    session,
+    vars, // defined by {.set.}
+    urlvars,  // as $_GET in php
+    postVars  // as $_POST in php
+      : THashedStringList;
+    tpl: Ttpl;
+    tplCounters: TstringToIntHash;
+    downloadingWhat: TdownloadingWhat;
+    disconnectReason: string;
+    uploadFailed: string; // reason (empty on success)
+    lastActivityTime: Tdatetime;
+  end;
+
 implementation
 
 uses
+  windows, dateUtils, forms, ansiStrings,
   RDFileUtil, RDUtils,
-  ansiStrings,
-  utilLib, main, windows, dateUtils, forms;
+  utilLib, hfsVars;
 
 constructor TperIp.create();
 begin
@@ -274,7 +302,7 @@ function TusersInVFS.match(usr, pwd:string):boolean;
 
 //////////// TiconsCache
 
-function TiconsCache.idxOf(data:shortstring):integer;
+function TiconsCache.idxOf(const data: string):integer;
 var
   b, e, c: integer;
 begin

clear.bat

@@ -1,14 +1,14 @@
-@IF EXIST "*.~*" del *.~*
-@IF EXIST "*.dcu" del *.dcu
-@IF EXIST "*.ddp" del *.ddp
-@IF EXIST "*.ppu" del *.ppu
-@IF EXIST "*.o" del *.o
-@IF EXIST "*.bak" del *.bak
-@IF EXIST "*.identcache " del *.identcache 
-@IF EXIST ".\Units\*.dcu" del .\Units\*.dcu
-@IF EXIST "Prefs\__history\*" del /q Prefs\__history\*
-@IF EXIST "Prefs\*.bak" del /q Prefs\*.bak
-@IF EXIST "Prefs\*.dcu" del /q Prefs\*.dcu
-@IF EXIST "__history\*" del /q __history\*
-
+@IF EXIST "*.~*" del *.~*
+@IF EXIST "*.dcu" del *.dcu
+@IF EXIST "*.ddp" del *.ddp
+@IF EXIST "*.ppu" del *.ppu
+@IF EXIST "*.o" del *.o
+@IF EXIST "*.bak" del *.bak
+@IF EXIST "*.identcache " del *.identcache 
+@IF EXIST ".\Units\*.dcu" del .\Units\*.dcu
+@IF EXIST "Prefs\__history\*" del /q Prefs\__history\*
+@IF EXIST "Prefs\*.bak" del /q Prefs\*.bak
+@IF EXIST "Prefs\*.dcu" del /q Prefs\*.dcu
+@IF EXIST "__history\*" del /q __history\*
+
 @rem exit

compressHFS.bat

@@ -0,0 +1,2 @@
+@copy hfs.exe "HFS300_RD.exe"
+upx.exe -9 --lzma "HFS300_RD.exe"

deprecated.txt

@@ -1,18 +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]
-
+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]
+

developer notes.txt

@@ -1,27 +1,27 @@
-=== 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
-
-=== 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
-
+=== 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
+
+=== 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
+

diffDlg.dfm

@@ -1,27 +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
+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

diffDlg.pas

@@ -1,25 +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.
+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.