; ~jhs/bin/kermit.isp.common --> personal/kermit.isp.common
;	by Julian H. Stacey
; DO NOT EDIT kermit.isp.gate & kermit.isp.desk
; as they are produced via Makefile & le

; Warning: There's a timing problem to be aware of:
; kermit takes time to process all these lines with semi colons (;)
; so if you remove a load of comments the script will run faster,
; and you may need to add a sleep instead !

run ls -l	/var/log/slip/ibm/debugging.log
log debugging	/var/log/slip/ibm/debugging.log

run ls -l	/var/log/slip/ibm/session.log
log session	/var/log/slip/ibm/session.log

echo \13
echo kermit.isp.common --> ../../../private/bin/kermit.isp.private \13
take ../../../private/bin/kermit.isp.private
; ../../../private/bin/kermit.isp.private contains assigns such as:
;	assign \%n 123456
;	assign \%u username
;	assign \%v pass1
;	assign \%w pass2
echo ../../../private/bin/kermit.isp.private --> kermit.isp.common\13
; echo Dial Number \%n x \\%n xx %n\13
; echo Login and 2 passwords: \%u \%v \%w\13

set line /dev/cuaa1
assign \%s 57600
set speed \%s
set flow rts/cts

output ate1\13
input 2 OK
if failure goto failed

; For log file, so we know which modem was last used etc.
output ati3\13
; Escom
;	AT-1496SA-EUR 06/01/1993 FOR GERMANY

input 2 OK
if failure goto failed

output atz\13
input 2 OK
if failure goto failed
sleep 2

; Initialise
; for escom white, works for slip downloads, but not uploads
clear

;	White Escom does not allow &f2
output at&f\13
input 2 OK
if failure goto failed

output ate0\13
input 2 OK
if failure goto failed

output at&k3\13
input 2 OK
if failure goto failed

; causes kermit to stop talking to the modem
; output at\\n3\13
; input 2 OK
; if failure goto failed

output atw0\13
input 2 OK
if failure goto failed

output at\\q3\13
input 2 OK
if failure goto failed

output atm1\13
input 2 OK
if failure goto failed

; white escom does not allow atn	(redial is regulated for german modems)

output atl1\13
input 2 OK
if failure goto failed

output at&c0\13
input 2 OK
if failure goto failed

output at&d0\13
input 2 OK
if failure goto failed
; white escom does not allow at&q	(in supra it asserts async reliable)

output at&t5\13
input 2 OK
if failure goto failed

; %G rate renogiation is done by supra but not discovery & white escom

output ats2=43\13
input 2 OK
if failure goto failed

output ats10=254\13
input 2 OK
if failure goto failed

output ats12=50\13
input 2 OK
if failure goto failed

output ats37=0\13
input 2 OK
if failure goto failed

output at&w0\13
input 2 OK
if failure goto failed

; output at&w1\13
; input 2 OK
; if failure goto failed

; escom white fails to hold line after saying INTERNET \13at&f2e0b0l2m1n1&c1&d2&q5&q9&t5%g1s2=43s10=254s12=50s37=0&w1\13

output atdt\%n\13
; Example output atdt123456\13
; sja prefixes 089 even though he's in Munich call area, to get better line.

minput 60 {CONNECT 14400/V42BIS} {CONNECT 14400} {CONNECT \%s}
if failure goto failed

;	&	(single char, no return must be issued within about 3 seconds)
output &
;		Enter dial script version ==>
input 20 ersion ==>
if failure goto failed
echo 1.1\13
output 1.1\13

;		Enter Service ==>
input 5 ervice ==>
if failure goto failed
echo INTERNET\13
output INTERNET\13

;		Enter account userID password [/new_password]==>
;		Enter Account UserId Password ==>
input 5 ==>
if failure goto failed

echo \10 Emiting Login and 2 passwords
; It accepts both upper & lower case.

; output u1234 p1234 p5678\13
output \%u \%v \%w\13

;		139.92.18.170 is your IP Address
input 60 ddress
if failure goto failed2

; \Feval(expr)        evaluate arithmetic expression
; \Findex(a1,a2,a3)   position of string a2 in a1, starting at pos a3
; the above description of findex comes from man kermit from cku190.tar.gz )
;	HOWEVER the above doesnt work, whereas sja's order does !
;	assign \%o \Findex(139,\v(input),1)
; \Fsubstr(a1,a2,a3)  substring of a1, starts at a2, length a3

; clear	; try this next
assign \%o \Findex(139,\v(input),0)
echo \10
; echo JHS 139 is at \%o in buffer
assign \%x \Findex(\32,\v(input),\%o)
; echo JHS space is at \%x
assign \%m \Feval(\%x-\%o)
; echo JHS address string length is \%m
assign \%a \Fsubstr(\v(input),\%o,\%m)
; echo JHS Your Local Address is \%a
assign \%l \%a

clear
;	139.92.18.170	(return your dynamically assigned local address)
output \%a\13

input 60 ddress
if failure goto failed2

;		152.158.16.43 is your Destination Address
assign \%o \Findex(152,\v(input),0)
echo \10
; echo JHS 152 is at \%o in buffer
assign \%x \Findex(\32,\v(input),\%o)
; echo JHS space is at \%x
assign \%m \Feval(\%x-\%o)
; echo JHS address string length is \%m
assign \%a \Fsubstr(\v(input),\%o,\%m)
; echo JHS Destination Remote Address is \%a
assign \%r \%a

;	slattach -h -s 57600 /dev/cuaa1
;	ifconfig sl0  139.92.18.170  152.158.16.43  up
;	route add default 152.158.16.43

; maybe next bits will fail on exclusive open

echo Now running	slattach -h -s \%s /dev/cuaa1
; -h	Turn on cts/rts, else by default none.
run	slattach -h -s \%s /dev/cuaa1

echo Now running	ifconfig sl0 \%l \%r up
run	ifconfig sl0 \%l \%r up

; echo Now running	route add default \%r
run	route add default \%r
echo Calling: ~jhs/bin/.sh/net
run ~jhs/bin/.sh/net

goto end

;		Begin TCP/IP communication now.
input 10 TCP
if failure goto failed

:FAILED
echo Connection failed
goto end

:FAILED2
reinput 1 ailable
if failure goto failed
echo \13No IP addresses are available\13
echo Why can't it tell you before it's cost a unit ?
goto end

:END
quit