Changeset 294 for branches/guitools-1.0

Timestamp:

Jul 1, 2009, 7:52:06 AM (16 years ago)

Author:

Herwig Bauernfeind

Message:

GUI tools: removecfg Version 1.0

Location:

branches/guitools-1.0

Files:

• removecfg (added)
• removecfg/removecfg.RC (added)
• removecfg/removecfg.VRP (added)
• removecfg/removecfg.VRX (added)
• removecfg/removecfg.VRY (added)
• removecfg/removesmb.cmd (added)
• removecfg/smb.ico (added)
• smbmon/SMBSTATUS.INI (modified) ( previous)
• smbmon/smbmon.vrp (modified) (1 diff)
• smbmon/smbmon.vrx (modified) (4 diffs)
• smbmon/smbmon.vry (modified) ( previous)

branches/guitools-1.0/smbmon/smbmon.vrp

@@ -6 +6 @@
 RunDirectory: U:\Develop\Samba\guitools-1.0\smbmon
 VRXWindow: __VREMainWindow,1,2180,3710,940,8000
-VRXWindow: __VRESectionListWindow,1,2650,12093,9359,3324
-VRXWindow: __VREToolsWindow,1,2204,1590,7498,1665
+VRXWindow: __VRESectionListWindow,1,2650,12093,9359,3300
+VRXWindow: __VREToolsWindow,1,2204,1590,7492,1669
 VRXWindow: __VREWindListWindow,1,265,12093,2650,3150
 UserFile: 1

branches/guitools-1.0/smbmon/smbmon.vrx

@@ -163 +163 @@
     DStatusFH  = VRMethod( "CN_Daemons", "AddField", "String", NLVGetMessage(146) )
     DPidsFH    = VRMethod( "CN_Daemons", "AddField", "String", NLVGetMessage(130) )
+
+    /* Browse tree */
+    IpFH      = VRMethod( "CN_Tree", "AddField", "String", "IP Address" )
+    NBFH      = VRMethod( "CN_Tree", "AddField", "String", "NetBIOS name" )
+    MBFH      = VRMethod( "CN_Tree", "AddField", "String", "DMB/LMB" )    
+    WorkgroupFH= VRMethod( "CN_Tree", "AddField", "String", "Workgroup" )    
+    OSFH   = VRMethod( "CN_Tree", "AddField", "String", "OS" )    
+    VersionFH = VRMethod( "CN_Tree", "AddField", "String", "Version" )
+    CommentFH = VRMethod( "CN_Tree", "AddField", "String", "Comment" )
+
+    ok = VRMethod("CN_Tree","SetfieldAttr",IPFH,       "ReadOnly", 1)
+    ok = VRMethod("CN_Tree","SetfieldAttr",NBFH,       "ReadOnly", 1)
+    ok = VRMethod("CN_Tree","SetfieldAttr",MBFH,       "ReadOnly", 1)
+    ok = VRMethod("CN_Tree","SetfieldAttr",WorkGroupFH,"ReadOnly", 1)
+    ok = VRMethod("CN_Tree","SetfieldAttr",OSFH,       "ReadOnly", 1)
+
 
     /* add records for the 3 daemons */
@@ -805 +821 @@
     drop smbtree.
 
+    sl = 0
+
     do until lines(samba.!msg) = 0
-        smbtreeline = linein(samba.!msg)
-        Header = c2x(left(smbtreeline,3))
+        sl = sl + 1
+        smbtreeline.sl = linein(samba.!msg)
+    end
+    smbtreeline.0 = sl
+
+    do sl = 1 to smbtreeline.0
+        Header = c2x(left(smbtreeline.sl,3))
         select
             when Header = "09095C" then do /* share */
-                smbtreeline = strip(smbtreeline,,'09'x)
-                parse var smbtreeline '\\'machine'\'share '09'x comment
+                smbtreeline.sl = strip(smbtreeline.sl,,'09'x)
+                parse var smbtreeline.sl '\\'machine'\'share '09'x comment
                 machine = strip(machine)
                 share   = left(strip(share),10)
@@ -820 +843 @@
             end
             when Header = "095C5C" then do /* Machine */
-                smbtreeline = strip(smbtreeline,,'09'x)
-                parse var smbtreeline '\\'machine '0909'x comment
+                smbtreeline.sl = strip(smbtreeline.sl,,'09'x)
+                parse var smbtreeline.sl '\\'machine '0909'x comment
                 machine = left(strip(machine),13)
                 comment = strip(comment)
                 smbtree.!machine = VRMethod( "CN_Tree", "AddRecord",smbtree.!workgroup,, machine||'0D0A'x||comment,"#35:PMWP.DLL")
+                ok = VRMethod( "CN_Tree", "SetFieldData", smbtree.!machine, NBFH, machine, CommentFH, Comment, WorkGroupFH, CurWG)
             end
             otherwise do
-                say "Workgroup: "smbtreeline
-                if pos("RECEIVING",translate(smbTreeline)) > 0 then do
+                say "Workgroup: "smbtreeline.sl
+                if pos("RECEIVING",translate(smbtreeline.sl)) > 0 then do
                     Msg.Type = "W"
-                    Msg.Text = smbtreeline
+                    Msg.Text = smbtreeline.sl
                     call _ShowMsg
                 end
                 else do
-                    smbtree.!workgroup = VRMethod( "CN_Tree", "AddRecord",,, smbtreeline,"#62:PMWP.DLL")
+                    smbtree.!workgroup = VRMethod( "CN_Tree", "AddRecord",,, smbtreeline.sl,"#62:PMWP.DLL")
+                    ok = VRMethod( "CN_Tree", "SetFieldData", smbtree.!workgroup, WorkGroupFH, smbtreeline.sl)
+                    CurWG = smbtreeline.sl
                 end
             end
@@ -1293 +1319 @@
 return
 
+/*:VRX         ContextMenu_Tree_Details_Click
+*/
+ContextMenu_Tree_Details_Click: 
+    ok = VRset("CN_Tree","View","Detail")
+    ok = VRset("ContextMenu_Tree_Tree","Enabled",1)
+    ok = VRset("ContextMenu_Tree_Details","Enabled",0)
+    ok = VRset("ContextMenu_Tree_Icons","Enabled",1)
+return
+
+/*:VRX         ContextMenu_Tree_Icons_Click
+*/
+ContextMenu_Tree_Icons_Click: 
+    ok = VRset("CN_Tree","View","Icon")
+    ok = VRset("ContextMenu_Tree_Icons","Enabled",0)
+    ok = VRset("ContextMenu_Tree_Tree","Enabled",1)
+    ok = VRset("ContextMenu_Tree_Details","Enabled",1)
+return
+
 /*:VRX         ContextMenu_Tree_SendMsg_Click
 */
 ContextMenu_Tree_SendMsg_Click: 
     call _SendMsg 
+return
+
+/*:VRX         ContextMenu_Tree_Tree_Click
+*/
+ContextMenu_Tree_Tree_Click: 
+    ok = VRset("CN_Tree","View","IconTree")
+    ok = VRset("ContextMenu_Tree_Tree","Enabled",0)
+    ok = VRset("ContextMenu_Tree_Details","Enabled",1)
+    ok = VRset("ContextMenu_Tree_Icons","Enabled",1)
 return