Private/New-AtwsDefinition.ps1
|
Function New-AtwsDefinition { begin { $entityName = '#EntityName' # Enable modern -Debug behavior if ($PSCmdlet.MyInvocation.BoundParameters['Debug'].IsPresent) { $DebugPreference = 'Continue' } else { # Respect configured preference $DebugPreference = $Script:Atws.Configuration.DebugPref } Write-Debug ('{0}: Begin of function' -F $MyInvocation.MyCommand.Name) if (!($PSCmdlet.MyInvocation.BoundParameters['Verbose'].IsPresent)) { # No local override of central preference. Load central preference $VerbosePreference = $Script:Atws.Configuration.VerbosePref } $processObject = [collections.generic.list[psobject]]::new() $result = [collections.generic.list[psobject]]::new() } process { if ($InputObject) { Write-Verbose -Message ('{0}: Copy Object mode: Setting ID property to zero' -F $MyInvocation.MyCommand.Name) # Copy the input array to the processObject collection if ($InputObject.count -gt 1) { [collections.generic.list[psobject]]$processObject = $InputObject } else { $processObject.add($InputObject[0]) } # If any objects has the ID property set to a value, the sum of all IDs will be larger than zero $sum = ($processObject | Measure-Object -Property Id -Sum).Sum # If $sum has value we must reset object IDs or we will modify existing objects, not create new ones if ($sum -gt 0) { foreach ($object in $processObject) { $object.Id = $null } } } else { Write-Debug -Message ('{0}: Creating empty [Autotask.{1}]' -F $MyInvocation.MyCommand.Name, $entityName) $processObject.add((New-Object -TypeName Autotask.$entityName)) } # Prepare shouldProcess comments $caption = $MyInvocation.MyCommand.Name $verboseDescription = '{0}: About to create {1} {2}(s). This action cannot be undone.' -F $caption, $processObject.Count, $entityName $verboseWarning = '{0}: About to create {1} {2}(s). This action may not be undoable. Do you want to continue?' -F $caption, $processObject.Count, $entityName # Lets don't and say we did! if ($PSCmdlet.ShouldProcess($verboseDescription, $verboseWarning, $caption)) { # Process parameters and update objects with their values $processObject = $processObject | Update-AtwsObjectsWithParameters -BoundParameters $PSBoundParameters -EntityName $EntityName try { # Force list even if result is only 1 object to be compatible with addrange() [collections.generic.list[psobject]]$response = Set-AtwsData -Entity $processObject -Create } catch { # Write a debug message with detailed information to developers $ex = $_.Exception $reason = ("{0}: {1}" -f $_.CategoryInfo.Category, $_.CategoryInfo.Reason) $message = "{2}: {0}`r`n`r`nLine:{1}`r`n`r`nScript stacktrace:`r`n{3}" -f $ex.Message, $_.InvocationInfo.Line, $reason, $_.ScriptStackTrace while ($ex.InnerException) { $ex = $ex.InnerException $message = "InnerException: {0}`n{1}" -F $ex.Message, $message } Write-Debug $message # Pass on the error $PSCmdlet.ThrowTerminatingError($_) return } # If using pipeline this block (process) will run once pr item in the pipeline. make sure to return them all if ($response.Count -gt 0) { $result.AddRange($response) } } } end { Write-Debug -Message ('{0}: End of function, returning {1} {2}(s)' -F $MyInvocation.MyCommand.Name, $result.count, $entityName) Return [array]$result } } |