2 ################################################################################
5 # Description: A script to execute a command on all test class machines
6 # Author: Andrew@DeFaria.com
7 # Created: Thu May 11 11:08:24 PDT 2000
11 # (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
13 ################################################################################
14 # Set me to command name
18 adm_base=${adm_base:-$HOME/adm}
21 adm_fpath=${adm_fpath:-$adm_base/functions}
27 machines=${machines:-$adm_base/data/machines}
29 if [ "$1" = "-f" ]; then
37 if [ "$1" = "-r" ]; then
42 for test_machine in $(grep -ve ^# $machines | grep :Test: | cut -d: -f1); do
43 # Execute command. Note if no command is given then the effect is to
44 # rlogin to each machine.
45 print "$test_machine:$@"
47 if [ -z "$root" ]; then
48 remsh $test_machine -n "$@"
50 root remsh $test_machine -n "$@"
53 if [ -z "$root" ]; then
56 root remsh $test_machine