waptconsole : small fixes

* check if waptsetup-tis.exe exists * missing prototype cbADGroupDropDown for community * removed unused
flagoda · May 28, 2020 · 35c4ca3 · 35c4ca3
1 parent 3d7615d
commit 35c4ca3
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 7 deletions.
diff --git a/wapt-get/waptcommonwin.inc b/wapt-get/waptcommonwin.inc
@@ -2296,9 +2296,6 @@ begin
   else
     Proxy:='';
 
-  dnsdomain:=GetDNSDomain;
-  if dnsdomain<>'' then
-    Result := GetRepoURLFromDNS('wapt',dnsdomain,Proxy);
 end;
 
 

diff --git a/waptconsole/uwaptconsole.pas b/waptconsole/uwaptconsole.pas
@@ -4,7 +4,6 @@
 {$modeswitch ADVANCEDRECORDS}
 {$modeswitch typehelpers}
 
-
 interface
 
 uses
@@ -2328,6 +2327,7 @@ function TVisWaptGUI.DownloadFileFromRepo(RepoUrl,Filename:String):String;
   try
     with TVisLoading.Create(Self) do
     try
+      Result := '';
       ProgressTitle(rsDownloading);
       Application.ProcessMessages;
       try
@@ -6385,11 +6385,13 @@ procedure TVisWaptGUI.ActVeyonUpdate(Sender: TObject);
 procedure TVisWaptGUI.ActWaptSetupUpgradeExecute(Sender: TObject);
 var
   WaptsetupPath: String;
-
 begin
   WaptsetupPath := DownloadFileFromRepo(GetMainWaptRepoURL,'waptsetup-tis.exe');
-  RunAsAdmin(0,WaptsetupPath,'');
-  Application.Terminate;
+  if (WaptsetupPath<> '') and FileExistsUTF8(WaptsetupPath)  then
+  begin
+    RunAsAdmin(0,WaptsetupPath,'');
+    Application.Terminate;
+  end;
 end;
 
 function TVisWaptGUI.GetGridHostsPlugins: ISuperObject;
@@ -7317,6 +7319,11 @@ procedure TVisWaptGUI.ActTriggerPendingActionsUpdate(Sender: TObject);
   ;;
 end;
 
+procedure TVisWaptGUI.cbADGroupDropDown(Sender: TObject);
+begin
+  ;;
+end;
+
 
 {$endif}