src/message.cpp

   1 /*       +------------------------------------+
   2  *       | Inspire Internet Relay Chat Daemon |
   3  *       +------------------------------------+
   4  *
   5  *  Inspire is copyright (C) 2002-2004 ChatSpike-Dev.
   6  *                       E-mail:
   7  *                <brain@chatspike.net>
   8  *                <Craig@chatspike.net>
   9  *
  10  * Written by Craig Edwards, Craig McLure, and others.
  11  * This program is free but copyrighted software; see
  12  *            the file COPYING for details.
  13  *
  14  * ---------------------------------------------------
  15  */
  16
  17 #include "inspircd.h"
  18 #include "inspircd_io.h"
  19 #include "inspircd_util.h"
  20 #include "inspircd_config.h"
  21 #include <unistd.h>
  22 #include <fcntl.h>
  23 #include <sys/errno.h>
  24 #include <sys/ioctl.h>
  25 #include <sys/utsname.h>
  26 #include <cstdio>
  27 #include <time.h>
  28 #include <string>
  29 #ifdef GCC3
  30 #include <ext/hash_map>
  31 #else
  32 #include <hash_map>
  33 #endif
  34 #include <map>
  35 #include <sstream>
  36 #include <vector>
  37 #include <errno.h>
  38 #include <deque>
  39 #include <errno.h>
  40 #include <unistd.h>
  41 #include <sched.h>
  42 #include "connection.h"
  43 #include "users.h"
  44 #include "servers.h"
  45 #include "ctables.h"
  46 #include "globals.h"
  47 #include "modules.h"
  48 #include "dynamic.h"
  49 #include "wildcard.h"
  50 #include "message.h"
  51 #include "inspstring.h"
  52 #include "dns.h"
  53
  54 using namespace std;
  55
  56 extern int MODCOUNT;
  57 extern std::vector<Module*> modules;
  58 extern std::vector<ircd_module*> factory;
  59
  60 extern char ServerName[MAXBUF];
  61
  62 extern time_t TIME;
  63
  64 extern FILE *log_file;
  65 extern char DNSServer[MAXBUF];
  66
  67 /* return 0 or 1 depending if users u and u2 share one or more common channels
  68  * (used by QUIT, NICK etc which arent channel specific notices) */
  69
  70 int common_channels(userrec *u, userrec *u2)
  71 {
  72         if ((!u) || (!u2))
  73         {
  74                 log(DEFAULT,"*** BUG *** common_channels was given an invalid parameter");
  75                 return 0;
  76         }
  77         for (int i = 0; i != MAXCHANS; i++)
  78         {
  79                 for (int z = 0; z != MAXCHANS; z++)
  80                 {
  81                         if ((u->chans[i].channel != NULL) && (u2->chans[z].channel != NULL))
  82                         {
  83                                 if ((!strcasecmp(u->chans[i].channel->name,u2->chans[z].channel->name)) && (u->chans[i].channel) && (u2->chans[z].channel) && (u->registered == 7) && (u2->registered == 7))
  84                                 {
  85                                         if ((c_count(u)) && (c_count(u2)))
  86                                         {
  87                                                 return 1;
  88                                         }
  89                                 }
  90                         }
  91                 }
  92         }
  93         return 0;
  94 }
  95
  96
  97 void safedelete(userrec *p)
  98 {
  99         if (p)
 100         {
 101                 log(DEBUG,"deleting %s %s %s %s",p->nick,p->ident,p->dhost,p->fullname);
 102                 log(DEBUG,"safedelete(userrec*): pointer is safe to delete");
 103                 delete p;
 104                 p = NULL;
 105         }
 106         else
 107         {
 108                 log(DEBUG,"safedelete(userrec*): unsafe pointer operation squished");
 109         }
 110 }
 111
 112 void safedelete(chanrec *p)
 113 {
 114         if (p)
 115         {
 116                 delete p;
 117                 p = NULL;
 118                 log(DEBUG,"safedelete(chanrec*): pointer is safe to delete");
 119         }
 120         else
 121         {
 122                 log(DEBUG,"safedelete(chanrec*): unsafe pointer operation squished");
 123         }
 124 }
 125
 126
 127 void tidystring(char* str)
 128 {
 129         // strips out double spaces before a : parameter
 130
 131         char temp[MAXBUF];
 132         bool go_again = true;
 133
 134         if (!str)
 135         {
 136                 return;
 137         }
 138
 139         while ((str[0] == ' ') && (strlen(str)>0))
 140         {
 141                 str++;
 142         }
 143
 144         while (go_again)
 145         {
 146                 bool noparse = false;
 147                 int t = 0, a = 0;
 148                 go_again = false;
 149                 while (a < strlen(str))
 150                 {
 151                         if ((a<strlen(str)-1) && (noparse==false))
 152                         {
 153                                 if ((str[a] == ' ') && (str[a+1] == ' '))
 154                                 {
 155                                         log(DEBUG,"Tidied extra space out of string: %s",str);
 156                                         go_again = true;
 157                                         a++;
 158                                 }
 159                         }
 160
 161                         if (a<strlen(str)-1)
 162                         {
 163                                 if ((str[a] == ' ') && (str[a+1] == ':'))
 164                                 {
 165                                         noparse = true;
 166                                 }
 167                         }
 168
 169                         temp[t++] = str[a++];
 170                 }
 171                 temp[t] = '\0';
 172                 strlcpy(str,temp,MAXBUF);
 173         }
 174 }
 175
 176 /* chop a string down to 512 characters and preserve linefeed (irc max
 177  * line length) */
 178
 179 void chop(char* str)
 180 {
 181         if (!str)
 182         {
 183                 log(DEBUG,"ERROR! Null string passed to chop()!");
 184                 return;
 185         }
 186         string temp = str;
 187         FOREACH_MOD OnServerRaw(temp,false,NULL);
 188         const char* str2 = temp.c_str();
 189         snprintf(str,MAXBUF,"%s",str2);
 190         if (strlen(str) >= 512)
 191         {
 192                 str[509] = '\r';
 193                 str[510] = '\n';
 194                 str[511] = '\0';
 195         }
 196 }
 197
 198
 199 void Blocking(int s)
 200 {
 201         int flags;
 202         log(DEBUG,"Blocking: %d",s);
 203         flags = fcntl(s, F_GETFL, 0);
 204         fcntl(s, F_SETFL, flags ^ O_NONBLOCK);
 205 }
 206
 207 void NonBlocking(int s)
 208 {
 209         int flags;
 210         log(DEBUG,"NonBlocking: %d",s);
 211         flags = fcntl(s, F_GETFL, 0);
 212         fcntl(s, F_SETFL, flags | O_NONBLOCK);
 213 }
 214
 215 int CleanAndResolve (char *resolvedHost, const char *unresolvedHost)
 216 {
 217         DNS d(DNSServer);
 218         int fd = d.ReverseLookup(unresolvedHost);
 219         if (fd < 1)
 220                 return 0;
 221         time_t T = time(NULL)+1;
 222         while ((!d.HasResult()) && (time(NULL)<T));
 223         std::string ipaddr = d.GetResult();
 224         strlcpy(resolvedHost,ipaddr.c_str(),MAXBUF);
 225         return (ipaddr != "");
 226 }
 227
 228 int c_count(userrec* u)
 229 {
 230         int z = 0;
 231         for (int i =0; i != MAXCHANS; i++)
 232                 if (u->chans[i].channel != NULL)
 233                         z++;
 234         return z;
 235
 236 }
 237
 238 bool hasumode(userrec* user, char mode)
 239 {
 240         if (user)
 241         {
 242                 return (strchr(user->modes,mode)>0);
 243         }
 244         else return false;
 245 }
 246
 247
 248 void ChangeName(userrec* user, const char* gecos)
 249 {
 250         if (!strcasecmp(user->server,ServerName))
 251         {
 252                 int MOD_RESULT = 0;
 253                 FOREACH_RESULT(OnChangeLocalUserGECOS(user,gecos));
 254                 if (MOD_RESULT)
 255                         return;
 256         }
 257         strlcpy(user->fullname,gecos,MAXBUF);
 258         char buffer[MAXBUF];
 259         snprintf(buffer,MAXBUF,"a %s :%s",user->nick,gecos);
 260         NetSendToAll(buffer);
 261 }
 262
 263 void ChangeDisplayedHost(userrec* user, const char* host)
 264 {
 265         if (!strcasecmp(user->server,ServerName))
 266         {
 267                 int MOD_RESULT = 0;
 268                 FOREACH_RESULT(OnChangeLocalUserHost(user,host));
 269                 if (MOD_RESULT)
 270                         return;
 271         }
 272         strlcpy(user->dhost,host,160);
 273         char buffer[MAXBUF];
 274         snprintf(buffer,MAXBUF,"b %s %s",user->nick,host);
 275         NetSendToAll(buffer);
 276 }
 277
 278 /* verify that a user's ident and nickname is valid */
 279
 280 int isident(const char* n)
 281 {
 282         if (!n)
 283
 284         {
 285                 return 0;
 286         }
 287         if (!strcmp(n,""))
 288         {
 289                 return 0;
 290         }
 291         for (int i = 0; i != strlen(n); i++)
 292         {
 293                 if ((n[i] < 33) || (n[i] > 125))
 294                 {
 295                         return 0;
 296                 }
 297                 /* can't occur ANYWHERE in an Ident! */
 298                 if (strchr("<>,./?:;@'~#=+()*&%$£ \"!",n[i]))
 299                 {
 300                         return 0;
 301                 }
 302         }
 303         return 1;
 304 }
 305
 306
 307 int isnick(const char* n)
 308 {
 309         if (!n)
 310         {
 311                 return 0;
 312         }
 313         if (!strcmp(n,""))
 314         {
 315                 return 0;
 316         }
 317         if (strlen(n) > NICKMAX-1)
 318         {
 319                 return 0;
 320         }
 321         for (int i = 0; i != strlen(n); i++)
 322         {
 323                 if ((n[i] < 33) || (n[i] > 125))
 324                 {
 325                         return 0;
 326                 }
 327                 /* can't occur ANYWHERE in a nickname! */
 328                 if (strchr("<>,./?:;@'~#=+()*&%$£ \"!",n[i]))
 329                 {
 330                         return 0;
 331                 }
 332                 /* can't occur as the first char of a nickname... */
 333                 if ((strchr("0123456789",n[i])) && (!i))
 334                 {
 335                         return 0;
 336                 }
 337         }
 338         return 1;
 339 }
 340
 341 /* returns the status character for a given user on a channel, e.g. @ for op,
 342  * % for halfop etc. If the user has several modes set, the highest mode
 343  * the user has must be returned. */
 344
 345 char* cmode(userrec *user, chanrec *chan)
 346 {
 347         if ((!user) || (!chan))
 348         {
 349                 log(DEFAULT,"*** BUG *** cmode was given an invalid parameter");
 350                 return "";
 351         }
 352         for (int i = 0; i != MAXCHANS; i++)
 353         {
 354                 if (user->chans[i].channel)
 355                 {
 356                         if ((!strcasecmp(user->chans[i].channel->name,chan->name)) && (chan != NULL))
 357                         {
 358                                 if ((user->chans[i].uc_modes & UCMODE_OP) > 0)
 359                                 {
 360                                         return "@";
 361                                 }
 362                                 if ((user->chans[i].uc_modes & UCMODE_HOP) > 0)
 363                                 {
 364                                         return "%";
 365                                 }
 366                                 if ((user->chans[i].uc_modes & UCMODE_VOICE) > 0)
 367                                 {
 368                                         return "+";
 369                                 }
 370                                 return "";
 371                         }
 372                 }
 373         }
 374         return "";
 375 }
 376
 377 /* returns the status value for a given user on a channel, e.g. STATUS_OP for
 378  * op, STATUS_VOICE for voice etc. If the user has several modes set, the
 379  * highest mode the user has must be returned. */
 380
 381 int cstatus(userrec *user, chanrec *chan)
 382 {
 383         if ((!chan) || (!user))
 384         {
 385                 log(DEFAULT,"*** BUG *** cstatus was given an invalid parameter");
 386                 return 0;
 387         }
 388
 389         for (int i = 0; i != MAXCHANS; i++)
 390         {
 391                 if (user->chans[i].channel)
 392                 {
 393                         if ((!strcasecmp(user->chans[i].channel->name,chan->name)) && (chan != NULL))
 394                         {
 395                                 if ((user->chans[i].uc_modes & UCMODE_OP) > 0)
 396                                 {
 397                                         return STATUS_OP;
 398                                 }
 399                                 if ((user->chans[i].uc_modes & UCMODE_HOP) > 0)
 400                                 {
 401                                         return STATUS_HOP;
 402                                 }
 403                                 if ((user->chans[i].uc_modes & UCMODE_VOICE) > 0)
 404                                 {
 405                                         return STATUS_VOICE;
 406                                 }
 407                                 return STATUS_NORMAL;
 408                         }
 409                 }
 410         }
 411         return STATUS_NORMAL;
 412 }
 413
 414 /* returns 1 if user u has channel c in their record, 0 if not */
 415
 416 int has_channel(userrec *u, chanrec *c)
 417 {
 418         if ((!u) || (!c))
 419         {
 420                 log(DEFAULT,"*** BUG *** has_channel was given an invalid parameter");
 421                 return 0;
 422         }
 423         for (int i =0; i != MAXCHANS; i++)
 424         {
 425                 if (u->chans[i].channel)
 426                 {
 427                         if (!strcasecmp(u->chans[i].channel->name,c->name))
 428                         {
 429                                 return 1;
 430                         }
 431                 }
 432         }
 433         return 0;
 434 }
 435
 436
 437 void TidyBan(char *ban)
 438 {
 439         if (!ban) {
 440                 log(DEFAULT,"*** BUG *** TidyBan was given an invalid parameter");
 441                 return;
 442         }
 443
 444         char temp[MAXBUF],NICK[MAXBUF],IDENT[MAXBUF],HOST[MAXBUF];
 445
 446         strlcpy(temp,ban,MAXBUF);
 447
 448         char* pos_of_pling = strchr(temp,'!');
 449         char* pos_of_at = strchr(temp,'@');
 450
 451         pos_of_pling[0] = '\0';
 452         pos_of_at[0] = '\0';
 453         pos_of_pling++;
 454         pos_of_at++;
 455
 456         strlcpy(NICK,temp,NICKMAX);
 457         strlcpy(IDENT,pos_of_pling,IDENTMAX+1);
 458         strlcpy(HOST,pos_of_at,160);
 459
 460         snprintf(ban,MAXBUF,"%s!%s@%s",NICK,IDENT,HOST);
 461 }
 462
 463 char lst[MAXBUF];
 464
 465 char* chlist(userrec *user)
 466 {
 467         char cmp[MAXBUF];
 468         log(DEBUG,"chlist: %s",user->nick);
 469         strcpy(lst,"");
 470         if (!user)
 471         {
 472                 return lst;
 473         }
 474         for (int i = 0; i != MAXCHANS; i++)
 475         {
 476                 if (user->chans[i].channel != NULL)
 477                 {
 478                         if (user->chans[i].channel->name)
 479                         {
 480                                 strlcpy(cmp,user->chans[i].channel->name,MAXBUF);
 481                                 strlcat(cmp," ",MAXBUF);
 482                                 if (!strstr(lst,cmp))
 483                                 {
 484                                         if ((!user->chans[i].channel->c_private) && (!user->chans[i].channel->secret))
 485                                         {
 486                                                 strlcat(lst,cmode(user,user->chans[i].channel),MAXBUF);
 487                                                 strlcat(lst,user->chans[i].channel->name,MAXBUF);
 488                                                 strlcat(lst," ",MAXBUF);
 489                                         }
 490                                 }
 491                         }
 492                 }
 493         }
 494         if (strlen(lst))
 495         {
 496                 lst[strlen(lst)-1] = '\0'; // chop trailing space
 497         }
 498         return lst;
 499 }
 500
 501
 502 void send_network_quit(const char* nick, const char* reason)
 503 {
 504         char buffer[MAXBUF];
 505         snprintf(buffer,MAXBUF,"Q %s :%s",nick,reason);
 506         NetSendToAll(buffer);
 507 }
 508
 509