From c261bc2667650b479abefa89eb85fe00acd43711 Mon Sep 17 00:00:00 2001 From: Sergey Kalinin Date: Tue, 24 Jul 2018 13:57:20 +0300 Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?= =?UTF-8?q?=D0=BD=20=D0=BC=D0=B5=D1=85=D0=B0=D0=BD=D0=B8=D0=B7=D0=BC=20?= =?UTF-8?q?=D0=BB=D0=BE=D0=BA=D0=B0=D0=BB=D0=B8=D0=B7=D0=B0=D1=86=D0=B8?= =?UTF-8?q?=D0=B8=20=D0=9D=D0=B0=D1=87=D0=B0=D1=82=D0=BE=20=D0=B4=D0=BE?= =?UTF-8?q?=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5=D0=BD=D0=B8=D0=B5=20=D0=BB=D0=BE?= =?UTF-8?q?=D0=BA=D0=B0=D0=BB=D0=B8=D0=B7=D0=B0=D1=86=D0=B8=D0=B8=20=D0=B8?= =?UTF-8?q?=D0=BD=D1=82=D0=B5=D1=80=D1=84=D0=B5=D0=B9=D1=81=D0=B0=20=D0=BD?= =?UTF-8?q?=D0=B0=20=D0=B0=D0=BD=D0=B3=D0=BB=D0=B8=D0=B9=D1=81=D0=BA=D0=B8?= =?UTF-8?q?=D0=B9=20=D0=B8=20=D1=80=D1=83=D1=81=D1=81=D0=BA=D0=B8=D0=B9=20?= =?UTF-8?q?=D1=8F=D0=B7=D1=8B=D0=BA=D0=B8=20=D0=94=D0=BE=D0=B1=D0=B0=D0=B2?= =?UTF-8?q?=D0=BB=D0=B5=D0=BD=D0=B0=20=D0=B2=D0=BE=D0=B7=D0=BC=D0=BE=D0=B6?= =?UTF-8?q?=D0=BD=D0=BE=D1=81=D1=82=D1=8C=20=D1=81=D0=B1=D0=BE=D1=80=D0=BA?= =?UTF-8?q?=D0=B8=20RPM-=D0=BF=D0=B0=D0=BA=D0=B5=D1=82=D0=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/function.tcl | 172 ++++++++++++++++++++++++----------------------- lib/msg/en.msg | 1 + lib/msg/ru.msg | 57 ++++++++++++++++ rac_gui.cfg | 1 + rac_gui.spec | 3 +- rac_gui.tcl | 8 ++- 6 files changed, 156 insertions(+), 86 deletions(-) create mode 100644 lib/msg/en.msg create mode 100644 lib/msg/ru.msg diff --git a/lib/function.tcl b/lib/function.tcl index 2a02f9b..5769646 100644 --- a/lib/function.tcl +++ b/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 } + + diff --git a/lib/msg/en.msg b/lib/msg/en.msg new file mode 100644 index 0000000..8b13789 --- /dev/null +++ b/lib/msg/en.msg @@ -0,0 +1 @@ + diff --git a/lib/msg/ru.msg b/lib/msg/ru.msg new file mode 100644 index 0000000..25267ba --- /dev/null +++ b/lib/msg/ru.msg @@ -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" "Принудительно завершать проблемные процессы" diff --git a/rac_gui.cfg b/rac_gui.cfg index 7e407f8..2b08f0a 100644 --- a/rac_gui.cfg +++ b/rac_gui.cfg @@ -117,3 +117,4 @@ set default(auth) { set color(dark_table_bg) "#e2e2e2" set color(light_table_bg) "#ffffff" + diff --git a/rac_gui.spec b/rac_gui.spec index 405c15a..818dbb9 100644 --- a/rac_gui.spec +++ b/rac_gui.spec @@ -59,4 +59,5 @@ install -p -m644 msg/*.* $RPM_BUILD_ROOT%_datadir/%name/msg/ %changelog * Tue Jul 24 2018 Sergey Kalinin 1.0.0 -- Initial release \ No newline at end of file +- Initial release + diff --git a/rac_gui.tcl b/rac_gui.tcl index 4cdaa2e..d850189 100755 --- a/rac_gui.tcl +++ b/rac_gui.tcl @@ -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]] { +