Added desktop file. Fixed GetInfobases proc

lib/config.tcl

@@ -48,8 +48,6 @@ proc GetAgentPassword {host} {
     }
 }
 
-
-
 # Конвертация словаря в удобочитаемый формат
 
 proc DictFormatter {dict {indent}} {
@@ -170,7 +168,6 @@ proc GetDictFromString {str indent} {
     }
 }
 
-
 # Проверка установки переменных в конфиге
 proc CheckVariablesSet {} {
     global default dir
@@ -208,6 +205,5 @@ proc CopyNewConfig {} {
     if {[file exists [file join $dir(work) rac_gui.cfg]] ==1} {
         file rename -force [file join $dir(work) rac_gui.cfg] [file join $dir(work) rac_gui.cfg.old]
         file copy [file join $dir(root) rac_gui.cfg] [file join $dir(work) rac_gui.cfg]
-    } 
-    
+    }
 }

lib/function.tcl

@@ -275,7 +275,7 @@ proc InsertProfileItems {tree id} {
 proc GetInfobases {cluster host} {
     global active_cluster cluster_user cluster_pwd auth
     if {$cluster_user ne "" && $cluster_pwd ne ""} {
-        set auth "--cluster-user=$cluster_user --cluster-pwd=$cluster_pwd"
+        set auth "--cluster-user=\"$cluster_user\" --cluster-pwd=\"$cluster_pwd\""
     } else {
         set auth ""
     }