home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / htmle96b.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-07-22  |  2KB  |  55 lines
  1. /* REXX Install script */
  2. '@echo off'
  3.  
  4. version = 'v0.96b'
  5.  
  6. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  7. call SysLoadFuncs
  8.  
  9. say "A program icon will be created for HTML-Ed "version" in THIS DIRECTORY."
  10. say "Continue?"
  11.  
  12. parse pull ian
  13. if ian='n' then exit
  14. if ian='N' then exit
  15.  
  16. exename = Directory()'\HTMLED.EXE'
  17. startupdir = Directory()
  18. objsettings = 'OBJECTID=<HTMLED>;EXENAME='exename';STARTUPDIR='startupdir';PARAMETERS="%*";PROGTYPE=PM;MINIMIZED=NO;ICONFILE=HTMLED.ICO'
  19.  
  20. say
  21. say "Do you want to associate *.HTM? files with HTML-Ed?"
  22. say "This will allow you to double-click on an HTML file to launch HTML-Ed."
  23. parse pull ian
  24. if ian='y' then 
  25.   do
  26.   /*objsettings = objsettings';ASSOCFILTER=*.HTM?'*/
  27.   'COPY HTMLED.EA EA.TMP'
  28.   'EAUTIL HTMLED.EXE EA.TMP /O /J'
  29.   end
  30. say
  31.  
  32. rc = SysCreateObject('WpProgram', 'HTML-Ed 'version, '<WP_DESKTOP>', objsettings, 'replace')
  33. if rc != 1 then say "Error creating program object!"
  34. else say "Program object created successfully!"
  35.  
  36. say
  37. say "Do you want to create an object for the HTML-Ed on-line manuals?"
  38. parse pull ian
  39. say
  40. if ian='y' then
  41.   do
  42.     objsettings = 'OBJECTID=<HTMLED_MANUAL>;EXENAME=VIEW.EXE;STARTUPDIR='startupdir';PARAMETERS=HTMLED.INF;PROGTYPE=PM;MINIMIZED=NO'
  43.     rc = SysCreateObject('WpProgram', 'HTML-Ed Manual', '<WP_DESKTOP>', objsettings, 'replace')
  44.     if rc != 1 then say "Error creating manual object!"
  45.     else say "Manual object created successfully!"
  46.  
  47.     objsettings = 'OBJECTID=<HTMLED_PROGMAN>;EXENAME=VIEW.EXE;STARTUPDIR='startupdir';PARAMETERS=HM-PROG.INF;PROGTYPE=PM;MINIMIZED=NO'
  48.     rc = SysCreateObject('WpProgram', "HTML-Ed Programmer's Manual", '<WP_DESKTOP>', objsettings, 'replace')
  49.     if rc != 1 then say "Error creating programmer's manual object!"
  50.     else say "Programmer's Manual object created successfully!"
  51.   end
  52. say
  53.  
  54. call SysDropFuncs
  55.