#!/bin/rc

uri       = $1 # eg, '/hbspbar/log.html'
domain    = $2 # eg, hhvn.uk
subdomain = $3 # eg, src
elems     = `('/' $nl){echo $uri}

if (~ $domain ()) {
	domain = `hostname
}

fn plink {
	printf '<a href="%s">%s</a>' $1 $2
}

fn text {
	printf '%s' $1
}

if (! ~ $subdomain ()) {
	plink '/' $subdomain
	text '.'
	plink 'https://'^$domain $domain
} else {
	plink '/' $domain
}

curi = ''
for (e in $elems) {
	if (!~ $e '.') {
		# special case for stagit
		if (~ $subdomain src && ~ $e log.html) {
			exit 0
		}

		# we're done
		if (~ $e index.html) {
			exit 0
		}

		curi = $curi ^ '/' ^ $e

		text ' &gt; '
		plink $curi `$nl{echo $e | sed 's/\.html$//'}
	}
}