home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zzmail.zip / EXEQMUPD.SCR < prev    next >
Text File  |  1989-05-14  |  5KB  |  201 lines
  1.         ; This is an edited version of qmml6.scr; edited to remove
  2.         ; choices so it is useful for automated downloads of Qmail
  3.         ; from PCBoard 14.x
  4.         ; Be sure your DSZ is set up so it returns to Qmodem after a D/L
  5.         ; To use:
  6.         ; With your editor edit all the ASSIGN variables
  7.         ;    Be sure the door is set for the Qmail door you want
  8.         ; Reset the DIAL line so it conforms to the QM.fon line you
  9.         ; want on your dialing directory.
  10.         ; Be sure your phone directory line does not have a script
  11.         ; attached-don't use the same line as your logon script
  12.         ; Place this file in your Qmodem script directory
  13.  
  14.         ;Once the above is done, use a command line such as:
  15.         ;    QMODEM /S=exeqmupd.scr
  16.         ; and the script should dial, download your mail, upload
  17.         ; replies, and sign off
  18.         ; Naturally you can rename the script and modify it for other
  19.         ;   boards.
  20.  
  21.                           ;This scr download and upload from EXECNET
  22.  
  23. TURNON   8_BIT            ;This series of entries sets up the
  24. TURNOFF  LINEFEED         ;Qmodem operating environment.
  25. TURNOFF  XON/XOFF
  26. TURNOFF  NOISE
  27. TURNOFF  MUSIC
  28. TURNON   SCROLL
  29. TURNOFF  PRINT
  30. TURNOFF  ECHO
  31. ;
  32. EGA   43
  33. DIAL "20"
  34.                           ;The string command sets text strings to
  35.                           ;be used as variables in the script.
  36. ;
  37. String   QWKFILE REPFILE QWKPATH REPPATH DOOR XFER QPATH FNAME LNAME
  38.  
  39. ASSIGN   QWKFILE   EXECNET.QWK   ; Enter the name of QWK file for system
  40. ASSIGN   REPFILE   EXECNET.REP    ; Enter the name of REP file for system
  41. ASSIGN   QWKPATH   C:\QMODEM\DL\     ; Enter DRIVE:\PATH to DOWNLOAD directory
  42. ASSIGN   REPPATH   C:\QMODEM\DL\     ; Enter DRIVE:\PATH to UPLOAD directory
  43. ASSIGN   DOOR      5                 ; Enter the number of System QwikMail Door
  44. ASSIGN   XFER      Z                 ; Enter the letter of the Protocol to use
  45. ASSIGN   QPATH     C:\QMODEM\DL\     ; Enter the DRIVE:PATH to your reader
  46. ASSIGN   FNAME     TED               ; Enter your first name
  47. ASSIGN   LNAME     CROCKETT          ; Enter your last name
  48. ;
  49.  
  50.  
  51. TimeOut  240      ; Set WAITFOR timeout to 240 seconds
  52.  
  53.  
  54. WHEN
  55. WHEN     "Press (Enter) to continue?"       "^M"
  56. WHEN     "graphics (Enter)=no?"             "y Q^M"
  57. WHEN     "What is your first name?"         "$FNAME $LNAME $PASSWORD^M"
  58. WHEN     "More (Y), (N), (NS)"              "N^M"
  59. WHEN     "Enter Language #"                 "^M"
  60. WHEN     "Conference members (Enter)=no?"   "^M"
  61. WHEN     "(H)elp, More?"                    "N^M"
  62. WHEN     "Since 'Last Read' (Enter)=yes?"   "N^M"
  63.  
  64. WAITFOR "Command" dump
  65. DELAY   100
  66. GOTO Start
  67.  
  68.  
  69. start:
  70.   SEND     "OPEN $DOOR^M"
  71.  
  72.   WHEN
  73.   WHEN "you *MUST* begin by" config
  74.   WAITFOR  "Command?" dump
  75.   DELAY    100
  76.   GOTO reDOWNLOAD
  77.  
  78.  
  79. ReDOWNLOAD:
  80.   SEND     "D^M"
  81.   WHEN
  82.   WHEN     "nothing was found"  DoRepsNow
  83.   WAITFOR  "receive this packet (Y or N)?"  dump
  84.   DELAY    100
  85.   SEND     "Y^M"
  86.  
  87.   WAITFOR  "transfer of"
  88.   WAITFOR  "$QWKFILE" dump
  89.   DELAY    300
  90.   SEND     "^M"
  91.  
  92.   DOWNLOAD $XFER $QWKPATH$QWKFILE
  93.   IF       $SUCCESS  DoRepsNow
  94.   GOTO     ReDOWNLOAD
  95.  
  96.   UpSection:
  97.   WAITFOR  "Command?"  dump
  98.   DELAY    100
  99.  
  100.   DoRepsNow:
  101.   WHEN
  102.   EXIST    $QPATH$REPFILE  SendEm
  103.   GOTO     AllDone
  104.  
  105. SendEm:
  106.   DELAY    1000
  107.   SEND     "^M"
  108.   WAITFOR  "Command?"  dump
  109.   SEND     "U^M"
  110.   DELAY    100
  111.   WAITFOR  "Ready to receive" dump
  112.   WAITFOR  "$REPFILE"  dump
  113.   PAUSE    1000
  114.   UPLOAD   $XFER $QPATH$REPFILE
  115.   IF       $FAIL  UpSection
  116.   GOTO     AllDone
  117.  
  118. startc:
  119.   SEND     "OPEN $DOOR^M"
  120.   dagain:
  121.   WHEN
  122.   WHEN "you *MUST* begin by" config
  123.   WAITFOR  "Command?" dump
  124.   DELAY    100
  125.   GOTO DNLDONLY
  126.  
  127.  
  128. DNLDONLY:
  129.   SEND     "D^M"
  130.   WHEN
  131.   WHEN     "nothing was found"  Alldone
  132.   WAITFOR  "receive this packet (Y or N)?"  dump
  133.   DELAY    100
  134.   SEND     "Y^M"
  135.  
  136.   WAITFOR  "transfer of"
  137.   WAITFOR  "$QWKFILE"
  138.   DELAY    200
  139.   SEND     "^M"
  140.  
  141.   DOWNLOAD $XFER $QWKPATH$QWKFILE
  142.   IF       $SUCCESS  Alldone
  143.   GOTO     dagain
  144.  
  145. Startd:
  146.   CLRSCR
  147.   PUTSCR
  148.   SEND "n^M"
  149.   WAITFOR  "Command?" dump
  150.   DELAY    100
  151.   SEND     "OPEN $DOOR^M"
  152.   WHEN
  153.   WHEN "you *MUST* begin by" config
  154.   WAITFOR  "Command?" dump
  155.   DELAY    100
  156.   GOTO uponly
  157.   uponly:
  158.   WHEN
  159.   EXIST    $QPATH$REPFILE  Sendthem
  160.   SEND  "^M"
  161.   GOTO     AllDone
  162.  
  163. Sendthem:
  164.   SEND     "U^M"
  165.   DELAY    100
  166.   WAITFOR  "Ready to receive" dump
  167.   WAITFOR  "$REPFILE"  dump
  168.   PAUSE    1000
  169.   UPLOAD   $XFER $QPATH$REPFILE
  170.   IF       $FAIL  Uponly
  171.  
  172. AllDone:
  173.   WAITFOR  "Command?"  dump
  174.   PAUSE    1000
  175.   SEND     "G^M"
  176.   PAUSE    2000
  177.   HANGUP
  178.   SYSTEM    Y
  179.   EXIT
  180.  
  181. Dump:
  182.   HANGUP
  183.   EXIT
  184.  
  185. config:
  186.         GETSCR
  187.         CLRSCR
  188.         COLORBG 7
  189.         COLORFG 4
  190.         BOX 10,2,70,7
  191.         CLRSCR
  192.         DISPLAYLN  "        Your must first configure your Qmail Packet"
  193.         DISPLAYLN  "      Please configure your packet before leaving Qmail"
  194.         DISPLAYLN  "              Script will end in 10 seconds     "
  195.         DELAY 10000
  196.         COLORBG 0
  197.         COLORFG 14
  198.         CLRSCR
  199.         PUTSCR
  200.         EXIT
  201.