maralorn/nixos-config
1
0
Fork 0
Code Wiki Activity

Slight tweak to matrix-cleanup

Browse source
This commit is contained in:
Malte Brandy 2021-01-26 02:52:38 +01:00
parent fd9985484b
commit 66aa5d5df5
2 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
nixos/roles/matrix-synapse/default.nix
View file

@ -3,9 +3,9 @@ let
server_name = "maralorn.de";
hostName = "matrix.${server_name}";
in {
systemd.services."matrix-cleanup" = {
systemd.services."synapse-cleanup" = {
serviceConfig = {
ExecStart = pkgs.writeHaskell "matrix-cleanup" {
ExecStart = pkgs.writeHaskell "synapse-cleanup" {
libraries = builtins.attrValues pkgs.myHaskellScriptPackages ++ [
pkgs.haskellPackages.postgresql-simple
pkgs.haskellPackages.HTTP

11
nixos/roles/matrix-synapse/synapse-cleanup.hs
View file

@ -71,16 +71,16 @@ main = do
. getRequest
$ [i|#{apiUrl}/purge_history_status/#{purgeId}|]
case response of
Left _ -> pure "failed"
Left e -> pure [i|purge failed with error: #{e}|]
Right resp -> do
let res =
maybe "failed" status (decode . encodeUtf8 . rspBody $ resp)
if res == "active" then go (timeout * 2) else pure res
e <- simpleHTTP
maybe [i|couldn‘t parse purge response #{rspBody resp}|] status (decode . encodeUtf8 . rspBody $ resp)
if res == "active" then go (min (timeout * 2) 60) else pure res
say "Pruning remote media ..."
_ <- simpleHTTP
. setAuth
. postRequest
$ [i|#{apiUrl}/purge_media_cache/?before_ts=#{upToTimeStamp}|]
sayShow e
roomIds <- fromOnly @Text <<$>> query
conn
"SELECT q.room_id FROM (select count(*) as numberofusers, room_id FROM current_state_events WHERE type ='m.room.member' GROUP BY room_id) AS q LEFT JOIN room_aliases a ON q.room_id=a.room_id WHERE q.numberofusers > ? ORDER BY numberofusers desc"
@ -123,3 +123,4 @@ main = do
say [i|Purge result: #{result}|]
)
(decode . encodeUtf8 . rspBody $ resp)
-- TODO: run matrix-state-optimizer