#!/bin/rc

root=/usr/web
server=9hal.ath.cx
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 '.
'