#!/bin/sh
# cacophony by C. Duckworth --- public domain

SCRIPTDIR=source

crlf() { # crlf < INPUT
	## Convert LF to CRLF
	sed 's/$/
/g'
}

http_header() { # header [STATUS]
	cat <<HEADER | crlf
HTTP/1.1 ${1:-200}
Content-Type: text/html;charset=utf-8

HEADER
}

html_footer() { # footer PROGRAM
	cat <<EOF
<footer>
copyright (C) $(stat -c %y "$1" | cut -d- -f1) Case Duckworth.
this page is a <a href="$SCRIPTDIR/${1##*/}">program</a>
served by <a href="https://git.acdw.net/cacophony">cacophony</a>.
</footer>
</body></html>
EOF
}

hexec() { # hexec PROGRAM [header args]
	prog="$1"; shift
	http_header "$@"
	"$prog"
	html_footer "$prog"
}

run() { # run
	echo "$PATH_INFO" >> /tmp/pathinfo
	if test / = "$PATH_INFO" || test "/cacophony.sh" = "$PATH_INFO"
	then PATH_INFO=/index run
	else
		path="$PWD/$SCRIPTDIR$PATH_INFO"
		if ! test -d "$path" && test -x "$path"
		then hexec "$path" 200
		else http_header 404
		fi
	fi
}

run