home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / CEL202R.ZIP / CEL202-4.ZIP / CTOSV111.ZIP / IMRUN.BAT < prev    next >
DOS Batch File  |  1994-05-10  |  1KB  |  69 lines
  1. REM *** This should do ya--Check The Comments ***
  2.  
  3. :loop
  4. C:
  5. CD \Celerity
  6. set dszlog=D:\Celerity\dsz.log
  7. set IM=C:\im
  8. set FD=C:\im
  9. REM **** ONLY IF YOU NEED A FOSSIL **** X00.SYS MUST BE LOADED FOR THE
  10. REM **** FOLLOWING LINE TO WORK
  11. REM **** THIS IS FOR COM3 -> C:\IM\xu port:2:on fifo:8
  12. cd \im
  13. im.exe
  14. if errorlevel 250 call C:\celerity\external.bat
  15. if errorlevel 200 dobbs
  16. if errorlevel 150 goto echomail
  17. if errorlevel  10 goto exit
  18. if errorlevel   8 goto exit
  19. if errorlevel   4 goto fatal
  20. if errorlevel   3 goto fatal
  21. if errorlevel   1 goto fatal
  22. goto loop
  23.  
  24. :echomail
  25. system\TosScan toss
  26. REM CD FASTECHO
  27. REM FASTECHO TOSS
  28. cd \celerity
  29. CelToScn /TOSS /PC:\Celerity\Network
  30. cd\im
  31. REM *** FOR FidoNet NodeList Replacements
  32. if exist files\nodelist.* goto updnl
  33. :echomailcont
  34. REM *** FOR DragonNet NodeList Replacements
  35. if exist files\drgnlist.* goto updnldrag
  36. :echomailcont2
  37. REM *** Fido NODEDIFF Processing
  38. if exist files\nodediff.* goto updnldiff
  39. :echomailcont3
  40. goto loop
  41.  
  42. :updnl
  43. pkunpak -n files\nodelist.* nodelist\
  44. IMNC /F
  45. del files\nodelist.*
  46. goto echomailcont
  47.  
  48. REM *** Next Section Updates DragonNet NodeList ****
  49. :updnldrag
  50. del nodelist\drgnlist.*
  51. copy files\drgnlist.* nodelist
  52. del files\drgnlist.*
  53. IMNC /F
  54. goto echomailcont2
  55.  
  56. :updnl
  57. CD XLAX
  58. XLAXDIFF /O=C:\IM\NODELIST /E=C:\IM\FILES /X=C:\UT\Z\PKUNPAK.EXE /C
  59. CD \IM
  60. IMNC /F
  61. del files\nodediff.*
  62. goto echomailcont3
  63.  
  64. :fatal
  65. echo FATAL Error
  66. goto exit
  67.  
  68. :exit
  69.