From f2dc723da5db03840783b5f00103f2346e64128d Mon Sep 17 00:00:00 2001 From: glx Date: Wed, 12 Sep 2007 22:05:53 +0000 Subject: (svn r11090) -Fix (r11089): incorrect version format and failure with paths containing spaces --- projects/determineversion.vbs | 4 ++-- projects/openttd.vcproj | 4 ++-- projects/openttd.vcproj.in | 4 ++-- projects/openttd_vs80.vcproj | 8 ++++---- projects/openttd_vs80.vcproj.in | 8 ++++---- 5 files changed, 14 insertions(+), 14 deletions(-) diff --git a/projects/determineversion.vbs b/projects/determineversion.vbs index fc1c31405..6d04e49f2 100644 --- a/projects/determineversion.vbs +++ b/projects/determineversion.vbs @@ -40,7 +40,7 @@ Function DetermineSVNVersion() Dim file ' Write some "magic" to a temporary file so we can acquire the svn revision/state Set file = FSO.CreateTextFile("tsvn_tmp", -1, 0) - file.WriteLine "$WCREV$$WCMODS?M:$" + file.WriteLine "r$WCREV$$WCMODS?M:$" file.WriteLine "$WCURL$" file.Close Set oExec = WshShell.Exec(sTortoise & "\bin\SubWCRev.exe ../src tsvn_tmp tsvn_tmp") @@ -85,7 +85,7 @@ Function DetermineSVNVersion() url = line End If If InStr(line, "Last Changed Rev") Then - version = Mid(line, 19) & modified + version = "r" & Mid(line, 19) & modified End If Loop While Not OExec.StdOut.atEndOfStream End If diff --git a/projects/openttd.vcproj b/projects/openttd.vcproj index fae3678b5..6500d1d9f 100644 --- a/projects/openttd.vcproj +++ b/projects/openttd.vcproj @@ -75,7 +75,7 @@ + CommandLine=""$(InputDir)/determineversion.vbs""/> + CommandLine=""$(InputDir)/determineversion.vbs""/> + CommandLine=""$(InputDir)/determineversion.vbs""/> + CommandLine=""$(InputDir)/determineversion.vbs""/>