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:
parent
1dfd6885db
commit
f567ba48b6
|
@ -78,7 +78,17 @@ Sub GetCompressionTools(DestFolder)
|
||||||
Dim oExec
|
Dim oExec
|
||||||
If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If
|
If Right(DestFolder, 1) <> "\" Then DestFolder = DestFolder & "\" End If
|
||||||
If Not FSO.FileExists(DestFolder & "7za.exe") Then
|
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 If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue