# Installiert abdulive auf dem Stream-PC.
#
# Der uebliche Weg, ein Befehl:
#   irm https://git.zeasy.dev/ZeasyAlex/abdulive/raw/branch/main/scripts/install.ps1 | iex
#
# Oder aus einem entpackten Paket heraus, wenn das Netz nicht mitspielt:
#   .\install.ps1
#
# Der Einzeiler funktioniert nur, weil das Repo oeffentlich ist. Solange es
# privat war, antwortete git.zeasy.dev auf jede Adresse mit einer Umleitung
# auf /user/login - `iex` fuehrte dann die Anmeldeseite als PowerShell aus.
# Deshalb prueft das Skript unten, ob wirklich JSON zurueckkommt.
#
# Ohne Administratorrechte, mit Absicht: Programm und Daten liegen im Profil
# des Benutzers, damit auch Updates ohne Rueckfrage durchlaufen. Siehe
# ADR-0007.

[CmdletBinding()]
param(
    # Wird nur gebraucht, wenn nicht aus einem entpackten Paket heraus
    # installiert wird. Dort liegen abdulive.json und die ZIP-Datei.
    [string]$Quelle = 'https://git.zeasy.dev/ZeasyAlex/abdulive/releases/download/latest',
    [string]$Ziel = (Join-Path $env:LOCALAPPDATA 'Programs\abdulive'),
    [switch]$KeinAutostart,
    # Das Sprachmodell ist 465 MB. Ohne es entstehen Clips ohne Untertitel.
    [switch]$OhneModell,
    [switch]$KeinBrowser
)

$ErrorActionPreference = 'Stop'
$daten = Join-Path $env:LOCALAPPDATA 'abdulive'

# Experimentelle Warnungen abschalten - node:sqlite meldet sich sonst bei
# jedem Aufruf auf stderr.
$env:NODE_OPTIONS = '--disable-warning=ExperimentalWarning'

function Ruf {
    <#
      Ein natives Programm aufrufen, ohne dass seine stderr-Ausgabe das
      Skript beendet. Windows PowerShell 5.1 verpackt jede stderr-Zeile in
      einen ErrorRecord; zusammen mit ErrorActionPreference = 'Stop' bricht
      dann alles ab, sobald das Programm auch nur eine Warnung schreibt.
    #>
    param([string]$Datei, [string[]]$Argumente)
    $alt = $ErrorActionPreference
    $ErrorActionPreference = 'Continue'
    try {
        # Out-Host, damit die Ausgabe sichtbar bleibt, aber nicht zum
        # Rueckgabewert wird. Ohne das kommt statt des Exit-Codes ein Array
        # aus allen Ausgabezeilen zurueck - und jeder Vergleich damit ist
        # falsch, ohne dass es auffaellt.
        & $Datei @Argumente | Out-Host
        return $LASTEXITCODE
    }
    finally { $ErrorActionPreference = $alt }
}

function Schritt($text) { Write-Host "==> $text" -ForegroundColor Cyan }
function Hinweis($text) { Write-Host "    $text" -ForegroundColor DarkGray }

# ---------------------------------------------------------------- Pruefen

Schritt 'Umgebung pruefen'
if ([Environment]::Is64BitOperatingSystem -ne $true) {
    throw 'Das Paket gibt es nur fuer 64-Bit-Windows.'
}
$obs = Get-Process obs64, obs -ErrorAction SilentlyContinue
Hinweis ("OBS laeuft: " + $(if ($obs) { 'ja' } else { 'nein - macht nichts, wird spaeter gebraucht' }))

# ---------------------------------------------------------------- Quelle

$hier = if ($PSScriptRoot) { $PSScriptRoot } else { $null }
$ausPaket = $hier -and (Test-Path (Join-Path $hier 'node.exe'))

if ($ausPaket) {
    Schritt "Installiere aus dem entpackten Paket ($hier)"
    $quellordner = $hier
} else {
    Schritt 'Lade das aktuelle Paket'
    $tmp = Join-Path $env:TEMP ("abdulive-" + [guid]::NewGuid().ToString('N').Substring(0, 8))
    New-Item -ItemType Directory -Force -Path $tmp | Out-Null

    # Nicht auf die Form der Ausnahme verlassen: `-MaximumRedirection 0` wirft
    # in Windows PowerShell 5.1 eine WebException ganz ohne `Response`, und ein
    # Zugriff auf .Response.StatusCode laeuft dann selbst auf die Nase.
    # Stattdessen holen, was kommt, und den Inhalt ansehen.
    try {
        $antwort = Invoke-WebRequest "$Quelle/abdulive.json" -UseBasicParsing -ErrorAction Stop
    } catch {
        Write-Host ''
        Write-Host "$Quelle/abdulive.json ist nicht erreichbar." -ForegroundColor Red
        Write-Host "  $($_.Exception.Message)"
        Write-Host ''
        exit 1
    }

    # Eine Anmeldeseite ist HTML und kommt mit Status 200 an, wenn der Umleitung
    # gefolgt wurde. Genau das ist bei git.zeasy.dev passiert.
    $typ = [string]$antwort.Headers['Content-Type']
    $anfang = [string]$antwort.Content
    if ($typ -like 'text/html*' -or $anfang -match '(?i)^\s*(<!doctype|<html|<a href="/user/login)') {
        Write-Host ''
        Write-Host "$Quelle/abdulive.json liefert HTML statt JSON." -ForegroundColor Red
        Write-Host '  Vermutlich eine Anmeldeseite - die Ablage ist nicht oeffentlich.'
        Write-Host '  Die Adresse einmal im Browser aufrufen zeigt, was dort steht.'
        Write-Host ''
        exit 1
    }
    $manifest = $antwort.Content | ConvertFrom-Json
    Hinweis "Version $($manifest.version), $([math]::Round($manifest.groesse / 1MB)) MB"

    $zip = Join-Path $tmp $manifest.datei
    Invoke-WebRequest "$Quelle/$($manifest.datei)" -OutFile $zip

    $ist = (Get-FileHash $zip -Algorithm SHA256).Hash.ToLower()
    if ($ist -ne $manifest.sha256.ToLower()) {
        throw "Pruefsumme stimmt nicht. Erwartet $($manifest.sha256), bekommen $ist."
    }
    Hinweis 'Pruefsumme stimmt.'

    Expand-Archive -Path $zip -DestinationPath (Join-Path $tmp 'paket') -Force
    $quellordner = Join-Path $tmp 'paket'
}

# ---------------------------------------------------------------- Kopieren

Schritt "Programm nach $Ziel"
# Laeuft gerade eine aeltere Fassung, muss sie erst weichen - Windows sperrt
# die Dateien laufender Programme.
Get-Process node -ErrorAction SilentlyContinue |
    Where-Object { $_.Path -and $_.Path.StartsWith($Ziel, 'OrdinalIgnoreCase') } |
    ForEach-Object { Hinweis "beende laufende Fassung (PID $($_.Id))"; Stop-Process -Id $_.Id -Force }

New-Item -ItemType Directory -Force -Path $Ziel | Out-Null
foreach ($item in @('app', 'bin', 'fonts', 'node.exe', 'version.json',
                    'abdulive.cmd', 'launcher.ps1', 'install.ps1', 'uninstall.ps1', 'backup.ps1')) {
    $von = Join-Path $quellordner $item
    if (-not (Test-Path $von)) { continue }
    $nach = Join-Path $Ziel $item
    if (Test-Path $nach) { Remove-Item -Recurse -Force $nach }
    Copy-Item -Recurse -Force -Path $von -Destination $nach
}

# ---------------------------------------------------------------- Daten

Schritt "Daten nach $daten"
foreach ($unter in @('config', 'db', 'work', 'clips', 'models', 'logs')) {
    New-Item -ItemType Directory -Force -Path (Join-Path $daten $unter) | Out-Null
}
# Eine vorhandene config.yaml wird nie ueberschrieben - da stehen Abdus
# Einstellungen drin.
$cfg = Join-Path $daten 'config\config.yaml'
if (-not (Test-Path $cfg)) {
    Copy-Item (Join-Path $Ziel 'app\config\config.example.yaml') $cfg
    Hinweis 'config.yaml aus der Vorlage angelegt.'
} else {
    Hinweis 'config.yaml war schon da, bleibt unveraendert.'
}
Copy-Item (Join-Path $Ziel 'app\config\layout.yaml') (Join-Path $daten 'config\layout.yaml') -Force

# ---------------------------------------------------------------- Autostart

if (-not $KeinAutostart) {
    Schritt 'Autostart einrichten'
    # Aufgabenplaner statt Windows-Dienst: die Anwendung muss in derselben
    # Sitzung laufen wie OBS, und ein Dienst braeuchte Administratorrechte
    # samt eigenem Wrapper-Programm.
    $ps = (Get-Command powershell.exe).Source
    $start = New-ScheduledTaskAction -Execute $ps `
        -Argument "-NoProfile -WindowStyle Hidden -ExecutionPolicy Bypass -File `"$Ziel\launcher.ps1`""
    $beiAnmeldung = New-ScheduledTaskTrigger -AtLogOn -User $env:USERNAME
    $einst = New-ScheduledTaskSettingsSet -AllowStartIfOnBatteries `
        -DontStopIfGoingOnBatteries -StartWhenAvailable -RestartInterval (New-TimeSpan -Minutes 2) `
        -RestartCount 3 -ExecutionTimeLimit ([TimeSpan]::Zero)
    Register-ScheduledTask -TaskName 'abdulive' -Action $start -Trigger $beiAnmeldung `
        -Settings $einst -Force | Out-Null
    Hinweis 'Aufgabe "abdulive" laeuft ab der naechsten Anmeldung mit.'

    # Taeglich nach einem Update sehen. Angewendet wird es erst beim naechsten
    # Start - waehrend eines Streams wird nichts ausgetauscht.
    $pruefen = New-ScheduledTaskAction -Execute (Join-Path $Ziel 'node.exe') `
        -Argument "`"$Ziel\app\apps\cli\main.ts`" update"
    $taeglich = New-ScheduledTaskTrigger -Daily -At '05:00'
    Register-ScheduledTask -TaskName 'abdulive-update' -Action $pruefen -Trigger $taeglich `
        -Settings $einst -Force | Out-Null
    Hinweis 'Aufgabe "abdulive-update" sieht taeglich um 05:00 nach.'
}

# ---------------------------------------------------------------- Einrichten

$cmd = Join-Path $Ziel 'abdulive.cmd'
$version = (Get-Content (Join-Path $Ziel 'version.json') -Raw | ConvertFrom-Json).version

if (-not $OhneModell) {
    Schritt 'Sprachmodell laden (einmalig, ca. 465 MB)'
    # Nicht abbrechen, wenn das schiefgeht: das Toolkit laeuft auch ohne
    # Modell, es entstehen dann nur Clips ohne Untertitel.
    $code = Ruf $cmd @('fetch-model')
    if ($code -ne 0) {
        Hinweis 'Fehlgeschlagen. Spaeter nachholen mit: abdulive fetch-model'
    }
}

Schritt 'Selbsttest'
$selbsttest = Ruf $cmd @('check-env')

if (-not $KeinAutostart) {
    Schritt 'Starten'
    Start-ScheduledTask -TaskName 'abdulive'

    # Warten, bis die Weboberflaeche antwortet - sonst oeffnet der Browser
    # ins Leere. Der Daemon braucht einen Moment fuer Datenbank und erste
    # Verbindungen.
    #
    # 127.0.0.1 und nicht localhost: der Daemon lauscht nur auf IPv4, und
    # Windows loest localhost zuerst nach ::1 auf. Gemessen 2066 ms bis zum
    # Rueckfall gegenueber 15 ms direkt - die Pruefung lief jedes Mal in ihr
    # eigenes Zeitlimit.
    $bereit = $false
    foreach ($i in 1..30) {
        Start-Sleep -Seconds 1
        try {
            $null = Invoke-WebRequest 'http://127.0.0.1:4792/health' -UseBasicParsing -TimeoutSec 2
            $bereit = $true
            break
        } catch { }
    }
    if ($bereit) {
        Hinweis 'Laeuft, die Oberflaeche antwortet.'
        if (-not $KeinBrowser) { Start-Process 'http://localhost:4792/setup' }
    } else {
        Hinweis 'Antwortet nach 30 s noch nicht. Protokoll:'
        Hinweis "  $env:LOCALAPPDATA\abdulive\logs\abdulive.log"
    }
}

# ---------------------------------------------------------------- Fertig

Write-Host ''
if ($selbsttest -eq 0) {
    Write-Host "abdulive $version laeuft." -ForegroundColor Green
} else {
    Write-Host "abdulive $version ist installiert, der Selbsttest meldet aber Fehler." -ForegroundColor Yellow
}
Write-Host ''
Write-Host 'Im Browser ist jetzt die Einrichtungsseite offen:'
Write-Host '  http://localhost:4792/setup'
Write-Host ''
Write-Host 'Dort eintragen: die beiden Twitch-Apps und das OBS-Passwort.'
Write-Host 'Danach ist alles beisammen.'
Write-Host ''
Write-Host 'Wieder loswerden:' -ForegroundColor DarkGray
Write-Host "  & '$Ziel\uninstall.ps1'" -ForegroundColor DarkGray
Write-Host ''