equal
deleted
inserted
replaced
38 sTortoise = WshShell.RegRead("HKLM\SOFTWARE\TortoiseSVN\Directory") |
38 sTortoise = WshShell.RegRead("HKLM\SOFTWARE\TortoiseSVN\Directory") |
39 |
39 |
40 Dim file |
40 Dim file |
41 ' Write some "magic" to a temporary file so we can acquire the svn revision/state |
41 ' Write some "magic" to a temporary file so we can acquire the svn revision/state |
42 Set file = FSO.CreateTextFile("tsvn_tmp", -1, 0) |
42 Set file = FSO.CreateTextFile("tsvn_tmp", -1, 0) |
43 file.WriteLine "$WCREV$$WCMODS?M:$" |
43 file.WriteLine "r$WCREV$$WCMODS?M:$" |
44 file.WriteLine "$WCURL$" |
44 file.WriteLine "$WCURL$" |
45 file.Close |
45 file.Close |
46 Set oExec = WshShell.Exec(sTortoise & "\bin\SubWCRev.exe ../src tsvn_tmp tsvn_tmp") |
46 Set oExec = WshShell.Exec(sTortoise & "\bin\SubWCRev.exe ../src tsvn_tmp tsvn_tmp") |
47 ' Wait till the application is finished ... |
47 ' Wait till the application is finished ... |
48 Do |
48 Do |
83 line = OExec.StdOut.ReadLine() |
83 line = OExec.StdOut.ReadLine() |
84 If InStr(line, "URL") Then |
84 If InStr(line, "URL") Then |
85 url = line |
85 url = line |
86 End If |
86 End If |
87 If InStr(line, "Last Changed Rev") Then |
87 If InStr(line, "Last Changed Rev") Then |
88 version = Mid(line, 19) & modified |
88 version = "r" & Mid(line, 19) & modified |
89 End If |
89 End If |
90 Loop While Not OExec.StdOut.atEndOfStream |
90 Loop While Not OExec.StdOut.atEndOfStream |
91 End If |
91 End If |
92 End If |
92 End If |
93 End If |
93 End If |