svn.Include 1 TECH.RegisteredObject svn2Filebridge this comes from TEMP variabele %String svn.CompileList %Boolean 0 svn.SyncStatus array %String array %Boolean %String %String %ListOfDataTypes TECH.CSP.CSPApplicatie 1 %Boolean 1 1 %Boolean %Boolean %Boolean IgnorePattern ; delimeted string 1 Path:%String,WorkSpacePath:%String,IgnorePattern:%String="" InternalName:%String,IgnorePattern:%String 1 %String 1 %String 1 %String 1 %String %String UnitTesten %String IntegratieTesten 1 UitvoerenUnitTesten:%Boolean,WelkeTesten:%String="UnitTesten",ForceVoerUitTesten:%Boolean=0 "_..GeefNamespace()_"]" Do ##class(vhLib.Logger).%New().ErrorMail(Onderwerp,Exception.ToString()) Do SendMiniMailForced^vhLib.Mail(From,MailTo,"Subversion GetLatest() failed on ["_..GeefServerNaam()_" => "_..GeefNamespace()_"]",Exception.ToString(),0) ]]> 1 1 Actie:%String 0 { #dim MailTo As TECH.String = $get($$$SVNGlobal("SourceControl","SVN","MailWhenFailed")) If $$$HasLength(MailTo) { #dim FeedbackStream As %GlobalCharacterStream = ..GeefFailedCharacterStream(Actie) #dim From As %String = $$$SystemMail(..GeefServerNaam()_" - Subversion") Do SendMiniMailForced^vhLib.Mail(From,$ListBuild(MailTo),"Subversion failed on ["_..GeefServerNaam()_" => "_..GeefNamespace()_"]",FeedbackStream,1) } } ]]> iPath:%String %String 1 InternalName:%String rset:%ResultSet 1 %Boolean flagRecompile:%Boolean=0 0) { if flagRecompile { #dim idxSource As %String ="" #dim ListToCompile As %ListOfDataTypes = ##class(TECH.ListUtils).CopyListOfDataTypes(..ToCompile.List) set itListToCompile = ##class(TECH.ListIterator).%New(ListToCompile) while itListToCompile.HasNext() { set SourceCode = itListToCompile.Next() if ##class(TECH.SourceCodeUtils).Exists(SourceCode) { kill mdSources set mdSources(SourceCode)="" do ..CompileList(.mdSources,Flags,.mdErrors) if 'mdErrors do ##class(TECH.ListUtils).RemoveItemFromList(SourceCode,..ToCompile.List) } else { do ##class(TECH.ListUtils).RemoveItemFromList(SourceCode,..ToCompile.List) } } } Else { do ..CompileList(.mdSources,Flags,.mdErrors) if 'mdErrors do ..ToCompile.List.Clear() } do ..ToCompile.%Save() } set ..ExecCompile = 0 ]]> 1 0 1 Path:%String="" %String Actie:%String="" Actie:%String="" %CharacterStream Username:%String="",Password:%String="" 1 1 %Status InternalName:%String InternalName:%String InternalNameFrom:%String,InternalNameTo:%String arrInternalNames:%ArrayOfDataTypes,Package:%String 1 0) If ..IsGetLatestGefaald Do ..MailGefaaldeSvnCommands("Compile") do ..Failed.Clear() } } ]]> 1 1 %Status 1 %Status Message:%String 1 %Boolean 1 %Boolean InternalName:%String svn.Repository RepoID:%String svn.Repository InternalName:%String %Boolean Path:TECH.String