; Custom StartNET for Stone-D's TCPUtils.rexx
; Change the path on the FIRST ASSIGN to where your AmiTCP program is.
; EMail me at Stone-D@eldar.demon.co.uk concerning problems.
; TCPFront Now caters for both PPP and SLIP (Which is CSLIP too of course)
;
;
;
;Start of Script

; Environment variables : You _MUST_ change these

setenv MYIP              158.152.157.250                ;*Needed only for SLIP*
setenv MYDEV             Devs:NetWorks/gwcslip.device   ;*Needed only for SLIP*
setenv MYIF              cslip0       ; Interface Name,  *Needed only for SLIP*
setenv MYHOST            158.152.1.65
setenv NODENAME		 eldar
setenv HOST		 eldar.demon.co.uk
setenv USER		 Stone-D
setenv HOSTNAME		 eldar.demon.co.uk
setenv DOMAINNAME	 .demon.co.uk
setenv REALNAME		 Laga M Hale
setenv ORGANIZATION	 StoneD Software
setenv NEWSSERVER	 news.demon.co.uk
setenv TIN_POST		 AmiTCP:bin/PostNews %s
setenv TIN_MAIL		 AmiTCP:bin/SendMail
IF NOT EXISTS ENV:Sana2
	makedir ENV:Sana2
EndIF

; NOTE : cslip0.config
SetENV SANA2/ppp0.config "dialer.device 0 19200 0.0.0.0 7WIRE MTU=1500 CD"
SetENV SANA2/cslip0.config "serial.device 0 19200 0.0.0.0 MTU=1006 7WIRE"

;Note : The following is needed to configure socket.library correctly, so that
;       programs like ConnectThor (in THOR Package) and Grapevine IRC work.
;       Not all programs need this, just some. And you gotta set it up right. :)
;       socket.library is not included in the AmiTCP distribution.
;       The library should be in AmiTCP:libs/socket.library, so go look. :)

setenv SOCKETCONFIG "UID=100 GID=200 USER=Stone-D DOMAIN=demon.co.uk UMASK=002"

;End socket config

Assign AmiTCP: 		Programs:Comms/AmiTCP

Assign INet:		AmiTCP:
IF NOT EXISTS AmiTCP:usr
 makedir AmiTCP:Usr
 makedir AmiTCP:Usr/spool
 makedir AmiTCP:Usr/news
 makedir AmiTCP:Usr/mail
 makedir AmiTCP:Usr/lib
 if exists ENV:USER
  makedir AmiTCP:usr/$user
 endif
endif
Assign usr:		AmiTCP:usr
Assign uumail:		usr:mail
Assign uulib:		usr:lib
Assign uuspool:		usr:spool
Assign uunews:		usr:news
Assign etc:		AmiTCP:db
Assign home:            Usr:$user
path AmiTCP:bin INet: usr: uumail: uulib: uuspool: uunews: etc: add
Assign APIPE: Exists > NIL:
IF Warn
  Mount APIPE: from AmiTCP:devs/APipe-Mountlist
EndIf

; Script Proper

cd AmiTCP:bin
run >NIL: AmiTCP:AmiTCP
Wait 1
amitcp:bin/ifconfig lo0 localhost
Assign >NIL: TCP: exists
if WARN
    mount TCP: from AmiTCP:devs/INet-MountList
endif
run >nil: inetd;
login -f $user >NIL: