diff options
Diffstat (limited to 'rex')
-rwxr-xr-x | rex | 14 |
1 files changed, 11 insertions, 3 deletions
@@ -2,7 +2,7 @@ # Apart from these three lines, it is actually a -*- tcl -*- script \ exec expect "$0" -- "$@" # This is rex - a remote execution utility -# Copyright (C) 2012-2016 Sergey Poznyakoff +# Copyright (C) 2012-2022 Sergey Poznyakoff # # Rex is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -17,7 +17,7 @@ exec expect "$0" -- "$@" # You should have received a copy of the GNU General Public License # along with Rex. If not, see <http://www.gnu.org/licenses/>. -set version "4.0" +set version "4.1" set sysconfdir "/etc/rex" set usrconfdir "$env(HOME)/.rex" set defaultfile "$usrconfdir/default" @@ -1404,7 +1404,7 @@ proc prversion {} { global version puts "rex $version" - puts {Copyright (C) 2012-2016 Sergey Poznyakoff + puts {Copyright (C) 2012-2022 Sergey Poznyakoff License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>. This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law. @@ -3304,12 +3304,18 @@ proc rex_group_select {} { } proc rex_group_pop {} { + global argc global config rex_parse_cmdline \ -usage {rex group pop} \ -docstring {Pop current hostgroup off the stack.} + if {$argc != 0} { + terror "too many arguments" + exit 2 + } + unset -nocomplain config(default,selected) unset -nocomplain config(default,predicate) ::config::pop @@ -3317,6 +3323,8 @@ proc rex_group_pop {} { } proc rex_group_push {} { + global argc + global argv global config rex_parse_cmdline \ |