View Single Post
  #1  
Old 02-23-2009, 02:17 PM
modernrocketry modernrocketry is online now
Registered User
 
Join Date: 04-06-2006
Posts: 19
Using Subversion log in Continuous Integration Example

I am using the Continuous Integration Example found in VBP 6.1
I am using Subversion version 1.5.5 (r34862)
compiled Dec 23 2008, 12:42:22

When I try to run the log command, I receive the following error:

2/23/2009 3:16:42 PM: Building project step 'Check (Subversion)'...
Error expanding macros or script in property Revision: {<Error in System (VBScript) script code at Line 81, Column 3 (Type mismatch: 'CDate')>

Can someone give me an idea what is happening here?

Step Details:

<step action='Subversion'>
<Host>svnvm1.mycompany.com</Host>
<LocalPath>%WORKING_DIR%\%PROJECT_NAME%</LocalPath>
<Password>asecret</Password>
<Port>1234</Port>
<Protocol>svn</Protocol>
<Recurse type='11'>-1</Recurse>
<Repository>RepPrivate</Repository>
<Revision>{[vbld_FormatDateEx("%LAST_BUILD_TIME%", "yyyy-mm-ddThh:MM:SS")]}:{[vbld_FormatDateEx(Now, "yyyy-mm-ddThh:MM:SS")]}</Revision>
<ShowCmd>%SHOW_CMD%</ShowCmd>
<Subcommand>log</Subcommand>
<Username>thisisme</Username>
<Verbose type='11'>-1</Verbose>
<description>retrieve changes since last build</description>
<indent type='3'>3</indent>
<name>Check (Subversion)</name>
<script><![CDATA[Sub vbld_StepDone()
' parse the output for any changes made, and if found, update the NEED_TO_BUILD temporary
' macro to yes
If Step.BuildStatus = vbldStepStatSucceeded Then
output = Split(Application.Macros(vbldMacroSystem)("LASTSTE P_OUTPUT"), vbCrLf)
For i = 0 To UBound(output)
line = Trim(output(i))
If InStr(line, " | ") Then ' look for change marker line
' check for changes by someone other than the build user
user = Trim(Split(line, "|")(1))
If LCase(user) <> LCase("%BUILD_USER%") Then
' update temp macro and log notification of need to build
Application.Macros(vbldMacroTemporary).Add "NEED_TO_BUILD", "yes"
Builder.LogMessage "Changes found by user " & user & ", initiating build"
Exit For
End If
End If
Next
End If

End Sub]]></script>
</step>
Reply With Quote