X-Git-Url: http://git.nikiroo.be/?p=gofetch.git;a=blobdiff_plain;f=gopher.sh;h=5d7439f82955a160c904379315aebfc34884bed1;hp=0ec852b0cf9f1dbe15def858d60f295ac1f756a7;hb=HEAD;hpb=61fcec09f7f5d1361d763a35bcd3f966ed0aef88

diff --git a/gopher.sh b/gopher.sh
index 0ec852b..5d7439f 100755
--- a/gopher.sh
+++ b/gopher.sh
@@ -1,20 +1,24 @@
 #!/bin/sh
 
-# $0 [server] ([selector]) ([port]) ([mode])
-# 	server: the gopher server to dig to
-#	selector: the gopher selector (default is empty)
-#	port: the port to use (default is 70)
-#	mode: the filetype mode (default depends upon selector)
-#		0: plain text
-#		1: menu (dir-like)
-#		...
-#		download: fake mode to download the result without changes
+# $0 [gopher uri] ([mode])
+# 	uri: the gopher URI to dig to, e.g.:
+#		- gopher://sdf.org:70/1/faq
+#		- sdf.org/faq
+#		- sdf.org/1/faq
+#		- http://gopher.nikiroo.be:80/news
+#		- ...
+#		default port is 70 for gopher, 80 for http, 443 for https
+#		default filetype depends upon selector:
+#		- 0: plain text
+#		- 1: menu (dir-like)
+#		- ...
+#		- download: fake mode to download the result without changes
+
+# Manual:
+# 	When asked for a number, you can also enter 'n' or 'p' to get the 
+# 	next or previous item (+1 or -1)
 
 # ENV variables:
-# 	USE_DIALOG: force the usage of the command 'dialog'
-#		  : true if dialog is found
-#		0 : do not
-#		1 : force the use of dialog
 #	LINK_COLOR: escape sequences colour (def: 2)
 #		- : means no escape sequence
 #		1 : means colour 1
@@ -24,30 +28,49 @@
 # 		0 : do not invert (default)
 #		1 : invert 
 
-SERVER="$1"
-SELECTOR="$2"
-PORT="$3"
-MODE="$4"
+# EXIT Codes:
+#	  0: ok
+#	  1: syntax error
+#	  2: cannot contact server
+#	  3: unknown selector mode
+#	255: special exit more 'q'
+
+URI="$1"
 
 PREFIX="[0-9hIg+]"
 
+PROTOCOL="`echo $URI | sed 's|^\([^:]*://\)\?\([^:/]*\)\(:[^/]*\)\?/\?\(.*\)\?|\1|g'`"
+SERVER="`echo $URI | sed 's|^\([^:]*://\)\?\([^:/]*\)\(:[^/]*\)\?/\?\(.*\)\?|\2|g'`"
+PORT="`echo $URI | sed 's|^\([^:]*://\)\?\([^:/]*\)\(:[^/]*\)\?/\?\(.*\)\?|\3|g'`"
+SELECTOR="`echo $URI | sed 's|^\([^:]*://\)\?\([^:/]*\)\(:[^/]*\)\?/\?\(.*\)\?|\4|g'`"
+MODE=
+
+PORT="`echo "$PORT" | sed 's/^://'`"
+
 # Defaults:
-[ "$PORT" = "" ] && PORT=70
+if [ "$PORT" = "" ];then
+	case "$PROTOCOL" in
+	http://)  PORT=80 ;;
+	https://) PORT=443;;
+	*)     PORT=70 ;;
+	esac
+fi
+
 if [ "$MODE" = "" ]; then
 	# "" or dir-like selector? -> 1 ; if not -> 0 
 	echo "$SELECTOR" | grep "/$" >/dev/null && MODE=1 || MODE=0
 	[ "$SELECTOR" = "" ] && MODE=1
 	
 	# check explicit modes:
-	if echo "$SELECTOR" | grep "^/\($PREFIX\|download\)/" >/dev/null; then
-		MODE="`echo "$SELECTOR" | cut -f2 -d/`"
-		SELECTOR="`echo "$SELECTOR" | sed 's:^/[^/]*/::'`"
+	if echo "$SELECTOR" | grep "^/\?\($PREFIX\|download\)/" >/dev/null; then
+		MODE="`echo "$SELECTOR" | sed 's:^/\?\([^/]*\)/\(.*\):\1:'`"
+		SELECTOR="`echo "$SELECTOR" | sed 's:^/\?\([^/]*\)/\(.*\):\2:'`"
 	fi
 fi
 
 if [ "$SERVER" = "" ]; then
-	echo "Syntax error: $0 [SERVER] ([SELECTOR]) ([PORT]) ([MODE])" >&2
-	exit 2
+	echo "Syntax error: $0 [gopher uri]" >&2
+	exit 1
 fi
 
 # can be "-" for no escape sequences
@@ -59,16 +82,7 @@ EL=
 if [ "$LINK_COLOR" != "-" ]; then
 	SL="`tput setf $LINK_COLOR``tput setaf $LINK_COLOR`"
 	EL="`tput init`"
-	export LESS="${LESS}-R"
-fi
-
-# 'dialog' or text
-if [ "$USE_DIALOG" = "" ]; then
-	if dialog --help >/dev/null 2>&1; then
-		USE_DIALOG=1
-	else
-		USE_DIALOG=0
-	fi
+	export LESS="${LESS} -R"
 fi
 
 # Invert image viewer
@@ -78,17 +92,13 @@ else
 	INVERT=
 fi
 
-# $0 [FILE] (dialog)
+# $0 [FILE]
 # Display a gopher menu for the given resource
 cat_menu() {
 	i=0
-	cat "$1" | grep "^i\|^$PREFIX" | while read ln; do
+	cat "$1" | grep "^i\|^$PREFIX" | sed 's:\\:\\\\\\\\:g' | while read ln; do
 		if echo "$ln" | grep "^i" >/dev/null 2>&1; then
-			if [ "$2" != dialog ]; then
-				echo "$ln" | sed "s:^.\([^\t]*\).*$:	\1:g"
-			else
-				echo "$ln" | sed 's:":'"''"':g;s:^.\([^\t]*\).*$:"      " "\1":g'
-			fi
+			echo "$ln" | sed "s:^.\([^\t]*\).*$:	\1:g"
 		elif echo "$ln" | grep "^$PREFIX" >/dev/null 2>&1; then
 			i=`expr $i + 1`
 			[ $i -le 9 ] && i=0$i 
@@ -104,11 +114,7 @@ cat_menu() {
 				+) typ='SVR';; # redundant server
 				*) typ='!!!';;
 			esac
-			if [ "$2" != dialog ]; then
-				echo "$ln" | sed "s:^.\\([^\t]*\\).*:$typ $i	$SL\\1$EL:g"
-			else
-				echo "$ln" | sed "s:"'"'":'':g;s:^.\\([^\t]*\\).*:"'"'"$typ $i"'"'" "'"\1"'":g"
-			fi
+			echo "$ln" | sed "s:^.\\([^\t]*\\).*:$typ $i	$SL\\1$EL:g"
 		fi
 	done
 }
@@ -132,10 +138,24 @@ finish() {
 }
 trap finish EXIT
 
-if [ $MODE = 1 ]; then
-	echo "$SELECTOR" | nc "$SERVER" "$PORT" | sed 's:\r::g' > "$tmp"
+ok=true
+if [ "$PROTOCOL" = gopher:// -o "$PROTOCOL" = "" ]; then
+	echo "$SELECTOR" | nc "$SERVER" "$PORT" > "$tmp" || ok=false
 else
-	echo "$SELECTOR" | nc "$SERVER" "$PORT" > "$tmp"
+	if wget -h >/dev/null 2>&1; then
+		wget "${PROTOCOL}$SERVER:$PORT/$SELECTOR" -O "$tmp" >/dev/null 2>&1
+	else
+		curl "${PROTOCOL}$SERVER:$PORT/$SELECTOR" > "$tmp" 2>/dev/null
+	fi
+fi
+
+if [ $ok = false ]; then
+	echo Cannot contact gopher uri "[$URI]" >&2
+	exit 2
+fi
+
+if [ $MODE = 1 ]; then
+	sed --in-place 's:\r\n:\n:g;s:\r::g' "$tmp"
 fi
 
 # Process page content
@@ -148,38 +168,19 @@ download)
 	cat "$tmp" | less
 ;;
 1|+)
-	CHOICE=start
+	CHOICE=0
 	while [ "$CHOICE" != "" ]; do
-		if [ "$USE_DIALOG" = 1 ]; then
-			> "$tmp.menu"
-			cat_menu "$tmp" dialog | while read ln; do
-				echo -n " $ln" >> "$tmp.menu"
-			done
-			[ "$LINES"   = "" ] && LINES=`tput lines`
-			[ "$COLUMNS" = "" ] && COLUMNS=`tput cols`
-			title="$SERVER: $SELECTOR"
-			dialog	--extra-button --extra-label Back \
-				--cancel-label Exit \
-				--no-shadow \
-				--menu "$title" \
-				"$LINES" "$COLUMNS" "$LINES" \
-				--file "$tmp.menu" 2>"$tmp.choice"
-			val=$?
-			clear
-			
-			if [ $val = 3 ]; then
-				CHOICE=""
-			elif [ $val = 1 ]; then
-				CHOICE="q"
-			else
-				CHOICE="`cat "$tmp.choice" | cut -c5-`"
+		cat_menu "$tmp" | less
+		read -p "[$SELECTOR]: " NEW_CHOICE
+		if [ "$NEW_CHOICE" = p ]; then
+			CHOICE=`expr "$CHOICE" - 1 2>/dev/null`
+			if [ "$CHOICE" -lt 0 ]; then
+				CHOICE=`cat "$tmp" | grep "^$PREFIX" | wc --lines`
 			fi
-			
-			rm "$tmp.menu"
-			rm "$tmp.choice"
+		elif [ "$NEW_CHOICE" = n ]; then
+			CHOICE=`expr "$CHOICE" + 1 2>/dev/null`
 		else
-			cat_menu "$tmp" | less
-			read -p "[$SELECTOR]: " CHOICE
+			CHOICE="$NEW_CHOICE"
 		fi
 		
 		[ "$CHOICE" = q ] && exit 255 # force-quit
@@ -189,8 +190,8 @@ download)
 			goto_sel="`getsel "$tmp" $index 2`"
 			goto_port="`getsel "$tmp" $index 4`"
 			goto_mode="`getsel "$tmp" $index 1 | cut -c1`"
-			echo "Digging to [$goto_server:$goto_port] [$goto_sel]..."
-			sh "$0" "$goto_server" "$goto_sel" "$goto_port" "$goto_mode"
+			echo "Digging to [$goto_server:$goto_port] $index [$goto_sel]..."
+			sh "$0" "$goto_server:$goto_port/$goto_mode/$goto_sel"
 			[ $? = 255 ] && exit 255 # force-quit
 		fi
 	done