home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 June / VPR9706B.ISO / nsos2 / setjp.cmd < prev   
OS/2 REXX Batch file  |  1996-12-17  |  2KB  |  35 lines
  1. /* It is a small patch program to enable Netscape Navigator for      */
  2. /* OS/2 2.02 use Japanese.                                           */
  3. /* How to use:                                                       */
  4. /* SETJP                                                             */
  5. /* 1.You must invoke and quit Netscape before you use this patch     */
  6. /* to prepare NETSCAPE.INI                                           */
  7. options 'EXMODE'
  8. if RxFuncQuery('SysLoadFuncs') then do
  9.    call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  10.    call SysLoadFuncs
  11. end /* do */
  12. epfisini = filespec('D', value('user_ini', , 'os2environment')) || '\os2\system\epfis.ini'
  13. call SysIni epfisini, 'ALL:', 'A.'
  14. appl = ''
  15. do i = 1 to a.0
  16.    if pos('NETSCAPE', translate(a.i)) > 0 then do
  17.       appl = a.i
  18.       leave
  19.    end /* do */
  20. end /* do */
  21. if appl = '' then call errorandexit 'ネットスケープナビゲーターがインストールされていません。'
  22. filepath = strip(translate(SysIni(epfisini, appl, 'FilePath'), ' ', '00'x))
  23. if filepath = 'ERROR:' then errorandexit 'ネットスケープナビゲーターがインストールされていません。'
  24. netscapeini = filepath || '\netscape.ini'
  25. call SysIni netscapeini, 'INTL', 'Font1', 'Shift_JIS,MINCHO Proportional,12,MINCHO,10,932,932' || '00'x
  26. call SysIni netscapeini, 'Intl', 'AcceptLang', 'Japanese [ja]' || '00'x
  27. call SysIni netscapeini, 'Intl', 'URL Charset', 'iso-2022-jp' || '00'x
  28. call SysIni netscapeini, 'Intl', 'AutoSelect', 'iso-2022-jp' || '00'x
  29. exit
  30.  
  31. errorandexit: procedure
  32. parse arg msg
  33. say msg
  34. exit
  35.