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