home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / BBS_UTIL / AUTOMPM.ZIP / EXTRACT.CTL < prev    next >
Text File  |  1994-01-03  |  2KB  |  50 lines
  1. ; This file manages the packet transfer for Pre-extracted Mail in the
  2. ; QWK format.  This file should be placed in the \BBS\CONTROL\MACROS
  3. ; sub-directory.  In this example, the source directory path to the
  4. ; extracted packets is C:\BBS\PWRMAIL\LOKLMAIL.
  5. ;
  6. ; Devised by Paul W. Binns, sysop, LanternRock Bbs, Toronto, Canada.
  7. ; I can be reached at (416)-690-8744 / 8745, or by EMail
  8. ; In the RIME Powerboard BBS Sysop Support conference.
  9. ;
  10. ; This version was intended to work with Powerboard 1.25a, but it
  11. ; may work with other releases of the software. The variable (%VAR%d)
  12. ; might need changing.  Consult your Powerboard manual.
  13. ;
  14. ; Dated:  1 January 1994.
  15.  
  16. Exec(pwrmail\kill.bat)
  17. *FindPreExtractedMail
  18.   SetEqual (d=%NDPASS%)
  19.   Seek (pwrmail\loklmail\%VAR%d)
  20.   IfNotTrue (goto (NoPreMail))
  21.   Display(display\AUTOMAIL)
  22.   Say (&CR&&CR&&CR&&CR&&11&            Send your pre-extracted mail now? &9&[   ]&14&*)
  23.   Back(4)
  24.   YesNoAsk(*)
  25.   If (%RESP%)=(No) then goto (NoPreMail)
  26.  
  27.   FixFile(pwrmail\RNAME.BT,pwrmail\RNAME.BAT)
  28.   Exec(pwrmail\RNAME.BAT)
  29.   Kill(pwrmail\RNAME.BAT)
  30.   Say (&CR&&CR&&CR&&10&            Prepare to receive &14&LANTROCK.QWK&10&,  with &15&Z-Modem)
  31.   SetEqual (%FILPATH%=C:\BBS\PWRMAIL\LOKLMAIL\)
  32.   SetEqual (d=C:\BBS\PWRMAIL\LOKLMAIL\LANTROCK.QWK)  ;<== replace with your BBS packet-name
  33.   FixFile(protocol\z-d.bt,protocol\z-d.bat)
  34.   Exec(protocol\z-d.bat)
  35.   Kill(protocol\z-d.bat)
  36.   Kill(pwrmail\loklmail\LANTROCK.QWK)       ;<== replace with your BBS packet name
  37.  
  38.   Say(&CR&&CR&&CR&&12&            Log off now ? &9&[   ]&14&*)
  39.   Back(4)
  40.   YesNoAsk(*)
  41.   If(%RESP%)=(No) then return
  42.   LoadMem (control\macros\bye.ctl)
  43.  
  44. *NoPreMail
  45.   Return
  46.  
  47. ; Change the indicated BBS packet name with the one you configured in
  48. ; PowerMail's  MailCfg
  49. ; Also check the path statements to be sure they agree with your setup
  50.