home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / adpost02.zip / InstPost.Cmd < prev    next >
OS/2 REXX Batch file  |  1995-08-02  |  3KB  |  79 lines
  1. /* Installation of the AdeptXBBS AutoPost Program */
  2.  
  3. say 'D'
  4. say '            C* ────────────────────────────────────────────────────────── *  '
  5. say '      C░            AdeptXBBS AutoPost Installation V0.1ß           ░  '
  6. say '       C░                                                            ░  '
  7. say '     C░    This Install program Will Install The AdeptXBBS         ░  '
  8. say "       C░    AutoPost Program And it's Componants in a subdir        ░   "
  9. say 'AC        C░    in your Adept directory Names "AutoPost". Once          ░  '
  10. say '       C░    the installation is completed you will be ready to      ░  '
  11. say '       C░    run the Program for the very First Time! Enjoy.         ░  '
  12. say '        C░               CopyRight (C) 1995 H.O.P.E                   ░  '
  13. say '            C* ────────────────────────────────────────────────────────── *  '
  14.  
  15. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  16. call SysLoadFuncs
  17.  
  18. SAY ''
  19.  
  20. SAY '                           Installation Menu                        '
  21. SAY ''
  22. SAY ' [Y] Continue and Install The AdeptXBBS AutoPost!'
  23. SAY ''
  24. SAY " [N] Quit and DON'T Install the AdeptXBBS AutoPost Program!"
  25. SAY ''
  26. SAY ' Choice: '
  27. PARSE PULL answer
  28. if anwser='N' | answer = 'n' then signal End
  29. Else
  30. if Answer='Y' | answer = 'y' then do
  31. SAY ' Great! You picked the right choice! '
  32. SAY ''
  33. SAY 'Which Drive Is Your Copy of AdeptXBBS Located in? (i.e - D) <no ":">!'
  34. PARSE PULL dummy 
  35. SAY ''
  36. SAY '  Installing the AdeptXBBS AutoPost program Into Appropriate Dir.'
  37. ADDRESS CND 'ECHO OFF'
  38. ADDRESS CMD 'MD 'dummy':\adept\AutoPost'
  39. ADDRESS CMD 'UNZIP APostData.Dat -d 'dummy':\adept\AutoPost'
  40. ADDRESS CMD 'COPY *.* 'dummy':\adept\AutoPost'
  41. ADDRESS CMD 'CD 'dummy':\adept\AutoPost'
  42. SAY ''
  43. SAY ''
  44. SAY 'Do You Wish to Have The AutoPost Started At Logon <Great for Popularity>? Y/N' 
  45. PARSE UPPER PULL logon 
  46. if logon = 'Y' | logon = 'y' then signal DoItLogon
  47. Else
  48. if logon = 'N' | logon = 'n' then signal DoItMain
  49.  
  50. DOITLOGON:
  51. logmenu = dummy':\adept\menus\AtLogin.Menu'
  52. doit = Lineout(logmenu,'~,10,AdeptXBBS AutoPost,'dummy':\adept\AutoPost\AutoPost.Erx,0')
  53. SAY 'AdeptXBBS AutoPost has Just Been Added to the AtLogin.Menu'
  54. signal DoItMain
  55.  
  56. DOITMAIN:
  57. SAY ''
  58. SAY 'Now Adding AdeptXBBS AutoPost to the Main.Menu'
  59. SAY ''
  60. main = dummy':\adept\menus\Main.Menu'
  61. doit = Lineout(main,'~,10,AdeptXBBS AutoPost,'dummy':\adept\AutoPost\AutoPost.Erx,0')
  62. SAY "AdeptXBBS AutoPost Has Just been Added to the Main.Menu with the key '~' "
  63. signal end
  64.  
  65. End:
  66. SAY ''
  67. SAY 'Delete the APostData.Dat File? Since The Installation Process is Completed?'
  68. Parse Pull delete
  69. if delete = 'Y' | delete = 'y' then do
  70. ADDRESS CMD 'del 'dummy':\adept\AutoPost\APostData.Dat'
  71. end
  72. Do
  73. SAY ''
  74. SAY ' Thanks For Trying Out the AdeptXBBS AutoPost Program! '
  75. SAY ''
  76. SAY 'Enjoy!'
  77. SAY ''
  78. exit
  79.