|
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()
|
|
111
|
23 local Notify = require "site:/lib/Notify.luan"
|
|
|
24 local notify_active = Notify.active or error()
|
|
30
|
25 local Logging = require "luan:logging/Logging.luan"
|
|
|
26 local logger = Logging.logger "heartbeat.js"
|
|
|
27
|
|
|
28
|
|
|
29 return function()
|
|
103
|
30 local user = current_user()
|
|
|
31 if user == nil then
|
|
105
|
32 logger.warn("no user\n"..trim(Http.request.raw_head).."\n")
|
|
103
|
33 return
|
|
|
34 end
|
|
89
|
35 local spy = Http.request.cookies.spy ~= nil
|
|
|
36 if not spy then
|
|
|
37 set_online(user)
|
|
|
38 end
|
|
73
|
39 Io.stdout = Http.response.text_writer()
|
|
33
|
40
|
|
30
|
41 local last_update = Http.request.parameters.last_update or error()
|
|
46
|
42 last_update = to_number(last_update) or error(last_update)
|
|
30
|
43 local user_last_update = user.last_update()
|
|
92
|
44 if time_now() - user_last_update > 10000 and last_update < user_last_update then
|
|
73
|
45 logger.info "update"
|
|
|
46 %>
|
|
|
47 location = '/';
|
|
|
48 <%
|
|
30
|
49 return
|
|
|
50 end
|
|
73
|
51
|
|
111
|
52 local focus = Http.request.parameters.focus or error()
|
|
|
53 if focus == "true" then
|
|
|
54 notify_active(user)
|
|
|
55 end
|
|
|
56
|
|
73
|
57 local online = get_online(user)
|
|
30
|
58 %>
|
|
73
|
59 online = <%=json_string(online,compressed)%>;
|
|
|
60 showOnline();
|
|
30
|
61 <%
|
|
75
|
62 local chat = Http.request.parameters.chat
|
|
|
63 if chat ~= nil then
|
|
85
|
64 chat = get_chat_by_id(chat)
|
|
|
65 if chat == nil then
|
|
|
66 %>
|
|
|
67 location = '/';
|
|
|
68 <%
|
|
|
69 return
|
|
|
70 end
|
|
75
|
71 local my_user_id = user.id
|
|
|
72 for _, user_id in ipairs(chat.user_ids) do
|
|
|
73 if user_id == my_user_id then continue end
|
|
|
74 local user = get_user_by_id(user_id)
|
|
|
75 %>
|
|
|
76 readUpTo(<%=user_id%>,<%=json_string(user.name_html())%>,<%=chat.unread(user)%>);
|
|
|
77 <%
|
|
|
78 end
|
|
|
79 end
|
|
30
|
80 end
|
