.key HOSTNAME/A,HOSTADDRESS/A,IPADDRESS/A,USERNAME/A,IPTYPE/A,MODSPEED/A
.bra {
.ket }

; log in

echo
echo login: {USERNAME} : {IPADDRESS} at {HOSTNAME} : {HOSTADDRESS} using {IPTYPE}
echo

; AmiTCP:bin/login -f {USERNAME}
AmiTCP:bin/umask 022

AmiTCP:AmiTCP

WaitForPort AMITCP

; Configure loop-back device
AmiTCP:bin/ifconfig lo0 localhost

; Assure that ENV:Sana2 exists
if not exists ENV:Sana2
  makedir ENV:Sana2
endif

; Create cslip0 configuration file
echo >env:sana2/{IPTYPE}.config serial.device 0 {MODSPEED} {IPADDRESS} MTU=1500 7WIRE

; Configure cslip0
AmiTCP:bin/ifconfig {IPTYPE} {IPADDRESS} {HOSTADDRESS}

; Add route to this host
AmiTCP:bin/route add {IPADDRESS} localhost
AmiTCP:bin/route add {HOSTADDRESS} {HOSTNAME}

; Add route to the default gateway
AmiTCP:bin/route add default {HOSTADDRESS}
echo Routing Completed

setenv HOSTNAME `AmiTCP:bin/hostname`
echo Hostname Assigned

Assign TCP: Exists >NIL:
echo TCP Assigned_________________Now Click the close gadget

IF Warn
  echo mounting TCP:
  Mount TCP: from AmiTCP:devs/Inet-Mountlist
EndIf

;echo Start the internet `super server'
;run AmiTCP:bin/inetd >NIL:

endcli