mirrors/1c_rac-gui
1
0
Fork 0
mirror of https://bitbucket.org/svk28/rac-gui synced 2024-12-04 18:46:52 +00:00
Code Releases Activity

Очистка кода

Browse Source
This commit is contained in:
Sergey Kalinin 2018-08-03 08:23:19 +03:00
parent 8f1d96aba4
commit 3e6ee19d7f
1 changed files with 34 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
lib/function.tcl
View File

@ -1,4 +1,4 @@
#des##########################################
##########################################
# Rac GUI
# Distributed under GNU Public License
# Author: Sergey Kalinin svk@nuk-svk.ru
@ -17,7 +17,7 @@ set server ""
proc TreePress {tree} {
global host server active_cluster infobase
set id [$tree selection]
set id [$tree selection]
SetGlobalVarFromTreeItems $tree $id
set values [$tree item $id -values]
set key [lindex [split $id "::"] 0]
@ -377,7 +377,7 @@ proc Run::infobases {tree host values} {
set auth ""
}
set lst [RunCommand "infobase summary --cluster=$active_cluster $auth list $host"]
puts $lst
#puts $lst
foreach info_bases_list $lst {
foreach i $info_bases_list {
set base_list [split $i ":"]
@ -1247,17 +1247,21 @@ proc Add::profile {tree host values} {
global default active_cluster server agent_user agent_pwd cluster_user cluster_pwd auth
global config priv crypto right_extension right_extension_definition_roles \
all_modules_extension modules_available_for_extension modules_not_available_for_extension
if {$cluster_user ne "" && $cluster_pwd ne ""} {
set auth "--cluster-user=$cluster_user --cluster-pwd=$cluster_pwd"
} else {
set auth ""
}
set var_list {config priv crypto right_extension all_modules_extension }
foreach v $var_list {set $v "off"; puts $v}
foreach v $var_list {
set $v "off"
}
set var_list {right_extension_definition_roles modules_available_for_extension modules_not_available_for_extension}
foreach v $var_list {set $v 0; puts $v}
foreach v $var_list {
set $v 0
}
unset var_list
puts ">>>$right_extension_definition_roles"
set frm [AddToplevel [::msgcat::mc "Security profile"] security_grey_64]
@ -1345,7 +1349,9 @@ proc Add::directory {tree host values} {
set auth ""
}
set var_list {allowedRead allowedWrite}
foreach v $var_list {set $v "no"; puts $v}
foreach v $var_list {
set $v "no"
}
unset var_list
set frm [AddToplevel [::msgcat::mc "Virtual directory"] directory_grey_64]
@ -1398,7 +1404,9 @@ proc Add::addin {tree host values} {
set auth ""
}
set var_list {allowedRead allowedWrite}
foreach v $var_list {set $v "no"; puts $v}
foreach v $var_list {
set $v "no"
}
unset var_list
set frm [AddToplevel [::msgcat::mc "Available add-in"] addin_grey_64]
@ -1439,7 +1447,9 @@ proc Add::module {tree host values} {
set auth ""
}
set var_list {allowedRead allowedWrite}
foreach v $var_list {set $v "no"; puts $v}
foreach v $var_list {
set $v "no"
}
unset var_list
set frm [AddToplevel [::msgcat::mc "External module"] module_grey_64]
@ -1480,7 +1490,9 @@ proc Add::com {tree host values} {
set auth ""
}
set var_list {allowedRead allowedWrite}
foreach v $var_list {set $v "no"; puts $v}
foreach v $var_list {
set $v "no"
}
unset var_list
set frm [AddToplevel [::msgcat::mc "COM class"] com_grey_64]
@ -1531,7 +1543,9 @@ proc Add::app {tree host values} {
set auth ""
}
set var_list {allowedRead allowedWrite}
foreach v $var_list {set $v "no"; puts $v}
foreach v $var_list {
set $v "no"
}
unset var_list
set frm [AddToplevel [::msgcat::mc "Application"] app_grey_64]
@ -1571,7 +1585,9 @@ proc Add::inet {tree host values} {
set auth ""
}
set var_list {allowedRead allowedWrite}
foreach v $var_list {set $v "no"; puts $v}
foreach v $var_list {
set $v "no"
}
unset var_list
set frm [AddToplevel [::msgcat::mc "Internet resource"] link_grey_64]
@ -1625,8 +1641,8 @@ proc Edit {} {
set id [.frm_tree.tree selection]
set values [.frm_tree.tree item $id -values]
set key [lindex [split $id "::"] 0]
puts $key
puts $values
#puts $key
#puts $values
if {$values eq "" || $key eq ""} {return}
Edit::$key $tree $host $values
}
@ -1938,6 +1954,10 @@ proc Edit::profile {tree host values} {
} else {
set auth ""
}
set lst [GetWorkTreeRow]
if {$lst eq ""} {
return
}
set frm [Add::profile $tree $host $values]
wm title .add [::msgcat::mc "Edit record"]