Changeset - r16616:cd3b5f6a975b
[Not reviewed]
master
0 1 0
rubidium - 14 years ago 2010-11-30 12:02:19
rubidium@openttd.org
(svn r21356) -Fix (r21351): sometimes versions wouldn't be correctly set for Windows builds
1 file changed with 5 insertions and 5 deletions:
0 comments (0 inline, 0 general)
projects/determineversion.vbs
Show inline comments
 
@@ -86,7 +86,7 @@ Function ReadRegistryKey(shive, subkey, 
 
End Function
 

	
 
Function DetermineSVNVersion()
 
	Dim WshShell, version, branch, modified, revision, url, oExec, line, hash
 
	Dim WshShell, version, branch, modified, revision, clean_rev, url, oExec, line, hash
 
	Set WshShell = CreateObject("WScript.Shell")
 
	On Error Resume Next
 

	
 
@@ -261,10 +261,11 @@ Function DetermineSVNVersion()
 
		End If ' version = "norev000"
 
	End If ' version <> "norev000"
 

	
 
	Dim rev_file
 
	Set rev_file = FSO.OpenTextFile("../.ottdrev", 1, True, 0)
 
	If Not rev_file.atEndOfStream Then
 
	If version = "norev000" And FSO.FileExists("../.ottdrev") Then
 
		Dim rev_file
 
		Set rev_file = FSO.OpenTextFile("../.ottdrev", 1, True, 0)
 
		DetermineSVNVersion = rev_file.ReadLine()
 
		rev_file.Close()
 
	Else
 
		If modified = 2 Then
 
			version = version & "M"
 
@@ -281,7 +282,6 @@ Function DetermineSVNVersion()
 
			DetermineSVNVersion = version
 
		End If
 
	End If
 
	rev_file.close
 
End Function
 

	
 
Function IsCachedVersion(ByVal version)
0 comments (0 inline, 0 general)