home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / BLST10_2.ZIP / SAMPLES / MCI.SCR < prev    next >
Encoding:
Text File  |  1990-09-19  |  3.9 KB  |  105 lines
  1. #:
  2. #:MCI
  3. .LOGON
  4. ##################################  MCI  ######################################
  5. #
  6. #  This MCI script will connect and log a user in to MCI either directly or
  7. #  via Tymnet.  It will detect the network you are calling, an MCI direct
  8. #  connection or through Tymnet.  The automatic login process is dependent 
  9. #  on the userid and password of the current set up file, if either of these 
  10. #  are null the script will return control to the user to complete the log
  11. #  in manually.  Hint: watch out for blank characters in these fields.
  12. #
  13. #  You may incorporate this script into the systems.scr script, use it as a 
  14. #  stand alone systems script or as a regular script.  If you choose to insert
  15. #  this script into systems.scr you must make three modifications.  When the
  16. #  systems.scr (or modems.scr) files are indexed our index utility is looking
  17. #  specifically for colons; therefore, the # must be deleted from the first
  18. #  two lines and from the last line of this file.  Once these items have been
  19. #  changed, copy this script into systems.scr and re-index (See the Users 
  20. #  manual for instructions on the index utility).
  21. #
  22. ###############################################################################
  23. #
  24. #
  25. connect                               # make the connection    
  26. if @status not = "0"                  # if no connection - return with error
  27.    write "connection not estabished"
  28.    write "MCI SCRIPT ABORTED"
  29.    return 1
  30.    end
  31. reps 4                                # try four times
  32. ttrap 2,"second wait"
  33. #
  34. #
  35. .begin                                # try and detect MCI or Tymnet
  36. tsend cr
  37. ttrap 8,"your user name:","identifier","in:","type user name:"
  38. if @status = "2"                      # tymnet detected
  39.    tsend "a"
  40.    goto .begin
  41.    end
  42. if @status = "1"  goto .mci           # MCI direct connect detected
  43. if @status = "0"                      # if nothing was recognized
  44.    if reps                            #    and reps try again
  45.       goto .begin
  46.       end                         
  47.    write "could not obtain service"   # else
  48.    write "MCI SCRIPT ABORTED"         #    write an error message
  49.    return 1                           #    return with error
  50.    end
  51. #
  52. #
  53. .tymnet                               # Tymnet detected
  54. tsend "mcimail",cr                    # send log on to MCI
  55. ttrap 8,"in:","type user name:","your user name:"
  56. if @status = "1" or @status = "2"  goto .tymnet
  57. if @status = "0"                      # if nothing was recognized
  58.    if reps                            #    and reps try again
  59.       goto .tymnet
  60.       end                         
  61.    write "could't get MCI via Tymnet" # else
  62.    write "MCI SCRIPT ABORTED"         #    write an error message
  63.    return 1                           #    return with error
  64.    end
  65. #
  66. #
  67. .mci                                  # At MCI
  68. if @userid = ""  return 0
  69. tsend @userid                         # send user ID
  70. .log_in
  71. tsend cr
  72. ttrap 5,"Password:","your user name:","initiated"
  73. if @status = "1"
  74.    if @password = ""  return 0
  75.    tsend @password                    # send password
  76.    goto .log_in
  77.    end
  78. if @status = "2" and reps  goto .mci  # try again
  79. if @status = "3" return 0             # ok, return
  80. if @status = "0"                      # if nothing was recognized
  81.    if reps                            #    and reps try again
  82.       goto .log_in
  83.       end                         
  84.    write "could not log in to MCI"    # else
  85.    write "MCI SCRIPT ABORTED"         #    write an error message
  86.    return 1                           #    return with error
  87.    end
  88. return 1
  89. #
  90. #
  91. .LOGOFF
  92.  tsend "exit",cr
  93.  ttrap 30, "in:"," name","NO CARRIER"
  94.  if @status = "0"  return 1
  95.  return 0
  96. .UPLOAD
  97.  write "Uploads not available on MCI with this system script"
  98.  return 0
  99. .TRANSFER
  100.  write "Filetransfer not available on MCI with this system script"
  101.  return 0
  102. .END
  103. #:
  104.  
  105.