gopher.sh

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