#!/bin/csh -f

switch ( $argv[1] )

	case accessuser :
		who | gawk '{ printf "%s(%s)\n",$1,$2}'
	breaksw

	case sendmessage :
		set Term_no = `echo $argv[2] | jsed 's/^.*(//' | tr -d ")"`
		echo $argv[3] > /dev/$Term_no
	breaksw

endsw
