#!/bin/sh

SCRIPTDIR=source

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

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

HEADER
}

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

run() {
	if test / = "$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 header 404
		fi
	fi
}

run