#!/bin/csh -f
unalias finger
#
# fingers each workstation in a cluster
#

if ($#argv < 1) goto usage

set args=()


foreach cluster ($*)

set num=1

switch($cluster)
case "1-142":
	set cluster="m1-142"
	set top=20
	breaksw
case "2-225":
	set cluster="m2-225"
	set top=12
	breaksw
case "4-035":
	set cluster="m4-035"
	set top=23
	breaksw
case "4-167":
	set cluster="m4-167"
	set top=11
	breaksw
case "11-113":
case "fishbowl":
	set cluster="m11-113"
	set top=14
	breaksw
case "11-115":
	set cluster="m11-115"
	set top=5
	breaksw
case "11-116":
	set cluster="m11-116"
	set top=14
	breaksw
case "11-124":
case "11-124g":
	set cluster="m11-124g"
	set top=6
	breaksw
case "37-312":
	set cluster="m37-312"
	set top=20
	breaksw
case "37-318":
	set cluster="m37-318"
	set top=12
	breaksw
case "66":
case "66-080":
	set cluster="m66-080"
	set top=24
	breaksw
case "w20-vax":
	set num=31
	set top=67
	breaksw
case "w20-rt":
	set cluster="w20-575"
	set top=30
	breaksw
case "w20-pvax":
	set cluster="w20-575"
	set num=88
	set top=108
	breaksw
case "w20":
	set cluster="w20-575"
	set top=108
	breaksw
case "m14s":
        set cluster="m14s-010"
        set top=8
        breaksw
case "6-218":
        set cluster="m6-218m"
        set top=16
        breaksw
case "16-034":
        set cluster="m16-034"
        set top=18
        breaksw
case "nh":
case "next-house":
	set args=($args tarim elrod julius cerebus jaka astoria moonroach)
	goto read_next
case "esg":
        set args=($args tum-tum-tree vorpal-blade frumious-bandersnatch \
                        jabberwock jubjub-bird)
        goto read_next
case "pika":
        set args=($args wrath lust envy avarice sloth pride gluttony)
        goto read_next
case "sipb":
	finger @charon
	set args=($args oliver binkley btc steve portnoy snorkelwacker\
			hodge podge milo yaz cutter)
	goto read_next
case "back-consult":
	set args=($args be-our-guest lumiere cogsworth beauty gaston mrs-potts)
	goto read_next
case "consult":
	set args=($args momoney copilot tailgunner navigator atc dale bombardier)
	goto read_next
case "watch":
case "watchmaker":
	onintr next_watch
	foreach machine (valhalla garfield odie pit heimdall \
			 hal-2000 elric fyunch crash burn smash\
			 gevalt beeblebrox vulcan thor anathema sidney)
		finger @${machine}
	next_watch:
	end
	exit
	goto read_next 
default:
	goto usage
endsw

while ($num <= $top)
	set args=($args $cluster-$num)
	@ num++
end

read_next:

end

onintr next

echo " "
foreach i ($args)
	echo -n $i\:" "
#	echo "`finger @$i.mit.edu`" | head -3 | tail -1 | colrm 30`"
	echo "`finger @$i.mit.edu`"
next:
end
echo " "
goto finish

usage:
echo "Usage: cluster room [room] ..."
echo ""

finish: