[Freeswitch-svn] [commit] r2857 - freeswitch/trunk/libs/win32

[Freeswitch SVN]

Author: mikej
Date: Thu Sep 28 13:45:45 2006
New Revision: 2857

Modified:
   freeswitch/trunk/libs/win32/util.vbs

Log:
fix build error on windows on multiproc boxes.

Modified: freeswitch/trunk/libs/win32/util.vbs
==============================================================================
--- freeswitch/trunk/libs/win32/util.vbs	(original)
+++ freeswitch/trunk/libs/win32/util.vbs	Thu Sep 28 13:45:45 2006
@@ -78,7 +78,17 @@
 	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