home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / xbbsos2.zip / maint.cmd < prev    next >
OS/2 REXX Batch file  |  1995-01-22  |  937b  |  52 lines
  1. @Echo off
  2. REM
  3. REM My maintenance batch file -- this runs all the time (minimized).
  4. REM
  5. REM Edit as required
  6. REM
  7. e:
  8. cd\xbbs2
  9. mode co80,10
  10. cls
  11. echo Testing...
  12. delay 0 I 16:30 23:59
  13. if errorlevel == 1 goto next1
  14. goto midnight
  15. :next1
  16. delay 0 I 00:00 06:00
  17. if errorlevel == 1 goto next2
  18. goto midnight
  19. :next2
  20. delay 0 I 06:01 12:15
  21. if errorlevel == 1 goto next3
  22. goto noon
  23. :next3
  24. delay 0 I 12:16 16:30
  25. if errorlevel == 1 goto midnight
  26. goto afternoon
  27. :midnight
  28. cls
  29. echo Maint.Cmd running...Midnight Poll
  30. delay 0 P 06:00
  31. if errorlevel == 1 goto noon
  32. e:
  33. cd\xbbs2
  34. gs poll Fidonet#1:380/25.0
  35. call e:\xbbs2\clean.cmd
  36. :noon
  37. echo Maint.Cmd running...Noon Poll
  38. delay 0 p 12:15
  39. if errorlevel == 1 goto afternoon
  40. e:
  41. cd\xbbs2
  42. gs poll Fidonet#1:380/25.0
  43. :afternoon
  44. echo Maint.Cmd running...Afternoon Poll
  45. delay 0 p 16:30
  46. if errorlevel == 1 goto end
  47. e:
  48. cd\xbbs2
  49. gs poll Fidonet#1:380/25.0
  50. goto midnight
  51. :end
  52.