Ignore:
Timestamp:
Jun 14, 2016, 4:14:19 PM (5 years ago)
Author:
Herwig Bauernfeind
Message:

GUITools: EVFSGUI: Start implementinig client side Samba configuration settings

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/guitools/shared/nlv.vrs

    r894 r924  
    77     */
    88
     9    /* settings.! variables used in NLV.VRS
     10       settings.!messages: 0 = there are no message files, do not search them
     11                           any other value = look for message files
     12       settings.!helpfile: 0 = there are no helpfiles, do not search them
     13                           any other value = look for message files
     14       settings.!nlv8dot3: 0 = nlv files do not conform to 8.3 names
     15                           any other value = nlv files are shortened to 8.3
     16     */
     17     
    918    IF options.!debug == 1 THEN SAY time()' NLVSetup() started'
    1019    IF options.!debug == 1 THEN SAY '  NLVSetup() is (c) Alex Taylor, portions (c) Herwig Bauernfeind'
     
    1928
    2029    filestem = VRParseFileName( execPath, "N")
    21     if translate(filestem) = "EVFSGUI" then filestem = "evfsi_"
    22     else filestem = SUBSTR( filestem, 1, 6, '_' )
     30    select
     31        when settings.!nlv8dot3 = 0 then filestem = filestem||'_'
     32        when translate(filestem) = "EVFSGUI" then filestem = "evfsi_"
     33        otherwise filestem = SUBSTR( filestem, 1, 5 )||'_'
     34    end
    2335    say '  NLV filestem   = "'filestem'"'
    2436
     
    3244
    3345    /* Find the messagefile and helpfile */
    34     settings.!messages = NLVsearch(nlv,'LANG','MSG','DPATH')
    35     settings.!helpfile = NLVsearch(nlv,'HELP','HLP','HELP')
     46    if settings.!messages <> 0 then settings.!messages = NLVsearch(nlv,'LANG','MSG','DPATH')
     47    if settings.!helpfile <> 0 then settings.!helpfile = NLVsearch(nlv,'HELP','HLP','HELP')
    3648
    3749    IF options.!debug == 1 THEN SAY '  NLV MessageFile = "'settings.!messages'"'
     
    5163    NLVSrchDone = 0
    5264    NLVFile = ""
     65    UnixRoot = value("UNIXROOT",,"OS2ENVIRONMENT")
    5366    do until NLVSrchDone = 1
    5467        say '  NLV 'Suffix' file   = "'filestem||nlv'.'Suffix'"'
     
    5871                NLVFile = strip(srchRoot'\'SubDir'\'filestem||nlv'.'Suffix,'L','\')
    5972                NLVSrchDone = 1
     73            end
     74            when VRFileExists(UnixRoot||'\usr\share\os2') then do
     75                ok = SysFileTree(UnixRoot||'\usr\share\os2\'filestem||nlv'.'Suffix,nlvmsg.,'FOS')
     76                if nlvmsg.0 = 1 then do
     77                    say "  Found  NLV "Suffix" file in rpm/yum subdirectory"
     78                    NLVFile = VRParseFilename(nlvmsg.1,"DPN")'.'Suffix
     79                    say "  Adding NLV "Suffix" path to "PathVar
     80                    OldPathVar = value(PathVar,,"OS2ENVIRONMENT")
     81                    ok = value(PathVar,VRParseFilename(nlvmsg.1,"DP")';'OldPathVar,"OS2ENVIRONMENT")
     82                    NLVSrchDone = 1
     83                end
     84                else say "  NLV "Suffix" file NOT in rpm/yum subdirectory."
    6085            end
    6186            when SysSearchPath(PathVar, filestem||nlv'.'Suffix) \= '' then do
Note: See TracChangeset for help on using the changeset viewer.