home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / XBBS_118.ZIP / SAMPLES.ZIP / CLEAN.BAT < prev    next >
Encoding:
DOS Batch File  |  1990-08-18  |  1.1 KB  |  55 lines
  1. Echo off
  2. Echo Clean.BAT running...
  3.  
  4. :Clean
  5. Echo Cleaning things up around here...
  6. cd\XBBS
  7. XUSER DAYS 61
  8. if exist deleted.ids DEL deleted.ids
  9. cd\BT
  10. call MAIL.BAT
  11. cd\XBBS
  12. XMSG -AC:\XBBS\XMSG.CTL
  13. XMSGUTLS.EXE -B -V -FC:\XBBS\XMSGUTL.CTL
  14. cd\BT\Outbound
  15. erase *.?$?
  16.  
  17. :NewDiff
  18. C:
  19. CD\BT\FILES
  20. if NOT EXIST NodeDiff.* goto End
  21. rename NodeDiff.* NodeDiff.arc
  22. REM save old nodediffs temporarily in case of error
  23. copy c:\XBBS\NodeDiff.* c:\temp
  24. del c:\XBBS\NodeDiff.*
  25. REM The Pkxarc being called is really GUS
  26. c:\bt\Pkxarc NodeDiff c:\XBBS
  27. Erase NodeDiff.*
  28. log c:\xbbs\xbbs.log Processing new nodediff
  29. cd\XBBS
  30. Echo Unpacking nodelist...
  31. pkxarc nodelist.arc
  32. if errorlevel == 1 goto NodeErr
  33. del nodelist.arc
  34. Echo Applying new nodeDiff...
  35. Parselst
  36. IndexUsr
  37. REM Get rid of all but newest nodelist
  38. FDEL Delete NODELIST.* 6 -N -D
  39. REM Keep the nodelist compressed to save disk space...
  40. pkarc m nodelist.arc nodelist.*
  41. if errorlevel == 1 goto NodeErr2
  42. goto End
  43.  
  44. :NodeErr
  45. Log c:\xbbs\xbbs.log ERROR processing nodelist (uncompression)
  46. goto End
  47.  
  48. :NodeErr2
  49. Log c:\xbbs\xbbs.log ERROR processing nodelist (compression)
  50.  
  51. :End
  52. C:
  53. CD\BT
  54. Exit
  55.