ref: 8e371128541d03aa5b0dc84ea6c68a760dcefae7
dir: /barrier/
#!/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
tlsclient tcp!$sysname!24800 barrera &
while(){
sleep 1
echo Connecting to $sysname...
netstat | grep 24800 | grep -s Established || continue
echo Ready
exit
}