From: Jeff Lenk <jeff@jefflenk.com>
Date: Tue, 15 May 2012 14:18:02 +0000 (-0500)
Subject: FS-4219 --resolve
X-Git-Tag: v1.2.0~386
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a7c85c804a3e079c74ef415275483606e4a69fea;p=thirdparty%2Ffreeswitch.git

FS-4219 --resolve
---

diff --git a/libs/win32/util.vbs b/libs/win32/util.vbs
index ace3fd6998..29a7be5715 100644
--- a/libs/win32/util.vbs
+++ b/libs/win32/util.vbs
@@ -270,88 +270,35 @@ Sub CreateVersion(tmpFolder, VersionDir, includebase, includedest)
 	strVerMicro = FindVersionStringInConfigure(VersionDir & "configure.in", "SWITCH_VERSION_MICRO")
 	strVerRev   = FindVersionStringInConfigure(VersionDir & "configure.in", "SWITCH_VERSION_REVISION")
 	
-	If Right(tmpFolder, 1) <> "\" Then tmpFolder = tmpFolder & "\" End If
-	If Not FSO.FileExists(tmpFolder & "fs_svnversion.exe") Then 
-		Wget ToolsBase & "fs_svnversion.exe", tmpFolder
-	End If	
-
-	If Not FSO.FileExists(tmpFolder & "libdb44.dll") Then 
-		Wget ToolsBase & "libdb44.dll", tmpFolder
-	End If	
-	If Not FSO.FileExists(tmpFolder & "libsvn_diff-1.dll") Then 
-		Wget ToolsBase & "libsvn_diff-1.dll", tmpFolder
-	End If	
-	If Not FSO.FileExists(tmpFolder & "libsvn_subr-1.dll") Then 
-		Wget ToolsBase & "libsvn_subr-1.dll", tmpFolder
-	End If	
-	If Not FSO.FileExists(tmpFolder & "libsvn_wc-1.dll") Then 
-		Wget ToolsBase & "libsvn_wc-1.dll", tmpFolder
-	End If	
-	If Not FSO.FileExists(tmpFolder & "intl3_svn.dll") Then 
-		Wget ToolsBase & "intl3_svn.dll", tmpFolder
-	End If	
-	If Not FSO.FileExists(tmpFolder & "libapr-1.dll") Then 
-		Wget ToolsBase & "libapr-1.dll", tmpFolder
-	End If	
-	If Not FSO.FileExists(tmpFolder & "libaprutil-1.dll") Then 
-		Wget ToolsBase & "libaprutil-1.dll", tmpFolder
-	End If	
-	If Not FSO.FileExists(tmpFolder & "libapriconv-1.dll") Then 
-		Wget ToolsBase & "libapriconv-1.dll", tmpFolder
-	End If	
-	If Not FSO.FileExists(tmpFolder & "libsvn_delta-1.dll") Then 
-		Wget ToolsBase & "libsvn_delta-1.dll", tmpFolder
-	End If	
+	'Set version to the one reported by configure.in
+	if strVerRev <> "" Then
+	    VERSION = strVerRev
+	End If
 
 	Dim sLastFile
-	Const OverwriteIfExist = -1
 	Const ForReading       =  1
 
-	if strVerRev = "" Then
-		if FSO.FolderExists(VersionDir & ".svn") Then
-			VersionCmd="fs_svnversion " & quote & VersionDir & "." & quote &  " -n"
-			Set MyFile = fso.CreateTextFile(tmpFolder & "tmpVersion.Bat", True)
-			MyFile.WriteLine("@" & "cd " & quote & tmpFolder & quote )
-			MyFile.WriteLine("@" & VersionCmd)
-			MyFile.Close
-			Set oExec = WshShell.Exec("cmd /C " & quote & tmpFolder & "tmpVersion.Bat" & quote)
-			Do
-				strFromProc = OExec.StdOut.ReadLine()
-				VERSION="svn-" & strFromProc
-			Loop While Not OExec.StdOut.atEndOfStream
-			sLastVersion = ""
-			Set sLastFile = FSO.OpenTextFile(tmpFolder & "lastversion", ForReading, true, OpenAsASCII)
-			If Not sLastFile.atEndOfStream Then
-				sLastVersion = sLastFile.ReadLine()
-			End If
-			sLastFile.Close
-		End If
-
-		if FSO.FolderExists(VersionDir & ".git") Then
-			VersionCmd="git log --format=" & quote & "%%h %%ci" & quote & " -1 HEAD"
-			Set MyFile = FSO.CreateTextFile(tmpFolder & "tmpVersion.Bat", True)
-			MyFile.WriteLine("@" & "cd " & quote & VersionDir & quote)
-			MyFile.WriteLine("@" & VersionCmd)
-			MyFile.Close
-			Set oExec = WshShell.Exec("cmd /C " & quote & tmpFolder & "tmpVersion.Bat" & quote)
-			Do
-				strFromProc = Trim(OExec.StdOut.ReadLine())
-				VERSION="git-" & strFromProc
-			Loop While Not OExec.StdOut.atEndOfStream
-			sLastVersion = ""
-			Set sLastFile = FSO.OpenTextFile(tmpFolder & "lastversion", ForReading, true, OpenAsASCII)
-			If Not sLastFile.atEndOfStream Then
-				sLastVersion = sLastFile.ReadLine()
-			End If
-			sLastFile.Close
-			VERSION = Replace(VERSION, ":", "-")
+	'Try To read revision from git, if it's found, use this instead of strVerRev found above
+	If FSO.FolderExists(VersionDir & ".git") Then
+		VersionCmd="git log --format=" & quote & "%%h %%ci" & quote & " -1 HEAD"
+		Set MyFile = FSO.CreateTextFile(tmpFolder & "tmpVersion.Bat", True)
+		MyFile.WriteLine("@" & "cd " & quote & VersionDir & quote)
+		MyFile.WriteLine("@" & VersionCmd)
+		MyFile.Close
+		Set oExec = WshShell.Exec("cmd /C " & quote & tmpFolder & "tmpVersion.Bat" & quote)
+		Do
+			strFromProc = Trim(OExec.StdOut.ReadLine())
+			VERSION="git-" & strFromProc
+		Loop While Not OExec.StdOut.atEndOfStream
+		sLastVersion = ""
+		Set sLastFile = FSO.OpenTextFile(tmpFolder & "lastversion", ForReading, true, OpenAsASCII)
+		If Not sLastFile.atEndOfStream Then
+			sLastVersion = sLastFile.ReadLine()
 		End If
+		sLastFile.Close
+		VERSION = Replace(VERSION, ":", "-")
 	End If
 	
-	if strVerRev <> "" Then
-	    VERSION = strVerRev
-	End If
-
 	If VERSION = "" Then
 		VERSION = "UNKNOWN"
 	End If