1 files changed, 18 insertions, 5 deletions

@@ -1,4 +1,5 @@
 #!/bin/sh
+# cacophony by C. Duckworth --- public domain
 
 SCRIPTDIR=source
 
@@ -7,7 +8,7 @@ crlf() { # crlf < INPUT
         sed 's/$/
/g'
 }
 
-header() { # header [STATUS]
+http_header() { # header [STATUS]
         cat <<HEADER | crlf
 HTTP/1.1 ${1:-200}
 Content-Type: text/html;charset=utf-8
@@ -15,20 +16,32 @@ 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
-        header "$@"
-        exec "$prog"
+        http_header "$@"
+        "$prog"
+        html_footer "$prog"
 }
 
-run() {
+run() { # 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
+                else http_header 404
                 fi
         fi
 }