moved crap around
This commit is contained in:
glenda
parent
f6809d510b
commit
3eb1bbbf7f
|
|
@ -0,0 +1,104 @@
|
|||
#!/bin/rc
|
||||
# minimal chat client for hubfs: chat [-n NICK] [-j CHANNEL] [chatsrv]
|
||||
|
||||
fn helpmessage{
|
||||
echo -------------------------
|
||||
echo '/q to quit | /c to list channels | /h for help message'
|
||||
echo '/n NICK to change nick | /j CHANNEL to change channels'
|
||||
echo -------------------------
|
||||
}
|
||||
|
||||
rfork enf
|
||||
channel=chat
|
||||
chatsrv=chat
|
||||
while (~ $1 -*){
|
||||
switch($1){
|
||||
case -n
|
||||
name = $2
|
||||
shift
|
||||
shift
|
||||
case -j
|
||||
channel = $2
|
||||
shift
|
||||
shift
|
||||
case *
|
||||
echo bad flag $1 '-n NICK -j CHANNEL'
|
||||
shift
|
||||
}
|
||||
}
|
||||
if(! ~ $1 '')
|
||||
chatsrv=$1
|
||||
if(! test -e /n/$chatsrv/chat)
|
||||
mount /srv/$chatsrv /n/$chatsrv
|
||||
if(! test -e /n/$chatsrv/chat){
|
||||
echo 'no chat service named $chatsrv found' >[1=2]
|
||||
exit no.chat
|
||||
}
|
||||
|
||||
echo ' -- hubchat 0.2 --'
|
||||
helpmessage
|
||||
sleep 2
|
||||
while(~ $#name 0){
|
||||
echo 'please enter a chat name:'
|
||||
name=`{read}
|
||||
}
|
||||
echo JOIN $name to $channel >>/n/$chatsrv/$channel
|
||||
cat /n/$chatsrv/$channel &
|
||||
catkill=$apid
|
||||
|
||||
while(talk=`{read}){
|
||||
if(~ $talk /*){
|
||||
switch($talk){
|
||||
case /q*
|
||||
echo PART $name from $channel >>/n/$chatsrv/$channel
|
||||
@{echo kill>/proc/$catkill/ctl}
|
||||
exit
|
||||
case /n*
|
||||
if(! ~ $talk(2) ''){
|
||||
echo nick $name ' -> ' $talk(2) >>/n/$chatsrv/$channel
|
||||
name=$talk(2)
|
||||
}
|
||||
if not
|
||||
echo 'you need to provide a nick for /n NICK'
|
||||
command=yes
|
||||
case /j*
|
||||
if (~ $talk(2) '')
|
||||
echo must specify a channel to join
|
||||
if not if(test -e /n/chat/$talk(2)){
|
||||
echo PART $name from $channel >>/n/$chatsrv/$channel
|
||||
@{echo kill>/proc/$catkill/ctl}
|
||||
channel=$talk(2)
|
||||
cat /n/chat/$channel &
|
||||
catkill=$apid
|
||||
echo JOIN $name to $channel >>/n/$chatsrv/$channel
|
||||
}
|
||||
if not
|
||||
echo channel does not exist
|
||||
command=yes
|
||||
case /h*
|
||||
helpmessage
|
||||
echo currently in $channel
|
||||
echo
|
||||
command=yes
|
||||
case /c
|
||||
echo Available channels:
|
||||
lc /n/$chatsrv
|
||||
echo -------------------
|
||||
echo currently in $channel
|
||||
echo
|
||||
command=yes
|
||||
case *
|
||||
echo unknown command
|
||||
command=yes
|
||||
}
|
||||
}
|
||||
if(~ $talk '')
|
||||
command=yes
|
||||
if(! ~ $command yes){
|
||||
# ts=`{date -u}
|
||||
# ts=`{echo '('^$ts(4)^')'}
|
||||
line=`{echo $name ': ' $talk}
|
||||
echo $line >>/n/chat/$channel
|
||||
}
|
||||
command=no
|
||||
}
|
||||
|
|
@ -0,0 +1,14 @@
|
|||
#!/bin/rc
|
||||
# clear -- clears the window
|
||||
|
||||
> /dev/text
|
||||
|
||||
if(! ~ $#* 0){
|
||||
echo -n $prompt
|
||||
echo -n ' clear '
|
||||
echo -n ''''
|
||||
echo -n $"*
|
||||
echo ''''
|
||||
echo
|
||||
eval $"*
|
||||
}
|
||||
|
|
@ -0,0 +1,101 @@
|
|||
#!/bin/rc
|
||||
# connects to 9gridchan grid services and starts a new subrio
|
||||
# options -t tls -m mountonly -s scriptonly
|
||||
# awk '/exportfs/{print "srv -c", $1, $3, $5}' /mnt/registry/index
|
||||
|
||||
fn cpl{
|
||||
cp $1 /n/griddisk/cpl
|
||||
ptarg=`{basename $1}
|
||||
plumb http://wiki.9gridchan.org/incoming/cpl/$ptarg
|
||||
}
|
||||
|
||||
fn error{
|
||||
echo An error ocurred.
|
||||
exit
|
||||
}
|
||||
|
||||
while (~ $1 -*){
|
||||
switch($1){
|
||||
case -t
|
||||
tls = yes
|
||||
shift
|
||||
case -m
|
||||
mountonly = yes
|
||||
shift
|
||||
case -s
|
||||
scriptonly = yes
|
||||
shift
|
||||
case *
|
||||
echo bad flag $1 >>[1=2]
|
||||
shift
|
||||
}
|
||||
}
|
||||
|
||||
if(test -e /srv/gridregistry){
|
||||
echo 'old grid connections found in /srv, remove? (y/n)'
|
||||
ans=`{read}
|
||||
if(~ $ans y){
|
||||
rm /srv/gridchat
|
||||
rm /srv/gridplumber
|
||||
rm /srv/gridram
|
||||
rm /srv/gridregistry
|
||||
rm /srv/gridroot
|
||||
rm /srv/gridwiki
|
||||
rm /srv/griddisk
|
||||
rm /srv/pubregistry
|
||||
}
|
||||
}
|
||||
|
||||
if(~ $tls yes){
|
||||
auth/factotum
|
||||
echo 'key proto=dp9ik user=glenda dom=grid !password=9gridchan' >/mnt/factotum/ctl
|
||||
srvtls tcp!registry.9gridchan.org!16675 gridregistry /mnt/registry || error
|
||||
awk '/tlssrv/{print "srvtls -c", $1, $3, $5}' /mnt/registry/index >/tmp/gridscript
|
||||
# cat /mnt/registry/index |grep tlssrv |sed 's/^/srvtls -c /g' |sed 's/is //g' |sed 's/mountpoint //g' |sed 's/service.*$//g' >/tmp/gridscript
|
||||
}
|
||||
if(! ~ $tls yes){
|
||||
srv tcp!registry.9gridchan.org!6675 gridregistry /mnt/registry || error
|
||||
awk '/exportfs/{print "srv -c", $1, $3, $5}' /mnt/registry/index >/tmp/gridscript
|
||||
# cat /mnt/registry/index |grep exportfs |sed 's/^/srv -c /g' |sed 's/is //g' |sed 's/mountpoint //g' |sed 's/service.*$//g' >/tmp/gridscript
|
||||
}
|
||||
|
||||
if(~ $scriptonly yes){
|
||||
echo 'script saved in /tmp/gridscript'
|
||||
cat /tmp/gridscript
|
||||
exit
|
||||
}
|
||||
|
||||
. /tmp/gridscript
|
||||
|
||||
if(~ $mountonly yes){
|
||||
echo 'grid services mounted'
|
||||
exit
|
||||
}
|
||||
|
||||
if(test -e /bin/grio)
|
||||
srio=(grio -s -c 0x99009900)
|
||||
if not
|
||||
srio=(rio -s)
|
||||
|
||||
echo '#!/bin/rc
|
||||
window -r 0 0 700 400 chat
|
||||
window -r 700 0 1300 400 acme -l/tmp/gridacme
|
||||
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
|
||||
' >/tmp/gridrio
|
||||
|
||||
chmod +x /tmp/gridrio
|
||||
if(! test -e /mnt/web/ctl)
|
||||
webfs
|
||||
|
||||
echo '/usr/glenda
|
||||
/lib/font/bit/vga/unicode.font
|
||||
/lib/font/bit/vga/unicode.font
|
||||
0 66
|
||||
f 1 1 36 36 3
|
||||
1 33 36 1 0 /n/griddisk/ Del Snarf Get | Look
|
||||
F 1 1 15 15 28 15
|
||||
2 23 15 0 1 Del Snarf Undo | Look
|
||||
Wiki /mnt/wiki' >/tmp/gridacme
|
||||
|
||||
window -m -r 0 0 1350 750 $srio -i /tmp/gridrio
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
#! /bin/rc
|
||||
cd /tmp
|
||||
hget http://www.9legacy.org/download/go/go1.14.1-plan9-amd64-bootstrap.tbz | bunzip2 -c | tar x
|
||||
mkdir -p /sys/lib/go
|
||||
cd /sys/lib/go/
|
||||
hget https://golang.org/dl/go1.15.2.src.tar.gz | gunzip -c | tar x
|
||||
cd /sys/lib/go/go/src
|
||||
GOROOT_BOOTSTRAP=/tmp/go-plan9-amd64-bootstrap
|
||||
GOROOT=/sys/lib/go/go
|
||||
|
||||
make.rc
|
||||
cp /sys/lib/go/go/bin/* /$objtype/bin
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
#! /bin/rc
|
||||
ramfs
|
||||
hget http://plan9.stanleylieber.com/src/irc7.tgz | tar xvz
|
||||
cd irc*
|
||||
mk install
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
#!/bin/rc
|
||||
bind -ac /dist/plan9front /
|
||||
cd /sys/src/cmd/rio
|
||||
hget https://ftrv.se/_/9/patches/rio-themes.patch | hg patch -f --no-commit -
|
||||
mk install
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
#!/bin/rc
|
||||
cd /dist/plan9front
|
||||
hg pull
|
||||
hg update -c
|
||||
8
restore
8
restore
|
|
@ -1,6 +1,6 @@
|
|||
#!/bin/rc
|
||||
cp ./df ./email-login ./riostart ./clear ./chat ./gridstart ./screenshot ./sysbuild ./respawn ./mailwindow $home/bin/rc
|
||||
cp util/* $home/bin/rc
|
||||
cp color $home/
|
||||
./install-go.rc
|
||||
./pull9front
|
||||
./patch-rio
|
||||
./install/*.rc
|
||||
./install/pull9front
|
||||
./install/patch-rio
|
||||
|
|
|
|||
|
|
@ -0,0 +1,24 @@
|
|||
#!/bin/rc
|
||||
# df: print file system disk usage
|
||||
# usage: df [ server ]
|
||||
# This is the work of mischief (mischief on freenode) not Fulton Browne (the owner of this repo)
|
||||
rfork e
|
||||
|
||||
hj=/srv/hjfs.cmd
|
||||
cw=/srv/cwfs.cmd
|
||||
owner=glenda
|
||||
server=$1
|
||||
|
||||
if(~ $#server 1)
|
||||
exec rcpu -h $server -u $owner -c /mnt/term/bin/df
|
||||
|
||||
if(! ~ $user $owner)
|
||||
exec rcpu -h $sysname -u $owner -c /mnt/term/bin/df
|
||||
|
||||
if(test -w $hj)
|
||||
echo df >>$hj &&
|
||||
cat /dev/kmesg |
|
||||
tail -2
|
||||
if(test -w $cw)
|
||||
echo statw >>$cw &&
|
||||
read -n 21 $cw
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
#! /bin/rc
|
||||
# adjust to your own server
|
||||
upas/fs -f /imaps/mail.fulton.software/fulton@fulton.software
|
||||
|
|
@ -0,0 +1,18 @@
|
|||
#! /bin/rc
|
||||
# Add a smpt password with:
|
||||
# factotumgr -s server user password
|
||||
while (~ $1 -*){
|
||||
switch($1){
|
||||
case -s
|
||||
smpt = yes
|
||||
shift
|
||||
case -*
|
||||
echo bad flag $1 >>[1=2]
|
||||
shift
|
||||
}
|
||||
}
|
||||
if(~ smpt){
|
||||
echo 'key proto=pass server=$1 service=smpt \
|
||||
user=$2 !password=$3'\
|
||||
>/mnt/factotum/ctl
|
||||
}
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
#! /bin/rc
|
||||
label mail
|
||||
email-login
|
||||
respawn mail
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
#! /bin/rc -e
|
||||
while(){
|
||||
$*
|
||||
}
|
||||
|
|
@ -0,0 +1,13 @@
|
|||
#!/bin/rc
|
||||
window 0,0,161,117 stats -lmisce
|
||||
window -miny 130
|
||||
|
||||
# run a system shell on the serial console
|
||||
~ $#console 0 || window -scroll console
|
||||
|
||||
window 'cat /usr/glenda/color > /mnt/wsys/theme;
|
||||
sleep 0.5;
|
||||
grep softscreen /dev/vgactl >> /dev/vgactl;
|
||||
echo hwblank off >> /dev/vgactl;
|
||||
cat /dev/kprint'
|
||||
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
#! /bin/rc
|
||||
date -n > /env/thetime
|
||||
topng < /dev/screen
|
||||
|
||||
|
|
@ -0,0 +1,14 @@
|
|||
#! /bin/rc
|
||||
# Fulton Browne 11/27/2020 on 9front
|
||||
# You are free to distrbute and modify the source as you wish
|
||||
|
||||
# Start a sub shell
|
||||
@{
|
||||
rfork
|
||||
# bind the source - change locaction as needed
|
||||
bind -ac /disk/plan9front
|
||||
cd /sys/src
|
||||
mk clean
|
||||
mk install
|
||||
mk clean
|
||||
}
|
||||
Loading…
Reference in New Issue