Исправлена ошибка при появлении окна авторизации админа кластера

Добавлены ключи авторизации (юзер и пароль) в вызов RAC при редактировании ИБ

debian/changelog

@@ -1,3 +1,10 @@
+rac-gui (1.1.0-2) stable; urgency=medium
+
+  * Fixed bug with auth dialog
+  * Fixed bug with runing rac infobase command with auth parameters
+
+ -- Sergey Kalinin <svk@nuk-svk.ru>  Wed, 27 Nov 2019 15:54:00 +0300
+
 rac-gui (1.1.0-1) stable; urgency=medium
 
   * Added new rac command options
@@ -27,5 +34,3 @@ rac-gui (1.0.1-1) stable; urgency=medium
   * Initial release
 
  -- Sergey Kalinin <svk@nuk-svk.ru>  Mon, 22 Jul 2019 14:56:31 +0300
-
-

lib/function.tcl

@@ -883,7 +883,7 @@ proc AddToplevel {lbl img {win_name .add}} {
     grid $frm_btn -row 1 -column 1 -sticky sew -padx 0 -pady 0
     pack  $frm_btn.btn_cancel $frm_btn.btn_ok -side right -padx 5 -pady 5
     #pack  $frm_btn.btn_ok  -side right -padx 2
-    bind .add <Escape> $cmd
+    bind $win_name <Escape> $cmd
     return $frm
 }
 
@@ -1935,6 +1935,7 @@ proc Edit::infobases {tree host values} {
     }
     Edit::infobase $tree $host $infobase
 }
+
 proc Edit::infobase {tree host values} {
     global default active_cluster infobase agent_user agent_pwd cluster_user cluster_pwd
     global security_level dbms scheduled_jobs_deny license_distribution date_offset
@@ -1944,6 +1945,16 @@ proc Edit::infobase {tree host values} {
     } else {
         set auth ""
     }
+    #### Проверяем наличие юзера и пароля в конфиге и если есть то используем ####
+    set infobase_user [GetInfobaseUser $host $active_cluster $values]    
+    set infobase_pwd [GetInfobasePassword $host $active_cluster $values]
+    
+    if {$infobase_user ne "" && $infobase_pwd ne ""} {
+        set ib_auth "--infobase-user=$infobase_user --infobase-pwd=$infobase_pwd"
+    } else {
+        set ib_auth ""
+    }
+    
     
     set infobase $values
     set frm [Add::infobases $tree $host $values]
@@ -2016,14 +2027,14 @@ proc Edit::infobase {tree host values} {
     grid $frm.lbl_external_session_manager_required -row 9 -column 2 -sticky nw -padx 5 -pady 5
     grid $frm.check_external_session_manager_required -row 9 -column 3 -sticky nw -padx 5 -pady 5
     
-    set lst [RunCommand "infobase info --cluster=$active_cluster --infobase=$values $auth $host"]
+    set lst [RunCommand "infobase info --cluster=$active_cluster $auth --infobase=$values $ib_auth $host"]
     FormFieldsDataInsert $frm $lst
     
     .add.frm_btn.btn_ok configure -command {
         RunCommand "infobase update \
         --infobase=$infobase \
-        --infobase-user= \
-        --infobase-pwd= \
+        --infobase-user=$infobase_user \
+        --infobase-pwd=$infobase_pwd \
         --dbms=$dbms \
         --db-server=[.add.frm.ent_db_server get] \
         --db-name=[.add.frm.ent_db_name get] \
@@ -2569,3 +2580,4 @@ proc Del::inet {tree host profile_name} {
     Del::acl $host inet [GetWorkTreeItems "name"] $profile_name
 }
 
+

rac_gui.tcl

@@ -11,7 +11,7 @@ exec wish "$0" -- "$@"
 # Git repos: https://bitbucket.org/svk28/rac-gui
 #
 # Version: 1.1.0
-# Release: 1
+# Release: 2
 #
 ######################################################
 
@@ -124,3 +124,4 @@ if [file exists [file join $dir(work) 1c_srv_new.cfg]] {
 } else {
     set servers_list ""
 }
+