Changeset 652 for trunk/guitools/evfsgui/evfsgui.vrx

Timestamp:

Nov 5, 2011, 11:37:37 AM (14 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI 2.5.x: More work done

File:

• trunk/guitools/evfsgui/evfsgui.vrx (modified) (16 diffs)

trunk/guitools/evfsgui/evfsgui.vrx

@@ -690 +690 @@
     CALL NLVSetText 'Menu_File_LOAD',                 "Caption", 31
     CALL NLVSetText 'Menu_File_SAVE',                 "Caption", 30
+    CALL NLVSetText 'Menu_File_LMHosts_Reset',        "Caption", 127
     CALL NLVSetText 'Menu_File_Autostart',            "Caption", 35
     CALL NLVSetText 'Menu_File_Autostart_Activate',   "Caption", 76
     CALL NLVSetText 'Menu_File_Autostart_Deactivate', "Caption", 77
+    CALL NLVSetText 'Menu_File_Daemon',               "Caption", 126
+    CALL NLVSetText 'Menu_File_Daemon_Start',         "Caption", 76
+    CALL NLVSetText 'Menu_File_Daemon_Stop',          "Caption", 77
     CALL NLVSetText 'Menu_File_CLOSE',                "Caption", 29
 
@@ -787 +791 @@
         advanced.!special    = 0
         advanced.!savepassive= 0
+        advanced.!lmhosts    = 1
 
         advanced.!miniicons  = 0
@@ -844 +849 @@
         advanced.!special    = VRGetIni('Settings', 'SpecialShares',   settings.!ini, 'NoClose')
         advanced.!savepassive= VRGetIni('Settings', 'SavePassive',     settings.!ini, 'NoClose')
+        advanced.!lmhosts    = VRGetIni('Settings', 'LMHosts',         settings.!ini, 'NoClose')
         advanced.!miniicons  = VRGetIni('Settings', 'MiniIcons',       settings.!ini, 'NoClose')
 
@@ -857 +863 @@
         IF advanced.!special    == '' THEN advanced.!special    = 0
         IF advanced.!savepassive== '' THEN advanced.!savepassive= 0
+        IF advanced.!lmhosts    == '' THEN advanced.!lmhosts    = 1
 
         options.!debug = VRGetIni('Settings', 'Debug', settings.!ini)
@@ -953 +960 @@
     CALL VRSetIni 'Settings', 'SpecialShares', advanced.!special    , settings.!ini, 'NoClose'
     CALL VRSetIni 'Settings', 'SavePassive',   advanced.!savepassive, settings.!ini, 'NoClose'
+    CALL VRSetIni 'Settings', 'LMHosts',       advanced.!lmhosts    , settings.!ini, 'NoClose'
 
     CALL VRSetIni 'Settings', 'Debug',         options.!debug       , settings.!ini, 'NoClose'
@@ -983 +991 @@
     IF options.!debug == 1 THEN SAY time()' '||"SaveSettings done"
 RETURN
+
+/*:VRX         _LMHostsRead
+*/
+_LMHostsRead: 
+    ok = file2stem(samba.!lmhosts,'lmhosts.', 'NoDel')
+    lmname. = "#"
+    lmapp.  = ""
+    lmname.0 = lmhosts.0
+    lmip.0   = lmhosts.0
+    lmapp.0  = lmhosts.0
+    do I = 1 to lmhosts.0
+        if left(lmhosts.I,1) = "#" then iterate        
+        parse var lmhosts.I lmip.I ' ' lmname.I '#' lmapp.I
+        lmip.I = strip(lmip.I)
+        lmname.I = strip(lmname.I)
+        if lmapp.I <> "" & left(lmapp.I,1) <> '#' then lmapp.I = '#'lmapp.I
+    end
+    drop lmhosts.
+return
+
+/*:VRX         _LMHostsUpdate
+*/
+_LMHostsUpdate: 
+    ok = VRMethod( "CN_SMBTREE", "GetRecordList", "Visible", "rh." )
+    do I = 1 to rh.0
+        call _GetSMBObjectProperties rh.I
+        if SMBObj.udatatype = "SERVER" then do
+            IP = VRMethod("CN_SMBTREE","GetFieldData",rh.I, IPFH )
+            Role = VRMethod("CN_SMBTREE","GetFieldData",rh.I, MBFH )
+            parse var IP T1 '.' T2 '.' T3 '.' T4
+            if datatype(T1) = "NUM" & datatype(T2) = "NUM" & datatype(T3) = "NUM" & datatype(T4) = "NUM" then do
+                FoundName = 0
+                do J = 1 to lmname.0 /* machine already in LMHosts? */
+                    if lmname.J = SmbObj.resname then do /* Yes? then update IP */
+                        lmip.J = IP
+                        if pos('PDC',Role) > 0 & SMBObj.parentrh <> "" then do
+                            Domain  = VRMethod("CN_SMBTREE", "GetRecordAttr", SMBObj.parentrh, "Caption")
+                            lmapp.J = "#DOM:"Domain
+                        end
+                        FoundName = 1
+                        leave
+                    end
+                end
+                if FoundName = 0 then do /* New machine for LMhosts - add it */
+                    new = lmname.0 + 1
+                    lmname.0 = new
+                    lmname.new = SmbObj.resname
+                    lmip.0 = new
+                    lmip.new = IP                    
+                end
+            end
+        end
+    end
+    ok = SysFileDelete(samba.!lmhosts)
+    call lineout samba.!lmhosts,'# Created by 'translate(VRParseFilename(settings.!ini,'N'))' Version 'word(VRGet("Main","Hinttext"),2)' on 'date()' at 'time()
+    call lineout samba.!lmhosts,'# Syntax:'
+    call lineout samba.!lmhosts,left('# IP-address',25)||left('NetBIOS-name',16)' [Role]'
+    do I = 1 to lmname.0
+        if left(lmname.I,1) = "#" then iterate 
+        call lineout samba.!lmhosts,left(lmip.I,25)||left(lmname.I,16)' 'lmapp.I
+    end
+    ok = stream(samba.!lmhosts,'c','close')
+return
+
+/*:VRX         _LMHostsWrite
+*/
+_LMHostsWrite: 
+
+return
 
 /*:VRX         _LoadOtherFuncs
@@ -2364 +2441 @@
     ELSE do
         if advanced.!browseauth == 1 then do
+            /* FIXME: unclear why we have to do the following 4 lines here */
+            call SW_SETTINGS_Init
+            call SW_SETTINGS_Init_Content
+            call SW_ADVANCED_Init
+            call SW_ADVANCED_Init_Content
+
             window = VRLoadSecondary( "SW_LOGIN", "W" )
             call Main_Resize
@@ -2849 +2932 @@
 Menu_File_Daemon_Start_Click:
     IF options.!debug == 1 THEN SAY time()' Menu_File_Daemon_Start_Click started' 
+    if VRFileExists(SysBootDrive()"\ndpsmb.dbg") then do
+        btns.0 = 2
+        btns.1 = NLVGetMessage( 6 )
+        btns.2 = NLVGetMessage( 7 )
+        confirm = VRMessage('Main', NLVGetMessage( 119 ), NLVGetMessage( 8 ), 'Q', 'btns.', 1, 2 )
+        IF confirm == 1 THEN do
+            logFiles = value("LOGFILES",,"OS2ENVIRONMENT")
+            ok1 = SysFileDelete(Logfiles||'\log.smbc')
+            ok2 = SysFileDelete(Logfiles||'\log.ndpsmb')
+            if ok1 <> 0 | ok2 <> 0 then do
+                ok = VRMessage('Main', NLVGetMessage(5)' 'Logfiles||'\log.smbc RC='ok1||'0D0A'x||NLVGetMessage(5)' 'Logfiles||'\log.ndpsmb RC='ok2, NLVGetMessage( 5 ), 'E')
+            end
+            drop ok1 ok2
+        end
+    end
     address cmd 'detach 'fs.!prefix'CTL.EXE'
     ok = VRset("GB_CURRENT","Enabled", 1)
@@ -2877 +2975 @@
     IF options.!debug == 1 THEN SAY time()' Menu_File_Daemon_Stop_Click stopped' 
 return
+/*:VRX         Menu_File_LMHosts_Reset_Click
+*/
+Menu_File_LMHosts_Reset_Click: 
+    ok = SysFileDelete(samba.!lmhosts)
+return
+
 /*:VRX         Menu_File_Load_Click
 */
@@ -3722 +3826 @@
     advanced.!special     = VRGet("CB_SPECIAL",    "Set" )
     advanced.!savepassive = VRGet("CB_SAVEPASSIVE","Set" )
+    advanced.!lmhosts     = VRGet("CB_LMHOSTS",    "Set" )
     advanced.!broadcast   = VRGet("CB_BROADCAST",  "Set" )
     advanced.!miniicons   = VRGet("CB_MINIICONS",  "Set" )
+
+    /* Note: CB_LOGGING has its own event tied to the click */
 
     options.!debug        = VRGet("CB_DEBUG",      "Set" )
@@ -3755 +3862 @@
     ok = VRset("CN_SMBTREE", "MiniIcons", advanced.!miniicons)
     ok = VRset("CN_CONDET",  "MiniIcons", advanced.!miniicons)
+
+    if advanced.!lmhosts = 1 then do
+        call _LMHostsRead
+        call _LMHostsUpdate
+    end
 return
 
@@ -4041 +4153 @@
     CALL NLVSetText 'PB_ABOUT_CLOSE',  "Caption", 29
     CALL NLVSetText 'PB_ABOUT_COPY',   "Caption", 121
+    CALL NLVSetText 'CB_TRAC',         "Caption", 134
 
     ok = VRSet("DT_About","Caption", 'EVFSGUI (c) 2007-2011 Alexander Taylor and Herwig Bauernfeind')
@@ -4277 +4390 @@
     CALL NLVSetText 'PB_LOGIN_OK',    "Caption", 2
     CALL NLVSetText 'PB_LOGIN_CANCEL',"Caption", 3
+    /* ok = VRSet("Pict_Login","PicturePath", SMBObj.icon) */
     ok = VRSet("EF_USER1","Value",VRGet("EF_USER","Value"))
     ok = VRSet("EF_PASSWORD1","Value",VRGet("EF_PASSWORD","Value"))
@@ -4492 +4606 @@
     call NLVSetText "CB_SPECIAL",        "Caption", 66
     call NLVSetText "CB_SAVEPASSIVE",    "Caption", 73
+    call NLVSetText "CB_LMHOSTS",        "Caption", 133
     call NLVSetText "CB_BROADCAST",      "Caption", 74
-    call NLVSetText "CB_MINIICONS",       "Caption", 70
+    call NLVSetText "CB_MINIICONS",      "Caption", 70
 
     /* Buttons */
@@ -4515 +4630 @@
     if advanced.!special     \= ""  then ok = VRSet("CB_SPECIAL",    "Set",   advanced.!special)
     if advanced.!savepassive \= ""  then ok = VRSet("CB_SAVEPASSIVE","Set",   advanced.!savepassive)
+    if advanced.!lmhosts     \= ""  then ok = VRSet("CB_LMHOSTS",    "Set",   advanced.!lmhosts)
 
     call VRSet "CB_LOGGING", "Set", VRFileExists(SysBootDrive()"\ndpsmb.dbg")
@@ -4628 +4744 @@
 TM_RefreshTreeDisplay_Trigger:
     ShowHidden = advanced.!special
-    BroadCast = advanced.!broadcast
+    BroadCast  = advanced.!broadcast
+    DoLMHosts  = advanced.!lmhosts
 
     select