From 59d808f5a17444253003d058d71ca30e8f073bbb Mon Sep 17 00:00:00 2001 From: Sergey Kalinin Date: Thu, 14 Jun 2018 12:02:04 +0300 Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?= =?UTF-8?q?=D0=B5=D0=BD=D0=BE=20=D0=B4=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?= =?UTF-8?q?=D0=BD=D0=B8=D0=B5=20=D0=B8=20=D1=80=D0=B5=D0=B4=D0=B0=D0=BA?= =?UTF-8?q?=D1=82=D0=B8=D1=80=D0=BE=D0=B2=D0=B0=D0=BD=D0=B8=D0=B5=20=D0=98?= =?UTF-8?q?=D0=91=20(=D1=8D=D0=BA=D1=80=D0=B0=D0=BD=D0=B8=D1=80=D0=BE?= =?UTF-8?q?=D0=B2=D0=B0=D0=BD=D0=B8=D0=B5=20=D0=BF=D1=80=D0=BE=D0=B1=D0=B5?= =?UTF-8?q?=D0=BB=D0=BE=D0=B2)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- doc/rac-manual.txt | 89 +++++++++++++++++------------------ lib/function.tcl | 112 ++++++++++++++++++++++++--------------------- 2 files changed, 106 insertions(+), 95 deletions(-) diff --git a/doc/rac-manual.txt b/doc/rac-manual.txt index 02d3476..3c4d185 100644 --- a/doc/rac-manual.txt +++ b/doc/rac-manual.txt @@ -412,7 +412,7 @@ server main - в качестве центрального сервера normal - в качестве обычного сервера - --infobases-limit= +--infobases-limit= максимальное количество информационных баз на рабочий процесс --memory-limit= @@ -450,7 +450,7 @@ server main - в качестве центрального сервера normal - в качестве обычного сервера - --infobases-limit= +--infobases-limit= максимальное количество информационных баз на рабочий процесс --memory-limit= @@ -575,7 +575,7 @@ server Использование: - rac infobase [command] [options] [arguments] +rac infobase [command] [options] [arguments] Общие параметры: @@ -583,7 +583,7 @@ server получение версии утилиты --help | -h | -? - отображение краткой информации об утилите + отображение краткой информации об утилите Общие аргументы: @@ -592,7 +592,7 @@ server Режим: - infobase +infobase Режим администрирования информационной базой Параметры: @@ -628,8 +628,8 @@ server получение краткой информации об указанной информационной базе --infobase= - (обязательный) идентификатор информационной базы - + (обязательный) идентификатор информационной базы + list получение списка краткой информации об информационных базах @@ -637,7 +637,7 @@ server обновление краткой информации об информационной базе --infobase= - (обязательный) идентификатор информационной базы + (обязательный) идентификатор информационной базы --descr= описание информационной базы @@ -668,60 +668,60 @@ server (обязательный) идентификатор национальных настроек информационной базы --db-user= - имя администратора базы данных + имя администратора базы данных --db-pwd= пароль администратора базы данных - --descr= +--descr= описание информационной базы - + --date-offset= смещение дат в информационной базе --security-level= уровень безопасности установки соединений с информационной базой - --scheduled-jobs-deny=on|off +--scheduled-jobs-deny=on|off управление блокировкой выполнения регламентных заданий: on - выполнение регламентных заданий запрещено off - выполнение регламентных заданий разрешено - - --license-distribution=deny|allow - управление выдачей лицензий сервером 1С:Предприятия + + --license-distribution=deny|allow + управление выдачей лицензий сервером 1С:Предприятия deny - выдача лицензий запрещена allow - выдача лицензий разрешена - - update - обновление информации об информационной базе - - --infobase= - (обязательный) идентификатор информационной базы - - --infobase-user= - имя администратора информационной базы - - --infobase-pwd= - пароль администратора информационной базы - - --dbms=MSSQLServer|PostgreSQL|IBMDB2|OracleDatabase - тип СУБД, в которой размещается информационная база: + + update + обновление информации об информационной базе + + --infobase= + (обязательный) идентификатор информационной базы + + --infobase-user= + имя администратора информационной базы + + --infobase-pwd= + пароль администратора информационной базы + + --dbms=MSSQLServer|PostgreSQL|IBMDB2|OracleDatabase + тип СУБД, в которой размещается информационная база: MSSQLServer - MS SQL Server PostgreSQL - PostgreSQL IBMDB2 - IBM DB2 OracleDatabase - Oracle Database - - --db-server= - имя сервера баз данных - - --db-name= - имя базы данных - - --db-user= - имя администратора базы данных + + --db-server= + имя сервера баз данных + + --db-name= + имя базы данных + + --db-user= + имя администратора базы данных --db-pwd= - пароль администратора базы данных + пароль администратора базы данных --descr= описание информационной базы @@ -731,7 +731,7 @@ server --denied-message= сообщение, выдаваемое при попытке нарушения блокировки сеансов - + --denied-parameter= параметр блокировки сеансов @@ -756,10 +756,10 @@ server deny - выдача лицензий запрещена allow - выдача лицензий разрешена - --external-session-manager-connection-string= +--external-session-manager-connection-string= параметры внешнего управления сеансами - --external-session-manager-required=yes|no +--external-session-manager-required=yes|no обязательное использование внешнего управления сеансами yes - использование внешнего управления сеансами обязательно no - использование внешнего управления сеансами необязательно @@ -767,7 +767,7 @@ server --security-profile-name= профиль безопасности информационной базы - --safe-mode-security-profile-name= +--safe-mode-security-profile-name= профиль безопасности внешнего кода drop @@ -1436,3 +1436,4 @@ profile Режим управления профилями безопас (обязательный) имя профиля безопасности + diff --git a/lib/function.tcl b/lib/function.tcl index fd1c7c7..9044008 100644 --- a/lib/function.tcl +++ b/lib/function.tcl @@ -731,7 +731,7 @@ proc Add::infobase {tree host values} { } proc Add::infobases {tree host values} { global default active_cluster - global security_level dbms sheduled_jobs_deny create_db license_distribution date_offset db_create + global security_level dbms scheduled_jobs_deny create_db license_distribution date_offset db_create #set active_cluster $values # установка значений по умолчанию set license_distribution deny @@ -756,8 +756,8 @@ proc Add::infobases {tree host values} { entry $frm.ent_db_name label $frm.lbl_db_user -text "Имя пользователя базы данных" entry $frm.ent_db_user - label $frm.lbl_db_pass -text "Пароль" - entry $frm.ent_db_pass + label $frm.lbl_db_pwd -text "Пароль" + entry $frm.ent_db_pwd #$frm.ent_host insert end $host label $frm.lbl_locale -text "Язык базы данных" entry $frm.ent_locale @@ -768,8 +768,8 @@ proc Add::infobases {tree host values} { checkbutton $frm.cb_license_distribution -variable license_distribution -onvalue allow -offvalue deny label $frm.lbl_create_db -text "Создать БД в случае её отсутствия" checkbutton $frm.cb_create_db -variable create_db -onvalue true -offvalue false - label $frm.lbl_sheduled_jobs_deny -text "Блокировка регламентных заданий" - checkbutton $frm.cb_sheduled_jobs_deny -variable sheduled_jobs_deny -onvalue on -offvalue off + label $frm.lbl_scheduled_jobs_deny -text "Блокировка регламентных заданий" + 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.ent_name -row 0 -column 1 -sticky new -padx 5 -pady 5 @@ -785,8 +785,8 @@ proc Add::infobases {tree host values} { grid $frm.ent_db_name -row 5 -column 1 -sticky new -padx 5 -pady 5 grid $frm.lbl_db_user -row 6 -column 0 -sticky nw -padx 5 -pady 5 grid $frm.ent_db_user -row 6 -column 1 -sticky new -padx 5 -pady 5 - grid $frm.lbl_db_pass -row 7 -column 0 -sticky nw -padx 5 -pady 5 - grid $frm.ent_db_pass -row 7 -column 1 -sticky new -padx 5 -pady 5 + grid $frm.lbl_db_pwd -row 7 -column 0 -sticky nw -padx 5 -pady 5 + grid $frm.ent_db_pwd -row 7 -column 1 -sticky new -padx 5 -pady 5 grid $frm.lbl_locale -row 8 -column 0 -sticky nw -padx 5 -pady 5 grid $frm.ent_locale -row 8 -column 1 -sticky new -padx 5 -pady 5 grid $frm.lbl_date_offset -row 9 -column 0 -sticky nw -padx 5 -pady 5 @@ -795,8 +795,8 @@ proc Add::infobases {tree host values} { grid $frm.cb_license_distribution -row 10 -column 1 -sticky nw -padx 5 -pady 5 grid $frm.lbl_create_db -row 11 -column 0 -sticky nw -padx 5 -pady 5 grid $frm.cb_create_db -row 11 -column 1 -sticky nw -padx 5 -pady 5 - grid $frm.lbl_sheduled_jobs_deny -row 12 -column 0 -sticky nw -padx 5 -pady 5 - grid $frm.cb_sheduled_jobs_deny -row 12 -column 1 -sticky nw -padx 5 -pady 5 + grid $frm.lbl_scheduled_jobs_deny -row 12 -column 0 -sticky nw -padx 5 -pady 5 + grid $frm.cb_scheduled_jobs_deny -row 12 -column 1 -sticky nw -padx 5 -pady 5 #set active_cluster $values # Проверяем значение чекбокса и выставляем соответсвющую опцию @@ -815,11 +815,11 @@ proc Add::infobases {tree host values} { --db-name=[.add.frm.ent_db_name get] \ --locale=[.add.frm.ent_locale get] \ --db-user=[.add.frm.ent_db_user get] \ - --db-pwd=[.add.frm.ent_db_pass get] \ + --db-pwd=[.add.frm.ent_db_pwd get] \ --descr=\"[.add.frm.ent_descr get]\" \ --date-offset=$date_offset \ --security-level=$security_level \ - --scheduled-jobs-deny=$sheduled_jobs \ + --scheduled-jobs-deny=$scheduled_jobs_deny \ --license-distribution=$license_distribution \ --cluster=$active_cluster $host" Run::infobases $tree $host $active_cluster @@ -1093,10 +1093,18 @@ proc Edit::cluster {tree host values} { } } proc Edit::infobase {tree host values} { - global default active_cluster - global secure_level dbms sheduled_jobs_deny create_db license_distribution date_offset db_create - + global default active_cluster infobase + global security_level dbms scheduled_jobs_deny license_distribution date_offset + global sessions_deny + set infobase $values set frm [Add::infobases $tree $host $values] + + $frm.lbl_create_db configure -state disable + $frm.cb_create_db configure -state disable + $frm.lbl_locale configure -state disable + $frm.ent_locale configure -state disable + + $frm configure -text "Редактирование информационной базы" #set active_cluster $values label $frm.lbl_denied_from -text "Начало интервала времени действия\nрежима блокировки сеансов" \ @@ -1113,19 +1121,18 @@ proc Edit::infobase {tree host values} { label $frm.lbl_permission_code -text "Код разрешения начала сеанса\nвопреки блокировке сеансов" \ -justify left -anchor nw entry $frm.ent_permission_code - label $frm.lbl_sessions_deny -text "Режим блокировки сеансов" - checkbutton $frm.cb_sessions_deny -variable sessions_deny -onvalue on -offvalue off label $frm.lbl_external_session_manager_connection_string \ -text "Параметры внешнего управления сеансами" - checkbutton $frm.cb_external_session_manager_connection_string \ - -variable external_session_manager_connection_string -onvalue yes -offvalue no - label $frm.lbl_external_session_manager_required -text "Внешнее управление сеансами" - checkbutton $frm.cb_external_session_manager_required \ - -variable external_session_manager_required -onvalue yes -offvalue no + entry $frm.ent_external_session_manager_connection_string label $frm.lbl_security_profile -text "Профиль безопасности информационной базы" entry $frm.ent_security_profile - label $frm.lbl_safe_mode_security_profile -text "Профиль безопасности внешнего кода" - entry $frm.ent_safe_mode_security_profile + label $frm.lbl_safe_mode_security_profile_name -text "Профиль безопасности внешнего кода" + entry $frm.ent_safe_mode_security_profile_name + label $frm.lbl_sessions_deny -text "Режим блокировки сеансов" + checkbutton $frm.check_sessions_deny -variable sessions_deny -onvalue on -offvalue off + label $frm.lbl_external_session_manager_required -text "Внешнее управление сеансами" + checkbutton $frm.check_external_session_manager_required \ + -variable external_session_manager_required -onvalue yes -offvalue no grid $frm.lbl_denied_from -row 0 -column 2 -sticky nsw -padx 5 -pady 5 grid $frm.ent_denied_from -row 0 -column 3 -sticky nw -padx 5 -pady 5 @@ -1137,18 +1144,18 @@ proc Edit::infobase {tree host values} { grid $frm.ent_denied_to -row 3 -column 3 -sticky nw -padx 5 -pady 5 grid $frm.lbl_permission_code -row 4 -column 2 -sticky nsw -padx 5 -pady 5 grid $frm.ent_permission_code -row 4 -column 3 -sticky nw -padx 5 -pady 5 - grid $frm.lbl_sessions_deny -row 5 -column 2 -sticky nw -padx 5 -pady 5 - grid $frm.cb_sessions_deny -row 5 -column 3 -sticky nw -padx 5 -pady 5 - grid $frm.lbl_external_session_manager_required -row 6 -column 2 -sticky nw -padx 5 -pady 5 - grid $frm.cb_external_session_manager_required -row 6 -column 3 -sticky nw -padx 5 -pady 5 grid $frm.lbl_external_session_manager_connection_string \ - -row 7 -column 2 -sticky nw -padx 5 -pady 5 - grid $frm.cb_external_session_manager_connection_string \ - -row 7 -column 3 -sticky nw -padx 5 -pady 5 - grid $frm.lbl_security_profile -row 8 -column 2 -sticky nw -padx 5 -pady 5 - grid $frm.ent_security_profile -row 8 -column 3 -sticky nw -padx 5 -pady 5 - grid $frm.lbl_safe_mode_security_profile -row 9 -column 2 -sticky nw -padx 5 -pady 5 - grid $frm.ent_safe_mode_security_profile -row 9 -column 3 -sticky nw -padx 5 -pady 5 + -row 5 -column 2 -sticky nw -padx 5 -pady 5 + grid $frm.ent_external_session_manager_connection_string \ + -row 5 -column 3 -sticky nw -padx 5 -pady 5 + grid $frm.lbl_security_profile -row 6 -column 2 -sticky nw -padx 5 -pady 5 + grid $frm.ent_security_profile -row 6 -column 3 -sticky nw -padx 5 -pady 5 + grid $frm.lbl_safe_mode_security_profile_name -row 7 -column 2 -sticky nw -padx 5 -pady 5 + grid $frm.ent_safe_mode_security_profile_name -row 7 -column 3 -sticky nw -padx 5 -pady 5 + grid $frm.lbl_sessions_deny -row 8 -column 2 -sticky nw -padx 5 -pady 5 + grid $frm.check_sessions_deny -row 8 -column 3 -sticky nw -padx 5 -pady 5 + grid $frm.lbl_external_session_manager_required -row 9 -column 2 -sticky nw -padx 5 -pady 5 + grid $frm.check_external_session_manager_required -row 9 -column 3 -sticky nw -padx 5 -pady 5 set lst [RunCommand infobase::$values "infobase info --cluster=$active_cluster --infobase=$values $host"] puts $lst @@ -1173,27 +1180,30 @@ proc Edit::infobase {tree host values} { } .add.frm_btn.btn_ok configure -command { - if {$create_db eq "true"} { - set db_create "--create-database" - } else { - set db_create "" - } - - RunCommand "" "infobase create $db_create \ - --name=[.add.frm.ent_infobase_name get] \ + RunCommand "" "infobase update \ + --infobase=$infobase \ + --infobase-user= \ + --infobase-pwd= \ --dbms=$dbms \ - --db-server=[.add.frm.ent_host get] \ - --db-name=[.add.frm.ent_base_name get] \ - --locale=[.add.frm.ent_locale get] \ + --db-server=[.add.frm.ent_db_server get] \ + --db-name=[.add.frm.ent_db_name get] \ --db-user=[.add.frm.ent_db_user get] \ - --db-pwd=[.add.frm.ent_db_pass get] \ - --descr=\"[.add.frm.ent_infobase_descr get]\" \ - --date-offset=$date_offset \ - --security-level=$secure_level \ - --scheduled-jobs-deny=$block_shedule \ + --db-pwd=[.add.frm.ent_db_pwd get] \ + --descr=[regsub -all -- " " [.add.frm.ent_descr get] "\\ "]\ + --denied-from=[.add.frm.ent_denied_from get] \ + --denied-message=[regsub -all -- " " [.add.frm.ent_denied_message get] "\\ "]\ + --denied-parameter=[regsub -all -- " " [.add.frm.ent_denied_parameter get] "\\ "]\ + --denied-to=[.add.frm.ent_denied_to get] \ + --permission-code=[regsub -all -- " " [.add.frm.ent_permission_code get] "\\ "]\ + --sessions-deny=$sessions_deny \ + --scheduled-jobs-deny=$scheduled_jobs_deny \ --license-distribution=$license_distribution \ + --external-session-manager-connection-string=[.add.frm.ent_external_session_manager_connection_string get] \ + --external-session-manager-required=$external_session_manager_required \ + --security-profile-name=[.add.frm.ent_security_profile get] \ + --safe-mode-security-profile-name=[.add.frm.ent_safe_mode_security_profile_name get] \ --cluster=$active_cluster $host" - Run::infobases $tree $host $active_cluster + #Run::infobases $tree $host $active_cluster destroy .add } }