1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-26 11:12:14 -05:00
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@380 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2010-01-07 18:58:00 +00:00
parent c5faba2cb5
commit 4a0e4dde3b

View File

@ -7,7 +7,7 @@ interface
uses uses
Classes, SysUtils, httpsend,blcksock Classes, SysUtils, httpsend,blcksock
{$IFDEF LINUX} {$IFDEF LINUX}
,unixutils // for chmod ,BaseUnix
{$ENDIF}; {$ENDIF};
type type
@ -219,7 +219,8 @@ begin
RenameFile(FBasePath + FReplacementFile +'_', FBasePath + FReplacementFile); RenameFile(FBasePath + FReplacementFile +'_', FBasePath + FReplacementFile);
DeleteFile(FBasePath + FReplacementFile+'_old_'); DeleteFile(FBasePath + FReplacementFile+'_old_');
{$IFDEF LINUX} {$IFDEF LINUX}
Chmod(FBasePath + FReplacementFile, PermissionBits[0] or PermissionBits[1] or PermissionBits[2]); fpchmod(FBasePath + FReplacementFile, S_IRUSR or S_IWUSR or S_IXUSR or S_IRGRP
or S_IXGRP or S_IROTH or S_IXOTH);
{$ENDIF} {$ENDIF}
end; end;