|
0
|
1 local Luan = require "luan:Luan.luan"
|
|
|
2 local error = Luan.error
|
|
|
3 local ipairs = Luan.ipairs or error()
|
|
1
|
4 local parse = Luan.parse or error()
|
|
|
5 local Io = require "luan:Io.luan"
|
|
|
6 local uri = Io.uri or error()
|
|
3
|
7 local Time = require "luan:Time.luan"
|
|
|
8 local Thread = require "luan:Thread.luan"
|
|
|
9 local thread_run = Thread.run or error()
|
|
12
|
10 local Html = require "luan:Html.luan"
|
|
|
11 local html_encode = Html.encode or error()
|
|
16
|
12 local Http = require "luan:http/Http.luan"
|
|
3
|
13 local Mail = require "luan:mail/Mail.luan"
|
|
2
|
14 local User = require "site:/lib/User.luan"
|
|
|
15 local current_user = User.current or error()
|
|
12
|
16 local get_user_by_id = User.get_by_id or error()
|
|
15
|
17 local Chat = require "site:/lib/Chat.luan"
|
|
|
18 local chat_search = Chat.search or error()
|
|
16
|
19 local Utils = require "site:/lib/Utils.luan"
|
|
|
20 local base_url = Utils.base_url or error()
|
|
0
|
21
|
|
|
22
|
|
|
23 local Shared = {}
|
|
|
24
|
|
3
|
25 local started = Time.now()
|
|
10
|
26 Shared.started = started
|
|
3
|
27
|
|
0
|
28 function Shared.head()
|
|
|
29 %>
|
|
|
30 <meta name="viewport" content="width=device-width, initial-scale=1">
|
|
3
|
31 <title>Web Chat</title>
|
|
0
|
32 <style>
|
|
3
|
33 @import "/site.css?s=<%=started%>";
|
|
0
|
34 </style>
|
|
3
|
35 <script src="/site.js?s=<%=started%>"></script>
|
|
0
|
36 <%
|
|
|
37 end
|
|
|
38
|
|
|
39 local function header(crumbs)
|
|
2
|
40 local user = current_user()
|
|
0
|
41 %>
|
|
|
42 <div header>
|
|
2
|
43 <span>
|
|
|
44 <a href="/">Web Chat</a>
|
|
0
|
45 <% for _, crumb in ipairs(crumbs or {}) do %>
|
|
2
|
46 / <%=crumb%>
|
|
0
|
47 <% end %>
|
|
2
|
48 </span>
|
|
|
49 <span>
|
|
|
50 <% if user == nil then %>
|
|
|
51 <a href="/login.html">Login / Register</a>
|
|
|
52 <% else %>
|
|
|
53 <a href="/account.html"><%= user.email %></a>
|
|
|
54 <% end %>
|
|
|
55 </span>
|
|
0
|
56 </div>
|
|
|
57 <%
|
|
|
58 end
|
|
|
59 Shared.header = header
|
|
|
60
|
|
|
61 function Shared.private_header()
|
|
|
62 header{
|
|
|
63 [[<a href="/private/">private</a>]]
|
|
|
64 [[<a href="/private/tools/">tools</a>]]
|
|
|
65 }
|
|
|
66 end
|
|
|
67
|
|
1
|
68 local config_file = uri("site:/private/local/config.luano")
|
|
|
69 Shared.config_file = config_file
|
|
|
70
|
|
|
71 do
|
|
|
72 if config_file.exists() then
|
|
|
73 Shared.config = parse( config_file.read_text() )
|
|
|
74 else
|
|
|
75 Shared.config = {
|
|
|
76 mail_server = {
|
|
|
77 host = "smtpcorp.com"
|
|
|
78 port = 465
|
|
|
79 username = "xxx"
|
|
|
80 password = "xxx"
|
|
|
81 }
|
|
|
82 }
|
|
|
83 end
|
|
|
84 end
|
|
|
85
|
|
3
|
86 local send_mail = Mail.sender(Shared.config.mail_server).send
|
|
40
|
87 Shared.send_mail = send_mail
|
|
3
|
88
|
|
|
89 function Shared.send_mail_async(mail)
|
|
|
90 thread_run( function()
|
|
|
91 send_mail(mail)
|
|
|
92 end )
|
|
|
93 end
|
|
|
94
|
|
12
|
95 function Shared.post_html(post)
|
|
22
|
96 local author_id = post.author_id
|
|
|
97 local user = current_user() or error()
|
|
|
98 local author = get_user_by_id(author_id)
|
|
12
|
99 local id = post.id
|
|
|
100 %>
|
|
35
|
101 <div post="<%=id%>" author="<%=author.id%>" fix>
|
|
|
102 <div who>
|
|
12
|
103 <span author><%=author.email%></span>
|
|
34
|
104 <span right>
|
|
35
|
105 <span when><%=post.date%></span>
|
|
|
106 <span pulldown></span>
|
|
34
|
107 </span>
|
|
12
|
108 </div>
|
|
35
|
109 <div text><%= html_encode(post.content) %></div>
|
|
12
|
110 </div>
|
|
|
111 <%
|
|
|
112 end
|
|
|
113
|
|
33
|
114 local function chat_other_users_html(chat,user)
|
|
|
115 local my_id = user.id
|
|
|
116 local is_first = true
|
|
|
117 for _, user_id in ipairs(chat.user_ids) do
|
|
|
118 if user_id ~= my_id then
|
|
|
119 local other_user = get_user_by_id(user_id) or error()
|
|
|
120 if is_first then
|
|
|
121 is_first = false
|
|
|
122 else
|
|
|
123 %>, <%
|
|
|
124 end
|
|
34
|
125 %><span email><%= other_user.email %></span><span online="<%= other_user.id %>"></span><%
|
|
33
|
126 end
|
|
|
127 end
|
|
|
128 end
|
|
|
129 Shared.chat_other_users_html = chat_other_users_html
|
|
|
130
|
|
15
|
131 function Shared.chats_html()
|
|
|
132 local user = current_user() or error()
|
|
|
133 local chats = chat_search( "chat_user_ids:"..user.id, "chat_updated desc" )
|
|
|
134 for _, chat in ipairs(chats) do
|
|
|
135 %>
|
|
33
|
136 <div chat="<%=chat.id%>" onclick="selectChat(this)"><% chat_other_users_html(chat,user) %></div>
|
|
15
|
137 <%
|
|
|
138 end
|
|
|
139 end
|
|
|
140
|
|
16
|
141 function Shared.http_push_to_users(user_ids,message)
|
|
|
142 local base = base_url().."/user/"
|
|
|
143 for _, user_id in ipairs(user_ids) do
|
|
|
144 local url = base..user_id
|
|
|
145 Http.push(url,message)
|
|
|
146 end
|
|
|
147 end
|
|
|
148
|
|
0
|
149 return Shared
|
