harvey/rc/bin/C

#!/bin/rc

rfork n
oflag=()
while(~ $1 -*)
	switch($1){
	case -r
		shift
		opt=''
	case -O -o
		oflag=-O
		shift
	case *
		opt=-r
		shift
	}

switch($1){
case erika
	exec C office1
	exit
}

# look for server in /lib/ndb
server=`{ndb/query sys $1 console}
switch($server){
case ''
	echo C: unknown console server for $1
	exit 1
}

# can't cpu to old servers any more
switch($server){
case dinar bones
	ssh $server C $1
	exit 0
}

if(! test -e /mnt/consoles/$1){
	switch($sysname){
	case $server
		mount /srv/consoles /mnt/consoles
	case *
		import $oflag $server /mnt/consoles
	}
}

if(! test -e /mnt/consoles/$1 && test -e /srv/consoles)
	mount /srv/consoles /mnt/consoles

if(! test -e /mnt/consoles/$1){
	echo console not found
	exit 'console not found'
}

con -l $opt /mnt/consoles/$1