From: Jeff Lenk <jeff@jefflenk.com>
Date: Fri, 12 Oct 2012 04:00:04 +0000 (-0500)
Subject: windows fix for initial build. Not quite sure why this was never noticed before.
X-Git-Tag: v1.3.0~66
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a6b2a420d0bf29ce6021b311783117bd0863b52e;p=thirdparty%2Ffreeswitch.git

windows fix for initial build. Not quite sure why this was never noticed before.
---

diff --git a/libs/win32/util.vbs b/libs/win32/util.vbs
index 0ce107c4c4..d47ccbd1b1 100644
--- a/libs/win32/util.vbs
+++ b/libs/win32/util.vbs
@@ -131,7 +131,9 @@ Sub UnCompress(Archive, DestFolder)
 	Do
 		WScript.Echo OExec.StdOut.ReadLine()
 	Loop While Not OExec.StdOut.atEndOfStream
-	If FSO.FileExists(Left(Archive, Len(Archive)-3))Then  
+	If FSO.FileExists(Left(Archive, Len(Archive)-3))Then
+		WScript.Sleep(100)
+		FSO.DeleteFile UtilsDir & batname, True  
 		Set MyFile = fso.CreateTextFile(UtilsDir & batname, True)
 		MyFile.WriteLine("@" & quote & UtilsDir & "7za.exe" & quote & " x " & quote & Left(Archive, Len(Archive)-3) & quote & " -y -o" & quote & DestFolder & quote )
 		MyFile.Close
@@ -142,7 +144,9 @@ Sub UnCompress(Archive, DestFolder)
 		WScript.Sleep(500)
 		FSO.DeleteFile Left(Archive, Len(Archive)-3) ,true 
 	End If
-	If FSO.FileExists(Left(Archive, Len(Archive)-3) & "tar")Then  
+	If FSO.FileExists(Left(Archive, Len(Archive)-3) & "tar")Then 
+		WScript.Sleep(100)
+		FSO.DeleteFile UtilsDir & batname, True 
 		Set MyFile = fso.CreateTextFile(UtilsDir & batname, True)
 		MyFile.WriteLine("@" & quote & UtilsDir & "7za.exe" & quote & " x " & quote & Left(Archive, Len(Archive)-3) & "tar" & quote & " -y -o" & quote & DestFolder & quote )
 		MyFile.Close