Mercurial Hosting > chat
comparison src/add_to_chat.js.luan @ 83:a47036fd0158
group chat
| author | Franklin Schmidt <fschmidt@gmail.com> |
|---|---|
| date | Tue, 11 Mar 2025 13:56:59 -0600 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 82:0bc5e0d098f7 | 83:a47036fd0158 |
|---|---|
| 1 local Luan = require "luan:Luan.luan" | |
| 2 local error = Luan.error | |
| 3 local pairs = Luan.pairs or error() | |
| 4 local Table = require "luan:Table.luan" | |
| 5 local concat = Table.concat or error() | |
| 6 local Html = require "luan:Html.luan" | |
| 7 local url_encode = Html.url_encode or error() | |
| 8 local Io = require "luan:Io.luan" | |
| 9 local Http = require "luan:http/Http.luan" | |
| 10 local User = require "site:/lib/User.luan" | |
| 11 local get_user_by_email = User.get_by_email or error() | |
| 12 local get_user_by_id = User.get_by_id or error() | |
| 13 local current_user = User.current or error() | |
| 14 local Chat = require "site:/lib/Chat.luan" | |
| 15 local get_chat_by_id = Chat.get_by_id or error() | |
| 16 local Utils = require "site:/lib/Utils.luan" | |
| 17 local list_to_set = Utils.list_to_set or error() | |
| 18 | |
| 19 | |
| 20 return function() | |
| 21 local email = Http.request.parameters.email or error() | |
| 22 local add_user = get_user_by_email(email) | |
| 23 Io.stdout = Http.response.text_writer() | |
| 24 if add_user == nil then | |
| 25 %> | |
| 26 addToChatError('email not found'); | |
| 27 <% | |
| 28 return | |
| 29 end | |
| 30 local user = current_user() or error() | |
| 31 local chat = Http.request.parameters.chat or error() | |
| 32 chat = get_chat_by_id(chat) or error() | |
| 33 local set = list_to_set(chat.user_ids) | |
| 34 set[user.id] or error() | |
| 35 set[add_user.id] = true | |
| 36 local t = {} | |
| 37 for id in pairs(set) do | |
| 38 local user = get_user_by_id(id) | |
| 39 t[#t+1] = "with="..url_encode(user.email) | |
| 40 end | |
| 41 %> | |
| 42 location = 'chat?<%= concat(t,"&") %>'; | |
| 43 <% | |
| 44 end |