## #nuweb - Server-side HTTP scripting library for BASH
##
## *nuweb* is set of BASH function to ease implementation of CGI scripts using
## BASH. Idea behind it, is to allow for reuse of existing shell scripts
## and command-line utilities, without need to duplicate functionality.
##
## *nuweb* is based on *nux-env*, which allows large code-share with *nux-env*
## command line tools and use of *nux-env* libraries.
##
## *nuweb* is separated into several components:
##
##    nuweb::
##        this library, base functionality
##    nuweb/router:: router support functionality - dispatch of code
##      based on path and query parameters
##    nuweb/html::
##      basic support for generating HTML content
##

## #Public functions:

## nuweb.status:: <code>
##   Sets HTTP response status code.
##   NOTE: If any content was already returned this function does not work.
##
@namespace nuweb {
  function :status {
    local code=$1;shift;
    local message=$@;
    echo "HTTP/1.1 $code $message"
  }

## nuweb.content_type:: <content-type>
##  Sets HTTP response content type
##  NOTE: If any content was already returned this function does not work.
  function :content_type {
    echo "Content-Type: $@"
  }

## nuweb.redirect:: [--relative] <path>
##
  function :redirect {
    local prefix="";
    if [ "$1" == "--relative" ]; then
      shift;
      prefix="$(dirname "$SCRIPT_NAME")/"
    fi
    nux.log debug "Redirecting to:" "$@"
    if [ -z "$@" ]; then
      :status 404 NOT FOUND
    else
      echo Location: "$prefix$@"
      echo
      echo
    fi
  }

## nuweb.redirect.exec::
##
  function :redirect.exec {
    if [ "$1" == "--relative" ]; then
      args="--relative";
      shift;
    fi
    fn=$1; shift;
    nuweb.redirect $args "$($fn $@)"
  }

## nuweb.http.query.var:: <param> [defaultValue]
##   Reads HTTP query string from variable *QUERY_STRING*, parses it and returns
##   value of parameter *param* or *defaultValue*.
##
##   NOTE: Currently does not perform urldecode
}


function nuweb.http.post.with_env fn {
  if [ "${CONTENT_TYPE%;*}" = "application/x-www-form-urlencoded" ]; then
    post_query=$(cat);
    nux.log debug "POST Query: $post_query"
    nuweb.http.query.with_env0 "$post_query" $fn "$@"
  else
    $fn "$@"
  fi

}

@namespace nuweb.http.query {
  function :var() {
    local to_read=$1;
    local line_separrated=$(sed "s/&/\n/g" <<< $QUERY_STRING)

    while IFS="=" read -r var value; do
      if [ "$var" = "$to_read" ]; then
        echo "$value"
        return;
      fi
    done <<< "$line_separrated"
    echo $2
}

## nuweb.http.query.to_var::
##
  function :with_env {
    :with_env0 "$QUERY_STRING" "$@"
  }

  function :with_env0 query fn {
    nux.log debug "GET Query: $QUERY_STRING";
    while IFS="=" read -d "&" -r var value; do
      declare -x "NUWEB_QUERY_${var//-/_}"="$(dirty.url.decode "$value")";
    done <<< "${query}&";
    $fn "$@"
  }
}