Updated FTP function (now handles misunderstood SITE CHMOD commands)

2005-09-11 15:45:42 +00:00 · 2005-09-11 15:45:42 +00:00 · 471ba0adbf
commit 471ba0adbf
parent 7225aa3cc0
2 changed files with 12 additions and 4 deletions
--- a/installer/installer/AMXInstaller.exe
+++ b/installer/installer/AMXInstaller.exe
--- a/installer/installer/UnitInstall.pas
+++ b/installer/installer/UnitInstall.pas
@ -702,13 +702,21 @@ begin
        try
          eGoBack := False;

+          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);

+          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;