home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / N / DIP / _DIP.TAR / usr / doc / dip / samples / netblaz.dip < prev    next >
Encoding:
Text File  |  1995-01-13  |  1.8 KB  |  87 lines
  1. # Thank you so much for the dip script for use with a call back
  2. # system. I modified it to give me satisfaction with a Netblazer.  
  3. # Just in case you are interested I am including the one I am 
  4. # currently using.
  5. #
  6. #         Don Rozenberg   <rozen@MicroUnity.com>
  7. #----------------------------
  8. # And I've modified it a little on my own as well.
  9. # Feel free to play with "databits" and "parity"
  10. # commands, depending on whether you need 7-bit
  11. # line in order to carry the pre-SLIP dialog 
  12. # with your security system before the actual
  13. # SLIP kicks in. Of course, before issuing
  14. # "mode CSLIP", the line must be clean 8-bit.
  15.  
  16. main:
  17.     port /dev/cua1
  18.  
  19.     speed 57600
  20.     echo on
  21.     get $local  homer.microunity.com
  22.     get $remote netblazer.microunity.com
  23.     netmask 255.255.255.0
  24.     databits 7
  25.     parity   e
  26.     send ATQ0V1E1X4S0=0M1L3&H1\r
  27.     wait OK 2
  28.     if $errlvl != 0 goto error3
  29.     print
  30.     print About to dial.
  31.     dial 1-408-734-5661
  32. #    dial 734-5661
  33. #    dial 745-7283
  34.     if $errlvl != 0 goto error4
  35.     wait ere: 40
  36.     if $errlvl != 0 goto error41
  37.     send rozen-home\r
  38.     sleep 10
  39.     send ATH\r
  40.     sleep 3
  41.     wait RING 80
  42.     if $errlvl != 0 goto error5
  43.     send ATA\r
  44.     wait CONNECT 120
  45. #    wait BIS 120
  46.     if $errlvl != 0 goto error6
  47.  
  48. done:
  49. #       Now we can make the line 8-bit clean for SLIP
  50.     parity   n
  51.     databits 8
  52.     print
  53.     print Connected to $remote
  54.     get $mtu 296
  55. #    Ensure "route add net default ...." will be done    
  56.     default
  57.     mode CSLIP
  58.     goto exit
  59.  
  60. error3:
  61.     print ERROR! send send ATQ0V1E1X4S0=0M1L3&H1 failed!
  62.     quit
  63.  
  64. error4:
  65.     print ERROR! dial command failed!
  66.     quit
  67.  
  68. error41:
  69.     print ERROR! never saw the "Where" prompt
  70.     quit
  71.  
  72. error5:
  73.     print ERROR! it did not call me back!
  74.     quit
  75.  
  76. error6:
  77.     print ERROR! Attempt fo connect to $remote failed! [No CONNECT]
  78.     quit
  79.     
  80. error7:
  81.     print ERROR! Attempt fo connect to $remote failed! [No "slip"]
  82.     quit
  83.     
  84. exit:
  85.  
  86.  
  87.