Удалены зависимости на json. Конфиг будет ввиде tcl-словаря

2019-08-24 15:39:00 +03:00 · 2019-08-24 15:39:00 +03:00 · 818973e54a
parent 0a61eff7db
commit 818973e54a
1 changed files with 0 additions and 5 deletions
--- a/rac_gui.tcl
+++ b/rac_gui.tcl
@ -16,8 +16,6 @@ exec wish "$0" -- "$@"
 ######################################################

 package require msgcat
-package require json
-package require json::write

 # Устанавливаем текущий каталог
 set dir(root) [pwd]
@ -101,6 +99,3 @@ if [file exists [file join $dir(work) 1c_srv.cfg]] {
        dict set servers_list $host clusters {}
    }    
 }
-
-CreateInfoBasesJSONfile $servers_list
-