kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

FS-4768 windows fix long term initial build problem

This commit is contained in:
Jeff Lenk 2013-01-02 16:11:34 -06:00
parent f9d4e290cf
commit 99a8052096
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
libs/win32/util.vbs
View File

@ -97,9 +97,13 @@ End Sub
Sub GetCompressionTools(DestFolder) Sub GetCompressionTools(DestFolder)
Dim oExec Dim oExec
Dim tries
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 tries = 0
If Not FSO.FileExists(DestFolder & "7za.tag") Then 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) 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.WriteLine("This file marks a pending download for 7za.exe so we don't download it twice at the same time")
MyFile.Close MyFile.Close
@ -109,8 +113,9 @@ Sub GetCompressionTools(DestFolder)
FSO.DeleteFile DestFolder & "7za.tag" ,true FSO.DeleteFile DestFolder & "7za.tag" ,true
Else Else
WScript.Sleep(5000) WScript.Sleep(5000)
tries = tries + 1
End If End If
End If WEnd
End Sub End Sub
Sub GetWgetEXE(DestFolder) Sub GetWgetEXE(DestFolder)