# This is the new login.cmd 
# script for a PPP connection.
# Use this script if you are having
# problems with the other new PPP
# script, specifically if your
# modem is reporting ERROR when
# it was ok before.
#
# To install it, select Save As 
# from the netscape File menu.
# Navigate to your Trumpet 
# directory and save 
# it as login.cmd
#
#
# set up some strings for dialling up
#
if ![load $number]
  if [query $number "Enter your dial up phone number"]
    save $number
  end
end
if ![load $username]
  if [username "Enter your login username"]
    save $username
  end
end
if ![load $password]
  if [password "Enter your login password"]
    save $password
  end
end
$modemsetup = ""
$ticprompt = "press return"
$passprompt = "Password:"

%attempts = 10
#
#
#----------------------------------------------------------
#
# initialize modem
#
output "atz"\13
if ! [input 10 OK\n]
  display "Modem is not responding"\n
  abort
end
#
# setup our modem commands
#
output "at"$modemsetup\13
input 10 OK\n
#
# send phone number
#
%n = 0
repeat
  if %n = %attempts
    display "Too many dial attempts"\n
    abort
  end
  output "atdt"$number\13
  %ok = [input 60 CONNECT]
  %n = %n + 1
until %ok
#
# now prod the terminal server
#
input 30 $ticprompt
output $username\13
#
# and the password
#
input 30 $passprompt
output $password\13
#
# we are now logged in
#
if %ppp
  #
  display "PPP mode selected.  Will try to negotiate IP address."\n
  #
end
#
# now we are finished.
#