home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: SysTools / SysTools.zip / ipt115.zip / install.cmd < prev    next >
Encoding:
Text File  |  1999-12-18  |  1.9 KB  |  72 lines
  1. /* */
  2.  
  3. call RxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
  4. call SysLoadFuncs
  5.  
  6. call SysCls
  7.  
  8. say 'Dumb little Rexx Installer for InProTrack'
  9. say '-----------------------------------------'
  10. say
  11. say '   Installation...'
  12. say
  13. say '   ... will create folder and objects on desktop'
  14. say '   ... will create associations of SYSLEVEL.* files with InProTrack'
  15. say '   ... will NOT modify your config.sys and *.ini files'
  16. say '       so stay cool :-)'
  17. say
  18.  
  19. say 'Associate SYSLEVEL.* files with InProTrack (Y/N)?'
  20. PARSE UPPER PULL Assoc
  21. IF Assoc="" THEN
  22.  Assoc="N"
  23.  
  24. InstDir=directory()
  25.  
  26. /* Make icons */
  27. say
  28. say '--------------------------------------------'
  29. say 'creating icons...'
  30. say '--------------------------------------------'
  31.  
  32. mydir=Directory()
  33.  
  34. classname='WPFolder'
  35. title='InProTrack'
  36. location='<WP_DESKTOP>'
  37. folderid='<InProTrack_FOLDER>'
  38. setup='OBJECTID='||folderid||';ICONVIEW=FLOWED'
  39. rc=SysCreateObject(classname, title, location, setup, 'U')
  40.  
  41. classname='WPProgram'
  42. title='InProTrack'
  43. title2='InProTrack Association'
  44. location='<InProTrack_FOLDER>'
  45. icon='ICONFILE='mydir||'\ipt.ico'
  46. icon2='ICONFILE='mydir||'\iptdata.ico'
  47. exename='EXENAME='||InstDir||'\ipt.exe'
  48. WorkDir=InstDir
  49.  
  50. IF Assoc="Y" THEN
  51.  DO
  52.   /* Create associations */
  53.   say
  54.   say '--------------------------------------------'
  55.   say 'creating associations...'
  56.   say '--------------------------------------------'
  57.   setup='OBJECTID=<InProTrack_ASSOC>;STARTUPDIR='||Workdir||';'||icon2||';'||exename||';ASSOCFILTER=syslevel.*,SYSLEVEL.*'
  58.   rc=SysCreateObject(classname, title2, location, setup, 'U')
  59.   setup='OBJECTID=<InProTrack_PROGRAM>;STARTUPDIR='||Workdir||';'||icon||';'||exename
  60.  END
  61. ELSE
  62.   setup='OBJECTID=<InProTrack_PROGRAM>;STARTUPDIR='||Workdir||';'||icon||';'||exename
  63.  
  64. rc=SysCreateObject(classname, title, location, setup, 'U')
  65.  
  66. say
  67. say 'Done.'
  68. say
  69.  
  70. "@pause"
  71.  
  72. EXIT