#! /bin/sh
set -euf



Server='httpd-single/0.2'
Request="$(sed 's/\r$//;/^$/q')"
date="`date '+%Y-%m-%d %H:%M:%S'`"

##
## Parse request.
##
Request_Line=
eval "$(echo "$Request" | sed -rn '
  1{s^([a-zA-Z]+) ([a-zA-Z0-9?&+*/.-]+) HTTP/([0-9]+\.[0-9]+)$\
      Request_Line="&"\
      Method="\1"\
      Request_URI="\2"\
      HTTP_Version="\3"\
    p;t;i\
      Request_Line= # invalid request
    q
  }
  s/^Host: ([a-zA-Z0-9?+&/:.-]+)$/Host="\1"/p
')"

##
## Log request.
##
# TODO real logging
cat>&2<<EOF

## $date, $TCPREMOTEIP:$TCPREMOTEPORT $Request_Line
$Request
EOF
  if test -z "$Request_Line" ; then
    echo "# FAIL"
    exit -23
  fi >&2
    
  # TODO Date: `date --utc`
  
  ##
  ## Handle request.
  ##
  case "$Host" in
    src.mine.nu:42380|src.mine.nu|vix|vix:42380|localhost:42380)
      case "${Method-Invalid-Request}" in
        GET|HEAD)
          case "$Request_URI" in
            /style5.css)
              body_type=file
              body=~/public_html$Request_URI
              cat<<EOF
HTTP/1.0 200 OK
Connection: Close
Content-Length: `du -b $body | cut -f1`
Content-Type: text/css
Server: $Server

EOF
          ;;
          /favicon5.png|/favicon2.png)
            body_type=file
            body=~/public_html$Request_URI
            cat<<EOF
HTTP/1.0 200 OK
Connection: Close
Content-Length: `du -b $body | cut -f1`
Content-Type: image/png
Server: $Server

EOF
          ;;
          /|/index.html)
            body_type=file
            body=~/public_html/index.html
            cat<<EOF
HTTP/1.0 200 OK
Content-Type: text/html; charset=UTF-8
Server: $Server
Connection: Close
Content-Length: `du -b $body | cut -f1`

EOF
          ;;
          *)
            body_type=string
            body="404 Not found: $Request_URI"
            cat<<EOF
HTTP/1.0 404 Not Found
Content-Type: text/plain; charset=UTF-8
Server: $Server
Connection: Close
Content-Length: ${#body}

EOF
          ;;
        esac

        case "$Method" in
          GET)
            case "$body_type" in
              file) cat "$body" ;;
              string) echo "$body" ;;
            esac
          ;;
        esac
      ;;
      *) # Method
      ;;
    esac
  ;;
  *) # Host
  ;;
esac

# Success (mod transfer)
echo "# OK" >&2
exit

# tcpserver info:
# $PROTO is the string TCP.
# 
# $TCPLOCALIP is the IP address of the local host, in dotted-decimal form.
# 
# $TCPLOCALPORT is the local TCP port number, in decimal.
# 
# $TCPLOCALHOST is the name listed in DNS for the local host. If no name is available, $TCPLOCALHOST is not set. Beware that $TCPLOCALHOST can contain arbitrary characters.
# 
# $TCPREMOTEIP is the IP address of the remote host, in dotted-decimal form.
# 
# $TCPREMOTEPORT is the remote TCP port number, in decimal.
# 
# $TCPREMOTEHOST is the name listed in DNS for the remote host. If no name is available, $TCPREMOTEHOST is not set. Beware that $TCPREMOTEHOST can contain arbitrary characters.
# 
# $TCPREMOTEINFO is a connection-specific string supplied by the remote host via the 931/1413/IDENT/TAP protocol. If no information is available, $TCPREMOTEINFO is not set. Beware that $TCPREMOTEINFO can contain arbitrary characters.