Andrew
29-Jul-2006, 10:39 AM
Could you please make the following change permanently in the Eureka Log
source code to fix the problem of 2 users having an error at the same time
replacing the file on the FTP server. It would be good if you could add an
option like sndAddDateInFileName to the check boxes.
Also, would it be possible to have some kind of global string (i.e.
elApplicatonName that could be used at the start of the file name: e.g.
"MyAccountingProgram_CompressFiles_20060729201611_{ B0726F81-2B16-4685-9E7A-31CB0E65C131}.tgz"
so different applications and/or versions could log to the same FTP
directory and been "read in" using a batch tool without having to open and
read the tgz file.
ExceptionLog.pas
function GetRealFileName(const FileName: string): string;
var
newGUID: TGuid;
begin
CreateGUID( newGUID );
Result := ExtractFileName(FileName);
if (sndAddDateInFileName in CurrentOptions.CommonSendOptions) then
Result := (ChangeFileExt(Result, '') + '_' +
FormatDateTime('yyyymmddhhnnss',
ExceptionTime)+'_'+guidToString(newGUID) + ExtractFileExt(Result));
end;
source code to fix the problem of 2 users having an error at the same time
replacing the file on the FTP server. It would be good if you could add an
option like sndAddDateInFileName to the check boxes.
Also, would it be possible to have some kind of global string (i.e.
elApplicatonName that could be used at the start of the file name: e.g.
"MyAccountingProgram_CompressFiles_20060729201611_{ B0726F81-2B16-4685-9E7A-31CB0E65C131}.tgz"
so different applications and/or versions could log to the same FTP
directory and been "read in" using a batch tool without having to open and
read the tgz file.
ExceptionLog.pas
function GetRealFileName(const FileName: string): string;
var
newGUID: TGuid;
begin
CreateGUID( newGUID );
Result := ExtractFileName(FileName);
if (sndAddDateInFileName in CurrentOptions.CommonSendOptions) then
Result := (ChangeFileExt(Result, '') + '_' +
FormatDateTime('yyyymmddhhnnss',
ExceptionTime)+'_'+guidToString(newGUID) + ExtractFileExt(Result));
end;