svk/rac-gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Добавлен механизм локализации

Browse Source 
Начато добавление локализации интерфейса на английский и русский языки
Добавлена возможность сборки RPM-пакета
This commit is contained in:
Sergey Kalinin 2018-07-24 13:57:20 +03:00
parent 17cd5da635
commit c261bc2667
6 changed files with 156 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

172
lib/function.tcl
View File

@ -104,7 +104,7 @@ proc ErrorParcing {err opt} {
switch -regexp -- $err { switch -regexp -- $err {
"Cluster administrator is not authenticated" { "Cluster administrator is not authenticated" {
AuthorisationDialog "Администратор кластера" AuthorisationDialog [::msgcat::mc "Cluster administrator"]
.auth_win.frm_btn.btn_ok configure -command { .auth_win.frm_btn.btn_ok configure -command {
set cluster_user [.auth_win.frm.ent_name get] set cluster_user [.auth_win.frm.ent_name get]
set cluster_pwd [.auth_win.frm.ent_pwd get] set cluster_pwd [.auth_win.frm.ent_pwd get]
@ -113,7 +113,7 @@ proc ErrorParcing {err opt} {
#RunCommand $root $par #RunCommand $root $par
} }
"Central server administrator is not authenticated" { "Central server administrator is not authenticated" {
AuthorisationDialog "Администратор агента кластера" AuthorisationDialog [::msgcat::mc "Agent cluster administrator"]
.auth_win.frm_btn.btn_ok configure -command { .auth_win.frm_btn.btn_ok configure -command {
set agent_user [.auth_win.frm.ent_name get] set agent_user [.auth_win.frm.ent_name get]
set agent_pwd [.auth_win.frm.ent_pwd 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 { .auth_win.frm_btn.btn_ok configure -command {
set cluster_user [.auth_win.frm.ent_name get] set cluster_user [.auth_win.frm.ent_name get]
set cluster_pwd [.auth_win.frm.ent_pwd get] set cluster_pwd [.auth_win.frm.ent_pwd get]
@ -130,7 +130,7 @@ proc ErrorParcing {err opt} {
#RunCommand $root $par #RunCommand $root $par
} }
"Администратор центрального сервера не аутентифицирован" { "Администратор центрального сервера не аутентифицирован" {
AuthorisationDialog "Администратор агента кластера" AuthorisationDialog [::msgcat::mc "Agent cluster administrator"]
.auth_win.frm_btn.btn_ok configure -command { .auth_win.frm_btn.btn_ok configure -command {
set agent_user [.auth_win.frm.ent_name get] set agent_user [.auth_win.frm.ent_name get]
set agent_pwd [.auth_win.frm.ent_pwd 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 {}] .frm_work.tree_work delete [ .frm_work.tree_work children {}]
set frm [AddToplevel "$txt" administrator_grey_64 .auth_win] set frm [AddToplevel "$txt" administrator_grey_64 .auth_win]
wm title .auth_win "Авторизация" wm title .auth_win [::msgcat::mc "Authorization"]
label $frm.lbl_name -text "Имя пользователя" label $frm.lbl_name -text [::msgcat::mc "User name"]
entry $frm.ent_name entry $frm.ent_name
label $frm.lbl_pwd -text "Пароль" label $frm.lbl_pwd -text [::msgcat::mc "Password"]
entry $frm.ent_pwd entry $frm.ent_pwd
grid $frm.lbl_name -row 0 -column 0 -sticky nw -padx 5 -pady 5 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 columnconfigure $frm 0 -weight 1
grid rowconfigure $frm 0 -weight 1 grid rowconfigure $frm 0 -weight 1
#set frm_btn [frame .add.frm_btn -border 0] #set frm_btn [frame .add.frm_btn -border 0]
} }
proc InsertClusterItems {tree id} { proc InsertClusterItems {tree id} {
set parent "cluster::$id" set parent "cluster::$id"
$tree insert $parent end -id "infobases::$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 "Рабочие серверы" -values "$id" $tree insert $parent end -id "servers::$id" -text [::msgcat::mc "Working servers"] -values "$id"
$tree insert $parent end -id "admins::$id" -text "Администраторы" -values "$id" $tree insert $parent end -id "admins::$id" -text [::msgcat::mc "Administrators"] -values "$id"
$tree insert $parent end -id "managers::$id" -text "Менеджеры кластера" -values $id $tree insert $parent end -id "managers::$id" -text [::msgcat::mc "Cluster managers"] -values $id
$tree insert $parent end -id "processes::$id" -text "Рабочие процессы" -values "workprocess-all" $tree insert $parent end -id "processes::$id" -text [::msgcat::mc "Working processes"] -values "workprocess-all"
$tree insert $parent end -id "sessions::$id" -text "Сеансы" -values "sessions-all" $tree insert $parent end -id "sessions::$id" -text [::msgcat::mc "Sessions"] -values "sessions-all"
$tree insert $parent end -id "locks::$id" -text "Блокировки" -values "blocks-all" $tree insert $parent end -id "locks::$id" -text [::msgcat::mc "Blocks"] -values "blocks-all"
$tree insert $parent end -id "connections::$id" -text "Соединения" -values "connections-all" $tree insert $parent end -id "connections::$id" -text [::msgcat::mc "Connections"] -values "connections-all"
$tree insert $parent end -id "profiles::$id" -text "Профили безопасности" -values $id $tree insert $parent end -id "profiles::$id" -text [::msgcat::mc "Security profiles"] -values $id
} }
proc InsertBaseItems {tree id} { proc InsertBaseItems {tree id} {
set parent "infobase::$id" set parent "infobase::$id"
if { [$tree exists "sessions::$id"] == 0 } { 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 } { 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 } { 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} { proc InsertWorkServerItems {tree id} {
set parent "work_server::$id" set parent "work_server::$id"
if { [$tree exists "work_server_processes::$id"] == 0 } { 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 } { 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 } { 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 } { if { [$tree exists "services::$id"] == 0 } {
# $tree insert $parent end -id "services::$id" -text "Сервисы" -values "$id" # $tree insert $parent end -id "services::$id" -text "Сервисы" -values "$id"
@ -208,17 +208,17 @@ proc InsertWorkServerItems {tree id} {
proc InsertProfileItems {tree id} { proc InsertProfileItems {tree id} {
set parent "profile::$id" set parent "profile::$id"
set lst { set lst {
{directory "Виртуальные каталоги"} {directory "Virtual directory"}
{com "Разрешённые COM-классы"} {com "Available COM class"}
{addin "Внешние компоненты"} {addin "Available add-in"}
{module "Внешние отчёты и обработки"} {module "Available external module"}
{app "Разрешённые приложения"} {app "Available application"}
{inet "Ресурсы интернет"} {inet "Available internet resurce"}
} }
foreach i $lst { foreach i $lst {
append item [lindex $i 0] "::$id" append item [lindex $i 0] "::$id"
if { [$tree exists $item] == 0 } { 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 unset item
} }
@ -348,7 +348,7 @@ proc Run::server {tree host values} {
} }
} }
if { [$tree exists "agent_admins::$id"] == 0 } { 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 #InsertClusterItems $tree $id
} }
} }
@ -728,7 +728,7 @@ proc AddToplevel {lbl img {win_name .add}} {
set cmd "destroy $win_name" set cmd "destroy $win_name"
if [winfo exists $win_name] {destroy $win_name} if [winfo exists $win_name] {destroy $win_name}
toplevel $win_name toplevel $win_name
wm title $win_name $lbl wm title $win_name [::msgcat::mc "Add record"]
wm iconphoto $win_name tcl wm iconphoto $win_name tcl
ttk::label $win_name.lbl -image $img 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} { proc Add::agent_admin {tree host value} {
global default auth active_cluster 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] set auth [lindex $default(auth) 0]
label $frm.lbl_name -text "Имя пользователя" label $frm.lbl_name -text [::msgcat::mc "User name"]
entry $frm.ent_name entry $frm.ent_name
label $frm.lbl_pwd -text "Пароль" label $frm.lbl_pwd -text [::msgcat::mc "Password"]
entry $frm.ent_pwd entry $frm.ent_pwd
label $frm.lbl_descr -text "Примечание" label $frm.lbl_descr -text [::msgcat::mc "Description"]
entry $frm.ent_descr 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) 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 entry $frm.ent_os_user
grid $frm.lbl_name -row 0 -column 0 -sticky nw -padx 5 -pady 5 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} { proc Add::admin {tree host value} {
global default auth active_cluster agent_user agent_pwd cluster_user cluster_pwd global default auth active_cluster agent_user agent_pwd cluster_user cluster_pwd
set frm [Add::agent_admin $tree $host $value] set frm [Add::agent_admin $tree $host $value]
wm title .add "Добавление администратора кластера" $frm configure -text [::msgcat::mc "Cluster administrator"]
.add.frm configure -text "Добавление администратора кластера" #.add.frm configure -text [::msgcat::mc "Add record"]
.add.frm_btn.btn_ok configure -command { .add.frm_btn.btn_ok configure -command {
RunCommand "cluster admin register \ RunCommand "cluster admin register \
--name=[.add.frm.ent_name get] \ --name=[.add.frm.ent_name get] \
@ -828,11 +829,11 @@ proc Add::admin {tree host value} {
proc Add::server {} { proc Add::server {} {
global default 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 entry $frm.ent_host
label $frm.lbl_port -text "Порт" label $frm.lbl_port -text [::msgcat::mc "Port"]
entry $frm.ent_port entry $frm.ent_port
$frm.ent_port insert end $default(port) $frm.ent_port insert end $default(port)
grid $frm.lbl_host -row 0 -column 0 -sticky nw -padx 5 -pady 5 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 dedicate_manager "none"
set using_central_server "normal" set using_central_server "normal"
#set active_cluster $values #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 entry $frm.ent_name
label $frm.lbl_agent_host -text "Адрес сервера" label $frm.lbl_agent_host -text [::msgcat::mc "Address"]
entry $frm.ent_agent_host 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 entry $frm.ent_agent_port
$frm.ent_agent_port insert end $default(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 entry $frm.ent_port_range
$frm.ent_port_range insert end $default(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 entry $frm.ent_safe_working_processes_memory_limit
$frm.ent_safe_working_processes_memory_limit insert end $default(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 entry $frm.ent_safe_call_memory_limit
$frm.ent_safe_call_memory_limit insert end $default(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 entry $frm.ent_memory_limit
$frm.ent_memory_limit insert end $default(ram_work) $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 entry $frm.ent_infobases_limit
$frm.ent_infobases_limit insert end $default(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 entry $frm.ent_connections_limit
$frm.ent_connections_limit insert end $default(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 entry $frm.ent_cluster_port
$frm.ent_cluster_port insert end $default(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 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 checkbutton $frm.check_using -variable using -onvalue main -offvalue normal
grid $frm.lbl_name -row 0 -column 0 -sticky nw -padx 5 -pady 5 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 dbms [lindex $default(dbms) 0]
set block_shedule on 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 entry $frm.ent_name
label $frm.lbl_descr -text "Описание" label $frm.lbl_descr -text [::msgcat::mc "Description"]
entry $frm.ent_descr 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) 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 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) 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 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 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 entry $frm.ent_db_pwd
#$frm.ent_host insert end $host #$frm.ent_host insert end $host
label $frm.lbl_locale -text "Язык базы данных" label $frm.lbl_locale -text [::msgcat::mc "Locale"]
entry $frm.ent_locale entry $frm.ent_locale
$frm.ent_locale insert end $default(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) 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 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 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 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 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 security_level [lindex $default(security_level) 0]
set load_balancing_mode [lindex $default(load_balancing_mode) 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 entry $frm.ent_host
label $frm.lbl_port -text "Порт" label $frm.lbl_port -text [::msgcat::mc "Port"]
entry $frm.ent_port entry $frm.ent_port
$frm.ent_port insert end $default(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 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) 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 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 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 \ ttk::combobox $frm.cb_load_balancing_mode -textvariable load_balancing_mode \
-values $default(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 entry $frm.ent_errors_count_threshold -textvariable errors_count_threshold
label $frm.lbl_processes -text "Рабочие процессы:" label $frm.lbl_processes -text [::msgcat::mc "Working process"]
label $frm.lbl_lifetime_limit -text "Период перезапуска, сек." label $frm.lbl_lifetime_limit -text [::msgcat::mc "Restart time"]
entry $frm.ent_lifetime_limit -textvariable lifetime_limit 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 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 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 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} { proc Del::inet {tree host profile_name} {
Del::acl $host inet [GetWorkTreeItems "name"] $profile_name Del::acl $host inet [GetWorkTreeItems "name"] $profile_name
} }

1
lib/msg/en.msg Normal file
View File

@ -0,0 +1 @@

57
lib/msg/ru.msg Normal file
View 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" "Принудительно завершать проблемные процессы"

1
rac_gui.cfg
View File

@ -117,3 +117,4 @@ set default(auth) {
set color(dark_table_bg) "#e2e2e2" set color(dark_table_bg) "#e2e2e2"
set color(light_table_bg) "#ffffff" set color(light_table_bg) "#ffffff"

3
rac_gui.spec
View File

@ -59,4 +59,5 @@ install -p -m644 msg/*.* $RPM_BUILD_ROOT%_datadir/%name/msg/
%changelog %changelog
* Tue Jul 24 2018 Sergey Kalinin <svk@nuk-svk.ru> 1.0.0 * Tue Jul 24 2018 Sergey Kalinin <svk@nuk-svk.ru> 1.0.0
- Initial release - Initial release

8
rac_gui.tcl
View File

@ -2,6 +2,8 @@
# Tcl ignores the next line -*- tcl -*- \ # Tcl ignores the next line -*- tcl -*- \
exec wish "$0" -- "$@" exec wish "$0" -- "$@"
package require msgcat
###################################################### ######################################################
# Rac GUI # Rac GUI
# Distributed under GNU Public License # Distributed under GNU Public License
@ -27,7 +29,8 @@ source [file join $dir(work) rac_gui.cfg]
# если программа не найдена то будет выведен диалог для указанием корректного пути # если программа не найдена то будет выведен диалог для указанием корректного пути
# и этот путь будет записан в пользовательский конфиг # и этот путь будет записан в пользовательский конфиг
if {[file exists $rac_cmd] == 0} { 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] 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 orig_file [open [file join $dir(work) rac_gui.cfg.bak] "r"]
set file [open [file join $dir(work) rac_gui.cfg] "w"] set file [open [file join $dir(work) rac_gui.cfg] "w"]
@ -45,6 +48,8 @@ if {[file exists $rac_cmd] == 0} {
} else { } else {
puts "Found $rac_cmd" puts "Found $rac_cmd"
} }
::msgcat::mclocale $default(locale)
::msgcat::mcload [file join $dir(lib) msg]
set cluster_user "" set cluster_user ""
set cluster_pwd "" set cluster_pwd ""
@ -93,3 +98,4 @@ if [file exists [file join $dir(work) 1c_srv.cfg]] {