home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / LISTV10.ZIP / LISTER.BAT < prev    next >
Encoding:
DOS Batch File  |  1996-04-13  |  3.0 KB  |  86 lines
  1. @echo off
  2. rem: RA-Lister v1.0 (batch file)
  3. rem: By Jason Raphael (1:284/22)
  4.  
  5. if "%RA%" == "" goto error1
  6. if not exist %RA%\RA.EXE goto error2
  7. if "%TXTFILES%" == "" goto error3
  8. goto %1
  9. goto end
  10.  
  11. :ADD
  12. if exist %RA%\lister.asw goto addbbs
  13. goto end
  14.  
  15. :LOG
  16. if not exist %RA%\lister.log goto nolog
  17. if exist %RA%\lister.asw goto copylog
  18. goto end
  19.  
  20. :ERROR1
  21. echo.
  22. echo ■ RA-Lister ERROR:
  23. echo   RemoteAccess environment variable not set.  Please set the RA environment 
  24. echo   variable to your RemoteAccess system path, or see RALISTER.DOC for more 
  25. echo   information.  Ex: SET RA=D:\RA
  26. echo.
  27. echo ■ RA-Lister ERROR: >>d:\RALISTER.err
  28. echo   RemoteAccess environment variable not set.  Please set the RemoteAccess environment >>d:\RALISTER.err
  29. echo   variable to your RemoteAccess system path, or see RALISTER.DOC for more >>d:\RALISTER.err
  30. echo   information.  Ex: SET RA=D:\RA >>d:\RALISTER.err
  31. goto end
  32.  
  33. :ERROR2
  34. echo.
  35. echo ■ RA-Lister ERROR:
  36. echo   RemoteAccess environment variable set incorrectly.  Please set 
  37. echo   the RA environment variable to your RemoteAccess system path, or see 
  38. echo   RALISTER.DOC for more information.  Ex: SET RA=D:\RA
  39. echo.
  40. echo ■ RA-Lister ERROR: >>d:\RALISTER.err
  41. echo   RemoteAccess environment variable set incorrectly.  Please set >>d:\RALISTER.err
  42. echo   the RA environment variable to your RemoteAccess system path, or see >>d:\RALISTER.err
  43. echo   RALISTER.DOC for more information.  Ex: SET RA=D:\RA >>d:\RALISTER.err
  44. pause
  45. goto end
  46.  
  47. :ERROR3
  48. echo.
  49. echo ■ RA-Lister ERROR:
  50. echo   Textfile variable not set.  Please set the TXTFILES environment 
  51. echo   variable to your RemoteAccess textfile path, or see RALISTER.DOC for more 
  52. echo   information.  Ex: SET TXTFILES=D:\RA\TXTFILES
  53. echo.
  54. echo ■ RA-Lister ERROR: >>d:\ralister.err
  55. echo   Textfile variable not set.  Please set the TXTFILES environment >>d:\ralister.err
  56. echo   variable to your RemoteAccess textfile path, or see RALISTER.DOC for more >>d:\ralister.err
  57. echo   information.  Ex: SET TXTFILES=D:\RA\TXTFILES >>d:\ralister.err
  58. goto end
  59.  
  60. :ADDBBS
  61. echo                                   RA-Lister v1.0                                 >>%TXTFILES%\lister.ans
  62. echo CBBS Listing>>%TXTFILES%\lister.ans
  63. echo     ─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─->>%TXTFILES%\lister.ans
  64. echo. >>%TXTFILES%\lister.ans
  65. type %RA%\lister.asw >>%TXTFILES%\lister.ans
  66. echo ─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─-─- >>%TXTFILES%\lister.ans
  67. echo Press ENTER to continue.. >>%TXTFILES%\lister.ans
  68. echo. >>%TXTFILES%\lister.ans
  69. del %RA%\lister.asw                                 
  70. goto end
  71.  
  72. :NOLOG
  73. echo ■ RA-Lister v1.0 Log >>%RA%\lister.log
  74. echo   ─-─-─-─-─-─-─-─-─- >>%RA%\lister.log
  75. echo.                     >>%RA%\lister.log
  76. if exist %RA%\lister.asw goto copylog
  77. goto end
  78.  
  79. :COPYLOG
  80. type %RA%\LISTER.ASW >>%RA%\LISTER.LOG
  81. del %RA%\LISTER.ASW
  82. goto end
  83.  
  84. :end
  85. exit
  86.