From 0eb21b2178dbb2cc1faea64447b861a91e442b90 Mon Sep 17 00:00:00 2001 From: Niki Roo 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 "" | less +;; +*) + echo "unknwon selector mode: <$MODE>" | less + exit 3 +;; +esac -- 2.27.0