home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer 4.11
/
1999-05_Disc_4.11.bin
/
ELINK
/
CONFIG
/
ELN950.CAB
/
SLIP.SCP
< prev
next >
Wrap
Text File
|
1995-12-31
|
2KB
|
120 lines
;
; This is a script file that demonstrates how
; to establish a slip connection with a host.
;
; A script file must have a 'main' procedure.
; All script execution starts with this 'main'
; procedure.
;
; Main entry point to script
;
proc main
; Change these variables to customize for your
; specific Internet service provider.
integer nTries = 3
; This is the login prompt and timeout values
string szLogin = "Userid:"
integer nLoginTimeout = 3
; This is the password prompt and timeout values
string szPW = "Password?"
integer nPWTimeout = 3
; This is the prompt once your password is verified
string szPrompt = "InternetLR/E>"
; This is the command to send to establish the
; connection. This script assumes you only need
; to issue one command to continue. Feel free
; to add more commands if your provider requires
; it.
string szConnect = "slip^M"
; Set this to FALSE if you don't want to get an IP
; address
boolean bUseSlip = TRUE
; Delay for 2 seconds first to make sure the
; host doesn't get confused when we send the
; two carriage-returns.
delay 2
transmit "^M^M"
; Attempt to login at most 'nTries' times
while 0 < nTries do
; Wait for the login prompt before entering
; the user ID, timeout after x seconds
waitfor szLogin then DoLogin
until nLoginTimeout
TryAgain:
transmit "^M" ; ping
nTries = nTries - 1
endwhile
goto BailOut
DoLogin:
; Enter user ID
transmit $USERID, raw
transmit "^M"
; Wait for the password prompt
waitfor szPW until nPWTimeout
if FALSE == $SUCCESS then
goto TryAgain
endif
; Send the password
transmit $PASSWORD, raw
transmit "^M"
; Wait for the prompt
waitfor szPrompt
transmit szConnect
if bUseSlip then
; An alternative to the following line is
;
; waitfor "Your address is "
; set ipaddr getip
;
; if we don't know the order of the IP addresses.
set ipaddr getip 2
endif
goto Done
BailOut:
; Something isn't responding. Halt the script
; and let the user handle it manually.
set screen keyboard on
halt
Done:
endproc