home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / PWWS110 / MAKEICON.CMD < prev    next >
OS/2 REXX Batch file  |  1997-09-07  |  3KB  |  93 lines
  1. /*****************************************************/
  2. /* MAKEICON.CMD for PlanetWide v1.10 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.10 WPS Icon 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.10"
  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 DESKTOP object to start PlanetWide"
  76. say
  77. say
  78. say "Thank you for your interest in our Web Server software. See the WEBSERV.DOC"
  79. say "for information on how to configure your server program."
  80. say 
  81. say "Please register your server software."
  82. say 
  83. EXIT
  84.  
  85. BldObj:
  86. call charout , 'Building : 'title
  87. result = SysCreateObject(classname, title, location, setup)
  88. If result = 1 then call charout ,'...  Object created! '
  89. Else                      call charout ,'...  Not created! Return code = 'result
  90. SAY ' '
  91. RETURN
  92.  
  93.