hlfw.ca

rc

ref: 08a0d081614fed42903406b7731fe36168cb3892
dir: /barrier/

View raw version 
#!/bin/rc

fn sysnames {
	for(sys in `{ndb/query -a authdom 9front sys}){
		netscan $sys 24800 | grep -s open && echo $sys
	}
}

sysname=`{sysnames | fm -p}
if(~ $#sysname 0)
	exit
echo Connecting to $sysname
tlsclient tcp!$sysname!24800 barrera &

while(){
	sleep 1
	netstat | grep 24800 | grep -s Established || continue
	echo Ready
	exit
}