提交 3651bbab authored 作者: Michael Jerris's avatar Michael Jerris

msvc svnversion fix when svnversion is not available.

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@373 d0543943-73ff-0310-b7d9-9358b9ac24b2
上级 6df21105
...@@ -589,6 +589,7 @@ Sub CreateSwitchVersion() ...@@ -589,6 +589,7 @@ Sub CreateSwitchVersion()
End If End If
VersionCmd="svnversion " & quote & FreeswitchDir & "." & quote & " -n" VersionCmd="svnversion " & quote & FreeswitchDir & "." & quote & " -n"
Set MyFile = fso.CreateTextFile(UtilsDir & "svnversion\tmpVersion.Bat", True) Set MyFile = fso.CreateTextFile(UtilsDir & "svnversion\tmpVersion.Bat", True)
MyFile.WriteLine("@" & "cd " & UtilsDir & "svnversion")
MyFile.WriteLine("@" & VersionCmd) MyFile.WriteLine("@" & VersionCmd)
MyFile.Close MyFile.Close
Set oExec = WshShell.Exec(UtilsDir & "svnversion\tmpVersion.Bat") Set oExec = WshShell.Exec(UtilsDir & "svnversion\tmpVersion.Bat")
......
Markdown 格式
0%
您添加了 0 到此讨论。请谨慎行事。
请先完成此评论的编辑!
注册 或者 后发表评论