mdw@git.distorted.org.uk Git - ircbot/blob - on-vc.sh

   1 #!/bin/sh
   2 # usage:
   3 #    .../on-vc.sh VC SCRIPT
   4 # must be invoked by full path to relevant directory
   5 # where
   6 #    ttyVC is the relevant tty which should have good permissions
   7 #    ./SCRIPT is the startup script (`repeatedly.sh', `startup.sh', etc.)
   8 #      (in the directory whose fullpathname we're invoked with)
   9
  10 set -e
  11
  12 fail () { echo 2>&1 "$0: $1"; exit 1; }
  13
  14 test $# = 2 || fail "usage: $0 VC SCRIPT"
  15 vc="$1"
  16 script="$2"
  17
  18 cd "$(dirname $0)"
  19 test -L .tclshrc || fail "no .tclshrc symlink"
  20 test -x "./$script" || fail "script not executable"
  21
  22 openvt -f -c "$vc" -w -- screen ./"$script"