Application Insights & Raygun deplotments

ApplicationInsightsDeployment.ps1

# Sample usage .\CreateReleaseAnnotation.ps1 -applicationId "<appId>" -apiKey "<apiKey>" -releaseName "<releaseName>" -releaseProperties @{"ReleaseDescription"="Release with annotation";"TriggerBy"="John Doe"} -eventDateTime "2016-07-07T06:23:44"
param(
    [parameter(Mandatory = $true)][string]$applicationId,
    [parameter(Mandatory = $true)][string]$apiKey,
    [parameter(Mandatory = $true)][string]$releaseName,
    [parameter(Mandatory = $false)]$releaseProperties,
    [parameter(Mandatory = $false)][DateTime]$eventDateTime
)

# background info on how fwlink works: After you submit a web request, many sites redirect through a series of intermediate pages before you finally land on the destination page.
# So when calling Invoke-WebRequest, the result it returns comes from the final page in any redirect sequence. Hence, I set MaximumRedirection to 0, as this prevents the call to
# be redirected. By doing this, we get a resposne with status code 302, which indicates that there is a redirection link from the response body. We grab this redirection link and
# construct the url to make a release annotation.
# Here's how this logic is going to works
# 1. Client send http request, such as:  http://go.microsoft.com/fwlink/?LinkId=625115
# 2. FWLink get the request and find out the destination URL for it, such as:  http://www.bing.com
# 3. FWLink generate a new http response with status code “302” and with destination URL “http://www.bing.com”. Send it back to Client.
# 4. Client, such as a powershell script, knows that status code “302” means redirection to new a location, and the target location is “http://www.bing.com”
function GetRequestUrlFromFwLink($fwLink)
{
    $request = Invoke-WebRequest -Uri $fwLink -MaximumRedirection 0 -UseBasicParsing -ErrorAction Ignore
    if ($request.StatusCode -eq "302") {
        return $request.Headers.Location
    }

    return $null
}

function CreateAnnotation($grpEnv)
{
    $retries = 1
    $success = $false
    while (!$success -and $retries -lt 6) {
        $location = "$grpEnv/applications/$applicationId/Annotations?api-version=2015-11"

        Write-Host "Invoke a web request for $location to create a new release annotation. Attempting $retries"
        set-variable -Name createResultStatus -Force -Scope Local -Value $null
        set-variable -Name createResultStatusDescription -Force -Scope Local -Value $null
        set-variable -Name result -Force -Scope Local

        try {
            $result = Invoke-WebRequest -Uri $location -Method Put -Body $bodyJson -Headers $headers -ContentType "application/json; charset=utf-8" -UseBasicParsing
        } catch {
            if ($_.Exception){
                if($_.Exception.Response) {
                    $createResultStatus = $_.Exception.Response.StatusCode.value__
                    $createResultStatusDescription = $_.Exception.Response.StatusDescription
                }
                else {
                    $createResultStatus = "Exception"
                    $createResultStatusDescription = $_.Exception.Message
                }
            }
        }

        if ($result -eq $null) {
            if ($createResultStatus -eq $null) {
                $createResultStatus = "Unknown"
            }
            if ($createResultStatusDescription -eq $null) {
                $createResultStatusDescription = "Unknown"
            }
        }
        else {
                $success = $true
        }

        if ($createResultStatus -eq 409 -or $createResultStatus -eq 404 -or $createResultStatus -eq 401) # no retry when conflict or unauthorized or not found
        {
            break
        }

        $retries = $retries + 1
        sleep 1
    }

    $createResultStatus
    $createResultStatusDescription
    return
}

# Need powershell version 3 or greater for script to run
$minimumPowershellMajorVersion = 3
if ($PSVersionTable.PSVersion.Major -lt $minimumPowershellMajorVersion) {
   Write-Host "Need powershell version $minimumPowershellMajorVersion or greater to create release annotation"
   return
}

$currentTime = (Get-Date).ToUniversalTime()
$annotationDate = $currentTime.ToString("MMddyyyy_HHmmss")
set-variable -Name requestBody -Force -Scope Script
$requestBody = @{}
$requestBody.Id = [GUID]::NewGuid()
$requestBody.AnnotationName = $releaseName
if ($eventDateTime -eq $null) {
    $requestBody.EventTime = $currentTime.GetDateTimeFormats("s")[0] # GetDateTimeFormats returns an array
} else {
    # input must be between NOW and 90 days back maximum
    $maxDaysBack = $currentTime.AddDays(-90)
    if ($eventDateTime -lt $maxDaysBack -Or $eventDateTime -gt $currentTime) {
        $output = "-eventDateTime value must be between NOW and 90 days back maximum"
        throw $output
    }

    $requestBody.EventTime = $eventDateTime.GetDateTimeFormats("s")[0]
}
$requestBody.Category = "Deployment"

if ($releaseProperties -eq $null) {
    $properties = @{}
} else {
    $properties = $releaseProperties
}
$properties.Add("ReleaseName", $releaseName)

$requestBody.Properties = ConvertTo-Json($properties) -Compress

$bodyJson = [System.Text.Encoding]::UTF8.GetBytes(($requestBody | ConvertTo-Json))
$headers = New-Object "System.Collections.Generic.Dictionary[[String],[String]]"
$headers.Add("X-AIAPIKEY", $apiKey)

set-variable -Name createAnnotationResult1 -Force -Scope Local -Value $null
set-variable -Name createAnnotationResultDescription -Force -Scope Local -Value ""

# get redirect link from fwlink
$requestUrl = GetRequestUrlFromFwLink("http://go.microsoft.com/fwlink/?prd=11901&pver=1.0&sbp=Application%20Insights&plcid=0x409&clcid=0x409&ar=Annotations&sar=Create%20Annotation")
if ($requestUrl -eq $null) {
    $output = "Failed to find the redirect link to create a release annotation"
    throw $output
}

$createAnnotationResult1, $createAnnotationResultDescription = CreateAnnotation($requestUrl)
if ($createAnnotationResult1)
{
     $output = "Failed to create an annotation with Id: {0}. Error {1}, Description: {2}." -f $requestBody.Id, $createAnnotationResult1, $createAnnotationResultDescription
     throw $output
}

$str = "Release annotation created. Id: {0}." -f $requestBody.Id
Write-Host $str

appveyor.yml

environment:
  APPINSIGHTS_APPLICATIONID:
    secure: ...
  APPINSIGHTS_APIKEY:
    secure: ...
  RAYGUN_AUTHTOKEN:
    secure: ...
  RAYGUN_APIKEY:
    secure: ...
  DOTNET_CONFIGURE_AZURE: 1
  DOTNET_SKIP_FIRST_TIME_EXPERIENCE: 1

after_deploy:
  - ps: $buildVersion = ([xml](Get-Content -Path Directory.Build.props)).Project.PropertyGroup.VersionPrefix
  - ps: .\scripts\ApplicationInsightsDeployment.ps1 -applicationId $env:APPINSIGHTS_APPLICATIONID -apiKey $env:APPINSIGHTS_APIKEY -releaseName $buildVersion -releaseProperties @{"ReleaseDescription"="$env:APPVEYOR_REPO_COMMIT_MESSAGE`n$env:APPVEYOR_REPO_COMMIT_MESSAGE_EXTENDED";"TriggerBy"=$env:APPVEYOR_REPO_COMMIT_AUTHOR} -eventDateTime (get-date).ToUniversalTime().ToString("s")
  - ps: .\scripts\RaygunDeployment.ps1 -raygunAuthToken $env:RAYGUN_AUTHTOKEN -raygunApiKey $env:RAYGUN_APIKEY -version $buildVersion -ownerName $env:APPVEYOR_REPO_COMMIT_AUTHOR -scmIdentifier $env:APPVEYOR_REPO_COMMIT -emailAddress $env:APPVEYOR_REPO_COMMIT_AUTHOR_EMAIL -releaseNotes "$env:APPVEYOR_REPO_COMMIT_MESSAGE`n$env:APPVEYOR_REPO_COMMIT_MESSAGE_EXTENDED"

RaygunDeployment.ps1

[CmdletBinding()]
Param(
    [Parameter(Mandatory=$True)]
    [string] $raygunAuthToken,
    [Parameter(Mandatory=$True)]
    [string] $raygunApiKey,
    [Parameter(Mandatory=$True)]
    [string] $version,
    [Parameter(Mandatory=$True)]
    [string] $ownerName,
    [Parameter(Mandatory=$True)]
    [string] $emailAddress,
    [Parameter()]
    [string] $scmIdentifier,
    [Parameter()]
    [string] $releaseNotes
)

Write-Debug "Adding deployment in Raygun"
$url = "https://app.raygun.io/deployments?authToken=" + $raygunAuthToken

$command = ConvertTo-Json @{
    apiKey = $raygunApiKey
    version = $version
    ownerName = $ownerName
    emailAddress = $emailAddress
    comment = $releaseNotes
	scmIdentifier = $scmIdentifier
}

$bytes = [System.Text.Encoding]::ASCII.GetBytes($command)
$web = [System.Net.WebRequest]::Create($url)
$web.Method = "POST"
$web.ContentLength = $bytes.Length
$web.ContentType = "application/json"
$stream = $web.GetRequestStream()
$stream.Write($bytes,0,$bytes.Length)
$stream.close()

$response = [System.Net.HttpWebResponse]$web.GetResponse()
if($response.StatusCode -eq [System.Net.HttpStatusCode]::OK) {
    Write-Debug "Added deployment in Raygun"
} else {
    Write-Host "Error received when adding deployment in Raygun: " $response.StatusCode " - " $response.StatusDescription
}