#
#                       PF - LOGIN.CMD
#
# Login-Script fuer Uni-Karlsruhe-FH Pforzheim
# geaendert: 4.3.1998 R. Bernert

#
#  Trumpet Winsock 2.1 Login.cmd
#
#  Copyright (C) 1994,1995 Peter R. Tattam & 
#  Trumpet Software International Pty Ltd (TSI)
#  All rights reserved.
#
#  Unless TSI has given prior written consent to such use, 
#  no permission is granted to distribute or otherwise make available 
#  to the public modified versions of this script for commercial purposes.  
#  Any permitted distribution of modified versions of the script must
#  retain the copyright notice at the start of this file and must clearly 
#  identify those parts of the file which have been modified.
#
#trace on
#
# set up some strings for dialling up
#
if ![load $number]
  if [query $number "Anzuwaehlende Telefonnummer eingeben"]
    save $number
  end
end
if ![load $username]
  if [username "Benutzername  fuer LOGIN (za...) eingeben"]
    save $username
  end
end
if ![load $password]
  if [password "Login-Passwort eingben"]
    save $password
  end
end
#$modemsetup = "&c1&k3"
$modemsetup = "X3"
#$prompt = ">>>"
$prompt = ">>>"
#$userprompt = "sername:"
$userprompt = "ogin:"
$passprompt = "assword:"
#$slipcmd = "cslip"
$slipcmd = "slirp"
#$addrtarg = "our address is"
$addrtarg = "Your IP is"
$pppcmd = "ppp"
$pppready = "PPP."
$hostname = "ost:"
$targethost = "lehrer1.rz.uni-karlsruhe.de"
$terminalwahl = ">>>"
$terminalnr = "4"
$hostprompt = "~ >"
%attempts = 10

###############################################
# timeouts for various sections of the script #
###############################################
#
# timeout for busy tone... adjust this until the BUSY string is detected.
#
%busytimeout = 10
#
# time between successive busy attempts.
#
%busywait = 30
#
# time to wait for a CONNECT string to be received
#
%connecttimeout = 60
#
# time to wait until DCD is detected
#
%onlinetimeout = 60
#
# time to wait for username & password prompts
#
%logintimeout = 60
#
# time to wait for server prompt to appear
#
%prompttimeout = 30
#
# time to wait for a SLIP address to be parsed
#
%addresstimeout = 30
#
#
#
#
#----------------------------------------------------------
#
# initialize modem
#
status "Modem initialisieren..."
output "atz"\13
if ! [input 5 OK\n]
  message "Modem antwortet nicht"
  abort
end
#
# setup our modem commands
#
output "at"$modemsetup\13
if ! [input 10 OK\n]
  message "Modem antwortet nicht"
  abort
end
#
# send phone number
#
%n = 0
repeat
  %n = %n + 1
  if %n > %attempts
    message "Zu viele Waehlversuche"
    abort
  end
  status Waehle $number...(Versuch %n)
  output "atdt"$number\13
  %busy = [input %busytimeout BUSY]
  if %busy
    status "Leitung belegt - kleine Pause"
    sleep %busywait
    %ok = 0
  else
    %ok = [input %connecttimeout CONNECT]
  end
until %ok
input 10 \n
#
#  wait till it's safe to send because some modem's hang up
#  if you transmit during the connection phase
#
wait %onlinetimeout dcd
status Verbindung.  Einloggen als $username...
#
# now prod the terminal server
#
#output \13
#
#  wait for the username prompt
#
#input %logintimeout $userprompt
input 30 $hostname
output $targethost\13
#
# Warten auf Username-Prompt
#
input 30 $userprompt
output $username\13
#
# Warten auf's Passwort
#
input 30 $passprompt
output $password\13

#
# and the password
#
#input %logintimeout $passprompt
#input %logintimeout $prompt
#output $password\13
#
# we are now logged in
#
status "Erfolgreich eingeloggt. Start ins Internet..."
#input %prompttimeout $prompt
#
# Starten von slirp
#
#input 30 $hostprompt
#output $slipcmd\13

if %ppp
  #
  # jump into ppp mode
  #
  output $pppcmd\13
  #
  # wait for PPP prompt.
  input %prompttimeout $pppready
  #
  display \n\n"PPP mode selected.  Will try to negotiate IP address."\n
  status "PPP mode selected.  Will try to negotiate IP address."
  sleep 1
  #
else
  #
  # jump into slip mode
  #
#  output $slipcmd\13
input 30 $terminalwahl
output $terminalnr\13
input 30 $hostprompt
output $slipcmd\13
  #
  # wait for the address string
  #
#  input %addresstimeout $addrtarg
  #
  # parse address
  #
#  address 30
#  input %addresstimeout \n
  #
  # we are now connected, logged in and in slip mode.
  #
#  display \n
#  display Connected.  Your IP address is \i.\n
#  status Connected.  Your IP address is \i.
display Connected
  sleep 1
end
#
# now we are finished.
#