]> git.stg.codes - stg.git/blob - projects/rscriptd/listener.cpp
Merge branch 'master' into full-month-stats
[stg.git] / projects / rscriptd / listener.cpp
1 /*
2  *    This program is free software; you can redistribute it and/or modify
3  *    it under the terms of the GNU General Public License as published by
4  *    the Free Software Foundation; either version 2 of the License, or
5  *    (at your option) any later version.
6  *
7  *    This program is distributed in the hope that it will be useful,
8  *    but WITHOUT ANY WARRANTY; without even the implied warranty of
9  *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
10  *    GNU General Public License for more details.
11  *
12  *    You should have received a copy of the GNU General Public License
13  *    along with this program; if not, write to the Free Software
14  *    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
15  */
16
17 /*
18  *    Author : Boris Mikhailenko <stg34@stargazer.dp.ua>
19  *    Author : Maxim Mamontov <faust@stargazer.dp.ua>
20  */
21
22 #include <arpa/inet.h>
23 #include <sys/uio.h> // readv
24 #include <sys/types.h> // for historical versions of BSD
25 #include <sys/socket.h>
26 #include <netinet/in.h>
27 #include <unistd.h>
28
29 #include <csignal>
30 #include <cerrno>
31 #include <ctime>
32 #include <cstring>
33 #include <sstream>
34 #include <algorithm>
35
36 #include "stg/scriptexecuter.h"
37 #include "stg/locker.h"
38 #include "stg/common.h"
39 #include "listener.h"
40
41 void InitEncrypt(BLOWFISH_CTX * ctx, const std::string & password);
42 void Decrypt(BLOWFISH_CTX * ctx, char * dst, const char * src, int len8);
43
44 //-----------------------------------------------------------------------------
45 LISTENER::LISTENER()
46     : WriteServLog(GetStgLogger()),
47       port(0),
48       running(false),
49       receiverStopped(true),
50       processorStopped(true),
51       userTimeout(0),
52       listenSocket(0)
53 {
54 version = "rscriptd listener v.1.2";
55
56 pthread_mutex_init(&mutex, NULL);
57 }
58 //-----------------------------------------------------------------------------
59 void LISTENER::SetPassword(const std::string & p)
60 {
61 password = p;
62 printfd(__FILE__, "Encryption initiated with password \'%s\'\n", password.c_str());
63 InitEncrypt(&ctxS, password);
64 }
65 //-----------------------------------------------------------------------------
66 bool LISTENER::Start()
67 {
68 printfd(__FILE__, "LISTENER::Start()\n");
69 running = true;
70
71 if (PrepareNet())
72     {
73     return true;
74     }
75
76 if (receiverStopped)
77     {
78     if (pthread_create(&receiverThread, NULL, Run, this))
79         {
80         errorStr = "Cannot create thread.";
81         return true;
82         }
83     }
84
85 if (processorStopped)
86     {
87     if (pthread_create(&processorThread, NULL, RunProcessor, this))
88         {
89         errorStr = "Cannot create thread.";
90         return true;
91         }
92     }
93
94 errorStr = "";
95
96 return false;
97 }
98 //-----------------------------------------------------------------------------
99 bool LISTENER::Stop()
100 {
101 running = false;
102
103 printfd(__FILE__, "LISTENER::Stop()\n");
104
105 struct timespec ts = {0, 500000000};
106 nanosleep(&ts, NULL);
107
108 if (!processorStopped)
109     {
110     //5 seconds to thread stops itself
111     for (int i = 0; i < 25 && !processorStopped; i++)
112         {
113         struct timespec ts = {0, 200000000};
114         nanosleep(&ts, NULL);
115         }
116
117     //after 5 seconds waiting thread still running. now killing it
118     if (!processorStopped)
119         {
120         //TODO pthread_cancel()
121         if (pthread_kill(processorThread, SIGINT))
122             {
123             errorStr = "Cannot kill thread.";
124             return true;
125             }
126         printfd(__FILE__, "LISTENER killed Timeouter\n");
127         }
128     }
129
130 if (!receiverStopped)
131     {
132     //5 seconds to thread stops itself
133     for (int i = 0; i < 25 && !receiverStopped; i++)
134         {
135         struct timespec ts = {0, 200000000};
136         nanosleep(&ts, NULL);
137         }
138
139     //after 5 seconds waiting thread still running. now killing it
140     if (!receiverStopped)
141         {
142         //TODO pthread_cancel()
143         if (pthread_kill(receiverThread, SIGINT))
144             {
145             errorStr = "Cannot kill thread.";
146             return true;
147             }
148         printfd(__FILE__, "LISTENER killed Run\n");
149         }
150     }
151
152 pthread_join(receiverThread, NULL);
153 pthread_join(processorThread, NULL);
154
155 pthread_mutex_destroy(&mutex);
156
157 FinalizeNet();
158
159 std::for_each(users.begin(), users.end(), DisconnectUser(*this));
160
161 printfd(__FILE__, "LISTENER::Stoped successfully.\n");
162
163 return false;
164 }
165 //-----------------------------------------------------------------------------
166 void * LISTENER::Run(void * d)
167 {
168 sigset_t signalSet;
169 sigfillset(&signalSet);
170 pthread_sigmask(SIG_BLOCK, &signalSet, NULL);
171
172 LISTENER * listener = static_cast<LISTENER *>(d);
173
174 listener->Runner();
175
176 return NULL;
177 }
178 //-----------------------------------------------------------------------------
179 void LISTENER::Runner()
180 {
181 receiverStopped = false;
182
183 while (running)
184     {
185     RecvPacket();
186     }
187
188 receiverStopped = true;
189 }
190 //-----------------------------------------------------------------------------
191 void * LISTENER::RunProcessor(void * d)
192 {
193 sigset_t signalSet;
194 sigfillset(&signalSet);
195 pthread_sigmask(SIG_BLOCK, &signalSet, NULL);
196
197 LISTENER * listener = static_cast<LISTENER *>(d);
198
199 listener->ProcessorRunner();
200
201 return NULL;
202 }
203 //-----------------------------------------------------------------------------
204 void LISTENER::ProcessorRunner()
205 {
206 processorStopped = false;
207
208 while (running)
209     {
210     struct timespec ts = {0, 500000000};
211     nanosleep(&ts, NULL);
212     if (!pending.empty())
213         ProcessPending();
214     ProcessTimeouts();
215     }
216
217 processorStopped = true;
218 }
219 //-----------------------------------------------------------------------------
220 bool LISTENER::PrepareNet()
221 {
222 listenSocket = socket(AF_INET, SOCK_DGRAM, 0);
223
224 if (listenSocket < 0)
225     {
226     errorStr = "Cannot create socket.";
227     return true;
228     }
229
230 struct sockaddr_in listenAddr;
231 listenAddr.sin_family = AF_INET;
232 listenAddr.sin_port = htons(port);
233 listenAddr.sin_addr.s_addr = inet_addr("0.0.0.0");
234
235 if (bind(listenSocket, (struct sockaddr*)&listenAddr, sizeof(listenAddr)) < 0)
236     {
237     errorStr = "LISTENER: Bind failed.";
238     return true;
239     }
240
241 printfd(__FILE__, "LISTENER::PrepareNet() >>>> Start successfull.\n");
242
243 return false;
244 }
245 //-----------------------------------------------------------------------------
246 bool LISTENER::FinalizeNet()
247 {
248 close(listenSocket);
249
250 return false;
251 }
252 //-----------------------------------------------------------------------------
253 bool LISTENER::RecvPacket()
254 {
255 struct iovec iov[2];
256
257 char buffer[RS_MAX_PACKET_LEN];
258 RS_PACKET_HEADER packetHead;
259
260 iov[0].iov_base = reinterpret_cast<char *>(&packetHead);
261 iov[0].iov_len = sizeof(packetHead);
262 iov[1].iov_base = buffer;
263 iov[1].iov_len = sizeof(buffer) - sizeof(packetHead);
264
265 size_t dataLen = 0;
266 while (dataLen < sizeof(buffer))
267     {
268     if (!WaitPackets(listenSocket))
269         {
270         if (!running)
271             return false;
272         continue;
273         }
274     int portion = readv(listenSocket, iov, 2);
275     if (portion < 0)
276         {
277         return true;
278         }
279     dataLen += portion;
280     }
281
282 if (CheckHeader(packetHead))
283     {
284     printfd(__FILE__, "Invalid packet or incorrect protocol version!\n");
285     return true;
286     }
287
288 std::string userLogin((char *)packetHead.login);
289 PendingData data;
290 data.login = userLogin;
291 data.ip = ntohl(packetHead.ip);
292 data.id = ntohl(packetHead.id);
293
294 if (packetHead.packetType == RS_ALIVE_PACKET)
295     {
296     data.type = PendingData::ALIVE;
297     }
298 else if (packetHead.packetType == RS_CONNECT_PACKET)
299     {
300     data.type = PendingData::CONNECT;
301     if (GetParams(buffer, data))
302         {
303         return true;
304         }
305     }
306 else if (packetHead.packetType == RS_DISCONNECT_PACKET)
307     {
308     data.type = PendingData::DISCONNECT;
309     if (GetParams(buffer, data))
310         {
311         return true;
312         }
313     }
314
315 STG_LOCKER lock(&mutex, __FILE__, __LINE__);
316 pending.push_back(data);
317
318 return false;
319 }
320 //-----------------------------------------------------------------------------
321 bool LISTENER::GetParams(char * buffer, UserData & data)
322 {
323 RS_PACKET_TAIL packetTail;
324
325 Decrypt(&ctxS, (char *)&packetTail, buffer, sizeof(packetTail) / 8);
326
327 if (strncmp((char *)packetTail.magic, RS_ID, RS_MAGIC_LEN))
328     {
329     printfd(__FILE__, "Invalid crypto magic\n");
330     return true;
331     }
332
333 std::stringstream params;
334 params << "\"" << data.login << "\" "
335        << inet_ntostring(data.ip) << " "
336        << data.id << " "
337        << (char *)packetTail.params;
338
339 data.params = params.str();
340
341 return false;
342 }
343 //-----------------------------------------------------------------------------
344 void LISTENER::ProcessPending()
345 {
346 std::list<PendingData>::iterator it(pending.begin());
347 size_t count = 0;
348 printfd(__FILE__, "Pending: %d\n", pending.size());
349 while (it != pending.end() && count < 256)
350     {
351     std::vector<AliveData>::iterator uit(
352             std::lower_bound(
353                 users.begin(),
354                 users.end(),
355                 it->login)
356             );
357     if (it->type == PendingData::CONNECT)
358         {
359         if (uit == users.end() || uit->login != it->login)
360             {
361             // Add new user
362             Connect(*it);
363             users.insert(uit, AliveData(static_cast<UserData>(*it)));
364             }
365         else if (uit->login == it->login)
366             {
367             // Update already existing user
368             time(&uit->lastAlive);
369             uit->params = it->params;
370             }
371         }
372     else if (it->type == PendingData::ALIVE)
373         {
374         if (uit != users.end() && uit->login == it->login)
375             {
376             // Update existing user
377             time(&uit->lastAlive);
378             }
379         }
380     else if (it->type == PendingData::DISCONNECT)
381         {
382         if (uit != users.end() && uit->login == it->login.c_str())
383             {
384             // Disconnect existing user
385             Disconnect(*uit);
386             users.erase(uit);
387             }
388         }
389     ++it;
390     ++count;
391     }
392 STG_LOCKER lock(&mutex, __FILE__, __LINE__);
393 pending.erase(pending.begin(), it);
394 }
395 //-----------------------------------------------------------------------------
396 void LISTENER::ProcessTimeouts()
397 {
398 const std::vector<AliveData>::iterator it(
399         std::stable_partition(
400             users.begin(),
401             users.end(),
402             IsNotTimedOut(userTimeout)
403         )
404     );
405
406 if (it != users.end())
407     {
408     printfd(__FILE__, "Total users: %d, users to disconnect: %d\n", users.size(), std::distance(it, users.end()));
409
410     std::for_each(
411             it,
412             users.end(),
413             DisconnectUser(*this)
414         );
415
416     users.erase(it, users.end());
417     }
418 }
419 //-----------------------------------------------------------------------------
420 bool LISTENER::Connect(const UserData & data) const
421 {
422 printfd(__FILE__, "Connect %s\n", data.login.c_str());
423 if (access(scriptOnConnect.c_str(), X_OK) == 0)
424     {
425     if (ScriptExec((scriptOnConnect + " " + data.params).c_str()))
426         {
427         WriteServLog("Script %s cannot be executed for an unknown reason.", scriptOnConnect.c_str());
428         return true;
429         }
430     }
431 else
432     {
433     WriteServLog("Script %s cannot be executed. File not found.", scriptOnConnect.c_str());
434     return true;
435     }
436 return false;
437 }
438 //-----------------------------------------------------------------------------
439 bool LISTENER::Disconnect(const UserData & data) const
440 {
441 printfd(__FILE__, "Disconnect %s\n", data.login.c_str());
442 if (access(scriptOnDisconnect.c_str(), X_OK) == 0)
443     {
444     if (ScriptExec((scriptOnDisconnect + " " + data.params).c_str()))
445         {
446         WriteServLog("Script %s cannot be executed for an unknown reson.", scriptOnDisconnect.c_str());
447         return true;
448         }
449     }
450 else
451     {
452     WriteServLog("Script %s cannot be executed. File not found.", scriptOnDisconnect.c_str());
453     return true;
454     }
455 return false;
456 }
457 //-----------------------------------------------------------------------------
458 bool LISTENER::CheckHeader(const RS_PACKET_HEADER & header) const
459 {
460 if (strncmp((char *)header.magic, RS_ID, RS_MAGIC_LEN))
461     {
462     return true;
463     }
464 if (strncmp((char *)header.protoVer, "02", RS_PROTO_VER_LEN))
465     {
466     return true;
467     }
468 return false;
469 }
470 //-----------------------------------------------------------------------------
471 inline
472 void InitEncrypt(BLOWFISH_CTX * ctx, const std::string & password)
473 {
474 unsigned char keyL[PASSWD_LEN];
475 memset(keyL, 0, PASSWD_LEN);
476 strncpy((char *)keyL, password.c_str(), PASSWD_LEN);
477 Blowfish_Init(ctx, keyL, PASSWD_LEN);
478 }
479 //-----------------------------------------------------------------------------
480 inline
481 void Decrypt(BLOWFISH_CTX * ctx, char * dst, const char * src, int len8)
482 {
483 if (dst != src)
484     memcpy(dst, src, len8 * 8);
485
486 for (int i = 0; i < len8; i++)
487     Blowfish_Decrypt(ctx, (uint32_t *)(dst + i * 8), (uint32_t *)(dst + i * 8 + 4));
488 }
489 //-----------------------------------------------------------------------------