Changeset 707 for trunk/guitools/shared/smbtree.vrs

Timestamp:

Jul 10, 2012, 5:21:34 PM (13 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: Possible fix for 100 CPU usage seen in large networks in EVFSGUI/SMBMON/Shared code (as suggested by diver)

File:

• trunk/guitools/shared/smbtree.vrs (modified) (9 diffs)

trunk/guitools/shared/smbtree.vrs

@@ -298 +298 @@
             end /* Share loop */
 
-            do until left(line,10) = '09'x||'Workgroup'
+            do until left(line,10) = '09'x||'Workgroup' | lines(smbmachine.I) = 0
                 line = linein(smbmachine.I)
             end
-            line = linein(smbmachine.I)
+            line = linein(smbmachine.I) /* this should be the -------- string */
             /* Reading FIRST workgroup and master - eventually both empty */
             line = linein(smbmachine.I)
@@ -472 +472 @@
 */
 _GetMachineIP: procedure expose debuglevel samba.
+    say time()' _GetMachineIP() started'
     /* Get all IP addresses of the machine */
     machine = arg(1)
@@ -493 +494 @@
     end
     ipstr = strip(ipstr,,',')
+    say time()' _GetMachineIP() done'
 return IpStr
 
@@ -498 +500 @@
 */
 _GetMachineMACRoles: procedure expose debuglevel samba.
+    say time()' _GetMachineMACRoles() started'
     machine = arg(1) /* May be name or IP */
     call VRSet VRWindow(), 'Pointer', 'Wait'
@@ -526 +529 @@
     Roles = strip(Roles,,',')
     if Roles = "" then Roles = "Workstation"
+    say time()' _GetMachineMACRoles() done'    
 return MAC'|'Roles
 
@@ -531 +535 @@
 */
 _GetMachineNMBStatus: procedure expose debuglevel samba.
+    say time()' _GetMachineNMBStatus() started'
     machine = arg(1) /* name only allowed */
     call VRSet VRWindow(), 'Pointer', 'Wait'
@@ -567 +572 @@
     if Roles = "" then Roles = "Workstation"
     ipstr = strip(ipstr,,',')
+    say time()' _GetMachineNMBStatus() done'    
 return IPStr'|'MAC'|'Roles
 
@@ -574 +580 @@
 */
 file2stem:
+    say time()' file2stem() started'
     msgfile = arg(1)
     msgstem = arg(2)
@@ -597 +604 @@
     if delMsgFile <> "NODEL" then ok = SysFileDelete(msgfile)
     drop msgfile msgstem
+    say time()' file2stem() done'    
 return stemcount