From: Jeff Lenk <jeff@jefflenk.com>
Date: Wed, 2 Jan 2013 22:11:34 +0000 (-0600)
Subject: FS-4768 windows fix long term initial build problem
X-Git-Tag: v1.3.13~194
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=99a8052096b101fb013a405dbd06c5b9784a4380;p=thirdparty%2Ffreeswitch.git

FS-4768 windows fix long term initial build problem
---

diff --git a/libs/win32/util.vbs b/libs/win32/util.vbs
index d47ccbd1b1..887415f437 100644
--- a/libs/win32/util.vbs
+++ b/libs/win32/util.vbs
@@ -97,9 +97,13 @@ End Sub
 
 Sub GetCompressionTools(DestFolder)
 	Dim oExec
+	Dim tries
+
 	If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If
-	If Not FSO.FileExists(DestFolder & "7za.exe") Then 
-		If Not FSO.FileExists(DestFolder & "7za.tag") Then 
+	tries = 0
+	While Not FSO.FileExists(DestFolder & "7za.exe") And tries < 2
+		WScript.Sleep(Int(10000*Rnd)) 
+		If Not FSO.FileExists(DestFolder & "7za.tag") And Not FSO.FileExists(DestFolder & "7za.exe") 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
@@ -109,8 +113,9 @@ Sub GetCompressionTools(DestFolder)
 			FSO.DeleteFile DestFolder & "7za.tag" ,true 
 		Else
 			WScript.Sleep(5000)
+			tries = tries + 1
 		End If	
-	End If	
+	WEnd	
 End Sub
 
 Sub GetWgetEXE(DestFolder)