|
30
|
1 local Luan = require "luan:Luan.luan"
|
|
|
2 local error = Luan.error
|
|
75
|
3 local ipairs = Luan.ipairs or error()
|
|
30
|
4 local String = require "luan:String.luan"
|
|
|
5 local to_number = String.to_number or error()
|
|
103
|
6 local trim = String.trim or error()
|
|
73
|
7 local Parsers = require "luan:Parsers.luan"
|
|
|
8 local json_string = Parsers.json_string or error()
|
|
30
|
9 local Time = require "luan:Time.luan"
|
|
|
10 local time_now = Time.now or error()
|
|
|
11 local Io = require "luan:Io.luan"
|
|
|
12 local Http = require "luan:http/Http.luan"
|
|
|
13 local User = require "site:/lib/User.luan"
|
|
|
14 local current_user = User.current or error()
|
|
75
|
15 local get_user_by_id = User.get_by_id or error()
|
|
33
|
16 local Shared = require "site:/lib/Shared.luan"
|
|
73
|
17 local compressed = Shared.compressed or error()
|
|
|
18 local Online = require "site:/lib/Online.luan"
|
|
|
19 local set_online = Online.set or error()
|
|
|
20 local get_online = Online.get or error()
|
|
75
|
21 local Chat = require "site:/lib/Chat.luan"
|
|
|
22 local get_chat_by_id = Chat.get_by_id or error()
|
|
30
|
23 local Logging = require "luan:logging/Logging.luan"
|
|
|
24 local logger = Logging.logger "heartbeat.js"
|
|
|
25
|
|
|
26
|
|
|
27 return function()
|
|
103
|
28 local user = current_user()
|
|
|
29 if user == nil then
|
|
|
30 logger.error("no user\n"..trim(Http.request.raw_head).."\n")
|
|
|
31 %>
|
|
|
32 location = '/';
|
|
|
33 <%
|
|
|
34 return
|
|
|
35 end
|
|
89
|
36 local spy = Http.request.cookies.spy ~= nil
|
|
|
37 if not spy then
|
|
|
38 set_online(user)
|
|
|
39 end
|
|
73
|
40 Io.stdout = Http.response.text_writer()
|
|
33
|
41
|
|
30
|
42 local last_update = Http.request.parameters.last_update or error()
|
|
46
|
43 last_update = to_number(last_update) or error(last_update)
|
|
30
|
44 local user_last_update = user.last_update()
|
|
92
|
45 if time_now() - user_last_update > 10000 and last_update < user_last_update then
|
|
73
|
46 logger.info "update"
|
|
|
47 %>
|
|
|
48 location = '/';
|
|
|
49 <%
|
|
30
|
50 return
|
|
|
51 end
|
|
73
|
52
|
|
|
53 local online = get_online(user)
|
|
30
|
54 %>
|
|
73
|
55 online = <%=json_string(online,compressed)%>;
|
|
|
56 showOnline();
|
|
30
|
57 <%
|
|
75
|
58 local chat = Http.request.parameters.chat
|
|
|
59 if chat ~= nil then
|
|
85
|
60 chat = get_chat_by_id(chat)
|
|
|
61 if chat == nil then
|
|
|
62 %>
|
|
|
63 location = '/';
|
|
|
64 <%
|
|
|
65 return
|
|
|
66 end
|
|
75
|
67 local my_user_id = user.id
|
|
|
68 for _, user_id in ipairs(chat.user_ids) do
|
|
|
69 if user_id == my_user_id then continue end
|
|
|
70 local user = get_user_by_id(user_id)
|
|
|
71 %>
|
|
|
72 readUpTo(<%=user_id%>,<%=json_string(user.name_html())%>,<%=chat.unread(user)%>);
|
|
|
73 <%
|
|
|
74 end
|
|
|
75 end
|
|
30
|
76 end
|
