Add hcat

1 files changed, 38 insertions, 20 deletions

@@ -1,5 +1,5 @@
 #!/bin/sh
-# cacophony by C. Duckworth --- public domain
+# cacophony by C. Duckworth --- hereby released to the public domain
 
 SCRIPTDIR=source
 
@@ -8,41 +8,59 @@ crlf() { # crlf < INPUT
         sed 's/$/
/g'
 }
 
-http_header() { # header [STATUS]
+log() { # log MESSAGE ...
+        printf >&2 '%s\n' "$*"
+}
+
+http_header() { # http_header [STATUS] [MIMETYPE] [CHARSET]
         cat <<HEADER | crlf
 HTTP/1.1 ${1:-200}
-Content-Type: text/html;charset=utf-8
+Content-Type: ${2:-text/html};charset=${3:-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>
+html_footer() { # html_footer
+        cat <<FOOTER
+<footer>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
+</footer></body></html>
+FOOTER
 }
 
-hexec() { # hexec PROGRAM [header args]
-        prog="$1"; shift
+hcat() { # hcat [STATUS] < INPUT
+        case "$(file -)" in
+                *HTML*) http_header "{1:-200}" ;;
+                *) http_header "${1:-200}" text/plain ;; # todo: smarter
+        esac
+        cat
+}
+
+hexec() { # hexec PROGRAM [http_header args]
+        prog="$1"
+        shift
         http_header "$@"
         "$prog"
-        html_footer "$prog"
+        html_footer
 }
 
 run() { # run
+        pag="$PWD$PATH_INFO"
+        src="$PWD/$SCRIPTDIR$PATH_INFO"
+
         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 http_header 404
-                fi
+
+        elif ! test -d "$pag" && test -x "$src"
+        then hexec "$src" 200
+
+        elif ! test -d "$pag" && test -r "$pag"
+        then hcat 200 < "$pag"
+
+        elif test -d "$pag" && test -r "$pag/index.html"
+        then hcat 200 < "$pag/index.html"
+
+        else http_header 404
         fi
 }