diklabumanager.psm1

<#
    VERBEN:
        find ... findet einen oder mehrere Objekte nach Namen. '%' ist WildCard
        get .... findet ein Objekt durch angabe des PK
        set .... ändert Attribute eines Objektes durch angabe des PK
        new .... erzeugt ein neuen Eintrag
        delete . ein Objekt löschen
         
     NOMEN
        pupil ........ Schüler
        course ....... Klasse
        company ...... Firma
        instructor ... Ausbilder
        coursemember . Kursmitgliedschaft
 
#>



$global:auth_token
<#
.Synopsis
   Liest die Server, Benutzernamen und Kennworte aus
.DESCRIPTION
   Liest die Server, Benutzernamen und Kennworte aus
.EXAMPLE
   Get-Keystore
.EXAMPLE
   Get-Keystore -file c:\Temp\keys
#>

function Get-Keystore
{
    [CmdletBinding()]
    Param
    (
        # Hilfebeschreibung zu Param1
        [Parameter(Position=0)]
        $file=$Global:keystore

    )

    Begin
    {
        $logins=@{}
        if ($file -ne $Global:keystore) {
            if (-not $global:keystore -and -not $file) {
                $file = Read-Host "Bitte Keystore file angeben"
            }
            $global:logins.Clear()
            $global:keystore=$file
            $file
        }
        if (Test-Path $file) {
            $lf = Get-Content $global:keystore | ConvertFrom-Json

            $lf.PSObject.Properties | ForEach-Object {
                $logins[$_.Name]=$_.Value
            }         
        }
        $global:logins=$logins;
        $logins;
    }
}

$global:logins=Get-Keystore -file "$env:TEMP\keystore.json"

<#
.Synopsis
   Setzte einen Schlüssel bestehend aus Server, Benutzernamen und Kennworte aus
.DESCRIPTION
   Setzte einen Schlüssel bestehend aus Server, Benutzernamen und Kennworte aus
.EXAMPLE
   Set-Keystore -url http://xyz.de -credential $cred -key seafile
.EXAMPLE
   Set-Keystore -file keys.txt -url http://xyz.de -credential $cred -key seafile
#>

function Set-Keystore
{
    [CmdletBinding()]
    Param
    (
        # Hilfebeschreibung zu Param1
        [Parameter(Position=0)]
        $file=$global:keystore,

        [Parameter(Mandatory=$true,
                   Position=1)]
        $key,
        [Parameter(Mandatory=$true,
                   Position=2)]
        $server,

        [Parameter(Position=3)]
        [PSCredential]$credential


    )

    Begin
    {
        $global:logins=Get-Keystore -file $file
        $login = "" | Select-Object "location","user","password"
        $login.location = $server
        $login.user =  $credential.UserName
        if ($credential.password) {
            $login.password = $credential.Password | ConvertFrom-SecureString
        }
        $global:logins[$key]=$login
        $global:logins | ConvertTo-Json -Compress | Set-Content $file
        $file
    }
}



<#
.Synopsis
   Server URL Setzen
.DESCRIPTION
   Setzt global die Server URL
.EXAMPLE
   Set-Diklabuserver -uri http://localhost:8080/Diklabu/api/v1/
#>

function Set-Diklabuserver
{
    Param
    (
        # Hilfebeschreibung zu Param1
        [Parameter(Mandatory=$true,Position=0)]
        [String]$uri

    )

    Begin
    {
        Set-Keystore -key "diklabu" -server $uri
    }
   
}

<#
.Synopsis
   Abfrage des Diklabuservers
.DESCRIPTION
   Abfrage des Diklabuservers
.EXAMPLE
   Get-Diklabuserver
#>

function Get-Diklabuserver
{
    Begin
    {
        return $global:logins["diklabu"].location
    }
   
}

<#
.Synopsis
   Anmelden am Klassenbuch
.DESCRIPTION
   Anmelden beim Klassenbuch und Sessionkey beziehen
.EXAMPLE
   login-diklabu -credential (get-Credential)
.EXAMPLE
   login-diklabu -credential (get-Credential) -URI http://localhost:8080/Diklabu/api/v1/
#>

function Login-Diklabu
{
    Param
    (
        # Benutzername
        [Parameter(Position=0)]
        [PSCredential]$credential,

        # URI des Diklabu Servers
        [Parameter(Position=1)]
        [String]$uri

    )

    Begin
    {
        if (-not $uri) {
            if ($Global:logins["diklabu"]) {
                $uri=$Global:logins["diklabu"].location;
            }
            else {
                Write-Error "Bitte uri und oder Serveradresse mittels Set-DiklabuServer angeben!"
                break;
            }
        }
        if (-not $credential) {
            if (-not $Global:logins["diklabu"].password) {
                Write-Error "Bitte credentials angeben!"
                break;
            }
            else {
                $password = $Global:logins["diklabu"].password | ConvertTo-SecureString 
                $credential = New-Object System.Management.Automation.PsCredential($Global:logins["diklabu"].user,$password)
            }    
        } 
        try {
            $data=echo "" | Select-Object -Property "benutzer","kennwort"
            $data.benutzer=$credential.userName
            $data.kennwort=$credential.GetNetworkCredential().Password        
            $headers=@{}
            $headers["content-Type"]="application/json"
            $headers["service_key"]=$user+"f80ebc87-ad5c-4b29-9366-5359768df5a1";
            Write-Verbose "Anmelden am Diklabuserver unter $uri"
            $r=Invoke-RestMethod -Method Post -Uri ($uri+"auth/login") -Headers $headers -Body (ConvertTo-Json $data)
            $global:auth_token=$r.auth_token
            $global:server=$uri
            Set-Keystore -key "diklabu" -server $uri -credential $credential
            return $r;
        }
        catch {
            Write-Error $_.Exception.Message
        }
    }
}

<#
.Synopsis
   Abfragen der Anmeldedaten
.DESCRIPTION
   Abfragen der Anmeldedaten
.EXAMPLE
   get-diklabu
#>

function Get-Diklabu
{
    Param
    (
    )

    Begin
    {
        $Global:logins["diklabu"]
    }
}