summary: problems wi(2/3)

From: Michael Livsey (michael.livsey@canrem.com)
Date: Fri Apr 16 1993 - 09:34:48 CDT


# Process xon options.

rshopts=""
while
  found=f
  case $1 in
    -debug )
      debug=t; set -xv; found=t
      ;;
    -l )
      shift; rshopts="-l $1 $rshopts"; found=t
      ;;
    esac
  [ $found = t ]
  do shift; done

case $# in
    0|1) echo "usage: $0 [-debug] [-l logname] host cmd [args]" 1>&2; exit
1;
;
esac

host="$1"; shift
if [ ${HOSTNAME:-notset} = notset ] ; then HOSTNAME=`hostname` ; fi

command=$1; shift
if [ `basename $command` = "xterm" ]; then
# command="$command -name xterm-$host"
    command="$command -name $host"
fi
if [ $# -ge 1 ]; then
    command="$command $@"
fi

# If run on the same host as server, modify $DISPLAY for the remote host.
case X$DISPLAY in
  Xunix:* | X:* )
    DISPLAY="`echo $DISPLAY | sed \"s/^[^:]*:/${HOSTNAME}:/\"`"
    export DISPLAY
    ;;
  esac

# If run on the same host as server, allow remote host access X server.
if [ $HOSTNAME != $host ]; then
    if [ "$debug" ]; then
        xhost +$host
    else
        xhost +$host > /dev/null 2>&1
    fi
fi

if type remsh | fgrep 'not found' > /dev/null
  then rshell=rsh
  else rshell=remsh
  fi

# Do the real work using rsh.
if [ "$debug" ]; then
    echo "$0: Going to execute \"$command\" on $host."
    $rshell $host $rshopts -n /bin/csh -cf "\"setenv DISPLAY $DISPLAY;
setenv
 TERM xterm; $command\""
else
    case ${SHELL:-/bin/csh} in
      *csh )
         exec $rshell $host $rshopts -n \
         exec /bin/csh -cf "\"setenv DISPLAY $DISPLAY; setenv TERM xterm;\
                              exec $command\" < /dev/null >& /dev/null"
    ;;
      * )
         exec $rshell $host $rshopts -n \
         exec /bin/csh -cf "\"setenv DISPLAY $DISPLAY; setenv TERM xterm;\
                              exec $command\" < /dev/null > /dev/null 2>&1"
    ;;
      esac
fi

exit 0

================= XON ===============================================

<<***** Continued Next Message *****>>

---
 ~ VbReader 1.5 #12 ~ ERROR:COLDBEER.CAN not found! USER.SYS not loaded.
--
Canada Remote Systems - Toronto, Ontario
416-629-7000/629-7044



This archive was generated by hypermail 2.1.2 : Fri Sep 28 2001 - 23:07:45 CDT