home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / N / DIP / _DIP.TAR / usr / doc / dip / samples / uri-annex.dip < prev   
Encoding:
Text File  |  1995-01-13  |  3.1 KB  |  134 lines
  1. # A sample DIP script to dial into Digital Pathways
  2. # Remote Defender Validator in callback mode.
  3. #
  4. # Written by me (uri@watson.ibm.com) - but you knew THAT (:-).
  5. #
  6. # The idea in short is like this:
  7. #
  8. # 1. You dial the Defender number. It responds in
  9. #    VOICE. Most likely you won't be able to parse
  10. #    that response in software, so you pretend it
  11. #    told you to go on.
  12. # 
  13. # 2. You send a touch-tone-coded id. It again
  14. #    responds with some words, you assume it said
  15. #    you may go ahead.
  16. # 
  17. # 3. You type in your password in touch-tone. Now you
  18. #    just hope everything's fine, let it speak out 
  19. #    whatever it's about to and you hang up the
  20. #    line.
  21. # 
  22. # 4. Now you're waiting for it to call you back at the
  23. #    number stored in it's database....
  24. #
  25. # 5. OK, it did call you back. Now you got the CONNECT
  26. #    from it, a nice digital line and you acknowledge 
  27. #    it by sending "\n" up there.
  28. #
  29. # 6. It prompts you for your ID, you parse it and give
  30. #    your id (send it up). Mind you - this ID will be
  31. #    mighty different from the one you gave to the
  32. #    Defender!
  33. #
  34. # 7. From now on you assume the remote/server end will
  35. #    do it's job (i.e. configure your pre-assigned
  36. #    IP address, bring SLIP up and such). So now
  37. #    you make sure the line's 8-bit clean, and
  38. #    do "mode SLIP" yourself.
  39.  
  40. main:
  41.     port  ttyS1
  42.     speed 57600
  43.     echo on
  44.     get $local  myslip      # configure this
  45.     get $remote serverslip  # and this
  46.     netmask 255.255.255.0   # and maybe this
  47.     default                 # this?
  48.     timeout 0               # Do you want idle cutoff?
  49.  
  50.     databits 7              # To be able to talk
  51.     parity   e              # digital, needed later.
  52.  
  53.     send ATZ\r
  54. #    wait OK 2
  55. #    if $errlvl != 0 goto error1
  56.     sleep 3
  57.     send AT+FCLASS=0\r      # My crap...
  58.     wait OK 2
  59.     if $errlvl != 0 goto error2
  60.     send ATQ0V1E1X1\r
  61.     wait OK 2
  62.     if $errlvl != 0 goto error3
  63.     dial 555-1212;         # ";" because of voice response
  64.     if $errlvl != 0 goto error4
  65.     sleep 22
  66.     dial your_id;   # configure this
  67.     sleep 10
  68.     dial your_passwd;
  69.     sleep 10
  70.     send ATH\r
  71.     sleep 3
  72.     send ATZ\r
  73.     sleep 3
  74.     send AT+FCLASS=0\r
  75.     sleep 3
  76.     wait RING 80
  77.     if $errlvl != 0 goto error5
  78.     wait RING 10
  79.     if $errlvl != 0 goto error5
  80.     send ATA\r
  81.     wait CONNECT 25
  82.     if $errlvl != 0 goto error6
  83.  
  84. # We are connected.  Login to the system.
  85. login:
  86.     sleep 5
  87.     send \n         # Because it waits for "\n" to proceed
  88.     wait SLIP 25     # or wait for whatever prompt it gives 
  89.     if $errlvl != 0 goto error7
  90.     sleep 5
  91.     send uri\n       # Since you're not Uri - send whatever 
  92.                          # is appropriate for YOU.
  93.     sleep 1
  94.     parity   n     # Just as I said - establish 8-bit clean
  95.     databits 8     # line now, after all the chatting's over
  96.     sleep 3
  97.  
  98. done:
  99.     print "\n"
  100.     print Connected to $remote address
  101.     mode CSLIP
  102.     goto exit
  103.  
  104. error1:
  105.     print ERROR! send ATZ failed!
  106.     quit
  107.  
  108. error2:
  109.     print ERROR! send AT+FCLASS=0 failed!
  110.     quit
  111.  
  112. error3:
  113.     print ERROR! send ATQ0V1E1X1 failed!
  114.     quit
  115.  
  116. error4:
  117.     print ERROR! dial command failed!
  118.     quit
  119.  
  120. error5:
  121.     print ERROR! it did not call me back!
  122.     quit
  123.  
  124. error6:
  125.     print ERROR! Attempt fo connect to $remote failed! [No CONNECT]
  126.     quit
  127.     
  128. error7:
  129.     print ERROR! Attempt fo connect to $remote failed! [No "tlip"]
  130.     quit
  131.     
  132. exit:
  133.  
  134.