Functions/Common.ps1

function Get-LinaHelp() {
    <#
.SYNOPSIS
Opens the HTML help of this module.
.DESCRIPTION
Opens the HTML help file located in the module folder with default browser.
.INPUTS
None
.OUTPUTS
None
.EXAMPLE
Get-LinaHelp
Opens the HTML help file located in the module folder with default browser.
#>

    $current_modulepath = Split-Path $script:MyInvocation.MyCommand.Path
    Start-Process "$current_modulepath\help.html"
}

function Disable-SslVerification {
    if (-not ([System.Management.Automation.PSTypeName]"TrustEverything").Type) {
        Add-Type -TypeDefinition  @"
using System.Net.Security;
using System.Security.Cryptography.X509Certificates;
public static class TrustEverything
{
    private static bool ValidationCallback(object sender, X509Certificate certificate, X509Chain chain,
        SslPolicyErrors sslPolicyErrors) { return true; }
    public static void SetCallback() { System.Net.ServicePointManager.ServerCertificateValidationCallback = ValidationCallback; }
    public static void UnsetCallback() { System.Net.ServicePointManager.ServerCertificateValidationCallback = null; }
}
"@

    }
    [TrustEverything]::SetCallback()
}
function Enable-SslVerification {
    if (([System.Management.Automation.PSTypeName]"TrustEverything").Type) {
        [TrustEverything]::UnsetCallback()
    }
}

function CallAPI() {
    [cmdletbinding()]
    Param(
        [Parameter(Mandatory = $True, Position = 0)]
        [ValidateNotNullOrEmpty()]
        [string]$Path,
        [Parameter(Mandatory = $False, Position = 1)]
        [ValidateNotNullOrEmpty()]
        [string]$ContentType,
        [Parameter(Mandatory = $False, Position = 2)]
        [ValidateNotNullOrEmpty()]
        [string]$Body,                  
        [Parameter()]
        [switch]$FirstConnection,
        [Parameter(Mandatory = $False)]
        [ValidateNotNullOrEmpty()]
        [string]$Method   
    )
    
    if ($Path -like "*.json*") {
        $ContentType = "application/json; charset=utf-8"
    }
    else {
        # most content is XML so this is default
        $ContentType = "application/xml; charset=utf-8"
    }

    if (!$Method) {
        $Method ="POST"
    }

    if ($FirstConnection) {
        if ( $GLOBAL_IGNORE_CERTIFICATES ) {
            # Disable Certificate checking
            if ($PSVersionTable.PSVersion.Major -lt 6) {
                # Pre-PowerShell 6.0
                # Disabled keep-alive (PowerShell for Windows Only) to fix issue : A connection that was expected to be kept alive was closed by the server
                Disable-SslVerification
                $request = Invoke-RestMethod -Uri $GLOBAL_LINA_SERVER$Path -SessionVariable Currentsession -DisableKeepAlive
            }
            else {
                # PowerShell Core (>= 6.0)
                $request = Invoke-RestMethod -Uri $GLOBAL_LINA_SERVER$Path -SessionVariable Currentsession -SkipCertificateCheck
            }
        }
        else {
            # Enable certificate checking
            if ($PSVersionTable.PSVersion.Major -lt 6) {
                # Pre-PowerShell 6.0
                # Disabled keep-alive (PowerShell for Windows Only) to fix issue : A connection that was expected to be kept alive was closed by the server
                $request = Invoke-RestMethod -Uri $GLOBAL_LINA_SERVER$Path -SessionVariable Currentsession -DisableKeepAlive
            }
            else {
                # PowerShell Core (>= 6.0)
                $request = Invoke-RestMethod -Uri $GLOBAL_LINA_SERVER$Path -SessionVariable Currentsession
            }
        }

        Set-Variable -name LoggedSession -Scope global -Value $Currentsession

    }
    else {
        # Next connections reuse the Session Cookie set globally
        if ($PSVersionTable.PSVersion.Major -ge 6 -AND $GLOBAL_IGNORE_CERTIFICATES) {
            <# Disable Certificate checking for WebRequest (PowerShell >= 6.0) #>
            $request = Invoke-RestMethod -Uri $GLOBAL_LINA_SERVER$Path -ContentType $ContentType -Method $Method -Body $Body -WebSession $LoggedSession -SkipCertificateCheck
        }
        else {
            # Same request if enabled or not. Checking is disabled globally on PowerShell < 6.0
            # Disabled keep-alive (PowerShell for Windows Only) to fix issue : A connection that was expected to be kept alive was closed by the server
            $request = Invoke-RestMethod -Uri $GLOBAL_LINA_SERVER$Path -ContentType $ContentType -Method $Method -Body $Body -WebSession $LoggedSession -DisableKeepAlive
        }
    }
    if ($global:LINA_DEBUG_MODE -AND $Path -notlike "*locale/*.js*") { 
        if ($Path -like "*.json*") {
            $req_return = $request | ConvertTo-Json
        }elseif ($Path -like "*login.html*") {
            $req_return=$request
        }else {
            $req_return = ([xml]$request).OuterXml
        }
        Write-Host "Call API $Path : $request $req_return"
        Write-Host "Body : $Body"
    }

    if ($global:LINA_DOC_MODE -AND $Path -notlike "*locale/*.js*") { 
        if ($Path -like "*.json*") {
            $req_return = $request | ConvertTo-Json
        }elseif ($Path -like "*mng_*.html*") {
            $req_return = "[$request]"
        }else {
            $type = $request.GetType().FullName
            if ($type -like "*XmlDocument*") {
                $req_return = ([xml]$request).OuterXml
            }else {
                $req_return = $request
            }
                
        }
        
        if ($Path -match "\?") { 
            $query_vars = $Path.Substring($Path.IndexOf('?')).Split('#')[0] 
            $url_path = $Path.Substring(0,$Path.IndexOf('?'))
        }else {
            $query_vars = ""
            $url_path = $Path
        }
        
        # Get Parent function Name
        $callStack = Get-PSCallStack
        $stackcount= $callStack.Count
        # Stack = 3 means the main function
        #if ($callStack.Count -eq 3 -AND $global:LINA_DOC_URL_DONE -notcontains "$url_path") {
        $ParentFunctionName = $callStack[1].FunctionName -Replace "<Process>",""
        $function_description = (Get-Command $ParentFunctionName | get-Help -full | Select-Object -Property "Synopsis").Synopsis
        # Write-Host2 "WARNING : Call Stack count : $stackcount - Function is $ParentFunctionName"
        # When runned in VS Code , Stack should be 3 / if run directly stack should be 4.
        if ($stackcount -eq 4) {
            
            Write-Host "================================================="
            Write-Host "POWERSHELL FUNCTION : $ParentFunctionName"
            Write-Host "STACK # : $stackcount"
            Write-Host "DESCRIPTION : $function_description"
            Write-Host "REST REQUEST : $Method $Path"
            Write-Host "HEADERS : Content-Type: $ContentType"
            Write-Host "PATH : $url_path"
            Write-Host "QUERY : $query_vars"
            Write-Host "RESPONSE : $req_return"
            CreateHTMLDocForFunction "$function_description" "POST" "$url_path" "$ContentType" "$query_vars" "$Body" "$req_return"
        }
    }  
    Return $request
}

function InitializeHTMLDoc() {
    $Global:doc_function_id = 0
    $version = [version]$global:LINA_VERSION
    $short_version = [string]$version.Major+"."+[string]$version.Minor+"."+[string]$version.Build
    $html = @"
    <!doctype html>
    <html lang='en'>
    <head>
        <!-- Required meta tags -->
        <meta charset='utf-8'>
        <meta name='viewport' content='width=device-width, initial-scale=1, shrink-to-fit=no'><!-- Bootstrap CSS -->
        <link rel='stylesheet' href='css/bootstrap.min.css'>
        <title>Lina REST API</title>
        <script src='js/jquery-3.4.1.min.js'></script>
        <script src='js/popper.min.js'></script>
        <script src='js/bootstrap.min.js'></script>
    </head>
    <body>
        <center>
            <h1 class='display-4'>Lina Rest API v$short_version</h1>
        </center>
        <center>
        <h3>Requests</h3>
        </center>
        <div class="list-group container">
"@


        Remove-item ".\index.html" -ErrorAction SilentlyContinue
        Add-Content -Path ".\index.html" -Encoding "UTF8" -Value $html
        #New-Item -Path . -Name "index.html" -ItemType "file" -Value $html
}

function CreateHTMLDocForErrors() {
    $html = "</div><br/><center><h3>Description Of Usual Server Status Responses:</h3></center>
    <div class='list-group container'>"


    foreach ($error_code in $global:INT_API_ERRORCODES) {
        $html+=" <div class='list-group-item list-group-item-action'>
        <div class='row'>
            <div class='col-sm-1'><span class='badge badge-info'>$($error_code[0])</span></div>
            <div class='col-sm-6'><b>$($error_code[1])</b></div>
            <div class='col-sm-5'>$($error_code[2])</div>
        </div>
    </div>"

    }
    $html += "</div>"
    Add-Content -Path ".\index.html" -Encoding "UTF8" -Value $html
}

function CloseHTMLDoc() {
$html = @"
    <script>
        function myFunction(url) { if (document.getElementById(url)) { etat = document.getElementById(url).style.display; if (etat == 'none') { document.getElementById(url).style.display = 'inline'; } else { document.getElementById(url).style.display = 'none'; } } if (document.getElementById(url + '.result')) { result = document.getElementById(url + '.result').style.display; if (result == 'none') { document.getElementById(url + '.result').style.display = 'inline'; } else { document.getElementById(url + '.result').style.display = 'none'; } } if (document.getElementById(url + '.sample')) { result = document.getElementById(url + '.sample').style.display; if (result == 'none') { document.getElementById(url + '.sample').style.display = 'inline'; } else { document.getElementById(url + '.sample').style.display = 'none'; } } }
    </script>
    </body>
    </html>
"@

Add-Content -Path ".\index.html" -Encoding "UTF8" -Value $html
}

function CreateHTMLDocForFunction($description, $verb, $url, $contenttype, $query, $body, $response) {
    Write-Host2 "WARNING : Documenting URL $url"
    
    if ($body -eq "") { $verb = "GET" }
    $response= [System.Web.HttpUtility]::HtmlEncode($response)
    $body= [System.Web.HttpUtility]::HtmlEncode($body)
    
    
    if ($query -like "?user=superadmin&password=*") {
        $query="?user=superadmin&password=YourPassword"
    }
    
    
    if ($verb -eq "POST") {
        $style1="badge-danger"
    }else {
        $style1="badge-primary"
    }

    $Contenttype="ContentType: $Contenttype"

    # For those without dedicated commandlet
    $description = switch -wildcard ($url) {
        "*check_session.xml" {"Get current session details (current view / language) "; break}
        "*lst_globals.xml" {"Get tenant global configuration"; break}
        "*attach_prof_to_ug.json" {"Attach a User Profile to a User Group."; break}
        "*list_prof_ug_relation.json" {"Retrieves the relations between User Profiles and User Groups."; break}
        "*list_user_ug_relation.json" {"Retrieves the relations between Users and User Groups."; break}
         default{$description; break}
    }

    if ($global:LINA_DOC_URL_DONE -notcontains "$description") {
        # Not documented yet
        $global:LINA_DOC_URL_DONE += "$description"

    $Global:doc_function_id +=1
    $html = @"
<div class='list-group-item list-group-item-action'>
    <div class='row'>
        <div class='col-sm-1'><span class='badge $($style1)'>$($verb)</span></div>
        <div class='col-sm'>
            <h5><b>$($url)</b></h5>
        </div>
        <div class='col-sm-5'>$($description)</div>
        <div class='col-sm-1'>
            <button class='btn btn-link dropdown-toggle' type='button' id='dropdownMenuButton'
                data-toggle='dropdown' aria-haspopup='true' aria-expanded='false'
                onclick='myFunction("function_id_$($Global:doc_function_id)")'></button>
        </div>
    </div>
    <div id='function_id_$($Global:doc_function_id)' class='row' style='display: none;'>
        <div class='col-sm'>
            <h5><b>Example:</b></h5>
            <span class='badge $($style1)'>$($verb)</span> https://hostname:8181$($url)
        </div>
        <div class='col-sm'>
            <br><br><b>Headers</b>
            <div class='row'>
                <div class='col-sm'><pre><code>
$($contenttype)</code>
                </pre><br></div>
            </div>
        </div>
        <div class='col-sm'>
            <br><br><b>Query String</b>
            <div class='row'>
                <div class='col-sm'><pre><code>
$($query)</code>
                </pre><br></div>
            </div>
        </div>
        <div class='col-sm'>
            <br><br><b>Body</b>
            <div class='row'>
                <div class='col-sm'><pre><code>
$($body)</code>
                </pre><br></div>
            </div>
        </div>
        <div class='col-sm'>
            <br><br><b>Response</b>
            <div class='row'>
                <div class='col-sm'><pre><code>
$($response)</code>
                </pre><br></div>
            </div>
        </div>
    </div>
</div>
"@


Add-Content -Path ".\index.html" -Encoding "UTF8" -Value $html

}
}

function LinaToLocalTime ($lina_time = 0) {
    <# Lina Times are UTC based ? Not GMT ?#>
    if (!$lina_time -OR $lina_time -eq 0 ) {
        Return $null
    }

    $date = (Get-Date 01.01.1970) + ([System.TimeSpan]::fromseconds($lina_time / 1000))
    $oFromTimeZone = [System.TimeZoneInfo]::FindSystemTimeZoneById("UTC")
    $oToTimeZone = [System.TimeZoneInfo]::FindSystemTimeZoneById([System.TimeZoneInfo]::Local.Id)
    $utc = [System.TimeZoneInfo]::ConvertTimeToUtc($date, $oFromTimeZone)
    $newTime = [System.TimeZoneInfo]::ConvertTime($utc, $oToTimeZone)
    return $newTime
}

function HumanFriendlyTimespan ($last_backup_time = 0) { 
    if (!$last_backup_time -OR $last_backup_time -eq 0 ) {
        Return $null
    }

    if ((Get-Date $last_backup_time -format "yyyy") -eq 1970) {
        return "Never"
    }

    $since = New-TimeSpan -Start $last_backup_time
    $since_d = [math]::Round($since.TotalDays)
    $since_h = [math]::Round($since.TotalHours)
    $since_m = [math]::Round($since.TotalMinutes)
    $since_s = [math]::Round($since.TotalSeconds)
    
    if ($since_d -ge 1) {
        if ($since_d -gt 1) { $plural = "s" }
        return "$since_d day$plural ago"
    }
    elseif ($since_h -ge 1) {
        if ($since_h -gt 1) { $plural = "s" }
        return "$since_h hour$plural ago"
    }
    elseif ($since_m -ge 1) {
        if ($since_m -gt 1) { $plural = "s" }
        return "$since_m minute$plural ago"
    }
    else {
        if ($since_s -gt 1) { $plural = "s" }
        return "$since_s second$plural ago"
    }
}

function TranslateErrorCode() {
    Param(
        [Parameter(Mandatory = $True, Position = 0)]
        [string]$LinaError,
        [Parameter(Mandatory = $True, Position = 1)]
        [ValidateNotNullOrEmpty()]
        [string]$FailedAction
    )

    $ERROR_CODES = @{"0" = "OK"; "1" = "Undefined ID"; "2" = "Bad syntax (XML)"; "3" = "Cannot delete referenced object"; "4" = "Name already exists"; "5" = "Undefined referenced ID"; "6" = "Bad parameter"; "7" = "Cannot modify immutable object"; "8" = "Bad path syntax / path too long"; "9" = "Bad extension syntax / extension too long"; "10" = "Bad Name syntax / name too long"; "11" = "Buffer too short (internal)"; "12" = "Unexpected XML tag"; "13" = "Permission error, no admin session found"; "101" = "Conversion error (internal)"; "102" = "Duplicate ID (internal)"; "103" = "XML error (internal)"; "104" = "XML data error (internal)"; "105" = "Memory allocation error (internal)"; "107" = "Bad data header (internal)"; "108" = "Bad command (internal)"; "199" = "Generic internal"; "999" = "Unidentified error" }
    $error_clean = $LinaError.Replace("[", "").Replace("]", "").Trim()
    $translated_error = $ERROR_CODES[$error_clean]

    if ($translated_error) {
        $found_error = $translated_error
    }
    else {
        $found_error = "Unknown Error # $translated_error"
    }
    Write-Host2 "ERROR : an error occurred trying to $FailedAction : $found_error / Error $LinaError"
}

function InitTranslations() {
    Param(
        [Parameter(Mandatory = $True, Position = 0)]
        [ValidateNotNullOrEmpty()]
        [string]$Lang
    )   
    
    # Do not use CallApi to avoid issues with POST method not authorized
    $Path = "/Admin/locale/$lang.js"

    if ($PSVersionTable.PSVersion.Major -lt 6) {
        # Pre-PowerShell 6.0
        # Disabled keep-alive (PowerShell for Windows Only) to fix issue : A connection that was expected to be kept alive was closed by the server
        $request = Invoke-RestMethod -Uri $GLOBAL_LINA_SERVER$Path -Method "GET" -DisableKeepAlive
    }
    else {
        # PowerShell Core (>= 6.0)
        $request = Invoke-RestMethod -Uri $GLOBAL_LINA_SERVER$Path -Method "GET" -DisableKeepAlive -SkipCertificateCheck
    }
    $temp_utf = FixEncoding($request.ToString())
    <#
    if ($PSVersionTable.PSVersion.Major -ge 6) {
        $temp_utf = $request.ToString()
    }else {
        $temp_utf = [System.Text.Encoding]::UTF8.GetString([System.Text.Encoding]::GetEncoding(28591).GetBytes($request.ToString()))
    }
    #>


    $temp_split = $temp_utf -split '\n'
    $lines = ($temp_split | Select-String -Pattern "SERVER_NAME_", "UNCAT_AGENTS_LABEL", "USER_PROFILE_NAME_","USER_GROUP_NAME_","AGENT_VIEW_BY_AGENT_GROUP_LABEL" ).line

    $translations = @{ }
    foreach ($line in $lines) {
        $splitted = $line -split ': "'
        $key = $splitted[0].Trim().Replace('SERVER_NAME_', '').Replace("__", "_")
        $value = $splitted[1].Replace('",', '').Trim()
        $translations.add($key, $value)
    }
    Set-Variable -name LINA_TRANSLATIONS -Scope global -Value $translations
}

function TranslateSystemCategories($ToTranslate = 0) {
    if (!$ToTranslate -OR $ToTranslate -eq 0 ) {
        return $null
    }
    $system_categories = @{"256" = "Windows"; "512" = "Linux"; "768" = "macOS"; "272" = "Windows Server"; "528" = "Linux Server"; "784" = "macOS Server" }
    $translated = $system_categories[$ToTranslate]
    if ($translated) {
        return $translated
    }
    else {
        return $ToTranslate
    }
}
function Translate($ToTranslate = 0, $FixEncoding = 1) {
    # FixEncoding = 0 is used for JSON returns that ara already in UTF-8 and do not need fixing
    if (!$ToTranslate -OR $ToTranslate -eq 0 ) {
        return $null
    }

    # Translating an array of items => returns array of item translated
    if ($ToTranslate.Count -gt 1 ) {
        $words_translated=@()
        foreach ( $word in $ToTranslate ) {
            $words_translated+=(Translate $word $FixEncoding)
        }
        return $words_translated
    }
    
    $ToTranslate = $ToTranslate.TrimStart("_").TrimEnd("_")

    if ($ToTranslate -eq "UNCAT") { $ToTranslate = "UNCAT_AGENTS_LABEL"; }
    $translated = $LINA_TRANSLATIONS[$ToTranslate.Replace("__", "_")]

    if ($translated) {
        return $translated
    }
    else {
        # No translation available. Use original text.
        if ($ToTranslate -AND $FixEncoding -eq 1) {
            return [System.Text.Encoding]::UTF8.GetString([System.Text.Encoding]::GetEncoding(28591).GetBytes($ToTranslate))
            #return FixEncoding($ToTranslate)
        }
        elseif ($ToTranslate -AND $FixEncoding -eq 0) {
            return FixEncoding($ToTranslate)
        }
        else {
            return $null
        }
    }
}

function FixEncoding($text) {
    if ($PSVersionTable.PSVersion.Major -ge 6) {
        Return $text
    }
    else {
        Return [System.Text.Encoding]::UTF8.GetString([System.Text.Encoding]::GetEncoding(28591).GetBytes("$text"))
    }
    
}

function LinaTimestamp {
    return [math]::Round((New-TimeSpan -Start (Get-Date "01/01/1970") -End (Get-Date)).TotalSeconds * 1000)
}
function Connect-LinaServer {
    <#
.SYNOPSIS
Connects to an Atempo Lina server.
.DESCRIPTION
Connects to an Atempo Lina server 5.0+ using superadmin credentials.
Select your locale using the -Locale switch. Locale is used only to display the default elements (strategies, protections etc) with localized names.
Please note : there is no support for multiple connections to different or same server.
By default certificate checking is not enabled. If you want to enable it use $GLOBAL_IGNORE_CERTIFICATES= $False
.INPUTS
None
.OUTPUTS
None
.PARAMETER Server
Specify the URL of the Lina server you want to connect to.
You need to specify the protocol and ports. For example : https://10.0.0.1:8181 or http://10.0.0.1:8181
.PARAMETER Credential
Use PowerShell Secure credentials
.PARAMETER User
Specify the user name you want to use for authenticating with the server. It must be superadmin.
.PARAMETER Password
Specify the password
.PARAMETER Locale
Specify the language that will be used for default elements names.
Optional. Default value is English.
Possible values are : "en","fr","es","de"
.PARAMETER Tenant
Select a specific tenant for actions (listing, creation will be limited to this tenant)
Optional. Default value is -1 (All tenant / Global view)
.EXAMPLE
Connect-LinaServer -Server "https://mylinaserver.domain.com:8181" -User "superadmin" -Password "mypassword"
Connection to mylinaserver.domain.com using default locale and global view (no tenant).
.EXAMPLE
Connect-LinaServer -Server "https://mylinaserver.domain.com:8181" -User "superadmin" -Password "mypassword" -Locale "fr" -Tenant "MyTenant"
Connection to mylinaserver.domain.com using french language and filtered on the tenant MyTenant.
#>

    [cmdletbinding()]
    Param(
        [Parameter(Mandatory = $True, Position = 0)]
        [ValidateNotNullOrEmpty()]
        [string]$Server,
        [Parameter(Mandatory = $True,ParameterSetName = "ByCredential",Position = 1)]
        [ValidateNotNullOrEmpty()]
        [pscredential]$Credential,
        [Parameter(Mandatory = $True,ParameterSetName = "ByUserPassword", Position = 1)]
        [ValidateNotNullOrEmpty()]
        [string]$User,
        [Parameter(Mandatory = $True,ParameterSetName = "ByUserPassword", Position = 2)]
        [ValidateNotNullOrEmpty()]
        [string]$Password,
        [Parameter(Mandatory = $false, Position = 3)]
        [ValidateSet("en", "fr", "es", "de")] 
        [string]$Locale = "en",
        [Parameter(Mandatory = $false, Position = 4)]
        [ValidateNotNullOrEmpty()]
        [string]$Tenant
    )
    if ($global:LINA_DEBUG_MODE -eq $true) { $PSDefaultParameterValues['*:Verbose'] = $true }
    if ($global:LINA_DOC_MODE -eq $true) {  Write-Host2 "WARNING : Documentation mode is enabled" }

    if ($Credential) { 
        $User=$Credential.UserName
        $passenc = prt($Credential.Password)
    }else {
        $passenc = [System.Web.HttpUtility]::UrlEncode($Password)
    }
    Set-Variable -name GLOBAL_LINA_SERVER -Scope global -Value $Server
    $userenc = [System.Web.HttpUtility]::UrlEncode($User)
    
    Write-Host "Connecting to Lina server $GLOBAL_LINA_SERVER : " -NoNewline
    $request = CallAPI -Path "/ADE/login.html?user=$userenc&password=$passenc" -FirstConnection
    Clear-Variable "passenc"

    if ([string]$request -like "*- OK*") {
        
        $global:LINA_VERSION = (Get-LinaGlobalStats).LinaVersion
        if ($LINA_VERSION.Major -eq 5) {
            if ($LINA_VERSION.Minor -ge 0) {
                $global:INT_LINA_API_VERSION = 50+$LINA_VERSION.Minor
            } else {
                $global:INT_LINA_API_VERSION = 50
            }
            InitTranslations($Locale)
            Write-Host2 "Successfully connected (Lina version $LINA_VERSION)"
            Write-Verbose "API version used $INT_LINA_API_VERSION"

            if ($global:LINA_DOC_MODE -eq $true) { InitializeHTMLDoc }
        }
        else {
            Write-Host2 "ERROR : cannot connect to server with Lina version below 5.0"
            Disconnect-LinaServer
        }
       
    }
    else {
        Write-Error "ERROR : an error occurred trying to connect : \"TranslateErrorCode($request)"\"
    }    
}

function Disconnect-LinaServer {
    <#
.SYNOPSIS
Disconnects from an Atempo Lina server.
.DESCRIPTION
Disconnects current session.
.INPUTS
None
.OUTPUTS
None
.EXAMPLE
Disconnect-LinaServer
Disconnects current session.
#>

    Write-Host "Disconnecting from Lina server $GLOBAL_LINA_SERVER : " -NoNewline
    $request = CallAPI -Path "/ADE/logout.json"
    if ([string]$request -like "*- OK*" -OR [string]$request -like "*ASM_OK*") {
        Write-Host2 "Successfully disconnected."
    }
    else {
        TranslateErrorCode -LinaError $request -FailedAction "Disconnecting from server"
    }
    if ($global:LINA_DOC_MODE -eq $true) { 
        CreateHTMLDocForErrors
        CloseHTMLDoc 
    }
}

Function prt($value){
    $unmr = Unmarshal($value)
    return [System.Web.HttpUtility]::UrlEncode($unmr)
}

Function Unmarshal($value)
{
    [System.IntPtr] $bstr = [System.Runtime.InteropServices.Marshal]::SecureStringToBSTR($value);
    try{[System.Runtime.InteropServices.Marshal]::PtrToStringBSTR($bstr);}
    finally{[System.Runtime.InteropServices.Marshal]::FreeBSTR($bstr);}
    
}


# Write to console intelligently with colors
Function Write-Host2 ( $message , $type) {
    Switch -Wildcard ($message) {
        "*SUCCESS*"  { $color = "Green"  }
        "WARNING*"   { $color = "Yellow" }
        "ERROR*"     { $color = "Red"    }
        "INFO*"      { $color = "Blue"    }
        Default      { $color = "White"  }
    }
    # If type is forced , using type
    Switch -Wildcard ($type) {
        "*SUCCES*"  { $color = "Green"  }
        "*WARN*"    { $color = "Yellow" }
        "*ERR*"     { $color = "Red"    }
        "*INFO*"    { $color = "Blue"  }
    }
    Write-Host $message -ForegroundColor $color
}