Input

#!/usr/bin/env bash # dillo-gemini # © 2020 Charles E. Lehner # Copying and distribution of this file, with or without modification, # are permitted in any medium without royalty provided the copyright # notice and this notice are preserved. This file is offered as-is, # without any warranty. # Note: "read -d" is a Bashism; -r disables line wrapping with # backslashes read -rd '>' auth read -rd '>' cmd case "$cmd" in "\n" printf "Content-type: text/plain\r\n\r\n" echo Not found } render_gemini() { printf "Content-type: text/html\r\n\r\n" if command -v ansi2html >/dev/null then ansi2html else cat fi | awk ' function escape_html(str) { gsub(/&/, "\\&", str) gsub(//, "\\>", str) return str } BEGIN { print "" } { sub(/\r$/, "") } /^```/ { if (!in_literal) { in_literal = 1 print "

"
			} else {
				in_literal = 0
				print "

" } next } in_literal { print escape_html($0) next } in_list && !/^\*/ { in_list = 0 print "" } /^\*/ { if (!in_list) { in_list = 1 printf "

%s

%s%s

" "$*" } serve_status_not_supported() { printf "\n" printf "Content-type: text/plain\r\n\r\n" echo Status not implemented: "$1" echo "$2" } serve_missing_status() { printf "\n" printf "Content-type: text/plain\r\n\r\n" echo Empty status response. "$2" } serve_input() { printf "\n" url="$1" prompt="$2" # TODO: html-escape prompt printf "Content-type: text/html\r\n\r\n" cat <<-EOF Input EOF } serve_success() { printf "\n" type="$1" case "$type" in text/gemini*) render_gemini;; application/xml|application/*+xml) printf "Content-type: text/xml\r\n\r\n"; cat;; *) printf "Content-type: %s\r\n\r\n" "$type"; cat;; esac } serve_redirect() { url="$1" send_status_msg "Redirected" printf "\n" printf "Content-type: text/html\r\n\r\n" # TODO: html-escape url cat <<-EOF Redirect to $url

Redirect to $url EOF } serve_real_redirect() { send_status_msg "Redirected" printf "\n" printf "Content-type: text/html\r\n\r\n" # TODO: html-escape url cat <<-EOF Redirecting to $url EOF } serve_error() { status="$1" meta="$2" send_status_msg "Request failed" printf "\n" printf "Content-type: text/html\r\n\r\n" cat <<-EOF Request failed
Request failed: $status
`$meta` EOF } serve_fail() { meta="$1" send_status_msg "Client certificate required" printf "\n" printf "Content-type: text/html\r\n\r\n" cat <<-EOF Client certificate required
Client certificate required

Not implemented!
`$meta` EOF } serve_gemini_input() { url=${1#gemini:input:} # gemini:input://REQUEST?q=INPUT -> gemini://REQUEST?INPUT url_no_query=${url%%?q=} if [ "$url_no_query" != "$url" ]; then url="${url_no_query}?${url#?q=}" fi url=$(printf "%s" "$url" | sed 's/\+/%20/g') serve_real_redirect "$url" } blobs_dir=${ssb_path:-~/.${ssb_appname:-ssb}}/blobs serve_gemini() { url=${1%%#} url_noquery=${url%%\?} query=${url##\?} if [ "$query" = "$url_noquery" ] then query= else query="?$query" fi url_scheme_relative=${url_noquery#gemini://} hostname=${url_scheme_relative%%/} path=${url_scheme_relative#/} if [ "$path" = "$hostname" ]; then path=; fi host=${hostname%%:} port=${hostname##:} url="gemini://$hostname/$path$query" if [ "$host" = "$port" ]; then port=1965; fi send_status_msg "Sending request..." printf "%s\r\n" "$url" | openssl s_client -quiet -connect "$host:$port" | serve_gemini_response "$url" } serve_gemini_response() { url=$1 read -r status meta send_status_msg "Status: $status" meta=$(echo "$meta" | sed 's/\s$//') mkdir -p "$blobs_dir"/tmp ~/.dillo/gemini tmp=$(mktemp "$blobs_dir"/tmp/XXXXXXXXXXXX) tee "$tmp" | case "$status" in 1) serve_input "$url" "$meta";; 2) serve_success "$meta";; 3) serve_redirect "$meta";; 4) serve_error "$status" "$meta";; 5) serve_error "$meta";; #6) serve_client_cert_required "$meta";; '') serve_missing_status "$meta";; ) serve_status_not_supported "$status" "$meta";; esac dest="$blobs_dir"/sha256/$(sha256sum "$tmp" | awk '{print substr($1, 1, 2) "/" substr($1, 3)}') if test -e "$dest" && cmp -s "$tmp" "$dest" then # unchanged resource rm "$tmp" else mkdir -p "${dest%/}" mv "$tmp" "$dest" fi printf "%s %s %s %s\n" "$(date -u +%FT%TZ)" "$dest" "$url" "$status $meta" >>~/.dillo/gemini/history.txt } case "$url" in gemini:input:) serve_gemini_input "$url";; gemini:) serve_gemini "$url";; *) serve_404;; esac

$prompt

Request failed: $status

Client certificate required