msvc svnversion fix when svnversion is not available.

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@373 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Michael Jerris 2006-01-13 15:50:00 +00:00
parent 6df21105a0
commit 3651bbab63
1 changed files with 1 additions and 0 deletions

View File

@ -589,6 +589,7 @@ Sub CreateSwitchVersion()
End If
VersionCmd="svnversion " & quote & FreeswitchDir & "." & quote & " -n"
Set MyFile = fso.CreateTextFile(UtilsDir & "svnversion\tmpVersion.Bat", True)
MyFile.WriteLine("@" & "cd " & UtilsDir & "svnversion")
MyFile.WriteLine("@" & VersionCmd)
MyFile.Close
Set oExec = WshShell.Exec(UtilsDir & "svnversion\tmpVersion.Bat")