138 lines
2.7 KiB
Plaintext
138 lines
2.7 KiB
Plaintext
|
#!/bin/rc
|
||
|
|
rfork e
|
||
|
|
fn usage {
|
||
|
|
>[2=1] echo 'usage:' $0 '[-mst]'
|
||
|
|
exit usage
|
||
|
|
}
|
||
|
|
fn quiet {
|
||
|
|
if(~ $quiet 'no')
|
||
|
|
>[2=1] echo $*
|
||
|
|
}
|
||
|
|
fn fail {
|
||
|
|
quiet fail: $*
|
||
|
|
exit 'fail: '$*
|
||
|
|
}
|
||
|
|
|
||
|
|
registry='tcp!registry.9gridchan.org!6675'
|
||
|
|
reconnect='no'
|
||
|
|
mountonly='no'
|
||
|
|
scriptonly='no'
|
||
|
|
tls='no'
|
||
|
|
quiet='no'
|
||
|
|
while(~ $1 -* && ! ~ $1 --){
|
||
|
|
switch($1){
|
||
|
|
case -m
|
||
|
|
mountonly='yes'
|
||
|
|
case -s
|
||
|
|
scriptonly='yes'
|
||
|
|
case -t
|
||
|
|
tls='yes'
|
||
|
|
registry='tcp!registry.9gridchan.org!6675'
|
||
|
|
case -q
|
||
|
|
quiet='yes'
|
||
|
|
reconnect='yes'
|
||
|
|
case *
|
||
|
|
usage
|
||
|
|
}
|
||
|
|
shift
|
||
|
|
}
|
||
|
|
if(! ~ $#* 0)
|
||
|
|
usage
|
||
|
|
|
||
|
|
services=( \
|
||
|
|
gridregistry pubregistry \
|
||
|
|
gridchat gridplumber \
|
||
|
|
gridram griddisk \
|
||
|
|
gridroot gridwiki)
|
||
|
|
for(s in $services)
|
||
|
|
if(test -w /srv/$s)
|
||
|
|
reconnect='yes'
|
||
|
|
if(~ $reconnect 'yes'){
|
||
|
|
if(~ $quiet 'no'){
|
||
|
|
echo -n 'old grid connections found in /srv, remove? [y/n]: '
|
||
|
|
reconnect=`{read}
|
||
|
|
}
|
||
|
|
if(~ $reconnect y*)
|
||
|
|
rm -f /srv/^$services
|
||
|
|
}
|
||
|
|
|
||
|
|
if(~ $mountonly 'no')
|
||
|
|
rfork n
|
||
|
|
if(~ $tls 'no')
|
||
|
|
srv $registry gridregistry /mnt/registry || fail registry
|
||
|
|
if not{
|
||
|
|
if(! test -w /mnt/factotum/ctl)
|
||
|
|
auth/factotum
|
||
|
|
>/mnt/factotum/ctl echo 'key proto=dp9ik user=glenda dom=grid !password=9gridchan' || fail factotum
|
||
|
|
srvtls $registry gridregistry /mnt/registry || fail registry
|
||
|
|
}
|
||
|
|
|
||
|
|
>/tmp/gridmount echo '#!/bin/rc'
|
||
|
|
>>/tmp/gridmount </mnt/registry/index awk -v 'tls='$tls '
|
||
|
|
/service tlssrv/ && tls == "yes" {
|
||
|
|
print "srvtls -c", $1, $3, $5}
|
||
|
|
/service \/bin\/exportfs/ && tls == "no" {
|
||
|
|
print "srv -c", $1, $3, $5}
|
||
|
|
'
|
||
|
|
chmod +x /tmp/gridmount
|
||
|
|
|
||
|
|
if(~ $scriptonly 'yes'){
|
||
|
|
quiet 'mount script saved in /tmp/gridmount'
|
||
|
|
cat /tmp/gridmount
|
||
|
|
exit
|
||
|
|
}
|
||
|
|
if(~ $mountonly 'yes'){
|
||
|
|
/tmp/gridmount || fail 'could not mount'
|
||
|
|
quiet 'grid services mounted'
|
||
|
|
exit
|
||
|
|
}
|
||
|
|
|
||
|
|
>/tmp/chatcat cat <<'...'
|
||
|
|
#!/bin/rc
|
||
|
|
label chat
|
||
|
|
echo 'README:'
|
||
|
|
echo ' This is chatcat(1).'
|
||
|
|
echo ' Type a (multi-line) message ending with a newline'
|
||
|
|
echo ' and press control-d (EOT) to send.'
|
||
|
|
echo
|
||
|
|
echo -n 'nick? '
|
||
|
|
nick=`{read}
|
||
|
|
if(~ $#nick 0)
|
||
|
|
nick='unknown gridster'
|
||
|
|
echo JOIN $nick to chat >>/n/chat/chat
|
||
|
|
cat /n/chat/chat &
|
||
|
|
while() cat | sed '1s/^/'$nick' → /' >>/n/chat/chat
|
||
|
|
...
|
||
|
|
chmod +x /tmp/chatcat
|
||
|
|
|
||
|
|
>/tmp/gridrio cat <<'...'
|
||
|
|
#!/bin/rc
|
||
|
|
if(test -x /bin/chat)
|
||
|
|
window -r 0 0 700 400 -scroll chat
|
||
|
|
if not
|
||
|
|
window -r 0 0 700 400 -scroll /tmp/chatcat
|
||
|
|
window -r 700 0 1300 400 acme -c1 /n/griddisk /n/griddisk/gridmsg
|
||
|
|
window -r 0 400 700 750 mothra -a http://wiki.9gridchan.org/message_board
|
||
|
|
window -r 700 400 1300 750 page /n/gridroot/lib/musicant.png
|
||
|
|
...
|
||
|
|
chmod +x /tmp/gridrio
|
||
|
|
|
||
|
|
>/tmp/gridscript cat <<'...'
|
||
|
|
#!/bin/rc
|
||
|
|
/tmp/gridmount
|
||
|
|
fn cpl {
|
||
|
|
cp $1 /n/griddisk/cpl
|
||
|
|
ptarg=`{basename $1}
|
||
|
|
plumb http://wiki.9gridchan.org/incoming/cpl/$ptarg
|
||
|
|
}
|
||
|
|
if(! test -e /mnt/web/ctl)
|
||
|
|
webfs
|
||
|
|
rio=(rio)
|
||
|
|
if(test -x /bin/grio)
|
||
|
|
rio=(grio -c 0x99009900)
|
||
|
|
exec $rio -i /tmp/gridrio
|
||
|
|
...
|
||
|
|
chmod +x /tmp/gridscript
|
||
|
|
|
||
|
|
window -r 0 0 1350 750 /tmp/gridscript
|