Start-UserExport-VFK.ps1

# import environment variables
$envPath = Join-Path -Path $PSScriptRoot -ChildPath ".\envs.ps1"
. $envPath

Function Get-PhoneNumber {
    param(
        [Parameter()]
        $User
    )

    $phoneProperties = @('mobile', 'MobilePhone', 'HomePhone', 'OfficePhone', 'telephoneNumber', 'msRTCSIP-Line')
    $phone = ""

    foreach ($prop in $phoneProperties) {
        if (![string]::IsNullOrEmpty($phone)) {
            break
        }

        if ([string]::IsNullOrEmpty($User.$prop)) {
            continue
        }

        if ($prop -eq "msRTCSIP-Line") {
            $phone = $User.$prop.Replace("tel:", "")
        }
        else {
            $phone = $User.$prop
            Write-Log -Message "  - Using property '$prop' for phone number"
        }
    }

    if ([string]::IsNullOrEmpty($phone)) {
        Write-Log -Message "No phone number registered on '$($user.mail)'" -Level WARNING
        return $phone
    }

    $phone = $phone.Replace(" ", "").Replace("+47", "")
    if ($phone.StartsWith("0047") -and $phone.Length -eq 12) {
        $phone = $phone.Substring(4, 8)
    }

    return "47$phone"
}

Function Upload-TQMFile {
    param(
        [Parameter(Mandatory = $True)]
        [ValidateScript({ Test-Path $_ })]
        [string]$FilePath,

        [Parameter(Mandatory = $True)]
        [string]$ServerPath
    )

    # Load WinSCP .NET assembly
    Add-Type -Path "C:\Program Files (x86)\WinSCP\WinSCPnet.dll"

    # Set up session options
    $sessionOptions = New-Object WinSCP.SessionOptions -Property @{
        Protocol = [WinSCP.Protocol]::Sftp
        HostName = $sftp.HostName
        UserName = $sftp.UserName
        Password = $sftp.Password
        SshHostKeyFingerprint = $sftp.SshHostKeyFingerprint
    }

    $session = New-Object WinSCP.Session

    try
    {
        # Connect
        $session.Open($sessionOptions)

        # setup transfer options
        $transferOptions = New-Object WinSCP.TransferOptions
        $transferOptions.OverwriteMode = [WinSCP.OverwriteMode]::Overwrite
        $transferOptions.ResumeSupport.State = [WinSCP.TransferResumeSupportState]::Off # don't use .filepart

        $result = $session.PutFiles($FilePath, $ServerPath, $False, $transferOptions)
        if ($result.Failures -ne "{}") { return $result.Failures }
    }
    catch {
        Write-Log -Message "AIAIAI! Upload feila. Error: $_" -Level WARN
        return "AIAIAI! Upload feila. Sjekk logg på serveren"
    }
    finally
    {
        $session.Dispose()
    }
}

Import-Module Logger

if ($papertrailConfig) {
    Add-LogTarget -Name Papertrail -Configuration $papertrailConfig
}
Add-LogTarget -Name Teams -Configuration @{ WebHook = $tqmConfig.TeamsWebhook; Level = "ERROR" }

# file paths
$xmlFolder = "$PSScriptRoot\logs"
$xmlPath = "$xmlFolder\export_$((Get-Date).DayOfWeek.ToString().ToLower()).xml"
$logPath = "$xmlFolder\tqm_$((Get-Date).DayOfWeek.ToString().ToLower()).log"
$sftpPath = "\$($tqmConfig.Firmakode)-$(Get-Date -Format 'yyyyMMddHHmmss').xml"

# make sure logpath exists
if (!(Test-Path -Path $xmlFolder)) {
    New-Item -Path $xmlFolder -ItemType Directory -Force -Confirm:$False | Out-Null
}

# remove last weeks xml file
if ((Test-Path -Path $xmlPath) -and ((Get-Date)-(Get-ChildItem -Path $xmlPath | Select-Object -ExpandProperty LastWriteTime)).Days -gt 0)
{
    try { Remove-Item -Path $xmlPath -Force -Confirm:$False -ErrorAction Stop } catch { }
}

# remove last weeks log file
if ((Test-Path -Path $logPath) -and ((Get-Date)-(Get-ChildItem -Path $logPath | Select-Object -ExpandProperty LastWriteTime)).Days -gt 0)
{
    try { Remove-Item -Path $logPath -Force -Confirm:$False -ErrorAction Stop } catch { }
}

Add-LogTarget -Name CMTrace -Configuration @{ Path = $logPath }
Write-Log -Message "Exporting to '$xmlPath'"

if ("$($tqmConfig.Firmakode)".Length -eq 0) {
    Write-Log -Message "AIAIAI! Har du glemt å sette firmakode i tqmConfig?" -Level ERROR
    Exit
}

# get ad users to export
#$users = Get-ADUser -Filter "samaccountname -eq 'joh1904' -or samaccountname -eq 'run0805'" -Properties displayName,samAccountName,mail,mobile,MobilePhone,HomePhone,OfficePhone,telephoneNumber,msRTCSIP-Line,department,title
$users = E:\scripts\Toolbox\AD\Get-ADUser.ps1 -Domain login.top.no -Properties displayName,userPrincipalName,samAccountName,company,mail,mobile,MobilePhone,HomePhone,OfficePhone,telephoneNumber,msRTCSIP-Line,department,title -OnlyAutoUsers | Where-Object { $_.Enabled -eq $True } | Sort-Object displayName
Write-Log -Message "Exporting $($users.Count) users"

# Get org units hashtable (key is department/unit name)
$units = E:\scripts\Toolbox\FINT\Get-OrgUnits.ps1
Write-Log -Message "Got $($units.Count) org units from FINT"
# reverse unit strukturlinje for all units (we don't)
if ($units.Count -eq 0) {
    Write-Log -Message "AIAIAI! Tryna når vi henta org-units fra FINT" -Level ERROR
    Exit
}
Foreach ($unit in $units.GetEnumerator()) {
    $unit.Value.strukturLinje.Reverse()
    [void]$unit.Value.strukturLinje.remove("Vestfold fylkeskommune") # TQM don't want top level - da får vi skreddersy... (husk at strukturLinje blir reversert oppe der vi henter units)
    [void]$unit.Value.strukturLinje.remove("Telemark fylkeskommune") # TQM don't want top level - da får vi skreddersy... (husk at strukturLinje blir reversert oppe der vi henter units)
    [void]$unit.Value.strukturLinje.remove("Telemark Fylkeskommune") # TQM don't want top level - da får vi skreddersy... (husk at strukturLinje blir reversert oppe der vi henter units)
}

# create xml document
$xmlSettings = New-Object System.Xml.XmlWriterSettings
$xmlSettings.Indent = $true
$xmlSettings.IndentChars = "`t"
$xml = [System.Xml.XmlWriter]::Create($xmlPath, $xmlSettings)

try {
    # create userimport root node
    $xml.WriteStartElement("UserImport")
    $xml.WriteAttributeString("xmlns", "xsd", $null, "http://www.w3.org/2001/XMLSchema")
    $xml.WriteAttributeString("xmlns", "xsi", $null, "http://www.w3.org/2001/XMLSchema-instance")

        # create gendate node
        $xml.WriteStartElement("GenDate")
        $xml.WriteValue((Get-Date -Format o))
        $xml.WriteEndElement()

        # create ol1 node
        $xml.WriteStartElement("OL1")

            # write ol1_key node
            $xml.WriteStartElement("OL1_Key")
            $xml.WriteValue($tqmConfig.Firmakode)
            $xml.WriteEndElement()

            # write userinfo node
            $xml.WriteStartElement("UserInfo")

                ########## export users to nodes here ##########
                $users | ForEach-Object {

                    # Change 10.12.2023 - skip user and send error to Teams if user is missing userPrincipalName
                    $user = $_
                    if ("$($user.userPrincipalName)".Length -eq 0) {
                        Write-Log -Message "AIAIAI! User '$($user.displayName)' - '$($user.samAccountName)' is missing userPrincipalName property, will skip! Please add mail info to user." -Level ERROR
                        return
                    }
                    if ("$($user.department)".Length -eq 0) {
                        if ("jorgen.best" -NotContains $user.samAccountName) { # Gidder ikke varlse om testbrukere
                            Write-Log -Message "AIAIAI! User '$($user.displayName)' - '$($user.samAccountName)' is missing department property, will skip! Please add department info to user." -Level ERROR
                        }
                        return
                    }
                    if ("$($user.department)" -eq "Folkevalgte") { # Folkevalgte trenger visst itj bruker
                        return
                    }
                    try {
                        $userStrukturLinje = $units[$user.department].strukturLinje
                    } catch {
                        Write-Log -Message "AIAIAI - den catcha! Department '$($user.department)' does not exist in FINT, will skip! User: '$($user.displayName)' - '$($user.samAccountName)'. Please add an existing FINT department to user if you want him/her/they/them/whatever in TQM." -Level ERROR
                        return
                    }
                    if ($userStrukturLinje.Count -eq 0) {
                        if ("Fhus Tønsberg", "T18", "Fylkessenter Seljord", "Vinje tannklinikk", "UT-Tann", "Team konserndrift", "DATA", "ORG-DIGI", "Service" -NotContains $user.department) { # Gidder ikke varlse om testbrukere
                            Write-Log -Message "AIAIAI! Department '$($user.department)' does not exist in FINT, will skip! User: '$($user.displayName)' - '$($user.samAccountName)'. Please add an existing FINT department to user if you want him/her/they/them/whatever in TQM." -Level ERROR
                        }
                        return
                    }
                    $fintOL3 = $null # Fylkesdirektør / Sektor / Seksjon / Team
                    if ($userStrukturLinje.Count -gt 1) {
                        $fintOL3 = $userStrukturLinje[1]
                        Write-Log $fintOL3
                    } else {
                        $fintOL3 = $userStrukturLinje[0]
                        Write-Log "SE HER $($fintOL3)"
                    }   
                    if ($userStrukturLinje.Count -gt 2) {
                        $userStrukturLinje = @( $userStrukturLinje | Select-Object -Skip 2 )
                    }
                    # SPECIAL RULE for vestfold - need to check first element, if is school
                    $firstStrukturElement = $userStrukturLinje[0]

                    # Ok - here we should have what we need 
                    $userStrukturLinje = ($userStrukturLinje) -join " / " # And as a string separated by forward slash..

                    # create user node
                    $xml.WriteStartElement("User")

                        try {
                            Write-Log -Message "Adding user '$($user.mail)' - '$($user.displayName)' - '$($user.samAccountName)'"

                            # write name node
                            $xml.WriteStartElement("Name")
                            $xml.WriteValue($user.displayName)
                            $xml.WriteEndElement()

                            # write login node
                            $xml.WriteStartElement("Login")
                            $xml.WriteValue($user.userPrincipalName)
                            $xml.WriteEndElement()

                            # write employeeNumber node
                            $xml.WriteStartElement("EmployeeNumber")
                            $xml.WriteEndElement()

                            # write email node
                            $xml.WriteStartElement("Email")
                            $xml.WriteValue($user.userPrincipalName)
                            $xml.WriteEndElement()

                            # write phone node
                            $xml.WriteStartElement("Phone")
                            $xml.WriteValue((Get-PhoneNumber -User $user))
                            $xml.WriteEndElement()

                            # write external node
                            $xml.WriteStartElement("External")
                            $xml.WriteValue($False)
                            $xml.WriteEndElement()

                            # write datedeleted node
                            $xml.WriteStartElement("DateDeleted")
                            $xml.WriteValue("BLANK")
                            $xml.WriteEndElement()

                            # write inactivefrom node
                            $xml.WriteStartElement("InactiveFrom")
                            $xml.WriteValue("BLANK")
                            $xml.WriteEndElement()

                            # write inactiveto node
                            $xml.WriteStartElement("InactiveTo")
                            $xml.WriteValue("BLANK")
                            $xml.WriteEndElement()

                            # write smsuser node
                            $xml.WriteStartElement("SMSUser")
                            $xml.WriteValue($False)
                            $xml.WriteEndElement()

                            # write defaultol3 node
                            $xml.WriteStartElement("DefaultOL3")
                            if ($fintOL3) {
                                $xml.WriteValue($fintOL3)
                            } else {
                                if ($user.company) {
                                    $xml.WriteValue($user.company) # Set Company from AD
                                } else {
                                    $xml.WriteValue("BLANK")
                                }
                            }
                            $xml.WriteEndElement()

                            # write defaultpl node
                            $xml.WriteStartElement("DefaultPL")
                            # VFK special rules for school - if ends with "videregående skole" or is equal to "kompetansebyggeren" (and probably more in the future), set value to "“Videregående opplæring/{user.company}”"
                            if ($firstStrukturElement.EndsWith("videregående skole") -or $firstStrukturElement -eq "Kompetansebyggeren") {
                                $xml.WriteValue("Videregående opplæring / $($userStrukturLinje)") # Fra skolenivået skolens navn
                            } else {
                                if ($userStrukturLinje) { 
                                    $xml.WriteValue($userStrukturLinje)
                                } else {
                                    $xml.WriteValue("BLANK")
                                }
                            }
                            $xml.WriteEndElement()
                            
                            <# 
                            # write caseregsetting node
                            $xml.WriteStartElement("CaseRegSetting")

                                # write caseregistration_ol3 node
                                $xml.WriteStartElement("CaseRegistration_OL3")
                                $xml.WriteEndElement()

                                # write caseregistration_pl node
                                $xml.WriteStartElement("CaseRegistration_PL")
                                $xml.WriteValue($user.department)
                                $xml.WriteEndElement()

                                # write casetype node
                                $xml.WriteStartElement("CaseType")
                                $xml.WriteEndElement()

                                # write severitydegree node
                                $xml.WriteStartElement("SeverityDegree")
                                $xml.WriteValue("Middels")
                                $xml.WriteEndElement()

                            # close caseregsetting node
                            $xml.WriteEndElement()
                            #>
                        }
                        catch {
                            Write-Log -Message "Failed on user '$($user.mail)' - '$($user.displayName)' - '$($user.samAccountName)': $_" -Level ERROR -Exception $_
                            # Consider to close xmlElement here - if we need the script to continue on error
                        }
                
                    # close user node
                    $xml.WriteEndElement()
                }

            # close userinfo node
            $xml.WriteEndElement()

        # close ol1 node
        $xml.WriteEndElement()

    # close userimport root node
    $xml.WriteEndElement()
}
catch {
    Write-Log -Message "Failed in document creation : $_" -Level ERROR -Exception $_
}

# close xml document
$xml.Close()

# upload file to TQM
$uploadResult = Upload-TQMFile -FilePath $xmlPath -ServerPath $sftpPath
if ($uploadResult) {
    Write-Log -Message "Failed to upload '$xmlPath' to '$($sftp.HostName)$sftpPath'" -Level ERROR -Body $uploadResult
}
else {
    Write-Log -Message "'$xmlPath' successfully uploaded to '$($sftp.HostName)$sftpPath'"
}