diff options
| author | Eugen Wissner <belka@caraus.de> | 2025-04-13 12:10:56 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2025-04-13 12:10:56 +0200 |
| commit | 0e6de99821d2262ada8e277fba1eb6059858ea41 (patch) | |
| tree | 7a2c6f2d11e7c696eabd92cc8db2d955d3ed4f3c /tea-cleaner/TeaCleaner/Filter.hs | |
| parent | 5a4c882d409e4051001cdd64cbcef9a98fc2c6cf (diff) | |
| download | kazbek-0e6de99821d2262ada8e277fba1eb6059858ea41.tar.gz | |
tea-cleaner: Make no login period configurable
Diffstat (limited to 'tea-cleaner/TeaCleaner/Filter.hs')
| -rw-r--r-- | tea-cleaner/TeaCleaner/Filter.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tea-cleaner/TeaCleaner/Filter.hs b/tea-cleaner/TeaCleaner/Filter.hs index 434825a..f7d3315 100644 --- a/tea-cleaner/TeaCleaner/Filter.hs +++ b/tea-cleaner/TeaCleaner/Filter.hs @@ -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 |