Добавлены кавычки в Run::acl для параметров содержащих пробелы

This commit is contained in:
Sergey Kalinin 2018-07-03 14:04:54 +03:00
parent d46f94660e
commit db453a537b

View File

@ -1907,9 +1907,9 @@ proc Del::acl {host type name profile_name} {
set agent_auth ""
}
if {$type eq "directory"} {
set item "--alias=$name"
set item "--alias=\"$name\""
} else {
set item "--name=$name"
set item "--name=\"$name\""
}
set answer [tk_messageBox -message "Удалить $type - $name?" \
-icon question -type yesno ]
@ -1942,3 +1942,4 @@ proc Del::app {tree host profile_name} {
proc Del::inet {tree host profile_name} {
Del::acl $host inet [GetWorkTreeItems "name"] $profile_name
}