shithub: rc

ref: f3afdf563f784c0a5703496f48c1a72dff4617f4
dir: /gopherd/

#!/bin/rc

root=/usr/web/gopher
server=thedaemon.space
port=70

fn gls {
r='{f=$10
sub("^'^$"root^'", "", f)
b=$10
sub("^.*/", "", b)
print "'
x='"b" "f" '^$"server^' '^$"port^'"
next
}'
a='
/^d/'^$"r^1^$"x^'
/\.gph$/'^$"r^1^$"x^'
/README$/'^$"r^0^$"x^'
/\.Z$/'^$"r^5^$"x^'
/\.awk$/'^$"r^0^$"x^'
/\.c$/'^$"r^0^$"x^'
/\.gif$/'^$"r^g^$"x^'
/\.h$/'^$"r^0^$"x^'
/\.html$/'^$"r^h^$"x^'
/\.man$/'^$"r^0^$"x^'
/\.mod$/'^$"r^s^$"x^'
/\.mp3$/'^$"r^s^$"x^'
/\.ms$/'^$"r^0^$"x^'
/\.ogg$/'^$"r^s^$"x^'
/\.pdf$/'^$"r^d^$"x^'
/\.ps$/'^$"r^d^$"x^'
/\.rc$/'^$"r^0^$"x^'
/\.s$/'^$"r^0^$"x^'
/\.tar$/'^$"r^5^$"x^'
/\.tex$/'^$"r^0^$"x^'
/\.tgz$/'^$"r^5^$"x^'
/\.troff$/'^$"r^0^$"x^'
/\.txt$/'^$"r^0^$"x^'
/\.wav$/'^$"r^s^$"x^'
/\.zip$/'^$"r^5^$"x^'
/mkfile$/'^$"r^0^$"x^'
'^$"r^9^$"x
ls -l $1 | awk $"a | sed 's/$/
/g'
}

fn gph {
 sed 's/\|server\|[^\|\]]+\]$/|'^$"server^'|'^$"port^']/;
s/^\[//g; s/]$//g; s/(.)\|/\1/;
s/\|/ /g; s/$//g;' < $1
}

r=`{read | sed 's/
//g; s/\.\.//g; s!//!!g;'}

if(~ $"r ''){
 r=$"root
}
if not {
 r=$"root^$"r
}

if(test -d $"r){
 if(test -r $"r/index.gph){
  gph $"r/index.gph
 }
 if not {
  gls $"r
 }
}
if not {
 if(test -r $"r) {
  if(~ $"r *.gph){
   gph $"r
  }
  if not {
   cat $"r
   exit
  }
 }
 if not {
  echo '3"'^$"r^'" not found error.file error.host 0
'
 }
}
echo '.'