diff src/delete_old.js.luan @ 107:ed1418c95488

delete old messages
author Franklin Schmidt <fschmidt@gmail.com>
date Wed, 03 Sep 2025 12:36:57 -0600
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/delete_old.js.luan	Wed Sep 03 12:36:57 2025 -0600
@@ -0,0 +1,36 @@
+local Luan = require "luan:Luan.luan"
+local error = Luan.error
+local range = Luan.range or error()
+local Io = require "luan:Io.luan"
+local Http = require "luan:http/Http.luan"
+local User = require "site:/lib/User.luan"
+local current_user = User.current or error()
+local Chat = require "site:/lib/Chat.luan"
+local get_chat_by_id = Chat.get_by_id or error()
+local Shared = require "site:/lib/Shared.luan"
+local http_push_to_users = Shared.http_push_to_users or error()
+local Utils = require "site:/lib/Utils.luan"
+local is_in_list = Utils.is_in_list or error()
+local Post = require "site:/lib/Post.luan"
+local post_search = Post.search or error()
+local Logging = require "luan:logging/Logging.luan"
+local logger = Logging.logger "delete_old.js"
+
+
+local function delete_old(chat)
+	local posts = post_search( "post_chat_id:"..chat.id, "id" )
+	for i in range( 1, #posts // 2 ) do
+		posts[i].delete()
+	end
+end
+
+return function()
+	local chat = Http.request.parameters.chat or error()
+	chat = get_chat_by_id(chat) or error()
+	local user_ids = chat.user_ids
+	local user = current_user() or error()
+	is_in_list( user.id, user_ids ) or error()
+	delete_old(chat)
+	local js = "location.reload()"
+	chat.http_push(js)
+end