Send-Roku.ps1
|
function Send-Roku { <# .Synopsis Sends to the Roku .Description Sends REST messages to the Roku External Command Protocol. or Sends a keyboard sequence to a Roku. .Link Get-Roku .Example Send-Roku -IPAddress $myRokuIP -Command query/device-info #> [CmdletBinding(SupportsShouldProcess,ConfirmImpact='Low',DefaultParameterSetName='Command')] [OutputType([xml], [Nullable])] param( # The IP Address of the NanoLeaf. [Parameter(Mandatory,ValueFromPipelineByPropertyName)] [IPAddress] $IPAddress, # The URI fragment to send to the nanoleaf. [Parameter(ValueFromPipelineByPropertyName,ParameterSetName='Command')] [string] $Command, # The HTTP method to send. [Parameter(ValueFromPipelineByPropertyName,ParameterSetName='Command')] [string] $Method = 'GET', # The text to send. Each character will be turned into a literal and sent to the Roku. [Parameter(Mandatory,ValueFromPipelineByPropertyName,ParameterSetName='Text')] [string] $Text, # Will send a single KeyDown message to the Roku, similar to holding a key down. [Parameter(Mandatory,ValueFromPipelineByPropertyName,ParameterSetName='keydown')] [string] $KeyDown, # Will send a single KeyUp message to the Roku, releasing a key that has been held down. [Parameter(Mandatory,ValueFromPipelineByPropertyName,ParameterSetName='keyup')] [string] $KeyUp, # Will send a single keypress to the Roku. [Parameter(Mandatory,ValueFromPipelineByPropertyName,ParameterSetName='keypress')] [string] $KeyPress, # The data to send. This will be converted into JSON if it is not a string. [Parameter(ValueFromPipelineByPropertyName,ParameterSetName='Command')] [PSObject] $Data, # A set of additional properties to add to an object [Parameter(ValueFromPipelineByPropertyName)] [Collections.IDictionary] $Property = @{}, # A list of property names to remove from an object [string[]] $RemoveProperty, # If provided, will expand a given property returned from the REST api. [string] $ExpandProperty, # The typename of the results. [Parameter(ValueFromPipelineByPropertyName)] [string[]] $PSTypeName ) process { #region Broadcast Recursively if no -IPAddress was provided if ($IPAddress -in [IPAddress]::Any,[IPAddress]::Broadcast) { $splat = @{} + $PsBoundParameters $splat.Remove('IPAddress') foreach ($val in $Script:RokuCache.Values) { $splat['IPAddress'] = $val.IPAddress Send-Roku @splat } return } #endregion Broadcast Recursively if no -IPAddress was provided if ($PSCmdlet.ParameterSetName -eq 'Text') { foreach ($char in $text.ToCharArray()) { $u = [Web.HttpUtility]::UrlEncode("$char") Send-Roku -Command "keypress/Lit_$u" -IPAddress $IPAddress -Method POST -Data '' | & { process { if ($WhatIfPreference) {$_ } } } } return } if ($PSCmdlet.ParameterSetName -like 'key*') { $key = $KeyDown, $KeyUp, $KeyPress -ne '' Send-Roku -Command "$($PSCmdlet.ParameterSetName)/$key" -IPAddress $IPAddress -Method POST -Data '' | & { process { if ($WhatIfPreference) {$_ } } } return } $splat = @{ uri = "http://${IPAddress}:8060/$Command" method = $Method } if ($Data) { if ($data -is [string]){ $splat.body = $data } else { $splat.body = ConvertTo-Json -Compress -Depth 10 -InputObject $Data } } if ($WhatIfPreference) { return $splat } if (-not $property) { $property = [Ordered]@{} } $property['IPAddress'] = $IPAddress $psProperties = @( foreach ($propKeyValue in $Property.GetEnumerator()) { if ($propKeyValue.Value -as [ScriptBlock[]]) { [PSScriptProperty]::new.Invoke(@($propKeyValue.Key) + $propKeyValue.Value) } else { [PSNoteProperty]::new($propKeyValue.Key, $propKeyValue.Value) } } ) if (! $PSCmdlet.ShouldProcess("$Method $($splat.Uri)")) { return } Invoke-RestMethod @splat 2>&1 | & { process { $in = $_ if ($in -isnot [xml]) { $inXml = $in -as [xml] if ($inXml) { $in = $inXml } } if (-not $in -or $in -eq 'null') { return } if ($ExpandProperty) { if ($in.$ExpandProperty) { $in.$ExpandProperty } } else { $in # pass it down the pipe. } } } 2>&1 | & { process { # One more step of the pipeline will unroll each of the values. if ($_ -is [string]) { return $_ } if ($null -ne $_.Count -and $_.Count -eq 0) { return } $in = $_ if ($PSTypeName -and # If we have a PSTypeName (to apply formatting) $in -isnot [Management.Automation.ErrorRecord] # and it is not an error (which we do not want to format) ) { $in.PSTypeNames.Clear() # then clear the existing typenames and decorate the object. foreach ($t in $PSTypeName) { $in.PSTypeNames.add($T) } } if ($Property -and $Property.Count) { foreach ($prop in $psProperties) { $in.PSObject.Members.Add($prop, $true) } } if ($RemoveProperty) { foreach ($propToRemove in $RemoveProperty) { $in.PSObject.Properties.Remove($propToRemove) } } if ($DecorateProperty) { foreach ($kv in $DecorateProperty.GetEnumerator()) { if ($in.$($kv.Key)) { foreach ($v in $in.$($kv.Key)) { if ($null -eq $v -or -not $v.pstypenames) { continue } $v.pstypenames.clear() foreach ($tn in $kv.Value) { $v.pstypenames.add($tn) } } } } } return $in # output the object and we're done. } } foreach ($ir in $invokeResult) { $ir.psobject.properties.add($ipNoteProperty) $ir } } } |