fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

fix(crontab): execute lms jobs once a day mo - fri

Browse Source
This commit is contained in:
David Mosbach 2023-11-22 03:03:24 +00:00
parent 0331010ad7
commit c393992ffe
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Jobs/Crontab.hs
View File

@ -392,30 +392,31 @@ determineCrontab = execWriterT $ do
-- , cronNotAfter = Right . CronTimestamp . utcToLocalTimeTZ appTZ $ addUTCTime appStudyFeaturesRecacheRelevanceInterval nextIntervalTime -- , cronNotAfter = Right . CronTimestamp . utcToLocalTimeTZ appTZ $ addUTCTime appStudyFeaturesRecacheRelevanceInterval nextIntervalTime
-- } -- }
whenIsJust appQualificationCheckHour $ \hour -> tell $ HashMap.singleton whenIsJust appQualificationCheckHour $ \hour -> tell $ HashMap.singleton
(JobCtlQueue JobLmsQualificationsEnqueue) (JobCtlQueue JobLmsQualificationsEnqueue)
Cron Cron
{ cronInitial = CronAsap -- time after scheduling { cronInitial = CronAsap -- time after scheduling
, cronRepeat = CronRepeatScheduled $ cronCalendarAny { cronDayOfWeek = CronMatchSome . impureNonNull . Set.fromList $ [1..7] , cronRepeat = CronRepeatScheduled $ cronCalendarAny { cronDayOfWeek = CronMatchSome . impureNonNull . Set.fromList $ [1..5]
, cronHour = cronMatchOne hour -- cronHour = CronMatchSome (impureNonNull $ Set.fromList [3,15] ) , cronHour = cronMatchOne hour -- cronHour = CronMatchSome (impureNonNull $ Set.fromList [3,15] )
, cronMinute = cronMatchOne 3 , cronMinute = cronMatchOne 3
, cronSecond = cronMatchOne 27 , cronSecond = cronMatchOne 27
} }
, cronRateLimit = nominalDay / 2 -- minimal time between two executions, before the second job is skipped , cronRateLimit = 0 -- minimal time between two executions, before the second job is skipped
, cronNotAfter = Left $ 1.5 * nominalDay -- maximal delay of an execution, before it is skipped entirely , cronNotAfter = Right CronNotScheduled -- maximal delay of an execution, before it is skipped entirely
} }
whenIsJust appQualificationCheckHour $ \hour -> tell $ HashMap.singleton whenIsJust appQualificationCheckHour $ \hour -> tell $ HashMap.singleton
(JobCtlQueue JobLmsQualificationsDequeue) (JobCtlQueue JobLmsQualificationsDequeue)
Cron Cron
{ cronInitial = CronAsap -- time after scheduling { cronInitial = CronAsap -- time after scheduling
, cronRepeat = CronRepeatScheduled $ cronCalendarAny { cronDayOfWeek = CronMatchSome . impureNonNull . Set.fromList $ [1..7] , cronRepeat = CronRepeatScheduled $ cronCalendarAny { cronDayOfWeek = CronMatchSome . impureNonNull . Set.fromList $ [1..5]
, cronHour = cronMatchOne hour -- cronHour = CronMatchSome (impureNonNull $ Set.fromList [3,15] ) , cronHour = cronMatchOne hour -- cronHour = CronMatchSome (impureNonNull $ Set.fromList [3,15] )
, cronMinute = cronMatchOne 33 , cronMinute = cronMatchOne 33
, cronSecond = cronMatchOne 27 , cronSecond = cronMatchOne 27
} }
, cronRateLimit = nominalDay / 2 -- minimal time between two executions, before the second job is skipped , cronRateLimit = 0 -- minimal time between two executions, before the second job is skipped
, cronNotAfter = Left $ 1.5 * nominalDay -- maximal delay of an execution, before it is skipped entirely , cronNotAfter = Right CronNotScheduled -- maximal delay of an execution, before it is skipped entirely
} }
let let