Files
ps_shiftplan/shifts_copy.ps1
Jonatan Rek c988f637a1 Fixes
2025-10-14 19:27:51 +02:00

310 lines
12 KiB
PowerShell

param(
[switch]$debug,
[switch]$clear
)
if ($debug) {
$script:debug = $debug
}
$teamsName = "IT Support & Delivery"
$scheduleGroupName = "IT SUPPORT"
# App Registration details & Tenant ID
$ClientId = "6cb76bbf-f253-4551-87a8-5e1f49d8ace3"
$ClientSecret = "IQg8Q~JTBTDbrHyjKMc.KMSETtQoKWvUhnCr1aY1"
$tenantid = "e81b4a31-e8ad-4df6-aa30-3bdcc1da2cdd"
$userIdAdmin = "747bd624-5cd7-4ae0-952f-5dc374e07a5e"
$logPath = (".\log_{0}.log" -f (Get-Date).toString("yyyy_MM_dd"))
function Write-Debug {
param(
[string]$message
)
if ($script:debug) {
Write-Host $message
}
else {
$message | Add-Content $logPath
}
}
#Naplánování konkrétní směny
function Set-Shift {
param(
[string]$userId,
[string]$groupID,
[string]$shiftName,
[System.DateTime]$StartDate,
[System.DateTime]$EndDate,
[string]$color,
[string]$teamID,
[string]$mail
)
$params = @{
UserId = $userId
schedulingGroupId = $groupID
sharedShift = @{
notes = ($shiftName)
startDateTime = [System.DateTime]::Parse($StartDate.ToString("yyyy-MM-dd'T'HH:mm:ssZ"))
endDateTime = [System.DateTime]::Parse($EndDate.ToString("yyyy-MM-dd'T'HH:mm:ssZ"))
theme = $color
}
}
#$headers = @{
# "MS-APP-ACTS-AS" = $userIdAdmin
# "Prefer" = "no-notification"
#}
$newShift = New-MgTeamScheduleShift -TeamId $teamID -BodyParameter $params -Headers @{ "MS-APP-ACTS-AS" = $userIdAdmin }
#Write-Debug ("SCHEDULING: {0} {1} - {2}" -f $newShift.SharedShift.StartDateTime.ToString("yyyy-MM-dd HH:mm"), $newShift.SharedShift.EndDateTime.ToString("yyyy-MM-dd HH:mm"), $newShift.SharedShift.Notes)
#("SCHEDULING: {0} {1} - {2}" -f $newShift.SharedShift.StartDateTime.ToString("yyyy-MM-dd HH:mm"), $newShift.SharedShift.EndDateTime.ToString("yyyy-MM-dd HH:mm"), $newShift.SharedShift.Notes) | Add-Content -Path $logPath
Write-Debug ("{0} {1}: {2} {3} {4} {5}" -f $dayDate, $dayDate.DayOfWeek, $mail, $shiftName, $StartDate, $EndDate)
#$newShift = 0
return $newShift
}
function Invoke-HasTimeOff {
param(
[string]$UID,
[PSCustomObject]$timeoff,
[string]$mail
)
foreach ($toff in $timeoff) {
if ($toff.UserId -eq $UID) {
Write-Debug ("{0} {1}: {2} has time off at this time" -f $dayDate, $dayDate.DayOfWeek, $mail)
return $true
break
}
}
return $false
}
function Invoke-HasShift {
param(
[string]$UID,
[PSCustomObject]$shifts,
[string]$mail
)
foreach ($shift in $shifts) {
if ($shift.UserId -eq $UID) {
Write-Debug ("{0} {1}: {2} has a shift at this time" -f $dayDate, $dayDate.DayOfWeek, $mail)
return $true
break
}
}
return $false
}
function Invoke-HasShiftorTimeOff {
param(
[string]$UID,
[PSCustomObject]$shifts,
[PSCustomObject]$timeoff,
[string]$mail
)
foreach ($shift in $shifts) {
if ($shift.UserId -eq $UID) {
Write-Debug ("{0} {1}: {2} has a shift or time off at this time" -f $dayDate, $dayDate.DayOfWeek, $mail)
return $true
break
}
}
foreach ($toff in $timeoff) {
if ($toff.UserId -eq $UID) {
Write-Debug ("{0} {1}: {2} has a shift or time off at this time" -f $dayDate, $dayDate.DayOfWeek, $mail)
return $true
break
}
}
return $false
}
#Microsoft auth
$body = @{
grant_type = "client_credentials"
resource = "https://graph.microsoft.com"
client_id = $ClientId
client_secret = $ClientSecret
}
$authUri = "https://login.microsoftonline.com/$tenantid/oauth2/token"
$response = Invoke-RestMethod $authUri -Method 'POST' -Body $body
$token = $response.access_token
Import-Module Microsoft.Graph.Teams
Connect-MgGraph -AccessToken $($token | ConvertTo-SecureString -AsPlainText -Force) >> $null
# Dnešní datum a plán směn
#$today = (Get-Date).Date
#$today = $today_old.AddYears(2)
$today = (Get-Date -Day 14 -Month 10 -Year 2025).Date
$schedule = Get-Content -Path "./config.json" -Raw | ConvertFrom-Json
$allemails = $schedule.PSObject.Properties | ForEach-Object {
if ($_.Name -in @("monday", "tuesday", "wednesday", "thursday", "friday")) {
$_.Value.PSObject.Properties | ForEach-Object {
if ($_.Name -in @("ds", "ho", "os", "ns")) {
$_.Value | ForEach-Object {
$_
}
}
}
}
} | Select-Object -Unique
#Časové rozmezí plánování
$daysahead = 5
$startSpanDate = Get-Date -Day $today.Day -Month $today.Month -Year $today.Year -Hour 9 -Minute 00 -Second 00 -Millisecond 00
$endSpanDate = Get-Date -Day $startSpanDate.AddDays($daysahead).Day -Month $startSpanDate.AddDays($daysahead).Month -Year $startSpanDate.AddDays($daysahead).Year -Hour 17 -Minute 00 -Second 00 -Millisecond 00
#RLCZ maintenance
$rlcz_mtnc_email = "jiri.kotlan@itego.cz"
$rlcz_shift_reduction = -3
# SKRIPT
try {
$team = Get-MgTeam -Property "id,displayName" | Where-Object -property displayName -value $teamsName -eq
$group = Get-MgTeamScheduleSchedulingGroup -TeamId $team.id -Headers @{ "MS-APP-ACTS-AS" = $userIdAdmin } | Where-Object -property displayName -value $scheduleGroupName -eq
$allshifts = [object[]] (Get-MgTeamScheduleShift -TeamId $team.id -Filter "SharedShift/StartDateTime ge $($startSpanDate.toString('yyyy-MM-ddT00:00:00Z'))" -All -Headers @{ "MS-APP-ACTS-AS" = $userIdAdmin })
$timeoff_all = [object[]] (Get-MgTeamScheduleTimeOff -TeamId $team.id -Filter "SharedTimeOff/StartDateTime ge $($startSpanDate.toString('yyyy-MM-ddT00:00:00Z'))" -All -Headers @{ "MS-APP-ACTS-AS" = $userIdAdmin } | Select-Object -Property *, @{name = "Date"; expression = { $_.SharedTimeOff.StartDateTime.AddHours(1).Date } })
#Procházíme dny v časovém rozmezí
$timeSpan = New-TimeSpan -Start $startSpanDate -End $endSpanDate
Write-Debug ("Planning from {0} to {1}" -f $startSpanDate, $endSpanDate)
for ($dayNumber = 0; $dayNumber -lt $timespan.Days; $dayNumber++) {
$dayDate = $today.AddDays($dayNumber);
#Pokud jde o pracovní den, jinak se jde ihned na další den
if ($dayDate.DayOfWeek -in @("Saturday", "Sunday")) {
Write-Debug ("is weekend {0}" -f $dayDate)
continue
}
#Množina emailů pro tento den v týdnu co mají mít home office
$ho_emails = $schedule.($dayDate.DayOfWeek.ToString().ToLower()).'ho'
#Email a ID toho kdo má mít tento den denní směnu
$ds_email = $schedule.($dayDate.DayOfWeek.ToString().ToLower()).'ds'
#Emaily těch co jsou on-site u zákazníka
$os_emails = $schedule.($dayDate.DayOfWeek.ToString().ToLower()).'os'
#Emaily těch co nemají mít dnes žádnou směnu
$ns_emails = $schedule.($dayDate.DayOfWeek.ToString().ToLower()).'ns'
#Upravení času
$dateStart = $(get-date -Day $dayDate.Day -Month $dayDate.Month -Year $dayDate.Year -Hour 9 -Minute 00 -Second 00).AddHours(-1)
$dateEnd = $(get-date -Day $dayDate.Day -Month $dayDate.Month -Year $dayDate.Year -Hour 17 -Minute 00 -Second 00).AddHours(-1)
if (($dayDate.IsDaylightSavingTime()) -eq $true) {
$dateStart = $dateStart.AddHours(-1)
$dateEnd = $dateEnd.AddHours(-1)
}
$shifts_today = [Object[]] $allshifts | Where-Object -Filter {
$_.schedulingGroupId -eq $group.Id -and $_.SharedShift.StartDateTime.ToString("yyyy-MM-dd HH:mm") -ge $dateStart.ToString("yyyy-MM-dd HH:mm") -and $_.SharedShift.EndDateTime.ToString("yyyy-MM-dd HH:mm") -le $dateEnd.ToString("yyyy-MM-dd HH:mm")
}
$timeoff_today = [Object[]] $timeoff_all | Where-Object -Filter {
($_.SharedTimeOff.StartDateTime.Date -eq $dateStart.Date -or $_.SharedTimeOff.EndDateTime.Date -eq $dateEnd.Date)
}
Write-Debug ("Shifts {0}, TimeOff: {1}" -f $shifts_today.length, $timeoff_today.length)
$ds_covered = $false;
$userEmailToIdHashtable = @{}
$userEmailNotAvailable = @()
foreach ($email in $allemails) {
$userId = $(Get-MgUser -Filter "UserPrincipalName eq '$email' or proxyAddresses/any(c:c eq 'smtp:$email')").Id
$userEmailToIdHashtable[$email] = $userId
if ($userId -in $shifts_today.UserId) {
$userEmailNotAvailable += $email
Write-Debug ("{0} has Manual Shift" -f $email)
continue;
}
if ($userId -in $timeoff_today.UserId) {
$userEmailNotAvailable += $email
Write-Debug ("{0} has TimeOff" -f $email)
continue;
}
#NoShift
if ($email -in $ns_emails) {
$userEmailNotAvailable += $email
Write-Debug ("{0} has NULL Shift " -f $email)
continue
}
#OnSite
if ($email -in $os_emails) {
Write-Debug ("{0} has On Site " -f $email)
#$newshift = Set-Shift -userId $userId -groupID $group.id -shiftName "On-site" -StartDate $dateStart -EndDate $dateEnd -color "gray" -teamID $team.id -mail $os_email
#$allshifts += [Object[]] $newshift
continue
}
#Dení Směna
if ($email -eq $ds_email -and $email -in $ho_emails) {
Write-Debug ("{0} has Denní HO" -f $email)
#$newshift = Set-Shift -userId $userId -groupID $group.id -shiftName "Home Office - Denní směna" -StartDate $dateStart -EndDate $dateEnd -color "purple" -teamID $team.id -mail $ds_email
#$allshifts += [Object[]] $newshift
$ds_covered = $true;
continue
}
elseif ($email -eq $ds_email) {
Write-Debug ("{0} has Denní" -f $email)
#$newshift = Set-Shift -userId $userId -groupID $group.id -shiftName "Denní směna" -StartDate $dateStart -EndDate $dateEnd -color "purple" -teamID $team.id -mail $ds_email
#$allshifts += [Object[]] $newshift
$ds_covered = $true;
continue
}
}
$timeoff_today = [Object[]] $timeoff_all | Where-Object -Filter {
($_.SharedTimeOff.StartDateTime.Date -eq $dateStart.Date -or $_.SharedTimeOff.EndDateTime.Date -eq $dateEnd.Date)
}
foreach ($email in ($allemails | Where-Object -Filter {$_ -notin $userEmailNotAvailable} | Where-Object -Filter {$userEmailToIdHashtable[$_] -notin $timeoff_today.UserId})) {
if (($ds_covered -eq $false)) {
$ds_covered = $true;
Write-Debug ("{0} has backup Denní" -f $email)
#$newshift = Set-Shift -userId $userId -groupID $group.id -shiftName "Office" -StartDate $dateStart -EndDate $dateEnd -color "purple" -teamID $team.id -mail $ds_email
#$allshifts += [Object[]] $newshift
continue
}
Write-Debug ("{0} has Office" -f $email)
#$newshift = Set-Shift -userId $userId -groupID $group.id -shiftName "Office" -StartDate $dateStart -EndDate $dateEnd -color "purple" -teamID $team.id -mail $ds_email
#$allshifts += [Object[]] $newshift
}
}
$params = @{
notifyTeam = $false
startDateTime = [System.DateTime]::Parse($startSpanDate.ToString("yyyy-MM-dd'T'HH:mm:ssZ"))
endDateTime = [System.DateTime]::Parse($endSpanDate.ToString("yyyy-MM-dd'T'HH:mm:ssZ"))
}
Invoke-MgShareTeamSchedule -TeamId $team.Id -BodyParameter $params -Headers @{ "MS-APP-ACTS-AS" = $userIdAdmin }
("SHARING: {0}" -f $scheduleGroupName) | Add-Content -Path $logPath
}
catch {
$_
break;
}