#! /bin/ksh # Script Name: whosgihosts # Where: in $FEDIR/scripts where FEDIR=/apps/nns_com/fea # # Purpose: shows a menu of FEA dept hosts; inquires on who is on them # # Called by: feamain -> feautils.menu -> hostvu.menu -> whosgihosts.menu # feamain -> feautils.menu -> netvu.menu -> whosgihosts.menu # feamain -> feautils.menu -> office_utils.menu -> whosgihosts.menu # feamain -> feautils.menu -> office_utils.menu -> msg2host and # # Written by: B.Montandon C61 16May95 # Updated by: " C61 03Aug95 for iaw025-iaw069 # Updated by: " C61 06Sep96 for iaw070-iaw115 # Updated by: " C61 08May97 removed tabs, updated depts e40,e83 # get_ipaddress () { #------------------------------------------------------------------------ # This function is used to get the IP address of a specified hostname # ($1) -- and put the name in variable IPADDR. # Usage: get_ipaddress hostname #------------------------------------------------------------------------ IPADDR=`ypcat hosts | grep "$1" | awk '{printf "%s \n", $1 }'` } if test "$FEDIR" = "" then FEDIR=/apps/nns_com/fea fi HOSTNAME=`hostname` NNS_WHO_MSG=" Users and their terminal processes on host " # while true while : do . $FEDIR/scripts/clearnns echo "\ ****************************************************************************** ${HIbold}WhoIsOn -- an NNS department's SGI-IRIX hosts Host: $HOSTNAME HOME Directory: $HOME Current Directory: `pwd` Hosts in Option Dept,Location ** Product-type/Work-Group (contacts) ------ ---------------- --------------------------------------------------${HIreset} 12 - E12, B600-2 ${HIdim}Submarines - Hull (Dan Reed / Rob Spitzer)${HIreset} 14 - E14, B600-1 ${HIdim}Submarines - Machinery (Todd Coates / Doug Scott)${HIreset} 15 - E15, B600-2 ${HIdim}Submarines - Piping (Cliff Carr / Andy Grayson)${HIreset} 16 - E16, B600-1 ${HIdim}Submarines - Acoustics (Richard Shaw / Walt Floyd)${HIreset} 13 - E13, B600-2 ${HIdim}Submarines - Electrical (Don Strouse)${HIreset} 52 - E52, B600-2 ${HIdim}New Products/Surface Ships - Hull(Greg Vassilakos/ Rob Pierce)${HIreset} 54 - E54, B600-1 ${HIdim}New Products/Surface Ships - Mach.(Dan VanMameren)${HIreset} 55 - E55, B600-2 ${HIdim}New Products/Surface Ships - Piping(H.Beckstoffer)${HIreset} 6x - E6x, B160/161 ${HIdim}Carrier (Gary Mueller / Aaron Park)${HIreset} 82 - E82, B86-4 ${HIdim}Reactor Services (Jim Hart / James Lewis)${HIreset} 836 - E83, B600-1 ${HIdim}Advanced Technology (Mike Waters / Jack Gergely)${HIreset} 838 - E83, B800 ${HIdim}Reactor Plant Planning (Jeff O'Beirne / M. Kasper)${HIreset} 86 - E86, B800 ${HIdim}Nuclear (Ben Allen)${HIreset} DC - E58, WashD.C. ${HIdim}Crystal City Office (Chris Joseph / Jim Bongardt)${HIreset} 40I - E40, B600-1 ${HIdim}I-DEAS Administration (Chris Sikes/Steve Talbert)${HIreset} 40V - E40, B600-1, VIVID ${HIdim}VIVID Development (Carl Bunch / Steve Talbert)${HIreset} C61 - C61, B600/B521 ${HIdim}C61 CAD/CAE/CAM System Support (Montandon/Nimitz)${HIreset} C63 - C63, B521-2 ${HIdim}TBS/C63 IRIX System Administration (Diana Prater,...)${HIreset} sgib - Big Client,B521-2 ${HIdim}Supported by C63 (D.Prater,T.Jones, ...)${HIreset} sgia - Big Server,B521-2 ${HIdim}Supported by C63 (D.Prater,T.Jones, ...)${HIreset} X - EXIT ${HIdim}($0)${HIreset} ** Call an I-DEAS/FEA Admin (0-2301) to add/correct hosts. NOTE: You can use Ctl-Break to break out if host is turned off. ${HIbold}OPTION ==>${HIreset} \c" read feopt1 feopt2 feopt3 . $FEDIR/scripts/mak_rhosts case ${feopt1} in # ################################################################ 12) # show E12, B600-2 Submarines -- Hull # set -x get_ipaddress iaw005 echo "$NNS_WHO_MSG iaw005 ( $IPADDR )" rsh iaw005 who get_ipaddress iaw007 echo "$NNS_WHO_MSG iaw007 ( $IPADDR )" rsh iaw007 who get_ipaddress iaw008 echo "$NNS_WHO_MSG iaw008 ( $IPADDR )" rsh iaw008 who get_ipaddress iaw024 echo "$NNS_WHO_MSG iaw024 ( $IPADDR )" rsh iaw024 who get_ipaddress iaw033 echo "$NNS_WHO_MSG iaw033 ( $IPADDR )" rsh iaw033 who get_ipaddress iaw034 echo "$NNS_WHO_MSG iaw034 ( $IPADDR )" rsh iaw034 who get_ipaddress iaw104 echo "$NNS_WHO_MSG iaw104 ( $IPADDR )" rsh iaw104 who get_ipaddress iaw106 echo "$NNS_WHO_MSG iaw106 ( $IPADDR )" rsh iaw106 who get_ipaddress iaw107 echo "$NNS_WHO_MSG iaw107 ( $IPADDR )" rsh iaw107 who get_ipaddress iaw108 echo "$NNS_WHO_MSG iaw108 ( $IPADDR )" rsh iaw108 who get_ipaddress iaw112 echo "$NNS_WHO_MSG iaw112 ( $IPADDR )" rsh iaw112 who get_ipaddress iaw116 echo "$NNS_WHO_MSG iaw116 ( $IPADDR )" rsh iaw116 who get_ipaddress iaw118 echo "$NNS_WHO_MSG iaw118 ( $IPADDR )" rsh iaw118 who # set - echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ 14) # show E14, B600-1 Submarines -- Machinery get_ipaddress iaw011 echo "$NNS_WHO_MSG iaw011 ( $IPADDR )" rsh iaw011 who get_ipaddress iaw012 echo "$NNS_WHO_MSG iaw012 ( $IPADDR )" rsh iaw012 who get_ipaddress iaw019 echo "$NNS_WHO_MSG iaw019 ( $IPADDR )" rsh iaw019 who get_ipaddress iaw021 echo "$NNS_WHO_MSG iaw021 ( $IPADDR )" rsh iaw021 who get_ipaddress iaw038 echo "$NNS_WHO_MSG iaw038 ( $IPADDR )" rsh iaw038 who get_ipaddress iaw039 echo "$NNS_WHO_MSG iaw039 ( $IPADDR )" rsh iaw039 who get_ipaddress iaw040 echo "$NNS_WHO_MSG iaw040 ( $IPADDR )" rsh iaw040 who # 41,42,43,44,45 on loan to E14 from E54 get_ipaddress iaw041 echo "$NNS_WHO_MSG iaw041 ( $IPADDR )" rsh iaw041 who get_ipaddress iaw042 echo "$NNS_WHO_MSG iaw042 ( $IPADDR )" rsh iaw042 who get_ipaddress iaw043 echo "$NNS_WHO_MSG iaw043 ( $IPADDR )" rsh iaw043 who get_ipaddress iaw044 echo "$NNS_WHO_MSG iaw044 ( $IPADDR )" rsh iaw044 who get_ipaddress iaw045 echo "$NNS_WHO_MSG iaw045 ( $IPADDR )" rsh iaw045 who get_ipaddress iaw113 echo "$NNS_WHO_MSG iaw113 ( $IPADDR ) - Jon Brunke" rsh iaw113 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ 15) # show E15, B600-2 Submarines -- Piping get_ipaddress iaw036 echo "$NNS_WHO_MSG iaw036 ( $IPADDR )" rsh iaw036 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ 16) # show E16, B600-1 Submarines -- Acoustics get_ipaddress iaw010 echo "$NNS_WHO_MSG iaw010 ( $IPADDR )" rsh iaw010 who get_ipaddress iaw037 echo "$NNS_WHO_MSG iaw037 ( $IPADDR )" rsh iaw037 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ 13) # show E13, B600-2 Submarines -- Electrical get_ipaddress iaw035 echo "$NNS_WHO_MSG iaw035 ( $IPADDR )" rsh iaw035 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ 52) # show E52, B600-2 New Products/Surface Ships -- Hull # Time-outs on 9Jan96 on: iaw050,iaw056,iaw058,iaw080 get_ipaddress iaw006 echo "$NNS_WHO_MSG iaw006 ( $IPADDR )" rsh iaw006 who get_ipaddress iaw016 echo "$NNS_WHO_MSG iaw016 ( $IPADDR )" rsh iaw016 who get_ipaddress iaw031 echo "$NNS_WHO_MSG iaw031 ( $IPADDR )" rsh iaw031 who get_ipaddress iaw049 echo "$NNS_WHO_MSG iaw049 ( $IPADDR )" rsh iaw049 who get_ipaddress iaw050 echo "$NNS_WHO_MSG iaw050 ( $IPADDR )" rsh iaw050 who get_ipaddress iaw051 echo "$NNS_WHO_MSG iaw051 ( $IPADDR )" rsh iaw051 who get_ipaddress iaw052 echo "$NNS_WHO_MSG iaw052 ( $IPADDR )" rsh iaw052 who get_ipaddress iaw053 echo "$NNS_WHO_MSG iaw053 ( $IPADDR )" rsh iaw053 who get_ipaddress iaw054 echo "$NNS_WHO_MSG iaw054 ( $IPADDR )" rsh iaw054 who get_ipaddress iaw055 echo "$NNS_WHO_MSG iaw055 ( $IPADDR )" rsh iaw055 who # get_ipaddress iaw056 # echo "$NNS_WHO_MSG iaw056 ( $IPADDR ) (skipping; not connected?)" # rsh iaw056 who get_ipaddress iaw057 echo "$NNS_WHO_MSG iaw057 ( $IPADDR )" rsh iaw057 who # get_ipaddress iaw058 # echo "$NNS_WHO_MSG iaw058 ( $IPADDR ) (skipping; not connected?)" # rsh iaw058 who get_ipaddress iaw073 echo "$NNS_WHO_MSG iaw073 ( $IPADDR )" rsh iaw073 who get_ipaddress iaw074 echo "$NNS_WHO_MSG iaw074 ( $IPADDR )" rsh iaw074 who get_ipaddress iaw075 echo "$NNS_WHO_MSG iaw075 ( $IPADDR )" rsh iaw075 who get_ipaddress iaw076 echo "$NNS_WHO_MSG iaw076 ( $IPADDR )" rsh iaw076 who get_ipaddress iaw077 echo "$NNS_WHO_MSG iaw077 ( $IPADDR )" rsh iaw077 who get_ipaddress iaw078 echo "$NNS_WHO_MSG iaw078 ( $IPADDR )" rsh iaw078 who get_ipaddress iaw079 echo "$NNS_WHO_MSG iaw079 ( $IPADDR )" rsh iaw079 who get_ipaddress iaw080 echo "$NNS_WHO_MSG iaw080 ( $IPADDR )" rsh iaw080 who get_ipaddress iaw081 echo "$NNS_WHO_MSG iaw081 ( $IPADDR )" rsh iaw081 who get_ipaddress iaw082 echo "$NNS_WHO_MSG iaw082 ( $IPADDR )" rsh iaw082 who get_ipaddress iaw092 echo "$NNS_WHO_MSG iaw092 ( $IPADDR )" rsh iaw092 who get_ipaddress iaw093 echo "$NNS_WHO_MSG iaw093 ( $IPADDR )" rsh iaw093 who get_ipaddress iaw094 echo "$NNS_WHO_MSG iaw094 ( $IPADDR )" rsh iaw094 who get_ipaddress iaw095 echo "$NNS_WHO_MSG iaw095 ( $IPADDR )" rsh iaw095 who get_ipaddress iaw096 echo "$NNS_WHO_MSG iaw096 ( $IPADDR )" rsh iaw096 who get_ipaddress iaw097 echo "$NNS_WHO_MSG iaw097 ( $IPADDR )" rsh iaw097 who get_ipaddress iaw098 echo "$NNS_WHO_MSG iaw098 ( $IPADDR )" rsh iaw098 who get_ipaddress iaw099 echo "$NNS_WHO_MSG iaw099 ( $IPADDR )" rsh iaw099 who get_ipaddress iaw100 echo "$NNS_WHO_MSG iaw100 ( $IPADDR )" rsh iaw100 who get_ipaddress iaw101 echo "$NNS_WHO_MSG iaw101 ( $IPADDR )" rsh iaw101 who get_ipaddress iaw102 echo "$NNS_WHO_MSG iaw102 ( $IPADDR )" rsh iaw102 who get_ipaddress iaw103 echo "$NNS_WHO_MSG iaw103 ( $IPADDR )" rsh iaw103 who get_ipaddress iaw110 echo "$NNS_WHO_MSG iaw110 ( $IPADDR )" rsh iaw110 who get_ipaddress iaw114 echo "$NNS_WHO_MSG iaw114 ( $IPADDR )" rsh iaw114 who get_ipaddress iaw115 echo "$NNS_WHO_MSG iaw115 ( $IPADDR )" rsh iaw115 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ 55) # show E55, B600-2 New Products/Surface Ships -- Piping get_ipaddress iaw031 echo "$NNS_WHO_MSG iaw031 ( $IPADDR )" rsh iaw031 who get_ipaddress iaw032 echo "$NNS_WHO_MSG iaw032 ( $IPADDR )" rsh iaw032 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ 54) # show E54, B600-1 New Products/Surface Ships -- Machinery get_ipaddress iaw046 echo "$NNS_WHO_MSG iaw046 ( $IPADDR )" rsh iaw046 who get_ipaddress iaw047 echo "$NNS_WHO_MSG iaw047 ( $IPADDR )" rsh iaw047 who get_ipaddress iaw048 echo "$NNS_WHO_MSG iaw048 ( $IPADDR )" rsh iaw048 who get_ipaddress iaw111 echo "$NNS_WHO_MSG iaw111 ( $IPADDR )" rsh iaw111 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ 6x |6X) # show E62/64, B160/161 Carrier get_ipaddress iaw013 echo "$NNS_WHO_MSG iaw013 ( $IPADDR ) (E64 - Machinery)" rsh iaw013 who get_ipaddress iaw014 echo "$NNS_WHO_MSG iaw014 ( $IPADDR ) (E62 - Hull)" rsh iaw014 who get_ipaddress iaw015 echo "$NNS_WHO_MSG iaw015 ( $IPADDR ) (E62 - Hull)" rsh iaw015 who get_ipaddress iaw023 echo "$NNS_WHO_MSG iaw023 ( $IPADDR ) (E64 - Machinery)" rsh iaw023 who get_ipaddress iaw059 echo "$NNS_WHO_MSG iaw059 ( $IPADDR ) (E65 - Piping)" rsh iaw059 who get_ipaddress iaw060 echo "$NNS_WHO_MSG iaw060 ( $IPADDR ) (E64 - Machinery)" rsh iaw060 who get_ipaddress iaw061 echo "$NNS_WHO_MSG iaw061 ( $IPADDR ) (E62 - Hull)" rsh iaw061 who # echo "$NNS_WHO_MSG iaw062 ( $IPADDR ) (E64 - Machinery) (not connected?)" # rsh iaw062 who get_ipaddress iaw063 echo "$NNS_WHO_MSG iaw063 ( $IPADDR ) (E64 - Machinery)" rsh iaw063 who get_ipaddress iaw064 echo "$NNS_WHO_MSG iaw064 ( $IPADDR ) (E63 - Electrical)" rsh iaw064 who get_ipaddress iaw084 echo "$NNS_WHO_MSG iaw084 ( $IPADDR ) (E6x - .........)" rsh iaw084 who get_ipaddress iaw085 echo "$NNS_WHO_MSG iaw085 ( $IPADDR ) (E6x - .........)" rsh iaw085 who get_ipaddress iaw090 echo "$NNS_WHO_MSG iaw090 ( $IPADDR ) (E6x - .........)" rsh iaw090 who get_ipaddress iaw091 echo "$NNS_WHO_MSG iaw091 ( $IPADDR ) (E6x - .........)" rsh iaw091 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ 82) # show E82, B86-4 Reactor Services get_ipaddress iaw020 echo "$NNS_WHO_MSG iaw020 ( $IPADDR )" rsh iaw020 who get_ipaddress iaw065 echo "$NNS_WHO_MSG iaw065 ( $IPADDR )" rsh iaw065 who get_ipaddress iaw066 echo "$NNS_WHO_MSG iaw066 ( $IPADDR )" rsh iaw066 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ 836) # show E83, B600-1 Nuclear stuff get_ipaddress iaw003 echo "$NNS_WHO_MSG iaw003 ( $IPADDR )" rsh iaw003 who get_ipaddress iaw004 echo "$NNS_WHO_MSG iaw004 ( $IPADDR )" rsh iaw004 who get_ipaddress iaw109 echo "$NNS_WHO_MSG iaw109 ( $IPADDR )" rsh iaw109 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ 838) # show E83, B800 Reactor Plant Planning Yard get_ipaddress iaw009 echo "$NNS_WHO_MSG iaw009 ( $IPADDR )" rsh iaw009 who get_ipaddress iaw017 echo "$NNS_WHO_MSG iaw017 ( $IPADDR )" rsh iaw017 who get_ipaddress iaw022 echo "$NNS_WHO_MSG iaw022 ( $IPADDR )" rsh iaw022 who get_ipaddress iaw067 echo "$NNS_WHO_MSG iaw067 ( $IPADDR )" rsh iaw067 who get_ipaddress iaw068 echo "$NNS_WHO_MSG iaw068 ( $IPADDR )" rsh iaw068 who get_ipaddress iaw105 echo "$NNS_WHO_MSG iaw105 ( $IPADDR )" rsh iaw105 who # get_ipaddress iaw069 # echo "$NNS_WHO_MSG iaw069 ( $IPADDR ) ?not E8x?not connected?" # rsh iaw069 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ 86) # show E86, B800 Nuclear , Ben Allen? get_ipaddress iaw018 echo "$NNS_WHO_MSG iaw018 ( $IPADDR )" rsh iaw018 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ dc | DC) # show Wash D.C. office get_ipaddress iaw001 echo "$NNS_WHO_MSG iaw001 ( $IPADDR )" rsh iaw001 who get_ipaddress iaw026 echo "$NNS_WHO_MSG iaw026 ( $IPADDR )" rsh iaw026 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ 40i | 40I) # show E40, B600-1 Engineering Administration get_ipaddress iaw025 echo "$NNS_WHO_MSG iaw025 ( $IPADDR ) (Chris Sikes, E40)" rsh iaw025 who get_ipaddress iaw070 echo "$NNS_WHO_MSG iaw070 ( $IPADDR ) (Rob Bice, E40)" rsh iaw070 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ 40v | 40V) # show E40, B600-1, VIVID get_ipaddress iaw027 echo "$NNS_WHO_MSG iaw027 ( $IPADDR ) (Gary Orr, E40)" rsh iaw027 who get_ipaddress iaw071 echo "$NNS_WHO_MSG iaw071 ( $IPADDR ) (Joe Baumer, E40)" rsh iaw071 who get_ipaddress iaw072 echo "$NNS_WHO_MSG iaw072 ( $IPADDR ) (GRASP, E40)" rsh iaw072 who get_ipaddress iaw088 echo "$NNS_WHO_MSG iaw088 ( $IPADDR ) (GRASP?, E40)" rsh iaw088 who get_ipaddress iaw083 echo "$NNS_WHO_MSG iaw083 ( $IPADDR ) (Pete Lazo, E40)" rsh iaw083 who # echo "$NNS_WHO_MSG donald.vivid.nns.com" # rsh donald.vivid.nns.com who # echo "$NNS_WHO_MSG zazu.vivid.nns.com" # rsh zazu.vivid.nns.com who # echo "$NNS_WHO_MSG pan.vivid.nns.com" # rsh pan.vivid.nns.com who # echo "$NNS_WHO_MSG chance.vivid.nns.com" # rsh chance.vivid.nns.com who # echo "$NNS_WHO_MSG owl.vivid.nns.com" # rsh owl.vivid.nns.com who # echo "$NNS_WHO_MSG sneezy.vivid.nns.com" # rsh sneezy.vivid.nns.com who # echo "$NNS_WHO_MSG mowgli.vivid.nns.com" # rsh mowgli.vivid.nns.com who # echo "$NNS_WHO_MSG lumiere.vivid.nns.com" # rsh lumiere.vivid.nns.com who # echo "$NNS_WHO_MSG schenzi.vivid.nns.com" # rsh schenzi.vivid.nns.com who # echo "$NNS_WHO_MSG sleepy.vivid.nns.com" # rsh sleepy.vivid.nns.com who # echo "$NNS_WHO_MSG simba.vivid.nns.com" # rsh simba.vivid.nns.com who # echo "$NNS_WHO_MSG duchess.vivid.nns.com" # rsh duchess.vivid.nns.com who # echo "$NNS_WHO_MSG program.vivid.nns.com" # rsh program.vivid.nns.com who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ c61 | C61) # show C61, B600-1/B521-2 get_ipaddress iaw030 echo "$NNS_WHO_MSG iaw030 ( $IPADDR ) (B.Montandon B600-1)" rsh iaw030 who get_ipaddress iaw002 echo "$NNS_WHO_MSG iaw002 ( $IPADDR ) (Terminal Room B521-2)" rsh iaw002 who get_ipaddress iaw089 echo "$NNS_WHO_MSG iaw089 ( $IPADDR ) (Tom Nimitz B521-2)" rsh iaw089 who get_ipaddress ed echo "$NNS_WHO_MSG iaw130 ( $IPADDR ) (Mike Runnals B600-1)" rsh iaw130 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ c63 | C63) # show C63, B521-2, get_ipaddress iaw000 echo "$NNS_WHO_MSG iaw000 ( $IPADDR ) D. Prater" rsh iaw000 who get_ipaddress iaw028 echo "$NNS_WHO_MSG iaw028 ( $IPADDR ) D. Street" rsh iaw028 who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ sgib | SGIB) # show sgib, B521-2, get_ipaddress sgib echo "$NNS_WHO_MSG sgib ( $IPADDR )" rsh sgib who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ sgia | SGIA) # show sgia, B521-2, get_ipaddress sgia echo "$NNS_WHO_MSG sgia ( $IPADDR )" rsh sgia who echo " *** Press Enter to continue." read NNS_JUNK ;; # ################################################################ x | X) # Exit the NNS Editors-Shells-Vars menu # . $FEDIR/scripts/mv_rhosts # exit break ;; z | Z) # Exit to the main FEA/MCADD menu # . $FEDIR/scripts/mv_rhosts exit ;; # ################################################################ *) # Show message for invalid entry. echo " Invalid option: $feopt1 *** Press Enter to continue." read NNS_JUNK ;; esac done