MBonaldo/hfs2
1
0
Fork 0
mirror of https://github.com/rejetto/hfs2.git synced 2025-12-19 10:03:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

accept session/cookie through URL

Browse Source
This commit is contained in:
Massimo Melina 2020-05-14 11:40:24 +02:00
parent 34d4adf0c3
commit 8a622be58d
6 changed files with 688 additions and 625 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
data.RES
View File

Binary file not shown.

10
hfs.dproj
View File

@ -206,9 +206,9 @@
</Platforms>
<ModelSupport>False</ModelSupport>
<Deployment Version="3">
<DeployFile LocalName="hfs.exe" Configuration="Release" Class="ProjectOutput">
<DeployFile LocalName="hfs.dpr" Configuration="Debug" Class="ProjectFile">
<Platform Name="Win32">
<RemoteName>hfs.exe</RemoteName>
<RemoteDir>.\</RemoteDir>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
@ -219,15 +219,15 @@
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="hfs.exe" Configuration="Debug" Class="ProjectOutput">
<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">
<DeployFile LocalName="hfs.exe" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteDir>.\</RemoteDir>
<RemoteName>hfs.exe</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>

1258
hfs.drc
View File

File diff suppressed because it is too large Load Diff

41
main.dfm
View File

@ -78,8 +78,6 @@ object mainFrm: TmainFrm
ParentFont = False
ShowCaptions = True
TabOrder = 1
ExplicitWidth = 783
ExplicitHeight = 55
object menuBtn: TToolButton
Left = 0
Top = 0
@ -191,8 +189,6 @@ object mainFrm: TmainFrm
ShowCaptions = True
TabOrder = 2
Wrapable = False
ExplicitTop = 55
ExplicitWidth = 783
object browseBtn: TToolButton
Left = 0
Top = 0
@ -232,9 +228,6 @@ object mainFrm: TmainFrm
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitTop = 114
ExplicitWidth = 783
ExplicitHeight = 277
object splitV: TSplitter
Left = 313
Top = 0
@ -268,8 +261,6 @@ object mainFrm: TmainFrm
Align = alClient
BevelOuter = bvNone
TabOrder = 1
ExplicitWidth = 467
ExplicitHeight = 166
object logBox: TRichEdit
Left = 0
Top = 23
@ -291,8 +282,6 @@ object mainFrm: TmainFrm
Zoom = 100
OnChange = logBoxChange
OnMouseDown = logBoxMouseDown
ExplicitWidth = 467
ExplicitHeight = 143
end
object logTitle: TPanel
Left = 0
@ -302,7 +291,6 @@ object mainFrm: TmainFrm
Align = alTop
BevelOuter = bvNone
TabOrder = 1
ExplicitWidth = 467
object titlePnl: TPanel
Left = 0
Top = 0
@ -312,7 +300,6 @@ object mainFrm: TmainFrm
BevelOuter = bvNone
Caption = 'Log'
TabOrder = 0
ExplicitWidth = 211
end
object logToolbar: TPanel
Left = 341
@ -323,9 +310,8 @@ object mainFrm: TmainFrm
AutoSize = True
BevelOuter = bvNone
TabOrder = 1
ExplicitLeft = 211
object collapsedPnl: TPanel
Left = 0
Left = -4
Top = 0
Width = 21
Height = 23
@ -333,6 +319,7 @@ object mainFrm: TmainFrm
AutoSize = True
BevelOuter = bvNone
TabOrder = 0
ExplicitLeft = 0
object expandBtn: TSpeedButton
Left = 0
Top = 0
@ -365,16 +352,17 @@ object mainFrm: TmainFrm
end
end
object expandedPnl: TPanel
Left = 21
Left = 17
Top = 0
Width = 235
Width = 239
Height = 23
Align = alRight
AutoSize = True
BevelOuter = bvNone
TabOrder = 1
ExplicitLeft = 21
object openFilteredLog: TSpeedButton
Left = 209
Left = 213
Top = 0
Width = 26
Height = 23
@ -439,7 +427,7 @@ object mainFrm: TmainFrm
OnClick = openLogBtnClick
end
object openLogBtn: TSpeedButton
Left = 183
Left = 187
Top = 0
Width = 26
Height = 23
@ -486,7 +474,7 @@ object mainFrm: TmainFrm
OnClick = openLogBtnClick
end
object collapseBtn: TSpeedButton
Left = -4
Left = 0
Top = 0
Width = 21
Height = 23
@ -513,18 +501,16 @@ object mainFrm: TmainFrm
ParentShowHint = False
ShowHint = True
OnClick = collapseBtnClick
ExplicitLeft = 0
end
object Bevel1: TBevel
Left = 17
Left = 21
Top = 0
Width = 2
Height = 23
Align = alRight
ExplicitLeft = 21
end
object searchPnl: TPanel
Left = 19
Left = 23
Top = 0
Width = 164
Height = 23
@ -533,7 +519,6 @@ object mainFrm: TmainFrm
BevelOuter = bvNone
Padding.Left = 5
TabOrder = 0
ExplicitLeft = 23
DesignSize = (
164
23)
@ -579,7 +564,6 @@ object mainFrm: TmainFrm
BevelOuter = bvNone
Caption = 'filesPnl'
TabOrder = 0
ExplicitHeight = 166
object filesBox: TTreeView
Left = 0
Top = 23
@ -620,7 +604,6 @@ object mainFrm: TmainFrm
OnMouseEnter = filesBoxMouseEnter
OnMouseLeave = filesBoxMouseLeave
OnMouseUp = filesBoxMouseUp
ExplicitHeight = 143
end
object filesTitle: TPanel
Left = 0
@ -641,8 +624,6 @@ object mainFrm: TmainFrm
Align = alBottom
BevelOuter = bvNone
TabOrder = 2
ExplicitTop = 171
ExplicitWidth = 783
object sbar: TStatusBar
Left = 0
Top = 87
@ -654,7 +635,6 @@ object mainFrm: TmainFrm
end>
OnDblClick = sbarDblClick
OnMouseDown = sbarMouseDown
ExplicitWidth = 783
end
object connBox: TListView
Left = 0
@ -706,7 +686,6 @@ object mainFrm: TmainFrm
ViewStyle = vsReport
OnAdvancedCustomDrawSubItem = connBoxAdvancedCustomDrawSubItem
OnData = connBoxData
ExplicitWidth = 886
end
end
end

2
main.pas
View File

@ -4892,6 +4892,8 @@ var
if data.session = NIL then
begin
sid:=conn.getCookie(SESSION_COOKIE);
if sid = '' then
sid:=data.urlvars.Values[SESSION_COOKIE];
if sid = '' then
begin
data.session:=Tsession.create();

2
recompile data.bat
View File

@ -1,2 +1,2 @@
brcc32 data.rc
dcc32 hfs -U\code\mine\libs;\code\other\ics\delphi\vc32;\code\other\compiled;c:\code\other\jcl\source\windows\;c:\code\other\jcl\source\common\;C:\progs\Borland\BDS\4.0\lib
dcc32.exe hfs.dpr -$W+ --no-config -M -Q -TX.exe -AForms=VCL.Forms;Generics.Collections=System.Generics.Collections;Generics.Defaults=System.Generics.Defaults;WinTypes=Winapi.Windows;WinProcs=Winapi.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG -I"c:\program files (x86)\embarcadero\studio\20.0\Lib\Debug";"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release";C:\Users\rejetto\Documents\Embarcadero\Studio\20.0\Imports;"c:\program files (x86)\embarcadero\studio\20.0\Imports"; C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include";Presbylutheran;C:\code\other\compiled; C:\code\other\fastmm4;uFreeLocalizer;C:\code\other\kdl;c:\code\other\ics8\source;c:\code\other\GifImage;c:\code\other\DelphiZLib; c:\code\other\regexp\Source;c:\code\other\jcl\source\windows;c:\code\other\jcl\source\include;c:\code\other\jcl\source\common -LEC:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl -LNC:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp -NSData.Win;Datasnap.Win;Web.Win; Soap.Win;Xml.Win;Bde;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win; -O"c:\program files (x86)\embarcadero\studio\20.0\Lib\Debug";"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release";"c:\program files (x86)\embarcadero\studio\20.0\Imports"; C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include";Presbylutheran;C:\code\other\compiled; C:\code\other\fastmm4;uFreeLocalizer;C:\code\other\kdl;c:\code\other\ics8\source;c:\code\other\GifImage;c:\code\other\DelphiZLib; c:\code\other\regexp\Source;c:\code\other\jcl\source\windows;c:\code\other\jcl\source\include;c:\code\other\jcl\source\common -R"c:\program files (x86)\embarcadero\studio\20.0\Lib\Debug";"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release";"c:\program files (x86)\embarcadero\studio\20.0\Imports"; C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include";Presbylutheran;C:\code\other\compiled; C:\code\other\fastmm4;uFreeLocalizer;C:\code\other\kdl;c:\code\other\ics8\source;c:\code\other\GifImage;c:\code\other\DelphiZLib; c:\code\other\regexp\Source;c:\code\other\jcl\source\windows;c:\code\other\jcl\source\include;c:\code\other\jcl\source\common -U"c:\program files (x86)\embarcadero\studio\20.0\Lib\Debug";"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release";"c:\program files (x86)\embarcadero\studio\20.0\Imports"; C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp;"c:\program files (x86)\embarcadero\studio\20.0\include";Presbylutheran;C:\code\other\compiled; C:\code\other\fastmm4;uFreeLocalizer;C:\code\other\kdl;c:\code\other\ics8\source;c:\code\other\GifImage;c:\code\other\DelphiZLib; c:\code\other\regexp\Source;c:\code\other\jcl\source\windows;c:\code\other\jcl\source\include;c:\code\other\jcl\source\common -K00400000 --description:"HFS ~ HTTP File Server - www.rejetto.com/hfs" -GD -NBC:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp -NHC:\Users\Public\Documents\Embarcadero\Studio\20.0\hpp\Win32