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