From b123737a997b8c982649dba565f1bbb14eee99b1 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 8 Jun 2023 20:20:02 +0200
Subject: Serve source out of /src/

---
 cacophony.sh | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/cacophony.sh b/cacophony.sh
index 92a5d4b..d6e2bf0 100755
--- a/cacophony.sh
+++ b/cacophony.sh
@@ -1,7 +1,7 @@
 #!/bin/sh
 # cacophony by C. Duckworth --- hereby released to the public domain
 
-SCRIPTDIR=source
+SCRIPTDIR=/home/acdw/www
 
 crlf() { # crlf < INPUT
 	## Convert LF to CRLF
@@ -22,7 +22,7 @@ HEADER
 
 html_footer() { # html_footer
 	cat <<FOOTER
-<footer>this page is a <a href="$SCRIPTDIR/${1##*/}">program</a>
+<footer>this page is a <a href="/src/${1##*/}">program</a>
 served by <a href="https://git.acdw.net/cacophony">cacophony</a>.
 </footer></body></html>
 FOOTER
@@ -41,12 +41,12 @@ hexec() { # hexec PROGRAM [http_header args]
 	shift
 	http_header "$@"
 	"$prog"
-	html_footer
+	html_footer "$prog"
 }
 
 run() { # run
 	pag="$PWD$PATH_INFO"
-	src="$PWD/$SCRIPTDIR$PATH_INFO"
+	src="$SCRIPTDIR$PATH_INFO"
 
 	if test / = "$PATH_INFO"
 	then PATH_INFO=/index run
@@ -60,7 +60,11 @@ run() { # run
 	elif test -d "$pag" && test -r "$pag/index.html"
 	then hcat 200 < "$pag/index.html"
 
-	else http_header 404
+	else 
+		case "$PATH_INFO" in
+			/src/*) hcat 200 < "$SCRIPTDIR/${PATH_INFO#/src/}" ;;
+			*) http_header 404 ;;
+		esac
 	fi
 }
 
-- 
cgit 1.4.1-21-gabe81