#!/bin/awk -f
BEGIN{
	file = ARGV[3]"/remote"
	ARGC = 0
	getline info <file
	"date -t" | getline
	info = $0" "info
	coda = "\trunjimmyrunrunyoufuckerrun.com\t70\r"
	FS = "[ \t\r]"
	getline
	url = $1
	print info" "url >>"/sys/log/gopher"
	gsub("[^/]*/\\.\\.(/|$)", "/", url)
	file = "/usr/umbraticus/www/jimmy"url
	if(system("test -r "file)){
		print "3I'm sorry, Dave; I'm afraid I can't do that."coda"\n.\r"
		exit
	}
	if(system("test -d "file)){
		system("cat "file)
		exit
	}
	while("walk -n1,1 -d -en "file" | sort" | getline)
		print "1"$0"\t"url"/"$0 coda
	while("walk -n1,1 -f -en "file" | sort" | getline){
		if(match($0, /\.gif$/)) print "g"$0"\t"url"/"$0 coda
		else if(match($0, /\.(jpg|png)$/)) print "I"$0"\t"url"/"$0 coda
		else if(match($0, /\.(it|mod|mp3|ogg|pdf|ps|tgz)$/)) print "9"$0"\t"url"/"$0 coda
		else print "0"$0"\t"url"/"$0 coda
	}
	print "\n.\r"
}