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

Исправлено добавление и редактирование ИБ (экранирование пробелов)

master
Sergey Kalinin 2018-06-14 12:02:04 +03:00
parent b0c1135678
commit 59d808f5a1
2 changed files with 106 additions and 95 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
doc/rac-manual.txt
View File

@ -412,7 +412,7 @@ server
main - в качестве центрального сервера
normal - в качестве обычного сервера
--infobases-limit=<count>
--infobases-limit=<count>
максимальное количество информационных баз на рабочий процесс
--memory-limit=<Kb>
@ -450,7 +450,7 @@ server
main - в качестве центрального сервера
normal - в качестве обычного сервера
--infobases-limit=<count>
--infobases-limit=<count>
максимальное количество информационных баз на рабочий процесс
--memory-limit=<Kb>
@ -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=<uuid>
(обязательный) идентификатор информационной базы
(обязательный) идентификатор информационной базы
list
получение списка краткой информации об информационных базах
@ -637,7 +637,7 @@ server
обновление краткой информации об информационной базе
--infobase=<uuid>
(обязательный) идентификатор информационной базы
(обязательный) идентификатор информационной базы
--descr=<descr>
описание информационной базы
@ -668,60 +668,60 @@ server
(обязательный) идентификатор национальных настроек информационной базы
--db-user=<name>
имя администратора базы данных
имя администратора базы данных
--db-pwd=<pwd>
пароль администратора базы данных
--descr=<descr>
--descr=<descr>
описание информационной базы
--date-offset=<offset>
смещение дат в информационной базе
--security-level=<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=<uuid>
(обязательный) идентификатор информационной базы
--infobase-user=<name>
имя администратора информационной базы
--infobase-pwd=<pwd>
пароль администратора информационной базы
--dbms=MSSQLServer|PostgreSQL|IBMDB2|OracleDatabase
тип СУБД, в которой размещается информационная база:
update
обновление информации об информационной базе
--infobase=<uuid>
(обязательный) идентификатор информационной базы
--infobase-user=<name>
имя администратора информационной базы
--infobase-pwd=<pwd>
пароль администратора информационной базы
--dbms=MSSQLServer|PostgreSQL|IBMDB2|OracleDatabase
тип СУБД, в которой размещается информационная база:
MSSQLServer - MS SQL Server
PostgreSQL - PostgreSQL
IBMDB2 - IBM DB2
OracleDatabase - Oracle Database
--db-server=<host>
имя сервера баз данных
--db-name=<name>
имя базы данных
--db-user=<name>
имя администратора базы данных
--db-server=<host>
имя сервера баз данных
--db-name=<name>
имя базы данных
--db-user=<name>
имя администратора базы данных
--db-pwd=<pwd>
пароль администратора базы данных
пароль администратора базы данных
--descr=<descr>
описание информационной базы
@ -731,7 +731,7 @@ server
--denied-message=<msg>
сообщение, выдаваемое при попытке нарушения блокировки сеансов
--denied-parameter=<string>
параметр блокировки сеансов
@ -756,10 +756,10 @@ server
deny - выдача лицензий запрещена
allow - выдача лицензий разрешена
--external-session-manager-connection-string=<connect-string>
--external-session-manager-connection-string=<connect-string>
параметры внешнего управления сеансами
--external-session-manager-required=yes|no
--external-session-manager-required=yes|no
обязательное использование внешнего управления сеансами
yes - использование внешнего управления сеансами обязательно
no - использование внешнего управления сеансами необязательно
@ -767,7 +767,7 @@ server
--security-profile-name=<name>
профиль безопасности информационной базы
--safe-mode-security-profile-name=<name>
--safe-mode-security-profile-name=<name>
профиль безопасности внешнего кода
drop
@ -1436,3 +1436,4 @@ profile Режим управления профилями безопас
(обязательный) имя профиля безопасности

112
lib/function.tcl
View File

@ -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
}
}