Commit | Line | Data |
---|---|---|
22368e4c IJ |
1 | #!/bin/sh |
2 | # usage: | |
4afd32f1 | 3 | # .../on-vc.sh VC SCRIPT |
22368e4c IJ |
4 | # must be invoked by full path to relevant directory |
5 | # where | |
4afd32f1 | 6 | # ttyVC is the relevant tty which should have good permissions |
22368e4c IJ |
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 | ||
8630943d | 12 | fail () { echo 2>&1 "$0: $1"; exit 1; } |
22368e4c | 13 | |
4afd32f1 | 14 | test $# = 2 || fail "usage: $0 VC SCRIPT" |
22368e4c | 15 | vc="$1" |
4afd32f1 | 16 | script="$2" |
22368e4c IJ |
17 | |
18 | cd "$(dirname $0)" | |
19 | test -L .tclshrc || fail "no .tclshrc symlink" | |
b0ef02f8 | 20 | test -x "./$script" || fail "script not executable" |
22368e4c | 21 | |
4afd32f1 | 22 | openvt -f -c "$vc" -w -- screen ./"$script" |