belka/kazbek
1
0
Fork 0
Code Issues Pull Requests Releases Activity

tea-cleaner: Make no login period configurable

Browse Source
This commit is contained in:
Eugen Wissner
2025-04-13 12:10:56 +02:00
parent 5a4c882d40
commit 0e6de99821
5 changed files with 22 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
tea-cleaner/TeaCleaner/Filter.hs
View File

@ -48,8 +48,9 @@ filterByUserProperties settings user@User{ created, lastLogin }
= not (Text.null $ getField @"description" user)
&& not (Text.null $ getField @"website" user)
noLoginSinceRegistration =
let monthAgo = utctDay $ addUTCTime (-2592000) $ getField @"now" settings
in zonedDay created < monthAgo && zonedDay created == zonedDay lastLogin
let period = fromIntegral (getField @"noLogin" settings) * (-3600) * 24
periodAgo = utctDay $ addUTCTime period $ getField @"now" settings
in zonedDay created < periodAgo && zonedDay created == zonedDay lastLogin
zonedDay = localDay . zonedTimeToLocalTime
filterByActivities :: Settings -> User -> IO FilterResult