- Добавлены процедуры работы (добавления, удаления) с кластером (базой, сервера)

1c_srv.cfg

@@ -1,12 +0,0 @@
-######################################################
-#                Rac GUI
-#        Distributed under GNU Public License
-# Author: Sergey Kalinin svk@nuk-svk.ru
-# Copyright (c) "http://nuk-svk.ru", 2018,
-# https://bitbucket.org/svk28/rac-gui
-######################################################
-
-set host localhost
-set port 1541
-
-

doc/CHANGELOG

@@ -4,6 +4,9 @@
 # Author: Sergey Kalinin svk@nuk-svk.ru
 # Home page: https://bitbucket.org/svk28/rac-gui
 ######################################################
+20/05/2018
+- Добавлены процедуры работы (добавления, удаления) с кластером (базой, сервера)
+- Добавлен диалог добавления базы
 
 15/05/2018
 - Добавлен вывод списка кластеров, серверов, баз и т.д
@@ -12,3 +15,4 @@
 16/05/2018
 - Beginning the project
 
+

lib/function.tcl

@@ -13,9 +13,13 @@ proc Quit {} {
 
 proc TreePress {tree} {
     global host
+    
     set id  [$tree selection] 
     set values [$tree item [$tree selection] -values]
     set key [lindex [split $id "::"] 0]
+    if {$key eq "server"} {
+        set host $values
+    }
     Run::$key $tree $host $values
     #RunCommand $root "infobase summary list --cluster=$cluster $host"
 }
@@ -259,29 +263,113 @@ proc Del {} {
 namespace eval Del {} {
     proc work_server {tree host values} {
         global active_cluster
-        .frm_work.tree_work delete  [ .frm_work.tree_work children {}]
         set answer [tk_messageBox -message "Удалить рабочий сервер $values?" \
         -icon question -type yesno ]
         switch -- $answer {
             yes {
                 set lst [RunCommand infobase::$values "server remove --cluster=$active_cluster  --server=$values $host"]
                 $tree delete "work_server::$values"
+                .frm_work.tree_work delete  [ .frm_work.tree_work children {}]
             }
             no {return}
         }
     }
+    proc cluster {tree host values} {
+        set answer [tk_messageBox -message "Удалить кластер $values?" \
+        -icon question -type yesno ]
+        switch -- $answer {
+            yes {
+                set lst [RunCommand infobase::$values "cluster remove --cluster=$values $host"]
+                $tree delete "cluster::$values"
+                .frm_work.tree_work delete  [ .frm_work.tree_work children {}]
+            }
+            no {return}
+        }
+    }
+    proc infobase {tree host values} {
+        global active_cluster
+        set answer [tk_messageBox -message "Удалить информационную базу $values?" \
+        -icon question -type yesno ]
+        switch -- $answer {
+            yes {
+                set lst [RunCommand infobase::$values "infobase drop --infobase=$values --cluster=$active_cluster $host"]
+                $tree delete "infobase::$values"
+                .frm_work.tree_work delete  [ .frm_work.tree_work children {}]
+            }
+            no {return}
+        }
+    }
+    proc server {tree host values} {
+        global dir
+        set answer [tk_messageBox -message "Удалить сервер $values?" \
+        -icon question -type yesno ]
+        switch -- $answer {
+            yes {
+                #set lst [RunCommand infobase::$values "cluster remove --cluster=$values $host"]
+                file copy [file join $dir(work) 1c_srv.cfg] [file join $dir(work) 1c_srv.cfg.bak] 
+                set orig_file [open [file join $dir(work) 1c_srv.cfg.bak] "r"]
+                set file [open [file join $dir(work) 1c_srv.cfg] "w"]
+                while {[gets $orig_file line] >=0 } {
+                    puts $line                    
+                    if { $line ne "" && $line ne "$values"} {
+                        puts $file $line
+                    }
+                }
+                close $file
+                close $orig_file
+                #return "$host:$port"
+                $tree delete "server::$values"
+                .frm_work.tree_work delete  [ .frm_work.tree_work children {}]
+                file delete [file join $dir(work) 1c_srv.cfg.bak] 
+            }
+            no {return}
+        }
+    }
+    
 }
 proc Add {} {
     global active_cluster host
     set id  [.frm_tree.tree selection] 
     set values [.frm_tree.tree item [.frm_tree.tree selection] -values]
     set key [lindex [split $id "::"] 0]
+    if {$key eq "" || $key eq "server"} {
+        set host [ Add::server ]
+    }
     puts "$key, $id , $values"
     Add::$key .frm_tree.tree $host $values
 }
 
 namespace eval Add {} {
     proc server {} {
+        global default
+        toplevel .add
+        set frm [ttk::labelframe .add.frm -text "Добавление основного сервера" -labelanchor nw]
+        
+        label $frm.lbl_host -text "Адрес сервера"
+        entry  $frm.ent_host
+        label $frm.lbl_port -text "Порт"
+        entry $frm.ent_port 
+        $frm.ent_port  insert end $default(port)
+        grid $frm.lbl_host -row 0 -column 0 -sticky nw -padx 5 -pady 5
+        grid $frm.ent_host -row 0 -column 1 -sticky nsew -padx 5 -pady 5
+        grid $frm.lbl_port -row 1 -column 0 -sticky nw -padx 5 -pady 5
+        grid $frm.ent_port -row 1 -column 1 -sticky nsew -padx 5 -pady 5
+        #grid $frm.btn_ok -row 2 -column 1 -sticky nw -padx 5 -pady 5
+        #grid $frm.btn_cancel -row 2 -column 1 -sticky se -padx 5 -pady 5
+        grid columnconfigure $frm 0 -weight 1
+        grid rowconfigure $frm 0 -weight 1
+        set frm_btn [frame .add.frm_btn -border 0]
+        ttk::button $frm_btn.btn_ok -image add_grey_24 -command {
+            set host [SaveMainServer [.add.frm.ent_host get] [.add.frm.ent_port get]]
+            .frm_tree.tree insert {} end -id "server::$host" -text "$host" -values "$host"
+            destroy .add
+            return $host
+        }
+        ttk::button $frm_btn.btn_cancel -command {destroy .add} -image quit_grey_24 
+        pack $frm $frm_btn -padx 5 -pady 5 -expand true -fill x
+        pack  $frm_btn.btn_cancel  -side right
+        pack  $frm_btn.btn_ok  -side right -padx 10                
+        puts $host
     }
     proc work_server {tree host values} {
     }
@@ -289,7 +377,129 @@ namespace eval Add {} {
         Add::infobases $tree $host $values 
     }
     proc infobases {tree host values} {
-        puts  "$tree $host $values"
+        global default active_cluster
+        toplevel .add
+        wm title .add "Добавление информационной базы"
+        ttk::label .add.lbl -image add_database_grey_64
+        set frm [ttk::labelframe .add.frm -text "Добавление информационной базы" -labelanchor nw]
+        
+        label $frm.lbl_host -text "Адрес сервера баз даннных"
+        entry  $frm.ent_host
+        label $frm.lbl_db_user -text "Имя пользователя базы даннных"
+        entry  $frm.ent_db_user
+        label $frm.lbl_db_pass -text "Пароль"
+        entry  $frm.ent_db_pass
+        #$frm.ent_host insert end $host
+        label $frm.lbl_locale -text "Язык базы данных"
+        entry $frm.ent_locale 
+        $frm.ent_locale  insert end $default(locale)
+        label $frm.lbl_infobase_name -text "Имя информационной базы"
+        entry  $frm.ent_infobase_name
+        label $frm.lbl_base_name -text "Имя базы данных"
+        entry  $frm.ent_base_name
+        label $frm.lbl_base_type -text "Тип СУБД"
+        set combo [ttk::combobox $frm.cb_base_type  -textvariable dbms -values $default(dbms)]]
+        grid $frm.lbl_host -row 0 -column 0 -sticky nw -padx 5 -pady 5
+        grid $frm.ent_host -row 0 -column 1 -sticky nsew -padx 5 -pady 5
+        grid $frm.lbl_db_user -row 1 -column 0 -sticky nw -padx 5 -pady 5
+        grid $frm.ent_db_user -row 1 -column 1 -sticky nsew -padx 5 -pady 5
+        grid $frm.lbl_db_pass -row 2 -column 0 -sticky nw -padx 5 -pady 5
+        grid $frm.ent_db_pass -row 2 -column 1 -sticky nsew -padx 5 -pady 5
+        grid $frm.lbl_locale -row 3 -column 0 -sticky nw -padx 5 -pady 5
+        grid $frm.ent_locale -row 3 -column 1 -sticky nsew -padx 5 -pady 5
+        grid $frm.lbl_infobase_name -row 4 -column 0 -sticky nw -padx 5 -pady 5
+        grid $frm.ent_infobase_name -row 4 -column 1 -sticky nsew -padx 5 -pady 5
+        grid $frm.lbl_base_name -row 5 -column 0 -sticky nw -padx 5 -pady 5
+        grid $frm.ent_base_name -row 5  -column 1 -sticky nsew -padx 5 -pady 5
+        grid $frm.lbl_base_type -row 6 -column 0 -sticky nw -padx 5 -pady 5
+        grid $frm.cb_base_type -row 6 -column 1 -sticky nsew -padx 5 -pady 5
+        #         grid $frm.lbl_host $frm.ent_host -sticky nwse -padx 5 -pady 5
+        #         grid $frm.lbl_db_user $frm.ent_db_user -sticky nwse -padx 5 -pady 5
+        #         grid $frm.lbl_db_pass $frm.ent_db_pass -sticky nwse -padx 5 -pady 5
+        #         grid $frm.lbl_locale $frm.ent_locale -sticky nwse -padx 5 -pady 5
+        #         grid $frm.lbl_infobase_name $frm.ent_infobase_name -sticky nwse -padx 5 -pady 5
+        #         grid $frm.lbl_base_name $frm.ent_base_name -sticky nwse -padx 5 -pady 5
+        #         grid $frm.lbl_base_type $frm.cb_base_type -sticky nwse -padx 5 -pady 5
+        #         
+        grid columnconfigure $frm 0 -weight 1
+        grid rowconfigure $frm 0 -weight 1
+        
+        set  active_cluster $values
+        
+        set frm_btn [frame .add.frm_btn -border 0]
+        ttk::button $frm_btn.btn_ok -image add_grey_24 -command {
+            #puts [RunCommand "" "cluster insert --host=[.add.frm.ent_host get] --port=[.add.frm.ent_port get] --name=[.add.frm.ent_cluster_name get] $host"]
+            RunCommand "" "infobase create --create-database  \
+            --name=[.add.frm.ent_infobase_name get] \
+            --dbms=$dbms \
+            --db-server=[.add.frm.ent_host get] \
+            --db-name=[.add.frm.ent_base_name get] \
+            --locale=[.add.frm.ent_locale get] \
+            --db-user=[.add.frm.ent_db_user get] \
+            --db-pwd=[.add.frm.ent_db_pass get] \
+            --cluster=$active_cluster $host"
+            #SaveCluster [.add.frm.ent_host get] [.add.frm.ent_port get]]
+            #.frm_tree.tree insert "server::$host" end -id "er::$host" -text "$host" -values "$host"
+            destroy .add
+            #return $host
+        }
+        ttk::button $frm_btn.btn_cancel -command {destroy .add} -image quit_grey_24 
+        grid .add.lbl -row 0 -column 0 -sticky nw -padx 5 -pady 10
+        grid $frm -row 0 -column 1 -sticky nw -padx 5 -pady 5
+        grid $frm_btn -row 1 -column 1 -sticky se -padx 5 -pady 5
+        #         pack .add.lbl  -side left
+        #         pack $frm -padx 5 -pady 5 -expand true -fill x -side left
+        #         pack $frm_btn -padx 5 -pady 5 -expand true -fill x
+        pack  $frm_btn.btn_cancel  -side right
+        pack  $frm_btn.btn_ok  -side right -padx 10                
+        
+    }
+    
+    proc cluster {tree host values} {
+        global default
+        toplevel .add
+        set frm [ttk::labelframe .add.frm -text "Добавление кластера" -labelanchor nw]
+        
+        label $frm.lbl_host -text "Адрес основного сервера"
+        entry  $frm.ent_host
+        #$frm.ent_host insert end $host
+        label $frm.lbl_port -text "Порт"
+        entry $frm.ent_port 
+        $frm.ent_port  insert end $default(port)
+        label $frm.lbl_cluster_name -text "Название кластера"
+        entry  $frm.ent_cluster_name
+        
+        grid $frm.lbl_host -row 0 -column 0 -sticky nw -padx 5 -pady 5
+        grid $frm.ent_host -row 0 -column 1 -sticky nsew -padx 5 -pady 5
+        grid $frm.lbl_port -row 1 -column 0 -sticky nw -padx 5 -pady 5
+        grid $frm.ent_port -row 1 -column 1 -sticky nsew -padx 5 -pady 5
+        grid $frm.lbl_cluster_name -row 2 -column 0 -sticky nw -padx 5 -pady 5
+        grid $frm.ent_cluster_name -row 2 -column 1 -sticky nsew -padx 5 -pady 5
+        
+        grid columnconfigure $frm 0 -weight 1
+        grid rowconfigure $frm 0 -weight 1
+        set frm_btn [frame .add.frm_btn -border 0]
+        ttk::button $frm_btn.btn_ok -image add_grey_24 -command {
+            puts [RunCommand "" "cluster insert --host=[.add.frm.ent_host get] --port=[.add.frm.ent_port get] --name=[.add.frm.ent_cluster_name get] $host"]
+            
+            #SaveCluster [.add.frm.ent_host get] [.add.frm.ent_port get]]
+            #.frm_tree.tree insert "server::$host" end -id "er::$host" -text "$host" -values "$host"
+            destroy .add
+            #return $host
+        }
+        ttk::button $frm_btn.btn_cancel -command {destroy .add} -image quit_grey_24 
+        pack $frm $frm_btn -padx 5 -pady 5 -expand true -fill x
+        pack  $frm_btn.btn_cancel  -side right
+        pack  $frm_btn.btn_ok  -side right -padx 10                
+        puts $host
     }
 }
+proc SaveMainServer {host port} {
+    global dir
+    set file [open [file join $dir(work) 1c_srv.cfg] "a+"]
+    puts $file "$host:$port"
+    close $file
+    return "$host:$port"
+}
+
 

lib/gui.tcl

@@ -95,3 +95,5 @@ pack $frm_tree $frm_work -side left -expand true -fill both
 
 
 
+
+

lib/images.tcl

@@ -149,4 +149,80 @@ image create photo quit_grey_24 -data {
     Ncqh5U/vo0wfUOc7rtiCsE5F7CEHzNuEpkLrEYihRyc5zBa7Y8RgURftlK6GjVdjNUj9jLCXHRQN
     Ve03VewLZaEJ8x+41wfP/ZumbAAAAABJRU5ErkJggg==
 }
-
+image create photo add-database-64 -data {
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAI5klEQVR4nN2bfYxVRxnGf/dkJWTd
+EIKEImkYpBS3QJA21FqlhaESaKugph+mVlti1UwbrQ3UppJKlFBj1ai1YaqtHyW1CYgGaaV1Szus
+rU2lLSWUAKUEd8hmRWxWpGRd182Nf7xzds9e7r17zr3nXqBPMtmcu/P5npn343nnFKgT2vipwCyg
+HbgAOD+UNqAFiIBiqD4A9IdyCugFjgJvAfuBfc6qk/XOKQsKWSpr4yNgDvBxYCHwYWByjvMpAoeA
+lwAHdDirjufY/2lIJQBt/Fzg88B1wLRGTqgERWAXsAl4ohHCqCiA8LY/A6wCPpL3wDVgANgM/NBZ
+tSevTssKQBu/DPg+st3PNhSBLcA9zqquejsbIQBtfBtggZvr7bgJOAWsclb9vJ5OhgSgjZ8IPA3M
+r3NizcajgHFWDdbSuAVAGz8eeBaYl+PEmoXbwt8v1dI4Cn8f49xcfIzbtPFfqKVhQRu/GHgu5wmd
+CfQAFzir+rM0ioBbGjOfpmMKcE3WRhFwSf5zOWO4LGuDiGE98G5A5rVESBDybsHrWRtEwG8aMJEz
+gRPAU1kbRcA24MXcp9N8rK8llI6ASUik15P7lJqH7cCPtfEzsjaMgJtCULEEISfONWwHrkfWsjxr
+4whYqY2f4azaj5iRjnzn1zAMAvcDK5xVfYhLrLJ2EgFjgU3a+DZn1THgauCLwLEcJ5s3XgQ+5qxa
+46wa1MbPAb5XS0ex3bwEeFIbP85ZVXRW/RL4IHAPZ49uKALPA0ucVVc4q3YBaOPbkSg25iAzIek4
+LAI6Y0XirDrprHoA+ADwaeD3SAzebPQADwIXO6uuclbtiP+hjf8E8BeEhK0JpRKbB7ymjV8DPOys
+GnRWDQBbga2BMFmEKMyPIozR2FoHr4BTCA/YieijXc6qYrKCNn4S8F3gVur0ZAva+AMIpV2K/cA6
+YEslsiEIZBYiiNnADGA6MBFopfyWjKnxkwgt3gUcBg4Ae4FDQejlxpsI3A7cBYwvU+UhZ9VXy7Wt
+hII2/g2qc39dwC+Ax7NycIFYTb6hYunbTNFHC7LbVgI3IIKthB84q+7O0n8L8PYodaYhO+Hb2vjd
+iN19Fnh1tNg7LDbTgmFoiy9ALNI1SKibBn/POlYL8DJyrkdDhPCF84FvAX3a+D3AbuAN4CCyld+u
+tIVLoY1vRRY3EzlKFyMWaSa1ne3nszYohNTWAapvrSzoC6UfOe9J/REfibGhtAFjchq3w1m1NGuj
+AoA2/uvAj3KayJnACeBS4Gja3Rcj0sZfidjZhxoxsyagH7jRWXUYWJa1cYSYFIL5WMPILXu2oxu4
+2lnVETzCJVk7iLO9twM4q+4HrkIU2tmIAUTR3QcsBS50Vu0M/zsSfs+Egjb+LcSV/GTsZmrjxwBf
+Bu4lvQlqJI4CPwU25p0hjgUwA9HcK51Vm+N/auPHAp8FvoLcBWg2gdoLrAUezcr3p0VSACBOy8PA
+vaX0Ujhj1wHXIr5A5sgrI7YCdzirRo1GtfFRVg8zRqkAYvQg52ljuThAGz8BcU8vRxyXOchNkVqF
+0oc4UXuB14Cdle4AhHhgOaCBucgRHYPoh+NIDNMJPJXGdS9o499EPK9yOMzw2TtRrSNt/DhgKqJP
+JgLjGHZ03hOq/Y/h+0EnEEF3AcdGs98hTL8PiQfSRKCDwDPAWmfV7kqVCtr41xk9MdqHsMe/Qzyu
+pl1kCsHQNxGFXEvoHR/ruwN1NgIFbfwmRKpp0Y/E6zuBvyKxwPFaz2A1hKP2W2BxDt3tQSxdd/LH
+gjZ+OfCHOjouItr6EGKLu4F/IFu8D9mKsXAi5Ei0AhOA9yPHZjxwffKYhTsLjnzT9l3AQmfVEPtd
+CDH7c6SLCBuFO51VD8YPYds/jVzHyxv7gMudVadA3shkJDHSXa1VA9ENlN7z+QaNWTyIxfpJ/BAB
+N4dzoZEt3Gw8knRytPHTSO/Svg94b0lJ8yJv1cYvALHbt2jjtzmrDmrjLwV+RQ0ZlhpRBDaW/JZF
+2/eVeoja+DTKOEI8zCWxUtoUcgK9zqoVwI2Iwmg09iadleBL3NSEcQEWa+Onx779XOCPQfMS4oGL
+gDsQZ6hR2FnyvAxxnpqBCPhUMrhZALwQfH6cVf3Oqg2IIJYCjyOmLU+8UvKsq9TtL1PqqQewsNR3
+nwO8oo1fi3DsAyEW6AA6QnS4ACEerkR2Tj1cYunuqkbPX4j4+kOo4D7P5vSo9Z+Ia16K9mqJkSNI
+9uWJci4kDIXL7QijexFCoU9B7hxMYDhfFwt6EAla+hA6XjurehP9/Y3Kt9HPq5UL0Ma/Q/mj1dVC
+ZQpsOvAIsF4bvxF4zFm1L1khaOA9oZQbOGaB4zdSpHpyJO80W4yKPEaaxMgkYDWwWht/ELmH8yck
+Z1c1KKohMdIQ0oMqYXoL8nXGopQdtYeyGhgIAnmV4cTIEaC70pFJgR5y/iAjuNWVdkCxoI2fArxJ
+fuYnPufJxEhyF0SI4NsQCm5LYrI/Q7jIcjjF6bvpvDKO0AGEk4jHgcrJlx1RoJxWjbKoLGhhONqb
+HCYzNVHOD7+3IYxSEp1V+m1DNHmylENMxLQiC6+WeXohAggfHXynSsVGYVHJ8zOIhagHWWi5zUNn
+w1m1FvH8MqWW6sQ8bfz0xBx6ke+C6kFaAexwVh0cUdlZtUEb/zJi/ppxiTpCPs9J7r71SDyQJmna
+klByLYz0OaqhiARDp2vHQCBehtwU60rRWb0wIU0ej38YeCBl238D/wX+A7wD/IvKuiGJjc6ql6CC
+eQh3g+KbYp8D/kwNFx1SYjKna/51iHkeDVGZMhoOAXfGD6m/HA1ExXJgBRIP5JXXBwmyZieTIIH/
+z/s7ph7gCmfVEPGT6dPZGGHLzkeSIx9CYoGZ1O7K9gIbnFUjmKDACj8ZxqkXB4Frk4uHGgVQDkEZ
+TUKCoSkI09uK2OT4A+pBxMydQBZ9HOiq5lKHgGs98DVqyzwVgV8Dd5UbJzcBNBra+FnI/YUbSK/p
+twPr4lul5XDOCCBGuEG2HPl6fS4jtX4/Qnt3AtuS/H8l/B/wMOS75zxqlAAAAABJRU5ErkJggg==
+}
+image create photo add_database_grey_64 -data {
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAQAAAAAYLlVAAAAAmJLR0QA/4ePzL8AAAAJcEhZcwAA
+CxMAAAsTAQCanBgAAAAHdElNRQfiBRQNERm/qUcSAAAGp0lEQVRo3r2ZbWxb1RnHf7l4keVZVpRl
+WRaFLCuhuGkUSpTQNQukL0RteUkBQZkQFVQwpoeKQdUy1FVZtFUFjW3aVqo+5VVbxJASCiqla1ko
+pRFQQQhp1lZpaK1gRVHWdZWXlcgznnW1D36J7dzr2G7c//lg33vuuc//nPOc5+0WMQekmjq8XEMV
+VbhxYGACYUKEmCbAOOcY4bReIi8U2Yg1qOcW2riRiqzeY3KW43xAn164bALSwAbuoSavCZkM0MPr
+2dMoSpv33WzhB1wuwvTyOx3OkYCs4TfUM18w2cfT6s+SgLhRHmC+Mc0WfTELAlLGYZooDF5GNGLf
+7QAp4T2WUCg8AvzYvvsqaO6hjUKisfnLwb/bboGs5H0KjUmu0ZB1l8GDFB6V3GrXZdDIlcBSewLG
+FSFg2HeMXBECJ+wJ/OUKiJ/ioD2BA3xUcAI77Z21QTkbmCyo+EP8QWrtCdyvftoZL6D4ezHosCew
+UWp1hKX0FUB4hGdYp0Ee4Xv2BJz0iFvPs5aHOT+v4j/ih7pdI1LPrzOfz0beEY+a+irX8fS86IPJ
+Udr1Jh0A8XIYN47MBmI5/VILekmf4/vcxVtMX4bd38UNukqPAMjtfExVpsfjzJbwuWxnr0Y0zH72
+i5vltNNCPc6sg48B+uljQM1YkFPOszw0l6UtkjN4E1cj7GBfcvggbuqoZzG1LKAMV9JShglxiQB+
+fJzhJGc1nDSujMfYTEnixm593I7AqbQ40M8rvGYXy0ncd5jxec56wkELG1mPK+X2b/Upuy24mHan
+hh38UoY4xHsMpntxNTFtU5hyWlnLrVRadP7DXgc+YbmFajbRxC8IyjBDnGIUHxeTlzgh1EUlC6nj
+BhpZmGG/j9rrQDVn0pbLGkGChAgTSbhxJ07cFGcxtk9XZ4iK5Ul+X2Bf2My41foBGHIzu9hdQPEh
+7lMfa+wN0WbQx9lOpCDiJ1irfeKl3Z5APY+BPsMqRudRcJijdLKaa/UYMEanvRKeo4o79AhIMY+y
+zfIQ5YZxnqc72/y4SM5RS5CN2gsgTn7ET7gx71A1QBcv2+UA9gTAZC/b4oGTeLmH22iy92E22M8m
+nZxtPdWcm0DUj3XSPeMJpJQWltFIPRUZqQTxcZLPOZZcEZAyOlhBA5UUE+YCI/RzcLaJL5IvWJh0
+7eN5unUqbQ4eqqmiDA9uivkG8D9CTDPFJH7Op59xqaWT9RZ+NMK7dOlQKoETszLjIAd4k778yk7i
+4Odsy+DETfbylAZnCPSw3saADHCMTxniQqY9TBNfyhusnPOxYe7QiTiBDt6eI7wKcJYxJvgnUwSJ
+YAIGxbgo5btUU8K90U2TEj7IstLgp03HowQM3rfwh7ngCd0VW/zD3JL1qNMs02kwqGADE5dlbONV
+oJ/lIB7q+WPUFD+gE6xgLG8CL0XNjtRYmttv8c1Ymz3Jh6QVDB4Ur/po5kCeAXh37J+15gc11iwi
+KYOuqDL1iEcDuo778OdM4GTUtIiH+/Ogv1IWGEADf5US0F4WsQlfTq84FvtdgzuvssWdUafTyofi
+BQ3pHhaxmteYyvIVn8V+V6TZkHjLfA/aHAmd/Ey62K1hjdBHnzhppZ2baZgjXvQlxifjWmLOOMlI
+L0542H/hSdz1piYmYzzL6zNmEsSJlzoWUUMl5ZTixoEDiBAmyEVWaABAvkyprn8nUzQgXyVtl9+R
+Eoot4CV2Sjd/1tOxGYQYZjgtMTEAMy01cea08xkTk3K2slVGOcjfGEh3SLaJSQ4hSKprd3Dc0hB7
+8bKVsIwyyClGGWMieWsscuKarL1l8gqYRVLJF1kdoQjhWGJixhbSgZuNug9AXuDRlEzZTGhDbG3k
+DFUYOCAllTli6CRbslw4F6VUUEU11VRTRQVulsV6+1OedeOJtRl4cOOiOC2T+tAAfZFf5e0J4tv3
+LsFcdj6BXgNAu9hEOC8CS2QBgAbozYPAER2NKYTuYRlDeRnT+IeenZZTcIhDisUlHgsCZtQZxQ/Y
+EEt5OA93JOICUB/PWfT+h6/5L1/x7xR9iKJbj8NVM9eD5uCJZmWUb3O13QdNC7i5OPgJQPPHrOLq
+Wdl3vKXjLHcPfm3z5VRq6GAdrVnl/jDF4mg6ImVZf32a5CYdi9UHbNfWRRMtXE8dCzOa2gB7tDMR
+Fb9Dy5ziR7lNxxIFiqysVzmVVFKCCzcGJhGCTBHgAv5Ucy1OdvLTDJmUyZ/YPDOmiAJA6tjOeku9
+P8QOHUgr0RQGUk4HbTTEtD/Eafo5oLOq8v8Hsjgpyl4aWQUAAAAASUVORK5CYII=
+}	

rac_gui.cfg

@@ -5,6 +5,7 @@
 # Copyright (c) "http://nuk-svk.ru", 2018,
 # https://bitbucket.org/svk28/rac-gui
 ######################################################
-set locale "ru"
 set rac_cmd "/opt/1C/v8.3/x86_64/rac"
+set default(locale) "ru"
 set default(port) 1545
+set default(dbms) [list MSSQLServer PostgreSQL IBMDB2 OracleDatabase]

rac_gui.tcl

@@ -9,11 +9,21 @@ exec wish "$0" -- "$@"
 # Home page: https://bitbucket.org/svk28/rac-gui
 ######################################################
 
-source [file join [pwd] rac_gui.cfg]
+#source [file join [pwd] 1c_srv.cfg]
-source [file join [pwd] 1c_srv.cfg]
 
 set dir(root) [pwd]
 
+set dir(work) [file join $env(HOME) .rac_gui]
+if {[file exists $dir(work)] == 0 } {
+    file mkdir $dir(work)    
+}
+
+if {[file exists [file join $dir(work) rac_gui.cfg]] ==0} {
+    file copy [file join [pwd] rac_gui.cfg] [file join $dir(work) rac_gui.cfg]
+} 
+
+source [file join $dir(work) rac_gui.cfg]
+
 set dir(msg) "[file join $dir(root) msgs]"
 set dir(lib) "[file join $dir(root) lib]"
 
@@ -38,9 +48,21 @@ foreach modFile [lsort [glob -nocomplain [file join $dir(lib) *.tcl]]] {
 source [file join $dir(lib) gui.tcl]
 
 puts "$rac_cmd $dir(lib)"
-.frm_tree.tree insert {} end -id "server::$host" -text "$host" -values "$host:$port"
+source [file join $dir(work) rac_gui.cfg]
+
+if [file exists [file join $dir(work) 1c_srv.cfg]] {
+    set f [open [file join $dir(work) 1c_srv.cfg] "RDONLY"]
+    while {[gets $f line] >=0} {
+        #puts $line
+        .frm_tree.tree insert {} end -id "server::$line" -text "$line" -values "$line"
+    }    
+}  else {
+    #Add::main_server
+}
+
+
+#.frm_tree.tree insert {} end -id "server::$host" -text "$host" -values "$host:$port"
 #.frm_tree.tree insert {} end -id "$host" -text "$host" -values "$host"
 
 #RunCommand $host "cluster list $host $port"
 
-