.key DEBUG/S,PROVIDER/K,SCRIPT/K,NOSRV/S,BOOTPOPTIONS/F
.bra {
.ket }
;
; use profile made by AmiTCP Prefs by default
.def PROVIDER "ENV:NetConfig/Provider.conf"
; the default dial script
.def SCRIPT "AmiTCP:db/Dialscript"
;
; AmiTCP/IP DialUp 4.5 NetConnect version startnet script
;
; Copyright  1996 AmiTCP/IP Group,
;                  NSDi - Network Solutions Development Inc., Finland
;                  All rights reserved.
;
; *NOTE*  YOU SHOULD NOT NEED TO EDIT ANYTHING BELOW. IF YOU NEED TO START
; *NOTE*  UTILITIES, DO IT IN THE ENV:NetConfig/User-Startnet.
; *NOTE*  YOU CAN STOP THESE UTILITIES IN ENV:NetConfig/User-Stopnet.
;
; Set the failat level so that the errors can be handled by the script
FailAt 21

If NOT Exists {PROVIDER}
  Echo AmiTCP/IP is not configured
  Echo Starting the configuration tool...
  Run >nil: <nil: NetConnect:AmiTCPPrefs
  Quit 20
EndIf

Version bsdsocket.library >nil:
If Warn
  If X EQ "X{DEBUG}"
    Run >nil: <nil: AmiTCP:bin/AmiTCP.kernel {DEBUG}
  Else
    Run AmiTCP:AmiTCP {DEBUG}
  EndIf
EndIf

AmiTCP:bin/WaitForPort AMITCP
If NOT Warn
  ; Log in with the default user name (nobody)
  AmiTCP:bin/login -f dolphin
  ; Configure AmiTCP
  AmiTCP:bin/bootpconfig PROVIDERFILE={PROVIDER} DIALSCRIPT={SCRIPT} {DEBUG} {BOOTPOPTIONS}
  If NOT Warn
    ;
    ; Mount TCP:
    ;
    Assign TCP: Exists >NIL:
    IF Warn
      Mount TCP: from AmiTCP:devs/Inet-Mountlist
    EndIf
    ;
    ; Start inetd if needed
    ;
    If X EQ "X{NOSRV}"
      If X EQ "X{DEBUG}"
        Run <NIL: >NIL: AmiTCP:bin/inetd
      Else
        Run AmiTCP:bin/inetd {DEBUG}
      EndIf
    EndIf
    ;
    ; Start utilities in ENV:NetConfig/User-Startnet
    ;
    If Exists ENV:NetConfig/User-Startnet
      Execute ENV:NetConfig/User-Startnet
    EndIf
    ;
    ; Successfull end
    ;
    Echo AmiTCP/IP DialUp 4.5 is now on-line. Your host name is $HOSTNAME.
  Else
    Echo AmiTCP/IP DialUp configuration failed!
  EndIf
Else
  Echo AmiTCP/IP DialUp couldn't be started!
EndIf

; Ask NetConnect to reload the interface
; (and change the state of the start/stop button
Rx >Nil: "address NETCONNECT; refresh"

; EOF
