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

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

Browse Source
This commit is contained in:
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 - в качестве центрального сервера main - в качестве центрального сервера
normal - в качестве обычного сервера normal - в качестве обычного сервера
--infobases-limit=<count> --infobases-limit=<count>
максимальное количество информационных баз на рабочий процесс максимальное количество информационных баз на рабочий процесс
--memory-limit=<Kb> --memory-limit=<Kb>
@ -450,7 +450,7 @@ server
main - в качестве центрального сервера main - в качестве центрального сервера
normal - в качестве обычного сервера normal - в качестве обычного сервера
--infobases-limit=<count> --infobases-limit=<count>
максимальное количество информационных баз на рабочий процесс максимальное количество информационных баз на рабочий процесс
--memory-limit=<Kb> --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 | -? --help | -h | -?
отображение краткой информации об утилите отображение краткой информации об утилите
Общие аргументы: Общие аргументы:
@ -592,7 +592,7 @@ server
Режим: Режим:
infobase infobase
Режим администрирования информационной базой Режим администрирования информационной базой
Параметры: Параметры:
@ -628,8 +628,8 @@ server
получение краткой информации об указанной информационной базе получение краткой информации об указанной информационной базе
--infobase=<uuid> --infobase=<uuid>
(обязательный) идентификатор информационной базы (обязательный) идентификатор информационной базы
list list
получение списка краткой информации об информационных базах получение списка краткой информации об информационных базах
@ -637,7 +637,7 @@ server
обновление краткой информации об информационной базе обновление краткой информации об информационной базе
--infobase=<uuid> --infobase=<uuid>
(обязательный) идентификатор информационной базы (обязательный) идентификатор информационной базы
--descr=<descr> --descr=<descr>
описание информационной базы описание информационной базы
@ -668,60 +668,60 @@ server
(обязательный) идентификатор национальных настроек информационной базы (обязательный) идентификатор национальных настроек информационной базы
--db-user=<name> --db-user=<name>
имя администратора базы данных имя администратора базы данных
--db-pwd=<pwd> --db-pwd=<pwd>
пароль администратора базы данных пароль администратора базы данных
--descr=<descr> --descr=<descr>
описание информационной базы описание информационной базы
--date-offset=<offset> --date-offset=<offset>
смещение дат в информационной базе смещение дат в информационной базе
--security-level=<level> --security-level=<level>
уровень безопасности установки соединений с информационной базой уровень безопасности установки соединений с информационной базой
--scheduled-jobs-deny=on|off --scheduled-jobs-deny=on|off
управление блокировкой выполнения регламентных заданий: управление блокировкой выполнения регламентных заданий:
on - выполнение регламентных заданий запрещено on - выполнение регламентных заданий запрещено
off - выполнение регламентных заданий разрешено off - выполнение регламентных заданий разрешено
--license-distribution=deny|allow --license-distribution=deny|allow
управление выдачей лицензий сервером 1С:Предприятия управление выдачей лицензий сервером 1С:Предприятия
deny - выдача лицензий запрещена deny - выдача лицензий запрещена
allow - выдача лицензий разрешена allow - выдача лицензий разрешена
update update
обновление информации об информационной базе обновление информации об информационной базе
--infobase=<uuid> --infobase=<uuid>
(обязательный) идентификатор информационной базы (обязательный) идентификатор информационной базы
--infobase-user=<name> --infobase-user=<name>
имя администратора информационной базы имя администратора информационной базы
--infobase-pwd=<pwd> --infobase-pwd=<pwd>
пароль администратора информационной базы пароль администратора информационной базы
--dbms=MSSQLServer|PostgreSQL|IBMDB2|OracleDatabase --dbms=MSSQLServer|PostgreSQL|IBMDB2|OracleDatabase
тип СУБД, в которой размещается информационная база: тип СУБД, в которой размещается информационная база:
MSSQLServer - MS SQL Server MSSQLServer - MS SQL Server
PostgreSQL - PostgreSQL PostgreSQL - PostgreSQL
IBMDB2 - IBM DB2 IBMDB2 - IBM DB2
OracleDatabase - Oracle Database OracleDatabase - Oracle Database
--db-server=<host> --db-server=<host>
имя сервера баз данных имя сервера баз данных
--db-name=<name> --db-name=<name>
имя базы данных имя базы данных
--db-user=<name> --db-user=<name>
имя администратора базы данных имя администратора базы данных
--db-pwd=<pwd> --db-pwd=<pwd>
пароль администратора базы данных пароль администратора базы данных
--descr=<descr> --descr=<descr>
описание информационной базы описание информационной базы
@ -731,7 +731,7 @@ server
--denied-message=<msg> --denied-message=<msg>
сообщение, выдаваемое при попытке нарушения блокировки сеансов сообщение, выдаваемое при попытке нарушения блокировки сеансов
--denied-parameter=<string> --denied-parameter=<string>
параметр блокировки сеансов параметр блокировки сеансов
@ -756,10 +756,10 @@ server
deny - выдача лицензий запрещена deny - выдача лицензий запрещена
allow - выдача лицензий разрешена 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 - использование внешнего управления сеансами обязательно yes - использование внешнего управления сеансами обязательно
no - использование внешнего управления сеансами необязательно no - использование внешнего управления сеансами необязательно
@ -767,7 +767,7 @@ server
--security-profile-name=<name> --security-profile-name=<name>
профиль безопасности информационной базы профиль безопасности информационной базы
--safe-mode-security-profile-name=<name> --safe-mode-security-profile-name=<name>
профиль безопасности внешнего кода профиль безопасности внешнего кода
drop 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} { proc Add::infobases {tree host values} {
global default active_cluster 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 active_cluster $values
# установка значений по умолчанию # установка значений по умолчанию
set license_distribution deny set license_distribution deny
@ -756,8 +756,8 @@ proc Add::infobases {tree host values} {
entry $frm.ent_db_name entry $frm.ent_db_name
label $frm.lbl_db_user -text "Имя пользователя базы данных" label $frm.lbl_db_user -text "Имя пользователя базы данных"
entry $frm.ent_db_user entry $frm.ent_db_user
label $frm.lbl_db_pass -text "Пароль" label $frm.lbl_db_pwd -text "Пароль"
entry $frm.ent_db_pass 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 "Язык базы данных"
entry $frm.ent_locale 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 checkbutton $frm.cb_license_distribution -variable license_distribution -onvalue allow -offvalue deny
label $frm.lbl_create_db -text "Создать БД в случае её отсутствия" label $frm.lbl_create_db -text "Создать БД в случае её отсутствия"
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_sheduled_jobs_deny -text "Блокировка регламентных заданий" label $frm.lbl_scheduled_jobs_deny -text "Блокировка регламентных заданий"
checkbutton $frm.cb_sheduled_jobs_deny -variable sheduled_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
grid $frm.ent_name -row 0 -column 1 -sticky new -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.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.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.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.lbl_db_pwd -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.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.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.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 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.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.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.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.lbl_scheduled_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.cb_scheduled_jobs_deny -row 12 -column 1 -sticky nw -padx 5 -pady 5
#set active_cluster $values #set active_cluster $values
# Проверяем значение чекбокса и выставляем соответсвющую опцию # Проверяем значение чекбокса и выставляем соответсвющую опцию
@ -815,11 +815,11 @@ proc Add::infobases {tree host values} {
--db-name=[.add.frm.ent_db_name get] \ --db-name=[.add.frm.ent_db_name get] \
--locale=[.add.frm.ent_locale get] \ --locale=[.add.frm.ent_locale get] \
--db-user=[.add.frm.ent_db_user 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]\" \ --descr=\"[.add.frm.ent_descr get]\" \
--date-offset=$date_offset \ --date-offset=$date_offset \
--security-level=$security_level \ --security-level=$security_level \
--scheduled-jobs-deny=$sheduled_jobs \ --scheduled-jobs-deny=$scheduled_jobs_deny \
--license-distribution=$license_distribution \ --license-distribution=$license_distribution \
--cluster=$active_cluster $host" --cluster=$active_cluster $host"
Run::infobases $tree $host $active_cluster Run::infobases $tree $host $active_cluster
@ -1093,10 +1093,18 @@ proc Edit::cluster {tree host values} {
} }
} }
proc Edit::infobase {tree host values} { proc Edit::infobase {tree host values} {
global default active_cluster global default active_cluster infobase
global secure_level dbms sheduled_jobs_deny create_db license_distribution date_offset db_create global security_level dbms scheduled_jobs_deny license_distribution date_offset
global sessions_deny
set infobase $values
set frm [Add::infobases $tree $host $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 "Редактирование информационной базы" $frm configure -text "Редактирование информационной базы"
#set active_cluster $values #set active_cluster $values
label $frm.lbl_denied_from -text "Начало интервала времени действия\nрежима блокировки сеансов" \ label $frm.lbl_denied_from -text "Начало интервала времени действия\nрежима блокировки сеансов" \
@ -1113,19 +1121,18 @@ proc Edit::infobase {tree host values} {
label $frm.lbl_permission_code -text "Код разрешения начала сеанса\nвопреки блокировке сеансов" \ label $frm.lbl_permission_code -text "Код разрешения начала сеанса\nвопреки блокировке сеансов" \
-justify left -anchor nw -justify left -anchor nw
entry $frm.ent_permission_code 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 \ label $frm.lbl_external_session_manager_connection_string \
-text "Параметры внешнего управления сеансами" -text "Параметры внешнего управления сеансами"
checkbutton $frm.cb_external_session_manager_connection_string \ entry $frm.ent_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
label $frm.lbl_security_profile -text "Профиль безопасности информационной базы" label $frm.lbl_security_profile -text "Профиль безопасности информационной базы"
entry $frm.ent_security_profile entry $frm.ent_security_profile
label $frm.lbl_safe_mode_security_profile -text "Профиль безопасности внешнего кода" label $frm.lbl_safe_mode_security_profile_name -text "Профиль безопасности внешнего кода"
entry $frm.ent_safe_mode_security_profile 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.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 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.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.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.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 \ grid $frm.lbl_external_session_manager_connection_string \
-row 7 -column 2 -sticky nw -padx 5 -pady 5 -row 5 -column 2 -sticky nw -padx 5 -pady 5
grid $frm.cb_external_session_manager_connection_string \ grid $frm.ent_external_session_manager_connection_string \
-row 7 -column 3 -sticky nw -padx 5 -pady 5 -row 5 -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.lbl_security_profile -row 6 -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.ent_security_profile -row 6 -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.lbl_safe_mode_security_profile_name -row 7 -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 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"] set lst [RunCommand infobase::$values "infobase info --cluster=$active_cluster --infobase=$values $host"]
puts $lst puts $lst
@ -1173,27 +1180,30 @@ proc Edit::infobase {tree host values} {
} }
.add.frm_btn.btn_ok configure -command { .add.frm_btn.btn_ok configure -command {
if {$create_db eq "true"} { RunCommand "" "infobase update \
set db_create "--create-database" --infobase=$infobase \
} else { --infobase-user= \
set db_create "" --infobase-pwd= \
}
RunCommand "" "infobase create $db_create \
--name=[.add.frm.ent_infobase_name get] \
--dbms=$dbms \ --dbms=$dbms \
--db-server=[.add.frm.ent_host get] \ --db-server=[.add.frm.ent_db_server get] \
--db-name=[.add.frm.ent_base_name get] \ --db-name=[.add.frm.ent_db_name get] \
--locale=[.add.frm.ent_locale get] \
--db-user=[.add.frm.ent_db_user 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_infobase_descr get]\" \ --descr=[regsub -all -- " " [.add.frm.ent_descr get] "\\ "]\
--date-offset=$date_offset \ --denied-from=[.add.frm.ent_denied_from get] \
--security-level=$secure_level \ --denied-message=[regsub -all -- " " [.add.frm.ent_denied_message get] "\\ "]\
--scheduled-jobs-deny=$block_shedule \ --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 \ --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" --cluster=$active_cluster $host"
Run::infobases $tree $host $active_cluster #Run::infobases $tree $host $active_cluster
destroy .add destroy .add
} }
} }