home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / pwws113.zip / makeicon.cmd < prev    next >
OS/2 REXX Batch file  |  1997-11-25  |  3KB  |  102 lines
  1. /*****************************************************/
  2. /* MAKEICON.CMD for PlanetWide v1.13 OS/2 Web Server */
  3. /*                                                   */
  4. /* Creates WPS folder and associated icons           */
  5. /* required to support the software.                 */
  6. /*                                                   */
  7. /* (c)copyright 1997 Payne-Mennie Computing Services */
  8. /*              cepayne@uoguelph.ca                  */
  9. /*****************************************************/
  10.  
  11. /* Load REXXUTIL */
  12. call rxfuncadd 'sysloadfuncs', 'rexxutil', 'sysloadfuncs'
  13. call sysloadfuncs
  14.  
  15. call SysCls
  16.  
  17. say
  18. say
  19.  
  20. /*get program drive and path*/
  21. parse source . . argv0 .
  22. temp = reverse(argv0)
  23. temp = substr(temp, pos('\', temp))
  24. if length(temp) > 3 then temp = substr(temp, 2)
  25. CurrentPath = reverse(temp)
  26.  
  27. SAY "Installing PlanetWide v1.13 WPS folder and Icons to the desktop... "
  28. SAY 
  29. SAY 
  30.  
  31. classname = 'WPFolder'
  32. location = '<WP_DESKTOP>'
  33. title = "PlanetWide^OS/2 Web Server"
  34. icon = CurrentPath"planet.ico"
  35.  
  36. setup='OBJECTID=<PlanetWide>;ICONFILE 'icon';'
  37.  
  38. call charout , 'Building : 'title
  39. result = SysCreateObject(classname, title, location, setup)
  40. If result = 1 then call charout ,'...  Object created! '
  41. Else                      call charout ,'...  Not created! Return code = 'result
  42. call BldObj
  43. SAY ' '
  44.  
  45.  
  46. classname = 'WPProgram'
  47. title="PlanetWide v1.13"
  48. xe = CurrentPath"\webserv.exe"
  49. location = '<PlanetWide>'
  50. icon = CurrentPath"\planet.ico"
  51. setup = 'PARAMETERS=;EXENAME='xe';STARTUPDIR='CurrentPath';ICONFILE 'icon';'
  52. call BldObj
  53. SAY
  54.  
  55. classname = 'WPProgram'
  56. title="Webserv.Doc"
  57. xe = "e.exe"
  58. location = '<PlanetWide>'
  59. icon = CurrentPath"\readme.ico"
  60. setup = 'PARAMETERS='webserv.doc';EXENAME='xe';STARTUPDIR='CurrentPath';ICONFILE 'icon';'
  61. call BldObj
  62. SAY
  63.  
  64. classname = 'WPProgram'
  65. title="Registration Application^Please Register!"
  66. xe = CurrentPath"\register.exe"
  67. location = '<PlanetWide>'
  68. icon = CurrentPath"\register.ico"
  69. setup = 'PARAMETERS=;EXENAME='xe';STARTUPDIR='CurrentPath';ICONFILE 'icon';'
  70. call BldObj
  71. SAY
  72.  
  73. say
  74. say
  75. say "Use the WPS object to start PlanetWide"
  76. say
  77. say
  78. say "Thank you for your interest in the PlanetWide OS/2 Web Server software. "
  79. say "Please view the WEBSERV.DOC to learn how to configure your server program."
  80. say
  81. say
  82. say "Tech support:"
  83. say "=-=-=-=-=-=-="
  84. say
  85. say "   Email: cepayne@uoguelph.ca   "
  86. say "     WWW: http://www.pr.uoguelph.ca/cpayne/planet.htm"
  87. say 
  88. say
  89. say "   Please register your server software."
  90. say "   Thank you."
  91. say 
  92. EXIT
  93.  
  94. BldObj:
  95. call charout , 'Building : 'title
  96. result = SysCreateObject(classname, title, location, setup)
  97. If result = 1 then call charout ,'...  Object created! '
  98. Else                      call charout ,'...  Not created! Return code = 'result
  99. SAY ' '
  100. RETURN
  101.  
  102.