ref: a5a120304a6891be8b922e18587bbaa0db58977b
parent: cf096b96c702cfb6b62355550e567dca35a4529d
author: glenda <glenda@9front.local>
date: Sun Nov 29 05:22:54 EST 2020
so thats how you remove things
--- a/chat
+++ /dev/null
@@ -1,104 +1,0 @@
-#!/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
-}
--- a/clear
+++ /dev/null
@@ -1,14 +1,0 @@
-#!/bin/rc
-# clear -- clears the window
-
-> /dev/text
-
-if(! ~ $#* 0){- echo -n $prompt
- echo -n ' clear '
- echo -n ''''
- echo -n $"*
- echo ''''
- echo
- eval $"*
-}
--- a/df
+++ /dev/null
@@ -1,24 +1,0 @@
-#!/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
--- a/email-login
+++ /dev/null
@@ -1,3 +1,0 @@
-#! /bin/rc
-# adjust to your own server
-upas/fs -f /imaps/mail.fulton.software/fulton@fulton.software
--- a/gridstart
+++ /dev/null
@@ -1,101 +1,0 @@
-#!/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
--- a/install-go.rc
+++ /dev/null
@@ -1,12 +1,0 @@
-#! /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
--- a/install-irc7.rc
+++ /dev/null
@@ -1,5 +1,0 @@
-#! /bin/rc
-ramfs
-hget http://plan9.stanleylieber.com/src/irc7.tgz | tar xvz
-cd irc*
-mk install
--- a/mailwindow
+++ /dev/null
@@ -1,4 +1,0 @@
-#! /bin/rc
-label mail
-email-login
-respawn mail
--- a/patch-rio
+++ /dev/null
@@ -1,5 +1,0 @@
-#!/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
--- a/pull9front
+++ /dev/null
@@ -1,4 +1,0 @@
-#!/bin/rc
-cd /dist/plan9front
-hg pull
-hg update -c
--- a/respawn
+++ /dev/null
@@ -1,4 +1,0 @@
-#! /bin/rc -e
-while(){- $*
-}
--- a/restore
+++ /dev/null
@@ -1,7 +1,0 @@
-#!/bin/rc
-cp util/* $home/bin/rc
-cp grid/* $home/bin/rc
-cp color $home/
-./install/*.rc
-./install/pull9front
-./install/patch-rio
--- a/riostart
+++ /dev/null
@@ -1,13 +1,0 @@
-#!/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'
-
--- a/screenshot
+++ /dev/null
@@ -1,4 +1,0 @@
-#! /bin/rc
-date -n > /env/thetime
-topng < /dev/screen
-
--- a/sysbuild
+++ /dev/null
@@ -1,14 +1,0 @@
-#! /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
-}