6b16f264bed62a596d1feefe2f826639f0e0cab7
[gofetch.git] / gopher.sh
1 #!/bin/sh
2
3 # $0 [server] ([selector]) ([port]) ([mode])
4 # server: the gopher server to dig to
5 # selector: the gopher selector (default is empty)
6 # port: the port to use (default is 70)
7 # mode: the filetype mode (default depends upon selector)
8 # 0: plain text
9 # 1: menu (dir-like)
10 # ...
11 # download: fake mode to download the result without changes
12
13 # ENV variables:
14 # LESS: will be used with 'less' (think: "export LESS=-r")
15 # LINK_COLOR: escape sequences colour (def: 2)
16 # - : means no escape sequence
17 # 1 : means colour 1
18 # 2 : means colour 2
19 # [...]
20
21 SERVER="$1"
22 SELECTOR="$2"
23 PORT="$3"
24 MODE="$4"
25
26 # Defaults:
27 [ "$PORT" = "" ] && PORT=70
28 if [ "$MODE" = "" ]; then
29 # "" or dir-like selector? -> 1 ; if not -> 0
30 echo "$SELECTOR" | grep "/$" >/dev/null && MODE=1 || MODE=0
31 [ "$SELECTOR" = "" ] && MODE=1
32 fi
33
34 if [ "$SERVER" = "" ]; then
35 echo "Syntax error: $0 [SERVER] ([SELECTOR]) ([PORT]) ([MODE])" >&2
36 exit 2
37 fi
38
39 # can be "-" for no escape sequences
40 [ "$LINK_COLOR" = "" ] && LINK_COLOR=2
41
42 # Start and end link tags
43 SL=
44 EL=
45 if [ "$LINK_COLOR" != "-" ]; then
46 SL="`tput setf $LINK_COLOR``tput setaf $LINK_COLOR`"
47 EL="`tput init`";
48 fi
49
50 PREFIX="[0-9h]"
51
52 # $0 [FILE]
53 # Display a gopher menu for the given resource
54 cat_menu() {
55 i=0
56 cat "$1" | grep "^i\|^$PREFIX" | while read ln; do
57 ln="`echo "$ln" | cut -f1`"
58 if echo "$ln" | grep "^i" >/dev/null 2>&1; then
59 echo "$ln" | sed "s:^.: :g"
60 elif echo "$ln" | grep "^$PREFIX" >/dev/null 2>&1; then
61 i=`expr $i + 1`
62 i=`printf %2.f $i`
63 field="`echo "$ln" | cut -c1`"
64 case "$field" in
65 0) typ='TXT';;
66 1) typ='DIR';; # menu, actually
67 7) typ='(?)';; # query
68 8) typ='TEL';; # TELnet (not TELephone)
69 h) typ='WEB';; # HTML
70 g) typ='GIF';;
71 I) typ='IMG';;
72 +) typ='SVR';; # redundant server
73 *) typ='!!!';;
74 esac
75 echo "$ln" | sed "s:^.\\(.*\\):$typ $i $SL\\1$EL:g"
76 #else
77 # Bad line
78 fi
79 done
80 }
81
82 # $0 [FILE] [INDEX] [FIELD]
83 # Get a field from the given-by-index link in FILE
84 #
85 # Fields:
86 # 1 = type/name
87 # 2 = selector
88 # 3 = server
89 # 4 = port
90 getsel() {
91 cat "$1" | grep "^$PREFIX" | tail -n+"$2" | head -n 1 | cut -f"$3"
92 }
93
94 # Save page content to 'tmp' file
95 tmp="`mktemp -t gofetch.current_page.XXXXXX`"
96 finish() {
97 rm -rf "$tmp" "$tmp.jpg"
98 }
99 trap finish EXIT
100
101 if [ $MODE = 1 ]; then
102 echo "$SELECTOR" | nc "$SERVER" "$PORT" | sed 's:\r::g' > "$tmp"
103 else
104 echo "$SELECTOR" | nc "$SERVER" "$PORT" > "$tmp"
105 fi
106
107 # Process page content
108 case "$MODE" in
109 download)
110 # Special, fake mode, only from top-level
111 cat "$tmp"
112 ;;
113 0)
114 cat "$tmp" | less
115 ;;
116 1)
117 CHOICE=start
118 while [ "$CHOICE" != "" ]; do
119 cat_menu "$tmp" | less
120 read -p "[$SELECTOR]: " CHOICE
121 index="`expr 1 \* "$CHOICE" 2>/dev/null`"
122 if [ "$index" != "" ]; then
123 goto_server="`getsel "$tmp" $index 3`"
124 goto_sel="`getsel "$tmp" $index 2`"
125 goto_port="`getsel "$tmp" $index 4`"
126 goto_mode="`getsel "$tmp" $index 1 | cut -c1`"
127 sh "$0" "$goto_server" "$goto_sel" "$goto_port" "$goto_mode"
128 fi
129 done
130 ;;
131 7)
132 read -p "Query: " SEARCH
133 selQuery="$SELECTOR $SEARCH"
134
135 exec sh "$0" "$SERVER" "$selQuery" "$PORT" 1
136 ;;
137 8)
138 telnet -l "$SELECTOR" "$SERVER" "$PORT"
139 read DUMMY
140 ;;
141 9)
142 echo "<BINARY FILE>" | less
143 ;;
144 g|I)
145 if convert -h >/dev/null 2>&1; then
146 if jp2a -h >/dev/null 2>&1; then
147 convert "$tmp" "$tmp.jpg"
148 # not supported: --chars=" ░▒▓█"
149 jp2a --border --colors --chars=" .-+=o8#"\
150 --width=74 "$tmp.jpg" | less
151 else
152 echo "required program not found to view images: jp2a" \
153 | less
154 fi
155 else
156 echo "required program not found to view images: convert" \
157 | less
158 fi
159 ;;
160 *)
161 echo "unknwon selector mode: <$MODE>" | less
162 exit 3
163 ;;
164 esac