mirror of
https://bitbucket.org/svk28/rac-gui
synced 2024-12-04 18:46:52 +00:00
Добавлен механизм локализации
Начато добавление локализации интерфейса на английский и русский языки Добавлена возможность сборки RPM-пакета
This commit is contained in:
parent
17cd5da635
commit
c261bc2667
172
lib/function.tcl
172
lib/function.tcl
@ -104,7 +104,7 @@ proc ErrorParcing {err opt} {
|
||||
|
||||
switch -regexp -- $err {
|
||||
"Cluster administrator is not authenticated" {
|
||||
AuthorisationDialog "Администратор кластера"
|
||||
AuthorisationDialog [::msgcat::mc "Cluster administrator"]
|
||||
.auth_win.frm_btn.btn_ok configure -command {
|
||||
set cluster_user [.auth_win.frm.ent_name get]
|
||||
set cluster_pwd [.auth_win.frm.ent_pwd get]
|
||||
@ -113,7 +113,7 @@ proc ErrorParcing {err opt} {
|
||||
#RunCommand $root $par
|
||||
}
|
||||
"Central server administrator is not authenticated" {
|
||||
AuthorisationDialog "Администратор агента кластера"
|
||||
AuthorisationDialog [::msgcat::mc "Agent cluster administrator"]
|
||||
.auth_win.frm_btn.btn_ok configure -command {
|
||||
set agent_user [.auth_win.frm.ent_name get]
|
||||
set agent_pwd [.auth_win.frm.ent_pwd get]
|
||||
@ -121,7 +121,7 @@ proc ErrorParcing {err opt} {
|
||||
}
|
||||
}
|
||||
"Администратор кластера не аутентифицирован" {
|
||||
AuthorisationDialog "Администратор кластера"
|
||||
AuthorisationDialog [::msgcat::mc "Cluster administrator"]
|
||||
.auth_win.frm_btn.btn_ok configure -command {
|
||||
set cluster_user [.auth_win.frm.ent_name get]
|
||||
set cluster_pwd [.auth_win.frm.ent_pwd get]
|
||||
@ -130,7 +130,7 @@ proc ErrorParcing {err opt} {
|
||||
#RunCommand $root $par
|
||||
}
|
||||
"Администратор центрального сервера не аутентифицирован" {
|
||||
AuthorisationDialog "Администратор агента кластера"
|
||||
AuthorisationDialog [::msgcat::mc "Agent cluster administrator"]
|
||||
.auth_win.frm_btn.btn_ok configure -command {
|
||||
set agent_user [.auth_win.frm.ent_name get]
|
||||
set agent_pwd [.auth_win.frm.ent_pwd get]
|
||||
@ -147,10 +147,10 @@ proc AuthorisationDialog {txt} {
|
||||
.frm_work.tree_work delete [ .frm_work.tree_work children {}]
|
||||
|
||||
set frm [AddToplevel "$txt" administrator_grey_64 .auth_win]
|
||||
wm title .auth_win "Авторизация"
|
||||
label $frm.lbl_name -text "Имя пользователя"
|
||||
wm title .auth_win [::msgcat::mc "Authorization"]
|
||||
label $frm.lbl_name -text [::msgcat::mc "User name"]
|
||||
entry $frm.ent_name
|
||||
label $frm.lbl_pwd -text "Пароль"
|
||||
label $frm.lbl_pwd -text [::msgcat::mc "Password"]
|
||||
entry $frm.ent_pwd
|
||||
|
||||
grid $frm.lbl_name -row 0 -column 0 -sticky nw -padx 5 -pady 5
|
||||
@ -160,45 +160,45 @@ proc AuthorisationDialog {txt} {
|
||||
grid columnconfigure $frm 0 -weight 1
|
||||
grid rowconfigure $frm 0 -weight 1
|
||||
#set frm_btn [frame .add.frm_btn -border 0]
|
||||
|
||||
|
||||
}
|
||||
|
||||
proc InsertClusterItems {tree id} {
|
||||
set parent "cluster::$id"
|
||||
$tree insert $parent end -id "infobases::$id" -text "Информационные базы" -values "$id"
|
||||
$tree insert $parent end -id "servers::$id" -text "Рабочие серверы" -values "$id"
|
||||
$tree insert $parent end -id "admins::$id" -text "Администраторы" -values "$id"
|
||||
$tree insert $parent end -id "managers::$id" -text "Менеджеры кластера" -values $id
|
||||
$tree insert $parent end -id "processes::$id" -text "Рабочие процессы" -values "workprocess-all"
|
||||
$tree insert $parent end -id "sessions::$id" -text "Сеансы" -values "sessions-all"
|
||||
$tree insert $parent end -id "locks::$id" -text "Блокировки" -values "blocks-all"
|
||||
$tree insert $parent end -id "connections::$id" -text "Соединения" -values "connections-all"
|
||||
$tree insert $parent end -id "profiles::$id" -text "Профили безопасности" -values $id
|
||||
$tree insert $parent end -id "infobases::$id" -text [::msgcat::mc "Infobases"] -values "$id"
|
||||
$tree insert $parent end -id "servers::$id" -text [::msgcat::mc "Working servers"] -values "$id"
|
||||
$tree insert $parent end -id "admins::$id" -text [::msgcat::mc "Administrators"] -values "$id"
|
||||
$tree insert $parent end -id "managers::$id" -text [::msgcat::mc "Cluster managers"] -values $id
|
||||
$tree insert $parent end -id "processes::$id" -text [::msgcat::mc "Working processes"] -values "workprocess-all"
|
||||
$tree insert $parent end -id "sessions::$id" -text [::msgcat::mc "Sessions"] -values "sessions-all"
|
||||
$tree insert $parent end -id "locks::$id" -text [::msgcat::mc "Blocks"] -values "blocks-all"
|
||||
$tree insert $parent end -id "connections::$id" -text [::msgcat::mc "Connections"] -values "connections-all"
|
||||
$tree insert $parent end -id "profiles::$id" -text [::msgcat::mc "Security profiles"] -values $id
|
||||
}
|
||||
|
||||
proc InsertBaseItems {tree id} {
|
||||
set parent "infobase::$id"
|
||||
if { [$tree exists "sessions::$id"] == 0 } {
|
||||
$tree insert $parent end -id "sessions::$id" -text "Сеансы" -values "$id"
|
||||
$tree insert $parent end -id "sessions::$id" -text [::msgcat::mc "Sessions"] -values "$id"
|
||||
}
|
||||
if { [$tree exists "locks::$id"] == 0 } {
|
||||
$tree insert $parent end -id "locks::$id" -text "Блокировки" -values "$id"
|
||||
$tree insert $parent end -id "locks::$id" -text [::msgcat::mc "Blocks"] -values "$id"
|
||||
}
|
||||
if { [$tree exists "connections::$id"] == 0 } {
|
||||
$tree insert $parent end -id "connections::$id" -text "Соединения" -values "$id"
|
||||
$tree insert $parent end -id "connections::$id" -text [::msgcat::mc "Connections"] -values "$id"
|
||||
}
|
||||
}
|
||||
|
||||
proc InsertWorkServerItems {tree id} {
|
||||
set parent "work_server::$id"
|
||||
if { [$tree exists "work_server_processes::$id"] == 0 } {
|
||||
$tree insert $parent end -id "work_server_processes::$id" -text "Процессы" -values "$id"
|
||||
$tree insert $parent end -id "work_server_processes::$id" -text [::msgcat::mc "Working processes"] -values "$id"
|
||||
}
|
||||
if { [$tree exists "work_server_licenses::$id"] == 0 } {
|
||||
$tree insert $parent end -id "work_server_licenses::$id" -text "Лицензии" -values "$id"
|
||||
$tree insert $parent end -id "work_server_licenses::$id" -text [::msgcat::mc "Licenses"] -values "$id"
|
||||
}
|
||||
if { [$tree exists "rule::$id"] == 0 } {
|
||||
$tree insert $parent end -id "rule::$id" -text "Требования назначения функциональности" -values "$id"
|
||||
$tree insert $parent end -id "rule::$id" -text [::msgcat::mc "Assignment rule"] -values "$id"
|
||||
}
|
||||
if { [$tree exists "services::$id"] == 0 } {
|
||||
# $tree insert $parent end -id "services::$id" -text "Сервисы" -values "$id"
|
||||
@ -208,17 +208,17 @@ proc InsertWorkServerItems {tree id} {
|
||||
proc InsertProfileItems {tree id} {
|
||||
set parent "profile::$id"
|
||||
set lst {
|
||||
{directory "Виртуальные каталоги"}
|
||||
{com "Разрешённые COM-классы"}
|
||||
{addin "Внешние компоненты"}
|
||||
{module "Внешние отчёты и обработки"}
|
||||
{app "Разрешённые приложения"}
|
||||
{inet "Ресурсы интернет"}
|
||||
{directory "Virtual directory"}
|
||||
{com "Available COM class"}
|
||||
{addin "Available add-in"}
|
||||
{module "Available external module"}
|
||||
{app "Available application"}
|
||||
{inet "Available internet resurce"}
|
||||
}
|
||||
foreach i $lst {
|
||||
append item [lindex $i 0] "::$id"
|
||||
if { [$tree exists $item] == 0 } {
|
||||
$tree insert $parent end -id $item -text [lindex $i 1] -values "$id"
|
||||
$tree insert $parent end -id $item -text [::msgcat::mc [lindex $i 1]] -values "$id"
|
||||
}
|
||||
unset item
|
||||
}
|
||||
@ -348,7 +348,7 @@ proc Run::server {tree host values} {
|
||||
}
|
||||
}
|
||||
if { [$tree exists "agent_admins::$id"] == 0 } {
|
||||
$tree insert "server::$host" end -id "agent_admins::$id" -text "Администраторы" -values "$id"
|
||||
$tree insert "server::$host" end -id "agent_admins::$id" -text [::msgcat::mc "Administrators"] -values "$id"
|
||||
#InsertClusterItems $tree $id
|
||||
}
|
||||
}
|
||||
@ -728,7 +728,7 @@ proc AddToplevel {lbl img {win_name .add}} {
|
||||
set cmd "destroy $win_name"
|
||||
if [winfo exists $win_name] {destroy $win_name}
|
||||
toplevel $win_name
|
||||
wm title $win_name $lbl
|
||||
wm title $win_name [::msgcat::mc "Add record"]
|
||||
wm iconphoto $win_name tcl
|
||||
ttk::label $win_name.lbl -image $img
|
||||
|
||||
@ -755,17 +755,18 @@ proc Add::agent_admins {tree host value} {
|
||||
|
||||
proc Add::agent_admin {tree host value} {
|
||||
global default auth active_cluster
|
||||
set frm [AddToplevel "Добавление администратора агента кластера" administrator_grey_64]
|
||||
set frm [AddToplevel [::msgcat::mc "Agent cluster addministrator"] administrator_grey_64]
|
||||
|
||||
set auth [lindex $default(auth) 0]
|
||||
label $frm.lbl_name -text "Имя пользователя"
|
||||
label $frm.lbl_name -text [::msgcat::mc "User name"]
|
||||
entry $frm.ent_name
|
||||
label $frm.lbl_pwd -text "Пароль"
|
||||
label $frm.lbl_pwd -text [::msgcat::mc "Password"]
|
||||
entry $frm.ent_pwd
|
||||
label $frm.lbl_descr -text "Примечание"
|
||||
label $frm.lbl_descr -text [::msgcat::mc "Description"]
|
||||
entry $frm.ent_descr
|
||||
label $frm.lbl_auth -text "Способ аутентификации"
|
||||
label $frm.lbl_auth -text [::msgcat::mc "Authentication method"]
|
||||
ttk::combobox $frm.cb_auth -textvariable auth -values $default(auth)
|
||||
label $frm.lbl_os_user -text "Пользователь ОС"
|
||||
label $frm.lbl_os_user -text [::msgcat::mc "OS user name"]
|
||||
entry $frm.ent_os_user
|
||||
|
||||
grid $frm.lbl_name -row 0 -column 0 -sticky nw -padx 5 -pady 5
|
||||
@ -805,8 +806,8 @@ proc Add::admins {tree host value} {
|
||||
proc Add::admin {tree host value} {
|
||||
global default auth active_cluster agent_user agent_pwd cluster_user cluster_pwd
|
||||
set frm [Add::agent_admin $tree $host $value]
|
||||
wm title .add "Добавление администратора кластера"
|
||||
.add.frm configure -text "Добавление администратора кластера"
|
||||
$frm configure -text [::msgcat::mc "Cluster administrator"]
|
||||
#.add.frm configure -text [::msgcat::mc "Add record"]
|
||||
.add.frm_btn.btn_ok configure -command {
|
||||
RunCommand "cluster admin register \
|
||||
--name=[.add.frm.ent_name get] \
|
||||
@ -828,11 +829,11 @@ proc Add::admin {tree host value} {
|
||||
|
||||
proc Add::server {} {
|
||||
global default
|
||||
set frm [AddToplevel "Добавление основного сервера" server_grey_64]
|
||||
set frm [AddToplevel [::msgcat::mc "Main server"] server_grey_64]
|
||||
|
||||
label $frm.lbl_host -text "Адрес сервера"
|
||||
label $frm.lbl_host -text [::msgcat::mc "Address"]
|
||||
entry $frm.ent_host
|
||||
label $frm.lbl_port -text "Порт"
|
||||
label $frm.lbl_port -text [::msgcat::mc "Port"]
|
||||
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
|
||||
@ -861,39 +862,39 @@ proc Add::servers {tree host values} {
|
||||
set dedicate_manager "none"
|
||||
set using_central_server "normal"
|
||||
#set active_cluster $values
|
||||
set frm [AddToplevel "Добавление рабочего сервера" server_grey_64]
|
||||
set frm [AddToplevel [::msgcat::mc "Work server"] server_grey_64]
|
||||
|
||||
label $frm.lbl_name -text "Описание сервера"
|
||||
label $frm.lbl_name -text [::msgcat::mc "Description"]
|
||||
entry $frm.ent_name
|
||||
label $frm.lbl_agent_host -text "Адрес сервера"
|
||||
label $frm.lbl_agent_host -text [::msgcat::mc "Address"]
|
||||
entry $frm.ent_agent_host
|
||||
label $frm.lbl_agent_port -text "Порт"
|
||||
label $frm.lbl_agent_port -text [::msgcat::mc "Port"]
|
||||
entry $frm.ent_agent_port
|
||||
$frm.ent_agent_port insert end $default(port)
|
||||
label $frm.lbl_port_range -text "Диапазон портов"
|
||||
label $frm.lbl_port_range -text [::msgcat::mc "Ports range"]
|
||||
entry $frm.ent_port_range
|
||||
$frm.ent_port_range insert end $default(port_range)
|
||||
label $frm.lbl_safe_working_processes_memory_limit -text "Максимальный объём памяти раб. процессов"
|
||||
label $frm.lbl_safe_working_processes_memory_limit -text [::msgcat::mc "Maximum memory in working processes"]
|
||||
entry $frm.ent_safe_working_processes_memory_limit
|
||||
$frm.ent_safe_working_processes_memory_limit insert end $default(safe_working_processes_memory_limit)
|
||||
label $frm.lbl_safe_call_memory_limit -text "Безопасный расход памяти за вызов"
|
||||
label $frm.lbl_safe_call_memory_limit -text [::msgcat::mc "Safe memory consuption per call"]
|
||||
entry $frm.ent_safe_call_memory_limit
|
||||
$frm.ent_safe_call_memory_limit insert end $default(safe_call_memory_limit)
|
||||
label $frm.lbl_memory_limit -text "Объём памяти рабочих процессов"
|
||||
label $frm.lbl_memory_limit -text [::msgcat::mc "Memory use limit per working process"]
|
||||
entry $frm.ent_memory_limit
|
||||
$frm.ent_memory_limit insert end $default(ram_work)
|
||||
label $frm.lbl_infobases_limit -text "Количество ИБ на процесс"
|
||||
label $frm.lbl_infobases_limit -text [::msgcat::mc "Maximum number of infobases per working process"]
|
||||
entry $frm.ent_infobases_limit
|
||||
$frm.ent_infobases_limit insert end $default(infobases_limit)
|
||||
label $frm.lbl_connections_limit -text "Количество соединений на процесс"
|
||||
label $frm.lbl_connections_limit -text [::msgcat::mc "Maximum nuber of connections per working process"]
|
||||
entry $frm.ent_connections_limit
|
||||
$frm.ent_connections_limit insert end $default(connections_limit)
|
||||
label $frm.lbl_cluster_port -text "Порт главного менеджера кластера"
|
||||
label $frm.lbl_cluster_port -text [::msgcat::mc "Main cluster manager port number"]
|
||||
entry $frm.ent_cluster_port
|
||||
$frm.ent_cluster_port insert end $default(port)
|
||||
label $frm.lbl_dedicate_managers -text "Менеджер под каждый сервис"
|
||||
label $frm.lbl_dedicate_managers -text [::msgcat::mc "Service manager allocation"]
|
||||
checkbutton $frm.check_dedicate_managers -variable dedicate_managers -onvalue all -offvalue none
|
||||
label $frm.lbl_using -text "Центральный сервер"
|
||||
label $frm.lbl_using -text [::msgcat::mc "Working server use variant"]
|
||||
checkbutton $frm.check_using -variable using -onvalue main -offvalue normal
|
||||
|
||||
grid $frm.lbl_name -row 0 -column 0 -sticky nw -padx 5 -pady 5
|
||||
@ -971,35 +972,35 @@ proc Add::infobases {tree host values} {
|
||||
set dbms [lindex $default(dbms) 0]
|
||||
set block_shedule on
|
||||
|
||||
set frm [AddToplevel "Добавление информационной базы" database_grey_64]
|
||||
set frm [AddToplevel [::msgcat::mc "Infobase"] database_grey_64]
|
||||
|
||||
label $frm.lbl_name -text "Имя информационной базы"
|
||||
label $frm.lbl_name -text [::msgcat::mc "Name"]
|
||||
entry $frm.ent_name
|
||||
label $frm.lbl_descr -text "Описание"
|
||||
label $frm.lbl_descr -text [::msgcat::mc "Description"]
|
||||
entry $frm.ent_descr
|
||||
label $frm.lbl_security_level -text "Защищённое соединение"
|
||||
label $frm.lbl_security_level -text [::msgcat::mc "Security level"]
|
||||
ttk::combobox $frm.cb_security_level -textvariable security_level -values $default(security_level)
|
||||
label $frm.lbl_db_server -text "Адрес сервера баз данных"
|
||||
label $frm.lbl_db_server -text [::msgcat::mc "Database server address"]
|
||||
entry $frm.ent_db_server
|
||||
label $frm.lbl_dbms -text "Тип СУБД"
|
||||
label $frm.lbl_dbms -text [::msgcat::mc "DBMS"]
|
||||
ttk::combobox $frm.cb_dbms -textvariable dbms -values $default(dbms)
|
||||
label $frm.lbl_db_name -text "База данных"
|
||||
label $frm.lbl_db_name -text [::msgcat::mc "Database name"]
|
||||
entry $frm.ent_db_name
|
||||
label $frm.lbl_db_user -text "Имя пользователя базы данных"
|
||||
label $frm.lbl_db_user -text [::msgcat::mc "Database administrator"]
|
||||
entry $frm.ent_db_user
|
||||
label $frm.lbl_db_pwd -text "Пароль"
|
||||
label $frm.lbl_db_pwd -text [::msgcat::mc "Password"]
|
||||
entry $frm.ent_db_pwd
|
||||
#$frm.ent_host insert end $host
|
||||
label $frm.lbl_locale -text "Язык базы данных"
|
||||
label $frm.lbl_locale -text [::msgcat::mc "Locale"]
|
||||
entry $frm.ent_locale
|
||||
$frm.ent_locale insert end $default(locale)
|
||||
label $frm.lbl_date_offset -text "Смещение дат"
|
||||
label $frm.lbl_date_offset -text [::msgcat::mc "Date offset"]
|
||||
ttk::combobox $frm.cb_date_offset -textvariable date_offset -values $default(date_offset)
|
||||
label $frm.lbl_license_distribution -justify left -anchor nw -text "Разрешить выдачу лицензий\nсервером 1С"
|
||||
label $frm.lbl_license_distribution -justify left -anchor nw -text [::msgcat::mc "Management license distribution"]
|
||||
checkbutton $frm.cb_license_distribution -variable license_distribution -onvalue allow -offvalue deny
|
||||
label $frm.lbl_create_db -text "Создать БД в случае её отсутствия"
|
||||
label $frm.lbl_create_db -text [::msgcat::mc "Create database"]
|
||||
checkbutton $frm.cb_create_db -variable create_db -onvalue true -offvalue false
|
||||
label $frm.lbl_scheduled_jobs_deny -text "Блокировка регламентных заданий"
|
||||
label $frm.lbl_scheduled_jobs_deny -text [::msgcat::mc "Sheduled jobs deny"]
|
||||
checkbutton $frm.cb_scheduled_jobs_deny -variable scheduled_jobs_deny -onvalue on -offvalue off
|
||||
|
||||
grid $frm.lbl_name -row 0 -column 0 -sticky nw -padx 5 -pady 5
|
||||
@ -1079,34 +1080,35 @@ proc Add::cluster {tree host values} {
|
||||
set security_level [lindex $default(security_level) 0]
|
||||
set load_balancing_mode [lindex $default(load_balancing_mode) 0]
|
||||
|
||||
set frm [AddToplevel "Добавление кластера" cluster_grey_64]
|
||||
set frm [AddToplevel [::msgcat::mc "Cluster"] cluster_grey_64]
|
||||
|
||||
label $frm.lbl_host -text "Адрес основного сервера"
|
||||
label $frm.lbl_host -text [::msgcat::mc "Main server address"]
|
||||
entry $frm.ent_host
|
||||
label $frm.lbl_port -text "Порт"
|
||||
label $frm.lbl_port -text [::msgcat::mc "Port"]
|
||||
entry $frm.ent_port
|
||||
$frm.ent_port insert end $default(port)
|
||||
label $frm.lbl_name -text "Название кластера"
|
||||
label $frm.lbl_name -text [::msgcat::mc "Name"]
|
||||
|
||||
entry $frm.ent_name
|
||||
label $frm.lbl_secure_connect -text "Защищённое соединение"
|
||||
label $frm.lbl_secure_connect -text [::msgcat::mc "Secure level"]
|
||||
ttk::combobox $frm.cb_security_level -textvariable security_level -values $default(security_level)
|
||||
label $frm.lbl_expiration_timeout -text "Останавливать выключенные процессы через:"
|
||||
label $frm.lbl_expiration_timeout -text [::msgcat::mc "Forced termination time"]
|
||||
entry $frm.ent_expiration_timeout -textvariable expiration_timeout
|
||||
label $frm.lbl_session_fault_tolerance_level -text "Уровень отказоустойчивости"
|
||||
label $frm.lbl_session_fault_tolerance_level -text [::msgcat::mc "Fault-tolerance level"]
|
||||
entry $frm.ent_session_fault_tolerance_level -textvariable session_fault_tolerance_level
|
||||
label $frm.lbl_load_balancing_mode -text "Режим распределения нагрузки"
|
||||
label $frm.lbl_load_balancing_mode -text [::msgcat::mc "Load balancing mode"]
|
||||
ttk::combobox $frm.cb_load_balancing_mode -textvariable load_balancing_mode \
|
||||
-values $default(load_balancing_mode)
|
||||
label $frm.lbl_errors_count_threshold -text "Допустимое отклонение количества ошибок сервера, %"
|
||||
label $frm.lbl_errors_count_threshold -text [::msgcat::mc "Server errors threshold"]
|
||||
entry $frm.ent_errors_count_threshold -textvariable errors_count_threshold
|
||||
label $frm.lbl_processes -text "Рабочие процессы:"
|
||||
label $frm.lbl_lifetime_limit -text "Период перезапуска, сек."
|
||||
label $frm.lbl_processes -text [::msgcat::mc "Working process"]
|
||||
label $frm.lbl_lifetime_limit -text [::msgcat::mc "Restart time"]
|
||||
entry $frm.ent_lifetime_limit -textvariable lifetime_limit
|
||||
label $frm.lbl_max_memory_size -text "Допустимый объём памяти, КБ"
|
||||
label $frm.lbl_max_memory_size -text [::msgcat::mc "Maximum virtual address space"]
|
||||
entry $frm.ent_max_memory_size -textvariable max_memory_size
|
||||
label $frm.lbl_max_memory_time_limit -text "Интервал превышения допустимого объёма памяти, сек."
|
||||
label $frm.lbl_max_memory_time_limit -text [::msgcat::mc "Maximum period of memori size exeeding"]
|
||||
entry $frm.ent_max_memory_time_limit -textvariable max_memory_time_limit
|
||||
label $frm.lbl_kill_problem_processes -justify left -anchor nw -text "Принудительно завершать проблемные процессы"
|
||||
label $frm.lbl_kill_problem_processes -justify left -anchor nw -text [::msgcat::mc "Terminate corrupted processes"]
|
||||
checkbutton $frm.check_kill_problem_processes -variable kill_problem_processes -onvalue yes -offvalue no
|
||||
|
||||
|
||||
@ -2288,3 +2290,5 @@ proc Del::app {tree host profile_name} {
|
||||
proc Del::inet {tree host profile_name} {
|
||||
Del::acl $host inet [GetWorkTreeItems "name"] $profile_name
|
||||
}
|
||||
|
||||
|
||||
|
1
lib/msg/en.msg
Normal file
1
lib/msg/en.msg
Normal file
@ -0,0 +1 @@
|
||||
|
57
lib/msg/ru.msg
Normal file
57
lib/msg/ru.msg
Normal file
@ -0,0 +1,57 @@
|
||||
::msgcat::mcset ru "Show where is a RAC comand" "Укажите путь до rac"
|
||||
::msgcat::mcset ru "Infobases" "Информационные базы"
|
||||
::msgcat::mcset ru "Authorization" "Авторизация"
|
||||
::msgcat::mcset ru "User name" "Имя пользователя"
|
||||
::msgcat::mcset ru "Password" "Пароль"
|
||||
::msgcat::mcset ru "Cluster manager" "Менеджеры кластера"
|
||||
::msgcat::mcset ru "Working process" "Рабочие процессы"
|
||||
::msgcat::mcset ru "Sessions" "Сеансы"
|
||||
::msgcat::mcset ru "Blocks" "Блокировки"
|
||||
::msgcat::mcset ru "Connections" "Соединения"
|
||||
::msgcat::mcset ru "Security profiles" "Профили безопасности"
|
||||
::msgcat::mcset ru "Licenses" "Лицензии"
|
||||
::msgcat::mcset ru "Cluster" "Кластер"
|
||||
::msgcat::mcset ru "Cluster administrator" "Администратор кластера"
|
||||
::msgcat::mcset ru "Agent cluster addministrator" "Администратор агента кластера"
|
||||
::msgcat::mcset ru "Assignment rule" "Требования назначения функциональности"
|
||||
::msgcat::mcset ru "Virtual directory" "Виртуальные каталоги"
|
||||
::msgcat::mcset ru "Available COM class" "Разрешённые COM-классы"
|
||||
::msgcat::mcset ru "Available add-in" "Внешние компоненты"
|
||||
::msgcat::mcset ru "Available external module" "Внешние отчёты и обработки"
|
||||
::msgcat::mcset ru "Available application" "Разрешённые приложения"
|
||||
::msgcat::mcset ru "Available internet resurce" "Ресурсы интернет"
|
||||
::msgcat::mcset ru "OS user name" "Пользователь ОС"
|
||||
::msgcat::mcset ru "Authentication method" "Способ аутентификации"
|
||||
::msgcat::mcset ru "Add record" "Добавить запись"
|
||||
::msgcat::mcset ru "Main server" "Основной сервер"
|
||||
::msgcat::mcset ru "Main server address" "Адрес основного сервера"
|
||||
::msgcat::mcset ru "Address" "Адрес сервера"
|
||||
::msgcat::mcset ru "Port" "Порт"
|
||||
::msgcat::mcset ru "Port range" "Диапазон портов"
|
||||
::msgcat::mcset ru "Maximum memory in working processes" "Максимальный объём памяти раб. процессов"
|
||||
::msgcat::mcset ru "Safe memory consuption per call" "Безопасный расход памяти за вызов"
|
||||
::msgcat::mcset ru "Memory use limit per working process" "Предел использования памяти рабочим процессом"
|
||||
::msgcat::mcset ru "Maximum number of infobases per working process" "Количество ИБ на процесс"
|
||||
::msgcat::mcset ru "Maximum nuber of connections per working process" "Количество соединений на процесс"
|
||||
::msgcat::mcset ru "Main cluster manager port number" "Порт главного менеджера кластера"
|
||||
::msgcat::mcset ru "Service manager allocation" "Менеджер под каждый сервис"
|
||||
::msgcat::mcset ru "Working server use variant" "Вариант использования рабочего сервера"
|
||||
::msgcat::mcset ru "Working servers" "Рабочие серверы"
|
||||
::msgcat::mcset ru "Databases server address" "Адрес сервера баз данных"
|
||||
::msgcat::mcset ru "DBMS" "Тип СУБД"
|
||||
::msgcat::mcset ru "Database name" "Имя базы данных"
|
||||
::msgcat::mcset ru "Locale" "Язык базы данных"
|
||||
::msgcat::mcset ru "Database administrator" "Имя администратора базы данных"
|
||||
::msgcat::mcset ru "Management license distribution" "Разрешить выдачу лицензий\nсервером 1С"
|
||||
::msgcat::mcset ru "Create database" "Создать БД в случае её отсутствия"
|
||||
::msgcat::mcset ru "Shaduled jobs deny" "Блокировка регламентных заданий"
|
||||
::msgcat::mcset ru "Date offset" "Смещение дат"
|
||||
::msgcat::mcset ru "Secure level" "Безопасное соединение"
|
||||
::msgcat::mcset ru "Forced termination time" "Останавливать выключенные процессы через:"
|
||||
::msgcat::mcset ru "Fault-tolerance level" "Уровень отказоустойчивости"
|
||||
::msgcat::mcset ru "Load balancing mode" "Режим распределения нагрузки"
|
||||
::msgcat::mcset ru "Server errors threshold" "Допустимое отклонение количества ошибок сервера, %"
|
||||
::msgcat::mcset ru "Restart time" "Период перезапуска, сек."
|
||||
::msgcat::mcset ru "Maximum virtual address space" "Допустимый объём памяти, КБ"
|
||||
::msgcat::mcset ru "Maximum period of memori size exeeding" "Интервал превышения допустимого объёма памяти, сек."
|
||||
::msgcat::mcset ru "Terminate corrupted processes" "Принудительно завершать проблемные процессы"
|
@ -117,3 +117,4 @@ set default(auth) {
|
||||
set color(dark_table_bg) "#e2e2e2"
|
||||
set color(light_table_bg) "#ffffff"
|
||||
|
||||
|
||||
|
@ -59,4 +59,5 @@ install -p -m644 msg/*.* $RPM_BUILD_ROOT%_datadir/%name/msg/
|
||||
|
||||
%changelog
|
||||
* Tue Jul 24 2018 Sergey Kalinin <svk@nuk-svk.ru> 1.0.0
|
||||
- Initial release
|
||||
- Initial release
|
||||
|
||||
|
@ -2,6 +2,8 @@
|
||||
# Tcl ignores the next line -*- tcl -*- \
|
||||
exec wish "$0" -- "$@"
|
||||
|
||||
package require msgcat
|
||||
|
||||
######################################################
|
||||
# Rac GUI
|
||||
# Distributed under GNU Public License
|
||||
@ -27,7 +29,8 @@ source [file join $dir(work) rac_gui.cfg]
|
||||
# если программа не найдена то будет выведен диалог для указанием корректного пути
|
||||
# и этот путь будет записан в пользовательский конфиг
|
||||
if {[file exists $rac_cmd] == 0} {
|
||||
set rac_cmd [tk_getOpenFile -initialdir $env(HOME) -parent . -title "Укажите путь до rac" -initialfile rac]
|
||||
set rac_cmd [tk_getOpenFile -initialdir $env(HOME) -parent . \
|
||||
-title [::msgcat::mc "Show where is a RAC comand"] -initialfile rac]
|
||||
file copy [file join $dir(work) rac_gui.cfg] [file join $dir(work) rac_gui.cfg.bak]
|
||||
set orig_file [open [file join $dir(work) rac_gui.cfg.bak] "r"]
|
||||
set file [open [file join $dir(work) rac_gui.cfg] "w"]
|
||||
@ -45,6 +48,8 @@ if {[file exists $rac_cmd] == 0} {
|
||||
} else {
|
||||
puts "Found $rac_cmd"
|
||||
}
|
||||
::msgcat::mclocale $default(locale)
|
||||
::msgcat::mcload [file join $dir(lib) msg]
|
||||
|
||||
set cluster_user ""
|
||||
set cluster_pwd ""
|
||||
@ -93,3 +98,4 @@ if [file exists [file join $dir(work) 1c_srv.cfg]] {
|
||||
|
||||
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user