Changeset 477 for branches/guitools-2.0/shared/smbtree.vrs

Timestamp:

Jul 20, 2010, 10:50:05 AM (15 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI: Do not run more than 32 smbclient.exe at the same time

File:

• branches/guitools-2.0/shared/smbtree.vrs (modified) (2 diffs)

branches/guitools-2.0/shared/smbtree.vrs

@@ -13 +13 @@
     if BroadCast = 1 then BroadCast = '-b'; else BroadCast = ''
 
-    say '  detach 'samba.!smbtreeexe' 'BroadCast' -S 'debuglevel' 'UserCred' >'samba.!msg
+    say       '  detach 'samba.!smbtreeexe' 'BroadCast' -S 'debuglevel' 'UserCred' >'samba.!msg
     address cmd 'detach 'samba.!smbtreeexe' 'BroadCast' -S 'debuglevel' 'UserCred' >'samba.!msg
 
@@ -172 +172 @@
 _RefreshShares:
     say time()' _RefreshShares() started'
-    RefreshID = RANDOM()
+    /* RefreshID = RANDOM() */
     smbmachine = TempDir||"smbmachine."||machine
+    MaxSmbClient = 32 /* Do not run more than MaxSmbClient instances of smbclient.exe at the same time */
+
+    Defer = 1
+    do while Defer = 1 
+        SmbCltCount = 0
+        ok = PRProcessList(proc)
+
+        do I = 1 to proc.0
+            CurProc = VRParseFileName(proc.i.name,'NE')
+            if CurProc = "SMBCLIENT.EXE" then SmbCltCount = SmbCltCount + 1
+        end
+        say '  'SmbCltCount' instance(s) of 'samba.!smbclientexe' is/are running.'
+        if SmbCltCount >= MaxSmbClient then do
+            say "  Waiting until at least "SmbCltCount-MaxSmbClient+1" instance(s) of smbclient.exe terminate(s)."
+            ok = SysSleep(1)
+        end
+        else Defer = 0
+    end
 
     if UserCred   = 'USERCRED'   | UserCred = '' | UserCred = '--user=%' then UserCred = '-N'