PwSh.Fw.Web.psm1

<#
#>



<#
.SYNOPSIS
Download a file from the Internet.
 
.Description
Download a file using System.Net.WebClient class.
This function will not test of the web resource exist.
 
.PARAMETER Url
URL from where to fetch file
 
.PARAMETER To
Destination folder to write file
 
.PARAMETER Filename
Optional filename to rename downloaded file on-the-fly.
 
.PARAMETER UseWebClient
Instruct Download-File to use the .Net webclient object
 
.PARAMETER UseInvokeWebRequest
Instruct Download-File to use the slower but safer Invoke-WebRequest method
 
#>

function Download-File {
    [CmdletBinding()][OutputType([Boolean])]Param(
        [Parameter(Mandatory = $true, ValueFromPipeLine = $true)][System.Uri]$Url,
        [string]$To = (Get-Location).providerpath,
        [string]$Filename = $URL.Segments[-1],
        [switch]$UseWebClient,
        [switch]$UseInvokeWebRequest,
        [string]$Headers
    )
    Begin {
        # eenter($MyInvocation.MyCommand)
        # if (!$Filename) { $FileName = $URL.Segments[-1] }
        # if ([string]::IsNullOrEmpty($To)) { $To = Get-Location }
        # edevel("Url = $Url")
        # edevel("To = $To")
        # edevel("Filename = $Filename")
        # edevel("UseWebClient = $UseWebClient")
        # edevel("UseInvokeWebRequest = $UseInvokeWebRequest")
        if (-not (dirExist $To)) {
            eerror("Folder '" + $To + "' does not exist.")
            return $false
        }
        # compute default download method
        if ($UseWebClient -eq $UseInvokeWebRequest) {
            $UseWebClient = $false
            $UseInvokeWebRequest = $true
        }

    }

    Process {
        $webrc = Get-UriWebRc -Url $Url.AbsoluteUri -AsInt
        if ($webrc -eq 200) {
            # edebug "Downloading $Url to $To/$Filename"
            if ($UseWebClient) {
                # edevel "Download using WebClient .Net object."
                if (Test-IsUNCPath -Path $To) {
                    ewarn "$To is a UNC Path. WebClient does not support UNC Path. Falling back to InvokeWebRequest method."
                    $UseInvokeWebRequest = $true
                }
                $webClient = New-Object System.Net.WebClient
                if ($Headers) { $webClient.Headers = $Headers }
                $webClient.DownloadFile($Url, $($To + "/" + $Filename))
                $rc = $?
            }
            if ($UseInvokeWebRequest) {
                # edevel "Download using Invoke-WebRequest method."
                $webRequest = Invoke-WebRequest -Uri $Url.AbsoluteUri -OutFile $($To + "/" + $Filename) -PassThru -UseBasicParsing -Headers $Headers
                $rc = $?
            }
        } else {
            $rc = $false
        }
        return $rc
    }

    End {
        # eleave($MyInvocation.MyCommand)
    }
}

<#
.SYNOPSIS
Download a file from the Internet.
 
.Description
Download a file using Invoke-WebRequest method
 
.PARAMETER Url
URL from where to fetch file
 
.PARAMETER To
Destination folder to write file
 
.PARAMETER Filename
Optional filename to rename downloaded file on-the-fly.
 
#>

function Download-FileWithRC {
    [CmdletBinding()][OutputType([Int])]Param (
        [System.Uri]$Url,
        [string]$To,
        [string]$Filename
    )
    Begin {
        # eenter($MyInvocation.MyCommand)

        if (!$Filename) { $FileName = $URL.Segments[-1] }
    }

    Process {
        $outFile = $To + "/" + $Filename
        $webrc = Get-UriWebRc -Url $Url.AbsoluteUri -AsInt
        if ($webrc -eq 200) {
            $webRequest = Invoke-WebRequest -Uri $Url.AbsoluteUri -OutFile $outFile -PassThru
            return $webRequest.StatusCode
        } else {
            return $webrc
        }
    }

    End {
        # eleave($MyInvocation.MyCommand)
    }
}

<#
.SYNOPSIS
Get the HTTP response (or status) code from a web URI
 
.DESCRIPTION
Only get the HTTP response code, do not download any content
 
.PARAMETER Url
Full URL to test
 
.PARAMETER AsText
If true, output the status message text (e.g. OK)
 
.PARAMETER AsInt
If true, output the status message code (e.g. 200)
 
.OUTPUTS
Valid HTTP status code or status message.
If hostname cannot be resolved, then an error message is returned accordingly (-AsText) or -1 (-AsInt)
 
.EXAMPLE
$httpCode = Get-UriWebRc -Url "https://www.google.com" -AsText
Will output 'OK' (I hope so !)
 
.EXAMPLE
$httpCode = Get-UriWebRc -Url "http://www.google.com/nonexistentfile" -AsInt
Will output 404
 
.NOTES
General notes
 
.LINK
https://stackoverflow.com/questions/795751/can-i-get-detailed-exception-stacktrace-in-powershell
https://www.reddit.com/r/PowerShell/comments/30r1e9/any_way_to_get_just_the_response_code_using/
#>

function Get-UriWebRc {
    [CmdletBinding()]Param (
        [System.Uri]$Url,
        [switch]$AsText,
        [switch]$AsInt
    )
    Begin {
        # eenter($MyInvocation.MyCommand)

        if ($AsText -eq $false -and $AsInt -eq $false) { $AsInt = $true }
    }

    Process {
        # $request = [System.Net.WebRequest]::Create($Url.AbsoluteUri)
        $response = @{}
        $response.StatusCode = -1
        $response.StatusMsg = $null
        try {
            # $request = invoke-webrequest -method head -uri $Url.AbsoluteUri -UseBasicParsing
            $request = invoke-webrequest -uri $Url.AbsoluteUri -UseBasicParsing
            # $response = $request.GetResponse()
            $response.StatusCode = $request.StatusCode
            $response.StatusMsg = $request.StatusDescription
        } catch {
            $response.StatusCode = $_.Exception.Response.StatusCode.value__
            $response.StatusMsg = $_.Exception.Response.StatusCode
        }
        if ($null -eq $response) {
            if ($AsText) { $Global:Error[0].ToString() }
            if ($AsInt)  { -1 }
        }
        if ($AsText) { $response.StatusMsg } # This is a System.Net.HttpStatusCode enum value (@see https://msdn.microsoft.com/fr-fr/library/system.net.httpstatuscode(v=vs.110).aspx )
        if ($AsInt) { $response.StatusCode } # This is the numeric version.
    }

    End {
        # eleave($MyInvocation.MyCommand)
    }
}

<#
.SYNOPSIS
Convert an object to a query string.
 
.DESCRIPTION
Convert an object to a single string to be used with HTTP GET method.
 
.PARAMETER InputObject
Object to convert
 
.PARAMETER variableName
Main variable name to use
 
.PARAMETER CurrentDepth
Current depth into InputObject. This parameter is used internally for recursivity. Do not assign.
 
.PARAMETER MaxDepth
Maximum depth of object to convert into a string
 
.PARAMETER CurrentPath
Parameter used internally for recursivity. Do not assign.
 
.EXAMPLE
$q = ConvertTo-QueryString -InputObject @{"one" = 1, "two" = 2} -variableName "query"
Invoke-RestMethod -Method Get -ContentType "application/json" -Uri $("https://www.example.com/search?" + $q)
The example above will convert the hashtable into the query string : "query[one]=1&query[two]=2" and then invoke a REST method
using this query.
 
.NOTES
General notes
#>


function ConvertTo-QueryString {
    [CmdletBinding(
        DefaultParameterSetName="OBJECT"
    )][OutputType([String])]Param (
        [AllowNull()]
        [Parameter(ParameterSetName = 'OBJECT', Mandatory = $true, ValueFromPipeLine = $true)]$InputObject,
        [Parameter()][string]$variableName,
        [int16]$CurrentDepth = -1,
        [uint16]$MaxDepth = 16,
        [string]$CurrentPath
    )
    Begin {
        # eenter($MyInvocation.MyCommand)
        $queryString = ""
    }

    Process {
        switch ($PSCmdlet.ParameterSetName) {
            'OBJECT' {
                $object = $InputObject | ConvertTo-Json | ConvertFrom-Json
                break
            }
            default {
                $object = Get-Variable -Name $variableName -ValueOnly | ConvertTo-Json | ConvertFrom-Json
                break
            }
        }

        if ($null -eq $object) { return }
        if ($CurrentDepth -gt $MaxDepth) { return $queryString += $("&" + $CurrentPath + "=" + $object) }

        $CurrentDepth++
        if ($CurrentDepth -eq 0) {
            $CurrentPath = $variableName
        }

        # edevel("CurrentDepth = " + $CurrentDepth + " / " + $MaxDepth)
        # edevel("CurrentPath = " + $CurrentPath)

        if ($object -is [array]) {
            # edevel("array / " + $object.GetType())

            for ($index = 0; $index -lt $object.count; $index++) {
                $queryString += ConvertTo-QueryString -CurrentDepth $CurrentDepth -InputObject $object[$index] -CurrentPath $($CurrentPath + "[$index]")
            }
        } elseif ($object -is [hashtable]) {
            # edevel("object / " + $object.GetType())
            # list properties of class System.Object
            $ObjectClassProperties = @( Get-ObjectProperties -obj $object )
            # extract custom properties of $object, without properties of class of object
            $properties = $object.PsObject.Properties | Where-Object { $ObjectClassProperties -notcontains $_.Name }
            foreach($obj in $properties) {
                $queryString += ConvertTo-QueryString -CurrentDepth $CurrentDepth -InputObject $obj.Value -CurrentPath $($CurrentPath + "[" + $obj.Name + "]")
            }
        } else {
            # edevel("fallback / " + $object.GetType())
            switch ($object.GetType()) {
                'bool' {
                    $queryString += $("&" + $CurrentPath + "=" + $object)
                    break
                }
                'int' {
                    $queryString += $("&" + $CurrentPath + "=" + $object)
                    break
                }
                'long' {
                    $queryString += $("&" + $CurrentPath + "=" + $object)
                    break
                }
                'String' {
                    $queryString += $("&" + $CurrentPath + "=" + $object)
                    break
                }
                'PSCustomObject' {
                    # edevel("PSCustomObject / " + $object.GetType())
                    $ObjectClassProperties = @( Get-ObjectProperties -obj $object )
                    $properties = $object.PsObject.Properties | Where-Object { $ObjectClassProperties -notcontains $_.Name }
                    foreach($obj in $properties) {
                            $queryString += ConvertTo-QueryString -CurrentDepth $CurrentDepth -InputObject $obj.Value -CurrentPath $($CurrentPath + "[" + $obj.Name + "]")
                    }
                }
                default {
                    break
                }
            }
        }

        # edevel("queryString = " + $queryString)
        $CurrentDepth--
        if ($CurrentDepth -eq -1) {
            return $queryString.Trim("&")
        } else {
            return $queryString
        }
    }

    End {
        # eleave($MyInvocation.MyCommand)
    }
}