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