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