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 "listener.h"
  23
  24 #include "stg/scriptexecuter.h"
  25 #include "stg/locker.h"
  26 #include "stg/common.h"
  27 #include "stg/const.h"
  28
  29 #include <sstream>
  30 #include <algorithm>
  31 #include <chrono>
  32 #include <csignal>
  33 #include <cerrno>
  34 #include <ctime>
  35 #include <cstring>
  36
  37 #include <arpa/inet.h>
  38 #include <sys/uio.h> // readv
  39 #include <sys/types.h> // for historical versions of BSD
  40 #include <sys/socket.h>
  41 #include <netinet/in.h>
  42 #include <unistd.h>
  43
  44 void InitEncrypt(BLOWFISH_CTX * ctx, const std::string & password);
  45
  46 //-----------------------------------------------------------------------------
  47 LISTENER::LISTENER()
  48     : WriteServLog(STG::Logger::get()),
  49       port(0),
  50       receiverStopped(true),
  51       processorStopped(true),
  52       userTimeout(0),
  53       listenSocket(0),
  54       version("rscriptd listener v.1.2")
  55 {
  56 }
  57 //-----------------------------------------------------------------------------
  58 void LISTENER::SetPassword(const std::string & p)
  59 {
  60 password = p;
  61 printfd(__FILE__, "Encryption initiated with password \'%s\'\n", password.c_str());
  62 InitEncrypt(&ctxS, password);
  63 }
  64 //-----------------------------------------------------------------------------
  65 bool LISTENER::Start()
  66 {
  67 printfd(__FILE__, "LISTENER::Start()\n");
  68
  69 if (PrepareNet())
  70     {
  71     return true;
  72     }
  73
  74 if (!m_receiverThread.joinable())
  75     m_receiverThread = std::jthread([this](auto token){ Run(std::move(token)); });
  76
  77 if (!m_processorThread.joinable())
  78     m_processorThread = std::jthread([this](auto token){ RunProcessor(std::move(token)); });
  79
  80 errorStr = "";
  81
  82 return false;
  83 }
  84 //-----------------------------------------------------------------------------
  85 bool LISTENER::Stop()
  86 {
  87 m_receiverThread.request_stop();
  88 m_processorThread.request_stop();
  89
  90 printfd(__FILE__, "LISTENER::Stop()\n");
  91
  92 std::this_thread::sleep_for(std::chrono::milliseconds(500));
  93
  94 if (!processorStopped)
  95     {
  96     //5 seconds to thread stops itself
  97     for (int i = 0; i < 25 && !processorStopped; i++)
  98         std::this_thread::sleep_for(std::chrono::milliseconds(200));
  99
 100     //after 5 seconds waiting thread still running. now killing it
 101     if (!processorStopped)
 102         {
 103         //TODO pthread_cancel()
 104         m_processorThread.detach();
 105         printfd(__FILE__, "LISTENER killed Timeouter\n");
 106         }
 107     }
 108
 109 if (!receiverStopped)
 110     {
 111     //5 seconds to thread stops itself
 112     for (int i = 0; i < 25 && !receiverStopped; i++)
 113         std::this_thread::sleep_for(std::chrono::milliseconds(200));
 114
 115     //after 5 seconds waiting thread still running. now killing it
 116     if (!receiverStopped)
 117         {
 118         //TODO pthread_cancel()
 119         m_receiverThread.detach();
 120         printfd(__FILE__, "LISTENER killed Run\n");
 121         }
 122     }
 123
 124 if (receiverStopped)
 125     m_receiverThread.join();
 126 if (processorStopped)
 127     m_processorThread.join();
 128
 129 FinalizeNet();
 130
 131 for (const auto& user : users)
 132     Disconnect(user);
 133
 134 printfd(__FILE__, "LISTENER::Stoped successfully.\n");
 135
 136 return false;
 137 }
 138 //-----------------------------------------------------------------------------
 139 void LISTENER::Run(std::stop_token token)
 140 {
 141 receiverStopped = false;
 142
 143 while (!token.stop_requested())
 144     RecvPacket(token);
 145
 146 receiverStopped = true;
 147 }
 148 //-----------------------------------------------------------------------------
 149 void LISTENER::RunProcessor(std::stop_token token)
 150 {
 151 processorStopped = false;
 152
 153 while (!token.stop_requested())
 154 {
 155     std::this_thread::sleep_for(std::chrono::milliseconds(500));
 156     if (!pending.empty())
 157         ProcessPending();
 158     ProcessTimeouts();
 159 }
 160
 161 processorStopped = true;
 162 }
 163 //-----------------------------------------------------------------------------
 164 bool LISTENER::PrepareNet()
 165 {
 166 listenSocket = socket(AF_INET, SOCK_DGRAM, 0);
 167
 168 if (listenSocket < 0)
 169     {
 170     errorStr = "Cannot create socket.";
 171     return true;
 172     }
 173
 174 struct sockaddr_in listenAddr;
 175 listenAddr.sin_family = AF_INET;
 176 listenAddr.sin_port = htons(port);
 177 listenAddr.sin_addr.s_addr = inet_addr("0.0.0.0");
 178
 179 if (bind(listenSocket, reinterpret_cast<sockaddr*>(&listenAddr), sizeof(listenAddr)) < 0)
 180     {
 181     errorStr = "LISTENER: Bind failed.";
 182     return true;
 183     }
 184
 185 printfd(__FILE__, "LISTENER::PrepareNet() >>>> Start successfull.\n");
 186
 187 return false;
 188 }
 189 //-----------------------------------------------------------------------------
 190 bool LISTENER::FinalizeNet()
 191 {
 192 close(listenSocket);
 193
 194 return false;
 195 }
 196 //-----------------------------------------------------------------------------
 197 bool LISTENER::RecvPacket(const std::stop_token& token)
 198 {
 199 struct iovec iov[2];
 200
 201 char buffer[RS_MAX_PACKET_LEN];
 202 RS::PACKET_HEADER packetHead;
 203
 204 iov[0].iov_base = reinterpret_cast<char *>(&packetHead);
 205 iov[0].iov_len = sizeof(packetHead);
 206 iov[1].iov_base = buffer;
 207 iov[1].iov_len = sizeof(buffer) - sizeof(packetHead);
 208
 209 size_t dataLen = 0;
 210 while (dataLen < sizeof(buffer))
 211     {
 212     if (!WaitPackets(listenSocket))
 213         {
 214         if (token.stop_requested())
 215             return false;
 216         continue;
 217         }
 218     int portion = readv(listenSocket, iov, 2);
 219     if (portion < 0)
 220         {
 221         return true;
 222         }
 223     dataLen += portion;
 224     }
 225
 226 if (CheckHeader(packetHead))
 227     {
 228     printfd(__FILE__, "Invalid packet or incorrect protocol version!\n");
 229     return true;
 230     }
 231
 232 std::string userLogin(reinterpret_cast<const char*>(packetHead.login));
 233 PendingData pd;
 234 pd.data.login = userLogin;
 235 pd.data.ip = ntohl(packetHead.ip);
 236 pd.data.id = ntohl(packetHead.id);
 237
 238 if (packetHead.packetType == RS_ALIVE_PACKET)
 239     {
 240     pd.type = PendingData::ALIVE;
 241     }
 242 else if (packetHead.packetType == RS_CONNECT_PACKET)
 243     {
 244     pd.type = PendingData::CONNECT;
 245     if (GetParams(buffer, pd.data))
 246         {
 247         return true;
 248         }
 249     }
 250 else if (packetHead.packetType == RS_DISCONNECT_PACKET)
 251     {
 252     pd.type = PendingData::DISCONNECT;
 253     if (GetParams(buffer, pd.data))
 254         {
 255         return true;
 256         }
 257     }
 258 else
 259     return true;
 260
 261 std::lock_guard lock(m_mutex);
 262 pending.push_back(pd);
 263
 264 return false;
 265 }
 266 //-----------------------------------------------------------------------------
 267 bool LISTENER::GetParams(char * buffer, UserData & data)
 268 {
 269 RS::PACKET_TAIL packetTail;
 270
 271 DecryptString(&packetTail, buffer, sizeof(packetTail), &ctxS);
 272
 273 if (strncmp(reinterpret_cast<const char*>(packetTail.magic), RS_ID, RS_MAGIC_LEN))
 274     {
 275     printfd(__FILE__, "Invalid crypto magic\n");
 276     return true;
 277     }
 278
 279 std::ostringstream params;
 280 params << "\"" << data.login << "\" "
 281        << inet_ntostring(data.ip) << " "
 282        << data.id << " "
 283        << reinterpret_cast<const char*>(packetTail.params);
 284
 285 data.params = params.str();
 286
 287 return false;
 288 }
 289 //-----------------------------------------------------------------------------
 290 void LISTENER::ProcessPending()
 291 {
 292 auto it = pending.begin();
 293 size_t count = 0;
 294 printfd(__FILE__, "Pending: %d\n", pending.size());
 295 while (it != pending.end() && count < 256)
 296     {
 297     auto uit = std::lower_bound(users.begin(), users.end(), it->data.login);
 298     if (it->type == PendingData::CONNECT)
 299         {
 300         printfd(__FILE__, "Connect packet\n");
 301         if (uit == users.end() || uit->data.login != it->data.login)
 302             {
 303             printfd(__FILE__, "Connect new user '%s'\n", it->data.login.c_str());
 304             // Add new user
 305             Connect(*it);
 306             users.insert(uit, AliveData(it->data));
 307             }
 308         else
 309             {
 310             printfd(__FILE__, "Update existing user '%s'\n", it->data.login.c_str());
 311             // Update already existing user
 312             time(&uit->lastAlive);
 313             uit->data.params = it->data.params;
 314             }
 315         }
 316     else if (it->type == PendingData::ALIVE)
 317         {
 318         printfd(__FILE__, "Alive packet\n");
 319         if (uit != users.end() && uit->data.login == it->data.login)
 320             {
 321             printfd(__FILE__, "Alive user '%s'\n", it->data.login.c_str());
 322             // Update existing user
 323             time(&uit->lastAlive);
 324             }
 325         else
 326             {
 327             printfd(__FILE__, "Alive user '%s' is not found\n", it->data.login.c_str());
 328             }
 329         }
 330     else if (it->type == PendingData::DISCONNECT)
 331         {
 332         printfd(__FILE__, "Disconnect packet\n");
 333         if (uit != users.end() && uit->data.login == it->data.login.c_str())
 334             {
 335             printfd(__FILE__, "Disconnect user '%s'\n", it->data.login.c_str());
 336             // Disconnect existing user
 337             uit->data.params = it->data.params;
 338             Disconnect(*uit);
 339             users.erase(uit);
 340             }
 341         else
 342             {
 343             printfd(__FILE__, "Cannot find user '%s' for disconnect\n", it->data.login.c_str());
 344             }
 345         }
 346     else
 347         {
 348         printfd(__FILE__, "Unknown packet type\n");
 349         }
 350     ++it;
 351     ++count;
 352     }
 353 std::lock_guard lock(m_mutex);
 354 pending.erase(pending.begin(), it);
 355 }
 356 //-----------------------------------------------------------------------------
 357 void LISTENER::ProcessTimeouts()
 358 {
 359 const auto now = time(nullptr);
 360 const auto it = std::stable_partition(users.begin(), users.end(), [this, now](const auto& data){ return difftime(now, data.lastAlive) < userTimeout; });
 361
 362 if (it != users.end())
 363     {
 364     printfd(__FILE__, "Total users: %d, users to disconnect: %d\n", users.size(), std::distance(it, users.end()));
 365
 366     std::for_each(it, users.end(), [this](const auto& user){ Disconnect(user);});
 367
 368     users.erase(it, users.end());
 369     }
 370 }
 371 //-----------------------------------------------------------------------------
 372 bool LISTENER::Connect(const PendingData & pd) const
 373 {
 374 printfd(__FILE__, "Connect %s\n", pd.data.login.c_str());
 375 if (access(scriptOnConnect.c_str(), X_OK) == 0)
 376     {
 377     if (ScriptExec((scriptOnConnect + " " + pd.data.params).c_str()))
 378         {
 379         WriteServLog("Script %s cannot be executed for an unknown reason.", scriptOnConnect.c_str());
 380         return true;
 381         }
 382     }
 383 else
 384     {
 385     WriteServLog("Script %s cannot be executed. File not found.", scriptOnConnect.c_str());
 386     return true;
 387     }
 388 return false;
 389 }
 390 //-----------------------------------------------------------------------------
 391 bool LISTENER::Disconnect(const AliveData& ad) const
 392 {
 393 printfd(__FILE__, "Disconnect %s\n", ad.data.login.c_str());
 394 if (access(scriptOnDisconnect.c_str(), X_OK) == 0)
 395     {
 396     if (ScriptExec((scriptOnDisconnect + " " + ad.data.params).c_str()))
 397         {
 398         WriteServLog("Script %s cannot be executed for an unknown reson.", scriptOnDisconnect.c_str());
 399         return true;
 400         }
 401     }
 402 else
 403     {
 404     WriteServLog("Script %s cannot be executed. File not found.", scriptOnDisconnect.c_str());
 405     return true;
 406     }
 407 return false;
 408 }
 409 //-----------------------------------------------------------------------------
 410 bool LISTENER::CheckHeader(const RS::PACKET_HEADER & header) const
 411 {
 412 if (strncmp(reinterpret_cast<const char*>(header.magic), RS_ID, RS_MAGIC_LEN))
 413     return true;
 414 if (strncmp(reinterpret_cast<const char*>(header.protoVer), "02", RS_PROTO_VER_LEN))
 415     return true;
 416 return false;
 417 }
 418 //-----------------------------------------------------------------------------
 419 void InitEncrypt(BLOWFISH_CTX * ctx, const std::string & password)
 420 {
 421 char keyL[PASSWD_LEN];
 422 memset(keyL, 0, PASSWD_LEN);
 423 strncpy(keyL, password.c_str(), PASSWD_LEN);
 424 Blowfish_Init(ctx, keyL, PASSWD_LEN);
 425 }
 426 //-----------------------------------------------------------------------------