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

This commit is contained in:
Sergey 2019-08-24 15:39:00 +03:00
parent 0a61eff7db
commit 818973e54a

View File

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