clients/HP/bin/wrkservers

   1 #!/bin/ksh
   2 ################################################################################
   3 #
   4 # File:         wrkservers
   5 # RCS:          $Header: wrkservers,v 1.1 98/01/27 22:31:43 defaria Exp $
   6 # Description:  A script to execute a command on all virtual workstation
   7 #               servers.
   8 # Author:       Andrew DeFaria, California Language Labs
   9 # Created:      Wed Mar  5 16:31:13 PST 1997
  10 # Modified:     Fri Jan 16 13:54:53 PST 1998
  11 # Language:     Korn Shell
  12 #
  13 # (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
  14 #
  15 ################################################################################
  16 PATH=/adm/bin:$PATH
  17
  18 if [ "$1" = "-r" ]; then
  19   root=yes
  20   shift
  21 fi
  22
  23 for wrkserver in $(get_info server_names virtualws); do
  24   # Execute command. Note if no command is given then the effect is to
  25   # rlogin to each machine.
  26   print "$wrkserver:$@"
  27   if [ $# -gt 0 ]; then
  28     if [ -z "$root" ]; then
  29       remsh $wrkserver -n "$@"
  30     else
  31       root remsh $wrkserver -n "$@"
  32     fi
  33   else
  34     if [ -z "$root" ]; then
  35       remsh $wrkserver
  36     else
  37       root remsh $wrkserver
  38     fi
  39   fi
  40 done