fix build error on windows on multiproc boxes.

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@2857 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Michael Jerris 2006-09-28 17:45:45 +00:00
parent 1dfd6885db
commit f567ba48b6
1 changed files with 11 additions and 1 deletions

View File

@ -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