Changeset 561 for branches

Timestamp:

Feb 23, 2011, 10:02:53 AM (14 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: SMBMON 2.1 container logic

Location:

branches/guitools-2.0/smbmon-2.1

Files:

• smbmon.VRP (modified) (1 diff)
• smbmon.VRX (modified) (4 diffs)
• smbmon.VRY (modified) ( previous)
• smbmon_de.mkm (added)
• smbmon_en.mkm (added)
• smbmon_es.mkm (added)
• smbmon_fr.mkm (added)
• smbmon_sv.mkm (added)

branches/guitools-2.0/smbmon-2.1/smbmon.VRP

@@ -7 +7 @@
 RunDirectory: 
 VRXWindow: __VREMainWindow,1,2180,3710,903,8010
-VRXWindow: __VRESectionListWindow,1,1457,11708,7938,3342
-VRXWindow: __VREToolsWindow,1,3211,9877,6489,1659
-VRXWindow: __VREWindListWindow,1,3216,6119,2650,3150
+VRXWindow: __VRESectionListWindow,1,3589,11708,7938,3342
+VRXWindow: __VREToolsWindow,1,3211,9877,6480,1661
+VRXWindow: __VREWindListWindow,1,927,11708,2650,3324
 UserFile: 1
 UserWindow: Main,1
+UserWindow: SW_1,1
+UserWindow: SW_2,1
+UserWindow: SW_3,1
+UserWindow: SW_4,1
+UserWindow: SW_5,1
+UserWindow: SW_6,1

branches/guitools-2.0/smbmon-2.1/smbmon.VRX

@@ -87 +87 @@
 return __vrlsHWnd
 
+/*:VRX         __VXREXX____APPENDS__
+*/
+__VXREXX____APPENDS__:
+/*
+#append U:\Develop\Samba\guitools-2.0\shared\nlv.vrs
+#append U:\Develop\Samba\guitools-2.0\shared\inittempdir.vrs
+*/
+return
+/*:VRX         _ContainerInit
+*/
+_ContainerInit: 
+    say '_ContainerInit() started.'
+
+    /* User */
+    UIconH     = VRMethod( "CN_Users", "AddField", "Icon",   NLVGetMessage(148) )
+    UsernameFH = VRMethod( "CN_Users", "AddField", "String", NLVGetMessage(131) )
+    GroupFH    = VRMethod( "CN_Users", "AddField", "String", NLVGetMessage(132) )
+    UMachineFH = VRMethod( "CN_Users", "AddField", "String", NLVGetMessage(133) )
+    UIPAdrFH   = VRMethod( "CN_Users", "AddField", "String", NLVGetMessage(147) )
+    UPIDFH     = VRMethod( "CN_Users", "AddField", "String", NLVGetMessage(130) )  
+
+    /* Files */
+    FIconH     = VRMethod( "CN_Files", "AddField", "Icon",   NLVGetMessage(148) )
+    FileFH     = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(134) )
+    FUserFH    = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(131) )
+    FPIDFH     = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(130) )
+    DenyModeFH = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(135) )
+    TimeFH     = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(136) )
+    DateFH     = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(149) )
+    AccessFH   = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(137) )
+    RWFH       = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(138) )
+    OplockFH   = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(139) )
+    UIDFH      = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(140) )
+    SharePathFH= VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(141) )
+    NameFH     = VRMethod( "CN_Files", "AddField", "String", NLVGetMessage(142) )
+
+    /* service */
+    SIconH     = VRMethod( "CN_Service", "AddField", "Icon",   NLVGetMessage(148) )
+    SPIDFH     = VRMethod( "CN_Service", "AddField", "String", NLVGetMessage(130) )
+    ServiceFH  = VRMethod( "CN_Service", "AddField", "String", NLVGetMessage(143) )
+    SMachineFH = VRMethod( "CN_Service", "AddField", "String", NLVGetMessage(133) )
+    ConnectedFH= VRMethod( "CN_Service", "AddField", "String", NLVGetMessage(144) )
+
+    /* daemons */
+    DaemonFH   = VRMethod( "CN_Daemons", "AddField", "String", NLVGetMessage(145) )
+    DStatusFH  = VRMethod( "CN_Daemons", "AddField", "String", NLVGetMessage(146) )
+    DPidsFH    = VRMethod( "CN_Daemons", "AddField", "String", NLVGetMessage(130) )
+
+    /* Browse tree */
+    WorkgroupFH= VRMethod( "CN_smbtree", "AddField", "String", NLVGetMessage(150)  )
+    NBFH      = VRMethod( "CN_smbtree", "AddField", "String", "NetBIOS name" )
+    IpFH      = VRMethod( "CN_smbtree", "AddField", "String",  NLVGetMessage(147)  )
+    MBFH      = VRMethod( "CN_smbtree", "AddField", "String", "DMB/LMB" )    
+    
+    OSFH   = VRMethod( "CN_smbtree", "AddField", "String", "OS" )    
+    /* VersionFH = VRMethod( "CN_SmbTree", "AddField", "String", "Version" ) */
+    CommentFH = VRMethod( "CN_smbtree", "AddField", "String", NLVGetMessage(151) )
+    MacFH = VRMethod( "CN_smbtree", "AddField", "String", "MAC" )
+
+    ok = VRMethod("CN_smbtree","SetfieldAttr",IPFH,       "ReadOnly", 1)
+    ok = VRMethod("CN_smbtree","SetfieldAttr",NBFH,       "ReadOnly", 1)
+    ok = VRMethod("CN_smbtree","SetfieldAttr",MBFH,       "ReadOnly", 1)
+    ok = VRMethod("CN_smbtree","SetfieldAttr",WorkGroupFH,"ReadOnly", 1)
+    ok = VRMethod("CN_smbtree","SetfieldAttr",OSFH,       "ReadOnly", 1)
+    ok = VRMethod("CN_smbtree","SetfieldAttr",MacFH,      "ReadOnly", 1)
+
+
+    /* add records for the 3 daemons */
+    smbdHandle = VRMethod("CN_Daemons", "Addrecord",, ,"smbd.exe","$41")
+    ok = VRMethod("CN_Daemons", "SetFieldData", smbdHandle, DaemonFH, "smbd.exe")
+    nmbdHandle = VRMethod("CN_Daemons", "Addrecord", ,,"nmbd.exe","$41")
+    ok = VRMethod("CN_Daemons", "SetFieldData", nmbdHandle, DaemonFH, "nmbd.exe")
+    winbHandle = VRMethod("CN_Daemons", "Addrecord",, ,"winbindd.exe","$41")
+    ok = VRMethod("CN_Daemons", "SetFieldData", winbHandle, DaemonFH, "winbindd.exe")
+    ok = (stream(samba.!bin'\winbindd.exe','c','query exists') <> "")
+    ok = VRMethod("CN_Daemons", "SetRecordAttr", winbHandle, "Visible", ok)
+
+    ok = VRMethod("CN_Daemons","SetRecordAttr","All", "Collapsed", 0 )
+
+    say '_ContainerInit() done.'
+return
+
 /*:VRX         _GUIInit
 */
 _GUIInit: 
+    FirstRun = 1
     if datatype(Top) = 'NUM' then do
         ok = VRset("Main","Top",Top)
@@ -162 +245 @@
 Main_Create: 
     call _INIRead
+    call NLVSetup
     call _GUIInit
 return
@@ -189 +273 @@
     ok = VRSEt("PB_About",  "Left",ButtonHPos+ButtonHDist*(ButtonNr-2))
     ok = VRSEt("PB_Help",   "Left",ButtonHPos+ButtonHDist*(ButtonNr-1))
+
+    cLeft   = 120
+    cTop    = 120
+    cWidth  = iWidth - 1200
+    cHeight = iHeight- 1660
+
+    if VRIsValidObject("CN_Users") then do
+        ok = VRset("CN_Users","Top",    cTop)
+        ok = VRset("CN_Users","Left",   cLeft)
+        ok = VRset("CN_Users","Width",  cWidth)
+        ok = VRset("CN_Users","Height", cHeight)
+    end
+
+    if VRIsValidObject("CN_Files") then do
+        ok = VRset("CN_Files","Top",    cTop)
+        ok = VRset("CN_Files","Left",   cLeft)
+        ok = VRset("CN_Files","Width",  cWidth)
+        ok = VRset("CN_Files","Height", cHeight)
+    end
+
+    if VRIsValidObject("CN_Service") then do
+        ok = VRset("CN_Service","Top",    cTop)
+        ok = VRset("CN_Service","Left",   cLeft)
+        ok = VRset("CN_Service","Width",  cWidth)
+        ok = VRset("CN_Service","Height", cHeight)
+    end
+
+    if VRIsValidObject("CN_Daemons") then do
+        ok = VRset("CN_Daemons","Top",    cTop)
+        ok = VRset("CN_Daemons","Left",   cLeft)
+        ok = VRset("CN_Daemons","Width",  cWidth)
+        ok = VRset("CN_Daemons","Height", cHeight)
+    end
+
+    if VRIsValidObject("CN_SmbTree") then do
+        ok = VRset("CN_SmbTree","Top",    cTop)
+        ok = VRset("CN_SmbTree","Left",   cLeft)
+        ok = VRset("CN_SmbTree","Width",  cWidth)
+        ok = VRset("CN_SmbTree","Height", cHeight)
+    end
 
     ok = VRSet("Main","Painting", 1)
@@ -394 +518 @@
 return
 
+/*:VRX         TDL_1_PageSelected
+*/
+TDL_1_PageSelected: 
+    if FirstRun = 1 then do
+        ok = VRSet("TDL_1","Painting", 0)
+        call _ContainerInit
+        FirstRun = 0
+        ok = VRSet("TDL_1","Painting", 1)
+    end
+return
+