home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / BLST10_2.ZIP / SAMPLES / EXAMPLE.SYS < prev    next >
Encoding:
Text File  |  1990-09-13  |  18.7 KB  |  541 lines
  1. :
  2. ##############################################################################
  3. #
  4. # Example system script using Digital Equipment Corp (DEC) VAX VMS as basis
  5. #
  6. # Areas that will often be customized are indicated by a comment of the form:
  7. #
  8. #-------------------------------------------------------------------------------
  9. # Description of what follows
  10. #-------------------------------------------------------------------------------
  11. #
  12. # Structure of a system script
  13. #                 
  14. #    1) Optional comments --    any comments preceding the index tag start with a
  15. #                            colon (:) on a line by itself.  This tells the
  16. #                            index program to keep these lines.  If it is
  17. #                            omitted, the leading comments will be lost during
  18. #                            the indexing process.
  19. #    2) Index tag ----------    A colon (:) followed by up to eight charaters.
  20. #                            This is the name to use in the System Type field
  21. #                            of the Setup.  System Type ignores the case of the
  22. #                            entries in the systems.scr index.
  23. #    3) Entry points    -------    Each entry point returns 0 if successful.
  24. #                            Unsuccessful results are indicated by returning
  25. #                            1 of not running AutoPoll, -2 for .LOGON & .LOGOFF
  26. #                            and -3 for .TRANSFER when running AutoPoll.
  27. #                            Four entry points are required in a system script:
  28. #                            .LOGON ----    Generally, .LOGON sends a USERID and
  29. #                                        PASSWORD in response to the operating
  30. #                                        system's prompts.  This section should
  31. #                                        also be used to "navigate" through any
  32. #                                        data security devices or network con-
  33. #                                        nections.  AutoPoll uses line 12 of the
  34. #                                        display for logon messages.  
  35. #                            .LOGOFF ---    Used to terminate a user session on the
  36. #                                        called computer.  This section is
  37. #                                        called prior to instructing the modem
  38. #                                        to hang up.  AutoPoll uses line 14 of
  39. #                                        the display for logoff messages.
  40. #                            .UPLOAD ---    Performs the non-error-checked upload of
  41. #                                        a text file. This is often referred to 
  42. #                                        as an "ASCII upload".  AutoPoll does not
  43. #                                        support the UPLOAD function.
  44. #                            .TRANSFER -    Starts BLAST on the remote computer.
  45. #                                        AutoPoll uses line 13 of the display
  46. #                                        for File Transfer messages.
  47. #    4) Terminator ---------    The label ".END".
  48. #
  49. ##############################################################################
  50. #
  51. #-------------------------------------------------------------------------------
  52. # Index tag (change this to the name you want to use in the System Type field) 
  53. #-------------------------------------------------------------------------------
  54. :Custom
  55. #########################################
  56. #                                        #
  57. # LOGON                                    #
  58. #                                        #
  59. #########################################
  60. .LOGON
  61.     if not null @USERID goto .LOG10        # Make sure that there is a USERID
  62.     if @SCRFILE not = "AutoPoll"        # Only ask the user if not in AutoPoll
  63.         ask "enter account", @USERID
  64.         if null @USERID return 0        # Return success if user insists on no USERID
  65.         goto .LOG10                        # Otherwise, continue with LOGON
  66.     end
  67. #
  68. # AutoPoll Status file update
  69. #
  70.         # Each "log" line in the status file is preceded by 18 spaces
  71.         # Informational messages should have a "*" in the 19th position
  72.         # Error messages should have ">>" in the 19th and 20th positions
  73.     fwrite 4, "                  >> CHECK SETUP FILE (",@su_fil,") - No USERID specified"
  74. #
  75. # AutoPoll Screen display
  76. #
  77. # @USERIF tracks the setting of the "/n" (no display) command line option
  78. # If /n was used, @USERIF = "0".  Otherwise it is "1".
  79. # If the USER InterFace is active (= "1") update the status display.
  80. #
  81.     if @USERIF = "1"
  82.         set @SCRLREG = "1"                # Turn on the scrolling region
  83. #
  84. # The next two commands (with varying row and column numbers) must occur after
  85. # each time you enable the scrolling region.  This will maintain compatibility
  86. # with certain version of BLAST that fail to position the cursor properly
  87. # immediately after turning on the scrolling region.  Always use the position
  88. # of the "real" string location and always use " " as the string to put.
  89. #
  90.         cursor 12,0                        # Position the cursor
  91.         put " "                            # Display "nothing" there
  92. #
  93. # The next 4 lines update the online status display.
  94. # Columns 0-2 contain either "-->" or "   " to indicate that the task on that
  95. # line is in process or done, respectivley.  Column 3 remains blank until the
  96. # task is done.  It is changed to a "*" if the task was successful, "X" if not.
  97. # The status message area starts in column 15 and extends thru column 79.
  98. #
  99.         cursor 12,0                        # In this case the task failed...
  100.         put "   X"                        # so replace the "--> " with "   X"
  101.         cursor 12,15                    # and add the error message text
  102.         put "SETUP FILE ",@su_fil," - No USERID specified"
  103.         cleol                            # and clean up the rest of the line.
  104.         set @SCRLREG = "0"                # Done, turn scrolling region off.
  105.     end
  106.     return -2                            # Return -2, to indicate logon failed.
  107. #
  108. # Comes here if there is a USERID
  109. #
  110. .LOG10
  111.     if not null @PASSWORD goto .LOG15    # Go on, if the PASSWORD is filled in
  112.     if @SCRFILE not = "AutoPoll"        # If not running AutoPoll, ask for one
  113.         ask noecho "enter password", @PASSWORD
  114.         if null @PASSWORD return 0        # If user insists on none, return success
  115.         goto .LOG15
  116.     end
  117. #
  118. # AutoPoll Status file update
  119. #
  120.     fwrite 4, "                  >> CHECK SETUP FILE (",@su_fil,") - No PASSWORD specified"
  121. #
  122. # AutoPoll Screen display
  123. #
  124.     if @USERIF = "1"
  125.         set @SCRLREG = "1"
  126.         cursor 12,0
  127.         put " "
  128.         cursor 12,0
  129.         put "   X"
  130.         cursor 12,15
  131.         put "SETUP FILE ",@su_fil," - No PASSWORD specified"
  132.         cleol
  133.         set @SCRLREG = "0"
  134.     end
  135.     return -2
  136. .LOG15
  137. #
  138. # AutoPoll Screen display
  139. #
  140.     if @USERIF = "1" and @SCRFILE = "AutoPoll"
  141.         set @SCRLREG = "1"
  142.         cursor 12,0
  143.         put " "
  144.         cursor 12,0
  145.         put "--> "
  146.         set @SCRLREG = "0"
  147.     end
  148. #-------------------------------------------------------------------------------
  149. # Determines how many times to retry the login procedure
  150. #-------------------------------------------------------------------------------
  151.     reps 5
  152. #
  153. # AutoPoll Screen display
  154. #
  155. .LOG20
  156.     if @USERIF = "1" and @SCRFILE = "AutoPoll"
  157.         set @SCRLREG = "1"
  158.         cursor 12,15
  159.         put " "
  160.         cursor 12,15
  161.         put "Looking for ",@SYSTYPE," Username prompt"
  162.         cleol
  163.         set @SCRLREG = "0"
  164.     end
  165. #-------------------------------------------------------------------------------
  166. # Send something to get the Username prompt (or equivalent)
  167. #-------------------------------------------------------------------------------
  168.     tsend CR, CR
  169. #-------------------------------------------------------------------------------
  170. # Look for the most likely responses
  171. #-------------------------------------------------------------------------------
  172.     ttrap 5 "name:","word:","$","authorization fail"
  173.     if @STATUS = "1" goto .LOG30
  174.     if @STATUS = "2"
  175.         tsend CR
  176.         goto .LOG20
  177.     end
  178.     if @STATUS = "3"
  179.         tsend "LOGOFF", CR
  180.         goto .LOG20
  181.     end
  182. .LOG25
  183. #-------------------------------------------------------------------------------
  184. # Send a Ctrl-Q (\021) to try and restart output from remote system
  185. # Also send a Ctrl-Y (\031) to try and abort any application running on remote
  186. #-------------------------------------------------------------------------------
  187.     tsend "\021\031"
  188.     if @SCRFILE = "AutoPoll" fwrite 4, "                  * Attempting to get ",@SYSTYPE," system's attention"
  189.     if reps goto .LOG20
  190. #
  191. #    Can't log in, inform user and exit
  192. #
  193.     if @SCRFILE = "AutoPoll" fwrite 4, "                  >> CHECK SETUP FILE (",@su_fil,") - Remote not responding with Userid prompt for ",@SYSTYPE
  194.     else return 1
  195. #
  196. # AutoPoll Screen display
  197. #
  198.     if @USERIF = "1"
  199.         set @SCRLREG = "1"
  200.         cursor 12,0
  201.         put " "
  202.         cursor 12,0
  203.         put "   X "
  204.         cursor 12,15
  205.         put "CHECK SETUP ",@su_fil," - Wrong System Type?"
  206.         cleol
  207.         set @SCRLREG = "0"
  208.     end
  209.     return -2
  210. #
  211. # Comes here when the prompt for the user name is detected
  212. # 
  213. .LOG30
  214. #
  215. # AutoPoll Screen display
  216. #
  217.     if @USERIF = "1" and @SCRFILE = "AutoPoll"
  218.         set @SCRLREG = "1"
  219.         cursor 12,15
  220.         put " "
  221.         cursor 12,15
  222.         put "Sending UserId"
  223.         cleol
  224.         set @SCRLREG = "0"
  225.     end
  226. #-------------------------------------------------------------------------------
  227. # Send the user name data (usually just the @USERID variable and a return) 
  228. #-------------------------------------------------------------------------------
  229.     tsend @USERID, CR                       # enter USERID
  230. #-------------------------------------------------------------------------------
  231. # Wait for the most likely responses
  232. #-------------------------------------------------------------------------------
  233.     ttrap 10 "word:","$","authorization fail"                    # wait for PASSWORD prompt
  234.     if @STATUS = "2" goto .LOG50
  235.     if @STATUS = "0" or @STATUS = "3" goto .LOG25
  236. #
  237. # AutoPoll Screen display
  238. #
  239.     if @USERIF = "1" and @SCRFILE = "AutoPoll"
  240.         set @SCRLREG = "1"
  241.         cursor 12,15
  242.         put " "
  243.         cursor 12,15
  244.         put "Sending Password"
  245.         cleol
  246.         set @SCRLREG = "0"
  247.     end
  248. #-------------------------------------------------------------------------------
  249. # Send the password data (usually just the @PASSWORD variable + return)
  250. #-------------------------------------------------------------------------------
  251.     tsend @PASSWORD, CR                     # enter PASSWORD
  252. #-------------------------------------------------------------------------------
  253. # Look for the system prompt (or whatever indicates that you are logged on)
  254. #-------------------------------------------------------------------------------
  255.     ttrap 20 "$","authorization fail"
  256.     if @STATUS = "1"
  257. .LOG50
  258.         if @USERIF = "0" or @SCRFILE NOT = "AutoPoll" return 0
  259. #
  260. # AutoPoll Screen display
  261. #
  262.         set @SCRLREG = "1"
  263.         cursor 12,0
  264.         put " "
  265.         cursor 12,0
  266.         put "   *"
  267.         cursor 12,15
  268.         put "Logged on"
  269.         cleol
  270.         set @SCRLREG = "0"
  271.         return 0                            # got a system prompt
  272.     end
  273. #
  274. #    Incorrect USERID/PASSWORD - perhaps it was corrupted in transit
  275. #
  276.     if @SCRFILE = "AutoPoll" fwrite 4, "                  * Re-trying LOGIN - noise may have corrupted Username/Password exchange"
  277.     if reps goto .LOG20
  278.     if @SCRFILE = "AutoPoll" fwrite 4, "                  >> CHECK SETUP FILE (",@su_fil,") - Userid/Password not valid or noisy line"
  279.     else return 1
  280. #
  281. # AutoPoll Screen display
  282. #
  283.     if @USERIF = "1"
  284.         set @SCRLREG = "1"
  285.         cursor 12,0
  286.         put " "
  287.         cursor 12,0
  288.         put "   X"
  289.         cursor 12,15
  290.         put "CHECK SETUP ",@su_fil," - bad Username/Password or line noise"
  291.         cleol
  292.         set @SCRLREG = "0"
  293.     end
  294.     return -2
  295. #########################################
  296. #                                        #
  297. # LOGOFF                                #
  298. #                                        #
  299. #########################################
  300. .LOGOFF
  301. #
  302. # AutoPoll Screen display
  303. #
  304.     if @USERIF = "1" and @SCRFILE = "AutoPoll"
  305.         set @SCRLREG = "1"
  306.         cursor 14,0
  307.         put " "
  308.         cursor 14,0
  309.         put "--> "
  310.         cursor 14,15
  311.         put "Looking for operating system prompt"
  312.         set @SCRLREG = "0"
  313.     end
  314. #-------------------------------------------------------------------------------
  315. # Determine the number of times to attempt the logoff
  316. #-------------------------------------------------------------------------------
  317.     reps 4                                  # try 4 times
  318. #
  319. .LGF10
  320. #-------------------------------------------------------------------------------
  321. # Look for a recognizable response from the remote system
  322. #-------------------------------------------------------------------------------
  323.     tsend CR                                # get system prompt
  324. #-------------------------------------------------------------------------------
  325. # Handle the most likey responses
  326. #-------------------------------------------------------------------------------
  327.     ttrap 5 "$","name:","word:","authorization fail"
  328.     if @STATUS = "1" goto .LGF20                        # VMS sys prompt
  329.     if @STATUS = "2" or @STATUS = "4" goto .LGF25
  330. #
  331.     if reps
  332. #-------------------------------------------------------------------------------
  333. # Send a Ctrl-Q (\021) to try and restart output from remote system
  334. # Also send a Ctrl-Y (\031) to try and abort any application running on remote
  335. #-------------------------------------------------------------------------------
  336.         tsend "\021\031"
  337.         goto .LGF10
  338.     end
  339. #
  340. #    Unable to get anything recognizable - abort
  341. #
  342.     if @SCRFILE = "AutoPoll" fwrite 4, "                  >> CHECK SETUP FILE (",@su_fil,") - LOGOFF Failed: Remote not responding as expected for ",@SYSTYPE
  343.     else return 1
  344. #
  345. # AutoPoll Screen display
  346. #
  347.     if @USERIF = "1"
  348.         set @SCRLREG = "1"
  349.         cursor 14,0
  350.         put " "
  351.         cursor 14,0
  352.         put "   X"
  353.         cursor 14,15
  354.         put "CHECK SETUP ",@su_fil," - Could not find operating system prompt"
  355.         cleol
  356.         set @SCRLREG = "0"
  357.     end
  358.     return -2
  359. #
  360. .LGF20                                          # VMS logout
  361. #-------------------------------------------------------------------------------
  362. # Send the command to terminate this user session
  363. #-------------------------------------------------------------------------------
  364.     tsend  "LOGOFF",CR
  365. #
  366. # AutoPoll Screen display
  367. #
  368. .LGF25
  369.     if @USERIF = "1" and @SCRFILE = "AutoPoll"
  370.         set @SCRLREG = "1"
  371.         cursor 14,0
  372.         put " "
  373.         cursor 14,0
  374.         put "   *"
  375.         cursor 14,15
  376.         put "Logged off"
  377.         cleol
  378.         set @SCRLREG = "0"
  379.     end
  380.     return 0
  381. #########################################
  382. #                                        #
  383. # UPLOAD                                #
  384. #                                        #
  385. #########################################
  386. .UPLOAD
  387.     if @SCRFILE = "AutoPoll"
  388.         werror "UPLOAD not supported by AutoPoll"
  389.         fwrite 4, "                  >> UPLOAD not supported"
  390.         return -2
  391.     end
  392.         ask "enter filename to upload", @filename
  393.         if null @filename return 0
  394.         if exist @filename goto .UPL10
  395.         werror "can't open ", @filename
  396.         return 1
  397. #
  398. .UPL10
  399.         ask "enter remote filename or <RETURN> to upload to system", @remotefn
  400.         if null @remotefn goto .UPL20
  401. #-------------------------------------------------------------------------------
  402. # Send a Ctrl-Y (\031) to abort any application running on remote
  403. # Send a return to get the system prompt
  404. #-------------------------------------------------------------------------------
  405.         tsend "\031",cr
  406. #-------------------------------------------------------------------------------
  407. # Handle the most likely responses
  408. #-------------------------------------------------------------------------------
  409.         ttrap 5 "$"
  410.         if 0 return 1
  411. #
  412. #    If no remote filename given, assume file already open on receiving system
  413. #
  414. #-------------------------------------------------------------------------------
  415. # Send the operating system command to create a text file 
  416. #-------------------------------------------------------------------------------
  417.         tsend "create ",@remotefn,cr
  418. #-------------------------------------------------------------------------------
  419. # Delay a short while to allow the command get started (could also use "wait") 
  420. #-------------------------------------------------------------------------------
  421.         ttrap 2
  422. .UPL20
  423.         tupload @filename
  424. #-------------------------------------------------------------------------------
  425. # Delay a while to allow the remote system to get finished
  426. #-------------------------------------------------------------------------------
  427.         wait 2 idle
  428. #
  429.         if null @remotefn return 0
  430. #-------------------------------------------------------------------------------
  431. # Send the string to tell the remote operating system command that you're done
  432. #-------------------------------------------------------------------------------
  433.         tsend "\032"
  434. #-------------------------------------------------------------------------------
  435. # Handle the most likely responses
  436. #-------------------------------------------------------------------------------
  437.         ttrap 5 "$"
  438.         if 1 return 0
  439.         return 1
  440. #########################################
  441. #                                        #
  442. # TRANSFER                                #
  443. #                                        #
  444. #########################################
  445. .TRANSFER
  446. #
  447. # AutoPoll Screen display
  448. #
  449.     if @USERIF = "1" and @SCRFILE = "AutoPoll"
  450.         set @SCRLREG = "1"
  451.         cursor 13,0
  452.         put " "
  453.         cursor 13,0
  454.         put "--> "
  455.         cursor 13,15
  456.         put "Looking for operating system prompt"
  457.         set @SCRLREG = "0"
  458.     end
  459. #-------------------------------------------------------------------------------
  460. # Determine the number of times to attempt to get file transfer started
  461. #-------------------------------------------------------------------------------
  462.     reps 4
  463. #
  464. .TRANS10
  465. #-------------------------------------------------------------------------------
  466. # Send something that should elicit a response from the remote system
  467. #-------------------------------------------------------------------------------
  468.     tsend CR
  469. #-------------------------------------------------------------------------------
  470. # Handle the most likely responses.  Must include the strings sent by BLAST A,
  471. # B and C protocols (a string of p's or some part of the message
  472. # ";starting BLAST protocol."  Usually also includes: the system prompt and
  473. # application or system error messages - as below.
  474. #-------------------------------------------------------------------------------
  475.     ttrap 10 "$","protocol","ppp","%DCL-"
  476.     if @STATUS = "2" or @STATUS = "3" return 0
  477.     if @STATUS = "1" goto .TRANS20
  478.     if @STATUS = "4"
  479.         if @SCRFILE = "AutoPoll" fwrite 4, "                  * CHECK REMOTE SYSTEM - BLAST symbol incorrectly defined"
  480.         else goto .TRANS15
  481.         if @USERIF = "0" goto .TRANS15
  482. #
  483. # AutoPoll Screen display
  484. #
  485.         set @SCRLREG = "1"
  486.         cursor 13,15
  487.         put " "
  488.         cursor 13,15
  489.         put "CHECK REMOTE SYSTEM - BLAST symbol incorrectly defined"
  490.         cleol
  491.         set @SCRLREG = "0"
  492.     end
  493. .TRANS15
  494.     if reps
  495. #-------------------------------------------------------------------------------
  496. # Send a Ctrl-Q (\021) to try and restart output from remote system
  497. # Also send a Ctrl-Y (\031) to try and abort any application running on remote
  498. #-------------------------------------------------------------------------------
  499.         tsend "\021\031"
  500.         goto .TRANS10
  501.     end
  502. #
  503. #    Unable to get anything recognizable on remote computer - abort
  504. #
  505.     if @SCRFILE = "AutoPoll" fwrite 4, "                  >> CHECK REMOTE SYSTEM - Unable to get ",@SYSTYPE," system prompt after login"
  506.     else return 1
  507. #
  508. # AutoPoll Screen display
  509. #
  510.     if @USERIF = "1"
  511.         set @SCRLREG = "1"
  512.         cursor 13,0
  513.         put " "
  514.         cursor 13,0
  515.         put "  X "
  516.         cursor 13,15
  517.         put "CHECK REMOTE - System not responding in time"
  518.         cleol
  519.         set @SCRLREG = "0"
  520.     end
  521.     return -3
  522. .TRANS20
  523. #-------------------------------------------------------------------------------
  524. # Send the operating system command which will start BLAST in Host mode
  525. #-------------------------------------------------------------------------------
  526.     tsend "BLAST /H",CR               # invoke BLAST in host mode
  527. #
  528. # AutoPoll Screen display
  529. #
  530.     if @USERIF = "1" and @SCRFILE = "AutoPoll"
  531.         set @SCRLREG = "1"
  532.         cursor 13,15
  533.         put " "
  534.         cursor 13,15
  535.         put "Waiting for BLAST protocol"
  536.         cleol
  537.         set @SCRLREG = "0"
  538.     end
  539.     goto .TRANS10
  540. .END
  541.