rooty/HLMetaModOfficial
1
0
Fork 0
mirror of https://github.com/alliedmodders/metamod-source.git synced 2025-02-26 19:54:14 +01:00
Code Issues Releases Activity

fixed FTP (again?!)

Browse Source 
--HG--
branch : sourcemm-1.4.3
extra : convert_revision : svn%3Ac2935e3e-5518-0410-8daf-afa5dab7d4e3/branches/sourcemm-1.4.3%40617
This commit is contained in:
Christian Hammacher 2008-01-13 23:45:05 +00:00
parent f09aaee393
commit 846ac214eb
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
installer/MMS_Installer.exe
View File

Binary file not shown.

11
installer/UnitInstall.pas
View File

@ -465,10 +465,7 @@ begin
frmMain.ggeItem.Progress := 2; frmMain.ggeItem.Progress := 2;
if (((Pos('server.dll', eStr.Text) <> 0) and (OS = osWindows)) or ((Pos('server_i486.so', eStr.Text) <> 0) and (OS = osLinux))) then begin if (((Pos('server.dll', eStr.Text) <> 0) and (OS = osWindows)) or ((Pos('server_i486.so', eStr.Text) <> 0) and (OS = osLinux))) then begin
case MessageBox(frmMain.Handle, 'A Metamod:Source installation was already detected. If you choose to reinstall, your configuration files will be erased. Click Yes to continue, No to Upgrade, or Cancel to abort the install.', PChar(frmMain.Caption), MB_ICONQUESTION + MB_YESNOCANCEL) of case MessageBox(frmMain.Handle, 'A Metamod:Source installation was already detected. If you choose to reinstall, your configuration files will be erased. Click Yes to continue, No to Upgrade, or Cancel to abort the install.', PChar(frmMain.Caption), MB_ICONQUESTION + MB_YESNOCANCEL) of
mrNo: begin mrNo: CopyConfig := False;
AddSkipped;
CopyConfig := False;
end;
mrCancel: begin mrCancel: begin
Application.Terminate; Application.Terminate;
eStr.Free; eStr.Free;
@ -481,6 +478,7 @@ begin
end; end;
{ Create and Upload plugin here } { Create and Upload plugin here }
frmMain.ggeItem.Progress := 2; frmMain.ggeItem.Progress := 2;
eStr.Clear;
eStr.Add('"Plugin"'); eStr.Add('"Plugin"');
eStr.Add('{'); eStr.Add('{');
if (OS = osWindows) then if (OS = osWindows) then
@ -514,8 +512,8 @@ begin
eStr.SaveToFile(ExtractFilePath(ParamStr(0)) + 'metaplugins.ini'); eStr.SaveToFile(ExtractFilePath(ParamStr(0)) + 'metaplugins.ini');
UploadFile(ExtractFilePath(ParamStr(0)) + 'metaplugins.ini', 'metaplugins.ini'); UploadFile(ExtractFilePath(ParamStr(0)) + 'metaplugins.ini', 'metaplugins.ini');
end end
else begin else if (frmMain.IdFTP.Size('metaplugins.ini') <> -1) then begin
DownloadFile(ExtractFilePath(ParamStr(0)) + 'metaplugins.ini', 'metaplugins.ini'); DownloadFile('metaplugins.ini', ExtractFilePath(ParamStr(0)) + 'metaplugins.ini');
eStr.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'metaplugins.ini'); eStr.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'metaplugins.ini');
CommentFound := False; CommentFound := False;
for i := 0 to eStr.Count -1 do begin for i := 0 to eStr.Count -1 do begin
@ -542,7 +540,6 @@ begin
// end // end
eStr.SaveToFile(ExtractFilePath(ParamStr(0)) + 'metaplugins.ini'); eStr.SaveToFile(ExtractFilePath(ParamStr(0)) + 'metaplugins.ini');
UploadFile(ExtractFilePath(ParamStr(0)) + 'metaplugins.ini', 'metaplugins.ini'); UploadFile(ExtractFilePath(ParamStr(0)) + 'metaplugins.ini', 'metaplugins.ini');
AddDone;
end; end;
end; end;
frmMain.ggeAll.Progress := 5; frmMain.ggeAll.Progress := 5;