#!/bin/rc

localport=27035
while (~ $1 -*){
	switch($1){
	case -p
		localport=$2
		shift
	}
	shift
}
remote=$1

aux/listen1 -t tcp!127.1!^$localport /bin/tlsclient -a tcp!$remote!27034 &
hub -b $remote.prog
mount /srv/$remote.prog /n/p
echo 'while(sleep 300){ventiprog -f /n/9fat/$remote.info &}' >>/n/p/io0
hub -b $remote.sco
mount /srv/$remote.sco /n/s
echo 'rimport -p $remote /srv /n/$remote' >>/n/s/io0
echo 'mount /n/$remote/fatsrv /n/remote9fat' >>/n/s/io0
echo 'while(sleep 601){scorecopy $remote &}' >>/n/s/io0