home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / POINTKT3.ZIP / LISTGEN.CMD < prev    next >
OS/2 REXX Batch file  |  1990-04-10  |  1KB  |  44 lines
  1. @Echo Here we go...
  2. @Echo off
  3. REM Start with Current NODELIST.A* in C:\Tmp, possible new NODEDIFF.A*
  4. REM in C:\Bink\Inbound.  Compile NODELIST.* in C:\Bink\Nodelist, then
  5. REM if new NODELIST, Archive it to C:\Tmp, and delete all NODELIST from
  6. REM C:\Bink\Nodelist, and any NODEDIFF.
  7. Set BBS=C:\Bink
  8. Set BINKLEY=C:\Bink\
  9. Set EXPMSG=2400
  10. Set FILE=C:\Bink\Inbound
  11. Set IN=C:\Bink\Inbound
  12. Set MAIL=C:\Bink\Mail
  13. Set OUT=C:\Bink\Outbound
  14. C:
  15. CD \Bink\Nodelist
  16. If Exist Node*.* Del Node*.* >Nul:
  17. If NOT Exist %FILE%\Nodediff.A* Goto Compile
  18. If Exist C:\Tmp\Nodediff.A* Del C:\Tmp\Nodediff.A* >Nul:
  19. CD %FILE%
  20. For %%D in (Nodediff.A*) Do Set ND=%%D
  21. Copy %FILE%\%ND% C:\Tmp >Nul:
  22. Del %FILE%\%ND% >Nul:
  23. CD \Bink\Nodelist
  24. >Nul: C:\Bink\ARC2 EO C:\Tmp\%ND% Nodediff.*
  25. :Compile
  26. For %%L in (C:\Tmp\Nodelist.A*) Do Set ONLA=%%L
  27. >Nul: ARC2 EO %ONLA% Nodelist.*
  28. For %%O in (Nodelist.*) Do Set ONL=%%O
  29. REM Perform NODELIST 5/6 compile
  30. c:\Bink\ParseLst
  31. If Not ERRORLEVEL 0 Goto Exit
  32. :REM Now delete raw Nodelist
  33. Del %ONL% >Nul:
  34. If NOT Exist Nodediff.* Goto Exit
  35. Del Nodediff.* >Nul:
  36. For %%N in (Nodelist.0* Nodelist.1* Nodelist.2* Nodelist.3*) Do Set NNL=%%N
  37. >Nul: C:\Bink\ARC2 A5 C:\Tmp\%NNL% %NNL%
  38. Ren C:\Tmp\%NNL% NODELIST.A*
  39. Del %NNL% >Nul:
  40. Del %ONLA% >Nul:
  41. CD ..
  42. :Exit
  43. Echo.
  44.