Njengoko sasiphonononga isihloko sendlela iimveliso ze-1C ezisebenza ngayo kwindawo ye-Linux, enye i-drawback yafunyanwa-ukungabikho kwesixhobo esifanelekileyo segraphical multi-platform yokulawula iqela leeseva ze-1C. Kwaye kwagqitywa ekubeni kulungiswe le ntsilelo ngokubhala i-GUI ye-rac console utility. I-Tcl/tk yakhethwa njengolwimi lophuhliso njengoko, ngokombono wam, lolona lufanelekileyo kulo msebenzi. Kwaye ke, ndingathanda ukubonisa imiba enomdla yesisombululo kule nkcazelo.
Ukuze usebenze uya kufuna i-tcl/tk kunye nokuhanjiswa kwe-1C. Kwaye ekubeni ndigqibe ukwenza uninzi lwezakhono zonikezelo olusisiseko lwe-tcl/tk ngaphandle kokusebenzisa iipakethe zeqela lesithathu, ndiya kufuna inguqulo 8.6.7, ebandakanya i-ttk - iphakheji enezinto ezongezelelweyo zegraphic, esizidinga kakhulu i-ttk. ::TreeView, ivumela idatha yokubonisa zombini kwifom yesakhiwo somthi kunye nefom yetafile (uluhlu). Kwakhona, kwinguqulelo entsha, umsebenzi ngaphandle kokungafaniyo uhlaziywe (umyalelo wokuzama, osetyenziswa kwiprojekthi xa uqhuba imiyalelo yangaphandle).
Iprojekthi ineefayile ezininzi (nangona kungekho nto ikuthintelayo ekwenzeni yonke into enye):
rac_gui.cfg - uqwalaselo olungagqibekanga
rac_gui.tcl -iskripthi sokuphehlelelwa esiphambili
I-lib directory iqulethe iifayile ezilayishwa ngokuzenzekelayo ekuqaleni:
function.tcl -ifayile eneenkqubo
gui.tcl -ujongano lomzobo oluphambili
imifanekiso.tcl - base64 ilayibrari yomfanekiso
Ifayile ye-rac_gui.tcl, ngokwenene, iqala itoliki, iqala ukuguquguquka, imithwalo yeemodyuli, i-configs, njalo njalo. Imixholo yefayile enezimvo:
rac_gui.tcl
#!/bin/sh
exec wish "$0" -- "$@"
# Устанавливаем текущий каталог
set dir(root) [pwd]
# Устанавливаем рабочий каталог, если его нет то создаём
set dir(work) [file join $env(HOME) .rac_gui]
if {[file exists $dir(work)] == 0 } {
file mkdir $dir(work)
}
# каталог с модулями
set dir(lib) "[file join $dir(root) lib]"
# загружаем пользовательский конфиг, если он отсутствует, то копируем дефолтный
if {[file exists [file join $dir(work) rac_gui.cfg]] ==0} {
file copy [file join [pwd] rac_gui.cfg] [file join $dir(work) rac_gui.cfg]
}
source [file join $dir(work) rac_gui.cfg]
# Код проверки наличия rac и правильности указания пути в конфиге
# если программа не найдена то будет выведен диалог для указания корректного пути
# и этот путь будет записан в пользовательский конфиг
if {[file exists $rac_cmd] == 0} {
set rac_cmd [tk_getOpenFile -initialdir $env(HOME) -parent . -title "Укажите путь до rac" -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"]
while {[gets $orig_file line] >=0 } {
if {[string match "set rac_cmd*" $line]} {
puts $file "set rac_cmd $rac_cmd"
} else {
puts $file $line
}
}
close $file
close $orig_file
#return "$host:$port"
file delete [file join $dir(work) 1c_srv.cfg.bak]
} else {
puts "Found $rac_cmd"
}
set cluster_user ""
set cluster_pwd ""
set agent_user ""
set agent_pwd ""
## LOAD FILE ##
# Загружаем модули кроме gui.tcl так как его надо загрузить последним
foreach modFile [lsort [glob -nocomplain [file join $dir(lib) *.tcl]]] {
if {[file tail $modFile] ne "gui.tcl"} {
source $modFile
puts "Loaded module $modFile"
}
}
source [file join $dir(lib) gui.tcl]
source [file join $dir(work) rac_gui.cfg]
# Читаем файл со списком серверов 1С
# и добавляем в дерево
if [file exists [file join $dir(work) 1c_srv.cfg]] {
set f [open [file join $dir(work) 1c_srv.cfg] "RDONLY"]
while {[gets $f line] >=0} {
.frm_tree.tree insert {} end -id "server::$line" -text "$line" -values "$line"
}
}Emva kokukhuphela yonke into efunekayo kwaye ujonge ubukho bomsebenzi we-rac, ifestile yegraphical iya kuqaliswa. Ujongano lwenkqubo lunezinto ezintathu:
Ibar yesixhobo, umthi kunye noluhlu
Ndenze imixholo "yomthi" ifane ngokusemandleni kwizixhobo eziqhelekileyo zeWindows ukusuka kwi-1C.
Ikhowudi engundoqo eyenza le festile iqulethwe kwifayile
lib/gui.tcl
# установка размера и положения основного окна
# можно установить в переменную topLevelGeometry в конфиг программы
if {[info exists topLevelGeometry]} {
wm geometry . $topLevelGeometry
} else {
wm geometry . 1024x768
}
# Заголовок окна
wm title . "1C Rac GUI"
wm iconname . "1C Rac Gui"
# иконка окна (берется из файла lib/imges.tcl)
wm iconphoto . tcl
wm protocol . WM_DELETE_WINDOW Quit
wm overrideredirect . 0
wm positionfrom . user
ttk::style theme use clam
# Панель инсрументов
set frm_tool [frame .frm_tool]
pack $frm_tool -side left -fill y
ttk::panedwindow .panel -orient horizontal -style TPanedwindow
pack .panel -expand true -fill both
pack propagate .panel false
ttk::button $frm_tool.btn_add -command Add -image add_grey_32
ttk::button $frm_tool.btn_del -command Del -image del_grey_32
ttk::button $frm_tool.btn_edit -command Edit -image edit_grey_32
ttk::button $frm_tool.btn_quit -command Quit -image quit_grey_32
pack $frm_tool.btn_add $frm_tool.btn_del $frm_tool.btn_edit -side top -padx 5 -pady 5
pack $frm_tool.btn_quit -side bottom -padx 5 -pady 5
# Дерево с полосами прокрутки
set frm_tree [frame .frm_tree]
ttk::scrollbar $frm_tree.hsb1 -orient horizontal -command [list $frm_tree.tree xview]
ttk::scrollbar $frm_tree.vsb1 -orient vertical -command [list $frm_tree.tree yview]
set tree [ttk::treeview $frm_tree.tree -show tree
-xscrollcommand [list $frm_tree.hsb1 set] -yscrollcommand [list $frm_tree.vsb1 set]]
grid $tree -row 0 -column 0 -sticky nsew
grid $frm_tree.vsb1 -row 0 -column 1 -sticky nsew
grid $frm_tree.hsb1 -row 1 -column 0 -sticky nsew
grid columnconfigure $frm_tree 0 -weight 1
grid rowconfigure $frm_tree 0 -weight 1
# назначение обработчика нажатия кнопкой мыши
bind $frm_tree.tree <ButtonRelease> "TreePress $frm_tree.tree"
# Список для данных (таблица)
set frm_work [frame .frm_work]
ttk::scrollbar $frm_work.hsb -orient horizontal -command [list $frm_work.tree_work xview]
ttk::scrollbar $frm_work.vsb -orient vertical -command [list $frm_work.tree_work yview]
set tree_work [
ttk::treeview $frm_work.tree_work
-show headings -columns "par val" -displaycolumns "par val"
-xscrollcommand [list $frm_work.hsb set]
-yscrollcommand [list $frm_work.vsb set]
]
# Установка цветов для чередования в таблице
$tree_work tag configure dark -background $color(dark_table_bg)
$tree_work tag configure light -background $color(light_table_bg)
# Размещение элементов на форме
grid $tree_work -row 0 -column 0 -sticky nsew
grid $frm_work.vsb -row 0 -column 1 -sticky nsew
grid $frm_work.hsb -row 1 -column 0 -sticky nsew
grid columnconfigure $frm_work 0 -weight 1
grid rowconfigure $frm_work 0 -weight 1
pack $frm_tree $frm_work -side left -expand true -fill both
#.panel add $frm_tool -weight 1
.panel add $frm_tree -weight 1
.panel add $frm_work -weight 1
I-algorithm yokusebenza kunye neprogram ngolu hlobo lulandelayo:
1. Okokuqala, kufuneka ungeze umncedisi weqela eliphambili (oko kukuthi, umncedisi wolawulo lweqela (kwi-Linux, ulawulo luqaliswa ngomyalelo "/ opt/1C/v8.3/x86_64/ras cluster -daemon").
Ukwenza oku, cofa kwiqhosha elithi "+" kwaye kwifestile evulayo, faka idilesi yeseva kunye nesibuko:
Emva koko, umncedisi wethu uya kuvela emthini ngokunqakraza kuwo, uluhlu lwamaqela luya kuvula okanye impazamo yoqhagamshelwano iya kuboniswa.
2. Ukucofa igama le-cluster kuya kuvula uluhlu lwemisebenzi ekhoyo kuyo.
3.…
Kwaye njalo, i.e. Ukongeza iqela elitsha, khetha nayiphi na ekhoyo kuluhlu kwaye ucinezele iqhosha elithi "+" kwibar yesixhobo kwaye ukongeza incoko yababini entsha iya kuboniswa:
Amaqhosha akwibar yesixhobo enza imisebenzi ngokuxhomekeke kumxholo, i.e. Ngokuxhomekeke kwiyiphi into yomthi okanye uluhlu olukhethiweyo, enye okanye enye inkqubo iya kwenziwa.
Makhe sijonge kumzekelo weqhosha lokongeza (“+”):
Ikhowudi yokuvelisa iqhosha:
ttk::button $frm_tool.btn_add -command Add -image add_grey_32Apha sibona ukuba xa iqhosha licofa, inkqubo ethi "Yongeza" iya kuphunyezwa, ikhowudi yayo:
proc Add {} {
global active_cluster host
# Определяем идентификатор выделенного элемента
set id [.frm_tree.tree selection]
# Определяем значение этого элемента
set values [.frm_tree.tree item [.frm_tree.tree selection] -values]
set key [lindex [split $id "::"] 0]
# в зависимости от того что выделили будет запущена нужная процедура
if {$key eq "" || $key eq "server"} {
set host [ Add::server ]
return
}
Add::$key .frm_tree.tree $host $values
}Nalu olunye uncedo lwe-tickle: ungadlula ixabiso loguqulo njengegama lenkqubo:
Add::$key .frm_tree.tree $host $valuesOko kukuthi, umzekelo, ukuba sikhomba umncedisi ongundoqo kwaye ucinezele "+", emva koko i Yongeza::inkqubo yeseva iyakusungulwa, ukuba kwiqela - Yongeza::iqela njalo njalo (ndizakubhala malunga nalapho "izitshixo" eziyimfuneko zivela kancinci ngezantsi), iinkqubo ezidwelisiweyo zizoba imizobo efanelekileyo kumxholo.
Njengoko usenokuba sele uqaphele, iifom zifana nesitayela - oku akumangalisi, kuba ziboniswa yinkqubo enye, ngokuchanekileyo isakhelo esiphambili sefom (ifestile, amaqhosha, umfanekiso, ileyibhile), igama lenkqubo. AddTopLevel
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 iconphoto $win_name tcl
# метка с иконкой
ttk::label $win_name.lbl -image $img
# фрейм с полями ввода
set frm [ttk::labelframe $win_name.frm -text $lbl -labelanchor nw]
grid columnconfigure $frm 0 -weight 1
grid rowconfigure $frm 0 -weight 1
# фрейм и кнопки
set frm_btn [frame $win_name.frm_btn -border 0]
ttk::button $frm_btn.btn_ok -image ok_grey_24 -command { }
ttk::button $frm_btn.btn_cancel -command $cmd -image quit_grey_24
grid $win_name.lbl -row 0 -column 0 -sticky nw -padx 5 -pady 10
grid $frm -row 0 -column 1 -sticky nw -padx 5 -pady 5
grid $frm_btn -row 1 -column 1 -sticky se -padx 5 -pady 5
pack $frm_btn.btn_cancel -side right
pack $frm_btn.btn_ok -side right -padx 10
return $frm
}
Iiparameters zokufowuna: isihloko, igama lomfanekiso we-icon evela kwithala leencwadi (lib/images.tcl) kunye negama elikhethiweyo lefestile yeparameter (okwendalo .yongeza). Ke, ukuba sithatha le mizekelo ingentla ukongeza iseva ephambili kunye neqela, umnxeba uya kuba ngokufanelekileyo:
AddToplevel "Добавление основного сервера" server_grey_64okanye
AddToplevel "Добавление кластера" cluster_grey_64Ewe, ngokuqhubeka ngale mizekelo, ndiza kubonisa iinkqubo ezibonisa ukongeza iingxoxo zomncedisi okanye iqela.
Yongeza::umncedisi
proc Add::server {} {
global default
# выводим основную форму
set frm [AddToplevel "Добавление основного сервера" server_grey_64]
# добавляем етки и поля ввода на эту форму
label $frm.lbl_host -text "Адрес сервера"
entry $frm.ent_host
label $frm.lbl_port -text "Порт"
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
grid $frm.ent_host -row 0 -column 1 -sticky nsew -padx 5 -pady 5
grid $frm.lbl_port -row 1 -column 0 -sticky nw -padx 5 -pady 5
grid $frm.ent_port -row 1 -column 1 -sticky nsew -padx 5 -pady 5
grid columnconfigure $frm 0 -weight 1
grid rowconfigure $frm 0 -weight 1
#set frm_btn [frame .add.frm_btn -border 0]
# переопределяем обработчик нажатия кнопки
.add.frm_btn.btn_ok configure -command {
set host [SaveMainServer [.add.frm.ent_host get] [.add.frm.ent_port get]]
.frm_tree.tree insert {} end -id "server::$host" -text "$host" -values "$host"
destroy .add
return $host
}
return $frm
}Yongeza::iqela
proc Add::cluster {tree host values} {
global default lifetime_limit expiration_timeout session_fault_tolerance_level
global max_memory_size max_memory_time_limit errors_count_threshold security_level
global load_balancing_mode kill_problem_processes
agent_user agent_pwd cluster_user cluster_pwd auth_agent
if {$agent_user ne "" && $agent_pwd ne ""} {
set auth_agent "--agent-user=$agent_user --agent-pwd=$agent_pwd"
} else {
set auth_agent ""
}
# устанавливаем глобальные переменные ()
set lifetime_limit $default(lifetime_limit)
set expiration_timeout $default(expiration_timeout)
set session_fault_tolerance_level $default(session_fault_tolerance_level)
set max_memory_size $default(max_memory_size)
set max_memory_time_limit $default(max_memory_time_limit)
set errors_count_threshold $default(errors_count_threshold)
set security_level [lindex $default(security_level) 0]
set load_balancing_mode [lindex $default(load_balancing_mode) 0]
set frm [AddToplevel "Добавление кластера" cluster_grey_64]
label $frm.lbl_host -text "Адрес основного сервера"
entry $frm.ent_host
label $frm.lbl_port -text "Порт"
entry $frm.ent_port
$frm.ent_port insert end $default(port)
label $frm.lbl_name -text "Название кластера"
entry $frm.ent_name
label $frm.lbl_secure_connect -text "Защищённое соединение"
ttk::combobox $frm.cb_security_level -textvariable security_level -values $default(security_level)
label $frm.lbl_expiration_timeout -text "Останавливать выключенные процессы через:"
entry $frm.ent_expiration_timeout -textvariable expiration_timeout
label $frm.lbl_session_fault_tolerance_level -text "Уровень отказоустойчивости"
entry $frm.ent_session_fault_tolerance_level -textvariable session_fault_tolerance_level
label $frm.lbl_load_balancing_mode -text "Режим распределения нагрузки"
ttk::combobox $frm.cb_load_balancing_mode -textvariable load_balancing_mode
-values $default(load_balancing_mode)
label $frm.lbl_errors_count_threshold -text "Допустимое отклонение количества ошибок сервера, %"
entry $frm.ent_errors_count_threshold -textvariable errors_count_threshold
label $frm.lbl_processes -text "Рабочие процессы:"
label $frm.lbl_lifetime_limit -text "Период перезапуска, сек."
entry $frm.ent_lifetime_limit -textvariable lifetime_limit
label $frm.lbl_max_memory_size -text "Допустимый объём памяти, КБ"
entry $frm.ent_max_memory_size -textvariable max_memory_size
label $frm.lbl_max_memory_time_limit -text "Интервал превышения допустимого объёма памяти, сек."
entry $frm.ent_max_memory_time_limit -textvariable max_memory_time_limit
label $frm.lbl_kill_problem_processes -justify left -anchor nw -text "Принудительно завершать проблемные процессы"
checkbutton $frm.check_kill_problem_processes -variable kill_problem_processes -onvalue yes -offvalue no
grid $frm.lbl_host -row 0 -column 0 -sticky nw -padx 5 -pady 5
grid $frm.ent_host -row 0 -column 1 -sticky nsew -padx 5 -pady 5
grid $frm.lbl_port -row 1 -column 0 -sticky nw -padx 5 -pady 5
grid $frm.ent_port -row 1 -column 1 -sticky nsew -padx 5 -pady 5
grid $frm.lbl_name -row 2 -column 0 -sticky nw -padx 5 -pady 5
grid $frm.ent_name -row 2 -column 1 -sticky nsew -padx 5 -pady 5
grid $frm.lbl_secure_connect -row 3 -column 0 -sticky nw -padx 5 -pady 5
grid $frm.cb_security_level -row 3 -column 1 -sticky nsew -padx 5 -pady 5
grid $frm.lbl_expiration_timeout -row 4 -column 0 -sticky nw -padx 5 -pady 5
grid $frm.ent_expiration_timeout -row 4 -column 1 -sticky nsew -padx 5 -pady 5
grid $frm.lbl_session_fault_tolerance_level -row 5 -column 0 -sticky nw -padx 5 -pady 5
grid $frm.ent_session_fault_tolerance_level -row 5 -column 1 -sticky nsew -padx 5 -pady 5
grid $frm.lbl_load_balancing_mode -row 6 -column 0 -sticky nw -padx 5 -pady 5
grid $frm.cb_load_balancing_mode -row 6 -column 1 -sticky nsew -padx 5 -pady 5
grid $frm.lbl_errors_count_threshold -row 7 -column 0 -sticky nw -padx 5 -pady 5
grid $frm.ent_errors_count_threshold -row 7 -column 1 -sticky nsew -padx 5 -pady 5
grid $frm.lbl_processes -row 8 -column 0 -sticky nw -padx 5 -pady 5
grid $frm.lbl_lifetime_limit -row 9 -column 0 -sticky nw -padx 5 -pady 5
grid $frm.ent_lifetime_limit -row 9 -column 1 -sticky nsew -padx 5 -pady 5
grid $frm.lbl_max_memory_size -row 10 -column 0 -sticky nw -padx 5 -pady 5
grid $frm.ent_max_memory_size -row 10 -column 1 -sticky nsew -padx 5 -pady 5
grid $frm.lbl_max_memory_time_limit -row 11 -column 0 -sticky nw -padx 5 -pady 5
grid $frm.ent_max_memory_time_limit -row 11 -column 1 -sticky nsew -padx 5 -pady 5
grid $frm.lbl_kill_problem_processes -row 12 -column 0 -sticky nw -padx 5 -pady 5
grid $frm.check_kill_problem_processes -row 12 -column 1 -sticky nw -padx 5 -pady 5
# переопределяем обработчик
.add.frm_btn.btn_ok configure -command {
RunCommand "" "cluster insert
--host=[.add.frm.ent_host get]
--port=[.add.frm.ent_port get]
--name=[.add.frm.ent_name get]
--expiration-timeout=$expiration_timeout
--lifetime-limit=$lifetime_limit
--max-memory-size=$max_memory_size
--max-memory-time-limit=$max_memory_time_limit
--security-level=$security_level
--session-fault-tolerance-level=$session_fault_tolerance_level
--load-balancing-mode=$load_balancing_mode
--errors-count-threshold=$errors_count_threshold
--kill-problem-processes=$kill_problem_processes
$auth_agent $host"
Run::server $tree $host ""
destroy .add
}
return $frm
}Xa uthelekisa ikhowudi yale nkqubo, umehluko ubonakala kwiso lenyama ndiya kugxininisa kwiqhosha elithi "Ok". Kwi-Tk, iipropati zeempawu zegraphic zinokubhalwa ngaphezulu ngexesha lokwenziwa kwenkqubo usebenzisa ukhetho configures. Umzekelo, umyalelo wokuqala wokubonisa iqhosha:
ttk::button $frm_btn.btn_ok -image ok_grey_24 -command { }Kodwa kwiifom zethu, umyalelo uxhomekeke ekusebenzeni okufunekayo:
.add.frm_btn.btn_ok configure -command {
RunCommand "" "cluster insert
--host=[.add.frm.ent_host get]
--port=[.add.frm.ent_port get]
--name=[.add.frm.ent_name get]
--expiration-timeout=$expiration_timeout
--lifetime-limit=$lifetime_limit
--max-memory-size=$max_memory_size
--max-memory-time-limit=$max_memory_time_limit
--security-level=$security_level
--session-fault-tolerance-level=$session_fault_tolerance_level
--load-balancing-mode=$load_balancing_mode
--errors-count-threshold=$errors_count_threshold
--kill-problem-processes=$kill_problem_processes
$auth_agent $host"
Run::server $tree $host ""
destroy .add
}
Kulo mzekelo ungentla, iqhosha "elivaliweyo" liqala inkqubo yokongeza iqela.
Apha kufanelekile ukwenza uphambuko malunga nokusebenza kunye neempawu zegraphic kwi-Tk - kwizinto ezahlukeneyo zokufaka idatha (ungeniso, ibhokisi ye-combobox, iqhosha lokukhangela, njl.njl.) iparameter yazisiwe njengenguqu yokubhaliweyo:
entry $frm.ent_lifetime_limit -textvariable lifetime_limitOku kuguquguquka kuchazwe kwisithuba samagama sehlabathi kwaye siqulathe ixabiso elifakiweyo ngoku. Ezo. ukuze ufumane okubhaliweyo okungenisiweyo ukusuka ebaleni, kufuneka nje ufunde ixabiso elihambelana noguquko (ngokuqinisekileyo, ngaphandle kokuba ichaziwe xa usenza isiqalelo).
Indlela yesibini yokubuyisela okubhaliweyo okungenisiweyo (kwizinto zohlobo longeno) kukusebenzisa umyalelo wokufumana:
.add.frm.ent_name getZombini ezi ndlela zingabonwa kule khowudi ingentla.
Ukucofa eli qhosha, kulo mzekelo, indulula inkqubo ye-RunCommand ngelayini yomyalelo evelisiweyo yokongeza iqela ngokwemiqathango yerac:
/opt/1C/v8.3/x86_64/rac cluster insert --host=localhost --port=1540 --name=dsdsds --expiration-timeout=0 --lifetime-limit=0 --max-memory-size=0 --max-memory-time-limit=0 --security-level=0 --session-fault-tolerance-level=0 --load-balancing-mode=performance --errors-count-threshold=0 --kill-problem-processes=no localhost:1545Ngoku siza kumyalelo oyintloko, olawula ukuqaliswa kwe-rac kunye neeparamitha esizifunayo, kwaye sikwahlula imveliso yemiyalelo kuluhlu kunye nokubuyisela, ukuba kuyafuneka:
RunCommand
proc RunCommand {root par} {
global dir rac_cmd cluster work_list_row_count agent_user agent_pwd cluster_user cluster_pwd
puts "$rac_cmd $par"
set work_list_row_count 0
# открываем канал в неблокирующем режиме
# $rac - команда с полным путём
# $par - сформированные ключи запуска и опции
set pipe [open "|$rac_cmd $par" "r"]
try {
set lst ""
set l ""
# вывод команды добавляем в список списков
while {[gets $pipe line]>=0} {
#puts $line
if {$line eq ""} {
lappend l $lst
set lst ""
} else {
lappend lst [string trim $line]
}
}
close $pipe
return $l
} on error {result options} {
# Запуск обработчика ошибок
ErrorParcing $result $options
return ""
}
}Emva kokungena kwidatha yeseva ephambili, iya kongezwa emthini, kule nto, kungentla Yongeza: inkqubo yomncedisi, le khowudi ilandelayo inoxanduva:
.frm_tree.tree insert {} end -id "server::$host" -text "$host" -values "$host"Ngoku, ngokunqakraza kwigama lomncedisi emthini, sifumana uluhlu lwamaqela alawulwa ngulo mncedisi, kwaye ngokuchofoza kwi-cluster, sifumana uluhlu lwezinto ezidibeneyo (amaseva, i-infobases, njl.). Oku kuphunyezwa kwinkqubo ye-TreePress (ifayile lib/function.tcl):
proc TreePress {tree} {
global host server active_cluster infobase
# определяем выделенный элемент
set id [$tree selection]
# устанавливаем нужные глобальные переменные
SetGlobalVarFromTreeItems $tree $id
# Определяем ключ и значение, т.е. именно тип выбранного элемента
set values [$tree item $id -values]
set key [lindex [split $id "::"] 0]
# и в зависимости от того что выбрали будет запущена соответствующая процедура
# в пространстве имён Run
Run::$key $tree $host $values
}Ngokufanelekileyo, Qhuba :: umncedisi uya kuphehlelelwa umncedisi oyintloko (yeqela - Qhuba::iqela, lomncedisi osebenzayo - Run ::work_server, etc.). Ezo. ixabiso le-$key umahluko yinxalenye yegama lesiqalelo somthi esichazwe lukhetho -id.
Makhe sinikele ingqalelo kwinkqubo
Qhuba::server
proc Run::server {tree host values} {
# получаем список кластеров требуемого сервера
set lst [RunCommand server::$host "cluster list $host"]
if {$lst eq ""} {return}
set l [lindex $lst 0]
#puts $lst
# удаляем лишнее из списка
.frm_work.tree_work delete [ .frm_work.tree_work children {}]
# читаем список
foreach cluster_list $lst {
# Заполняем список полученными значениями
InsertItemsWorkList $cluster_list
# обрабатываем вывод (список) для добавления данных в дерево
foreach i $cluster_list {
#puts $i
set cluster_list [split $i ":"]
if {[string trim [lindex $cluster_list 0]] eq "cluster"} {
set cluster_id [string trim [lindex $cluster_list 1]]
lappend cluster($cluster_id) $cluster_id
}
if {[string trim [lindex $cluster_list 0]] eq "name"} {
lappend cluster($cluster_id) [string trim [lindex $cluster_list 1]]
}
}
}
# добавляем кластеры в дерево
foreach x [array names cluster] {
set id [lindex $cluster($x) 0]
if { [$tree exists "cluster::$id"] == 0 } {
$tree insert "server::$host" end -id "cluster::$id" -text "[lindex $cluster($x) 1]" -values "$id"
# добавляем элементы в кластер
InsertClusterItems $tree $id
}
}
if { [$tree exists "agent_admins::$id"] == 0 } {
$tree insert "server::$host" end -id "agent_admins::$id" -text "Администраторы" -values "$id"
#InsertClusterItems $tree $id
}
}Le nkqubo iqhuba oko kufunyenwe kumncedisi ngomyalelo we-RunCommand kwaye yongeza zonke iintlobo zezinto emthini - amaqoqo, iingcambu ezahlukeneyo (iziseko, iiseva zokusebenza, iiseshini, njalo njalo). Ukuba ujongisisa, uya kuqaphela umnxeba oya kwinkqubo ye-InsertItemsWorkList ngaphakathi. Isetyenziselwa ukongeza izinto kuluhlu lomzobo ngokuqhubekekisa imveliso yerac console eluncedo, ebibuyiselwe ngaphambili njengoluhlu kuluhlu lwe $lst. Olu luhlu loluhlu oluqulathe izibini zezinto ezahlulwe ngekholoni.
Umzekelo, uluhlu loqhagamshelwano lweqela:
svk@svk ~]$ /opt/1C/v8.3/x86_64/rac connection list --cluster=783d2170-56c3-11e8-c586-fc75165efbb2 localhost:1545
connection : dcf5991c-7d24-11e8-1690-fc75165efbb2
conn-id : 0
host : svk.home
process : 79de2e16-56c3-11e8-c586-fc75165efbb2
infobase : 00000000-0000-0000-0000-000000000000
application : "JobScheduler"
connected-at : 2018-07-01T14:49:51
session-number : 0
blocked-by-ls : 0
connection : b993293a-7d24-11e8-1690-fc75165efbb2
conn-id : 0
host : svk.home
process : 79de2e16-56c3-11e8-c586-fc75165efbb2
infobase : 00000000-0000-0000-0000-000000000000
application : "JobScheduler"
connected-at : 2018-07-01T14:48:52
session-number : 0
blocked-by-ls : 0
Kwimo yomzobo iya kujongeka ngolu hlobo:
Le nkqubo ingentla ikhetha amagama eentloko kunye nedatha yokuzalisa itheyibhile:
InsertItemsWorkList
proc InsertItemsWorkList {lst} {
global work_list_row_count
# установка чередования цвета для строки
if [expr $work_list_row_count % 2] {
set tag dark
} else {
set tag light
}
# разбор строк на пары ключ - значение
foreach i $lst {
if [regexp -nocase -all -- {(D+)(s*?|)(:)(s*?|)(.*)} $i match param v2 v3 v4 value] {
lappend column_list [string trim $param]
lappend value_list [string trim $value]
}
}
# заполнение таблицы
.frm_work.tree_work configure -columns $column_list -displaycolumns $column_list
.frm_work.tree_work insert {} end -values $value_list -tags $tag
.frm_work.tree_work column #0 -stretch
# установка заголовков
foreach j $column_list {
.frm_work.tree_work heading $j -text $j
}
incr work_list_row_count
}Apha, endaweni yomyalelo olula [ukwahlula $str ":"], owahlula umtya kwizinto ezahlulwe ngo ":" kwaye ibuyisela uluhlu, intetho eqhelekileyo iyasetyenziswa, kuba ezinye iziqalelo zikwanazo nekholoni.
Inkqubo ye-InsertClusterItems (enye yezininzi ezifanayo) yongeza ngokulula uluhlu lweziqalelo zomntwana ezinezazisi ezihambelanayo kumthi weqela elifunekayo
InsertClusterItems
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
}
Unokuqwalasela ezinye iinketho ezimbini zokuphumeza inkqubo efanayo, apho iya kubonakala ngokucacileyo ukuba ungakhulisa njani kwaye ulahle imiyalelo ephindaphindiweyo:
Kule nkqubo, ukongeza kunye nokujonga zisombululwa ngokuthe ngqo:
InsertBaseItems
proc InsertBaseItems {tree id} {
set parent "infobase::$id"
if { [$tree exists "sessions::$id"] == 0 } {
$tree insert $parent end -id "sessions::$id" -text "Сеансы" -values "$id"
}
if { [$tree exists "locks::$id"] == 0 } {
$tree insert $parent end -id "locks::$id" -text "Блокировки" -values "$id"
}
if { [$tree exists "connections::$id"] == 0 } {
$tree insert $parent end -id "connections::$id" -text "Соединения" -values "$id"
}
}
Nantsi enye indlela echanekileyo:
InsertProfileItems
proc InsertProfileItems {tree id} {
set parent "profile::$id"
set lst {
{dir "Виртуальные каталоги"}
{com "Разрешённые COM-классы"}
{addin "Внешние компоненты"}
{module "Внешние отчёты и обработки"}
{app "Разрешённые приложения"}
{inet "Ресурсы интернет"}
}
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"
}
unset item
}
}Umahluko phakathi kwazo kusetyenziso lwelophu, apho i(i) imiyalelo ephindaphindiweyo iphunyezwayo. Yeyiphi indlela enokusetyenziswa ngokwengqiqo yomphuhlisi.
Sikugubungele ukongeza izinto kunye nokufumana idatha, ngoku lixesha lokugxila ekuhleleni. Ekubeni, ngokwesiseko, iiparamitha ezifanayo zisetyenziselwa ukuhlela kunye nokongeza (ngaphandle kwesiseko solwazi), iifom zencoko yababini ezifanayo zisetyenziswa. I-algorithm yeenkqubo zokufowuna ukongeza ijongeka ngolu hlobo:
Yongeza::$key->AddToplevel
Kwaye ukuhlela ngolu hlobo:
Hlela::$isitshixo->Yongeza::$key->AddTopLevel
Umzekelo, makhe sithathe ukuhlela iqela, okt. Ukucofa kwigama leqela emthini, cofa iqhosha lokuhlela kwibar yesixhobo (ipensile) kwaye ifom ehambelana nayo iya kuboniswa kwisikrini:
Hlela::iqela
proc Edit::cluster {tree host values} {
global default lifetime_limit expiration_timeout session_fault_tolerance_level
global max_memory_size max_memory_time_limit errors_count_threshold security_level
global load_balancing_mode kill_problem_processes active_cluster
agent_user agent_pwd cluster_user cluster_pwd auth
if {$cluster_user ne "" && $cluster_pwd ne ""} {
set auth "--cluster-user=$cluster_user --cluster-pwd=$cluster_pwd"
} else {
set auth ""
}
# рисуем форму для кластера
set frm [Add::cluster $tree $host $values]
# меняем текст на метке
$frm configure -text "Редактирование кластера"
set active_cluster $values
# получаем данные по выделенному кластеру
set lst [RunCommand cluster::$values "cluster info --cluster=$active_cluster $host"]
# заполняем поля
FormFieldsDataInsert $frm $lst
# выключаем поля, редактирование которых запрещено
$frm.ent_host configure -state disable
$frm.ent_port configure -state disable
# переназначаем обработчик
.add.frm_btn.btn_ok configure -command {
RunCommand "" "cluster update
--cluster=$active_cluster $auth
--name=[.add.frm.ent_name get]
--expiration-timeout=$expiration_timeout
--lifetime-limit=$lifetime_limit
--max-memory-size=$max_memory_size
--max-memory-time-limit=$max_memory_time_limit
--security-level=$security_level
--session-fault-tolerance-level=$session_fault_tolerance_level
--load-balancing-mode=$load_balancing_mode
--errors-count-threshold=$errors_count_threshold
--kill-problem-processes=$kill_problem_processes
$auth $host"
$tree delete "cluster::$active_cluster"
Run::server $tree $host ""
destroy .add
}
}Ngokusekelwe kwizimvo kwikhowudi, ngokomgaqo, yonke into icacile, ngaphandle kokuba ikhowudi yomphathi weqhosha ikhutshwe kwaye kukho inkqubo yeFormFieldsDataInsert egcwalisa amasimi ngedatha kwaye iqalise ukuguquguquka:
FormFieldsDataInsert
proc FormFieldsDataInsert {frm lst} {
foreach i [lindex $lst 0] {
# получаем список параметров и значений
if [regexp -nocase -all -- {(D+)(s*?|)(:)(s*?|)(.*)} $i match param v2 v3 v4 value] {
# меняем символы
regsub -all -- "-" [string trim $param] "_" entry_name
# заполняем данными
if [winfo exists $frm.ent_$entry_name] {
$frm.ent_$entry_name delete 0 end
$frm.ent_$entry_name insert end [string trim $value """]
}
if [winfo exists $frm.cb_$entry_name] {
global $entry_name
set $entry_name [string trim $value """]
}
# для чекбоксов меняем значения
if [winfo exists $frm.check_$entry_name] {
global $entry_name
if {$value eq "0"} {
set $entry_name no
} elseif {$value eq "1"} {
set $entry_name yes
} else {
set $entry_name $value
}
}
}
}
}
Kule nkqubo, enye inzuzo ye-tcl ingaphezulu - ixabiso lezinye izinto eziguquguqukayo zitshintshwa njengamagama aguquguqukayo. Ezo. ukwenza ngokuzenzekelayo ukuzaliswa kweefom kunye nokuqaliswa kwezinto eziguquguqukayo, amagama amasimi kunye neziguquguqukayo zihambelana nomgca womyalelo wokutshintsha kwe-rac utility kunye namagama eeparamitha zemveliso yomyalelo ngaphandle kokunye - i-dash ithathelwa indawo yi-underscore. Umz ishedyuli-imisebenzi-yala ihambelana nebala ent_scheduled_jobs_deny kunye nokuguquguquka ishedyuli_imisebenzi_yala.
Iifom zokongezwa kunye nokuhlelwa zinokwahluka ekubunjweni kwemimandla, umzekelo, ukusebenza ngesiseko solwazi:
Ukongeza ukhuseleko lolwazi
Ukuhlela ukhuseleko lolwazi
Kwinkqubo yokuhlela Hlela ::i-infobase, imihlaba efunekayo yongezwa kwifom ikhowudi i-voluminous, ngoko andiyivezi apha.
Ngokulinganisa, iinkqubo zokudibanisa, ukuhlela, ukucinywa kunye nezinye izinto ziphunyeziwe.
Kuba ukusebenza kwento esetyenziswayo kuthetha ukuba inani elingenamkhawulo lamaseva, amaqela, iziseko zolwazi, njl.njl., ukufumanisa ukuba yeyiphi na i-cluster yeyiphi iseva okanye inkqubo yokhuseleko lolwazi, iinguqu ezininzi zehlabathi ziye zaziswa, amaxabiso abekwe nganye. ixesha ucofa kwizinto zomthi. Ezo. inkqubo iqhuba ngokuphindaphindiweyo kuzo zonke izinto zomzali kwaye icwangcisa izinto eziguquguqukayo:
SetGlobalVarFromTreeItems
proc SetGlobalVarFromTreeItems {tree id} {
global host server active_cluster infobase
set parent [$tree parent $id]
set values [$tree item $id -values]
set key [lindex [split $id "::"] 0]
switch -- $key {
server {set host $values}
work_server {set server $values}
cluster {set active_cluster $values}
infobase {set infobase $values}
}
if {$parent eq ""} {
return
} else {
SetGlobalVarFromTreeItems $tree $parent
}
}
Iqela le-1C likuvumela ukuba usebenze okanye ngaphandle kogunyaziso. Kukho iindidi ezimbini zabalawuli-umlawuli we-arhente yeqela kunye nomlawuli weqela. Ngokufanelekileyo, ekusebenzeni okuchanekileyo, kwaqaliswa ezinye izinto ezi-4 zehlabathi eziqulathe igama lokungena lomlawuli kunye negama lokugqitha. Ezo. ukuba kukho i-akhawunti yomlawuli kwiqela, incoko yababini iya kuboniswa ukufaka igama lakho lokungena kunye negama lokugqitha, idatha iya kugcinwa kwimemori kwaye ifakwe kumyalelo ngamnye weqela elihambelanayo.
Olu luxanduva lwenkqubo yokusingatha iimpazamo.
ErrorParcing
proc ErrorParcing {err opt} {
global cluster_user cluster_pwd agent_user agent_pwd
switch -regexp -- $err {
"Cluster administrator is not authenticated" {
AuthorisationDialog "Администратор кластера"
.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]
destroy .auth_win
}
#RunCommand $root $par
}
"Central server administrator is not authenticated" {
AuthorisationDialog "Администратор агента кластера"
.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]
destroy .auth_win
}
}
"Администратор кластера не аутентифицирован" {
AuthorisationDialog "Администратор кластера"
.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]
destroy .auth_win
}
#RunCommand $root $par
}
"Администратор центрального сервера не аутентифицирован" {
AuthorisationDialog "Администратор агента кластера"
.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]
destroy .auth_win
}
}
(.+) {
tk_messageBox -type ok -icon error -message "$err"
}
}
}Ezo. kuxhomekeke ekubeni umyalelo ubuyisela ntoni na, ukusabela kuya kuba ngokufanelekileyo.
Okwangoku, malunga neepesenti ze-95 zokusebenza ziphunyeziwe, konke okuseleyo kukuphumeza umsebenzi kunye neeprofayili zokhuseleko kunye nokuvavanya =). Kuko konke. Ndicela uxolo ngebali elishwabeneyo.
Ikhowudi ifumaneka ngokwesiko .
Hlaziya: Ndigqibile ukusebenza ngeprofayile zokhuseleko. Ngoku ukusebenza kuphunyezwe 100%.
Uhlaziyo lwe-2: ukufakwa kwendawo kwisiNgesi kunye nesiRashiya kufakwe, umsebenzi kwi-win7 uvavanyiwe
umthombo: www.habr.com