Re: DIP Script

[Rafael Perez Pascual <perezp en sc7 ifisicacu unam mx>]

On Tue, 21 Dec 1999, David Mendez wrote:

> Alguno de ustedes tendra un script para DIP en el cual
> me pueda conectar a red UNAM, se los agradezco de
> antemano.
> 
> Gracias

Este script me ha funcionado muy bien, espero te sea util
Debes quitar los comentarios # AQUI PON ...

Rafael Perez Pascual

main:
  get $rmtip 132.248.28.13
  port /dev/modem
  speed 38400
  get $mtu 1500
  init ATZ
  reset
  if $errlvl != 0 goto error
  get $try 0

dial:
  inc $try
  print Dialing... $try try.
  dial 54471499             #OJO AQUI EL NUMERO QUE USES 

  if $errlvl == 3 goto busy
  if $errlvl == 4 goto nocar
  if $errlvl == 1 goto connect
  if $errlvl == 2 goto error
  if $errlvl == 5 goto notone
  goto error

connect:
  print Connected... Loging in.
  send \r\n
  if $errlvl != 0 goto error1
  wait ame: 30
  if $errlvl != 0 goto error2
  send ******\r\n             #OJO AQUI PON EN VEZ DE ****** TU USERNAME
#  if $errlvl != 0 goto error3
  wait ord: 40
  if $errlvl != 0 goto error4
 # sleep 10
  send ******\r\n             #OJO AQUI PON EN VEZ DE ****** TU PASSWORD
  if $errlvl != 0 goto error5
  wait ER> 30
  if $errlvl != 0 goto error6
  print Loged in... Entering SLIP mode.
  send slip\r\n
  if $errlvl != 0 goto error7
  wait Your\sIP\saddress\sis  10
  get $locip remote 10
  if $errlvl != 0 goto error8
  default
  print CONNECTED $locip ---> $rmtip
  mode SLIP
  exit

busy:
  print Busy... 
  if $try == 10 goto notry
  goto dial

nocar:
  print No Carrier...
  if $try == 10 goto notry
  goto dial

notone:
  print The modem did not receive a dialing tone.
  print Please check that the line is properly connected.
  print Exiting...
  exit

notry:
  print To many dialing attempts.
  print Exiting...
  exit

error1:
  print An unexpected error occured while establishing the connection.
  print Please try again.
  exit

error2:
  print error2.
  exit

error3:
  print error3.
  exit

error4:
  print error4.
  exit

error5:
  print error5.
  exit

error6:
  print error6.
  exit

error7:
  print error7.
  exit

error8: 
  print error8.
  exit