mirror of
https://github.com/rejetto/hfs2.git
synced 2025-12-19 18:13:46 +01:00
Compare commits
No commits in common. "master" and "v2.4-alpha11" have entirely different histories.
master
...
v2.4-alpha
4
.gitignore
vendored
4
.gitignore
vendored
@ -3,13 +3,11 @@ __history/
|
||||
__recovery/
|
||||
win32/
|
||||
.vscode/
|
||||
.idea/
|
||||
*.vfs
|
||||
*.dcu
|
||||
*.exe
|
||||
*.map
|
||||
*.tmp
|
||||
*.dll
|
||||
*.bak
|
||||
*.*-
|
||||
*.corrupted
|
||||
@ -17,5 +15,3 @@ hfs.ini
|
||||
hfs.identcache
|
||||
hfs.tpl
|
||||
hfs_project.tvsconfig
|
||||
data.res
|
||||
macros-log.html
|
||||
28
README.md
28
README.md
@ -1,26 +1,2 @@
|
||||
# Obsolete
|
||||
This is the repository of the old HFS.
|
||||
|
||||
I'm working on HFS 3 on another repository. Check it out!
|
||||
https://github.com/rejetto/hfs
|
||||
|
||||
## Introduction
|
||||
You can use HFS (HTTP File Server) to send and receive files.
|
||||
It's different from classic file sharing because it uses web technology.
|
||||
It also differs from classic web servers because it's very easy to use and runs "right out-of-the box".
|
||||
|
||||
The virtual file system will allow you to easily share even one single file.
|
||||
|
||||
## Dev notes
|
||||
Initially developed in 2002 with Delphi 6, now with Delphi 10.3.3 (Community Edition).
|
||||
Icons are generated at http://fontello.com/ . Use fontello.json for further modifications.
|
||||
|
||||
For the default template we are targeting compatibility with Chrome 49 as it's the latest version running on Windows XP.
|
||||
|
||||
Warning: Delphi Community Edition 10.4 removed support for command-line compilation, and is thus unable to compile JEDI Code Library, and is thus unable to compile HFS2, ref [Community Edition no longer includes the command-line compilers](https://blogs.embarcadero.com/delphi-cbuilder-community-editions-now-available-in-version-10-4-2/#comment-1339) - meaning the last version of Community Edition cabale of compiling HFS2 is Delphi 10.3.x
|
||||
|
||||
## Libs used
|
||||
- [ICS v8.64](http://www.overbyte.be) by François PIETTE
|
||||
- [TRegExpr v0.952b](https://github.com/andgineer/TRegExpr/releases) by Andrey V. Sorokin
|
||||
- [JEDI Code Library v2.7](https://github.com/project-jedi/jcl)
|
||||
- [Kryvich's Delphi Localizer v4.1](http://sites.google.com/site/kryvich)
|
||||
Work in progress.
|
||||
Currently porting version 2.4 to Delphi 10.
|
||||
|
||||
368
classesLib.pas
368
classesLib.pas
@ -1,5 +1,5 @@
|
||||
{
|
||||
Copyright (C) 2002-2020 Massimo Melina (www.rejetto.com)
|
||||
Copyright (C) 2002-2012 Massimo Melina (www.rejetto.com)
|
||||
|
||||
This file is part of HFS ~ HTTP File Server.
|
||||
|
||||
@ -23,20 +23,9 @@ unit classesLib;
|
||||
interface
|
||||
|
||||
uses
|
||||
iniFiles, types, hslib, strUtils, sysUtils, classes, math, system.Generics.Collections,
|
||||
OverbyteIcsWSocket, OverbyteIcshttpProt;
|
||||
iniFiles, types, hslib, strUtils, sysUtils, classes, math;
|
||||
|
||||
type
|
||||
TantiDos = class
|
||||
protected
|
||||
accepted: boolean;
|
||||
Paddress: string;
|
||||
public
|
||||
constructor create;
|
||||
destructor Destroy; override;
|
||||
function accept(conn:ThttpConn; address:string=''):boolean;
|
||||
end;
|
||||
|
||||
TfastStringAppend = class
|
||||
protected
|
||||
buff: string;
|
||||
@ -99,7 +88,6 @@ type
|
||||
constructor create;
|
||||
destructor Destroy; override;
|
||||
function addFile(src:string; dst:string=''; data:Tobject=NIL):boolean; virtual;
|
||||
function contains(src:string):boolean;
|
||||
function count():integer;
|
||||
procedure reset(); virtual;
|
||||
property totalSize:int64 read getTotal;
|
||||
@ -135,10 +123,6 @@ type
|
||||
function getHashFor(fn:string):string;
|
||||
end;
|
||||
|
||||
Tint2int = Tdictionary<integer,integer>;
|
||||
Tstr2str = Tdictionary<string,string>;
|
||||
Tstr2pointer = Tdictionary<string,pointer>;
|
||||
|
||||
TstringToIntHash = class(ThashedStringList)
|
||||
constructor create;
|
||||
function getInt(s:string):integer;
|
||||
@ -150,7 +134,7 @@ type
|
||||
PtplSection = ^TtplSection;
|
||||
TtplSection = record
|
||||
name, txt: string;
|
||||
nolog, public, noList, cache: boolean;
|
||||
nolog, nourl, cache: boolean;
|
||||
ts: Tdatetime;
|
||||
end;
|
||||
|
||||
@ -159,15 +143,17 @@ type
|
||||
src: string;
|
||||
lastExt, // cache for getTxtByExt()
|
||||
last: record section:string; idx:integer; end; // cache for getIdx()
|
||||
fileExts: TStringDynArray;
|
||||
strTable: THashedStringList;
|
||||
fOver: Ttpl;
|
||||
sections: Tstr2pointer;
|
||||
function getIdx(section:string):integer;
|
||||
function getTxt(section:string):string;
|
||||
function newSection(section:string):PtplSection;
|
||||
procedure fromString(txt:string);
|
||||
procedure setOver(v:Ttpl);
|
||||
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;
|
||||
@ -175,7 +161,7 @@ type
|
||||
property over:Ttpl read fOver write setOver;
|
||||
function sectionExist(section:string):boolean;
|
||||
function getTxtByExt(fileExt:string):string;
|
||||
function getSection(section:string; inherit:boolean=TRUE):PtplSection;
|
||||
function getSection(section:string):PtplSection;
|
||||
function getSections():TStringDynArray;
|
||||
procedure appendString(txt:string);
|
||||
function getStrByID(id:string):string;
|
||||
@ -201,12 +187,6 @@ type
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
ThttpClient = class(TSslHttpCli)
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
class function createURL(url:string):ThttpClient;
|
||||
end;
|
||||
|
||||
Ttlv = class
|
||||
protected
|
||||
cur, bound: integer;
|
||||
@ -232,94 +212,6 @@ implementation
|
||||
uses
|
||||
utilLib, main, windows, dateUtils, forms;
|
||||
|
||||
const folderConcurrents: integer = 0;
|
||||
const MAX_CONCURRENTS = 3;
|
||||
const ip2availability: Tdictionary<string,Tdatetime> = NIL;
|
||||
|
||||
constructor TantiDos.create();
|
||||
begin
|
||||
accepted:=FALSE;
|
||||
end;
|
||||
|
||||
function TantiDos.accept(conn:ThttpConn; address:string=''):boolean;
|
||||
|
||||
procedure reject();
|
||||
resourcestring
|
||||
MSG_ANTIDOS_REPLY = 'Please wait, server busy';
|
||||
begin
|
||||
conn.reply.mode:=HRM_OVERLOAD;
|
||||
conn.addHeader(ansistring('Refresh: '+intToStr(1+random(2)))); // random for less collisions
|
||||
conn.reply.body:=UTF8Encode(MSG_ANTIDOS_REPLY);
|
||||
end;
|
||||
|
||||
begin
|
||||
if address= '' then
|
||||
address:=conn.address;
|
||||
if ip2availability = NIL then
|
||||
ip2availability:=Tdictionary<string,Tdatetime>.create();
|
||||
try
|
||||
if ip2availability[address] > now() then // this specific address has to wait?
|
||||
begin
|
||||
reject();
|
||||
exit(FALSE);
|
||||
end;
|
||||
except
|
||||
end;
|
||||
if folderConcurrents >= MAX_CONCURRENTS then // max number of concurrent folder loading, others are postponed
|
||||
begin
|
||||
reject();
|
||||
exit(FALSE);
|
||||
end;
|
||||
inc(folderConcurrents);
|
||||
Paddress:=address;
|
||||
ip2availability.AddOrSetValue(address, now()+1/HOURS);
|
||||
accepted:=TRUE;
|
||||
Result:=TRUE;
|
||||
end;
|
||||
|
||||
destructor TantiDos.Destroy;
|
||||
var
|
||||
pair: Tpair<string,Tdatetime>;
|
||||
t: Tdatetime;
|
||||
begin
|
||||
if not accepted then
|
||||
exit;
|
||||
t:=now();
|
||||
if folderConcurrents = MAX_CONCURRENTS then // serving multiple addresses at max capacity, let's give a grace period for others
|
||||
ip2availability[Paddress]:=t + 1/SECONDS
|
||||
else
|
||||
ip2availability.Remove(Paddress);
|
||||
dec(folderConcurrents);
|
||||
// purge leftovers
|
||||
for pair in ip2availability do
|
||||
if pair.Value < t then
|
||||
ip2availability.Remove(pair.Key);
|
||||
end;
|
||||
|
||||
class function ThttpClient.createURL(url:string):ThttpClient;
|
||||
begin
|
||||
if startsText('https://', url)
|
||||
and not httpsCanWork() then
|
||||
exit(NIL);
|
||||
result:=ThttpClient.Create(NIL);
|
||||
result.URL:=url;
|
||||
end;
|
||||
|
||||
constructor ThttpClient.create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
followRelocation:=TRUE;
|
||||
agent:=HFS_HTTP_AGENT;
|
||||
SslContext := TSslContext.Create(NIL);
|
||||
end; // create
|
||||
|
||||
destructor ThttpClient.Destroy;
|
||||
begin
|
||||
SslContext.free;
|
||||
SslContext:=NIl;
|
||||
inherited destroy;
|
||||
end;
|
||||
|
||||
constructor TperIp.create();
|
||||
begin
|
||||
limiter:=TspeedLimiter.create();
|
||||
@ -525,16 +417,6 @@ if cachedTotal < 0 then calculate();
|
||||
result:=cachedTotal;
|
||||
end; // getTotal
|
||||
|
||||
function TarchiveStream.contains(src:string):boolean;
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
for i:=0 to Length(flist)-1 do
|
||||
if flist[i].src = src then
|
||||
exit(TRUE);
|
||||
result:=FALSE;
|
||||
end;
|
||||
|
||||
function TarchiveStream.addFile(src:string; dst:string=''; data:Tobject=NIL):boolean;
|
||||
|
||||
function getMtime(fh:Thandle):int64;
|
||||
@ -620,7 +502,10 @@ end; // reset
|
||||
function TtarStream.fsInit():boolean;
|
||||
begin
|
||||
if assigned(fs) and (fs.FileName = flist[cur].src) then
|
||||
exit(TRUE);
|
||||
begin
|
||||
result:=TRUE;
|
||||
exit;
|
||||
end;
|
||||
result:=FALSE;
|
||||
try
|
||||
freeAndNIL(fs);
|
||||
@ -859,12 +744,10 @@ var
|
||||
|
||||
var
|
||||
i, posBak: int64;
|
||||
n: integer;
|
||||
begin
|
||||
posBak:=pos;
|
||||
p:=@buffer;
|
||||
n:=length(flist);
|
||||
while (count > 0) and (cur < n) do
|
||||
while (count > 0) and (cur < length(flist)) do
|
||||
case where of
|
||||
TW_HEADER:
|
||||
begin
|
||||
@ -986,14 +869,13 @@ end; // autoupdatedFiles_getCounter
|
||||
|
||||
constructor Ttpl.create(txt:string=''; over:Ttpl=NIL);
|
||||
begin
|
||||
sections:=Tstr2pointer.Create();
|
||||
fullText:=txt;
|
||||
self.over:=over;
|
||||
end;
|
||||
|
||||
destructor Ttpl.destroy;
|
||||
begin
|
||||
fullText:=''; // this will cause the disposing
|
||||
freeAndNIL(strTable);
|
||||
inherited;
|
||||
end; // destroy
|
||||
|
||||
@ -1009,50 +891,106 @@ if (result = '') and assigned(over) then
|
||||
result:=over.getStrByID(id)
|
||||
end; // getStrByID
|
||||
|
||||
function Ttpl.newSection(section:string):PtplSection;
|
||||
function Ttpl.getIdx(section:string):integer;
|
||||
begin
|
||||
new(result);
|
||||
sections.Add(section, result);
|
||||
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:=assigned(getSection(section));
|
||||
result:=getIdx(section)>=0;
|
||||
if not result and assigned(over) then
|
||||
result:=over.sectionExist(section);
|
||||
end;
|
||||
|
||||
function Ttpl.getSection(section:string; inherit:boolean=TRUE):PtplSection;
|
||||
function Ttpl.getSection(section:string):PtplSection;
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
if sections.containsKey(section) then
|
||||
result:=sections[section]
|
||||
else
|
||||
result:=NIL;
|
||||
if inherit and assigned(over) and (result = NIL) then
|
||||
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 p: PtplSection;
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
p:=getSection(section);
|
||||
if p = NIL then
|
||||
result:=''
|
||||
i:=getIdx(section);
|
||||
if i >= 0 then
|
||||
result:=sections[i].txt
|
||||
else if assigned(over) then
|
||||
result:=over[section]
|
||||
else
|
||||
result:=p.txt
|
||||
result:=''
|
||||
end; // getTxt
|
||||
|
||||
function Ttpl.getTxtByExt(fileExt:string):string;
|
||||
begin result:=getTxt('file'+fileExt) end;
|
||||
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_(ansistring(fileExts[i+1]));
|
||||
lastExt.idx:=i;
|
||||
result:=sections[i].txt;
|
||||
end; // getTxtByExt
|
||||
|
||||
procedure Ttpl.fromString(txt:string);
|
||||
var
|
||||
p: PtplSection;
|
||||
begin
|
||||
src:='';
|
||||
for p in sections.values do
|
||||
dispose(p);
|
||||
sections.clear();
|
||||
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);
|
||||
@ -1092,53 +1030,13 @@ var
|
||||
end; // findNextSection
|
||||
|
||||
procedure saveInSection();
|
||||
var
|
||||
base: TtplSection;
|
||||
|
||||
function parseFlagsAndAcceptSection(flags:TStringDynArray):boolean;
|
||||
var
|
||||
f, k, v, s: string;
|
||||
i: integer;
|
||||
begin
|
||||
for f in flags do
|
||||
begin
|
||||
i:=pos('=',f);
|
||||
if i = 0 then
|
||||
begin
|
||||
if f='no log' then
|
||||
base.nolog:=TRUE
|
||||
else if f='public' then
|
||||
base.public:=TRUE
|
||||
else if f='no list' then
|
||||
base.noList:=TRUE
|
||||
else if f='cache' then
|
||||
base.cache:=TRUE;
|
||||
Continue;
|
||||
end;
|
||||
k:=copy(f,1,i-1);
|
||||
v:=copy(f,i+1,MAXINT);
|
||||
if k = 'build' then
|
||||
begin
|
||||
s:=chop('-',v);
|
||||
if (v > '') and (VERSION_BUILD > v) // max
|
||||
or (s > '') and (VERSION_BUILD < s) then // min
|
||||
exit(FALSE);
|
||||
end
|
||||
else if k = 'ver' then
|
||||
if fileMatch(v, VERSION) then continue
|
||||
else exit(FALSE)
|
||||
else if k = 'template' then
|
||||
if fileMatch(v, getTill(#13,getTxt('template id'))) then continue
|
||||
else exit(FALSE)
|
||||
end;
|
||||
result:=TRUE;
|
||||
end;
|
||||
|
||||
var
|
||||
ss: TStringDynArray;
|
||||
s, si: string;
|
||||
s: string;
|
||||
i, si: integer;
|
||||
base: TtplSection;
|
||||
till: pchar;
|
||||
append, prepend, add: boolean;
|
||||
append: boolean;
|
||||
sect, from: PtplSection;
|
||||
begin
|
||||
till:=pred(bos);
|
||||
@ -1146,49 +1044,47 @@ var
|
||||
if till^ = #10 then dec(till);
|
||||
if till^ = #13 then dec(till);
|
||||
|
||||
base:=default(TtplSection);
|
||||
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();
|
||||
ss:=split('|',cur_section);
|
||||
cur_section:=popString(ss);
|
||||
if not parseFlagsAndAcceptSection(ss) then
|
||||
exit;
|
||||
|
||||
prepend:=startsStr('^', cur_section);
|
||||
append:=startsStr('+', cur_section);
|
||||
add:=prepend or append;
|
||||
if add then
|
||||
delete(cur_section,1,1);
|
||||
s:=cur_section;
|
||||
append:=ansiStartsStr('+', s);
|
||||
if append then
|
||||
delete(s,1,1);
|
||||
|
||||
// there may be several section names separated by =
|
||||
ss:=split('=', cur_section);
|
||||
ss:=split('=', s);
|
||||
// handle the main section specific case
|
||||
if ss = NIL then
|
||||
addString('', ss);
|
||||
if ss = NIL then addString('', ss);
|
||||
// assign to every name the same txt
|
||||
for si in ss do
|
||||
for i:=0 to length(ss)-1 do
|
||||
begin
|
||||
s:=trim(si);
|
||||
sect:=getSection(s, FALSE);
|
||||
s:=trim(ss[i]);
|
||||
si:=getIdx(s);
|
||||
from:=NIL;
|
||||
if sect = NIL then // not found
|
||||
if si < 0 then // not found
|
||||
begin
|
||||
if add then
|
||||
if append then
|
||||
from:=getSection(s);
|
||||
sect:=newSection(s);
|
||||
end
|
||||
else
|
||||
if add then
|
||||
begin
|
||||
sect:=@sections[si];
|
||||
if append then
|
||||
from:=sect;
|
||||
end;
|
||||
if from<>NIL then
|
||||
begin // inherit from it
|
||||
if append then
|
||||
sect.txt:=from.txt+base.txt
|
||||
else
|
||||
sect.txt:=base.txt+CRLF+from.txt;
|
||||
sect.txt:=from.txt+base.txt;
|
||||
sect.nolog:=from.nolog or base.nolog;
|
||||
sect.public:=from.public or base.public;
|
||||
sect.noList:=from.noList or base.noList;
|
||||
sect.nourl:=from.nourl or base.nourl;
|
||||
continue;
|
||||
end;
|
||||
sect^:=base;
|
||||
@ -1197,12 +1093,13 @@ var
|
||||
end; // saveInSection
|
||||
|
||||
const
|
||||
UTF8_BOM = #$EF#$BB#$BF;
|
||||
BOM = #$EF#$BB#$BF;
|
||||
var
|
||||
first: boolean;
|
||||
begin
|
||||
if ansiStartsStr(UTF8_BOM, txt) then
|
||||
delete(txt, 1, length(UTF8_BOM));
|
||||
// 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;
|
||||
@ -1229,7 +1126,14 @@ fOver:=v;
|
||||
end; // setOver
|
||||
|
||||
function Ttpl.getSections():TStringDynArray;
|
||||
begin result:=sections.Keys.ToArray() end;
|
||||
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;
|
||||
@ -1248,8 +1152,8 @@ function Ttlv.pop(var value:string; var raw:ansistring):integer;
|
||||
var
|
||||
n: integer;
|
||||
begin
|
||||
if isOver() then
|
||||
exit(-1); // finished
|
||||
result:=-1;
|
||||
if isOver() then exit; // finished
|
||||
result:=integer((@whole[cur])^);
|
||||
n:=Pinteger(@whole[cur+4])^;
|
||||
raw:=copy(whole, cur+8, n);
|
||||
@ -1268,7 +1172,10 @@ function Ttlv.down():boolean;
|
||||
begin
|
||||
// do we have anything to recur on?
|
||||
if (cur = 1) then
|
||||
exit(FALSE);
|
||||
begin
|
||||
result:=false;
|
||||
exit;
|
||||
end;
|
||||
// push into the stack
|
||||
if (stackTop = length(stack)) then // space over
|
||||
setLength(stack, stackTop+10); // make space
|
||||
@ -1285,7 +1192,10 @@ end; // down
|
||||
function Ttlv.up():boolean;
|
||||
begin
|
||||
if stackTop = 0 then
|
||||
exit(FALSE);
|
||||
begin
|
||||
result:=false;
|
||||
exit;
|
||||
end;
|
||||
dec(stackTop);
|
||||
bound:=stack[stackTop];
|
||||
dec(stackTop);
|
||||
|
||||
1
country.cache
Normal file
1
country.cache
Normal file
@ -0,0 +1 @@
|
||||
127.0.0.1=(Private Address) (XX)
|
||||
4
data.rc
4
data.rc
@ -1,7 +1,11 @@
|
||||
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
|
||||
IPservices TEXT ipservices.txt
|
||||
jquery TEXT jquery.min.js
|
||||
|
||||
1052
default.tpl
1052
default.tpl
File diff suppressed because one or more lines are too long
4
defs.inc
4
defs.inc
@ -1,6 +1,4 @@
|
||||
{$A+,B-,C+,E-,F-,G+,H+,I-,J+,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,X+,Y+,Z1}
|
||||
|
||||
{$DEFINE NOT STABLE }
|
||||
{$DEFINE STABLE }
|
||||
{$IFDEF STABLE }
|
||||
{$ASSERTIONS OFF}
|
||||
{$ELSE}
|
||||
|
||||
8
developer notes.txt
Normal file
8
developer notes.txt
Normal file
@ -0,0 +1,8 @@
|
||||
Initially developed with Delphi 6, now with Delphi 10.3.3
|
||||
|
||||
Icons are generated at http://fontello.com/ . Use fontello.json for further modifications.
|
||||
|
||||
=== LIBS USED
|
||||
ICS v8.58 by François PIETTE http://www.overbyte.be
|
||||
GIFimage v2.2r5 by Anders Melander http://www.tolderlund.eu/delphi/
|
||||
TRegExpr v0.952 by Andrey V. Sorokin http://www.regexpstudio.com/TRegExpr/TRegExpr.html
|
||||
133
hfs.dof
Normal file
133
hfs.dof
Normal file
@ -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
|
||||
5
hfs.dpr
5
hfs.dpr
@ -25,7 +25,6 @@ uses
|
||||
{$IFDEF EX_DEBUG}
|
||||
ftmExceptionForm,
|
||||
{$ENDIF }
|
||||
uFreeLocalizer,
|
||||
monoLib,
|
||||
Forms,
|
||||
windows,
|
||||
@ -95,14 +94,14 @@ begin
|
||||
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);
|
||||
|
||||
26
hfs.dproj
26
hfs.dproj
@ -206,31 +206,31 @@
|
||||
</Platforms>
|
||||
<ModelSupport>False</ModelSupport>
|
||||
<Deployment Version="3">
|
||||
<DeployFile LocalName="hfs.dpr" Configuration="Release" Class="ProjectFile">
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>.\</RemoteDir>
|
||||
<Enabled>false</Enabled>
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="hfs.exe" Configuration="Debug" Class="ProjectOutput">
|
||||
<Platform Name="Win32">
|
||||
<RemoteName>hfs.exe</RemoteName>
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="hfs.exe" Configuration="Release" 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>
|
||||
<DeployFile LocalName="hfs.dpr" Configuration="Release" Class="ProjectFile">
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>.\</RemoteDir>
|
||||
<Enabled>false</Enabled>
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="hfs.exe" Configuration="Release" Class="ProjectOutput">
|
||||
<Platform Name="Win32">
|
||||
<RemoteName>hfs.exe</RemoteName>
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployClass Name="AdditionalDebugSymbols">
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
|
||||
185
hfs.dsk
Normal file
185
hfs.dsk
Normal file
@ -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
|
||||
|
||||
3
hfs.events
Normal file
3
hfs.events
Normal file
@ -0,0 +1,3 @@
|
||||
[+download]
|
||||
{.remove header|ETag.}
|
||||
{.remove header|Set-cookie.}
|
||||
763
hfs.lng
763
hfs.lng
@ -1,763 +0,0 @@
|
||||
; Kryvich's Delphi Localizer Language File.
|
||||
; Generated by K.D.L. Scanner, 02/08/2020 18:30:32
|
||||
|
||||
Humanize=1
|
||||
HumanizedCR=\^
|
||||
HumanizedCRLF=\+
|
||||
HumanizedLF=\#10
|
||||
|
||||
[TdiffFrm]
|
||||
Caption=Customized options
|
||||
|
||||
[TfilepropFrm]
|
||||
Caption=filepropFrm
|
||||
pages.permTab.Caption=Permissions
|
||||
pages.permTab.actionTabs.newaccBtn.Caption=New account
|
||||
pages.permTab.actionTabs.anyAccChk.Caption=Any account
|
||||
pages.permTab.actionTabs.anonChk.Caption=Anonymous
|
||||
pages.permTab.actionTabs.allBtn.Caption=All / None
|
||||
pages.permTab.actionTabs.anyoneChk.Caption=Anyone
|
||||
pages.permTab.actionTabs.goToAccountsBtn.Caption=Manage accounts
|
||||
pages.flagsTab.Caption=Flags
|
||||
pages.flagsTab.hiddenChk.Hint=Test
|
||||
pages.flagsTab.hiddenChk.Caption=Hidden
|
||||
pages.flagsTab.hidetreeChk.Caption=Recursively hidden
|
||||
pages.flagsTab.archivableChk.Caption=Archivable
|
||||
pages.flagsTab.browsableChk.Caption=Browsable
|
||||
pages.flagsTab.dontlogChk.Caption=Don't log
|
||||
pages.flagsTab.nodlChk.Caption=No download
|
||||
pages.flagsTab.dontconsiderChk.Caption=Don't consider as download
|
||||
pages.flagsTab.hideemptyChk.Caption=Auto-hide empty folders
|
||||
pages.flagsTab.hideextChk.Caption=Hide file extension in listing
|
||||
pages.diffTab.Caption=Diff template
|
||||
pages.diffTab.difftplBox.Hint=Here you can put a partial template that will overlap the main one.
|
||||
pages.commentTab.Caption=Comment
|
||||
pages.maskTab.Caption=File masks
|
||||
pages.maskTab.filesfilterBox.EditLabel.Caption=Files filter
|
||||
pages.maskTab.foldersfilterBox.EditLabel.Caption=Folders filter
|
||||
pages.maskTab.deffileBox.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.
|
||||
pages.maskTab.deffileBox.EditLabel.Caption=Default file mask
|
||||
pages.maskTab.uploadfilterBox.Hint=Uploaded files are allowed only complying with this file mask
|
||||
pages.maskTab.uploadfilterBox.EditLabel.Caption=Upload filter mask
|
||||
pages.maskTab.dontconsiderBox.Hint=Files matching this filemask are not considered for global downloads counter. Moreover they never get tray icon.
|
||||
pages.maskTab.dontconsiderBox.EditLabel.Caption=Don't consider as download (mask)
|
||||
pages.otherTab.Caption=Other
|
||||
pages.otherTab.Label1.Caption=Icon
|
||||
pages.otherTab.realmBox.Hint=The realm string is shown on the user/pass dialog of the browser. This realm will be used for selected files and their descendants.
|
||||
pages.otherTab.realmBox.EditLabel.Caption=Realm
|
||||
pages.otherTab.addiconBtn.Caption=Add new...
|
||||
Panel1.okBtn.Caption=&OK
|
||||
Panel1.cancelBtn.Caption=Cancel
|
||||
Panel1.applyBtn.Caption=&Apply
|
||||
|
||||
[TfolderKindFrm]
|
||||
Caption=What kind of folder do you want?
|
||||
realLbl.Caption=A real folder is faster, good for big folders
|
||||
virtuaLbl.Caption=A virtual folder is easier, good for small folders
|
||||
hintLbl.Caption=Not sure? Hint: most time you need real folders!
|
||||
realBtn.Caption=&Real folder
|
||||
virtuaBtn.Caption=&Virtual folder
|
||||
|
||||
[TipsEverFrm]
|
||||
Caption=Addresses ever connected
|
||||
totalLbl.Caption=Total label...
|
||||
resetBtn.Caption=&Reset
|
||||
editBtn.Caption=&Open in editor
|
||||
|
||||
[TlistSelectFrm]
|
||||
Panel1.okBtn.Caption=&OK
|
||||
Panel1.cancelBtn.Caption=&Cancel
|
||||
|
||||
[TlonginputFrm]
|
||||
Caption=longinputFrm
|
||||
bottomPnl.okBtn.Caption=&OK
|
||||
bottomPnl.cancelBtn.Caption=&Cancel
|
||||
topPnl.msgLbl.Caption=test
|
||||
inputBox.Lines.Strings=Memo1
|
||||
|
||||
[TmainFrm]
|
||||
Caption=HFS ~ HTTP File Server
|
||||
graphBox.Hint=Pink = Out\+Yellow = In
|
||||
topToolbar.Caption=topToolbar
|
||||
topToolbar.menuBtn.Hint=Hit ALT or F10 to pop it up
|
||||
topToolbar.menuBtn.Caption=Menu
|
||||
topToolbar.ToolButton4.Caption=ToolButton4
|
||||
topToolbar.portBtn.Caption=Port: any
|
||||
topToolbar.ToolButton2.Caption=ToolButton2
|
||||
topToolbar.modeBtn.Hint=Click to switch\+F5 on keyboard
|
||||
topToolbar.modeBtn.Caption=You are in Easy mode
|
||||
topToolbar.ToolButton1.Caption=ToolButton1
|
||||
topToolbar.startBtn.Hint=Click to switch ON\^F4 on keyboard
|
||||
topToolbar.startBtn.Caption=Server is currently OFF
|
||||
topToolbar.abortBtn.Caption=Abort file addition
|
||||
topToolbar.restoreCfgBtn.Caption=Restore my options
|
||||
topToolbar.updateBtn.Caption=Update now
|
||||
urlToolbar.browseBtn.Caption=Open in browser
|
||||
urlToolbar.copyBtn.Caption=Copy to clipboard
|
||||
centralPnl.logPnl.logTitle.titlePnl.Caption=Log
|
||||
centralPnl.logPnl.logTitle.logToolbar.collapsedPnl.expandBtn.Hint=Expand toolbar
|
||||
centralPnl.logPnl.logTitle.logToolbar.expandedPnl.openFilteredLog.Hint=Copy to editor only lines matched by the search pattern
|
||||
centralPnl.logPnl.logTitle.logToolbar.expandedPnl.openLogBtn.Hint=Copy to editor
|
||||
centralPnl.logPnl.logTitle.logToolbar.expandedPnl.collapseBtn.Hint=Collapse toolbar
|
||||
centralPnl.logPnl.logTitle.logToolbar.expandedPnl.searchPnl.logSearchBox.Hint=Wildcards allowed
|
||||
centralPnl.logPnl.logTitle.logToolbar.expandedPnl.searchPnl.logSearchBox.EditLabel.Caption=Search
|
||||
centralPnl.filesPnl.Caption=filesPnl
|
||||
centralPnl.filesPnl.filesTitle.Caption=Virtual File System
|
||||
centralPnl.connPnl.connBox.Columns.(0).Caption=IP address
|
||||
centralPnl.connPnl.connBox.Columns.(1).Caption=File
|
||||
centralPnl.connPnl.connBox.Columns.(2).Caption=Status
|
||||
centralPnl.connPnl.connBox.Columns.(3).Caption=Speed
|
||||
centralPnl.connPnl.connBox.Columns.(4).Caption=Time left
|
||||
centralPnl.connPnl.connBox.Columns.(5).Caption=Progress
|
||||
filemenu.Addfiles1.Caption=Add files...
|
||||
filemenu.Addfolder1.Caption=Add folder from disk...
|
||||
filemenu.newfolder1.Caption=New empty folder
|
||||
filemenu.Newlink1.Caption=New link
|
||||
filemenu.Remove1.Caption=Remove
|
||||
filemenu.Rename1.Caption=Rename
|
||||
filemenu.Paste1.Caption=Paste
|
||||
filemenu.Editresource1.Caption=Edit resource...
|
||||
filemenu.CopyURL1.Caption=Copy URL address
|
||||
filemenu.CopyURL1.Hint=just double click!
|
||||
filemenu.CopyURLwithpassword1.Caption=Copy URL with password
|
||||
filemenu.CopyURLwithdifferentaddress1.Caption=Copy URL with different host address
|
||||
filemenu.CopyURLwithfingerprint1.Caption=Copy URL with fingerprint
|
||||
filemenu.Browseit1.Caption=Browse it
|
||||
filemenu.SetURL1.Caption=Set URL...
|
||||
filemenu.Openit1.Caption=Open it
|
||||
filemenu.Flagasnew1.Caption=Flag as new
|
||||
filemenu.Resetnewflag1.Caption=Reset <new> flag
|
||||
filemenu.Setuserpass1.Caption=Set user/pass...
|
||||
filemenu.Resetuserpass1.Caption=Reset user/pass
|
||||
filemenu.Purge1.Caption=Purge...
|
||||
filemenu.Switchtovirtual1.Caption=Change to virtual-folder
|
||||
filemenu.Switchtorealfolder1.Caption=Change to real-folder
|
||||
filemenu.Bindroottorealfolder1.Caption=Bind root to real-folder
|
||||
filemenu.Unbindroot1.Caption=Unbind root
|
||||
filemenu.Defaultpointtoaddfiles1.Caption=Default point to add files
|
||||
filemenu.Properties1.Caption=Properties...
|
||||
menu.SelfTest1.Caption=Self Test
|
||||
menu.Showbandwidthgraph1.Caption=Show bandwidth graph
|
||||
menu.Otheroptions1.Caption=Other options
|
||||
menu.Otheroptions1.switchMode.Caption=Switch to expert mode
|
||||
menu.Otheroptions1.Accounts1.Caption=User accounts...
|
||||
menu.Otheroptions1.Shellcontextmenu1.Caption=Integrate in shell context menu
|
||||
menu.Otheroptions1.AutocopyURLonadditionChk.Caption=Auto-copy URL on addition
|
||||
menu.Otheroptions1.alwaysontopChk.Caption=Always on top
|
||||
menu.Otheroptions1.sendHFSidentifierChk.Caption=Send HFS identifier
|
||||
menu.Otheroptions1.persistentconnectionsChk.Caption=Persistent connections
|
||||
menu.Otheroptions1.DMbrowserTplChk.Caption=Specific HTML for download managers
|
||||
menu.Otheroptions1.Graphrefreshrate1.Caption=Graph refresh rate...
|
||||
menu.Otheroptions1.MIMEtypes1.Caption=MIME types...
|
||||
menu.Otheroptions1.Opendirectlyinbrowser1.Caption=Open directly in browser...
|
||||
menu.Otheroptions1.freeLoginChk.Caption=Accept any login for unprotected resources
|
||||
menu.Otheroptions1.usecommentasrealmChk.Caption=Use comment as realm
|
||||
menu.Otheroptions1.Loginrealm1.Caption=Login realm...
|
||||
menu.Otheroptions1.HintsfornewcomersChk.Caption=Hints for newcomers
|
||||
menu.Otheroptions1.compressedbrowsingChk.Caption=Compressed browsing
|
||||
menu.Otheroptions1.modalOptionsChk.Caption=Modal dialog for options
|
||||
menu.Otheroptions1.useISOdateChk.Caption=Use ISO date format
|
||||
menu.Otheroptions1.browseUsingLocalhostChk.Caption=Browse using localhost
|
||||
menu.Otheroptions1.enableNoDefaultChk.Caption=Enable ~nodefault
|
||||
menu.Otheroptions1.preventStandbyChk.Caption=Prevent system standby on network activity
|
||||
menu.Otheroptions1.Addicons1.Caption=Add icons...
|
||||
menu.Otheroptions1.Changeport1.Caption=Change port...
|
||||
menu.Otheroptions1.autoCommentChk.Caption=Input comment on file addition
|
||||
menu.Otheroptions1.Defaultsorting1.Caption=Default sorting
|
||||
menu.Otheroptions1.Defaultsorting1.Name1.Caption=Name
|
||||
menu.Otheroptions1.Defaultsorting1.Extension1.Caption=Extension
|
||||
menu.Otheroptions1.Defaultsorting1.Size1.Caption=Size
|
||||
menu.Otheroptions1.Defaultsorting1.Time1.Caption=Time
|
||||
menu.Otheroptions1.Defaultsorting1.Hits1.Caption=Hits
|
||||
menu.Otheroptions1.Editeventscripts1.Caption=Edit event scripts...
|
||||
menu.Otheroptions1.oemTarChk.Caption=OEM file names for TAR archives
|
||||
menu.HTMLtemplate1.Caption=HTML template
|
||||
menu.HTMLtemplate1.Edit1.Caption=Edit...
|
||||
menu.HTMLtemplate1.Changefile1.Caption=Change file...
|
||||
menu.HTMLtemplate1.Changeeditor1.Caption=Change editor...
|
||||
menu.HTMLtemplate1.Restoredefault1.Caption=Restore default
|
||||
menu.HTMLtemplate1.enableMacrosChk.Caption=Enable macros
|
||||
menu.Upload2.Caption=Upload
|
||||
menu.Upload2.Howto1.Caption=How to?
|
||||
menu.Upload2.deletePartialUploadsChk.Caption=Delete partial uploads
|
||||
menu.Upload2.Renamepartialuploads1.Caption=Rename partial uploads...
|
||||
menu.Upload2.numberFilesOnUploadChk.Caption=Number files on upload instead of overwriting
|
||||
menu.StartExit1.Caption=Start/Exit
|
||||
menu.StartExit1.autocopyURLonstartChk.Caption=Auto-copy URL on start
|
||||
menu.StartExit1.startminimizedChk.Caption=Start minimized
|
||||
menu.StartExit1.reloadonstartupChk.Caption=Reload on startup VFS file previously open
|
||||
menu.StartExit1.saveTotalsChk.Caption=Save totals
|
||||
menu.StartExit1.autosaveVFSchk.Caption=Auto-save VFS on exit
|
||||
menu.StartExit1.Autoclose1.Caption=Auto-close
|
||||
menu.StartExit1.Autoclose1.Nodownloadtimeout1.Caption=No download timeout...
|
||||
menu.StartExit1.only1instanceChk.Caption=Only 1 instance
|
||||
menu.StartExit1.confirmexitChk.Caption=Confirm exit
|
||||
menu.StartExit1.findExtOnStartupChk.Caption=Find external address on startup
|
||||
menu.StartExit1.RunHFSwhenWindowsstarts1.Caption=Run HFS when Windows starts
|
||||
menu.StartExit1.trayInsteadOfQuitChk.Caption=Minimize to tray clicking the close button [ X ]
|
||||
menu.StartExit1.quitWithoutAskingToSaveChk.Caption=Force quitting (no dialogs)
|
||||
menu.VirtualFileSystem1.Caption=Virtual File System
|
||||
menu.VirtualFileSystem1.foldersbeforeChk.Caption=Folders before
|
||||
menu.VirtualFileSystem1.linksBeforeChk.Caption=Links before
|
||||
menu.VirtualFileSystem1.usesystemiconsChk.Caption=Use system icons
|
||||
menu.VirtualFileSystem1.loadSingleCommentsChk.Caption=Load single comment files
|
||||
menu.VirtualFileSystem1.supportDescriptionChk.Caption=Support DESCRIPT.ION
|
||||
menu.VirtualFileSystem1.oemForIonChk.Caption=Use OEM for DESCRIPT.ION
|
||||
menu.VirtualFileSystem1.recursiveListingChk.Caption=Enable recursive listing
|
||||
menu.VirtualFileSystem1.deleteDontAskChk.Caption=Skip confirmation on deletion
|
||||
menu.VirtualFileSystem1.listfileswithhiddenattributeChk.Caption=List files with <hidden> attribute
|
||||
menu.VirtualFileSystem1.listfileswithsystemattributeChk.Caption=List files with <system> attribute
|
||||
menu.VirtualFileSystem1.hideProtectedItemsChk.Caption=List protected items only for allowed users
|
||||
menu.VirtualFileSystem1.Iconmasks1.Caption=Icon masks...
|
||||
menu.VirtualFileSystem1.Flagfilesaddedrecently1.Caption=Flag files added recently...
|
||||
menu.VirtualFileSystem1.Autosaveevery1.Caption=Auto-save every...
|
||||
menu.VirtualFileSystem1.backupSavingChk.Caption=Backup on save
|
||||
menu.VirtualFileSystem1.Addingfolder1.Caption=Adding folder
|
||||
menu.VirtualFileSystem1.Addingfolder1.askFolderKindChk.Caption=Ask
|
||||
menu.VirtualFileSystem1.Addingfolder1.defaultToVirtualChk.Caption=Default to virtual-folder
|
||||
menu.VirtualFileSystem1.Addingfolder1.defaultToRealChk.Caption=Default to real-folder
|
||||
menu.VirtualFileSystem1.Resetfileshits1.Caption=Reset files hits
|
||||
menu.VirtualFileSystem1.Resettotals1.Caption=Reset totals
|
||||
menu.Limits1.Caption=Limits
|
||||
menu.Limits1.Speedlimit1.Caption=Speed limit (disabled)...
|
||||
menu.Limits1.Speedlimitforsingleaddress1.Caption=Speed limit for single address...
|
||||
menu.Limits1.Pausestreaming1.Caption=Pause streaming
|
||||
menu.Limits1.Pausestreaming1.Hint=Sets speed limit temporarily to zero
|
||||
menu.Limits1.maxDLs1.Caption=Max simultaneous downloads...
|
||||
menu.Limits1.maxDLsIP1.Caption=Max simultaneous downloads from single address...
|
||||
menu.Limits1.maxIPs1.Caption=Max simultaneous addresses...
|
||||
menu.Limits1.maxIPsDLing1.Caption=Max simultaneous addresses downloading...
|
||||
menu.Limits1.Maxconnections1.Caption=Max connections...
|
||||
menu.Limits1.Maxconnectionsfromsingleaddress1.Caption=Max connections from single address...
|
||||
menu.Limits1.Connectionsinactivitytimeout1.Caption=Connections inactivity timeout...
|
||||
menu.Limits1.BannedIPaddresses1.Caption=Bans...
|
||||
menu.Limits1.Minimumdiskspace1.Caption=Minimum disk space...
|
||||
menu.Limits1.preventLeechingChk.Caption=Prevent leeching (download accelerators)
|
||||
menu.Limits1.Allowedreferer1.Caption=Allowed referer...
|
||||
menu.Limits1.stopSpidersChk.Caption=Stop spiders
|
||||
menu.Flashtaskbutton1.Caption=Flash taskbutton
|
||||
menu.Flashtaskbutton1.onDownloadChk.Caption=On download
|
||||
menu.Flashtaskbutton1.onconnectionChk.Caption=On connection
|
||||
menu.Flashtaskbutton1.never1.Caption=Never
|
||||
menu.Flashtaskbutton1.beepChk.Caption=Also beep
|
||||
menu.Fingerprints1.Caption=Fingerprints
|
||||
menu.Fingerprints1.fingerprintsChk.Caption=Enabled
|
||||
menu.Fingerprints1.saveNewFingerprintsChk.Caption=Save new calculated fingerprints
|
||||
menu.Fingerprints1.Createfingerprintonaddition1.Caption=Create fingerprint on file addition...
|
||||
menu.trayicons1.Caption=Tray icons
|
||||
menu.trayicons1.MinimizetotrayChk.Caption=Minimize to tray
|
||||
menu.trayicons1.showmaintrayiconChk.Caption=Show main tray icon
|
||||
menu.trayicons1.hetrayiconshows1.Caption=Main icon shows
|
||||
menu.trayicons1.hetrayiconshows1.Numberofcurrentconnections1.Caption=Number of current connections
|
||||
menu.trayicons1.hetrayiconshows1.Numberofloggeddownloads1.Caption=Number of logged downloads
|
||||
menu.trayicons1.hetrayiconshows1.Numberofloggeduploads1.Caption=Number of logged uploads
|
||||
menu.trayicons1.hetrayiconshows1.Numberofloggedhits1.Caption=Number of logged hits
|
||||
menu.trayicons1.hetrayiconshows1.NumberofdifferentIPaddresses1.Caption=Number of different IP addresses now connected
|
||||
menu.trayicons1.hetrayiconshows1.NumberofdifferentIPaddresseseverconnected1.Caption=Number of different IP addresses ever connected
|
||||
menu.trayicons1.traymessage1.Caption=Tray message...
|
||||
menu.trayicons1.trayfordownloadChk.Caption=Tray icon for each download
|
||||
menu.IPaddress1.Caption=&IP address
|
||||
menu.IPaddress1.hisIPaddressisusedforURLbuilding1.Caption=This IP address is used only for URL building
|
||||
menu.IPaddress1.Custom1.Caption=Custom...
|
||||
menu.IPaddress1.noPortInUrlChk.Caption=Don't include port in URL
|
||||
menu.IPaddress1.Findexternaladdress1.Caption=Find external address
|
||||
menu.IPaddress1.searchbetteripChk.Caption=Constantly search for better address
|
||||
menu.Acceptconnectionson1.Caption=Accept connections on
|
||||
menu.Acceptconnectionson1.Anyaddress1.Caption=Any address
|
||||
menu.DynamicDNSupdater1.Caption=Dynamic DNS updater
|
||||
menu.DynamicDNSupdater1.CJBtemplate1.Caption=CJB wizard...
|
||||
menu.DynamicDNSupdater1.NoIPtemplate1.Caption=No-IP wizard...
|
||||
menu.DynamicDNSupdater1.DynDNStemplate1.Caption=DynDNS wizard...
|
||||
menu.DynamicDNSupdater1.Custom2.Caption=Custom...
|
||||
menu.DynamicDNSupdater1.Seelastserverresponse1.Caption=See last server response...
|
||||
menu.DynamicDNSupdater1.Disable1.Caption=Disable
|
||||
menu.URLencoding1.Caption=URL encoding
|
||||
menu.URLencoding1.encodeSpacesChk.Caption=Encode spaces
|
||||
menu.URLencoding1.encodenonasciiChk.Caption=Encode non-ASCII characters
|
||||
menu.URLencoding1.pwdInPagesChk.Caption=Include password in pages (for download managers)
|
||||
menu.URLencoding1.httpsUrlsChk.Caption=URLs starting with https instead of http
|
||||
menu.Debug1.Caption=De&bug
|
||||
menu.Debug1.resetOptions1.Caption=Temporarily reset options
|
||||
menu.Debug1.dumpTrafficChk.Caption=Dump traffic
|
||||
menu.Debug1.Showcustomizedoptions1.Caption=Show customized options...
|
||||
menu.Debug1.highSpeedChk.Caption=Experimental high speed handling
|
||||
menu.Debug1.macrosLogChk.Caption=Enable macros.log
|
||||
menu.Debug1.Runscript1.Caption=Run script...
|
||||
menu.Debug1.showMemUsageChk.Caption=Show memory usage
|
||||
menu.Debug1.noContentdispositionChk.Caption=No Content-disposition
|
||||
menu.Updates1.Caption=Updates
|
||||
menu.Updates1.Checkforupdates1.Caption=Check for news/updates
|
||||
menu.Updates1.updateDailyChk.Caption=Auto check every day
|
||||
menu.Updates1.keepBakUpdatingChk.Caption=Keep old version
|
||||
menu.Updates1.testerUpdatesChk.Caption=Updates from official to beta versions
|
||||
menu.Updates1.updateAutomaticallyChk.Caption=Update automatically
|
||||
menu.Updates1.delayUpdateChk.Caption=Delay update to serve last requests
|
||||
menu.Updates1.Reverttopreviousversion1.Caption=Revert to previous version
|
||||
menu.Donate1.Caption=Donate!
|
||||
menu.Addfiles2.Caption=Add files...
|
||||
menu.Addfolder2.Caption=Add folder from disk...
|
||||
menu.Loadfilesystem1.Caption=Load file system...
|
||||
menu.Loadrecentfiles1.Caption=Load recent files
|
||||
menu.Savefilesystem1.Caption=Save file system...
|
||||
menu.Clearfilesystem1.Caption=Clear file system
|
||||
menu.Saveoptions1.Caption=Save options
|
||||
menu.Saveoptions1.tofile1.Caption=to file
|
||||
menu.Saveoptions1.toregistrycurrentuser1.Caption=to registry (current user)
|
||||
menu.Saveoptions1.toregistryallusers1.Caption=to registry (all users)
|
||||
menu.Saveoptions1.Clearoptionsandquit1.Caption=Clear options and quit
|
||||
menu.Saveoptions1.autoSaveOptionsChk.Caption=Auto-save options
|
||||
menu.Help1.Caption=Help
|
||||
menu.Help1.Introduction1.Caption=Introduction
|
||||
menu.Help1.Guide1.Caption=Full Guide
|
||||
menu.Help1.FAQ1.Caption=F.A.Q.
|
||||
menu.Weblinks1.Caption=Web links
|
||||
menu.Weblinks1.Officialwebsite1.Caption=Official website
|
||||
menu.Weblinks1.Forum1.Caption=Forum
|
||||
menu.Weblinks1.License1.Caption=License
|
||||
menu.UninstallHFS1.Caption=Uninstall HFS
|
||||
menu.About1.Caption=About...
|
||||
menu.SwitchON1.Caption=Switch ON
|
||||
menu.Restore1.Caption=Restore
|
||||
menu.Exit1.Caption=Exit
|
||||
connmenu.Kickconnection1.Caption=Kick connection
|
||||
connmenu.KickIPaddress1.Caption=Kick IP address
|
||||
connmenu.Kickallconnections1.Caption=Kick all connections
|
||||
connmenu.Kickidleconnections1.Caption=Kick idle connections
|
||||
connmenu.BanIPaddress1.Caption=Ban IP address
|
||||
connmenu.Pause1.Caption=Pause (download-only)
|
||||
connmenu.Viewhttprequest1.Caption=View http request
|
||||
connmenu.trayiconforeachdownload1.Caption=Tray icon for each download
|
||||
logmenu.Logwhat1.Caption=Log what
|
||||
logmenu.Logwhat1.LogtimeChk.Caption=Time
|
||||
logmenu.Logwhat1.LogdateChk.Caption=Date
|
||||
logmenu.Logwhat1.logBrowsingChk.Caption=Browsing
|
||||
logmenu.Logwhat1.LogiconsChk.Caption=Icons
|
||||
logmenu.Logwhat1.logProgressChk.Caption=Progress
|
||||
logmenu.Logwhat1.logBannedChk.Caption=Banned
|
||||
logmenu.Logwhat1.logOnlyServedChk.Caption=Only served requests
|
||||
logmenu.Logwhat1.logOtherEventsChk.Caption=Other events
|
||||
logmenu.Logwhat1.logOtherEventsChk.Hint=Like dynamic dns updating...
|
||||
logmenu.Logwhat1.logconnectionsChk.Caption=Connections
|
||||
logmenu.Logwhat1.logDisconnectionsChk.Caption=Disconnections
|
||||
logmenu.Logwhat1.logRequestsChk.Caption=Requests
|
||||
logmenu.Logwhat1.DumprequestsChk.Caption=Requests dump
|
||||
logmenu.Logwhat1.logRepliesChk.Caption=Replies
|
||||
logmenu.Logwhat1.logFulldownloadsChk.Caption=Full downloads
|
||||
logmenu.Logwhat1.logUploadsChk.Caption=Uploads
|
||||
logmenu.Logwhat1.logDeletionsChk.Caption=Deletions
|
||||
logmenu.Logwhat1.logBytesreceivedChk.Caption=Bytes received
|
||||
logmenu.Logwhat1.logBytessentChk.Caption=Bytes sent
|
||||
logmenu.Logwhat1.logServerstartChk.Caption=Server start
|
||||
logmenu.Logwhat1.logServerstopChk.Caption=Server stop
|
||||
logmenu.logOnVideoChk.Caption=Log to screen
|
||||
logmenu.Logfile1.Caption=Log to file...
|
||||
logmenu.Maxlinesonscreen1.Caption=Max lines on screen...
|
||||
logmenu.Apachelogfileformat1.Caption=Apache log file format...
|
||||
logmenu.Donotlogaddress1.Caption=Do not log address...
|
||||
logmenu.Dontlogsomefiles1.Caption=Do not log some files...
|
||||
logmenu.Address2name1.Caption=Assign name to address...
|
||||
logmenu.Font1.Caption=Font...
|
||||
logmenu.tabOnLogFileChk.Caption=Tabbed instead of multi-line for the log file
|
||||
logmenu.Readonly1.Caption=Read-only
|
||||
logmenu.Banthisaddress1.Caption=Ban this address
|
||||
logmenu.Copy1.Caption=Copy
|
||||
logmenu.Clear1.Caption=Clear
|
||||
logmenu.Clearandresettotals1.Caption=Clear and reset totals
|
||||
logmenu.Save1.Caption=Save
|
||||
logmenu.Saveas1.Caption=Save as...
|
||||
logmenu.Addresseseverconnected1.Caption=Addresses ever connected...
|
||||
graphMenu.Reset1.Caption=Reset
|
||||
graphMenu.Hide.Caption=Hide
|
||||
|
||||
[TnewuserpassFrm]
|
||||
Caption=Insert the requested user/pass
|
||||
userBox.EditLabel.Caption=Username
|
||||
pwdBox.EditLabel.Caption=Password
|
||||
pwd2Box.EditLabel.Caption=Re-type password
|
||||
okBtn.Caption=&Ok
|
||||
resetBtn.Caption=&Reset
|
||||
|
||||
[ToptionsFrm]
|
||||
Caption=Options
|
||||
pageCtrl.bansPage.Caption=Bans
|
||||
pageCtrl.bansPage.Panel1.addBtn.Caption=Add row
|
||||
pageCtrl.bansPage.Panel1.deleteBtn.Caption=Delete row
|
||||
pageCtrl.bansPage.Panel1.sortBanBtn.Caption=Sort
|
||||
pageCtrl.bansPage.bansBox.TitleCaptions.Strings=IP address mask\^Comment
|
||||
pageCtrl.bansPage.Panel3.noreplybanChk.Caption=Disconnect with no reply
|
||||
pageCtrl.bansPage.Panel3.Button1.Caption=How to invert the logic?
|
||||
pageCtrl.accountsPage.Caption=Accounts
|
||||
pageCtrl.accountsPage.Label1.Caption=Account list
|
||||
pageCtrl.accountsPage.Label7.Hint=You also need to right click on the folder, then restrict access
|
||||
pageCtrl.accountsPage.Label7.Caption=WARNING: creating an account is not enough to protect your files...
|
||||
pageCtrl.accountsPage.accountpropGrp.Caption=Account properties
|
||||
pageCtrl.accountsPage.accountpropGrp.Label3.Caption=Here you can see protected resources this user can access...
|
||||
pageCtrl.accountsPage.accountpropGrp.Label8.Caption=Notes
|
||||
pageCtrl.accountsPage.accountpropGrp.accountenabledChk.Caption=&Enabled
|
||||
pageCtrl.accountsPage.accountpropGrp.ignoreLimitsChk.Caption=&Ignore limits
|
||||
pageCtrl.accountsPage.accountpropGrp.pwdBox.EditLabel.Caption=&Password
|
||||
pageCtrl.accountsPage.accountpropGrp.redirBox.EditLabel.Caption{1}=After login, redirect to
|
||||
pageCtrl.accountsPage.accountpropGrp.accountLinkBox.EditLabel.Caption=Member of
|
||||
pageCtrl.accountsPage.accountpropGrp.groupChk.Caption=&Group
|
||||
pageCtrl.accountsPage.accountpropGrp.groupsBtn.Caption=Choose...
|
||||
pageCtrl.accountsPage.accountpropGrp.notesWrapChk.Caption=Wrap
|
||||
pageCtrl.accountsPage.deleteaccountBtn.Caption=de&lete
|
||||
pageCtrl.accountsPage.renaccountBtn.Caption=&rename
|
||||
pageCtrl.accountsPage.addaccountBtn.Caption=ad&d
|
||||
pageCtrl.accountsPage.upBtn.Caption=&up
|
||||
pageCtrl.accountsPage.downBtn.Caption=do&wn
|
||||
pageCtrl.accountsPage.sortBtn.Caption=sort
|
||||
pageCtrl.mimePage.Caption=MIME types
|
||||
pageCtrl.mimePage.mimeBox.TitleCaptions.Strings=File Mask\^MIME Description
|
||||
pageCtrl.mimePage.Panel5.addMimeBtn.Caption=Add row
|
||||
pageCtrl.mimePage.Panel5.deleteMimeBtn.Caption=Delete row
|
||||
pageCtrl.mimePage.Panel5.inBrowserIfMIMEchk.Caption=Open directly in browser when MIME type is defined
|
||||
pageCtrl.trayPage.Caption=Tray Message
|
||||
pageCtrl.trayPage.Label2.Caption=You can customize the message in the tray icon tip. \+The message length is determined by your Windows version\+(in XP the limit is 127 characters including spaces).\+Available symbols:\+\+ %uptime% - server uptime\+ %url% - server main URL\+ %ip% - IP address set as default\+ %port% - Port on which the server is listening\+ %hits% - number of requests made to the server\+ %downloads% - number of files downloaded\+ %version% - HFS version
|
||||
pageCtrl.trayPage.Label10.Caption=Preview
|
||||
pageCtrl.trayPage.traymsgBox.Lines.Strings=traymsgBox
|
||||
pageCtrl.a2nPage.Caption=Address2name
|
||||
pageCtrl.a2nPage.Panel4.Label4.Caption=You can associate a label to an address (or many addresses). It will be used in the log.
|
||||
pageCtrl.a2nPage.Panel4.deleteA2Nbtn.Caption=&Delete row
|
||||
pageCtrl.a2nPage.Panel4.addA2Nbtn.Caption=Add &row
|
||||
pageCtrl.a2nPage.a2nBox.TitleCaptions.Strings=Name\^IP Mask
|
||||
pageCtrl.iconsPage.Caption=Icon masks
|
||||
pageCtrl.iconsPage.Label5.Caption=Each line is a file-mask associated with an icon
|
||||
pageCtrl.iconsPage.Label6.Caption=Icon associated
|
||||
Panel2.okBtn.Caption=&OK
|
||||
Panel2.applyBtn.Caption=&Apply
|
||||
Panel2.cancelBtn.Caption=&Cancel
|
||||
|
||||
[TpurgeFrm]
|
||||
Caption=Purge options
|
||||
Label1.Caption=Choose what to remove...
|
||||
rmFilesChk.Caption=Non-existent files
|
||||
rmRealFoldersChk.Caption=Non-existent real folders
|
||||
rmEmptyFoldersChk.Caption=Empty folders
|
||||
Button1.Caption=&Ok
|
||||
Button2.Caption=&Cancel
|
||||
|
||||
[TrunScriptFrm]
|
||||
Caption=Run script
|
||||
resultBox.Lines.Strings=Write your script in the external editor, then click Run.\^In this box will see the result of the script you run.
|
||||
Panel1.sizeLbl.Caption=Size: 0
|
||||
Panel1.runBtn.Caption=&Run
|
||||
Panel1.autorunChk.Caption=&Auto run at every saving
|
||||
|
||||
[TshellExtFrm]
|
||||
Caption=Option...
|
||||
Panel1.Label1.Caption=Do you want HFS in your shell context menu?
|
||||
Panel1.Button1.Caption=&Yes
|
||||
Panel1.Button2.Caption=&No
|
||||
|
||||
[ResourceStrings]
|
||||
64656_main_MSG_NUM_ADDR=In this moment there are %d different addresses
|
||||
64657_main_MSG_NUM_ADDR_DL=In this moment there are %d different addresses downloading
|
||||
64658_main_MSG_MAX_LINES=Max lines on screen.
|
||||
64659_main_MSG_APACHE_LOG_FMT=Apache log file format
|
||||
64660_main_MSG_APACHE_LOG_FMT_LONG=Here you can specify how to format the log file complying Apache standard.\^Leave blank to get bare copy of screen on file.\^\^Example:\^ %h %l %u %t "%r" %>s %b
|
||||
64661_main_MSG_ICONS_ADDED=%d new icons added
|
||||
64662_main_MSG_DDNS_DISABLED=Dynamic DNS updater disabled
|
||||
64663_main_MSG_MD5_WARN=This option creates an .md5 file for every new calculated fingerprint.\^Use with care to get not your disk invaded by these files.
|
||||
64664_main_MSG_AUTO_MD5=Auto fingerprint
|
||||
64665_main_MSG_AUTO_MD5_LONG=When you add files and no fingerprint is found, it is calculated.\^To avoid long waitings, set a limit to file size (in KiloBytes).\^Leave empty to disable, and have no fingerprint created.
|
||||
64666_main_MSG_UPL_HOWTO=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.
|
||||
64672_main_MSG_EVENTS_HLP=For help on how to use this file please refer http://www.rejetto.com/wiki/?title=HFS:_Event_scripts
|
||||
64673_main_MSG_EDIT_RES=Edit resource
|
||||
64674_main_MSG_TPL_USE_MACROS=The current template is using macros.\^Do you want to cancel this action?
|
||||
64675_main_REMOVE_SHELL=Remove from shell context menu
|
||||
64676_main_S_OFF=Switch OFF
|
||||
64677_main_S_ON{1}=Switch ON
|
||||
64678_main_LOG=Log
|
||||
64679_main_MSG_RE_NOIP=You are invited to re-insert your No-IP configuration, otherwise the updater won't work as expected.
|
||||
64680_main_MSG_TRAY_DEF=%ip%\^Uptime: %uptime%\^Downloads: %downloads%
|
||||
64681_main_MSG_CLEAN_START=Clean start
|
||||
64682_main_MSG_RESTORE_BAK=A file system backup has been created for a system shutdown.\^Do you want to restore this backup?
|
||||
64683_main_MSG_EXT_ADDR_FAIL=Search for external address failed
|
||||
64684_main_MSG_TO_EXPERT=Switch to expert mode.
|
||||
64685_main_MSG_DONT_LOG_HINT=Select the files/folder you don't want to be logged,\^then right click and select "Don't log".
|
||||
64686_main_MSG_DL_PERC=Downloading %d%%
|
||||
64687_main_MSG_UNINSTALL_WARN=Delete HFS and all settings?
|
||||
64688_main_MSG_SELF_3=You may be behind a router or firewall.
|
||||
64689_main_MSG_SELF_6=You are behind a router.\^Ensure it is configured to forward port %s to your computer.
|
||||
64690_main_MSG_SELF_7=You may be behind a firewall.\^Ensure nothing is blocking HFS.
|
||||
64691_main_MSG_RET_EXT=Retrieving external address...
|
||||
64692_main_MSG_SELF_CANT_ON=Unable to switch the server on
|
||||
64693_main_MSG_SELF_CANT_LIST=Self test cannot be performed because HFS was configured to accept connections only on 127.0.0.1
|
||||
64694_main_MSG_SELF_CANT_S=Self test doesn't support HTTPS.\^It's likely it won't work.
|
||||
64695_main_MSG_SELF_ING=Self testing...
|
||||
64696_main_MSG_TEST_CANC=Test cancelled
|
||||
64697_main_MSG_TEST_INET=Testing internet connection...
|
||||
64698_main_MSG_SELF_UNAV=Sorry, the test is unavailable at the moment
|
||||
64699_main_MSG_SELF_NO_INET=Your internet connection does not work
|
||||
64700_main_MSG_SELF_NO_ANSWER=The test failed: server does not answer.
|
||||
64701_main_MSG_OPEN_BROW=Open directly in browser
|
||||
64702_main_MSG_OPEN_BROW_LONG="Suggest" the browser to open directly the specified files.\^Other files should pop up a save dialog.
|
||||
64703_main_MSG_HIDE_PORT=You should not use this option unless you really know its meaning.\^Continue?
|
||||
64704_main_MSG_RESET_TOT=Do you want to reset total in/out?
|
||||
64705_main_MSG_DISAB_FIND_EXT=This option makes pointless the option "Find external address at startup", which has now been disabled for your convenience.
|
||||
64706_main_MSG_ENT_URL=Enter URL
|
||||
64707_main_MSG_ENT_URL_LONG=Enter URL for updating.\^%ip% will be translated to your external IP.
|
||||
64708_main_MSG_ENT_USR=Enter user
|
||||
64709_main_MSG_ENT_PWD=Enter password
|
||||
64710_main_MSG_ENT_HOST=Enter host
|
||||
64711_main_MSG_ENT_HOST_LONG=Enter domain (full form!)
|
||||
64712_main_MSG_HOST_FORM=Please, enter it in the FULL form, with dots
|
||||
64713_main_MSG_MIN_SPACE=Min disk space
|
||||
64714_main_MSG_MIN_SPACE_LONG=The upload will fail if your disk has less than the specified amount of free MegaBytes.
|
||||
64715_main_MSG_REN_PART=Rename partial uploads
|
||||
64716_main_MSG_REN_PART_LONG=This string will be appended to the filename.\^\^If you need more control, enter a string with %name% in it, and this symbol will be replaced by the original filename.
|
||||
64717_main_MSG_SELF_BEFORE=Here you can test if your server does work on the Internet.\^If you are not interested in serving files over the Internet, this is NOT for you.\^\^We'll now perform a test involving network activity.\^In order to complete this test, you may need to allow HFS's activity in your firewall, by clicking Allow on the warning prompt.\^\^WARNING: for the duration of the test, all ban rules and limits on the number of connections won't apply.
|
||||
64718_main_MSG_SELF_OK=The test is successful. The server should be working fine.
|
||||
64719_main_MSG_SELF_OK_PORT=Port %s is not working, but another working port has been found and set: %s.
|
||||
64720_main_MSG_LOG_FILE=Log file
|
||||
64721_main_MSG_LOG_FILE_LONG=This function does not save any previous information to the log file.\^Instead, it saves all information that appears in the log box in real-time (from when you click "OK", below).\^Specify a filename for the log.\^If you leave the filename blank, no log file is saved.\^\^Here are some symbols you can use in the filename to split the log:\^ %d% -- day of the month (1..31)\^ %m% -- month (1..12)\^ %y% -- year (2000..)\^ %dow% -- day of the week (0..6)\^ %w% -- week of the year (1..53)\^ %user% -- username surrounded by parenthesis
|
||||
64722_main_MSG_SET_URL=Set URL
|
||||
64723_main_MSG_SET_URL_LONG=Please insert an URL for the link\^\^Do not forget to specify http:// or whatever.\^%%ip%% will be translated to your address
|
||||
64724_main_MSG_REALM=Login realm
|
||||
64725_main_MSG_REALM_LONG=The realm string is shown on the user/pass dialog of the browser.\^Here you can customize the realm for the login button
|
||||
64726_main_MSG_INACT_TIMEOUT=Connection inactivity timeout
|
||||
64727_main_MSG_INACT_TIMEOUT_LONG=The connection is kicked after a timeout.\^Specify in seconds.\^Leave blank to get no timeout.
|
||||
64728_main_MSG_CHANGES_LOST=All changes will be lost\^Continue?
|
||||
64729_main_MSG_FLAG_NEW=Flag new files
|
||||
64730_main_MSG_FLAG_NEW_LONG=Enter the number of MINUTES files stay flagged from their addition.\^Leave blank to disable.
|
||||
64731_main_MSG_DONT_LOG_MASK=Do not log address
|
||||
64732_main_MSG_DONT_LOG_MASK_LONG=Any event from the following IP address mask will be not logged.
|
||||
64733_main_MSG_CUST_IP=Custom IP addresses
|
||||
64734_main_MSG_CUST_IP_LONG=Specify your addresses, each per line
|
||||
64735_main_MSG_NO_EXT_IP=Can't find external address\^( %s )
|
||||
64736_main_MSG_TENTH_SEC=Tenths of second
|
||||
64737_main_MSG_LOADING_VFS=Loading VFS
|
||||
64738_main_MSG_VFS_OLD=This file is old and uses different settings.\^The "let browse" folder option will be reset.\^Re-saving the file will update its format.
|
||||
64739_main_MSG_UNK_FK=This file has been created with a newer version.\^Some data was discarded because unknown.\^If you save the file now, the discarded data will NOT be saved.
|
||||
64740_main_MSG_VIS_ONLY_ANON=This VFS file uses the "Visible only to anonymous users" feature.\^This feature is not available anymore.\^You can achieve similar results by restricting access to @anonymous,\^then enabling "List protected items only for allowed users".
|
||||
64741_main_MSG_AUTO_DISABLED=Because of the problems encountered in loading,\^automatic saving has been disabled\^until you save manually or load another one.
|
||||
64742_main_MSG_CORRUPTED=This file does not contain valid data.
|
||||
64743_main_MSG_MACROS_FOUND=!!!!!!!!! DANGER !!!!!!!!!\^This file contains macros.\^Don't accept macros from people you don't trust.\^\^Trust this file?
|
||||
64744_main_MSG_UPD_INFO=Last stable version: %s\^\^Last untested version: %s\^
|
||||
64745_main_MSG_NEWER=There's a new version available online: %s
|
||||
64746_main_MSG_SRC_UPD=Searching for updates...
|
||||
64747_main_ARE_EXPERT{1}=You are in Expert mode
|
||||
64748_main_ARE_EASY=You are in Easy mode
|
||||
64749_main_SW2EXPERT=Switch to Expert mode
|
||||
64750_main_SW2EASY=Switch to Easy mode
|
||||
64751_main_MSG_DL_TIMEOUT_LONG=Enter the number of MINUTES with no download after which the program automatically shuts down.\^Leave blank to get no timeout.
|
||||
64752_main_MSG_NEWER_INCOMP=This file has been created with a newer and incompatible version.
|
||||
64753_main_MSG_ZLIB=This file is corrupted (ZLIB).
|
||||
64754_main_MSG_BAKAVAILABLE=This file is corrupted but a backup is available.\^Continue with backup?
|
||||
64755_main_MSG_CANT_LOAD_SAVE=Cannot load or save while adding files
|
||||
64756_main_MSG_OPEN_VFS=Open VFS file
|
||||
64757_main_LIMIT{2}=Limit
|
||||
64758_main_TOP_SPEED=Top speed
|
||||
64759_main_MSG_MAX_BW=Max bandwidth (KB/s).
|
||||
64760_main_MSG_LIM0=Zero is an effective limit.\^To disable instead, leave empty.
|
||||
64761_main_MSG_MAX_BW_1=Max bandwidth for single address (KB/s).
|
||||
64762_main_MSG_GRAPH_RATE_MENU=Graph refresh rate: %d (tenths of second)
|
||||
64763_main_MSG_MAX_CON_LONG=Max simultaneous connections to serve.\^Most people don't know this function well, and have problems. If you are unsure, please use the "Max simultaneous downloads".
|
||||
64764_main_MSG_WARN_CONN=In this moment there are %d active connections
|
||||
64765_main_MSG_WARN_ACT_DL=In this moment there are %d active downloads
|
||||
64766_main_MSG_MAX_CON_SING_LONG=Max simultaneous connections to accept from a single IP address.\^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".
|
||||
64767_main_MSG_GRAPH_RATE{1}=Graph refresh rate
|
||||
64768_main_MSG_VFS_DONT_CONS_DL_MASK=Don't consider as download (mask): %s
|
||||
64769_main_MSG_VFS_INHERITED= [inherited]
|
||||
64770_main_MSG_VFS_EXTERNAL= [external]
|
||||
64771_main_MSG_CON_HINT=Connection time: %s\^Last request time: %s\^Agent: %s
|
||||
64772_main_MSG_CON_STATE_IDLE=idle
|
||||
64773_main_MSG_CON_STATE_REQ=requesting
|
||||
64774_main_MSG_CON_STATE_RCV=receiving
|
||||
64775_main_MSG_CON_STATE_THINK=thinking
|
||||
64776_main_MSG_CON_STATE_REP=replying
|
||||
64777_main_MSG_CON_STATE_SEND=sending
|
||||
64778_main_MSG_CON_STATE_DISC=disconnected
|
||||
64779_main_MSG_TPL_RESET=The template has been reset
|
||||
64780_main_MSG_ALLO_REF=Allowed referer
|
||||
64781_main_MSG_ALLO_REF_LONG=Leave empty to disable this feature.\^Here you can specify a mask.\^When a file is requested, if the mask doesn't match the "Referer" HTTP field, the request is rejected.
|
||||
64782_main_MSG_BETTERSTOP=\^Going on may lead to problems.\^It is adviced to stop loading.\^Stop?
|
||||
64783_main_MSG_BADCRC=This file is corrupted (CRC).
|
||||
64784_main_MSG_VFS_HIDE_EMPTY=Hidden if empty
|
||||
64785_main_MSG_VFS_NOT_BROW=Not browsable
|
||||
64786_main_MSG_VFS_HIDE_EMPTY_FLD=Hide empty folders
|
||||
64787_main_MSG_VFS_HIDE_EXT=Hide extention
|
||||
64788_main_MSG_VFS_ARCABLE=Archivable
|
||||
64789_main_MSG_VFS_DEF_MASK=Default file mask: %s
|
||||
64790_main_MSG_VFS_ACCESS=Access for
|
||||
64791_main_MSG_VFS_UPLOAD=Upload allowed for
|
||||
64792_main_MSG_VFS_DELETE=Delete allowed for
|
||||
64793_main_MSG_VFS_COMMENT=Comment: %s
|
||||
64794_main_MSG_VFS_REALM=Realm: %s
|
||||
64795_main_MSG_VFS_DIFF_TPL=Diff template: %s
|
||||
64796_main_MSG_VFS_FILES_FLT=Files filter: %s
|
||||
64797_main_MSG_VFS_FLD_FLT=Folders filter: %s
|
||||
64798_main_MSG_VFS_UPL_FLT=Upload filter: %s
|
||||
64799_main_MSG_VFS_DONT_CONS_DL=Don't consider as download
|
||||
64800_main_IN_SPEED=In: %.1f KB/s
|
||||
64801_main_BANS=Ban rules: %d
|
||||
64802_main_MEMORY=Mem
|
||||
64803_main_CUST_TPL=Customized template
|
||||
64804_main_VFS_ITEMS=VFS: %d items
|
||||
64805_main_MSG_ITEM_EXISTS=%s item(s) already exists:\^%s\^\^Continue?
|
||||
64806_main_MSG_INSTALL_TPL=Install this template?
|
||||
64807_main_MSG_FOLDER_UPLOAD=Do you want ANYONE to be able to upload to this folder?
|
||||
64808_main_MSG_VFS_DRAG_INVIT=Drag your files here
|
||||
64809_main_MSG_VFS_URL=URL: %s
|
||||
64810_main_MSG_VFS_PATH=Path: %s
|
||||
64811_main_MSG_VFS_SIZE=Size: %s
|
||||
64812_main_MSG_VFS_DLS=Downloads: %s
|
||||
64813_main_MSG_VFS_INVISIBLE=Invisible
|
||||
64814_main_MSG_VFS_DL_FORB=Download forbidden
|
||||
64815_main_MSG_VFS_DONT_LOG=Don't log
|
||||
64816_main_MSG_UPD_DL=Downloading new version...
|
||||
64817_main_MSG_UPDATE=You are invited to use the new version.\^\^Update now?
|
||||
64818_main_MSG_REQUESTING=Requesting...
|
||||
64819_main_MSG_CHK_UPD=Checking for updates
|
||||
64820_main_MSG_CHK_UPD_FAIL=Check update: failed
|
||||
64821_main_MSG_CHK_UPD_HEAD=Check update:
|
||||
64822_main_MSG_CHK_UPD_VER=new version found: %s
|
||||
64823_main_MSG_CHK_UPD_VER_EXT=Build #%s (current is #%s)
|
||||
64824_main_MSG_CHK_UPD_NONE=no new version
|
||||
64825_main_TO_CLIP=Copy to clipboard
|
||||
64826_main_ALREADY_CLIP=Already in clipboard
|
||||
64827_main_MSG_NO_SPACE=Out of space
|
||||
64828_main_CONN=Connections: %d
|
||||
64829_main_TOT_IN=Total In: %s
|
||||
64830_main_TOT_OUT{1}=Total Out: %s
|
||||
64831_main_OUT_SPEED=Out: %.1f KB/s
|
||||
64832_main_MSG_FILE_ADD_ABORT=File addition was aborted.\^The list of files is incomplete.
|
||||
64833_main_MSG_ADDING=Adding item #%d
|
||||
64834_main_MSG_INV_FILENAME=Invalid filename
|
||||
64835_main_MSG_DELETE=Delete?
|
||||
64836_main_AUTOSAVE=Auto save every:
|
||||
64837_main_SECONDS=%d seconds
|
||||
64838_main_MSG_SPD_LIMIT_SING=Speed limit for single address
|
||||
64839_main_MSG_SPD_LIMIT=Speed limit
|
||||
64840_main_MSG_AUTO_SAVE=Auto-save %s
|
||||
64841_main_MSG_AUTO_SAVE_LONG=Auto-save %s.\^Specify in seconds.\^Leave blank to disable.
|
||||
64842_main_MSG_MIN=We don't accept less than %d
|
||||
64843_main_MSG_BAN=Your ban configuration may have been screwed up.\^Please verify it.
|
||||
64844_main_MSG_CANT_SAVE_OPT=Can't save options there.\^Should I try to save to user registry?
|
||||
64845_main_MSG_UPD_SAVE_ERROR=Cannot save the update
|
||||
64846_main_MSG_UPD_REQ_ONLY1=The auto-update feature cannot work because it requires the "Only 1 instance" option enabled.\^\^Your browser will now be pointed to the update, so you can install it manually.
|
||||
64847_main_MSG_UPD_WAIT=Waiting for last requests to be served, then we'll update
|
||||
64848_main_MSG_LOG_HEAD=Served head
|
||||
64849_main_MSG_LOG_NOT_MOD=Not modified, use cache
|
||||
64850_main_MSG_LOG_REDIR=Redirected to %s
|
||||
64851_main_MSG_LOG_NOT_SERVED=Not served: %d - %s
|
||||
64852_main_MSG_LOG_UPL=Uploading %s
|
||||
64853_main_MSG_LOG_UPLOADED=Fully uploaded %s - %s @ %sB/s
|
||||
64854_main_MSG_LOG_UPL_FAIL=Upload failed %s
|
||||
64855_main_MSG_LOG_DL=Fully downloaded - %s @ %sB/s - %s
|
||||
64856_main_MSG_LOGIN_FAILED=Login failed
|
||||
64857_main_MSG_MIN_DISK_REACHED=Minimum disk space reached.
|
||||
64858_main_MSG_UPL_NAME_FORB=File name or extension forbidden.
|
||||
64859_main_MSG_UPL_CANT_CREATE=Error creating file.
|
||||
64860_main_FINGERPRINT=Create fingerprint on addition under %d KB
|
||||
64861_main_NO_FINGERPRINT=Create fingerprint on addition: disabled
|
||||
64862_main_MSG_SAVE_VFS=Your current file system is not saved.\^Save it?
|
||||
64863_main_MSG_INP_COMMENT=Please insert a comment for "%s".\^You should use HTML: <br> for break line.
|
||||
64864_main_MSG_BAN_CMT=Ban comment
|
||||
64865_main_MSG_BAN_CMT_LONG=A comment for this ban...
|
||||
64866_main_MSG_BREAK_DYN_DNS=This option is NOT compatible with "dynamic dns updater".\^Continue?
|
||||
64867_main_MSG_CANT_OPEN_PORT=Cannot open port.
|
||||
64868_main_MSG_PORT_USED_BY=It is already used by %s
|
||||
64869_main_MSG_PORT_BLOCKED=Something is blocking, maybe your system firewall.
|
||||
64870_main_MSG_KICK_ALL=There are %d connections open.\^Do you want to close them now?
|
||||
64871_main_MSG_TPL_INCOMPATIBLE=The template you are trying to load is not compatible with current HFS version.\^HFS will now use default template.\^Ask on the forum if you need further help.
|
||||
64872_main_MSG_LOG_SERVER_START=Server start
|
||||
64873_main_MSG_LOG_SERVER_STOP=Server stop
|
||||
64874_main_MSG_LOG_CONNECTED=Connected
|
||||
64875_main_MSG_LOG_DISC_SRV=Disconnected by server
|
||||
64876_main_MSG_LOG_DISC=Disconnected
|
||||
64877_main_MSG_LOG_GOT=Got %d bytes
|
||||
64878_main_MSG_LOG_BYTES_SENT=%s bytes sent
|
||||
64879_main_MSG_LOG_SERVED=Served %s
|
||||
64880_main_MSG_DDNS_FAIL=DNS update failed: %s\^User intervention is required.
|
||||
64881_main_MSG_DDNS_REPLY_SIZE=%d bytes reply
|
||||
64882_main_MSG_DDNS_badauth=invalid user/password
|
||||
64883_main_MSG_DDNS_notfqdn=incomplete hostname, required form aaa.bbb.com
|
||||
64884_main_MSG_DDNS_nohost=specified hostname does not exist
|
||||
64885_main_MSG_DDNS_notyours=specified hostname belongs to another username
|
||||
64886_main_MSG_DDNS_numhost=too many or too few hosts found
|
||||
64887_main_MSG_DDNS_abuse=specified hostname is blocked for update abuse
|
||||
64888_main_MSG_DDNS_dnserr=server error
|
||||
64889_main_MSG_DDNS_911=server error
|
||||
64890_main_MSG_DDNS_notdonator=an option specified requires payment
|
||||
64891_main_MSG_DDNS_badagent=banned client
|
||||
64892_main_MSG_BAN_MASK=Ban IP mask
|
||||
64893_main_MSG_IP_MASK_LONG=You can edit the address.\^Masks and ranges are allowed.
|
||||
64894_main_MSG_KICK_ADDR=There are %d open connections from this address.\^Do you want to kick them all now?
|
||||
64895_main_MSG_BAN_ALREADY=This IP address is already banned
|
||||
64896_main_MSG_ADDRESSES_EXCEED=The following addresses exceed the limit:\^%s
|
||||
64897_main_MSG_NO_TEMP=Cannot save temporary file
|
||||
64898_main_MSG_ERROR_REGISTRY=Can't write to registry.\^You may lack necessary rights.
|
||||
64899_main_MSG_MANY_ITEMS=You are putting many files.\^Try using real folders instead of virtual folders.\^Read documentation or ask on the forum for help.
|
||||
64900_main_MSG_ADD_TO_HFS="Add to HFS" has been added to your Window's Explorer right-click menu.
|
||||
64901_main_MSG_SINGLE_INSTANCE=Sorry, this feature only works with the "Only 1 instance" option enabled.\^\^You can find this option under Menu -> Start/Exit\^(only in expert mode)
|
||||
64902_main_MSG_COMM_ERROR=Network error. Request failed.
|
||||
64903_main_MSG_CON_PAUSED=paused
|
||||
64904_main_MSG_CON_SENT=%s / %s sent
|
||||
64905_main_MSG_CON_RECEIVED=%s / %s received
|
||||
64906_main_MSG_DDNS_NO_REPLY=no reply
|
||||
64907_main_MSG_DDNS_OK=successful
|
||||
64908_main_MSG_DDNS_UNK=unknown reply: %s
|
||||
64909_main_MSG_DDNS_ERR=error: %s
|
||||
64910_main_MSG_DDNS_REQ=DNS update requested for %s: %s
|
||||
64911_main_MSG_DDNS_DOING=Updating dynamic DNS...
|
||||
64912_main_MSG_MAX_CON_SING=Max connections from single address
|
||||
64913_main_MSG_MAX_SIM_ADDR{1}=Max simultaneous addresses
|
||||
64914_main_MSG_MAX_SIM_ADDR_DL=Max simultaneous addresses downloading
|
||||
64915_main_MSG_MAX_SIM_DL_SING{2}=Max simultaneous downloads from single address
|
||||
64916_main_MSG_MAX_SIM_DL=Max simultaneous downloads
|
||||
64917_main_MSG_SET_LIMIT=Set limit
|
||||
64918_main_MSG_UNPROTECTED_LINKS=Links are NOT actually protected.\^The feature is there to be used with the "list protected items only..." option.\^Continue?
|
||||
64919_main_MSG_SAME_NAME=An item with the same name is already present in this folder.\^Continue?
|
||||
64920_main_MSG_CONTINUE=Continue?
|
||||
64921_main_MSG_PROCESSING=Processing...
|
||||
64922_main_MSG_SPEED_KBS=%.1f kB/s
|
||||
64923_main_MSG_OPTIONS_SAVED=Options saved
|
||||
64924_main_MSG_SOME_LOCKED=Some items were not affected because locked
|
||||
64925_main_MSG_ITEM_LOCKED=The item is locked
|
||||
64926_main_MSG_INVALID_VALUE=Invalid value
|
||||
64927_main_MSG_EMPTY_NO_LIMIT=Leave blank to get no limits.
|
||||
64935_classesLib_MSG_ANTIDOS_REPLY=Please wait, server busy
|
||||
64936_optionsDlg_MSG_INVERT_BAN=Normal behavior of the Ban is to prevent access to the addresses you specify (also called black-list).\^If you want the opposite, to allow the addresses that you specify (white-list), enter all addresses in a single row preceded by a \ character.\^\^Let say you want to allow all your 192.168 local network plus your office at 1.1.1.1.\^Just put this IP address mask: \192.168.*;1.1.1.1\^The opening \ character inverts the logic, so everything else is banned.\^\^If you want to know more about address masks, check the guide.
|
||||
64937_main_S_PORT_LABEL=Port: %s
|
||||
64938_main_S_PORT_ANY=any
|
||||
64939_main_DISABLED=disabled
|
||||
64940_main_S_OK=Ok
|
||||
64941_main_MSG_MENU_VAL= (%s)
|
||||
64942_main_MSG_DL_TIMEOUT{1}=No downloads timeout
|
||||
64943_main_MSG_MAX_CON=Max connections
|
||||
65046_OverbyteIcsHttpContCod_ERR_GETCODING_OVERRIDE=GetCoding must be overridden in %s
|
||||
65088_OverbyteIcsCharsetUtils_sHebrewISOVisual=Hebrew (ISO-Visual)
|
||||
65089_OverbyteIcsCharsetUtils_sHebrewWindows=Hebrew (Windows)
|
||||
65090_OverbyteIcsCharsetUtils_sJapaneseJIS=Japanese (JIS)
|
||||
65091_OverbyteIcsCharsetUtils_sKorean=Korean
|
||||
65092_OverbyteIcsCharsetUtils_sKoreanEUC=Korean (EUC)
|
||||
65093_OverbyteIcsCharsetUtils_sLatin9=Latin 9 (ISO)
|
||||
65094_OverbyteIcsCharsetUtils_sThaiWindows=Thai (Windows)
|
||||
65095_OverbyteIcsCharsetUtils_sTurkishISO=Turkish (ISO)
|
||||
65096_OverbyteIcsCharsetUtils_sTurkishWindows=Turkish (Windows)
|
||||
65097_OverbyteIcsCharsetUtils_sUnicodeUTF7=Unicode (UTF-7)
|
||||
65098_OverbyteIcsCharsetUtils_sUnicodeUTF8=Unicode (UTF-8)
|
||||
65099_OverbyteIcsCharsetUtils_sVietnameseWindows=Vietnamese (Windows)
|
||||
65100_OverbyteIcsCharsetUtils_sWesternEuropeanISO=Western European (ISO)
|
||||
65101_OverbyteIcsCharsetUtils_sWesternEuropeanWindows=Western European (Windows)
|
||||
65104_OverbyteIcsCharsetUtils_sBalticISO=Baltic (ISO)
|
||||
65105_OverbyteIcsCharsetUtils_sBalticWindows=Baltic (Windows)
|
||||
65106_OverbyteIcsCharsetUtils_sCentralEuropeanISO=Central European (ISO)
|
||||
65107_OverbyteIcsCharsetUtils_sCentralEuropeanWindows=Central European (Windows)
|
||||
65108_OverbyteIcsCharsetUtils_sChineseTraditionalBig5=Chinese Traditional (Big5)
|
||||
65109_OverbyteIcsCharsetUtils_sChineseSimplifiedGB18030=Chinese Simplified (GB18030)
|
||||
65110_OverbyteIcsCharsetUtils_sChineseSimplifiedGB2312=Chinese Simplified (GB2312)
|
||||
65111_OverbyteIcsCharsetUtils_sChineseSimplifiedHZ=Chinese Simplified (HZ)
|
||||
65112_OverbyteIcsCharsetUtils_sCyrillicISO=Cyrillic (ISO)
|
||||
65113_OverbyteIcsCharsetUtils_sCyrillicKOI8R=Cyrillic (KOI8-R)
|
||||
65114_OverbyteIcsCharsetUtils_sCyrillicKOI8U=Cyrillic (KOI8-U)
|
||||
65115_OverbyteIcsCharsetUtils_sCyrillicWindows=Cyrillic (Windows)
|
||||
65116_OverbyteIcsCharsetUtils_sEstonianISO=Estonian (ISO)
|
||||
65117_OverbyteIcsCharsetUtils_sGreekISO=Greek (ISO)
|
||||
65118_OverbyteIcsCharsetUtils_sGreekWindows=Greek (Windows)
|
||||
65119_OverbyteIcsCharsetUtils_sHebrewISOLogical=Hebrew (ISO-Logical)
|
||||
65134_OverbyteIcsCharsetUtils_sArabicISO=Arabic (ISO)
|
||||
65135_OverbyteIcsCharsetUtils_sArabicWindows=Arabic (Windows)
|
||||
|
||||
156
hslib.pas
156
hslib.pas
@ -1,5 +1,5 @@
|
||||
{
|
||||
Copyright (C) 2002-2020 Massimo Melina (www.rejetto.com)
|
||||
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
|
||||
@ -19,7 +19,6 @@ Copyright (C) 2002-2020 Massimo Melina (www.rejetto.com)
|
||||
HTTP Server Lib
|
||||
|
||||
==== TO DO
|
||||
* https
|
||||
* upload bandwidth control (can it be done without multi-threading?)
|
||||
|
||||
}
|
||||
@ -157,7 +156,6 @@ type
|
||||
P_requestCount: integer;
|
||||
P_destroying: boolean; // destroying is in progress
|
||||
P_sndBuf: integer;
|
||||
P_v6: boolean;
|
||||
persistent: boolean;
|
||||
disconnecting: boolean; // disconnected() has been called
|
||||
lockCount: integer; // prevent freeing of the object
|
||||
@ -206,7 +204,7 @@ type
|
||||
eventData: ansistring;
|
||||
ignoreSpeedLimit: boolean;
|
||||
limiters: TobjectList; // every connection can be bound to a number of TspeedLimiter
|
||||
constructor create(server:ThttpSrv; acceptingSock:Twsocket);
|
||||
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.
|
||||
@ -221,7 +219,6 @@ type
|
||||
function initInputStream():boolean;
|
||||
property address:string read P_address; // other peer ip address
|
||||
property port:string read P_port; // other peer port
|
||||
property v6:boolean read P_v6;
|
||||
property requestCount:integer read P_requestCount;
|
||||
property bytesToSend:int64 read getBytesToSend;
|
||||
property bytesToPost:int64 read getBytesToPost;
|
||||
@ -264,7 +261,7 @@ type
|
||||
procedure calculateSpeed();
|
||||
procedure processDisconnecting();
|
||||
public
|
||||
sock, sock6: Twsocket; // listening socket
|
||||
sock: Twsocket; // listening socket
|
||||
conns, // full list of connected clients
|
||||
disconnecting, // list of pending disconnections
|
||||
offlines, // disconnected clients to be freed
|
||||
@ -293,7 +290,7 @@ const
|
||||
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, 429, 413, 301, 304 );
|
||||
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',
|
||||
@ -337,7 +334,6 @@ uses
|
||||
Windows, ansistrings;
|
||||
const
|
||||
CRLF = #13#10;
|
||||
HEADER_LIMITER: ansistring = CRLF+CRLF;
|
||||
MAX_REQUEST_LENGTH = 64*1024;
|
||||
MAX_INPUT_BUFFER_LENGTH = 256*1024;
|
||||
// used as body content when the user did not specify any
|
||||
@ -353,7 +349,7 @@ const
|
||||
'',
|
||||
'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>',
|
||||
'429 - Server is overloaded, retry later',
|
||||
'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
|
||||
@ -374,8 +370,6 @@ function isLocalIP(ip:string):boolean;
|
||||
var
|
||||
r: record d,c,b,a:byte end;
|
||||
begin
|
||||
if ip = '::1' then
|
||||
exit(TRUE);
|
||||
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))
|
||||
@ -389,11 +383,28 @@ 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;
|
||||
@ -405,7 +416,7 @@ for result:=ofs to l do
|
||||
begin
|
||||
rss:=rss1;
|
||||
p:=rs;
|
||||
while (rss^ <> #0) and (rss^ = upcase(p^)) do
|
||||
while (rss^ <> #0) and (rss^ = upcaseTab[p^]) do
|
||||
begin
|
||||
inc(rss);
|
||||
inc(p);
|
||||
@ -499,43 +510,6 @@ while i <= length(s) do
|
||||
end;
|
||||
end; // base64decode
|
||||
|
||||
function validUTF8(s:rawbytestring):boolean;
|
||||
var
|
||||
i, more, len: integer;
|
||||
c: byte;
|
||||
begin
|
||||
len:=length(s);
|
||||
i:=0;
|
||||
while i < len do
|
||||
begin
|
||||
inc(i);
|
||||
c:=ord(s[i]);
|
||||
if c < $80 then
|
||||
continue;
|
||||
if c >= $FE then
|
||||
exit(FALSE);
|
||||
if c >= $F0 then
|
||||
more:=3
|
||||
else if c >= $E0 then
|
||||
more:=2
|
||||
else if c >= $C0 then
|
||||
more:=1
|
||||
else
|
||||
exit(FALSE);
|
||||
if i+more > len then
|
||||
exit(FALSE);
|
||||
while more > 0 do
|
||||
begin
|
||||
inc(i);
|
||||
c:=ord(s[i]);
|
||||
if (c < $80) or (c > $C0) then
|
||||
exit(FALSE);
|
||||
dec(more);
|
||||
end;
|
||||
end;
|
||||
result:=TRUE;
|
||||
end; // validUTF8
|
||||
|
||||
function decodeURL(url:ansistring; utf8:boolean=TRUE):string;
|
||||
var
|
||||
i, j: integer;
|
||||
@ -555,11 +529,10 @@ while i<length(url) do
|
||||
url[j]:=url[i];
|
||||
end;
|
||||
setLength(url, j);
|
||||
if utf8 and validUTF8(url) then
|
||||
if utf8 then
|
||||
begin
|
||||
result:=utf8ToString(url);
|
||||
// if the string is not UTF8 compliant, the result is empty, or sometimes same length (but ruined)
|
||||
if (result='') or (length(result)=length(url)) then
|
||||
if result='' then // if the string is not UTF8 compliant, the result is empty
|
||||
result:=url;
|
||||
end
|
||||
else
|
||||
@ -579,8 +552,7 @@ if url = '' then
|
||||
encodeHTML:=[];
|
||||
if nonascii then
|
||||
encodeHTML:=[#128..#255];
|
||||
encodePerc:=[#0..#31,'#','%','?','"','''','&','<','>',':',
|
||||
',',';']; // these for content-disposition
|
||||
encodePerc:=[#0..#31,'#','%','?','"','''','&','<','>',':'];
|
||||
// actually ':' needs encoding only in relative url
|
||||
if spaces then include(encodePerc,' ');
|
||||
if not htmlEncoding then
|
||||
@ -677,7 +649,7 @@ end; // chopline
|
||||
|
||||
function chopLine(var s:ansistring):ansistring; overload;
|
||||
begin
|
||||
result:=chop(#10,s);
|
||||
result:=chop(pos(#10,s),1,s);
|
||||
if (result>'') and (result[length(result)]=#13) then
|
||||
setlength(result, length(result)-1);
|
||||
end; // chopline
|
||||
@ -689,22 +661,15 @@ begin
|
||||
result:=FALSE;
|
||||
if active or not assigned(sock) then exit;
|
||||
try
|
||||
if onAddress = '' then
|
||||
onAddress:='*';
|
||||
sock.addr:=ifThen(onAddress = '*', '0.0.0.0', onAddress);
|
||||
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;
|
||||
|
||||
if onAddress = '*' then
|
||||
with sock6 do
|
||||
begin
|
||||
addr:='::';
|
||||
Port:=sock.port;
|
||||
try listen except end;
|
||||
end;
|
||||
notify(HE_OPEN, NIL);
|
||||
except
|
||||
end;
|
||||
@ -712,13 +677,12 @@ end; // start
|
||||
|
||||
procedure ThttpSrv.stop();
|
||||
begin
|
||||
if sock = NIL then exit;
|
||||
try sock.Close() except end;
|
||||
try sock6.Close() except end;
|
||||
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, sender as Twsocket) end;
|
||||
begin if error=0 then ThttpConn.create(self) end;
|
||||
|
||||
procedure ThttpSrv.disconnected(Sender: TObject; Error: Word);
|
||||
begin notify(HE_CLOSE, NIL) end;
|
||||
@ -729,9 +693,6 @@ sock:=TWSocket.create(NIL);
|
||||
sock.OnSessionAvailable:=connected;
|
||||
sock.OnSessionClosed:=disconnected;
|
||||
sock.OnBgException:=bgexception;
|
||||
sock6:=TWSocket.create(NIL);
|
||||
sock6.OnSessionAvailable:=connected;
|
||||
sock6.OnBgException:=bgexception;
|
||||
|
||||
conns:=TobjectList.create;
|
||||
conns.OwnsObjects:=FALSE;
|
||||
@ -877,6 +838,7 @@ 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);
|
||||
@ -962,13 +924,13 @@ begin canClose:=FALSE end;
|
||||
|
||||
////////// CLIENT
|
||||
|
||||
constructor ThttpConn.create(server:ThttpSrv; acceptingSock:Twsocket);
|
||||
constructor ThttpConn.create(server:ThttpSrv);
|
||||
var
|
||||
i: integer;
|
||||
begin
|
||||
// init socket
|
||||
sock:=Twsocket.create(NIL);
|
||||
sock.Dup(acceptingSock.accept());
|
||||
sock.Dup(server.sock.Accept);
|
||||
sock.OnDataAvailable:=dataavailable;
|
||||
sock.OnSessionClosed:=disconnected;
|
||||
sock.onSendData:=senddata;
|
||||
@ -981,7 +943,6 @@ limiters:=TObjectList.create;
|
||||
limiters.ownsObjects:=FALSE;
|
||||
P_address:=sock.GetPeerAddr();
|
||||
P_port:=sock.GetPeerPort();
|
||||
P_v6:=pos(':', address) > 0;
|
||||
state:=HCS_IDLE;
|
||||
srv:=server;
|
||||
srv.conns.add(self);
|
||||
@ -1214,8 +1175,8 @@ procedure ThttpConn.processInputBuffer();
|
||||
|
||||
var
|
||||
i: integer;
|
||||
s, l, k, v: ansistring;
|
||||
ws: widestring;
|
||||
s, l, k, c: string;
|
||||
|
||||
begin
|
||||
repeat
|
||||
{ When the buffer is stuffed with file bytes only, we can avoid calling pos() and chop().
|
||||
@ -1256,12 +1217,11 @@ procedure ThttpConn.processInputBuffer();
|
||||
break;
|
||||
end;
|
||||
// we wait for the header to be complete
|
||||
if posEx(HEADER_LIMITER, buffer, i+length(post.boundary)) = 0 then
|
||||
break;
|
||||
if posEx(CRLF+CRLF, buffer, i+length(post.boundary)) = 0 then break;
|
||||
handleLeftData(i);
|
||||
post.filename:='';
|
||||
post.data:='';
|
||||
post.header:=chop(HEADER_LIMITER, buffer);
|
||||
post.header:=chop(CRLF+CRLF, buffer);
|
||||
chopLine(post.header);
|
||||
// parse the header part
|
||||
s:=post.header;
|
||||
@ -1270,28 +1230,25 @@ procedure ThttpConn.processInputBuffer();
|
||||
l:=chopLine(s);
|
||||
if l = '' then continue;
|
||||
k:=chop(':', l);
|
||||
if not sameText(k, 'Content-Disposition') then // we are only interested in content-disposition: form-data
|
||||
continue;
|
||||
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;
|
||||
if not sameText(k, 'form-data') then continue;
|
||||
while l > '' do
|
||||
begin
|
||||
v:=chop(nonQuotedPos(';', l), 1, l);
|
||||
k:=trim(chop('=', v));
|
||||
ws:=UTF8toString(ansiDequotedStr(v,'"'));
|
||||
c:=chop(nonQuotedPos(';', l), l);
|
||||
k:=UTF8toString(rawByteString(trim(chop('=', c))));
|
||||
c:=UTF8toString(rawByteString(ansiDequotedStr(c,'"')));
|
||||
if sameText(k, 'filename') then
|
||||
begin
|
||||
delete(ws, 1, lastDelimiter('/\',ws));
|
||||
post.filename:=ws;
|
||||
end
|
||||
else if sameText(k, 'name') then
|
||||
post.varname:=ws;
|
||||
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;
|
||||
if post.filename = '' then continue;
|
||||
firstPostFile:=FALSE;
|
||||
tryNotify(HE_POST_FILE);
|
||||
until false;
|
||||
@ -1375,7 +1332,7 @@ if buffer = '' then exit;
|
||||
if state = HCS_IDLE then
|
||||
begin
|
||||
state:=HCS_REQUESTING;
|
||||
reply.contentType:='text/html; charset=utf-8';
|
||||
reply.contentType:='text/html';
|
||||
notify(HE_REQUESTING);
|
||||
end;
|
||||
case state of
|
||||
@ -1393,7 +1350,7 @@ notify(HE_REQUESTED);
|
||||
if not initInputStream() then
|
||||
begin
|
||||
reply.mode:=HRM_INTERNAL_ERROR;
|
||||
reply.contentType:='text/html; charset=utf-8';
|
||||
reply.contentType:='text/html';
|
||||
notify(HE_CANT_OPEN_FILE);
|
||||
end;
|
||||
notify(HE_STREAM_READY);
|
||||
@ -1599,7 +1556,7 @@ end; // initInputStream
|
||||
|
||||
function ThttpConn.sendNextChunk(max:integer=MAXINT):integer;
|
||||
var
|
||||
n, toSend: int64;
|
||||
n: int64;
|
||||
buf: ansistring;
|
||||
begin
|
||||
result:=0;
|
||||
@ -1611,8 +1568,7 @@ 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;
|
||||
toSend:=bytesToSend;
|
||||
if n > toSend then n:=toSend;
|
||||
if n > bytesToSend then n:=bytesToSend;
|
||||
if n = 0 then exit;
|
||||
setLength(buf, n);
|
||||
n:=stream.read(buf[1], n);
|
||||
|
||||
8
invertban.txt
Normal file
8
invertban.txt
Normal file
@ -0,0 +1,8 @@
|
||||
Normal behavior of the Ban is to prevent access to the addresses you specify (also called black-list).
|
||||
If you want the opposite, to allow the addresses that you specify (white-list), enter all addresses in a single row preceded by a \ character.
|
||||
|
||||
Let say you want to allow all your 192.168 local network plus your office at 1.1.1.1.
|
||||
Just put this IP address mask: \192.168.*;1.1.1.1
|
||||
The opening \ character inverts the logic, so everything else is banned.
|
||||
|
||||
If you want to know more about address masks, check the guide.
|
||||
518
macros-log.html
Normal file
518
macros-log.html
Normal file
File diff suppressed because one or more lines are too long
88
main.dfm
88
main.dfm
@ -2,8 +2,8 @@ object mainFrm: TmainFrm
|
||||
Left = 293
|
||||
Top = 219
|
||||
Caption = 'HFS ~ HTTP File Server'
|
||||
ClientHeight = 436
|
||||
ClientWidth = 879
|
||||
ClientHeight = 391
|
||||
ClientWidth = 913
|
||||
Color = clBtnFace
|
||||
Constraints.MinHeight = 260
|
||||
Constraints.MinWidth = 390
|
||||
@ -27,7 +27,7 @@ object mainFrm: TmainFrm
|
||||
object graphSplitter: TSplitter
|
||||
Left = 0
|
||||
Top = 78
|
||||
Width = 879
|
||||
Width = 913
|
||||
Height = 5
|
||||
Cursor = crVSplit
|
||||
Align = alTop
|
||||
@ -42,7 +42,7 @@ object mainFrm: TmainFrm
|
||||
object graphBox: TPaintBox
|
||||
Left = 0
|
||||
Top = 48
|
||||
Width = 879
|
||||
Width = 913
|
||||
Height = 30
|
||||
Hint = 'Pink = Out'#13#10'Yellow = In'
|
||||
Align = alTop
|
||||
@ -62,7 +62,7 @@ object mainFrm: TmainFrm
|
||||
object topToolbar: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 879
|
||||
Width = 913
|
||||
Height = 24
|
||||
AutoSize = True
|
||||
ButtonWidth = 150
|
||||
@ -173,7 +173,7 @@ object mainFrm: TmainFrm
|
||||
object urlToolbar: TToolBar
|
||||
Left = 0
|
||||
Top = 24
|
||||
Width = 879
|
||||
Width = 913
|
||||
Height = 24
|
||||
AutoSize = True
|
||||
ButtonWidth = 122
|
||||
@ -217,8 +217,8 @@ object mainFrm: TmainFrm
|
||||
object centralPnl: TPanel
|
||||
Left = 0
|
||||
Top = 83
|
||||
Width = 879
|
||||
Height = 353
|
||||
Width = 913
|
||||
Height = 308
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -231,7 +231,7 @@ object mainFrm: TmainFrm
|
||||
object splitV: TSplitter
|
||||
Left = 313
|
||||
Top = 0
|
||||
Height = 242
|
||||
Height = 197
|
||||
Beveled = True
|
||||
Constraints.MaxWidth = 3
|
||||
Constraints.MinWidth = 3
|
||||
@ -241,8 +241,8 @@ object mainFrm: TmainFrm
|
||||
end
|
||||
object splitH: TSplitter
|
||||
Left = 0
|
||||
Top = 242
|
||||
Width = 879
|
||||
Top = 197
|
||||
Width = 913
|
||||
Height = 5
|
||||
Cursor = crVSplit
|
||||
Align = alBottom
|
||||
@ -256,16 +256,16 @@ object mainFrm: TmainFrm
|
||||
object logPnl: TPanel
|
||||
Left = 316
|
||||
Top = 0
|
||||
Width = 563
|
||||
Height = 242
|
||||
Width = 597
|
||||
Height = 197
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 1
|
||||
object logBox: TRichEdit
|
||||
Left = 0
|
||||
Top = 23
|
||||
Width = 563
|
||||
Height = 219
|
||||
Width = 597
|
||||
Height = 174
|
||||
Align = alClient
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -286,7 +286,7 @@ object mainFrm: TmainFrm
|
||||
object logTitle: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 563
|
||||
Width = 597
|
||||
Height = 23
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
@ -294,7 +294,7 @@ object mainFrm: TmainFrm
|
||||
object titlePnl: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 303
|
||||
Width = 337
|
||||
Height = 23
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
@ -302,7 +302,7 @@ object mainFrm: TmainFrm
|
||||
TabOrder = 0
|
||||
end
|
||||
object logToolbar: TPanel
|
||||
Left = 303
|
||||
Left = 337
|
||||
Top = 0
|
||||
Width = 260
|
||||
Height = 23
|
||||
@ -557,7 +557,7 @@ object mainFrm: TmainFrm
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 313
|
||||
Height = 242
|
||||
Height = 197
|
||||
Align = alLeft
|
||||
BevelOuter = bvNone
|
||||
Caption = 'filesPnl'
|
||||
@ -566,7 +566,7 @@ object mainFrm: TmainFrm
|
||||
Left = 0
|
||||
Top = 23
|
||||
Width = 313
|
||||
Height = 219
|
||||
Height = 174
|
||||
Align = alClient
|
||||
BevelInner = bvLowered
|
||||
BevelOuter = bvSpace
|
||||
@ -616,8 +616,8 @@ object mainFrm: TmainFrm
|
||||
end
|
||||
object connPnl: TPanel
|
||||
Left = 0
|
||||
Top = 247
|
||||
Width = 879
|
||||
Top = 202
|
||||
Width = 913
|
||||
Height = 106
|
||||
Align = alBottom
|
||||
BevelOuter = bvNone
|
||||
@ -625,7 +625,7 @@ object mainFrm: TmainFrm
|
||||
object sbar: TStatusBar
|
||||
Left = 0
|
||||
Top = 87
|
||||
Width = 879
|
||||
Width = 913
|
||||
Height = 19
|
||||
Panels = <
|
||||
item
|
||||
@ -637,7 +637,7 @@ object mainFrm: TmainFrm
|
||||
object connBox: TListView
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 879
|
||||
Width = 913
|
||||
Height = 87
|
||||
Align = alClient
|
||||
Columns = <
|
||||
@ -660,7 +660,6 @@ object mainFrm: TmainFrm
|
||||
item
|
||||
Alignment = taCenter
|
||||
Caption = 'Speed'
|
||||
Width = 100
|
||||
end
|
||||
item
|
||||
Alignment = taCenter
|
||||
@ -749,13 +748,6 @@ object mainFrm: TmainFrm
|
||||
AutoHotkeys = maManual
|
||||
Caption = 'Copy URL with password'
|
||||
end
|
||||
object CopyURLwithdifferentaddress1: TMenuItem
|
||||
Caption = 'Copy URL with different host address'
|
||||
end
|
||||
object CopyURLwithfingerprint1: TMenuItem
|
||||
Caption = 'Copy URL with fingerprint'
|
||||
OnClick = CopyURLwithfingerprint1Click
|
||||
end
|
||||
object Browseit1: TMenuItem
|
||||
Caption = 'Browse it'
|
||||
ImageIndex = 26
|
||||
@ -792,6 +784,13 @@ object mainFrm: TmainFrm
|
||||
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
|
||||
@ -2794,10 +2793,12 @@ object mainFrm: TmainFrm
|
||||
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
|
||||
@ -2931,9 +2932,15 @@ object mainFrm: TmainFrm
|
||||
AutoCheck = True
|
||||
Caption = 'Encode non-ASCII characters'
|
||||
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
|
||||
@ -2963,6 +2970,10 @@ object mainFrm: TmainFrm
|
||||
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
|
||||
@ -3148,8 +3159,8 @@ object mainFrm: TmainFrm
|
||||
object connmenu: TPopupMenu
|
||||
Images = images
|
||||
OnPopup = connmenuPopup
|
||||
Left = 264
|
||||
Top = 408
|
||||
Left = 248
|
||||
Top = 320
|
||||
object Kickconnection1: TMenuItem
|
||||
Caption = 'Kick connection'
|
||||
OnClick = Kickconnection1Click
|
||||
@ -3182,6 +3193,11 @@ object mainFrm: TmainFrm
|
||||
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
|
||||
@ -3199,8 +3215,7 @@ object mainFrm: TmainFrm
|
||||
OnMinimize = appEventsMinimize
|
||||
OnRestore = appEventsRestore
|
||||
OnShowHint = appEventsShowHint
|
||||
Left = 688
|
||||
Top = 8
|
||||
Left = 592
|
||||
end
|
||||
object logmenu: TPopupMenu
|
||||
Images = images
|
||||
@ -3268,6 +3283,7 @@ object mainFrm: TmainFrm
|
||||
object logRequestsChk: TMenuItem
|
||||
AutoCheck = True
|
||||
Caption = 'Requests'
|
||||
Checked = True
|
||||
end
|
||||
object DumprequestsChk: TMenuItem
|
||||
AutoCheck = True
|
||||
|
||||
62
notes.txt
Normal file
62
notes.txt
Normal file
@ -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
|
||||
@ -222,9 +222,9 @@ object optionsFrm: ToptionsFrm
|
||||
Top = 106
|
||||
Width = 198
|
||||
Height = 22
|
||||
EditLabel.Width = 105
|
||||
EditLabel.Width = 111
|
||||
EditLabel.Height = 14
|
||||
EditLabel.Caption = 'After login, redirect to'
|
||||
EditLabel.Caption = 'After ~login, redirect to'
|
||||
TabOrder = 4
|
||||
OnChange = redirBoxChange
|
||||
end
|
||||
|
||||
@ -834,16 +834,7 @@ procedure ToptionsFrm.okBtnClick(Sender: TObject);
|
||||
begin if saveValues() then close() end;
|
||||
|
||||
procedure ToptionsFrm.Button1Click(Sender: TObject);
|
||||
resourcestring MSG_INVERT_BAN =
|
||||
'Normal behavior of the Ban is to prevent access to the addresses you specify (also called black-list).'
|
||||
+#13'If you want the opposite, to allow the addresses that you specify (white-list), enter all addresses in a single row preceded by a \ character.'
|
||||
+#13
|
||||
+#13'Let say you want to allow all your 192.168 local network plus your office at 1.1.1.1.'
|
||||
+#13'Just put this IP address mask: \192.168.*;1.1.1.1'
|
||||
+#13'The opening \ character inverts the logic, so everything else is banned.'
|
||||
+#13
|
||||
+#13'If you want to know more about address masks, check the guide.';
|
||||
begin msgDlg(MSG_INVERT_BAN) end;
|
||||
begin msgDlg(getRes('invertBan')) end;
|
||||
|
||||
procedure ToptionsFrm.groupsBtnClick(Sender: TObject);
|
||||
var
|
||||
|
||||
172
scriptLib.pas
172
scriptLib.pas
@ -1,5 +1,5 @@
|
||||
{
|
||||
Copyright (C) 2002-2020 Massimo Melina (www.rejetto.com)
|
||||
Copyright (C) 2002-2012 Massimo Melina (www.rejetto.com)
|
||||
|
||||
This file is part of HFS ~ HTTP File Server.
|
||||
|
||||
@ -67,13 +67,11 @@ s:='';
|
||||
if ts then
|
||||
s:='<hr>'+dateTimeToStr(now())+CRLF;
|
||||
s:=s+#13'<dt>'+htmlEncode(textIn)+'</dt><dd>'+htmlEncode(textOut)+'</dd>';
|
||||
if sizeOfFile(MACROS_LOG_FILE) = 0 then
|
||||
s:=HEADER+s;
|
||||
result:=appendTextFile(MACROS_LOG_FILE, s);
|
||||
end; // macrosLog
|
||||
|
||||
procedure resetLog();
|
||||
begin saveFile(MACROS_LOG_FILE, '') end;
|
||||
begin deleteFile(MACROS_LOG_FILE) end;
|
||||
|
||||
function expandLinkedAccounts(account:Paccount):TStringDynArray;
|
||||
var
|
||||
@ -161,18 +159,16 @@ var
|
||||
procedure deprecatedMacro(what:string=''; instead:string='');
|
||||
begin mainfrm.add2log('WARNING, deprecated macro: '+first(what, name)+nonEmptyConcat(' - Use instead: ',instead), NIL, clRed) end;
|
||||
|
||||
procedure unsatisfied(b:boolean=TRUE);
|
||||
begin
|
||||
if b then
|
||||
macroError('cannot be used here')
|
||||
end;
|
||||
|
||||
function satisfied(p:pointer):boolean;
|
||||
begin
|
||||
result:=assigned(p);
|
||||
unsatisfied(not result);
|
||||
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;
|
||||
@ -264,9 +260,9 @@ var
|
||||
result:=staticVars;
|
||||
delete(varname,1,length(G_VAR_PREFIX));
|
||||
end
|
||||
else if assigned(md.cd) then
|
||||
else if satisfied(md.cd) then
|
||||
result:=md.cd.vars
|
||||
else if assigned(md.tempVars) then
|
||||
else if satisfied(md.tempVars) then
|
||||
result:=md.tempVars
|
||||
else
|
||||
raise Exception.create('no namespace available');
|
||||
@ -295,7 +291,7 @@ var
|
||||
if not satisfied(space) then exit;
|
||||
i:=space.indexOfName(varname);
|
||||
if i < 0 then
|
||||
if value = '' then exit(TRUE) // all is good the way it is
|
||||
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)
|
||||
@ -459,8 +455,7 @@ var
|
||||
vars: Tstrings;
|
||||
s: string;
|
||||
begin
|
||||
if not satisfied(md.cd) then
|
||||
exit;
|
||||
if not satisfied(md.cd) then exit;
|
||||
try
|
||||
result:=md.cd.conn.request.url;
|
||||
if pars.count < 2 then exit;
|
||||
@ -662,40 +657,16 @@ var
|
||||
|
||||
procedure inc_(v:integer=+1);
|
||||
begin
|
||||
try
|
||||
setVar(p, intToStr(strToIntDef(getVar(p),0)+v*parI(1,1)));
|
||||
result:='';
|
||||
except
|
||||
end;
|
||||
result:='';
|
||||
try setVar(p, intToStr(strToIntDef(getVar(p),0)+v*parI(1,1))) except end;
|
||||
end; // inc_
|
||||
|
||||
procedure convert();
|
||||
var
|
||||
dst, s: string;
|
||||
c: ansichar;
|
||||
begin
|
||||
dst:=par(1);
|
||||
s:=par(2);
|
||||
if sameText(p, 'ansi') and sameText(dst, 'utf-8') then
|
||||
result:=string(ansiToUTF8(ansistring(s)))
|
||||
else if sameText(p, 'utf-8') then
|
||||
if sameText(dst, 'ansi') then
|
||||
result:=utf8ToAnsi(ansistring(s))
|
||||
else if dst='dec' then
|
||||
begin
|
||||
result:='';
|
||||
for c in UTF8encode(s) do
|
||||
result:=result+intToStr(ord(c))+',';
|
||||
setLength(result, length(result)-1);
|
||||
end
|
||||
else if dst='hex' then
|
||||
begin
|
||||
result:='';
|
||||
for c in UTF8encode(s) do
|
||||
result:=result+intToHex(ord(c));
|
||||
end;
|
||||
if isFalse(par('macros')) then
|
||||
result:=noMacrosAllowed(result);
|
||||
if sameText(p, 'ansi') and sameText(par(1), 'utf-8') then
|
||||
result:=ansiToUTF8(ansistring(par(2)))
|
||||
else if sameText(p, 'utf-8') and sameText(par(1), 'ansi') then
|
||||
result:=utf8ToAnsi(ansistring(par(2)))
|
||||
end; // convert
|
||||
|
||||
procedure encodeuri();
|
||||
@ -950,37 +921,6 @@ var
|
||||
finally free end;
|
||||
end; // foreach
|
||||
|
||||
procedure forLine();
|
||||
var
|
||||
lines: TStringList;
|
||||
line, code, run: string;
|
||||
i: integer;
|
||||
begin
|
||||
code:=macroDequote(par(pars.count-1));
|
||||
lines:=TStringList.create();
|
||||
with TfastStringAppend.create do
|
||||
try
|
||||
lines.text:= getVar(par('var'));
|
||||
for line in lines do
|
||||
begin
|
||||
i:=pos('=',line);
|
||||
if i > 0 then
|
||||
begin
|
||||
setVar('line-key', Copy(line, 1, i-1));
|
||||
setVar('line-value', Copy(line, i+1, MAXINT));
|
||||
end;
|
||||
setVar('line', line);
|
||||
run:=code;
|
||||
applyMacrosAndSymbols(run, cbMacros, cbData);
|
||||
append(run);
|
||||
end;
|
||||
result:=reset();
|
||||
finally
|
||||
Free;
|
||||
lines.Free;
|
||||
end;
|
||||
end; //forLine
|
||||
|
||||
procedure for_();
|
||||
var
|
||||
b, e, i, d: integer;
|
||||
@ -1104,7 +1044,6 @@ var
|
||||
procedure load(fn:string; varname:string='');
|
||||
var
|
||||
from, size: int64;
|
||||
s: ansistring;
|
||||
begin
|
||||
result:='';
|
||||
from:=parI('from', 0);
|
||||
@ -1123,17 +1062,11 @@ var
|
||||
try result:=httpGet(fn, from, size)
|
||||
except result:='' end
|
||||
else
|
||||
begin
|
||||
s:=loadFile(uri2diskMaybe(fn), from, size);
|
||||
result:=UTF8ToString(s);
|
||||
if result = '' then
|
||||
result:=s;
|
||||
end;
|
||||
result:=loadFile(uri2diskMaybe(fn), from, size);
|
||||
|
||||
if varname = '' then
|
||||
begin
|
||||
if anyCharIn('/\',fn) then
|
||||
result:=macroQuote(result);
|
||||
if anyCharIn('/\',fn) then result:=macroQuote(result);
|
||||
exit;
|
||||
end;
|
||||
if ansiStartsStr(ENCODED_TABLE_HEADER, result) then
|
||||
@ -1232,20 +1165,20 @@ var
|
||||
'information=64'
|
||||
);
|
||||
var
|
||||
code: integer;
|
||||
i, j, code: integer;
|
||||
decode: TStringDynArray;
|
||||
s, d: string;
|
||||
s: string;
|
||||
buttons, icon: boolean;
|
||||
begin
|
||||
decode:=split(' ',par(1));
|
||||
code:=0;
|
||||
for d in decode do
|
||||
for s in STR2CODE do
|
||||
if startsStr(d+'=', s) then
|
||||
begin
|
||||
inc(code, strToIntDef(substr(s, 2+d.length), 0));
|
||||
Break
|
||||
end;
|
||||
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
|
||||
@ -1374,20 +1307,19 @@ var
|
||||
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);
|
||||
if i < 0 then
|
||||
h:=space.objects[i] as THashedStringList;
|
||||
if h = NIL then
|
||||
begin
|
||||
h:=ThashedStringList.create();
|
||||
space.AddPair(p, v, h);
|
||||
end
|
||||
else
|
||||
h:=space.objects[i] as THashedStringList;
|
||||
space.objects[i]:=h;
|
||||
end;
|
||||
// fill the object
|
||||
k:=chop('=',v);
|
||||
v:=macroDequote(v);
|
||||
h.values[k]:=v;
|
||||
space.values[p]:=h.text;
|
||||
end; // setTable
|
||||
|
||||
procedure disconnect();
|
||||
@ -1480,8 +1412,7 @@ var
|
||||
exit;
|
||||
end;
|
||||
a:=findEnabledLinkedAccount(a, split(';',s));
|
||||
if assigned(a) then
|
||||
result:=a.user;
|
||||
if assigned(a) then result:=a.user;
|
||||
end; // memberOf
|
||||
|
||||
procedure canArchive(f:Tfile);
|
||||
@ -1852,7 +1783,10 @@ try
|
||||
end;
|
||||
|
||||
if not mainfrm.enableMacrosChk.checked then
|
||||
exit(fullMacro);
|
||||
begin
|
||||
result:=fullMacro;
|
||||
exit;
|
||||
end;
|
||||
|
||||
if pars.count = 0 then exit;
|
||||
// extract first parameter as 'name'
|
||||
@ -1941,15 +1875,9 @@ try
|
||||
disconnect();
|
||||
|
||||
if name = 'stop server' then
|
||||
begin
|
||||
stopServer();
|
||||
exit('');
|
||||
end;
|
||||
if name = 'start server' then
|
||||
begin
|
||||
startServer();
|
||||
exit('');
|
||||
end;
|
||||
|
||||
|
||||
if name = 'focus' then
|
||||
@ -1966,7 +1894,10 @@ try
|
||||
begin
|
||||
try
|
||||
if isFalse(parEx('if')) then
|
||||
exit('');
|
||||
begin
|
||||
result:='';
|
||||
exit;
|
||||
end;
|
||||
except end;
|
||||
result:=md.cd.disconnectReason; // return the previous state
|
||||
if pars.count > 0 then md.cd.disconnectReason:=p;
|
||||
@ -2001,19 +1932,13 @@ try
|
||||
result:=jsEncode(p, first(par(1),'''"'));
|
||||
|
||||
if name = 'base64' then
|
||||
result:=string(base64encode(UTF8encode(p)));
|
||||
result:=base64encode(UTF8encode(p));
|
||||
if name = 'base64decode' then
|
||||
begin
|
||||
result:=utf8ToString(base64decode(ansistring(p)));
|
||||
if isFalse(par('macros')) then
|
||||
result:=noMacrosAllowed(result);
|
||||
end;
|
||||
if name = 'md5' then
|
||||
result:=strMD5(p);
|
||||
if name = 'sha1' then
|
||||
result:=strSHA1(p);
|
||||
if name = 'sha256' then
|
||||
result:=strSHA256(p);
|
||||
|
||||
if name = 'vfs select' then
|
||||
if pars.count = 0 then
|
||||
@ -2086,7 +2011,7 @@ try
|
||||
encodeuri();
|
||||
|
||||
if name = 'decodeuri' then
|
||||
result:=noMacrosAllowed(decodeURL(ansistring(p)));
|
||||
result:=decodeURL(ansistring(p));
|
||||
|
||||
if name = 'set cfg' then
|
||||
trueIf(mainfrm.setcfg(p));
|
||||
@ -2503,12 +2428,8 @@ try
|
||||
minOrMax();
|
||||
|
||||
if stringExists(name, ['if','if not']) then
|
||||
begin
|
||||
try p:=getVar(parEx('var'));
|
||||
except end;
|
||||
if isTrue(p) xor (length(name) = 2) then result:=macroDequote(par(2))
|
||||
if isFalse(p) xor (length(name) > 2) then result:=macroDequote(par(2))
|
||||
else result:=macroDequote(par(1));
|
||||
end;
|
||||
|
||||
if stringExists(name, ['=','>','>=','<','<=','<>','!=']) then
|
||||
trueIf(compare(name, p, par(1)));
|
||||
@ -2524,9 +2445,6 @@ try
|
||||
if name = 'cut' then
|
||||
cut();
|
||||
|
||||
if name ='for line' then
|
||||
forLine();
|
||||
|
||||
if pars.count < 3 then exit; // from here, only macros with at least 3 parameters
|
||||
|
||||
if name ='for each' then
|
||||
|
||||
39
todo.txt
39
todo.txt
@ -1,20 +1,15 @@
|
||||
- update doesn't work without 'only 1 instance' (it's the -q)
|
||||
+ replace shellExtDlg.gif with transparent png (english system)
|
||||
+ self-test supporting https
|
||||
+ expiring links
|
||||
* dismiss regexp lib http://docwiki.embarcadero.com/Libraries/Rio/en/System.RegularExpressions.TRegEx
|
||||
+ load *.events
|
||||
+ url auth limited to resource
|
||||
+ global limit speed for downloads (browsing excluded)
|
||||
* 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
|
||||
+ {.calc.} to have a third numeric parameter that becomes 'x' symbol
|
||||
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.}
|
||||
@ -24,20 +19,13 @@
|
||||
+ 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|ver=MASK|build=MIN-MAX|template=MASK]
|
||||
document: {.if|var}
|
||||
document: {.exec|out|timeout|exitcode.}
|
||||
document: [+section]
|
||||
document: {.set item|diff template.}
|
||||
document: {.add header|overwrite=0.}
|
||||
document: {.calc| ][ }
|
||||
document: single line diff templates (file path)
|
||||
document: {.disconnection reason|if=XXX.}
|
||||
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: pipe, base64, base64decode, dir, disk free, filetime, file changed, load tpl, sha256, for line
|
||||
document {.convert|macros|dec|hex.}
|
||||
document: new event [login]
|
||||
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:
|
||||
@ -48,14 +36,18 @@ document: new event [login]
|
||||
+ 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/
|
||||
+ next VFS file format version should be text (yaml or json)
|
||||
+ 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.}
|
||||
+ user input through {.dialog.} or similar
|
||||
+ 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
|
||||
@ -69,6 +61,8 @@ document: new event [login]
|
||||
+ 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
|
||||
@ -95,6 +89,7 @@ document: new event [login]
|
||||
+ 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)
|
||||
|
||||
5
upload_disabled.txt
Normal file
5
upload_disabled.txt
Normal file
@ -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".
|
||||
10
upload_how.txt
Normal file
10
upload_how.txt
Normal file
@ -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.
|
||||
361
utillib.pas
361
utillib.pas
@ -1,5 +1,5 @@
|
||||
{
|
||||
Copyright (C) 2002-2020 Massimo Melina (www.rejetto.com)
|
||||
Copyright (C) 2002-2012 Massimo Melina (www.rejetto.com)
|
||||
|
||||
This file is part of HFS ~ HTTP File Server.
|
||||
|
||||
@ -24,7 +24,7 @@ unit utilLib;
|
||||
interface
|
||||
|
||||
uses
|
||||
IOUtils, main, hslib, regexpr, types, windows, graphics, dialogs, registry, classes, dateUtils, Vcl.Imaging.GIFImg,
|
||||
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};
|
||||
|
||||
@ -44,7 +44,6 @@ type
|
||||
TnameExistsFun = function(user:string):boolean;
|
||||
|
||||
procedure doNothing(); inline; // useful for readability
|
||||
function httpsCanWork():boolean;
|
||||
function accountExists(user:string; evenGroups:boolean=FALSE):boolean;
|
||||
function getAccount(user:string; evenGroups:boolean=FALSE):Paccount;
|
||||
function nodeToFile(n:TtreeNode):Tfile;
|
||||
@ -83,10 +82,11 @@ 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; mask:boolean=TRUE):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;
|
||||
@ -166,19 +166,19 @@ 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(s:string; var a:TStringDynArray; onlyOnce:boolean=TRUE; ci:boolean=TRUE; keepOrder:boolean=TRUE):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; ci:Boolean=TRUE);
|
||||
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;
|
||||
function sortArray(a:TStringDynArray):TStringDynArray;
|
||||
procedure sortArray(var a:TStringDynArray);
|
||||
// convert
|
||||
function boolToPtr(b:boolean):pointer;
|
||||
function strToCharset(s:string):Tcharset;
|
||||
@ -255,7 +255,6 @@ function strSHA256(s:string):string;
|
||||
function strSHA1(s:string):string;
|
||||
function strMD5(s:string):string;
|
||||
function strToOem(s:string):ansistring;
|
||||
function strToBytes(s:ansistring):Tbytes;
|
||||
|
||||
implementation
|
||||
|
||||
@ -641,14 +640,13 @@ if i < 0 then addString(s, ss)
|
||||
else removeString(ss, i);
|
||||
end; // toggleString
|
||||
|
||||
procedure uniqueStrings(var a:TstringDynArray; ci:Boolean=TRUE);
|
||||
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 ci and SameText(a[i], a[j])
|
||||
or not ci and (a[i] = a[j]) then
|
||||
if ansiCompareText(a[i], a[j]) = 0 then
|
||||
begin
|
||||
removeString(a, i);
|
||||
break;
|
||||
@ -669,6 +667,10 @@ begin
|
||||
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;
|
||||
@ -742,35 +744,6 @@ while idx+l < length(a) do
|
||||
setLength(a, idx);
|
||||
end; // removestring
|
||||
|
||||
function removeString(s:string; var a:TStringDynArray; onlyOnce:boolean=TRUE; ci:boolean=TRUE; keepOrder:boolean=TRUE):boolean; overload;
|
||||
var i, lessen:integer;
|
||||
begin
|
||||
result:=FALSE;
|
||||
if a = NIL then
|
||||
exit;
|
||||
lessen:=0;
|
||||
try
|
||||
for i:=length(a)-1 to 0 do
|
||||
if ci and sameText(a[i], s)
|
||||
or not ci and (a[i]=s) then
|
||||
begin
|
||||
result:=TRUE;
|
||||
if keepOrder then
|
||||
removeString(a, i)
|
||||
else
|
||||
begin
|
||||
inc(lessen);
|
||||
a[i]:=a[length(a)-lessen];
|
||||
end;
|
||||
if onlyOnce then
|
||||
exit;
|
||||
end;
|
||||
finally
|
||||
if lessen > 0 then
|
||||
setLength(a, length(a)-lessen);
|
||||
end;
|
||||
end;
|
||||
|
||||
function dotted(i:int64):string;
|
||||
begin
|
||||
result:=intToStr(i);
|
||||
@ -1240,8 +1213,14 @@ end;
|
||||
|
||||
// exec but does not wait for the process to end
|
||||
function execNew(cmd:string):boolean;
|
||||
var
|
||||
si: TStartupInfo;
|
||||
pi: TProcessInformation;
|
||||
begin
|
||||
result:=32 < ShellExecute(0, nil, 'cmd.exe', pchar('/C '+cmd), nil, SW_SHOW);
|
||||
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;
|
||||
@ -1399,72 +1378,56 @@ while mask > '' do
|
||||
result:=result xor odd(invert);
|
||||
end; // filematch
|
||||
|
||||
function checkAddressSyntax(address:string; mask:boolean=TRUE):boolean;
|
||||
function checkAddressSyntax(address:string; wildcards:boolean=TRUE):boolean;
|
||||
var
|
||||
a1, a2: string;
|
||||
sf: TSocketFamily;
|
||||
i, dots, lastDot: integer;
|
||||
wildcardsMet: boolean;
|
||||
|
||||
function validNumber():boolean;
|
||||
begin result:=strToIntDef(substr(a1,lastDot+1,i-1), 0) <= 255 end;
|
||||
|
||||
begin
|
||||
if not mask then
|
||||
exit(WSocketIsIPEx(address, sf));
|
||||
result:=FALSE;
|
||||
while (address > '') and (address[1] = '\') do
|
||||
delete(address,1,1);
|
||||
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;
|
||||
if sameText(a2, 'lan') then continue;
|
||||
a1:=chop('-', a2);
|
||||
if a2 > '' then
|
||||
if not checkAddressSyntax(a1, FALSE)
|
||||
or not checkAddressSyntax(a2, FALSE) then
|
||||
exit;
|
||||
if reMatch(a1, '^[?*a-f0-9\.:]+$', '!') = 0 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:=TRUE;
|
||||
result:=validNumber();
|
||||
end; // checkAddressSyntax
|
||||
|
||||
function ipv6hex(ip:TIcsIPv6Address):string;
|
||||
begin
|
||||
setLength(result, 4*8);
|
||||
binToHex(@ip.words[0], pchar(result), sizeOf(ip))
|
||||
end;
|
||||
|
||||
function addressMatch(mask, address:string):boolean;
|
||||
var
|
||||
invert: boolean;
|
||||
addr4: dword;
|
||||
addr6: string;
|
||||
bits: integer;
|
||||
a: TStringDynArray;
|
||||
|
||||
function ipv6fix(s:string):string;
|
||||
var
|
||||
ok: boolean;
|
||||
r: TIcsIPv6Address;
|
||||
begin
|
||||
if length(s) = 39 then
|
||||
exit(replaceStr(s,':',''));
|
||||
r:=wsocketStrToipv6(s, ok);
|
||||
if ok then
|
||||
exit(ipv6hex(r));
|
||||
exit('');
|
||||
end;
|
||||
|
||||
function ipv6range():boolean;
|
||||
var
|
||||
min, max: string;
|
||||
begin
|
||||
min:=ipv6fix(a[0]);
|
||||
if min = ''then
|
||||
exit(FALSE);
|
||||
max:=ipv6fix(a[1]);
|
||||
if max = '' then
|
||||
exit(FALSE);
|
||||
result:=(min <= addr6) and (max >= addr6)
|
||||
end; // ipv6range
|
||||
|
||||
part1, part2: string;
|
||||
addrInt: dword;
|
||||
ofs, i, bits: integer;
|
||||
masks: TStringDynArray;
|
||||
mode: (SINGLE, BITMASK, RANGE);
|
||||
begin
|
||||
result:=FALSE;
|
||||
invert:=FALSE;
|
||||
@ -1473,45 +1436,39 @@ while (mask > '') and (mask[1] = '\') do
|
||||
delete(mask,1,1);
|
||||
invert:=not invert;
|
||||
end;
|
||||
addr6:=ipv6fix(address);
|
||||
addr4:=0;
|
||||
if addr6 = '' then
|
||||
addr4:=ipToInt(address);
|
||||
for mask in split(';',mask) do
|
||||
addrInt:=ipToInt(address);
|
||||
masks:=split(';',mask);
|
||||
ofs:=1;
|
||||
while not result and (ofs <= length(mask)) do
|
||||
begin
|
||||
if result then
|
||||
break;
|
||||
if sameText(mask, 'lan') then
|
||||
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;
|
||||
|
||||
// range?
|
||||
a:=split('-', mask);
|
||||
if length(a) = 2 then
|
||||
i:=lastDelimiter('-/', part1);
|
||||
if i > 0 then
|
||||
begin
|
||||
if addr6 > '' then
|
||||
result:=ipv6range()
|
||||
else
|
||||
result:=(pos(':',a[0]) = 0) and (addr4 >= ipToInt(a[0])) and (addr4 <= ipToInt(a[1]));
|
||||
continue;
|
||||
if part1[i] = '-' then mode:=RANGE
|
||||
else mode:=BITMASK;
|
||||
part2:=part1;
|
||||
part1:=chop(i, 1, part2);
|
||||
end;
|
||||
|
||||
// bitmask? ipv4 only
|
||||
a:=split('/', mask);
|
||||
if (addr6='') and (length(a) = 2) then
|
||||
begin
|
||||
try
|
||||
bits:=32-strToInt(a[1]);
|
||||
result:=addr4 shr bits = ipToInt(a[0]) shr bits;
|
||||
except
|
||||
end;
|
||||
continue;
|
||||
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;
|
||||
|
||||
// single
|
||||
result:=match( pchar(mask), pchar(address) ) > 0;
|
||||
end;
|
||||
result:=result xor invert;
|
||||
end; // addressMatch
|
||||
@ -1678,103 +1635,71 @@ result:=inputQueryLongdlg.ShowModal() = mrOk;
|
||||
if result then value:=inputQueryLongdlg.inputBox.Text;
|
||||
end; // inputQueryLong
|
||||
|
||||
function dllIsPresent(name:string):boolean;
|
||||
var h: HMODULE;
|
||||
begin
|
||||
h:=LoadLibrary(@name);
|
||||
result:= h<>0;
|
||||
FreeLibrary(h);
|
||||
end;
|
||||
|
||||
function httpsCanWork():boolean;
|
||||
const
|
||||
files: array of string = ['libcrypto-1_1.dll','libssl-1_1.dll'];
|
||||
baseUrl = 'http://rejetto.com/hfs/';
|
||||
// these should be made resourcestring but then a runtime error is raised
|
||||
MSG = 'An HTTPS action is required but some files are missing. Download them?';
|
||||
MSG_OK = 'Download completed';
|
||||
MSG_KO = 'Download failed';
|
||||
var
|
||||
s: string;
|
||||
missing: TStringDynArray;
|
||||
begin
|
||||
missing:=NIL;
|
||||
for s in files do
|
||||
if not FileExists(s) and not dllIsPresent(s) then
|
||||
addString(s, missing);
|
||||
if missing=NIL then
|
||||
exit(TRUE);
|
||||
if msgDlg(MSG, MB_OKCANCEL+MB_ICONQUESTION) <> MROK then
|
||||
exit(FALSE);
|
||||
for s in missing do
|
||||
if not httpGetFile(baseUrl+s, s, 2, mainfrm.statusBarHttpGetUpdate) then
|
||||
begin
|
||||
msgDlg(MSG_KO, MB_ICONERROR);
|
||||
exit(FALSE);
|
||||
end;
|
||||
mainfrm.setStatusBarText(MSG_OK);
|
||||
result:=TRUE;
|
||||
end; // httpsCanWork
|
||||
|
||||
function httpGet(url:string; from:int64=0; size:int64=-1):string;
|
||||
var
|
||||
http: THttpCli;
|
||||
reply: Tstringstream;
|
||||
begin
|
||||
if size = 0 then
|
||||
exit('');
|
||||
begin
|
||||
result:='';
|
||||
exit;
|
||||
end;
|
||||
reply:=TStringStream.Create('');
|
||||
with ThttpClient.createURL(url) do
|
||||
try
|
||||
http:=Thttpcli.create(NIL);
|
||||
try
|
||||
rcvdStream:=reply;
|
||||
http.URL:=url;
|
||||
http.followRelocation:=TRUE;
|
||||
http.rcvdStream:=reply;
|
||||
http.agent:=HFS_HTTP_AGENT;
|
||||
if (from <> 0) or (size > 0) then
|
||||
contentRangeBegin:=intToStr(from);
|
||||
http.contentRangeBegin:=intToStr(from);
|
||||
if size > 0 then
|
||||
contentRangeEnd:=intToStr(from+size-1);
|
||||
get();
|
||||
http.contentRangeEnd:=intToStr(from+size-1);
|
||||
http.get();
|
||||
result:=reply.dataString;
|
||||
if sameText('utf-8', reGet(ContentType, '; *charset=(.+) *($|;)')) then
|
||||
Result:=UTF8ToString(result);
|
||||
finally
|
||||
reply.free;
|
||||
Free;
|
||||
end
|
||||
finally http.free end
|
||||
finally reply.free end
|
||||
end; // httpGet
|
||||
|
||||
function httpFileSize(url:string):int64;
|
||||
var
|
||||
http: THttpCli;
|
||||
begin
|
||||
with ThttpClient.createURL(url) do
|
||||
http:=Thttpcli.create(NIL);
|
||||
try
|
||||
http.URL:=url;
|
||||
http.Agent:=HFS_HTTP_AGENT;
|
||||
try
|
||||
try
|
||||
head();
|
||||
result:=contentLength
|
||||
except result:=-1
|
||||
end;
|
||||
finally free
|
||||
end;
|
||||
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
|
||||
supposed: integer;
|
||||
http: THttpCli;
|
||||
reply: Tfilestream;
|
||||
supposed: integer;
|
||||
begin
|
||||
reply:=TfileStream.Create(filename, fmCreate);
|
||||
with ThttpClient.createURL(url) do
|
||||
try
|
||||
http:=Thttpcli.create(NIL);
|
||||
try
|
||||
rcvdStream:=reply;
|
||||
onDocData:=notify;
|
||||
http.URL:=url;
|
||||
http.RcvdStream:=reply;
|
||||
http.Agent:=HFS_HTTP_AGENT;
|
||||
http.OnDocData:=notify;
|
||||
result:=TRUE;
|
||||
try get()
|
||||
except result:=FALSE
|
||||
end;
|
||||
supposed:=ContentLength;
|
||||
finally
|
||||
reply.free;
|
||||
free;
|
||||
end;
|
||||
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 then deleteFile(filename);
|
||||
|
||||
if not result and (tryTimes > 1) then
|
||||
result:=httpGetFile(url, filename, tryTimes-1, notify);
|
||||
@ -1832,12 +1757,10 @@ 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);
|
||||
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, FALSE) and not HSlib.isLocalIP(s);
|
||||
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));
|
||||
@ -1857,13 +1780,17 @@ while (x > x1) and (result < statusbar.Panels.Count-1) do
|
||||
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);
|
||||
try addArray(result, listToArray(localIPlist(sfAny)))
|
||||
except end;
|
||||
addArray(result, getIPs());
|
||||
removeStrings('', result);
|
||||
uniqueStrings(result);
|
||||
end; // getPossibleAddresses
|
||||
@ -2116,8 +2043,7 @@ if to_ = NIL then
|
||||
end;
|
||||
l:=to_-from+1;
|
||||
setLength(result, l);
|
||||
if l > 0 then
|
||||
strLcopy(@result[1], from, l);
|
||||
if l > 0 then strLcopy(@result[1], from, l);
|
||||
end; // getStr
|
||||
|
||||
function poss(chars:TcharSet; s:string; ofs:integer=1):integer;
|
||||
@ -2220,7 +2146,7 @@ const
|
||||
var
|
||||
sa : TSecurityAttributes;
|
||||
ReadPipe,WritePipe : THandle;
|
||||
start : TStartUpInfoW;
|
||||
start : TStartUpInfoA;
|
||||
ProcessInfo : TProcessInformation;
|
||||
Buffer : Pansichar;
|
||||
TotalBytesRead,
|
||||
@ -2251,7 +2177,7 @@ else
|
||||
timeout:=now()+timeout/SECONDS;
|
||||
// Create a Console Child Process with redirected input and output
|
||||
try
|
||||
if CreateProcess(nil, PChar(dosApp), @sa, @sa, true, CREATE_NO_WINDOW or NORMAL_PRIORITY_CLASS, nil, nil, start, ProcessInfo) then
|
||||
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
|
||||
@ -2261,22 +2187,16 @@ try
|
||||
// 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 )
|
||||
or (BytesRead > 0) and not ReadFile(ReadPipe, Buffer[TotalBytesRead], BytesRead, BytesRead, nil ) then
|
||||
break;
|
||||
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);
|
||||
if IsTextUnicode(Buffer, TotalBytesRead, NIL) then
|
||||
begin
|
||||
Pchar(@Buffer[TotalBytesRead])^:= #0;
|
||||
output:=pchar(Buffer)
|
||||
end
|
||||
else
|
||||
begin
|
||||
Buffer[TotalBytesRead]:= #0;
|
||||
OemToCharA(Buffer,Buffer);
|
||||
output:=string(ansistrings.strPas(Buffer));
|
||||
end;
|
||||
Buffer[TotalBytesRead]:= #0;
|
||||
OemToCharA(PansiChar(Buffer),Buffer);
|
||||
output:=string(ansistrings.strPas(Buffer));
|
||||
finally
|
||||
GetExitCodeProcess(ProcessInfo.hProcess, exitcode);
|
||||
TerminateProcess(ProcessInfo.hProcess, 0);
|
||||
@ -2582,8 +2502,7 @@ var
|
||||
i:=mImp+dir;
|
||||
repeat
|
||||
j:=i+dir;
|
||||
if (j > 0) and (j <= length(s))
|
||||
and (charInSet(s[j], ['0'..'9','.','E']) or (j>1) and charInSet(s[j],['+','-']) and (s[j-1]='E')) then
|
||||
if (j > 0) and (j <= length(s)) and charInSet(s[j], ['0'..'9','.']) then
|
||||
i:=j
|
||||
else
|
||||
break;
|
||||
@ -2613,7 +2532,6 @@ begin
|
||||
end;
|
||||
|
||||
if (i = 1) // a starting operator is not an operator
|
||||
or (s[i-1]='E') // exponential syntax
|
||||
or (v <= mImpV) // left-to-right precedence
|
||||
then continue;
|
||||
// we got a better one, record it
|
||||
@ -2721,7 +2639,7 @@ accounts[i]:=acc;
|
||||
result:=@accounts[i];
|
||||
end; // createAccountOnTheFly
|
||||
|
||||
function sortArray(a:TStringDynArray):TStringDynArray;
|
||||
procedure sortArray(var a:TStringDynArray);
|
||||
var
|
||||
i, j, l: integer;
|
||||
begin
|
||||
@ -2729,7 +2647,6 @@ 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);
|
||||
result:=a;
|
||||
end; // sortArray
|
||||
|
||||
procedure onlyForExperts(controls:array of Tcontrol);
|
||||
@ -2943,7 +2860,7 @@ finally
|
||||
end;
|
||||
end; // deltree
|
||||
|
||||
function strToBytes(s:ansistring):Tbytes;
|
||||
function str2bytes(s:ansistring):Tbytes;
|
||||
begin
|
||||
setLength(result, length(s));
|
||||
move(s[1], result[0], length(result));
|
||||
@ -2953,7 +2870,7 @@ function stringToGif(s:ansistring; gif:TgifImage=NIL):TgifImage;
|
||||
var
|
||||
ss: Tbytesstream;
|
||||
begin
|
||||
ss:=Tbytesstream.create(strToBytes(s));
|
||||
ss:=Tbytesstream.create(str2bytes(s));
|
||||
try
|
||||
if gif = NIL then
|
||||
gif:=TGIFImage.Create();
|
||||
|
||||
21
whatsnew.txt
21
whatsnew.txt
@ -1,4 +1,4 @@
|
||||
HFS - what's new
|
||||
HFS - what's new
|
||||
|
||||
LEGEND
|
||||
! very important
|
||||
@ -9,35 +9,22 @@ AV access violation
|
||||
|
||||
VER 2.4
|
||||
propaganda
|
||||
Mobile-friendly template
|
||||
New mobile-friendly template
|
||||
Unicode support
|
||||
Encrypted login, and logout
|
||||
DoS protection
|
||||
IPv6
|
||||
/propaganda
|
||||
+ new default template
|
||||
+ new login system, session based, with logout
|
||||
+ IPv6 support
|
||||
+ DoS protection https://rejetto.com/forum/index.php?topic=13060.msg1065962#msg1065962
|
||||
+ {.set item|name.}
|
||||
+ {.get item|icon.}
|
||||
+ {.set cfg.}
|
||||
+ {.for line.}
|
||||
+ {.if|var}
|
||||
+ cache for jquery and template sections
|
||||
+ new template commands: base64, base64decode, md5, sha1, sha256
|
||||
+ *.diff.tpl in exe's folder
|
||||
+ default mime-type for mkv
|
||||
+ 'no list' section flag
|
||||
+ https client support (not server)
|
||||
+ new template commands: base64, base64decode, md5, sha1
|
||||
+ hfs.diff.*.tpl in exe's folder
|
||||
- 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
|
||||
- fixed while renaming a file in the GUI, CTRL+C/V didn't work on the text
|
||||
- fixed diff tpl logic: an empty section will now override the inherited one
|
||||
|
||||
VER 2.3m
|
||||
propaganda
|
||||
|
||||
Loading…
Reference in New Issue
Block a user