[gofetch.git] / gopher.sh

#!/bin/sh

# ENV variables:
#	LINK_COLOR: escape sequences colour (def: 2)
#		- : means no escape sequence
#		1 : means colour 1
#		2 : means colour 2
#		[...]

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

# can be "-" for no escape sequences
[ "$LINK_COLOR" = ""  ] && LINK_COLOR=2

# Start and end link tags
SL=
EL=
if [ "$LINK_COLOR" != "-" ]; then
	SL="`tput setf $LINK_COLOR``tput setaf $LINK_COLOR`"
	EL="`tput init`";
fi

# $0 [FILE]
# Display a gopher menu for the given resource
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='(?)';;
				8) typ='TEL';;
				*) typ='!!!';;
			esac
			echo "$ln" | sed "s:^.\\(.*\\):$typ $i	$SL\\1$EL:g"
		#else
			# Bad line
		fi
	done
}

# $0 [FILE] [INDEX] [FIELD]
# Get a field from the given-by-index link in FILE
#
# 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 -t gofetch.current_page.XXXXXX`"
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
Commit	Line	Data
0eb21b21 NR	1	#!/bin/sh
0eb21b21 NR	2
c6852b70 NR	3	# ENV variables:
	4	# LINK_COLOR: escape sequences colour (def: 2)
	5	# - : means no escape sequence
	6	# 1 : means colour 1
	7	# 2 : means colour 2
	8	# [...]
	9
0eb21b21 NR	10	SERVER="$1"
	11	SELECTOR="$2"
	12	PORT="$3"
	13	MODE="$4"
	14
	15	# Defaults:
	16	[ "$PORT" = "" ] && PORT=70
	17	if [ "$MODE" = "" ]; then
	18	# "" or dir-like selector? -> 1 ; if not -> 0
	19	echo "$SELECTOR" \| grep "/$" >/dev/null && MODE=1 \|\| MODE=0
	20	[ "$SELECTOR" = "" ] && MODE=1
	21	fi
	22
	23	if [ "$SERVER" = "" ]; then
	24	echo "Syntax error: $0 [SERVER] ([SELECTOR]) ([PORT]) ([MODE])" >&2
	25	exit 2
	26	fi
	27
c6852b70 NR	28	# can be "-" for no escape sequences
c6852b70 NR	29	[ "$LINK_COLOR" = "" ] && LINK_COLOR=2
050494fa NR	30
	31	# Start and end link tags
	32	SL=
	33	EL=
c6852b70	34	if [ "$LINK_COLOR" != "-" ]; then
050494fa NR	35	SL="`tput setf $LINK_COLOR``tput setaf $LINK_COLOR`"
	36	EL="`tput init`";
	37	fi
	38
0eb21b21	39	# $0 [FILE]
050494fa	40	# Display a gopher menu for the given resource
0eb21b21 NR	41	cat_menu() {
	42	i=0
	43	cat "$1" \| grep '^[i0-9]' \| while read ln; do
	44	ln="`echo "$ln" \| cut -f1`"
	45	if echo "$ln" \| grep "^i" >/dev/null 2>&1; then
	46	echo "$ln" \| sed "s:^.: :g"
	47	elif echo "$ln" \| grep "^[0-9]" >/dev/null 2>&1; then
	48	i=`expr $i + 1`
	49	i=`printf %2.f $i`
	50	field="`echo "$ln" \| cut -c1`"
	51	case "$field" in
	52	0) typ='TXT';;
	53	1) typ='DIR';;
050494fa	54	7) typ='(?)';;
0eb21b21	55	8) typ='TEL';;
050494fa	56	*) typ='!!!';;
0eb21b21	57	esac
050494fa	58	echo "$ln" \| sed "s:^.\\(.*\\):$typ $i $SL\\1$EL:g"
0eb21b21 NR	59	#else
	60	# Bad line
	61	fi
	62	done
	63	}
	64
0eb21b21	65	# $0 [FILE] [INDEX] [FIELD]
050494fa NR	66	# Get a field from the given-by-index link in FILE
050494fa NR	67	#
0eb21b21 NR	68	# Fields:
	69	# 1 = type/name
	70	# 2 = selector
	71	# 3 = server
	72	# 4 = port
	73	getsel() {
	74	cat "$1" \| grep '^[0-9]' \| tail -n+"$2" \| head -n 1 \| cut -f"$3"
	75	}
	76
bb019694	77	tmp="`mktemp -t gofetch.current_page.XXXXXX`"
0eb21b21 NR	78	finish() {
	79	rm -rf "$tmp"
	80	}
	81	trap finish EXIT
	82
	83	if [ $MODE = 1 ]; then
	84	echo "$SELECTOR" \| nc "$SERVER" "$PORT" \| sed 's:\r::g' > "$tmp"
	85	else
	86	echo "$SELECTOR" \| nc "$SERVER" "$PORT" > "$tmp"
	87	fi
	88
	89	case "$MODE" in
	90	0)
	91	cat "$tmp" \| less
	92	;;
	93	1)
	94	CHOICE=start
	95	while [ "$CHOICE" != "" ]; do
	96	cat_menu "$tmp" \| less
	97	read -p "[$SELECTOR]: " CHOICE
	98	index="`expr 1 \* "$CHOICE" 2>/dev/null`"
	99	if [ "$index" != "" ]; then
	100	goto_server="`getsel "$tmp" $index 3`"
	101	goto_sel="`getsel "$tmp" $index 2`"
	102	goto_port="`getsel "$tmp" $index 4`"
	103	goto_mode="`getsel "$tmp" $index 1 \| cut -c1`"
	104	sh "$0" "$goto_server" "$goto_sel" "$goto_port" "$goto_mode"
	105	fi
	106	done
	107	;;
	108	7)
	109	read -p "Query: " SEARCH
	110	selQuery="$SELECTOR $SEARCH"
	111
	112	exec sh "$0" "$SERVER" "$selQuery" "$PORT" 1
	113	;;
	114	8)
	115	telnet -l "$SELECTOR" "$SERVER" "$PORT"
	116	read DUMMY
	117	;;
	118	9)
	119	echo "<BINARY FILE>" \| less
	120	;;
	121	*)
	122	echo "unknwon selector mode: <$MODE>" \| less
	123	exit 3
	124	;;
	125	esac