aboutsummaryrefslogtreecommitdiff
path: root/rex
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org>2022-03-17 14:56:56 +0200
committerSergey Poznyakoff <gray@gnu.org>2022-03-17 14:07:20 +0100
commit473debc4205564641faf55e17d5a3c67691c1681 (patch)
tree8aad412625980454c758bc4a9082db74b226995e /rex
parentb323ea003fe32c1e500caa425706542d0efcbd45 (diff)
downloadrex-master.tar.gz
rex-master.tar.bz2
Version 4.1HEADv4.1master
Document the rex group command.
Diffstat (limited to 'rex')
-rwxr-xr-xrex14
1 files changed, 11 insertions, 3 deletions
diff --git a/rex b/rex
index d8f505d..9d01aa7 100755
--- a/rex
+++ b/rex
@@ -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 \

Return to:

Send suggestions and report system problems to the System administrator.