home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / XBBS_118.ZIP / SAMPLES.ZIP / MAIL.BAT < prev    next >
Encoding:
DOS Batch File  |  1990-11-27  |  1.8 KB  |  72 lines
  1. Echo off
  2. Echo Mail.BAT running...
  3. cd\bt\files
  4. DTR ON
  5. AT S0=0
  6.  
  7. IF EXIST C:\BT\FILES\*.FLE DEL C:\BT\FILES\*.FLE
  8. REM IF EXIST C:\BT\FILES\*.PKT copy C:\BT\FILES\*.PKT C:\TEMP
  9. REM IF EXIST C:\BT\FILES\*.MO? copy C:\BT\FILES\*.MO? C:\TEMP
  10.  
  11. REM Unpack echomail in a little bit of space...
  12. REM for %%f in (*.mo?) do PAK X %%f
  13. REM for %%f in (*.tu?) do PAK X %%f
  14. REM for %%f in (*.we?) do PAK X %%f
  15. REM for %%f in (*.th?) do PAK X %%f
  16. REM for %%f in (*.fr?) do PAK X %%f
  17. REM for %%f in (*.sa?) do PAK X %%f
  18. REM for %%f in (*.su?) do PAK X %%f
  19.  
  20. cd\bt
  21.  
  22. :Unpack&Stuff
  23. cd\BT\Files
  24. REM If local BBS list received, put it where it belongs...
  25. if NOT EXIST Sportbbs.lst goto FidoNews
  26. copy Sportbbs.lst c:\xbbs\misc\Areabbs.lst
  27. log c:\xbbs\xbbs.log New BBS List >> C:\XBBS\XBBS.LOG
  28. Echo New BBS List
  29. del Sportbbs.lst
  30.  
  31. :FidoNews
  32. REM If Fidonews archive received, unpack, prepare, and put in Library...
  33. C:
  34. cd\BT\Files
  35. if NOT EXIST FNEWS*.LZH goto UnPackMail
  36. log c:\xbbs\xbbs.log New Fido News >> C:\XBBS\XBBS.LOG
  37. Echo New Fido News!
  38. cd\XBBS\LIBRARY
  39. FOR %%F IN (C:\bt\files\Fnews*.LZH) do LHARC E %%F
  40. Stripper -M5;C42 FIDO*.NWS
  41. DEL C:\XBBS\LIBRARY\*.bak
  42. ZOO -move FIDONEWS FIDO*.NWS
  43. del FIDO*.nws
  44. del \BT\Files\FNEWS*.LZH
  45. del C:\XBBS\LIBRARY\*.BAK
  46. C:\XBBS\Library.Exe IFIDONEWS*5
  47.  
  48. :UnPackMail
  49. CD\XBBS
  50. XST -AC:\BT\PKXARC -CXST.CTL -FC:\BT\FILES -OC:\BT\fidonet -PC:\XBBS\MESS -#5 -L -T
  51.  
  52. :Bundle
  53. cd\BT
  54. MakeArc.EXE
  55. REM ommm -z1 -s%Sched% -iC:\BT\Binkley.prm -mC:\BT\Msg -hC:\BT\fidonet -cC:\BT\Route.BBS -n -a
  56.  
  57. REM Readdress echomail to Zone 2...
  58. REM boom address 1:4177/1 2:4177/1 HOLD
  59. REM boom address 1:281/504 2:281/504 HOLD
  60.  
  61. REM For testing XScan...
  62. REM cd\bt
  63. REM ConfMail Import
  64. REM cd\xbbs
  65. REM XScan -I -E
  66. REM command
  67. REM cd\bt
  68. REM ConfMail Export
  69.  
  70. :End
  71. Exit
  72.