home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / CHIPinte022000.iso / office51 / os2 / misc / java / jre117 / JAVAINUF.EXE / nscheck.cmd < prev    next >
Encoding:
Text File  |  1998-09-10  |  1003 b   |  36 lines
  1. /* rexx  */
  2. /************************************************************************/
  3. /*trace ?i*/
  4. call RxFuncAdd 'RexxInstSetVariable', 'WPINSTAL', 'RexxInstSetVariable'
  5. call RxFuncAdd 'RexxInstDeselect', 'WPINSTAL', 'RexxInstDeselect'
  6. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'sysLoadFuncs'
  7. call SysLoadFuncs
  8.  
  9. parse arg objectid
  10.  
  11.   path = sysIni(,'Netscape','2.02')
  12.   if c2d(right(path,1)) = 0 then do
  13.       path=substr(path,1,length(path)-1)
  14.   end
  15.  
  16.   if path == 'ERROR:' then do
  17.      call RexxInstDeSelect objectid,"NSFiles"
  18.      end
  19.   else do
  20.      path =  insert('\java11',path,length(path))
  21.      fullpath = stream(path||"\SYSLEVEL.JEP","C","Query Exists")
  22.      if fullpath = '' then do
  23.        call RexxInstDeSelect objectid,"NSFiles"
  24.      end
  25.      else do
  26.        newpath=SysTempFileName(path'\javabk?',?)
  27.        call SysMkDir(newpath)
  28.        'copy 'path'\*.*' newpath
  29.        call RexxInstSetVariable objectid,"Java11", "NSDRV", path
  30.      end
  31.    end
  32.  
  33. exit 0
  34.  
  35.  
  36.