Changeset 990


Ignore:
Timestamp:
Dec 9, 2016, 10:06:20 AM (4 years ago)
Author:
Herwig Bauernfeind
Message:

GUITools: All changes that have built over time.

Location:
trunk/guitools
Files:
54 added
28 edited

Legend:

Unmodified
Added
Removed
  • trunk/guitools/evfsgui/evfsgui.vrp

    r925 r990  
    33VRX: wps_open.VRX
    44VXOFile: VROBJEX
     5VXOFile: VRSPLIT
    56ClassFile: VRSPLITB.DLL
    67MacroPath: VRM:G:\netlabs\svn\samba\trunk\guitools\evfsgui
     
    1112VRXWindow: __VREFileListWindow,1,711,14020,2665,3358
    1213VRXWindow: __VRESectionListWindow,1,1072,11708,12238,6914
    13 VRXWindow: __VREToolsWindow,1,2951,12479,5474,1665
     14VRXWindow: __VREToolsWindow,1,2951,12479,6992,1661
    1415VRXWindow: __VREWindListWindow,1,566,10262,4963,3150
    1516UserFile: 1
    1617UserWindow: Main,1
    1718UserWindow: SW_PROGRESS,1
     19UserWindow: SW_SETTINGS,1
    1820UserWindow: SW_SMBCONF,1
  • trunk/guitools/evfsgui/evfsgui.vrx

    r925 r990  
    15581558    /* however it is not desirable to always have a complete copy normally */
    15591559    ok = SysFileDelete(samba.!shadowsmbconf)
    1560     say     '  'samba.!testparmexe' -v -s 1>'samba.!shadowsmbconf' 2>'TempDir'testparm.stderr'
    1561     address cmd samba.!testparmexe' -v -s 1>'samba.!shadowsmbconf' 2>'TempDir'testparm.stderr'
     1560    if datatype(log_level) <> "NUM" then log_level = 2
     1561    say     '  'samba.!testparmexe' -v -s -d='log_level' 1>'samba.!shadowsmbconf' 2>'TempDir'testparm.stderr'
     1562    address cmd samba.!testparmexe' -v -s -d='log_level' 1>'samba.!shadowsmbconf' 2>'TempDir'testparm.stderr'
    15621563    if options.!debug == 1 then say time()' _SmbConfCreateShadowCopy done'
    15631564return
     
    43934394*/
    43944395PB_SETTINGS_APPLY_Click:
    4395     advanced.!loglevel    = VRGet("SPIN_LOGLEVEL", "Value" )
     4396    advanced.!loglevel    = VRGet("SPIN_LOG_LEVEL", "Value" )
    43964397    advanced.!logfile     = VRGet("EF_LOGFILE",    "Value" )
    43974398    advanced.!browseauth  = VRGet("CB_BROWSEAUTH", "Set" )
     
    44474448        if \_IsValidIPAddress(VRGet("EF_WINS_SERVER","Value")) then ok = VRSet("EF_WINS_SERVER","Value","")
    44484449        call IniSet 'wins server', VRGet("EF_WINS_SERVER","Value"), handle
     4450        call IniSet 'log level', VRGet("SPIN_LOG_LEVEL","Value"), handle
    44494451        call IniSave handle
    44504452        call IniClose handle
     
    47934795*/
    47944796SPIN_client_signing_Change:
     4797    advanced.!smbconfchanged = 1
     4798return
     4799
     4800/*:VRX         SPIN_LOG_LEVEL_Change
     4801*/
     4802SPIN_LOG_LEVEL_Change:
    47954803    advanced.!smbconfchanged = 1
    47964804return
     
    53825390    if advanced.!miniicons   \= ""  then ok = VRSet("CB_MINIICONS",  "Set",   advanced.!miniicons)
    53835391
    5384     /* Obsolete */
    5385     if advanced.!logfile     \= ""  then ok = VRSet("EF_LOGFILE",    "Value", advanced.!logfile)
    5386     if advanced.!loglevel    \= "0" then ok = VRSet("SPIN_LOGLEVEL", "Value", advanced.!loglevel)
    5387 
     5392/*  if advanced.!logfile     \= ""  then ok = VRSet("EF_LOGFILE",    "Value", advanced.!logfile)     /* Obsolete */
     5393    if advanced.!loglevel    \= "0" then ok = VRSet("SPIN_LOG_LEVEL", "Value", advanced.!loglevel) */
     5394
     5395    log_level = IniGet('log level', 'global', samba.!smbconf)
    53885396    call _SmbConfCreateShadowCopy
     5397
     5398
     5399say "log level ="log_level
     5400    if log_level = "" then log_level = 2
     5401say "log level ="log_level
     5402    ok = VRSet("SPIN_LOG_LEVEL","Value",log_level)
    53895403
    53905404    wins_support = translate(IniGet('wins support', 'global', samba.!shadowsmbconf))
     
    54655479    client_max_protocol         = IniGet('client max protocol', 'global', samba.!shadowsmbconf)
    54665480    if client_max_protocol = "" then do
    5467        ok = VRSet("SPIN_client_max_protocol","Enabled", 0)
    5468         ok = VRSet("DT_client_max_protocol","Enabled", 0)
     5481     /* ok = VRSet("SPIN_client_max_protocol","Enabled", 0)
     5482        ok = VRSet("DT_client_max_protocol","Enabled", 0) */
    54695483    end
    54705484    else ok = VRSet("SPIN_client_max_protocol","Value",client_max_protocol)
     
    54725486    client_min_protocol         = IniGet('client min protocol', 'global', samba.!shadowsmbconf)
    54735487    if client_min_protocol = "" then do
    5474        ok = VRSet("SPIN_client_min_protocol","Enabled", 0)
    5475         ok = VRSet("DT_client_min_protocol","Enabled", 0)
     5488     /* ok = VRSet("SPIN_client_min_protocol","Enabled", 0)
     5489        ok = VRSet("DT_client_min_protocol","Enabled", 0) */
    54765490    end
    54775491    else ok = VRSet("SPIN_client_min_protocol","Value",client_min_protocol)
  • trunk/guitools/shared/inittempdir.vrs

    r638 r990  
    77    HaveNoTMPDIR  = 0
    88    TempDir       = translate(value('TMPDIR',,'OS2ENVIRONMENT'),'\','/')
    9     IF options.!debug == 1 THEN say '  TMPDIR="'TempDir'"'
     9    IF options.!debug == 1 THEN say '  TMPDIR = "'TempDir'"'
    1010    if TempDir = '' then do
    1111        HaveNoTMPDIR  = 1
    1212        TempDir = translate(value('TEMP',,'OS2ENVIRONMENT'),'\','/')
    13         IF options.!debug == 1 THEN say '  TEMP="'TempDir'"'
     13        IF options.!debug == 1 THEN say '  TEMP = "'TempDir'"'
    1414    end
    1515    if TempDir = '' then do
    1616        TempDir = translate(value('TMP',,'OS2ENVIRONMENT'),'\','/')
    17         IF options.!debug == 1 THEN say '  TMP="'TempDir'"'
     17        IF options.!debug == 1 THEN say '  TMP = "'TempDir'"'
    1818    end
    1919    if TempDir = '' then do
  • trunk/guitools/shared/nlv.vrs

    r924 r990  
    3131        when settings.!nlv8dot3 = 0 then filestem = filestem||'_'
    3232        when translate(filestem) = "EVFSGUI" then filestem = "evfsi_"
    33         otherwise filestem = SUBSTR( filestem, 1, 5 )||'_'
     33        otherwise filestem = strip(SUBSTR( filestem, 1, 5 ))||'_'
    3434    end
    3535    say '  NLV filestem   = "'filestem'"'
     
    6060    Suffix  = arg(3)
    6161    PathVar = arg(4)
    62     say time()" NLVSearch() started"
    6362    NLVSrchDone = 0
    6463    NLVFile = ""
     
    6766        say '  NLV 'Suffix' file   = "'filestem||nlv'.'Suffix'"'
    6867        select
     68            when VRFileExists(execdir'\'filestem||nlv'.'Suffix) then do
     69                say "  Attempt1: NLV "Suffix" file found directly!"
     70                NLVFile = strip(execdir'\'filestem||nlv'.'Suffix,'L','\')
     71                NLVSrchDone = 1
     72            end
    6973            when VRFileExists(srchRoot'\'SubDir'\'filestem||nlv'.'Suffix) then do
    70                 say "  NLV "Suffix" file found directly!"
     74                say "  Attempt2: NLV "Suffix" file found directly!"
    7175                NLVFile = strip(srchRoot'\'SubDir'\'filestem||nlv'.'Suffix,'L','\')
     76                NLVSrchDone = 1
     77            end
     78            when SysSearchPath(PathVar, filestem||nlv'.'Suffix) \= '' then do
     79                execDir = VRParseFileName(SysSearchPath(PathVar, filestem||nlv'.'Suffix),"DP")
     80                say "  Attempt3: NLV "Suffix" file found via "PathVar
     81                NLVFile = strip(execdir'\'filestem||nlv'.'Suffix,'L','\')
    7282                NLVSrchDone = 1
    7383            end
     
    7585                ok = SysFileTree(UnixRoot||'\usr\share\os2\'filestem||nlv'.'Suffix,nlvmsg.,'FOS')
    7686                if nlvmsg.0 = 1 then do
    77                     say "  Found  NLV "Suffix" file in rpm/yum subdirectory"
     87                    say "  Attempt4: Found  NLV "Suffix" file in rpm/yum subdirectory"
    7888                    NLVFile = VRParseFilename(nlvmsg.1,"DPN")'.'Suffix
    7989                    say "  Adding NLV "Suffix" path to "PathVar
     
    8292                    NLVSrchDone = 1
    8393                end
    84                 else say "  NLV "Suffix" file NOT in rpm/yum subdirectory."
     94                else say "  NLV "Suffix" file NOT in rpm/yum "UnixRoot||'\usr\share\os2\'filestem||nlv'.'Suffix"subdirectory."
    8595            end
    86             when SysSearchPath(PathVar, filestem||nlv'.'Suffix) \= '' then do
    87                 execDir = VRParseFileName(SysSearchPath(PathVar, filestem||nlv'.'Suffix),"DP")
    88                 say "  NLV "Suffix" file found via "PathVar
    89                 NLVFile = strip(execdir'\'filestem||nlv'.'Suffix,'L','\')
    90                 NLVSrchDone = 1
    91             end
     96           
    9297            otherwise do
    9398                say "  Searching subdirectories"
  • trunk/guitools/shared/sambainit.vrs

    r908 r990  
    207207    if \VRFileExists(samba.!smbconf) then call _ErrorDataFileNotFound samba.!smbconf' is not present.'
    208208    IF options.!debug == 1 then say '  Samba smb.conf = "'samba.!smbconf'"'
     209
     210    /* complete shadow copy of smb.conf in temporary directory - should always be created on the fly */
     211    /* before reading from it */
     212    samba.!shadowsmbconf = TempDir||'smb.conf'
    209213
    210214    /* find all datafiles - their locations are fixed */
  • trunk/guitools/shared/smbtree.vrs

    r925 r990  
    55    say time()' _RefreshTree() started'
    66    FirstRun = 0
    7     if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", "Refreshing network")
     7    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", " Refreshing network")
    88    ok = SysFileDelete(samba.!msg)
    99    parse var debuglevel .'='level
     
    5454    if errstat = "READY:" then do
    5555        if file2stem(samba.!error,"treeError.") > 1 then do
    56             ok = VRSet("DT_STATUSBAR","Caption", treeError.2)
     56            ok = VRSet("DT_STATUSBAR","Caption", " "||treeError.2)
    5757        end
    5858    end
     
    458458    if UserCred = '-N' then UserCred = ''
    459459
    460     if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", "Ready.")
     460    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption", " Ready.")
    461461    say time()' _AddSharesDisplay() loop end'
    462462return
     
    501501    address cmd 'detach 'samba.!smbtreeexe' 'BroadCast' -D 'UserCred' 'debuglevel' >'samba.!msg
    502502
    503     if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption","Enumerating workgroups")
     503    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption"," Enumerating workgroups")
    504504    do while stream(samba.!msg,'c','open read') <> "READY:"
    505505        ok = SysSleep(1)
     
    563563    address cmd 'detach 'samba.!nmblookupexe' 'machine' 'debuglevel' >'samba.!msg
    564564
    565     if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption","Obtaining IP from "machine)
     565    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption"," Obtaining IP from "machine)
    566566    do while stream(samba.!msg,'c','open read') <> "READY:"
    567567        ok = SysSleep(0.33)
     
    590590    address cmd 'detach 'samba.!nmblookupexe' -A 'machine' 'debuglevel' >'samba.!msg
    591591
    592     if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption","Obtaining capabilities from "machine)
     592    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption"," Obtaining capabilities from "machine)
    593593    do while stream(samba.!msg,'c','open read') <> "READY:"
    594594        ok = SysSleep(0.33)
     
    625625    address cmd 'detach 'samba.!nmblookupexe' -S 'machine' 'debuglevel' >'samba.!msg
    626626
    627     if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption","Querying "machine" for roles")
     627    if VRIsValidObject("DT_STATUSBAR") then ok = VRSet("DT_STATUSBAR","Caption"," Querying "machine" for roles")
    628628    do while stream(samba.!msg,'c','open read') <> "READY:"
    629629        ok = SysSleep(0.33)
     
    665665file2stem:
    666666    say time()' file2stem() started'
    667     msgfile = arg(1)
    668     msgstem = arg(2)
    669     delmsgfile = translate(arg(3))
     667    msgfile = arg(1) /* file to create stem of */
     668    msgstem = arg(2) /* name of the stem */
    670669    if right(msgstem,1) <> '.' then msgstem = msgstem'.'
     670    delmsgfile = translate(arg(3)) /* erase file after transfer */
     671    skipwords = strip(arg(4)||' creating lame tdb( ***') /* skip lines with these words */
     672    do J = 1 to words(skipwords)
     673        skip.J = translate(word(skipWords,J))
     674    end
     675    skip.0 = J
     676   
    671677    say '  file2stem("'msgfile'","'msgstem'")'
    672678    dyn = 'drop 'msgstem
    673679    interpret dyn
    674680    stemcount = 0
     681    skipped = 0
    675682    do while lines(msgfile) > 0
    676683        stemcount = stemcount + 1
    677684        inline = linein(msgfile)
    678         if pos('creating lame',inline) > 0 | pos('tdb(',inline) > 0 then do
    679             stemcount = stemcount - 1
    680             iterate
    681         end
    682         dyn = msgstem||stemcount' = inline'
    683         interpret dyn
     685        SkipIt = 0
     686        do J = 1 to skip.0
     687        if pos(skip.J,translate(inline)) > 0 then do
     688                skipit = 1
     689                stemcount = stemcount - 1
     690                skipped = skipped + 1
     691                leave
     692            end
     693        end
     694        if \SkipIt then do
     695            dyn = msgstem||stemcount' = inline'
     696            interpret dyn
     697        end
    684698    end
    685699    dyn = msgstem||"0 = "stemcount
     
    689703   
    690704    drop msgfile msgstem
    691     say time()' file2stem() ['stemcount'] done'   
     705    say time()' file2stem() ['stemcount' added, 'skipped' skipped] done'   
    692706return stemcount
  • trunk/guitools/smbmon/rc/lang/smbmon_de.mkm

    r908 r990  
    2424SMM0019I: Netzwerkumgebung
    2525SMM0020I: Produktinformation
    26 SMM0021I: Die Leute hinter Samba Server fr eComStation (OS/2)
     26SMM0021I: Die Leute hinter Samba Server fr OS/2
    2727SMM0022I: TDB Dateien prfen
    2828SMM0023?:
  • trunk/guitools/smbmon/rc/lang/smbmon_en.mkm

    r908 r990  
    2424SMM0019I: Nethood
    2525SMM0020I: About
    26 SMM0021I: Samba Server for eComStation is brought to you by
     26SMM0021I: Samba Server for OS/2 is brought to you by
    2727SMM0022I: Check TDB files
    2828SMM0023I:
  • trunk/guitools/smbmon/rc/lang/smbmon_es.mkm

    r908 r990  
    2424SMM0019I: "Nethood"
    2525SMM0020I: Acerca de
    26 SMM0021I: Servidor Samba para eComStation proporcionado por
     26SMM0021I: Servidor Samba para OS/2 proporcionado por
    2727SMM0022I: Comprobar los archivos TDB
    2828SMM0023I:
  • trunk/guitools/smbmon/rc/lang/smbmon_fr.mkm

    r908 r990  
    2626SMM0019I: Voisinage r‚seau
    2727SMM0020I: · propos de
    28 SMM0021I: Serveur Samba pour eComStation vous est propos‚ par
     28SMM0021I: Serveur Samba pour OS/2 vous est propos‚ par
    2929SMM0022I: V‚rifier fichiers TDB
    3030SMM0023I:
  • trunk/guitools/smbmon/rc/lang/smbmon_sv.mkm

    r908 r990  
    2424SMM0019I: N„tverket
    2525SMM0020I: Om
    26 SMM0021I: Samba Server f”r eComStation kommer fran
     26SMM0021I: Samba Server f”r OS/2 kommer fran
    2727SMM0022I: Kontrollera TDB filer
    2828SMM0023?:
  • trunk/guitools/smbmon/smbmon.rc

    r924 r990  
    11icon   1 .\rc\icons\smbmon.ico
    2 bitmap 2 .\rc\icons\bww_bw.bmp
     2bitmap 2 .\rc\icons\bww_logo.bmp
    33icon 40 .\rc\icons\start_samba2.ico
    44icon 41 .\rc\icons\samba_stop2.ico
     
    1313icon 50 .\rc\icons\tag.ico
    1414icon 51 .\rc\icons\err.ico
     15icon 52 .\rc\icons\share.ico
     16icon 53 .\rc\icons\settings.ico
    1517BITMAP 111 ..\shared\rc\throbber\frame_01.bmp
    1618BITMAP 112 ..\shared\rc\throbber\frame_02.bmp
  • trunk/guitools/smbmon/smbmon.vrp

    r925 r990  
    77RunDirectory: U:\Develop\Samba\trunk\guitools\smbmon
    88VRXWindow: __VREMainWindow,1,2180,3614,1024,6769
    9 VRXWindow: __VRESectionListWindow,1,4083,11226,7372,7685
    10 VRXWindow: __VREToolsWindow,1,2156,1494,5477,1663
     9VRXWindow: __VRESectionListWindow,1,4071,11804,7372,7685
     10VRXWindow: __VREToolsWindow,1,2156,1494,6989,1659
    1111VRXWindow: __VREWindListWindow,1,964,11708,5372,3150
    1212UserFile: 1
    1313UserWindow: Main,1
     14UserWindow: About,1
    1415UserWindow: SW_FILES,1
     16UserWindow: SW_SETTINGS,1
  • trunk/guitools/smbmon/smbmon.vrx

    r925 r990  
    123123    ok = VRMethod("CN_CHKTDB", "SetFieldData", RecHandle, ChkTDBFilesFH, TDBFile, ChkTDBIconFH, "$50", ChkTDBSizeFH, TDBSize||" Bytes" )
    124124    address cmd '@tdbtool 'tdb.I' check 2>'tdb.I'.err 1>'tdb.I'.out'
    125     out = linein(tdb.I'.out')
    126     ok = stream(tdb.I'.out','c','close')
     125    ok = file2stem(tdb.I'.out',"out.")
     126    out = out.ok
    127127    say out
    128128    if pos('integrity is OK',out) > 0 then do /* integrity is ok */
     
    489489
    490490    /* Statusbar */
    491     ok = VRSet("DT_STATUSBAR","Caption", VRGet("Main", "HintText"))
     491    ok = VRSet("DT_STATUSBAR","Caption", " "||VRGet("Main", "HintText"))
    492492
    493493    call Main_Resize
     
    587587    advanced.!bigicons = VRGetIni( "Settings", "BigIcons", OurINI)
    588588    if advanced.!bigicons = "" then advanced.!bigicons = 0
     589
     590    advanced.!smbconfchanged = 0
    589591
    590592    /* For Browse page */
     
    664666    call PRLoadFuncs
    665667
     668    call rxfuncadd 'IniLoadFuncs', 'REXXINI', 'IniLoadFuncs'
     669    call IniLoadFuncs
     670
     671    call RxFuncAdd 'RxDate', 'RexxDate', 'RxDate'
     672
    666673    SIGNAL OFF SYNTAX
    667674    IF options.!debug == 1 then say time()' _LoadotherFuncs() done'
     
    698705    ok = VRSet("Main","helpFile", settings.!helpfile)
    699706
     707
     708
    700709    CALL NLVSetText 'PB_Refresh',  'Caption', 11
     710    CALL NLVSetText 'PB_Apply',    'Caption', 10
    701711    CALL NLVSetText 'PB_Cancel',   'Caption', 12
    702712    CALL NLVSetText 'PB_Help',     'Caption', 13
     
    745755    address cmd samba.!smbd' -V --debuglevel=0 2>'refresherr' 1>'refreshoutput
    746756
    747     SambaVer = "Samba "||strip(linein(refreshoutput))
     757    do while lines(refreshoutput) > 0
     758        Hdr = linein(refreshoutput)
     759        if pos("Version ",Hdr) > 0 then leave
     760    end
     761
     762    SambaVer = "Samba "||strip(Hdr)
    748763    say '  smbd.exe:  "'SambaVer'"'
    749764    ok = stream(refreshoutput,'c','close')
     
    752767    address cmd samba.!smbstatusexe' smbd 'DebugLevel' 2>'refresherr' 1>'refreshoutput
    753768
    754     /* First line is usually empty */
    755     Hdr      = linein(refreshoutput)
    756     SambaStVer = strip(linein(refreshoutput)) /* we can detect version mismatches here */
     769    do while lines(refreshoutput) > 0
     770        Hdr = linein(refreshoutput)
     771        if pos("Samba version",Hdr) > 0 then leave
     772    end
     773
     774    SambaStVer = strip(Hdr) /* we can detect version mismatches here */
    757775    say '  smbstatus: "'SambaStVer'"'
    758776
     
    12661284return
    12671285
     1286/*:VRX         _SmbConfCreateShadowCopy
     1287*/
     1288_SmbConfCreateShadowCopy:
     1289    if options.!debug == 1 then say time()' _SmbConfCreateShadowCopy started'
     1290    /* we create a complete version of smb.conf in temporary directory for reading purposes */
     1291    /* as we can only determine a default value from this complete version of the file */
     1292    /* however it is not desirable to always have a complete copy normally */
     1293    ok = SysFileDelete(samba.!shadowsmbconf)
     1294    if dataype(log_Level) <> "NUM" then log_level = 2
     1295    say     '  'samba.!testparmexe' -v -s -d='log_level' 1>'samba.!shadowsmbconf' 2>'TempDir'testparm.stderr'
     1296    address cmd samba.!testparmexe' -v -s -d='log_level' 1>'samba.!shadowsmbconf' 2>'TempDir'testparm.stderr'
     1297    if options.!debug == 1 then say time()' _SmbConfCreateShadowCopy done'
     1298return
     1299
    12681300/*:VRX         _TabbedDialogSetup
    12691301*/
     
    13061338    call About_Init
    13071339    ok = VRSet("About","Caption", NLVGetMessage(20))
    1308     ok = VRSet("PB_AboutOK","Caption", NLVGetMessage(2))
    1309     SambaTeam.0 = 9
     1340    ok = VRSet("PB_AboutOK1","Caption", NLVGetMessage(2))
     1341    SambaTeam.0 = 11
    13101342    SambaTeam.1 = 'Silvan Scherrer'
    13111343    SambaTeam.2 = 'Herwig Bauernfeind'
    1312     SambaTeam.3 = 'Vitali Pelenyov'
    1313     SambaTeam.4 = 'Paul Smedley'
    1314     SambaTeam.5 = 'Yuri Dario'
    1315     SambaTeam.6 = 'Alex Taylor'
    1316     SambaTeam.7 = 'Nikolay Kolosov'
    1317     SambaTeam.8 = 'All the Samba people'
    1318     SambaTeam.9 = 'All the netlabs people'
     1344    SambaTeam.3 = 'Dmitrij Kuminov'
     1345    SambaTeam.4 = 'Vitali Pelenyov'
     1346    SambaTeam.5 = 'Paul Smedley'
     1347    SambaTeam.6 = 'Yuri Dario'
     1348    SambaTeam.7 = 'Alex Taylor'
     1349    SambaTeam.8 = 'Nikolay Kolosov'
     1350    SambaTeam.9 = 'All the Samba people'
     1351    SambaTeam.10= 'All the ArcaNoae people'
     1352    SambaTeam.11= 'All the netlabs people'
    13191353    ok = VRSet("About","Font", VRGet("SW_SETTINGS","Font"))
    13201354    ok = VRMethod("LB_SambaTeam","AddStringList", "SambaTeam." )
     
    13591393        otherwise ok = VRSet("IPB_paper","PicturePath","#5;#5")
    13601394    end */
    1361 return
    1362 
    1363 /*:VRX         CB_Debug_Click
    1364 */
    1365 CB_Debug_Click:
    1366     options.!Debug = VRGet("CB_Debug","set")
    1367     if options.!Debug then ok = VRREdirectStdIO("ON")
    1368                       else ok = VRREdirectStdIO("OFF")
    1369 return
    1370 
    1371 /*:VRX         CB_DetectZombies_Click
    1372 */
    1373 CB_DetectZombies_Click:
    1374     DetectZombies = VRGet("CB_DetectZombies","set")
    1375     say 'DetectZombies = "'DetectZombies'"'
    1376 return
    1377 
    1378 /*:VRX         CB_NoMsgBox_Click
    1379 */
    1380 CB_NoMsgBox_Click:
    1381     NoMsgBox = VRGet("CB_NoMsgBox","set")
    1382     say 'NoMsgBox = "'NoMsgBox'"'
    1383 return
    1384 
    1385 /*:VRX         CB_WPSSTARTSTOP_Click
    1386 */
    1387 CB_WPSSTARTSTOP_Click:
    1388     WPSStartStop = VRGet("CB_WPSStartStop","set")
    1389     say 'WPSStartStop = "'WPSStartStop'"'
    13901395return
    13911396
     
    18371842return
    18381843
     1844/*:VRX         EF_log_file_Change
     1845*/
     1846EF_log_file_Change:
     1847    advanced.!smbconfchanged = 1
     1848return
     1849
    18391850/*:VRX         Fini
    18401851*/
     
    19431954
    19441955    /* if main_iheight < 5500 then ok = VRSet("Main","Height",6200) */
    1945     sbar_height  = 209                                          /* Height of status-bar */
     1956    sbar_height  = margin * 8                                          /* Height of status-bar */
    19461957    marginx2     = margin * 2                                   /* Common margin around controls */
     1958    marginx4     = margin * 4
    19471959
    19481960    pbtn_dist    = 980
    1949     pbtn_nr      = 4
     1961    pbtn_nr      = 5
    19501962    pbtn_pos     = max((main_iwidth - pbtn_Dist * pbtn_Nr)%2, 0)+ margin
    19511963    pbtn_height  = 400                                          /* Height of the panels' internal button areas */
     
    19721984    ok = VRSet("DT_STATUSBAR", "Width", pane_width - 24)
    19731985
    1974     ok = VRSet("PB_Refresh","top", pane_height + margin * 4 )
    1975     ok = VRSet("PB_Help",   "top", pane_height + margin * 4 )
    1976     ok = VRSet("PB_Cancel", "top", pane_height + margin * 4 )
    1977     ok = VRSet("PB_About",  "top", pane_height + margin * 4 )
    1978 
    1979     ok = VRSet("PB_Refresh","left",pbtn_pos + pbtn_dist * (pbtn_nr - 4))
    1980     ok = VRSet("PB_Help",   "left",pbtn_pos + pbtn_dist * (pbtn_nr - 3))
    1981     ok = VRSet("PB_About",  "left",pbtn_pos + pbtn_dist * (pbtn_nr - 2))
     1986    ok = VRSet("PB_Refresh","top", pane_height + marginx4 )
     1987    ok = VRSet("PB_Help",   "top", pane_height + marginx4 )
     1988    ok = VRSet("PB_Cancel", "top", pane_height + marginx4 )
     1989    ok = VRSet("PB_Apply",  "top", pane_height + marginx4 )
     1990    ok = VRSet("PB_About",  "top", pane_height + marginx4 )
     1991
     1992    ok = VRSet("PB_Refresh","left",pbtn_pos + pbtn_dist * (pbtn_nr - 5))
     1993    ok = VRSet("PB_Help",   "left",pbtn_pos + pbtn_dist * (pbtn_nr - 4))
     1994    ok = VRSet("PB_About",  "left",pbtn_pos + pbtn_dist * (pbtn_nr - 3))
     1995    ok = VRSet("PB_Apply",  "left",pbtn_pos + pbtn_dist * (pbtn_nr - 2))
    19821996    ok = VRSet("PB_Cancel", "left",pbtn_pos + pbtn_dist * (pbtn_nr - 1))
    19831997
     
    20542068    ok = VRset("GB_SETTINGS","Left",   marginx2)
    20552069    ok = VRset("GB_SETTINGS","Width",  pane_width - 760)
    2056     ok = VRset("GB_SETTINGS","Height", pane_height- 1020)
     2070    ok = VRset("GB_SETTINGS","Height", pane_height- 1020- marginx2)
    20572071
    20582072
     
    21442158return
    21452159
     2160/*:VRX         PB_AboutOK1_Click
     2161*/
     2162PB_AboutOK1_Click:
     2163    call About_Close
     2164return
     2165
    21462166/*:VRX         PB_AboutOK_Click
    21472167*/
    21482168PB_AboutOK_Click:
    21492169    call About_Close
     2170return
     2171
     2172/*:VRX         PB_Apply_Click
     2173*/
     2174PB_Apply_Click:
     2175    IF options.!debug == 1 then say time()' PB_Apply_Click() started'
     2176    options.!Debug = VRGet("CB_Debug","set")
     2177    if options.!Debug then ok = VRREdirectStdIO("ON")
     2178                      else ok = VRREdirectStdIO("OFF")
     2179    Intervall = VRGet("SPIN_Intervall","Value")
     2180    ok = VRSet("TM_Refresh","Delay", Intervall * 1000)
     2181    IntervallMin = VRGet("SPIN_IntervallMin","Value")
     2182
     2183    NoMsgBox = VRGet("CB_NoMsgBox","set")
     2184    say 'NoMsgBox = "'NoMsgBox'"'
     2185
     2186    WPSStartStop = VRGet("CB_WPSStartStop","set")
     2187    say 'WPSStartStop = "'WPSStartStop'"'
     2188
     2189    DetectZombies = VRGet("CB_DetectZombies","set")
     2190    say 'DetectZombies = "'DetectZombies'"'
     2191
     2192    if advanced.!smbconfchanged = 1 then do
     2193        log_level    = VRGet("SPIN_log_level","Value")
     2194        log_file     = VRGet("EF_log_file","Value")
     2195        max_protocol = VRGet("SPIN_max_protocol","Value")
     2196
     2197        handle = IniOpen('global', samba.!smbconf)
     2198
     2199        ok = IniSet('log level',    log_level,    handle)
     2200        ok = IniSet('log file',     log_file,     handle)
     2201        ok = IniSet('max protocol', max_protocol, handle)
     2202
     2203        ok = IniSave(handle)
     2204        ok = IniClose(handle)
     2205        advanced.!smbconfchanged = 0
     2206    end
     2207    IF options.!debug == 1 then say time()' PB_Apply_Click() done'
    21502208return
    21512209
     
    23682426*/
    23692427SPIN_Intervall_Change:
    2370     Intervall = VRGet("SPIN_Intervall","Value")
    2371     ok = VRSet("TM_Refresh","Delay", Intervall * 1000)
    23722428return
    23732429
     
    23752431*/
    23762432SPIN_IntervallMin_Change:
    2377     IntervallMin = VRGet("SPIN_IntervallMin","Value")
     2433return
     2434
     2435/*:VRX         SPIN_log_level_Change
     2436*/
     2437SPIN_log_level_Change:
     2438    advanced.!smbconfchanged = 1
     2439return
     2440
     2441/*:VRX         SPIN_max_protocol_Change
     2442*/
     2443SPIN_max_protocol_Change:
     2444    advanced.!smbconfchanged = 1
    23782445return
    23792446
     
    25312598    end
    25322599    drop window
     2600return
     2601
     2602/*:VRX         SW_SETTINGS_Init_Content
     2603*/
     2604SW_SETTINGS_Init_Content:
     2605   
     2606    log_level    = IniGet('log level',    'global', samba.!smbconf)
     2607    log_file     = IniGet('log file',     'global', samba.!smbconf)
     2608    max_protocol = IniGet('max_protocol', 'global', samba.!smbconf)
     2609
     2610    if log_level = "" then log_level = 2
     2611    if max_protocol = "" then max_protocol = "NT1"
     2612
     2613    ok = VRSet("SPIN_LOG_LEVEL","Value",log_level)
     2614    ok = VRSet("EF_LOG_FILE","Value",log_file)
    25332615return
    25342616
     
    26672749    select
    26682750        when page = 1 then do /* daemons */
     2751            ok = VRSet("Main","WindowIcon","$46")
    26692752            ok = VRSet("TM_RefreshDaemons","Enabled", 1)
    26702753            ok = VRSet("TM_RefreshDaemons","Delay",   3000)
    26712754        end
    26722755        when page = 2 then do /* smbtree */
     2756            ok = VRSet("Main","WindowIcon","$1")
    26732757            ok = VRMethod( "CN_SMBTree", "GetRecordList", "All", "handle." )
    26742758            /* if the page is empty, populate it */
     
    26762760        end
    26772761        when page = 3 then do /* Users */
    2678             nop
     2762            ok = VRSet("Main","WindowIcon","$44")
    26792763        end
    26802764        when page = 4 then do /* files */
    2681             nop
     2765            ok = VRSet("Main","WindowIcon","$1")
    26822766        end
    26832767        when page = 5 then do /* service */
    2684             nop
     2768            ok = VRSet("Main","WindowIcon","$52")
    26852769        end
    26862770        when page = 6 then do /* chkTDB */
     2771            ok = VRSet("Main","WindowIcon","$53")
    26872772            say "ChkTDB"
    26882773            call _ChkTDB
    26892774        end
    26902775        when page = 7 then do /* Settings */
    2691             nop
     2776            ok = VRSet("Main","WindowIcon","$53")
     2777            call SW_SETTINGS_Init_Content
    26922778        end
    26932779        otherwise nop
  • trunk/guitools/sscc/rc/lang/sscc_de.mkm

    r771 r990  
    1818SSC0013I: Freigeben
    1919SSC0014I: Fortfahren
    20 SSC0015?:
     20SSC0015I: Start/Stop
    2121SSC0016?:
    2222SSC0017?:
     
    7777SSC0070I: Kann transiente TDB Dateien nicht entfernen solange Samba l„uft!
    7878SSC0071I: Transiente TDB Dateien wirklich entfernen?
    79 SSC0072I: Die Leute hinter Samba Server fr eComStation (OS/2)
     79SSC0072I: Die Leute hinter Samba Server fr OS/2 basierte Systeme
    8080SSC0073I: Aktuelle Konfiguration
    8181SSC0074I: Kleine Symbole
     
    105105SSC0097I: Standardkonfiguration erzeugen
    106106SSC0098I: IBM Peer/LANServer Konfiguration migrieren
    107 SSC0099?:
     107SSC0099I: Bibliotheken mit YUM installieren
    108108SSC0100?:
    109109SSC0101?:
     
    119119SSC0111I: Samba anweisen, die Konfiguration neu zu laden
    120120SSC0112I: Die gemachten Žnderungen speichern
    121 SSC0113?:
     121SSC0113I: Den Server starten oder stoppen
    122122SSC0114I: Bitte, dieses Programm schlieáen, damit die Installation abgeschlossen werden kann!
    123123SSC0115I: Keine Benutzer fr SWAT in %1 gefunden!
  • trunk/guitools/sscc/rc/lang/sscc_en.mkm

    r771 r990  
    1818SSC0013I: Share
    1919SSC0014I: Continue
    20 SSC0015?:
     20SSC0015I: Start/Stop
    2121SSC0016?:
    2222SSC0017?:
     
    7777SSC0070I: Cannot remove transient TDB files while Samba is running!
    7878SSC0071I: Really remove transient TDB files?
    79 SSC0072I: Samba Server for eComStation is brought to you by
     79SSC0072I: Samba Server for OS/2 based systems is brought to you by
    8080SSC0073I: Current configuration
    8181SSC0074I: Small icons
     
    105105SSC0097I: Create Samba default default configuration
    106106SSC0098I: Migrate IBM Peer/LANServer configuration
    107 SSC0099?:
     107SSC0099I: Install libraries using YUM
    108108SSC0100?:
    109109SSC0101?:
     
    119119SSC0111I: Tell Samba to reload its configuration
    120120SSC0112I: Save all changes to configuration file
    121 SSC0113?:
     121SSC0113I: Start or stop the server
    122122SSC0114I: Please, close this program in oder to complete installation!
    123123SSC0115I: No users for SWAT defined in "%1"!
  • trunk/guitools/sscc/rc/lang/sscc_es.mkm

    r771 r990  
    1818SSC0013I: Compartir
    1919SSC0014I: Continuar
    20 SSC0015?:
     20SSC0015I: Start/Stop
    2121SSC0016?:
    2222SSC0017?:
     
    7777SSC0070I: ­No puedo eliminar los archivos TDB transitorios mientras Samba esta funcionando!
    7878SSC0071I: šEliminar realmente los archivos transitorios TDB?
    79 SSC0072I: Servidor Samba para eComStation proporcionado por
     79SSC0072I: Servidor Samba para OS/2 proporcionado por
    8080SSC0073I: Configuraci¢n actual
    8181SSC0074I: Iconos peque€os
     
    105105SSC0097I: Crear configuraci¢n por defecto de Samba
    106106SSC0098I: Migrar configuraci¢n IBM Peer/LANServer
    107 SSC0099?:
     107SSC0099I: Instalar bibliotecas utilizando YUM
    108108SSC0100?:
    109109SSC0101?:
     
    119119SSC0111I: Decirle a Samba que recargue todas sus configuraciones
    120120SSC0112I: Guardar todos los cambios en el archivo de configuraci¢n
    121 SSC0113?:
     121SSC0113I: Iniciar o detener el servidor
    122122SSC0114I: Por favor, cerca de este programa en oder para completar la instalaci¢n!
    123123SSC0115I: No hay usuarios para SWAT se define en "% 1"!
     
    125125SSC0117I: ­Advertencia! El sistema no utiliza p gina de c¢digos 850, compruebe si la traducci¢n de caracteres realmente funciona!
    126126SSC0118I: USER y HOSTNAME ne deben tener el mismo valor (%1)!
    127 
  • trunk/guitools/sscc/rc/lang/sscc_fr.mkm

    r771 r990  
    2020SSC0013I: Partage
    2121SSC0014I: Continuer
    22 SSC0015?:
     22SSC0015I: Start/Stop
    2323SSC0016?:
    2424SSC0017?:
     
    8383SSC0070I: Retrait impossible des fichiers TDB transitoire en cours d'ex‚cution de Samba !
    8484SSC0071I: Voulez-vous r‚ellement supprimer les fichiers TDB transitoires ?
    85 SSC0072I: Serveur Samba pour eComStation vous est propos‚ par
     85SSC0072I: Serveur Samba pour OS/2 vous est propos‚ par
    8686SSC0073I: Configuration actuelle
    8787SSC0074I: Ic“nes ~miniatures
     
    111111SSC0097I: Cr‚ation d'une configuration Samba par d‚faut
    112112SSC0098I: Migration d'une configuration IBM Peer/LANServer
    113 SSC0099?:
     113SSC0099I: Installer des bibliothŠques en utilisant YUM
    114114SSC0100?:
    115115SSC0101?:
     
    126126 Samba de recharger sa configuration
    127127SSC0112I: Sauvegarde des modifications dans un fichier de configuration
    128 SSC0113?:
     128SSC0113I: D‚marrer ou arrˆter le serveur
    129129SSC0114I: S'il vous plaŒt,
    130130 proximit‚ de ce programme afin de compl‚ter l'installation!
     
    133133SSC0117I: Attention! SystŠme n'utilise pas codepage 850, s'il vous plaŒt v‚rifier si la traduction de caractŠres fonctionne vraiment!
    134134SSC0118I: USER et HOSTNAME ne doivent pas avoir le mˆme valeur (%1)!
    135 
  • trunk/guitools/sscc/rc/lang/sscc_sv.mkm

    r771 r990  
    1818SSC0013I: Dela ut
    1919SSC0014I: Forts„tta
    20 SSC0015?:
     20SSC0015I: Start/Stop
    2121SSC0016?:
    2222SSC0017?:
     
    7777SSC0070I: Kan inte ta bort ”verg†ende TDB filer s† l„nge Samba „r ig†ng!
    7878SSC0071I: ™verg†ende bort TDB filer egentligen?
    79 SSC0072I: M„nniskorna bakom Samba Server f”r eComStation (OS/2)
     79SSC0072I: M„nniskorna bakom Samba Server f”r OS/2
    8080SSC0073I: Aktuella konfigurationen
    8181SSC0074I: Sm† ikoner
     
    105105SSC0097I: Skapa standardkonfiguration f”r Samba
    106106SSC0098I: Migrera IBM Peer/LANServer-konfiguration
    107 SSC0099?:
     107SSC0099I: Installera bibliotek med anv„ndning YUM
    108108SSC0100?:
    109109SSC0101?:
     
    119119SSC0111I: Se till att Samba laddar in inst„llningarna igen
    120120SSC0112I: Spara alla f”r„ndringar
    121 SSC0113?:
     121SSC0113I: Starta eller stoppa servern
    122122SSC0114I: Sn„lla, st„ng det h„r programmet f”r att slutf”ra installationen!
    123123SSC0115I: Inga anv„ndare av SWAT definieras i "%1"!
     
    125125SSC0117I: Varning! Systemet inte anv„nder codepage 850, v„nligen kontrollera om karakt„r ”vers„ttning verkligen fungerar!
    126126SSC0118I: USER och HOSTNAME b”r inte ha samma v„rde (%1)!
    127 
  • trunk/guitools/sscc/readme.samba

    r677 r990  
    1 Samba Server version 3.3.16 for eComStation (OS/2) 1.1.1
     1Samba Server Version 3.6.25 for OS/2 based systems 1.3.0
    22========================================================
    33
     
    99Samba is freely available under the GNU General Public License.
    1010
    11 You can use this software on eCS (OS/2) in order to replace most
    12 functionality found in outdated products such as IBM Peer, LANServer,
    13 WarpServer and WarpServer for eBusiness on a modern and technically
    14 up to date base.
    15 
    16 This release has a number of problems which were discovered after the
    17 lst release fixed.
    18 
    19 NOTE: You need GCC442.DLL for this release!
     11You can use this software on OS/2 based systems in order to replace most
     12functionality found in outdated products such as IBM Peer, WarpServer
     13and WarpServer for eBusiness on a modern and technically up to date
     14base.
    2015
    2116Homepage:    http://svn.netlabs.org/samba
     
    2419
    2520This software is brought to you by:
    26 - Silvan Scherrer, Switzerland (code maintainer, SWAT, several important fixes)
    27 - Herwig Bauernfeind, Austria (code maintainer, GUI tools, installer, scripts, testing)
    28 - Paul Smedley, Australia (porting)
    29 - Yuri Dario, Italy (locking code, several important fixes, client code)
     21- bww bitwise works GmbH.
     22  - Silvan Scherrer, Switzerland (current code maintainer, SWAT)
     23  - Dmitry Kuminov, Russian Federation (libcx, tdb code testing)
     24  - Herwig Bauernfeind, Austria (GUI tools, installer, scripts, testing)
    3025- all the Samba people
    3126
    32 General feedback can be sent to:
    33 herwig.bauernfeind@aon.at or
    34 silvan.scherrer@aroa.ch
    35 
    3627Enjoy!
  • trunk/guitools/sscc/sscc.RC

    r688 r990  
    1 icon 1   .\rc\icons\samba_setup.ico
    2 bitmap 2 .\rc\icons\choosedir.bmp
    3 bitmap 3 .\rc\icons\choosedird.bmp
    4 bitmap 4 .\rc\icons\newitem.bmp
    5 bitmap 5 .\rc\icons\newitemd.bmp
    6 bitmap 7 .\rc\icons\up.bmp
    7 bitmap 8 .\rc\icons\down.bmp
    8 bitmap 9 .\rc\icons\netlabs.bmp
     1icon 1 samba_setup.ico
     2bitmap 2 choosedir.bmp
     3bitmap 3 choosedird.bmp
     4bitmap 4 newitem.bmp
     5bitmap 5 newitemd.bmp
     6bitmap 7 up.bmp
     7bitmap 8 down.bmp
     8bitmap 9 bww.bmp
  • trunk/guitools/sscc/sscc.vrp

    r875 r990  
    11VX-REXX OS/2 V2.14 Build B3
    22VRX: sscc.VRX
    3 MacroPath: VRM:U:\Develop\Samba\trunk\guitools\sscc
     3VXOFile: VROBJEX
     4MacroPath: VRM:U:\Develop\Samba\guitools-1.0\install
    45EXEPath:
    56RunParameters:
    6 RunDirectory: D:\samba
    7 VRXWindow: __VREMainWindow,1,2180,3710,903,8000
    8 VRXWindow: __VRESectionListWindow,1,3276,11997,8648,3342
    9 VRXWindow: __VREToolsWindow,0,3324,9877,5474,1669
    10 VRXWindow: __VREWindListWindow,1,927,11997,2337,3336
     7RunDirectory: U:\Develop\Samba\guitools-1.0\install
     8VRXWindow: __VREMainWindow,1,2891,5541,1012,8106
     9VRXWindow: __VRESectionListWindow,1,1072,14309,12057,4276
     10VRXWindow: __VREToolsWindow,0,4031,11708,6992,1669
     11VRXWindow: __VREWindListWindow,1,1132,15273,3891,3150
    1112UserFile: 1
    1213UserWindow: Main,1
    13 UserWindow: Installer,1
  • trunk/guitools/sscc/sscc.vrx

    r875 r990  
    9393#append U:\Develop\Samba\guitools-1.0\shared\inittempdir.vrs
    9494#append U:\Develop\Samba\guitools-1.0\shared\sambainit.vrs
    95 #append U:\Develop\Samba\guitools-2.0\shared\nlv.vrs
    9695#append U:\Develop\Samba\guitools-1.0\shared\swat.vrs
     96#append U:\Develop\Samba\trunk\guitools\shared\nlv.vrs
    9797*/
    9898return
     
    211211    IF options.!debug == 1 THEN say "_CreateVocObject() done"
    212212return Success
     213/*:VRX         _DebugLog
     214*/
     215_DebugLog:
     216    IF options.!debug <> 1 THEN return
     217    debugline = strip(arg(1))
     218    if pos("started", debugline) > 0 |,
     219       pos("aborted", debugline) > 0 |,
     220       pos("done",    debugline) > 0
     221            then say time()' 'debugline
     222            else say '  'debugline
     223return
     224
    213225/*:VRX         _dirdialog
    214226*/
     
    306318    if \IsCupsPrintcap then call _PrintCapCreate
    307319
     320    stst = NLVGetMessage(15)
     321    parse var stst startst '/' stopst
     322
     323    if _SambaRunning() then do
     324        ok = VRSet("PB_StartStop", "BackColor", "Red")
     325        ok = VRSet("PB_StartStop", "Caption", stopst)
     326    end
     327    else do
     328        ok = VRSet("PB_StartStop", "BackColor", "Green")
     329        ok = VRSet("PB_StartStop", "Caption", startst)
     330    end
     331
    308332    if SmbConfExists then call _SmbConfLoad
    309333                     else ok = VRSet("TM_Installer","Enabled", 1)
     
    314338_GUIInitNLV:
    315339    say '_GUIInitNLV started'
     340    settings.!helpfile = 0
    316341    CALL NLVSetup
    317342    CALL NLVSetText 'Main', 'Caption', 1
     
    320345    CALL NLVSetText 'PB_Reload',        'Caption',   11
    321346    CALL NLVSetText 'PB_Reload',        'Hinttext', 111
    322     CALL NLVSetText 'PB_Save',        'Caption',   12
    323     CALL NLVSetText 'PB_Save',        'Hinttext', 112
     347    CALL NLVSetText 'PB_Save',          'Caption',   12
     348    CALL NLVSetText 'PB_Save',          'Hinttext', 112
     349    CALL NLVSetText 'PB_StartStop',     'Caption',   15
     350    CALL NLVSetText 'PB_StartStop',     'Hinttext', 113
    324351    CALL NLVSetText 'PB_Undo',          'Caption',    9
    325352    CALL NLVSetText 'PB_Undo',          'Hinttext', 109
     
    342369    CALL NLVSetText 'Menu_File_PrintCap',       'Caption',  37
    343370    CALL NLVSetText 'Menu_File_SmbUpdate',      'Caption',  44
     371    CALL NLVSetText 'Menu_File_YumInstall',     'Caption',  99
    344372    CALL NLVSetText 'Menu_File_Exit',           'Caption',  27
    345373
     
    500528*/
    501529_MasterPasswdCreate:
    502     call lineout samba.!masterpasswd, '# Created by SSCC ver. 'word(VRGet("Main","Hinttext"),2)
     530    call lineout samba.!masterpasswd, '# Created by 'VRParseFileName(OurINI,'N')' Ver. 'word(VRGet("Main","Hinttext"),2)
    503531    call lineout samba.!masterpasswd, '# syntax:'
    504532    call lineout samba.!masterpasswd, '# username:passwd:UID:GID:login-class:chg pw x sec:deact x sec:GECOS:home:shell'
    505     call lineout samba.!masterpasswd, 'root:*:0:513::0:0:root:/nonexistent:/usr/sbin/nologin'
     533    call lineout samba.!masterpasswd, 'root:*:0:512::0:0:root:/nonexistent:/usr/sbin/nologin'
    506534    call lineout samba.!masterpasswd, 'guest:*:65534:65534::0:0:guest:/nonexistent:/usr/sbin/nologin'
    507535    ok = stream(samba.!masterpasswd,'c','close')
     536return
     537
     538/*:VRX         _MasterPasswdFindUser
     539*/
     540_MasterPasswdFindUser: procedure expose username.
     541    IF options.!debug == 1 THEN say '_MasterpasswdFindUser("'arg(1)'") started'
     542    FindUser = arg(1)
     543    Idx = 0
     544    do I = 1 to username.0
     545        if translate(username.I) = translate(FindUser) then do
     546            Idx = I
     547            leave
     548        end
     549    end
     550    IF options.!debug == 1 THEN say '_MasterpasswdFindUser("'FindUser'") done, returning 'Idx
     551return idx
     552/*:VRX         _MasterPasswdRead
     553*/
     554_MasterPasswdRead:
     555    IF options.!debug == 1 THEN say '_MasterpasswdRead() started'
     556    /* Read complete master.passwd */
     557    I = 0
     558
     559    do until lines(samba.!masterpasswd) = 0
     560        userline = strip(linein(samba.!masterpasswd))
     561   
     562        /* Skip comments */
     563        if left(userline,1) = "#" then iterate
     564        if left(userline,1) = ";" then iterate 
     565
     566        /* parse fields into stem variables */
     567        I = I + 1
     568        parse var userline username.I':'password.I':'uid.I':'gid.I':'LoginClass.I':'pwchange.I':'deact.I':'gecos.I':'home.I':'shell.I
     569
     570        Status.I =""   
     571        do J = 1 to I - 1
     572            if translate(Username.J) = translate(Username.I) then do
     573                status.I = "DUPLICATE"
     574                leave
     575            end
     576        end
     577    end
     578    ok = stream(samba.!masterpasswd,'c','close')
     579    drop userline
     580
     581    /* set "stem roots" properly */
     582    username.0  = I
     583    password.0  = I
     584    uid.0       = I
     585    gid.0       = I
     586    loginclass.0= I
     587    pwchange.0  = I
     588    deact.0     = I
     589    gecos.0     = I
     590    home.0      = I
     591    shell.0     = I
     592
     593    /* also smbpasswd stems */
     594    lmhash. = ''
     595    nthash. = ''
     596    flags.  = ''
     597    lct.    = ''
     598    lmhash.0 = I
     599    nthash.0 = I
     600    flags.0  = I
     601    lct.0    = I
     602
     603    /* smbusermap stem */
     604    MapTo. = ''
     605    MapTo.0 = I
     606
     607    /* our private stem */
     608    status.0 = I
     609    IF options.!debug == 1 THEN say '_MasterpasswdRead() done, read 'username.0' users'
     610return
     611
     612/*:VRX         _MasterPasswdWrite
     613*/
     614_MasterpasswdWrite:
     615    IF options.!debug == 1 THEN say "_MasterpasswdWrite() started"
     616    newmasterpasswd = TempDir'master.passwd'
     617
     618    ok = SysFileDelete(newmasterpasswd)
     619
     620    call lineout newmasterpasswd, '# Created by 'VRParseFileName(OurINI,'N')' Ver. 'word(VRGet("Main","Hinttext"),2)
     621    call lineout newmasterpasswd, '# syntax:'
     622    call lineout newmasterpasswd, '# username:passwd:UID:GID:login-class:chg pw x sec:deact x sec:GECOS:home:shell'
     623
     624    do I = 1 to username.0
     625        select
     626            when Status.I = "DUPLICATE" & settings.!FixErrors = 1 then iterate
     627            when Status.I = "UID MISMATCH" then do
     628                call lineout newmasterpasswd, username.I':'password.I':'word(uid.I,1)':'gid.I':'loginclass.I':'pwchange.I':'deact.I':'gecos.I':'home.I':'shell.I
     629            end
     630            when Status.I = "UNIX MISSING" & settings.!FixErrors then do
     631                call lineout newmasterpasswd, username.I':'password.I':'uid.I':'gid.I':'loginclass.I':'pwchange.I':'deact.I':'gecos.I':'home.I':'shell.I
     632            end
     633            otherwise call lineout newmasterpasswd, username.I':'password.I':'uid.I':'gid.I':'loginclass.I':'pwchange.I':'deact.I':'gecos.I':'home.I':'shell.I
     634        end
     635    end
     636    ok = stream(newmasterpasswd,'c','close')
     637    ok = VRCopyFile( samba.!masterpasswd, samba.!masterpasswd'.bak' )
     638    ok = VRCopyFile( newmasterpasswd, samba.!masterpasswd )
     639    ok = SysFileDelete(newmasterpasswd)
     640    IF options.!debug == 1 THEN say "_MasterpasswdWrite() done"
    508641return
    509642
     
    796929    ok = stream(pwdfile,"c","close")
    797930
     931    /* update Master.passwd and (s)pwd.db */
     932    call _MasterPasswdRead
     933    nx = _MasterPasswdFindUser("root")
     934
     935    call rxFuncAdd "Crypt", "RxCrypt", "RxCrypt"
     936
     937    itoa64 = "./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
     938    salt   = ""
     939    do i = 1 to 8
     940        salt = salt || substr( itoa64, random( 0, 63 ) + 1, 1 )
     941    end
     942    password.nx = Crypt(VRGet("EF_RootPassword","Value"), salt )
     943
     944    /* we need this otherwise _MasterPasswdWrite does not work */
     945    settings.!FixErrors = 1
     946    call _MasterPasswdWrite
     947    call _PasswordDbRewrite
     948
    798949    /* Create the root account */
    799950    IF options.!debug == 1 THEN say '  'samba.!smbpasswdexe' -a root -s <'pwdfile
     
    806957    ok = SysFileDelete(pwdfile)
    807958
     959
     960
    808961    /* Deal with swat */
    809     /* FixMe: We do not need htpasswd.exe anymore as we use rxcrypt.dll */
     962    /* We could use rxcrypt.dll however htpasswd.exe (at least in theory) is more flexible regarding encryption */
    810963    if swatauth then do
    811964        /* we always remove the old swat */
     
    822975    IF options.!debug == 1 THEN say "_SambaRootPWSet() done"
    823976return
    824 
    825977/*:VRX         _SambaShowError
    826978*/
     
    8631015*/
    8641016_SambaUserCreate:
    865     eCSUser  = value("USER",,"OS2ENVIRONMENT")
    866     HostName = value("HOSTNAME",,"OS2ENVIRONMENT")
    867     if translate(eCSUser) = translate(Hostname) then do
    868         Msg.Text = NLVGetMessage(118, eCSUser)
    869         Msg.Type = "I"
    870         call _ShowMsg
    871     end
     1017    eCSUser = value("USER",,"OS2ENVIRONMENT")
    8721018    if translate(eCSUser) <> "root" & translate(eCSUser) <> "guest" then do
    8731019        Msg.Text = NLVGetMessage(75, eCSUser)
     
    9681114*/
    9691115_SharesReset:
    970     say '_SharesReset started'
     1116    call _debuglog '_SharesReset() started'
    9711117    ok = VRset("EF_path", "Value","")
    9721118    ok = VRFlush( , "EF_path" )
     
    9801126        ok = VRDestroy(CreatedObjs.I)     
    9811127    end
    982     say '_SharesReset done'
     1128    call _debuglog '_SharesReset() done'
    9831129return
    9841130
     
    10301176        if pos("idmap uid",smbline) > 0 then iterate
    10311177        if pos("idmap gid",smbline) > 0 then iterate
    1032         if pos("idmap config",smbline) > 0 then iterate
    10331178        if pos("winbind separator",smbline) > 0 then iterate
    10341179        if pos("copy ",smbline) > 0 then iterate
     
    10461191*/
    10471192_SmbConfCreateDefault:
     1193    call _debuglog "_SmbConfCreateDefault() started"
    10481194    ok = SysFileDelete(smbconf)
    10491195   
     
    10591205    call _SmbConfDefault_ShareDrives
    10601206    ok = stream(smbconf,'c','close')
     1207    call _debuglog "_SmbConfCreateDefault() done"
    10611208return
    10621209
     
    11201267*/
    11211268_SmbConfDefault_Global:
     1269    call _debuglog "_SmbConfDefault_Global() started"
    11221270    Migrate = (arg(1) = 1)
    11231271    if \Migrate then do /* when migrating these 4 lines are there already */
    11241272        section       = '[global]'
    11251273        call lineout smbconf, section
    1126         call lineout smbconf, Indent||'workgroup = 'VRGet("EF_Workgroup_Initial","value")
     1274        call lineout smbconf, Indent||'workgroup = WORKGROUP'
    11271275        call lineout smbconf, Indent||'netbios name = 'value('HOSTNAME',,'OS2ENVIRONMENT')
    11281276        call lineout smbconf, Indent||'server string = %h Samba Server for eCS (OS/2)'
     
    11301278    end
    11311279
    1132     call lineout smbconf, Indent||'dos charset = IBM-850'
    1133     call lineout smbconf, Indent||'display charset = IBM-850'
    1134     call lineout smbconf, Indent||'unix charset = IBM-850'
     1280    if SysQueryProcessCodePage() = "850" then do
     1281        call lineout smbconf, Indent||'dos charset = IBM-850'
     1282        call lineout smbconf, Indent||'display charset = IBM-850'
     1283        call lineout smbconf, Indent||'unix charset = IBM-850'
     1284    end
     1285    else do
     1286        call lineout smbconf, Indent||'dos charset = IBM-850'
     1287        call lineout smbconf, Indent||'display charset = SYSTEM'
     1288        call lineout smbconf, Indent||'unix charset = SYSTEM'
     1289    end
    11351290
    11361291    CurCP = SysQueryProcessCodePage()
     
    11851340    end
    11861341    ok = stream(smbconf, 'c','close') 
     1342    call _debuglog "_SmbConfDefault_Global() done"
    11871343return
    11881344/*:VRX         _SmbConfDefault_Homes
     
    13621518*/
    13631519_SmbConfLoad:
    1364     IF options.!debug == 1 THEN say '_SmbConfLoad() started'
    1365     IF options.!debug == 1 THEN say '  Loading "'samba.!smbconf'" ('stream(samba.!smbconf,'c','query size')' bytes)'
     1520    call _debuglog '_SmbConfLoad() started'
     1521    call _debuglog 'Loading "'samba.!smbconf'" ('stream(samba.!smbconf,'c','query size')' bytes)'
    13661522
    13671523/*  ok = IniEnumSections(sections., samba.!smbconf) */
     
    14111567    end
    14121568    ok = VRMethod("CN_smbconf","SetRecordAttr",smbconf.!root, "Collapsed", 0 )
    1413     IF options.!debug == 1 THEN say '_SmbConfLoad() done'
     1569    call _debuglog '_SmbConfLoad() done'
    14141570return
    14151571
     
    16781834*/
    16791835_SmbConfTreeReset:
     1836    call _debuglog '_SmbConfTreeReset() started'
    16801837    call _SharesReset
    16811838    ok = VRMethod( "CN_SmbConf", "RemoveRecord", smbconf.!root )
    16821839    call _SmbConfTreeInit
    16831840    call _GUIInit
     1841    call _debuglog '_SmbConfTreeReset() done'
    16841842return
    16851843
     
    18181976
    18191977    Ok = VRset("Main", "Painting", 0)
     1978    ok = VRSet("Main", 'Pointer', 'WAIT' )
    18201979    ok = VRset("GB_Help",      "Visible", 0)
    18211980    ok = VRset("GB_Global",    "Visible", 0)
     
    18261985        IF options.!debug == 1 THEN SAY 'CN_smbconf_Click() aborted, no handle'
    18271986        Ok = VRset("Main", "Painting", 1)
     1987        ok = VRSet("Main", 'Pointer', '<default>' )
    18281988        return
    18291989    end
     
    18422002    call _SharesReset
    18432003    Ok = VRset("Main", "Painting", 1)
     2004    ok = VRSet("Main", 'Pointer', '<default>' )
    18442005
    18452006    ok = VRSet("TM_Value", "Enabled", 1)
     
    18472008        IF options.!debug == 1 THEN SAY 'CN_smbconf_Click() aborted, got parent handle'
    18482009        Ok = VRset("Main", "Painting", 1)
     2010        ok = VRSet("Main", 'Pointer', '<default>' )
    18492011        return
    18502012    end
     
    18622024
    18632025        Ok = VRset("Main", "Painting", 0)
     2026        ok = VRSet("Main", 'Pointer', 'WAIT' )
    18642027        CurSection = sections.I
    18652028        CurSIdx = I
     
    18802043                        IF options.!debug == 1 THEN  say '  InsertPage = 'ok
    18812044
    1882 /*                    ok = VRset("Main", "Painting", 1)
     2045/*                  ok = VRset("Main", "Painting", 1)
     2046                    ok = VRSet("Main", 'Pointer', '<default>' )
    18832047                    Msg.Text = NLVGetMessage(114)
    18842048                    Msg.Type = "I"
     
    18922056            if \VRIsValidObject("GB_"ActiveGroup) then do
    18932057                ok = VRset("Main", "Painting", 1)
     2058                ok = VRSet("Main", 'Pointer', '<default>' )
    18942059                Msg.Text = NLVGetMessage(114)
    18952060                Msg.Type = "I"
     
    19842149
    19852150                if ObjYPos > VRGet("GB_Global","Height") - 1200 then do
    1986                     /* Ok = VRset("Main", "Painting", 1) */
     2151                 /* Ok = VRset("Main", "Painting", 1)
     2152                    ok = VRSet("Main", 'Pointer', '<default>' )*/
    19872153                    Page = Page + 1
    19882154                    if Page = 2 then do
    19892155                        Ok = VRset("Main", "Painting", 1)
     2156                        Ok = VRset("Main", "Painting", 0)
    19902157                        ok = VRSet("Main", 'Pointer', 'Wait' )
    1991                         Ok = VRset("Main", "Painting", 0)
    19922158                    end
    19932159                    if \VRIsValidOBject("GL_GLOBAL_"Page) then do
     
    21382304*/
    21392305GB_Global_1_Create:
    2140     call GB_Global_1_Init   
     2306    call GB_Global_1_Init
     2307    SysCP = SysQueryProcessCodePage()
     2308    ok = VRMethod( "EF_unix_charset",    "AddString", "IBM-"SysCP, 2)
     2309    ok = VRMethod( "EF_display_charset", "AddString", "IBM-"SysCP, 2)
     2310    if pos("IBM-"SysCP, VRGet( "EF_dos_charset","InitialList")) = 0 then do
     2311        ok = VRMethod( "EF_dos_charset", "AddString", "IBM-"SysCP, 2)
     2312    end
    21412313return
    21422314
     
    23202492    IF options.!debug == 1 THEN SAY "Main_Resize() started"
    23212493    Ok = VRset("Main", "Painting", 0)
    2322 
    2323    /*  /* Basic measurements */
    2324     main_iwidth  = VRGet("Main","InteriorWidth")                /* Width of window client-area */
    2325     main_iheight = VRGet("Main","InteriorHeight")               /* Height of window client-area */
    2326 
    2327     if main_iheight < 5500 then ok = VRSet("Main","Height",6200)
    2328     sbar_height  = VRGet("GB_STATUSBAR","Height")               /* Height of status-bar */
    2329     split_left   = VRGet("SPLIT_Main","Left")                   /* Position of the left edge of the split-bar */
    2330     marginx2     = margin * 2                                   /* Common margin around controls */
    2331     pbtn_height  = 400                                          /* Height of the panels' internal button areas */
    2332 
    2333     pane_height  = main_iheight - sbar_height - (margin * 4)    /* Height of a split-bar panel */
    2334     lpane_width  = split_left - margin                          /* Width of the left split-bar panel */
    2335     rpane_width  = main_iwidth - split_left - 60 - margin       /* Width of the right split-bar panel */ */
    2336 
    2337     /* ab hier alt */
    23382494    ok = VRSet("GB_SmbConfTree","Top",    FWidth)
    23392495    ok = VRSet("GB_SmbConfTree","Left",   FWidth-24)
    2340     ok = VRSet("GB_SmbConfTree","Height", VRGet("Main", "Height") -1350)
     2496    ok = VRSet("GB_SmbConfTree","Height", VRGet("Main", "Height") -1400)
    23412497
    23422498    ok = VRset("GB_SmbConfTree3","Top",     FWidth)
     
    24082564
    24092565    if MButton.bTop < 1300 & MButton.bLeft < 1300 then do
    2410         MButton.bTop = 4842
     2566        MButton.bTop = 4802
    24112567        MButton.bLeft = 3758
    24122568        MButton.bWidth = 1241
     
    24142570    end
    24152571
    2416     ok = VRSet("PB_Reload", "Top",    MButton.bTop)
    2417     ok = VRSet("PB_Reload", "Left",   MButton.bLeft)
     2572    ok = VRSet("PB_Reload",   "Top",    MButton.bTop)
     2573    ok = VRSet("PB_Reload",   "Left",   VRGet("GB_SmbConfTree","Left"))
     2574    ok = VRSet("PB_Reload",   "Width",  MButton.bWidth)
     2575
     2576    ok = VRSet("PB_StartStop","Top",    MButton.bTop)
     2577    ok = VRSet("PB_StartStop","Left",   VRGet("GB_SmbConfTree","Width")-MButton.bWidth-FWidth)
     2578    ok = VRSet("PB_StartStop","Width",  MButton.bWidth)
     2579
     2580    ok = VRSet("PB_Save",   "Top",    MButton.bTop)
     2581    ok = VRSet("PB_Save",   "Left",   MButton.bLeft)
    24182582    ok = VRSet("PB_Reload", "Width",  MButton.bWidth)
    24192583
    2420     ok = VRSet("PB_Save", "Top",    MButton.bTop)
    2421     ok = VRSet("PB_Save", "Left",   MButton.bLeft+1*FWidth+MButton.bWidth)
    2422     ok = VRSet("PB_Reload", "Width",  MButton.bWidth)
    2423 
    24242584    ok = VRSet("PB_Undo",   "Top",    MButton.bTop)
    2425     ok = VRSet("PB_Undo",   "Left",   MButton.bLeft+2*FWidth+MButton.bWidth*2)
     2585    ok = VRSet("PB_Undo",   "Left",   MButton.bLeft+2*FWidth+MButton.bWidth*1)
    24262586    ok = VRSet("PB_Undo",   "Width",  MButton.bWidth)
     2587
     2588    ok = VRSet("PB_Help",   "Top",    MButton.bTop)
     2589    ok = VRSet("PB_Help",   "Left",   MButton.bLeft+6*FWidth+MButton.bWidth*2)
     2590    ok = VRSet("PB_Help",   "Width",  MButton.bWidth)
    24272591
    24282592    ok = VRSet("PB_Cancel", "Top",    MButton.bTop)
     
    24302594    ok = VRSet("PB_Cancel", "Width",  MButton.bWidth)
    24312595
    2432  /* ok = VRSet("PB_Help",   "Top",    MButton.bTop)
    2433     ok = VRSet("PB_Help",   "Left",   MButton.bLeft+6*FWidth+MButton.bWidth*3)
    2434     ok = VRSet("PB_Help",   "Width",  MButton.bWidth) */
    24352596
    24362597    drop MButton.b
     
    25722733*/
    25732734Menu_File_reset_Click:
     2735    say "Menu_File_reset_Click() started"
    25742736    call _SmbConfCreateDefault
    25752737    ok = SysFileTree(smbconf,exist.,'FO')
    25762738    SmbConfExists = exist.0
    25772739    call _SmbConfTreeReset
     2740    say "Menu_File_reset_Click() done"
    25782741return
    25792742
     
    25972760return
    25982761
     2762/*:VRX         Menu_File_YumInstall_Click
     2763*/
     2764Menu_File_YumInstall_Click:
     2765    address cmd 'yum install libc libcx libgcc1 cups-libs popt-libs gettext-libs zlib readline'
     2766return
     2767
    25992768/*:VRX         Menu_Help_About_Click
    26002769*/
     
    26132782Menu_Options_ExportMode_Click:
    26142783    say 'ExpertMode_Click started'
    2615     say         samba.!testparmexe' -v -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
    2616     address cmd samba.!testparmexe' -v -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
     2784    ok = VRSet("Main", 'Pointer', 'WAIT' )
     2785    log_level    = IniGet('log level',    'global', samba.!smbconf)
     2786    if datatype(log_level) <> "NUM" then log_level = 2
     2787    say         samba.!testparmexe' -v -s -d='log_level' 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
     2788    address cmd samba.!testparmexe' -v -s -d='log_level' 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
    26172789    say 'VRCopyFile('TempDir'smb.conf, 'smbconf' )'
    26182790    say "  smb.conf Gr”áe: "stream(smbconf,'c','QUERY SIZE')
     
    26222794    call _SmbConfTreeReset
    26232795    call Main_Resize
     2796    ok = VRSet("Main", 'Pointer', '<default>' )
    26242797    say 'ExpertMode_Click done'
    26252798return
     
    26362809*/
    26372810Menu_Options_SimpleMode_Click:
    2638     say 'SimpleMode_Click started'
    2639 
     2811    call _debuglog 'Menu_SimpleMode_Click() started'
     2812    ok = VRSet("Main", 'Pointer', 'WAIT' )
    26402813    /* Workaround for testparm bugs */
    26412814    say 'VRCopyFile('smbconf', 'TempDir'smb.conf )'
    26422815    ok = VRCopyFile( smbconf, TempDir'smb.conf')
    26432816    call _SmbConfCommitChanges
    2644 
    2645     say samba.!testparmexe' -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
    2646     address cmd samba.!testparmexe' -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
     2817    log_level    = IniGet('log level',    'global', samba.!smbconf)
     2818    if datatype(log_level) <> "NUM" then log_level = 2
     2819    say samba.!testparmexe' -s -d='log_level' 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
     2820    address cmd samba.!testparmexe' -s -d='log_level' 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm'
    26472821    NewSize = stream(TempDir"smb.conf",'c','QUERY SIZE')
    26482822    say "  "TempDir"smb.conf Gr”áe: "NewSize
     
    26542828    say 'Copy ok ='ok' (1 = success, 0 = failure)'
    26552829    call _SmbConfTreeReset
    2656     do I = Page to 3 by -1
    2657         ok = VRMethod( "GB_Global", "DeletePage", I  )
    2658         ok = VRDestroy("GL_GLOBAL_"I)
     2830
     2831    if datatype(Page) = "NUM" then do
     2832        do I = Page to 3 by -1
     2833            ok = VRMethod( "GB_Global", "DeletePage", I  )
     2834            ok = VRDestroy("GL_GLOBAL_"I)
     2835        end
    26592836    end
    26602837    Page = 2
    26612838    call Main_resize
    2662 say 'SimpleMode_Click done'
     2839    ok = VRSet("Main", 'Pointer', '<>default' )
     2840    call _debuglog 'Menu_SimpleMode_Click() done'
    26632841return
    26642842
     
    28042982    IF options.!debug == 1 THEN say 'PB_Cancel_Click() started'   
    28052983    if VRGet("PB_Save","Enabled") then call PB_Save_Click
    2806 'pause'
    28072984    call Quit
    28082985    IF options.!debug == 1 THEN say 'PB_Cancel_Click() done'   
     
    29273104        call _LMHostsImport
    29283105    end
    2929 
     3106    if VRGet("CB_YumInstall","set") then do
     3107        call Menu_File_YumInstall_Click
     3108    end
    29303109    call RemoveConfig_Close
    29313110return
     
    29503129    call PB_Save_Click   
    29513130    call beep 960, 1
    2952     address CMD samba.!smbcmd' reload'
     3131    if _SambaRunning() then do
     3132        address CMD samba.!smbcmd' stop'
     3133        ok = VRSet("PB_StartStop", "BackColor", "Green")
     3134        ok = VRSet("PB_StartStop", "Caption", startst)
     3135    end
     3136    else do
     3137        address CMD samba.!smbcmd' start'
     3138        ok = VRSet("PB_StartStop", "BackColor", "Red")   
     3139        ok = VRSet("PB_StartStop", "Caption", stopst)
     3140    end
    29533141return
    29543142
     
    30713259    ok = VRset("CB_RemoveBackend","Caption", NLVGetMessage(56, 'Backend'))
    30723260    ok = VRset("CB_RemoveLMHosts","Caption", NLVGetMessage(56, 'lmhosts'))
     3261    ok = VRset("CB_YumInstall","Caption", NLVGetMessage(99))
    30733262
    30743263    /* Check if ?db backend files exist */
Note: See TracChangeset for help on using the changeset viewer.