home *** CD-ROM | disk | FTP | other *** search
/ SysOp's Arsenal / SysOp's Arsenal 1 (Arsenal Computer).ISO / netmail / msi.asp < prev    next >
Encoding:
Text File  |  1994-04-02  |  2.6 KB  |  79 lines
  1.  
  2. integer retry = 5                                           ; retry counter
  3.  
  4. proc main
  5.  
  6.     string repfile= "j:\mustang\mustang.rep"                ; upload path 
  7.  
  8.     for retry = 5 downto 0
  9.  
  10.         statmsg "Dialing Mustang Support BBS"
  11.         dial "25"                                           ; whichever dialing entry
  12.                                                             ; reset retries to 1 or 2
  13.                                                             
  14.         if connected                                        ; wait for connect
  15.             statmsg "Waiting for login prompt"
  16.             waitfor "first name" 30
  17.             if waitfor                                      ; make sure we're really connected 
  18.                 transmit "!ChowdaNet BBS Password^M"        ; stick your name in here
  19.             else
  20.                 goto loop
  21.             endif                                             ; Will bypass logon screens
  22.  
  23.             statmsg "Waiting for TomCat prompt"                                                             ;for some user levels
  24.             waitfor "]:" 30
  25.             if  waitfor
  26.                 statmsg "Downloading mail packet"
  27.                 transmit "D"                                ; tomCat
  28.                 waitfor "done" 180
  29.                 if waitfor
  30.                     transmit "Y" 
  31.                     waitfor "Start" 180
  32.                     if waitfor
  33.                         getfile zmodem
  34.                     else
  35.                         goto loop
  36.                     endif
  37.                 else
  38.                     statmsg "No mail packet generated"
  39.                 endif
  40.             else
  41.                 goto loop
  42.             endif
  43.             
  44.             isfile repfile                                  ; check for reply
  45.  
  46.             if success 
  47.                 waitfor "TOMCAT MENU" 120                   ; upload reply
  48.                 if  waitfor
  49.                     statmsg "Uploading reply packet"
  50.                     transmit "U"
  51.                 else
  52.                     goto loop
  53.                 endif
  54.                 
  55.                 waitfor "Start" 120
  56.                 if  waitfor
  57.                     sendfile zmodem repfile
  58.                 else
  59.                     goto loop
  60.                 endif
  61.                 
  62.                 if success                                  ; if we're cool, 
  63.                     delete repfile                          ; delete outgoing packet
  64.                 endif                                       ; so it doesnt get sent next time
  65.             else
  66.                 statmsg "No reply packet waiting"
  67.             endif
  68.             
  69.             quit
  70.  
  71.         endif
  72.  
  73.         loop:
  74.             statmsg "Error detected... restarting dialing sequence"
  75.     endfor
  76.     
  77. endproc
  78.  
  79.