www/generate/breadcrumb to generate 'breadcrumb' links for a page

1 files changed, 44 insertions, 0 deletions

diff --git a/www/generate/breadcrumb b/www/generate/breadcrumb
new file mode 100755
index 0000000..6b9f821
--- /dev/null
+++ b/www/generate/breadcrumb
@@ -0,0 +1,44 @@
+#!/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) {
+	# 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$//'}
+}