From c7a9637834a96722be5a524c4c1e8932a45e3461 Mon Sep 17 00:00:00 2001 From: smatz Date: Tue, 3 Jun 2008 18:35:58 +0000 Subject: (svn r13375) -Add: logging of actions that could possibly cause desyncs and crashes to simplify debugging. See readme.txt for details --- projects/determineversion.vbs | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'projects/determineversion.vbs') diff --git a/projects/determineversion.vbs b/projects/determineversion.vbs index 3ac5852f5..fd5a85465 100755 --- a/projects/determineversion.vbs +++ b/projects/determineversion.vbs @@ -14,23 +14,28 @@ Sub FindReplaceInFile(filename, to_find, replacement) file.Close End Sub -Sub UpdateFile(revision, version, cur_date, filename) +Sub UpdateFile(modified, revision, version, cur_date, filename) FSO.CopyFile filename & ".in", filename + FindReplaceInFile filename, "@@MODIFIED@@", modified FindReplaceInFile filename, "@@REVISION@@", revision FindReplaceInFile filename, "@@VERSION@@", version FindReplaceInFile filename, "@@DATE@@", cur_date End Sub Sub UpdateFiles(version) - Dim WshShell, cur_date, revision, oExec + Dim WshShell, cur_date, modified, revision, oExec Set WshShell = CreateObject("WScript.Shell") cur_date = DatePart("D", Date) & "." & DatePart("M", Date) & "." & DatePart("YYYY", Date) revision = 0 + modified = 1 Select Case Mid(version, 1, 1) Case "r" ' svn revision = Mid(version, 2) If InStr(revision, "M") Then revision = Mid(revision, 1, InStr(revision, "M") - 1) + modified = 2 + Else + modified = 0 End If If InStr(revision, "-") Then revision = Mid(revision, 1, InStr(revision, "-") - 1) @@ -49,8 +54,8 @@ Sub UpdateFiles(version) End If End Select - UpdateFile revision, version, cur_date, "../src/rev.cpp" - UpdateFile revision, version, cur_date, "../src/ottdres.rc" + UpdateFile modified, revision, version, cur_date, "../src/rev.cpp" + UpdateFile modified, revision, version, cur_date, "../src/ottdres.rc" End Sub Function ReadRegistryKey(shive, subkey, valuename, architecture) -- cgit v1.2.3-54-g00ecf