|
|
|
|
@ -134,9 +134,9 @@ fi
|
|
|
|
|
## function
|
|
|
|
|
invalid_selector(){
|
|
|
|
|
sel="$1"
|
|
|
|
|
echo "3Error: Invalid selector: \"$sel\""
|
|
|
|
|
echo "[$(date +%Y-%m-%d\ %H:%M:%S)|ERROR|${sel}|\"\"]" >&2
|
|
|
|
|
printf "3Error: Invalid selector\tErr\t\t\r\n.\r\n"
|
|
|
|
|
# shellcheck disable=SC1117
|
|
|
|
|
printf ".\r\n"
|
|
|
|
|
exec 1>&-
|
|
|
|
|
exec 2>&-
|
|
|
|
|
exit 1
|
|
|
|
|
@ -147,7 +147,7 @@ serve_selector(){
|
|
|
|
|
sel="$1"
|
|
|
|
|
|
|
|
|
|
cat "${sel}"
|
|
|
|
|
echo "$0: selector $sel served -- exiting " >&2
|
|
|
|
|
echo "[$(date +%Y-%m-%d\ %H:%M:%S)|SELECTOR|${sel}|\"\"]" >&2
|
|
|
|
|
exec 1>&-
|
|
|
|
|
exec 2>&-
|
|
|
|
|
exit 0
|
|
|
|
|
@ -160,6 +160,8 @@ serve_index(){
|
|
|
|
|
IDX=$1
|
|
|
|
|
IFS='
|
|
|
|
|
'
|
|
|
|
|
|
|
|
|
|
echo "[$(date +%Y-%m-%d\ %H:%M:%S)|GPH|${IDX}|\"\"]" >&2
|
|
|
|
|
while read -r line; do
|
|
|
|
|
rline=$(echo "$line" | sed -r -e 's/\r//g')
|
|
|
|
|
case "$rline" in
|
|
|
|
|
@ -184,6 +186,8 @@ serve_index(){
|
|
|
|
|
## function
|
|
|
|
|
serve_redirect(){
|
|
|
|
|
url=$1
|
|
|
|
|
|
|
|
|
|
echo "[$(date +%Y-%m-%d\ %H:%M:%S)|REDIRECT|${url}|\"\"]" >&2
|
|
|
|
|
cat<< EOF
|
|
|
|
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
|
|
|
|
<html>
|
|
|
|
|
@ -205,7 +209,7 @@ EOF
|
|
|
|
|
serve_cgi(){
|
|
|
|
|
script_name=$( echo "$1" | sed -r 's:^/+::')
|
|
|
|
|
query_string="$2"
|
|
|
|
|
echo "serving script_name: ${script_name} with query_string: ${query_string}" >&2
|
|
|
|
|
echo "[$(date +%Y-%m-%d\ %H:%M:%S)|CGI|${script_name}|\"${query_string}\"]" >&2
|
|
|
|
|
GATEWAY_INTERFACE="CGI/1.1"
|
|
|
|
|
PATH_INFO="${script_name}"
|
|
|
|
|
PATH_TRANSLATED="${script_name}"
|
|
|
|
|
@ -223,6 +227,8 @@ serve_cgi(){
|
|
|
|
|
export REMOTE_ADDR REMOTE_HOST REQUEST_METHOD SCRIPT_NAME
|
|
|
|
|
export SERVER_NAME SERVER_PORT SERVER_PROTOCOL SERVER_SOFTWARE
|
|
|
|
|
${GOPHERDIR}${script_name} "" "${query_string}" "${HOSTNAME}" "${PORT}" 2>&1
|
|
|
|
|
exec 1>&-
|
|
|
|
|
exec 2>&-
|
|
|
|
|
exit $?
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
@ -243,7 +249,7 @@ selector=$(echo "$selector" | sed -r 's:\$.*::g;s:\r::g' )
|
|
|
|
|
case $selector in
|
|
|
|
|
URL:*)
|
|
|
|
|
## it's a special URL selector
|
|
|
|
|
url=$(echo "$selector" | cut -d ":" -f 2-)
|
|
|
|
|
url=$(echo "$selector" | cut -d ":" -f 2- | sed 's:^//::g')
|
|
|
|
|
serve_redirect "$url"
|
|
|
|
|
;;
|
|
|
|
|
/?*.cgi*)
|
|
|
|
|
|
