#!/bin/csh -f

# find_printer - csh script
# by Richard J. Barbalace <rjbarbal@athena.mit.edu>
#
# Script to select nearest printer.

# Set the name of the current host in lower-case
set host = `hostname | tr A-Z a-z`

# Determine location of current host
switch ($host)

# Dialup
case 'e40-008*':
exit

# Public Clusters

case 'm1-142*':
set location = '(Building 1) (x3-2019)'
echo 'plato'
exit

case 'm2-225*':
echo 'sanda' # in 4-167
exit

case 'm4-035*': 
echo 'medea' # or pandora
exit

case 'm4-167*':
echo 'sanda'
exit

case 'barker-5*':
echo 'barker' # on 6th floor
exit

case 'barker-6*':
echo 'barker'
exit

# m11-112 no longer exists

case 'm11-113*':
echo 'bias' # in 11-116
exit

case 'm11-116*':
echo 'bias'
exit

case 'm14s-010*':
echo 'hayden'
exit

case 'm16-034*':
echo 'helios'
exit

case 'm37-312*':
case 'm37-318*':
case 'm37-332*':
echo 'electra' # or varan, in 37-324
exit

case 'm66-080*':
echo 'homer' # or pindar
exit

case 'w20-575*':
   # Terminals are divided somewhat evenly and arbitrarily among
   # the printers; usually the closest printer is specified.
   switch ($host)
   case 'w20-575-[1-30]':
   echo 'ajax'			# for southern third of main room
   case 'w20-575-[31-42]':
   case 'w20-575-[65-79]':
   echo 'ceres'			# for northern third of main room
   case 'w20-575-[43-64]':
   case 'w20-575-[80-87]':
   echo 'python'		# for middle third of main room
#   case 'w20-575-8[89]':
#   case 'w20-575-9?':
#   case 'w20-575-10[0-5]':
   case 'w20-575-[88-105]':
   echo 'fujin'			# w20-east-4, bright room
#   case 'w20-575-10[6-9]':
#   case 'w20-575-11[0-3]':
   case 'w20-575-[106-113]':
   echo 'ryujin'		# w20-east-1, west end of dark room
#   case 'w20-575-11[4-9]':
#   case 'w20-575-12[01]':
   case 'w20-575-[114-121]':
   echo 'susano'		# w20-east-3, middle of dark room
#   case 'w20-575-12[2-9]':
   case 'w20-575-[122-129]':
   echo 'amaterasu'		# w20-east-2, east end of dark room
   endsw
exit

case 'test-*':
echo 'amaterasu' # w20-east-2
exit

case 'e51-007*':
echo 'picus'
exit

# Non-public Clusters

# Bio/Chem Macintosh cluster
case 'm6-218m*':
exit

# Aero/Astro cluster
case 'm33-222*':
echo 'daedalus'
exit

# 6.001 & 6.004 Lab
case 'm34-501*':
echo 'scheme'
exit

# EECS cluster
case 'm38-344*':
echo 'norman-spinrad' # jerome-bixby, brian-aldiss, clifford-d-simak, dean-ing
exit

# 6.111 & 6.270 Lab
case 'pal[9-18]':
echo 'pal-ps'
case 'pal[1-8]':
case 'pal[19-28]':
echo 'pal-ps' # pal-ln03
exit

# SIPB Office
case 'portnoy':
case 'podge':
case 'bill-the-cat':
case 'hodge':
case 'oliver':
case 'cutter-john':
case 'binkley':
case 'deathtongue':
case 'milo':
case 'steve-dallas':
case 'yaz-pistachio':
echo 'lw-sipb'
exit

# Consultants Office
case 'm11-115*':
case 'money':
case 'fountain':
case 'copilot':
case 'tailgunner':
case 'air-traffic-controller':
case 'navigator':
exit

# EOS
case 'eos*':
case 'm14-0637':
echo 'neos'
exit

# Electronic Classroom
case 'm1-115*':
echo 'virus' # 'manda'
exit

# HVRL
case 'hvrl*':
exit

# Ocean Engineering Cluster
case 'm7-321*':
case 'cutty-sark':
case 'australia':
case 'courageous':
case 'kookaburra':
case 'intrepid':
case 'bluenose':
case 'columbia':
case 'stars-and-stripes':
case 'kiwi-magic':
case 'freedom':
exit

# EAPS Cluster
case 'm54-419*':
case 'jupiter':
case 'saturn':
case 'uranus':
case 'neptune':
case 'pluto':
case 'sol':
exit

# Other machines

case 'e40-342*':
case 'heimdall':
case 'hal-2000':
case 'elric':
case 'crash':
case 'burn':
case 'smash':
case 'tabetha':
exit

case 'odie':
exit

case 'wombat':
case 'mycroft':
exit

case 'charon':
exit

endsw

unset host