Nuweb drop

Signed-off-by: root <root@tdm-cloud.(none)>

inc/nuweb.nuxsh.sh

@@ -0,0 +1,115 @@
+## #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 "$@"
+  }
+}