Serve source out of /src/ main

1 files changed, 9 insertions, 5 deletions

@@ -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
 }