home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / erotore.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1999-09-13  |  4KB  |  126 lines
  1. /*  Install Script for E-Rotor  (C)1999  Alexandr Volodin        */
  2.  
  3.  
  4.  
  5. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  6. call SysLoadFuncs
  7.  
  8. Dir = Directory()
  9. call SysMkDir('FLAG')
  10.  
  11.  
  12. Location = "<WP_DESKTOP>"
  13. Title = "AVL E-Rotor"
  14. Class = "WPFolder"
  15. SetupString = "NOPRINT=YES;"
  16. SetupString =  SetupString || "HELPPANEL=1277;"
  17. SetupString =  SetupString || "DETAILSVIEW=MINI;"
  18. SetupString =  SetupString || "TREEVIEW=MINI^,LINES;"
  19. SetupString =  SetupString || "DETAILSFONT=9.WarpSans;"
  20. SetupString =  SetupString || "TREEFONT=9.WarpSans;"
  21. SetupString =  SetupString || "OBJECTID=<AVL E-Rotor Folder>;"
  22. SetupString =  SetupString || "BACKGROUND="Dir||"\erotor2.bmp,m"
  23. Call MakeObj
  24.  
  25.  
  26. Location = "<AVL E-Rotor Folder>"
  27. Title = "AVL Software Homepage"
  28. Class = "WPUrl"
  29. SetupString = "NOTDEFAULTICON=YES;"
  30. SetupString =  SetupString || "HELPPANEL=33852;"
  31. SetupString =  SetupString || "HELPLIBRARY=wpinet.hlp;"
  32. SetupString =  SetupString || "URL=http://chat.ru/~andvol;"
  33. Call MakeObj
  34.  
  35. Location = "<AVL E-Rotor Folder>"
  36. Title = "E-Rotor Homepage"
  37. Class = "WPUrl"
  38. SetupString = "NOTDEFAULTICON=YES;"
  39. SetupString =  SetupString || "HELPPANEL=33852;"
  40. SetupString =  SetupString || "HELPLIBRARY=wpinet.hlp;"
  41. SetupString =  SetupString || "URL=http://chat.ru/~andvol/e-rotore;"
  42. Call MakeObj
  43.  
  44. Location = "<AVL E-Rotor Folder>"
  45. Title = "E-Rotor Documentation"
  46. Class = "WPProgram"
  47. SetupString = "NOPRINT=YES;"
  48. SetupString =  SetupString || "STARTUPDIR="Dir||";"
  49. SetupString =  SetupString || "EXENAME=NETSCAPE.EXE;"
  50. SetupString =  SetupString || "ASSOCFILTER=*.html;"
  51. SetupString =  SetupString || "ASSOCTYPE=HTML;"
  52. SetupString =  SetupString || "PARAMETERS=file:///"Dir||"\doc\index.htm;"
  53. Call MakeObj
  54.  
  55.  
  56.  
  57. Location = "<AVL E-Rotor Folder>"
  58. Title = "E-Rotor"
  59. Class = "WPProgram"
  60. SetupString = "NOPRINT=YES;"
  61. SetupString =  SetupString || "HELPPANEL=4083;"
  62. SetupString =  SetupString || "PROGTYPE=PM;"
  63. SetupString =  SetupString || "EXENAME="Dir||"\E-rotor2.EXE;"
  64. SetupString =  SetupString || "STARTUPDIR="Dir||";"
  65. Call MakeObj
  66.  
  67. Location = "<WP_START>"
  68. Title = "E-Rotor"
  69. Class = "WPProgram"
  70. SetupString = "NOPRINT=YES;"
  71. SetupString =  SetupString || "HELPPANEL=4083;"
  72. SetupString =  SetupString || "PROGTYPE=PM;"
  73. SetupString =  SetupString || "EXENAME="Dir||"\E-rotor2.EXE;"
  74. SetupString =  SetupString || "STARTUPDIR="Dir||";"
  75. Call MakeObj
  76.  
  77.  
  78. Location = "<AVL E-Rotor Folder>"
  79. Title = "E-Rotor Mail Setup"
  80. Class = "WPProgram"
  81. SetupString = "NOPRINT=YES;"
  82. SetupString =  SetupString || "HELPPANEL=4083;"
  83. SetupString =  SetupString || "PROGTYPE=PM;"
  84. SetupString =  SetupString || "EXENAME="Dir||"\setup.EXE;"
  85. SetupString =  SetupString || "STARTUPDIR="Dir||";"
  86. Call MakeObj
  87.  
  88.  
  89.  
  90. Location = "<WP_DESKTOP>"
  91. Title = " "
  92. Class = "WPProgram"
  93. SetupString = "NOPRINT=YES;"
  94. SetupString =  SetupString || "HELPPANEL=4083;"
  95. SetupString =  SetupString || "MINIMIZED=YES;"
  96. SetupString =  SetupString || "PROGTYPE=PM;"
  97. SetupString =  SetupString || "EXENAME="Dir||"\InfoWin.cmd;"
  98. SetupString =  SetupString || "STARTUPDIR="Dir||";"
  99. SetupString =  SetupString || "OBJECTID=<e-rotor>;"
  100. SetupString =  SetupString || "ICONRESOURCE=15^,"||Dir||"\res.DLL;"
  101.  
  102. Call MakeObj
  103.  
  104. Say ''
  105. Say ''
  106. Say ''
  107. Say ''
  108. Say ''
  109. Say ''
  110. Say ''
  111. Say ''
  112. Say 'Starting E-Rotor...'
  113.            '@start e-rotor2.exe' 
  114.  
  115. exit
  116.  
  117. MakeObj:
  118.     Say Copies("─",75)
  119.     Say 'Creating 'Title' at 'location' as 'Class
  120.     rc = 0
  121.     rc = SysCreateObject(Class,Title,Location,SetupString)
  122.     if rc then do
  123.         Say "SysCreateObject returned "rc
  124.     end
  125.     return
  126.