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

fix: link-with-password, if the account has a redirect, it will make it to the second request (often css)

Browse Source
This commit is contained in:
Massimo Melina 2020-05-27 11:38:14 +02:00
parent 1c0ff4e75a
commit 0483032439
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
main.pas
View File

@ -36,8 +36,8 @@ uses
HSlib, traylib, monoLib, progFrmLib, classesLib; HSlib, traylib, monoLib, progFrmLib, classesLib;
const const
VERSION = '2.4 beta5'; VERSION = '2.4 beta6';
VERSION_BUILD = '307'; VERSION_BUILD = '308';
VERSION_STABLE = {$IFDEF STABLE } TRUE {$ELSE} FALSE {$ENDIF}; VERSION_STABLE = {$IFDEF STABLE } TRUE {$ELSE} FALSE {$ENDIF};
CURRENT_VFS_FORMAT :integer = 1; CURRENT_VFS_FORMAT :integer = 1;
CRLF = #13#10; CRLF = #13#10;
@ -4905,6 +4905,16 @@ var
+'filename*=UTF-8'''''+s+'; filename='+s)); +'filename*=UTF-8'''''+s+'; filename='+s));
end; end;
function sessionRedirect():boolean;
begin
if data.session.redirect = '' then
exit(FALSE);
conn.reply.mode:=HRM_REDIRECT;
conn.reply.url:=data.session.redirect;
data.session.redirect:=''; // only once
result:=TRUE;
end; // sessionRedirect
function sessionSetup():boolean; function sessionSetup():boolean;
var var
sid: string; sid: string;
@ -4951,13 +4961,6 @@ var
exit; exit;
data.user:=data.account.user; data.user:=data.account.user;
data.pwd:=data.account.pwd; data.pwd:=data.account.pwd;
if data.session.redirect > '' then
begin
conn.reply.mode:=HRM_REDIRECT;
conn.reply.url:=data.session.redirect;
data.session.redirect:=''; // only once
result:=FALSE;
end;
end; // sessionSetup end; // sessionSetup
procedure serveTar(); procedure serveTar();
@ -5264,7 +5267,6 @@ var
data.session.user:=acc.user; data.session.user:=acc.user;
data.user:=acc.user; data.user:=acc.user;
data.pwd:=acc.pwd; data.pwd:=acc.pwd;
data.session.redirect:=getAccountRedirect(acc);
end; //urlAuth end; //urlAuth
var var
@ -5614,7 +5616,8 @@ var
if f.isFolder() then if f.isFolder() then
begin begin
deletion(); deletion();
if sessionRedirect() then
exit;
data.downloadingWhat:=DW_FOLDERPAGE; data.downloadingWhat:=DW_FOLDERPAGE;
if DMbrowserTplChk.Checked and isDownloadManagerBrowser() then if DMbrowserTplChk.Checked and isDownloadManagerBrowser() then
s:=getFolderPage(f, data, dmBrowserTpl) s:=getFolderPage(f, data, dmBrowserTpl)