mirror of
https://github.com/tonydamage/nux-env.git
synced 2025-12-11 13:24:28 +01:00
115 lines
2.9 KiB
Bash
Executable file
115 lines
2.9 KiB
Bash
Executable file
## #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 "$@"
|
|
}
|
|
}
|