.key HOSTNAME/A,HOSTADDRESS/A,IPADDRESS/A,USERNAME/A,IPTYPE/A
.bra {
.ket }
.def HOSTNAME badhost
.def HOSTADDRESS 0.0.0.0
.def IPADDRESS 0.0.0.0
.def USERNAME noname
.def IPTYPE cslip0

; 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/cslip0.config serial.device 0 19200 {IPADDRESS} MTU=576 7WIRE
;echo >env:sana2/slip0.config serial.device 0 19200 {IPADDRESS} MTU=576 7WIRE
;echo >env:sana2/ppp0.config serial.device 0 19200 {IPADDRESS} MTU=576 7WIRE
echo >env:sana2/{IPTYPE}.config serial.device 0 19200 {IPADDRESS} MTU=576 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

;todle byl oroginalni radek vracejici neco jako - slip4.ms.mff.cuni.cz
;setenv HOSTNAME `AmiTCP:bin/hostname`
setenv HOSTNAME amiga500.cz
echo Hostname Assigned

Assign TCP: Exists >NIL:
echo TCP Assigned

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

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

;starting SMTP daemon
run <>nil: SMTPd

endcli