Удалены зависимости на json. Конфиг будет ввиде tcl-словаря
This commit is contained in:
parent
0a61eff7db
commit
818973e54a
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user