home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / BBS2DRAG.ZIP / 2DRAGON.BAT next >
DOS Batch File  |  1995-05-22  |  2KB  |  47 lines
  1. @Echo Off
  2. ECHO *** Processing WCCharge v4.05 "SYSOP.CHG" Files...if any. ***
  3. Echo Off
  4. c:
  5. rem <<< The following step identifies whether or not a NEW charge >>>
  6. rem <<< exists for it to be sent to Dragon BBS. If it does exist  >>>
  7. rem <<< the file will be copied to the Robocomm WORK area.        >>>
  8. rem <<< The rest of the file is self-explanatory, however,        >>>
  9. rem <<< YOU MUST MAKE THE CHANGES TO THE DIRECTORY PATHS TO SUIT  >>>
  10. rem <<< YOUR SYSTEM. IF YOU USE THIS .BAT FILE AS IS YOU'LL HAVE  >>>
  11. rem <<< TO HAVE THE SAME PATH NAMES.                              >>>
  12. rem <<< This batch file has worked flawlessly every night since   >>>
  13. rem <<< 1993.
  14. cd\wc30\doors\wcchg
  15. IF EXIST sysop.chg COPY sysop.chg C:\robo42\wk
  16. IF EXIST sysop.999 DEL sysop.999
  17. RENAME sysop.chg sysop.999
  18. cd\robo42\wk
  19. IF EXIST sysop.chg GOTO CHARGE
  20. GOTO NOCHARGE
  21. :CHARGE
  22. COPY charge.log+sysop.chg charge.log
  23. COPY sysop.chg C:\robo42\out
  24. IF EXIST sysop.snt DEL sysop.snt
  25. RENAME C:\robo42\wk\sysop.chg sysop.snt
  26. cd\robo42
  27. IF EXIST C:\ROBO42\OUT\sysop.010 DEL C:\ROBO42\OUT\sysop.010
  28. IF EXIST C:\ROBO42\OUT\sysop.009 REN C:\ROBO42\OUT\sysop.009 sysop.010
  29. IF EXIST C:\ROBO42\OUT\sysop.008 REN C:\ROBO42\OUT\sysop.008 sysop.009
  30. IF EXIST C:\ROBO42\OUT\sysop.007 REN C:\ROBO42\OUT\sysop.007 sysop.008
  31. IF EXIST C:\ROBO42\OUT\sysop.006 REN C:\ROBO42\OUT\sysop.006 sysop.007
  32. IF EXIST C:\ROBO42\OUT\sysop.005 REN C:\ROBO42\OUT\sysop.005 sysop.006
  33. IF EXIST C:\ROBO42\OUT\sysop.004 REN C:\ROBO42\OUT\sysop.004 sysop.005
  34. IF EXIST C:\ROBO42\OUT\sysop.003 REN C:\ROBO42\OUT\sysop.003 sysop.004
  35. IF EXIST C:\ROBO42\OUT\sysop.002 REN C:\ROBO42\OUT\sysop.002 sysop.003
  36. IF EXIST C:\ROBO42\OUT\sysop.001 REN C:\ROBO42\OUT\sysop.001 sysop.002
  37. ROBOCOMM /ADRAGON /R /P /O
  38. IF EXIST C:\ROBO42\OUT\sysop.chg REN C:\ROBO42\OUT\sysop.chg sysop.001
  39. cd\wc30
  40. POSTMSTR /I:chg.txt /P /C:0 /X /F:Robo42 /T:Dan Bernasconi /S:Charges Sent!
  41. GOTO EXIT
  42. :NOCHARGE
  43. cd\wc30
  44. POSTMSTR /I:nochg.txt /P /C:0 /X /F:Robo42 /T:Dan Bernasconi /S:No Chgs Sent!
  45. :EXIT
  46. cd\wc30
  47.