From: Michael Jerris <mike@jerris.com>
Date: Thu, 28 Sep 2006 17:45:45 +0000 (+0000)
Subject: fix build error on windows on multiproc boxes.
X-Git-Tag: v1.0-beta1~2048
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=f567ba48b6b2979a3a5b8e757fa8299faf7d7830;p=thirdparty%2Ffreeswitch.git

fix build error on windows on multiproc boxes.

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@2857 d0543943-73ff-0310-b7d9-9358b9ac24b2
---

diff --git a/libs/win32/util.vbs b/libs/win32/util.vbs
index 2c894bbc84..24b31cd7e0 100644
--- a/libs/win32/util.vbs
+++ b/libs/win32/util.vbs
@@ -78,7 +78,17 @@ Sub GetCompressionTools(DestFolder)
 	Dim oExec
 	If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If
 	If Not FSO.FileExists(DestFolder & "7za.exe") Then 
-		Wget ToolsBase & "7za.exe", DestFolder
+		If Not FSO.FileExists(DestFolder & "7za.tag") Then 
+			Set MyFile = fso.CreateTextFile(DestFolder & "7za.tag", True)
+			MyFile.WriteLine("This file marks a pending download for 7za.exe so we don't download it twice at the same time")
+			MyFile.Close
+				
+				Wget ToolsBase & "7za.exe", DestFolder
+			
+			FSO.DeleteFile DestFolder & "7za.tag" ,true 
+		Else
+			WScript.Sleep(5000)
+		End If	
 	End If	
 End Sub