rejetto forum
Software => HFS ~ HTTP File Server => Programmers corner => Topic started by: Mars on March 12, 2009, 10:46:37 PM
-
actually in hfs.events, it is possible to do
[download name]
%user%.%item-name%
The downloaded file can be renamed before sending to the user
*************************************************
With what follows it is also possible to influence the name of files sent by the user at the time of the reception to the server and before recording
procedure Tmainfrm.httpEvent(event:ThttpEvent; conn:ThttpConn);
.....
function runEventScript(event: string; table: array of string):string;overload; //mod by mars
var
s: string;
md: TmacroData;
begin
result:='';
s:=trim(xtpl(eventScripts[event],table)); //mod by mars
if s = '' then exit;
fillchar(md, sizeof(md), 0);
md.cd:=data;
try
if assigned(data.f) then // a file has been uploaded
begin
// this exposes file properties to the script. it must be encapsulated in a Tfile. we don't need to cache the object because we need it only once.
md.f:=Tfile.create(getFilename(data.f^));
include(md.f.flags, FA_TEMP)
end
else if assigned(f) then
md.f:=f
else
md.f:=data.lastFile;
tryApplyMacrosAndSymbols(s, md);
result:=s;
except md.f.free end;
end; // runEventScript
function runEventScript(event:string):string;overload; //add by mars download name compatibility
begin
result:=runEventScript(event,[]);
end; // runEventScript
.......
function getUploadDestinationFileName():string;
var
i: integer;
fn, ext: string;
begin
fn:=or_(trim( runEventScript( 'upload name', ['%item-name%', data.uploadSrc]) ), data.uploadSrc); //mod by by mars
fn:=xtpl(fn,['"','_', '?','_', '*','_', '|','_', '<','_', '>','_', '\','_', '/','-', ':','''']); //add by by mars convert invalid characters
result:=f.resource+'\'+fn;
if not numberFilesOnUploadChk.checked then exit;
ext:=extractFileExt(fn);
setLength(fn, length(fn)-length(ext));
i:=0;
while fileExists(result) do
begin
inc(i);
result:=format('%s\%s (%d)%s', [f.resource, fn, i, ext]);
end;
end; // getUploadDestinationFileName
[upload name]
%user%.%item-name%
The uploaded file can be renamed before regeistered in the server.
it is not possible to delete or move the file in this section with a macro, you can only change the actual upload name.
-
it's a good suggestion mars.
i just opted for a slightly different implementation:
the uploading file (data.f) was already accessible by event macros, so i just made assignFile() before runEventScript().
-
if you notice , i replace some invalid characters, all by a _ , except / by a - and, : by a '
it is necessary to do as this because when you insert a date %item-modified% in the section 'download name' the result should be 13/03/2009 18:00:00 , but it is not what it is proposed to the user (result is very strange)
[download name]
{.set|name|mars.%item-modified%.%item-name%.}
{.^name.}
{.add to log|{.^name.}.}
the add to log give a good result but IE can't convert prohibited characters, firefox replace all of them by a _ .
My choice is accordind to firefox and result of a date become mars.13-03-2009 18'00'00.file.ext , work very nice and is better butifull than mars.13_03_2009 18_00_00.file.ext
-
muaaahhh mars
bro u did it, i really wanted that
i did it this way
[download name]
SmS_Share_Server.%item-name%and it works fine :D
-
Mars can you explane more about that you put out, and what it is for ?
-
when a user select a file to been downloaded, before the file is sent to him, you can personalize the name which will be used inside the user's computer:
if by example you have two files with the same name ( not the same date or not the same size), but each of them in two different folders, after downloaded the first in a local folder (for the user), download the second will replace the first if the user make no change.
But you , you know that they are the same files with different version, it is possible to include in the name some information about this file before the download begin.
it is the job of the section [download name] in hfs.events
Furthermore, i create the same job with uploaded file with section [upload name],
then you can attach the name of the user with %user% to the real upload name
If a file is named 'martin.exe' at a user 'lambda', then the final upload name is lambda.martin.exe with the section
[upload name]
%user%.%item-name%
but It is not implemented in the last version yet ;)
-
procedure serveTar();
......
if f.name > '' then
begin
data.lastFN:=if_(f.name='/', 'home/', f.name)+'.'+if_(selection, 'selection', 'folder')+'.tar';
data.lastFN:=or_(trim(runEventScript('archive name',[
'%item-name%',data.lastFN,
'%folder%',if_(f.name='/', 'home', f.name),
'%selection%',if_(selection, 'selection', 'folder')
])), data.lastFN); // a script can eventually decide the name
data.lastFN:=xtpl(data.lastFN,['"','_', '?','_', '*','_', '|','_', '<','_', '>','_', '\','_', '/','-', ':','''']);
conn.addHeader('Content-Disposition: filename="'+data.lastFN+'";');
end;
except tar.free end;
end; // serveTar
hfs.events
[archive name]
%folder%.%selection%.tar
the exact default name used by rejetto is fully registered in the var %item-name%.
%folder% and %selection% give you the choice to select a name. Dont forget '.tar' at the end in this case.
If the section does not exist, the value by default is equivalent to %item-name%
Any bad character is automatically converted in a valid equivalent for a name of file.
all by a _ , except / by a - and, : by a '
-
if you notice , i replace some invalid characters, all by a _ , except / by a - and, : by a '
right mars.
i did the same, but with the following changes:
i allow ":" and "\" so that you can redirect the upload to another drive or folder.
i changed the way to pass symbols to the script: your method doesn't actually pass the symbols, just replaces at the end, and you cannot use macros on them.
i renamed %selection% to %mode% because "%selection% = selection" is not very elegant.
i renamed %item-name% to %archive-name% to avoid confusion: people may think they are using %item-name% so they can relay on other %item-properties% (while they exists and are related to another file).
-
i changed the way to pass symbols to the script: your method doesn't actually pass the symbols, just replaces at the end, and you cannot use macros on them.
I maybe badly understood, but kept silent let imply that the passed on information can contain macro or other 'dangerous' symbols. You should not forget that this event is intended to influence a name of file, thus with valid characters in return.
Filename---> invisible Action(s) - > new valid filename
I base my thoughts on the manners of the names of file current under Windows, because hfs turn under it ;)
-
i didn't understand your comment mars.
if it is very hard to translate try with french.
-
i changed the way to pass symbols to the script:
1)your method doesn't actually pass the symbols,
2) just replaces at the end,
3) and you cannot use macros on them.
runeventscript accept two params : name event + [one array of symbols]
function runEventScript(event:string; table:array of string):string; overload;
var
sa: TStringDynArray;
....
sa:=NIL;
addArray(sa, table);
......
tryApplyMacrosAndSymbols(result, md, sa);
1) function runEventScript(event: string; table: array of string):string;overload; //mod by mars
.....
begin
result:='';
2) s:=trim(xtpl(eventScripts[event],table)); //mod by mars
if s = '' then exit;
......
3) tryApplyMacrosAndSymbols(s, md);
result:=s;
except md.f.free end;
end; // runEventScript
n'est ce pas suffisant pour l'usage que l'on veut en faire??
data.lastFN:=or_(trim(runEventScript('archive name',[
'%item-name%',data.lastFN,
'%folder%',if_(f.name='/', 'home', f.name),
'%selection%',if_(selection, 'selection', 'folder')
])), data.lastFN); // a script can eventually decide the name
c'est pourtant une méthode d'appel de fonction des plus classique.
-
you are right, i misread your code.
you are replacing at first, it works 99% the same as my method.