API.psm1

function Start-APIServer { 
    Param(
        [Parameter(Mandatory = $true)]
        [Int]$Port
    )

    # Create a global synchronized hashtable that all threads can access to pass data between the main script and API
    $Global:API = [hashtable]::Synchronized(@{ })
    $API.APIVersion = 0.98

    # Setup flags for controlling script execution
    $API.Stop = $false
    $API.Pause = $false
    $API.Port = $Port
    
    # Setup runspace to launch the API webserver in a separate thread
    $newRunspace = [runspacefactory]::CreateRunspace()
    $newRunspace.Open()

    Get-Variable -Scope Global | ForEach-Object { 
        try { $newRunspace.SessionStateProxy.SetVariable($_.Name, $_.Value) }
        catch { }
    }

    $apiserver = [PowerShell]::Create().AddScript(
        { 
            # Set the starting directory
            Set-Location (Split-Path $MyInvocation.MyCommand.Path)
            $BasePath = "$PWD\web"

            # List of possible mime types for files
            $MIMETypes = @{ 
                ".js"   = "application/x-javascript"
                ".html" = "text/html"
                ".htm"  = "text/html"
                ".json" = "application/json"
                ".css"  = "text/css"
                ".txt"  = "text/plain"
                ".ico"  = "image/x-icon"
                ".ps1"  = "text/html" # ps1 files get executed, assume their response is html
            }

            # Setup the listener
            $Server = New-Object System.Net.HttpListener
            # Listening on anything other than localhost requires admin privileges
            $Server.Prefixes.Add("http://localhost:$($API.Port)/")
            $Server.Start()

            While ($Server.IsListening) { 
                $Context = $Server.GetContext()
                $Request = $Context.Request
                $URL = $Request.Url.OriginalString

                # Determine the requested resource and parse query strings
                $Path = $Request.Url.LocalPath

                # Parse any parameters in the URL - $Request.Url.Query looks like "+ ?a=b&c=d&message=Hello%20world"
                $Parameters = @{ }
                $Request.Url.Query -Replace "\?", "" -Split '&' | Foreach-Object { 
                    $key, $value = $_ -Split '='
                    # Decode any url escaped characters in the key and value
                    $key = [URI]::UnescapeDataString($key)
                    $value = [URI]::UnescapeDataString($value)
                    if ($key -and $value) { 
                        $Parameters.$key = $value
                    }
                }

                # Create a new response and the defaults for associated settings
                $Response = $Context.Response
                $ContentType = "application/json"
                $StatusCode = 200
                $Data = ""

                # Set the proper content type, status code and data for each resource
                Switch ($Path) { 
                    "/activeminers" { 
                        $Data = ConvertTo-Json @($API.ActiveMiners | Select-Object)
                        break
                    }
                    "/algorithms" { 
                        $Data = ConvertTo-Json @($API.AllPools.Algorithm | Sort-Object -Unique)
                        Break
                    }
                    "/alldevices" { 
                        $Data = ConvertTo-Json @($API.AllDevices | Select-Object)
                        Break
                    }
                    "/allminers" { 
                        $Data = ConvertTo-Json @($API.AllMiners | Select-Object)
                        Break
                    }
                    "/allpools" { 
                        $Data = ConvertTo-Json @($API.AllPools | Select-Object)
                        Break
                    }
                    "/apiversion" { 
                        $Data = $API.APIVersion | ConvertTo-Json
                        break
                    }
                    "/balances" { 
                        $Data = ConvertTo-Json @($API.Balances | Select-Object)
                        Break
                    }
                    "/balances_jobs" { 
                        $Data = ConvertTo-Json @($API.Balances_Jobs | Select-Object)
                        Break
                    }
                    "/bestminers" { 
                        $Data = ConvertTo-Json @($API.BestMiners | Select-Object)
                        Break
                    }
                    "/bestminers_combo" { 
                        $Data = ConvertTo-Json @($API.BestMiners_Combo | Select-Object)
                        Break
                    }
                    "/bestminers_combo_comparison" { 
                        $Data = ConvertTo-Json @($API.BestMiners_Combo_Comparison | Select-Object)
                        Break
                    }
                    "/bestminers_combos" { 
                        $Data = ConvertTo-Json @($API.BestMiners_Combos | Select-Object)
                        Break
                    }
                    "/bestminers_combos_comparison" { 
                        $Data = ConvertTo-Json @($API.BestMiners_Combos_Comparison | Select-Object)
                        Break
                    }
                    "/bestminers_comparison" { 
                        $Data = ConvertTo-Json @($API.BestMiners_Comparison | Select-Object)
                        Break
                    }
                    "/btcratefirstcurrency" { 
                        $Data = ConvertTo-Json @($API.BTCRateFirstCurrency | Select-Object)
                        Break
                    }
                    "/config" { 
                        $Data = $API.Config | ConvertTo-Json -Depth 10
                        Break
                    }
                    "/currentearning" { 
                        $Data = ConvertTo-Json @($API.CurrentEarning | Select-Object)
                        Break
                    }
                    "/currentprofit" { 
                        $Data = ConvertTo-Json @($API.CurrentProfit | Select-Object)
                        Break
                    }
                    "/debug" { 
                        $Data = $API | ConvertTo-Json -Depth 20
                        Break
                    }
                    "/devices" { 
                        $Data = ConvertTo-Json @($API.Devices | Select-Object)
                        Break
                    }
                    "/exchangerates" { 
                        $Data = ConvertTo-Json @($API.ExchangeRates | Select-Object)
                        Break
                    }
                    "/failedminers" { 
                        $Data = ConvertTo-Json @($API.FailedMiners | Select-Object)
                        Break
                    }
                    "/fastestminers" { 
                        $Data = ConvertTo-Json @($API.FastestMiners | Select-Object)
                        Break
                    }
                    "/filteredminers" { 
                        $Data = ConvertTo-Json @($API.FilteredMiners | Select-Object)
                        Break
                    }
                    "/inactiveminers" { 
                        $Data = ConvertTo-Json @($API.InactiveMiners | Select-Object)
                        Break
                    }
                    "/intervals" { 
                        $Data = ConvertTo-Json @($API.Intervals | Select-Object)
                        Break
                    }
                    "/miners" { 
                        $Data = ConvertTo-Json @($API.Miners | Select-Object)
                        Break
                    }
                    "/minersneedingbenchmark" { 
                        $Data = ConvertTo-Json @($API.MinersNeedingBenchmark | Select-Object)
                        Break
                    }
                    "/miningcost" { 
                        $Data = ConvertTo-Json @($API.MiningCost | Select-Object)
                        Break
                    }
                    "/miningearning" { 
                        $Data = ConvertTo-Json @($API.MiningEarning | Select-Object)
                        Break
                    }
                    "/miningprofit" { 
                        $Data = ConvertTo-Json @($API.MiningProfit | Select-Object)
                        Break
                    }
                    "/newpools" { 
                        $Data = ConvertTo-Json @($API.NewPools | Select-Object)
                        Break
                    }
                    "/newpools_jobs" { 
                        $Data = ConvertTo-Json @($API.NewPools_Jobs | Select-Object)
                        Break
                    }
                    "/pools" { 
                        $Data = ConvertTo-Json @($API.Pools | Select-Object)
                        Break
                    }
                    "/rates" { 
                        $Data = ConvertTo-Json @($API.Rates | Select-Object)
                        Break
                    }
                    "/runningminers" { 
                        $Data = ConvertTo-Json @($API.RunningMiners | Select-Object)
                        Break
                    }
                    "/stats" { 
                        $Data = ConvertTo-Json @($API.Stats | Select-Object)
                        Break
                    }
                    "/stop" { 
                        $API.Stop = $true
                        $Data = "Stopping"
                        break
                    }
                    "/stopapi" { 
                        $Data = "Stopping"
                        $Server.Stop()
                        Break
                    }
                    "/unprofitablealgorithms" { 
                        $Data = $API.UnprofitableAlgorithms | ConvertTo-Json
                        break
                    }
                    "/version" { 
                        $Data = $API.Version | ConvertTo-Json
                        break
                    }
                    "/watchdogtimers" { 
                        $Data = ConvertTo-Json @($API.WatchdogTimers | Select-Object)
                        Break
                    }
                    "/watchdogtimersreset" { 
                        $API.WatchdogTimersReset = $true
                        $API.WatchDogTimers = $null
                        $Data = $API.WatchdogTimersReset | ConvertTo-Json
                        Break
                    }
                    "/functions/stat/get" { 
                        $Data = Get-Stat @Parameters | ConvertTo-Json
                        Break
                    }
                    "/functions/stat/remove" { 
                        $Data = Remove-Stat @Parameters | ConvertTo-Json
                        Break
                    }
                    "/functions/stat/set" { 
                        $Data = Set-Stat @Parameters | ConvertTo-Json
                        Break
                    }
                    default { 
                        # Set index page
                        if ($Path -eq "/") { 
                            $Path = "/index.html"
                        }

                        # Check if there is a file with the requested path
                        $Filename = $BasePath + $Path
                        if (Test-Path $Filename -PathType Leaf -ErrorAction SilentlyContinue) { 
                            # If the file is a powershell script, execute it and return the output. A $Parameters parameter is sent built from the query string
                            # Otherwise, just return the contents of the file
                            $File = Get-ChildItem $Filename

                            if ($File.Extension -eq ".ps1") { 
                                $Data = & $File.FullName -Parameters $Parameters
                            }
                            else { 
                                $Data = Get-Content $Filename -Raw

                                # Process server side includes for html files
                                # Includes are in the traditional '<!-- #include file="/path/filename.html" -->' format used by many web servers
                                if ($File.Extension -eq ".html") { 
                                    $IncludeRegex = [regex]'<!-- *#include *file="(.*)" *-->'
                                    $IncludeRegex.Matches($Data) | Foreach-Object { 
                                        $IncludeFile = $BasePath + '/' + $_.Groups[1].Value
                                        if (Test-Path $IncludeFile -PathType Leaf) { 
                                            $IncludeData = Get-Content $IncludeFile -Raw
                                            $Data = $Data -Replace $_.Value, $IncludeData
                                        }
                                    }
                                }
                            }

                            # Set content type based on file extension
                            if ($MIMETypes.ContainsKey($File.Extension)) { 
                                $ContentType = $MIMETypes[$File.Extension]
                            }
                            else { 
                                # If it's an unrecognized file type, prompt for download
                                $ContentType = "application/octet-stream"
                            }
                        }
                        else { 
                            $StatusCode = 404
                            $ContentType = "text/html"
                            $Data = "URI '$Path' is not a valid resource."
                        }
                    }
                }

                # If $Data is null, the API will just return whatever data was in the previous request.  Instead, show an error
                # This happens if the script just started and hasn't filled all the properties in yet.
                if ($Data -eq $Null) {  
                    $Data = @{  "Error" = "API data not available"  } | ConvertTo-Json
                }

                # Send the response
                $Response.Headers.Add("Content-Type", $ContentType)
                $Response.StatusCode = $StatusCode
                $ResponseBuffer = [System.Text.Encoding]::UTF8.GetBytes($Data)
                $Response.ContentLength64 = $ResponseBuffer.Length
                $Response.OutputStream.Write($ResponseBuffer, 0, $ResponseBuffer.Length)
                $Response.Close()

            }
            # Only gets here if something is wrong and the server couldn't start or stops listening
            $Server.Stop()
            $Server.Close()
        }
    ) #end of $apiserver

    $apiserver.Runspace = $newRunspace
    $API.apihandle = $apiserver.BeginInvoke()
}