:
#  Title	: Login Shell fuer einen Pseudo-User callback, 
#		  der einen Uucp-Poll zur 'artcom1' ausloest
#  Created      :       Wed, 13-Feb-91 / 09:51 / (pf)
#  Version      :       Sun, 18-Dec-94 / 08:08 / (pf,mk+)
#
# Bei SunOS ist zu beachten, da auch das Feld in /etc/uucp/Systems
# ausgewertet wird, das die Zeiten angibt, zu denen die Zielmaschine
# erreichbar ist. Steht dort 'Never', so klappt der Callback nie.
# Steht dort 'Any', kann es bei einer Fehlkonfiguration TEUER fr
# den Anwender werden.
#
SHELL=/bin/sh; export SHELL
. /bitslib/mustermann/.profile
SUPPORTMACHINE=$1
if   [ -z "$SUPPORTMACHINE" ]
then case `basename $0` in
		callback) default=artcom1
			  echo "Support Machine: [$default]\c"
			  read answer
			  [ -z "$answer" ] && answer=$default
			  SUPPORTMACHINE=$answer;;
	       callbackm) SUPPORTMACHINE=artcomm;;
	       callback4) SUPPORTMACHINE=artcom4;;
		  callb4) SUPPORTMACHINE=artcom4;;
	  callback_grlab) SUPPORTMACHINE=grlab;;
		       *) echo "Error !  Wrong link ('$0') to callback"
			  exit 1;;
     esac
fi
sOpt=ERROR
case $OS in
     SunOS) sOpt=s;;
      IRIX) sOpt=s;;
         *) sOpt=S;;
esac
# Sicherheitshalber das Statusfile killen (um Retrytime zu loeschen) :
rm -f /usr/spool/uucp/.Status/${SUPPORTMACHINE}
# In zwei Minuten einen Poll durchfuehren :
echo "/usr/lib/uucp/uucico -r1 -$sOpt${SUPPORTMACHINE} >/tmp/$SUPPORTMACHINE.callback 2>&1" | at now + 2 minutes
echo "log out now !"
exit 0 # errors ? Never ! ;-)
