From 0eb21b2178dbb2cc1faea64447b861a91e442b90 Mon Sep 17 00:00:00 2001
From: Niki Roo <niki@nikiroo.be>
Date: Sun, 1 Apr 2018 12:18:20 +0200
Subject: [PATCH] Small gopher client in SH

---
 gopher.sh | 115 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 115 insertions(+)
 create mode 100755 gopher.sh

diff --git a/gopher.sh b/gopher.sh
new file mode 100755
index 0000000..f91be7a
--- /dev/null
+++ b/gopher.sh
@@ -0,0 +1,115 @@
+#!/bin/sh
+
+SERVER="$1"
+SELECTOR="$2"
+PORT="$3"
+MODE="$4"
+
+# Defaults:
+[ "$PORT" = "" ] && PORT=70
+if [ "$MODE" = "" ]; then
+	# "" or dir-like selector? -> 1 ; if not -> 0 
+	echo "$SELECTOR" | grep "/$" >/dev/null && MODE=1 || MODE=0
+	[ "$SELECTOR" = "" ] && MODE=1
+fi
+
+if [ "$SERVER" = "" ]; then
+	echo "Syntax error: $0 [SERVER] ([SELECTOR]) ([PORT]) ([MODE])" >&2
+	exit 2
+fi
+
+# $0 [FILE]
+cat_menu() {
+	i=0
+	cat "$1" | grep '^[i0-9]' | while read ln; do
+		ln="`echo "$ln" | cut -f1`"
+		if echo "$ln" | grep "^i" >/dev/null 2>&1; then
+			echo "$ln" | sed "s:^.:	:g"
+		elif echo "$ln" | grep "^[0-9]" >/dev/null 2>&1; then
+			i=`expr $i + 1`
+			i=`printf %2.f $i`
+			field="`echo "$ln" | cut -c1`"
+			case "$field" in
+				0) typ='TXT';;
+				1) typ='DIR';;
+				7) typ='SRH';;
+				8) typ='TEL';;
+				*) typ='???';;
+			esac
+			echo "$ln" | sed "s:^.:$typ $i	:g"
+		#else
+			# Bad line
+		fi
+	done
+}
+
+# $0 [FILE]
+choices() {
+	i=0
+	cat "$1" | grep '^[0-9]' | while read choice; do
+		i=`expr $i + 1`
+		i=`printf %2.f $i`
+		
+		echo "$i --> $choice"
+	done
+}
+
+# $0 [FILE] [INDEX] [FIELD]
+# Fields:
+# 	1 = type/name
+# 	2 = selector
+# 	3 = server
+# 	4 = port
+getsel() {
+	cat "$1" | grep '^[0-9]' | tail -n+"$2" | head -n 1 | cut -f"$3"
+}
+
+tmp="`mktemp gofetch.current_page.XXXXX`"
+finish() {
+  rm -rf "$tmp"
+}
+trap finish EXIT
+
+if [ $MODE = 1 ]; then
+	echo "$SELECTOR" | nc "$SERVER" "$PORT" | sed 's:\r::g' > "$tmp"
+else
+	echo "$SELECTOR" | nc "$SERVER" "$PORT" > "$tmp"
+fi
+
+case "$MODE" in
+0)
+	cat "$tmp" | less
+;;
+1)
+	CHOICE=start
+	while [ "$CHOICE" != "" ]; do
+		cat_menu "$tmp" | less
+		read -p "[$SELECTOR]: " CHOICE
+		index="`expr 1 \* "$CHOICE" 2>/dev/null`"
+		if [ "$index" != "" ]; then
+			goto_server="`getsel "$tmp" $index 3`"
+			goto_sel="`getsel "$tmp" $index 2`"
+			goto_port="`getsel "$tmp" $index 4`"
+			goto_mode="`getsel "$tmp" $index 1 | cut -c1`"
+			sh "$0" "$goto_server" "$goto_sel" "$goto_port" "$goto_mode"
+		fi
+	done
+;;
+7)
+	read -p "Query: " SEARCH
+	selQuery="$SELECTOR	$SEARCH"
+	
+	exec sh "$0" "$SERVER" "$selQuery" "$PORT" 1
+;;
+8)
+	telnet -l "$SELECTOR" "$SERVER" "$PORT"
+	read DUMMY
+;;
+9)
+	echo "<BINARY FILE>" | less
+;;
+*)
+	echo "unknwon selector mode: <$MODE>" | less
+	exit 3
+;;
+esac
-- 
2.27.0