Updated FTP function (now handles misunderstood SITE CHMOD commands)

This commit is contained in:
Christian Hammacher 2005-09-11 15:45:42 +00:00
parent 7225aa3cc0
commit 471ba0adbf
2 changed files with 12 additions and 4 deletions

Binary file not shown.

View File

@ -702,13 +702,21 @@ begin
try
eGoBack := False;
if FileList[i] = 'liblist.gam' then
frmMain.IdFTP.Site('CHMOD 744 liblist.gam');
try
if FileList[i] = 'liblist.gam' then
frmMain.IdFTP.Site('CHMOD 744 liblist.gam');
except
AddStatus('Warning: CHMOD not supported.', clMaroon);
end;
UploadFile(ExtractFilePath(ParamStr(0)) + 'temp\' + FileList[i], ePath + FileList[i], CopyConfig);
if FileList[i] = 'liblist.gam' then
frmMain.IdFTP.Size('CHMOD 444 liblist.gam');
try
if FileList[i] = 'liblist.gam' then
frmMain.IdFTP.Size('CHMOD 444 liblist.gam');
except
AddStatus('Warning: CHMOD not supported.', clMaroon);
end;
except
on E: Exception do begin
if Cancel then exit;