kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-05-03 14:56:17 +00:00
Code Issues Projects Releases Wiki Activity

FS-4219 --resolve

Browse Source
This commit is contained in:
Jeff Lenk 2012-05-15 09:18:02 -05:00
parent fcaf888452
commit a7c85c804a
1 changed files with 25 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
libs/win32/util.vbs
View File

@ -270,64 +270,16 @@ Sub CreateVersion(tmpFolder, VersionDir, includebase, includedest)
strVerMicro = FindVersionStringInConfigure(VersionDir & "configure.in", "SWITCH_VERSION_MICRO") strVerMicro = FindVersionStringInConfigure(VersionDir & "configure.in", "SWITCH_VERSION_MICRO")
strVerRev = FindVersionStringInConfigure(VersionDir & "configure.in", "SWITCH_VERSION_REVISION") strVerRev = FindVersionStringInConfigure(VersionDir & "configure.in", "SWITCH_VERSION_REVISION")
If Right(tmpFolder, 1) <> "\" Then tmpFolder = tmpFolder & "\" End If 'Set version to the one reported by configure.in
If Not FSO.FileExists(tmpFolder & "fs_svnversion.exe") Then if strVerRev <> "" Then
Wget ToolsBase & "fs_svnversion.exe", tmpFolder VERSION = strVerRev
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 End If
Dim sLastFile Dim sLastFile
Const OverwriteIfExist = -1
Const ForReading = 1 Const ForReading = 1
if strVerRev = "" Then 'Try To read revision from git, if it's found, use this instead of strVerRev found above
if FSO.FolderExists(VersionDir & ".svn") Then If FSO.FolderExists(VersionDir & ".git") 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" VersionCmd="git log --format=" & quote & "%%h %%ci" & quote & " -1 HEAD"
Set MyFile = FSO.CreateTextFile(tmpFolder & "tmpVersion.Bat", True) Set MyFile = FSO.CreateTextFile(tmpFolder & "tmpVersion.Bat", True)
MyFile.WriteLine("@" & "cd " & quote & VersionDir & quote) MyFile.WriteLine("@" & "cd " & quote & VersionDir & quote)
@ -346,11 +298,6 @@ Sub CreateVersion(tmpFolder, VersionDir, includebase, includedest)
sLastFile.Close sLastFile.Close
VERSION = Replace(VERSION, ":", "-") VERSION = Replace(VERSION, ":", "-")
End If End If
End If
if strVerRev <> "" Then
VERSION = strVerRev
End If
If VERSION = "" Then If VERSION = "" Then
VERSION = "UNKNOWN" VERSION = "UNKNOWN"