appl/kx/rxtelnet.in

   1 #!/bin/sh
   2 # $Id$
   3 #
   4 usage="Usage: $0 [-l username] [-k] [-t args_to_telnet] [-x args_to_xterm] [-w term_emulator] host [port]"
   5 term=
   6 kx_args=-P
   7 while true
   8 do
   9   case $1 in
  10   -l) telnet_args="${telnet_args} -l $2 "; kx_args="${kx_args} -l $2"; title="${2}@"; shift 2;;
  11   -t) telnet_args="${telnet_args} $2 "; shift 2;;
  12   -x) xterm_args="${xterm_args} $2 "; shift 2;;
  13   -k) kx_args="${kx_args} -k"; shift;;
  14   -w) term=$2; shift 2;;
  15   -*) echo "$0: Bad option $1"; echo $usage; exit 1;;
  16   *) break;;
  17   esac
  18 done
  19 if test $# -lt 1; then
  20   echo $usage
  21   exit 1
  22 fi
  23 host=$1
  24 port=$2
  25 title="${title}${host}"
  26 bindir=%bindir%
  27 pdc_trams=`dirname $0`
  28 PATH=$pdc_trams:$bindir:$PATH
  29 export PATH
  30 set -- `kx $kx_args $host`
  31 if test $# -ne 3; then
  32   exit 1
  33 fi
  34 screen=`echo $DISPLAY | sed -ne 's/[^:]*:[0-9]*\(\.[0-9]*\)/\1/p'`
  35 pid=$1
  36 disp=${2}${screen}
  37 auth=$3
  38 oldifs=$IFS
  39 IFS=:
  40 set -- $PATH
  41 IFS=$oldifs
  42 if test -z "$term"; then
  43   for j in xterm dtterm aixterm dxterm hpterm; do
  44     for i in $*; do
  45       test -n "$i" || i="."
  46       if test -x $i/$j; then
  47         term=$j; break 2
  48       fi
  49     done
  50   done
  51 fi
  52 if test -n "$term"; then
  53   ($term -title $title -n $title $xterm_args -e env DISPLAY=$disp XAUTHORITY=$auth telnet -D $telnet_args $host $port; kill -USR2 $pid) &
  54 else
  55   env DISPLAY=$disp XAUTHORITY=$auth telnet -D $telnet_args $host $port
  56   kill -USR2 $pid
  57 fi