gsscoder

// based on: https://gist.github.com/FrankHu-MSFT/b6750185b19fd4ada4ba36b099985813
// can removes \r to fit in a single log line when using ILogger
using System.IO;
using Newtonsoft.Json;

static class JsonUtil
{
    public static string Prettify(string json, bool stripLineFeed = false)
    {
        using var stringReader = new StringReader(json);

gsscoder

using System;
using System.Threading.Tasks;
using Microsoft.AspNetCore.Http;
using Microsoft.AspNetCore.Mvc;
using Microsoft.Azure.WebJobs;
using Microsoft.Azure.WebJobs.Extensions.Http;
using Microsoft.Extensions.Logging;

namespace HealthTest2
{

gsscoder

using System;
using System.Threading;
using System.Threading.Tasks;
using Polly.Contrib.Simmy;
using Polly.Contrib.Simmy.Outcomes;
using Microsoft.Extensions.Diagnostics.HealthChecks;
using CSharpx;

sealed class ChaosHealthCheck : IHealthCheck
{

gsscoder

@echo off
setlocal enabledelayedexpansion

::Batch script to compare a file SHA256 checksum to a given one.
::Usage: checksum [FILE] [VALUE]

set filepath=%1
set checksum=%2
set idx=0

gsscoder

$aiAppId = '00000000-0000-0000-0000-000000000000'
$aiApiKey = 'ehzgdrES4kBJNCuRUzcBfkuka5CGWkAr4hyhJ6y3'

$result = Invoke-RestMethod -Uri "https://api.applicationinsights.io/v1/apps/$aiAppId/query" `
    -Method Post -UseBasicParsing `
    -Headers @{
        'x-api-key' = $aiApiKey
        'content-type' = 'application/json'
     } `
    -Body '{"query": "traces | where timestamp <= ago(1m) | limit 10"}'

gsscoder

// inspired by https://www.youtube.com/watch?v=RWyZkNzvC-c&t=553s
// $ dotnet fsi chaos3.fsx
// latency test
// 0.490776
open System
open System.Threading

let chaosAsync (name:string) (shouldChaosAsync:unit -> Async<bool>) (chaosAsync:unit -> Async<unit>) =
    fun (serviceAsync:unit -> Async<'t>) ->
        async {

gsscoder

// inspired by https://www.youtube.com/watch?v=RWyZkNzvC-c&t=553s
// $ dotnet fsi chaos2.fsx
// latency test
// 0.969491
open System
open System.Threading

let chaos (name:string) (shouldChaos:unit -> bool) (chaos:unit -> unit) =
    fun (service:unit -> 't) ->
        if shouldChaos () then

gsscoder

// inspired by https://www.youtube.com/watch?v=RWyZkNzvC-c&t=553s
// $ dotnet fsi chaos.fsx
// latency test
// 0.919409
open System
open System.Threading

let chaos (name:string) (shouldChaos:unit -> bool) (chaos:unit -> unit) (service:unit -> 't) =
    if shouldChaos () then
        printfn "%s" name

gsscoder

[CmdletBinding()]
param ()

Set-StrictMode -Version Latest

$verbose = if ($PSBoundParameters.ContainsKey('Verbose')) {
    $PSCmdlet.MyInvocation.BoundParameters["Verbose"].IsPresent } else { $false }

"Verbose enabled: $verbose" | Write-Host

gsscoder

$tenantId = 'your_tenant_id'
$clientId = 'your_client_id'
$clientSecret = 'your_client_secret'
$tokenResponse = (Invoke-WebRequest -Uri "https://login.microsoftonline.com/$tenantId/oauth2/token" `
                                    -Method Post -UseBasicParsing `
                                    -Body "grant_type=client_credentials&client_id=$clientId&client_secret=$clientSecret").Content
"$(($tokenResponse | ConvertFrom-Json).access_token)`n" | Write-Host