Добавлен костыль для работы с ИБ

Если для доступа к ИБ используется infobase-user и infobase-pwd то в конфиге rac_gui.cfg надо раскоентировать
строки (либо добавить их)
set default(infobase_user) "пользователь ИБ"
set default(infobase_pwd) "пароль ИБ"

lib/function.tcl

@@ -90,7 +90,7 @@ proc RunCommand {par} {
     agent_user agent_pwd cluster_user cluster_pwd server_platform
     set host [lindex [split $par " "] end]
     set work_list_row_count 0
-    #puts "$rac_cmd $par"
+    puts "$rac_cmd $par"
     set pipe [open "|\"$rac_cmd\" $par" "r"]
     try {
         set lst ""
@@ -428,14 +428,21 @@ proc Run::infobases {tree host values} {
 }
 
 proc Run::infobase {tree host values} {
-    global active_cluster cluster_user cluster_pwd
+    global active_cluster cluster_user cluster_pwd default
     if {$cluster_user ne "" && $cluster_pwd ne ""} {
         set auth "--cluster-user=$cluster_user --cluster-pwd=$cluster_pwd"
     } else {
         set auth ""
     }
+    #### Временный костыль ####
+    if {[info exists default(infobase_user)] == 1 && [info exists default(infobase_pwd)] == 1} {
+        set ib_auth "--infobase-user=$default(infobase_user) --infobase-pwd=$default(infobase_pwd)"
+    } else {
+        set ib_auth ""
+    }
+    ###########################
     .frm_work.tree_work delete  [ .frm_work.tree_work children {}]
-    set lst [RunCommand "infobase info --cluster=$active_cluster $auth --infobase=$values $host"]
+    set lst [RunCommand "infobase info --cluster=$active_cluster $auth --infobase=$values $ib_auth $host"]
     
     foreach l $lst {
         InsertItemsWorkList $l
@@ -2425,3 +2432,4 @@ proc Del::inet {tree host profile_name} {
 
 
 
+