src/helperfuncs.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 using namespace std;
  18
  19 #include "inspircd_config.h"
  20 #include "inspircd.h"
  21 #include "inspircd_io.h"
  22 #include "inspircd_util.h"
  23 #include <unistd.h>
  24 #include <fcntl.h>
  25 #include <sys/errno.h>
  26 #include <time.h>
  27 #include <string>
  28 #ifdef GCC3
  29 #include <ext/hash_map>
  30 #else
  31 #include <hash_map>
  32 #endif
  33 #include <sstream>
  34 #include <vector>
  35 #include <deque>
  36 #include <stdarg.h>
  37 #include "connection.h"
  38 #include "users.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 "mode.h"
  46 #include "xline.h"
  47 #include "commands.h"
  48 #include "inspstring.h"
  49 #include "helperfuncs.h"
  50 #include "hashcomp.h"
  51
  52 extern int MODCOUNT;
  53 extern std::vector<Module*> modules;
  54
  55 extern time_t TIME;
  56 extern bool nofork;
  57 extern char lowermap[255];
  58 extern char ServerName[MAXBUF];
  59 extern char Network[MAXBUF];
  60 extern char ServerDesc[MAXBUF];
  61 extern char list[MAXBUF];
  62
  63 extern int debugging;
  64 extern int LogLevel;
  65
  66 extern std::stringstream config_f;
  67
  68
  69
  70 extern FILE *log_file;
  71 extern userrec* fd_ref_table[65536];
  72
  73 extern int statsAccept, statsRefused, statsUnknown, statsCollisions, statsDns, statsDnsGood, statsDnsBad, statsConnects, statsSent, statsRecv;
  74
  75 static char already_sent[65536];
  76 extern std::vector<userrec*> all_opers;
  77
  78 extern ClassVector Classes;
  79
  80 typedef nspace::hash_map<std::string, userrec*, nspace::hash<string>, irc::StrHashComp> user_hash;
  81 typedef nspace::hash_map<std::string, chanrec*, nspace::hash<string>, irc::StrHashComp> chan_hash;
  82 typedef std::deque<command_t> command_table;
  83
  84 extern user_hash clientlist;
  85 extern chan_hash chanlist;
  86 extern command_table cmdlist;
  87 extern file_cache MOTD;
  88 extern file_cache RULES;
  89
  90 void log(int level,char *text, ...)
  91 {
  92         char textbuffer[MAXBUF];
  93         va_list argsPtr;
  94         time_t rawtime;
  95         struct tm * timeinfo;
  96         if (level < LogLevel)
  97                 return;
  98
  99         time(&rawtime);
 100         timeinfo = localtime (&rawtime);
 101
 102         if (log_file)
 103         {
 104                 char b[MAXBUF];
 105                 va_start (argsPtr, text);
 106                 vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 107                 va_end(argsPtr);
 108                 strlcpy(b,asctime(timeinfo),MAXBUF);
 109                 b[24] = ':';    // we know this is the end of the time string
 110                 fprintf(log_file,"%s %s\n",b,textbuffer);
 111                 if (nofork)
 112                 {
 113                         // nofork enabled? display it on terminal too
 114                         printf("%s %s\n",b,textbuffer);
 115                 }
 116         }
 117 }
 118
 119 void readfile(file_cache &F, const char* fname)
 120 {
 121         FILE* file;
 122         char linebuf[MAXBUF];
 123
 124         log(DEBUG,"readfile: loading %s",fname);
 125         F.clear();
 126         file =  fopen(fname,"r");
 127         if (file)
 128         {
 129                 while (!feof(file))
 130                 {
 131                         fgets(linebuf,sizeof(linebuf),file);
 132                         linebuf[strlen(linebuf)-1]='\0';
 133                         if (linebuf[0] == 0)
 134                         {
 135                                 strcpy(linebuf,"  ");
 136                         }
 137                         if (!feof(file))
 138                         {
 139                                 F.push_back(linebuf);
 140                         }
 141                 }
 142                 fclose(file);
 143         }
 144         else
 145         {
 146                 log(DEBUG,"readfile: failed to load file: %s",fname);
 147         }
 148         log(DEBUG,"readfile: loaded %s, %lu lines",fname,(unsigned long)F.size());
 149 }
 150
 151 void Write(int sock,char *text, ...)
 152 {
 153         if (sock < 0)
 154                 return;
 155         if (!text)
 156         {
 157                 log(DEFAULT,"*** BUG *** Write was given an invalid parameter");
 158                 return;
 159         }
 160         char textbuffer[MAXBUF];
 161         va_list argsPtr;
 162         char tb[MAXBUF];
 163
 164         va_start (argsPtr, text);
 165         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 166         va_end(argsPtr);
 167         int bytes = snprintf(tb,MAXBUF,"%s\r\n",textbuffer);
 168         chop(tb);
 169         if (fd_ref_table[sock])
 170         {
 171                 int MOD_RESULT = 0;
 172                 FOREACH_RESULT(OnRawSocketWrite(sock,tb,bytes));
 173                 fd_ref_table[sock]->AddWriteBuf(tb);
 174                 statsSent += bytes;
 175         }
 176         else log(DEFAULT,"ERROR! attempted write to a user with no fd_ref_table entry!!!");
 177 }
 178
 179 /* write a server formatted numeric response to a single socket */
 180
 181 void WriteServ(int sock, char* text, ...)
 182 {
 183         if (sock < 0)
 184                 return;
 185         if (!text)
 186         {
 187                 log(DEFAULT,"*** BUG *** WriteServ was given an invalid parameter");
 188                 return;
 189         }
 190         char textbuffer[MAXBUF],tb[MAXBUF];
 191         va_list argsPtr;
 192         va_start (argsPtr, text);
 193
 194         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 195         va_end(argsPtr);
 196         int bytes = snprintf(tb,MAXBUF,":%s %s\r\n",ServerName,textbuffer);
 197         chop(tb);
 198         if (fd_ref_table[sock])
 199         {
 200                 int MOD_RESULT = 0;
 201                 FOREACH_RESULT(OnRawSocketWrite(sock,tb,bytes));
 202                 fd_ref_table[sock]->AddWriteBuf(tb);
 203                 statsSent += bytes;
 204         }
 205         else log(DEFAULT,"ERROR! attempted write to a user with no fd_ref_table entry!!!");
 206 }
 207
 208 /* write text from an originating user to originating user */
 209
 210 void WriteFrom(int sock, userrec *user,char* text, ...)
 211 {
 212         if (sock < 0)
 213                 return;
 214         if ((!text) || (!user))
 215         {
 216                 log(DEFAULT,"*** BUG *** WriteFrom was given an invalid parameter");
 217                 return;
 218         }
 219         char textbuffer[MAXBUF],tb[MAXBUF];
 220         va_list argsPtr;
 221         va_start (argsPtr, text);
 222
 223         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 224         va_end(argsPtr);
 225         int bytes = snprintf(tb,MAXBUF,":%s!%s@%s %s\r\n",user->nick,user->ident,user->dhost,textbuffer);
 226         chop(tb);
 227         if (fd_ref_table[sock])
 228         {
 229                 int MOD_RESULT = 0;
 230                 FOREACH_RESULT(OnRawSocketWrite(sock,tb,bytes));
 231                 fd_ref_table[sock]->AddWriteBuf(tb);
 232                 statsSent += bytes;
 233         }
 234         else log(DEFAULT,"ERROR! attempted write to a user with no fd_ref_table entry!!!");
 235 }
 236
 237 /* write text to an destination user from a source user (e.g. user privmsg) */
 238
 239 void WriteTo(userrec *source, userrec *dest,char *data, ...)
 240 {
 241         if ((!dest) || (!data))
 242         {
 243                 log(DEFAULT,"*** BUG *** WriteTo was given an invalid parameter");
 244                 return;
 245         }
 246         if (dest->fd == FD_MAGIC_NUMBER)
 247                 return;
 248         char textbuffer[MAXBUF],tb[MAXBUF];
 249         va_list argsPtr;
 250         va_start (argsPtr, data);
 251         vsnprintf(textbuffer, MAXBUF, data, argsPtr);
 252         va_end(argsPtr);
 253         chop(tb);
 254
 255         // if no source given send it from the server.
 256         if (!source)
 257         {
 258                 WriteServ(dest->fd,":%s %s",ServerName,textbuffer);
 259         }
 260         else
 261         {
 262                 WriteFrom(dest->fd,source,"%s",textbuffer);
 263         }
 264 }
 265
 266 /* write formatted text from a source user to all users on a channel
 267  * including the sender (NOT for privmsg, notice etc!) */
 268
 269 void WriteChannel(chanrec* Ptr, userrec* user, char* text, ...)
 270 {
 271         if ((!Ptr) || (!user) || (!text))
 272         {
 273                 log(DEFAULT,"*** BUG *** WriteChannel was given an invalid parameter");
 274                 return;
 275         }
 276         char textbuffer[MAXBUF];
 277         va_list argsPtr;
 278         va_start (argsPtr, text);
 279         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 280         va_end(argsPtr);
 281
 282         std::vector<char*> *ulist = Ptr->GetUsers();
 283         for (unsigned int j = 0; j < ulist->size(); j++)
 284         {
 285                 char* o = (*ulist)[j];
 286                 userrec* otheruser = (userrec*)o;
 287                 if (otheruser->fd != FD_MAGIC_NUMBER)
 288                         WriteTo(user,otheruser,"%s",textbuffer);
 289         }
 290 }
 291
 292 /* write formatted text from a source user to all users on a channel
 293  * including the sender (NOT for privmsg, notice etc!) doesnt send to
 294  * users on remote servers */
 295
 296 void WriteChannelLocal(chanrec* Ptr, userrec* user, char* text, ...)
 297 {
 298         if ((!Ptr) || (!text))
 299         {
 300                 log(DEFAULT,"*** BUG *** WriteChannel was given an invalid parameter");
 301                 return;
 302         }
 303         char textbuffer[MAXBUF];
 304         va_list argsPtr;
 305         va_start (argsPtr, text);
 306         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 307         va_end(argsPtr);
 308
 309         std::vector<char*> *ulist = Ptr->GetUsers();
 310         for (unsigned int j = 0; j < ulist->size(); j++)
 311         {
 312                 char* o = (*ulist)[j];
 313                 userrec* otheruser = (userrec*)o;
 314                 if ((otheruser->fd != FD_MAGIC_NUMBER) && (otheruser->fd != -1) && (otheruser != user))
 315                 {
 316                         if (!user)
 317                         {
 318                                 WriteServ(otheruser->fd,"%s",textbuffer);
 319                         }
 320                         else
 321                         {
 322                                 WriteTo(user,otheruser,"%s",textbuffer);
 323                         }
 324                 }
 325         }
 326 }
 327
 328 void WriteChannelWithServ(char* ServName, chanrec* Ptr, char* text, ...)
 329 {
 330         if ((!Ptr) || (!text))
 331         {
 332                 log(DEFAULT,"*** BUG *** WriteChannelWithServ was given an invalid parameter");
 333                 return;
 334         }
 335         char textbuffer[MAXBUF];
 336         va_list argsPtr;
 337         va_start (argsPtr, text);
 338         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 339         va_end(argsPtr);
 340
 341
 342         std::vector<char*> *ulist = Ptr->GetUsers();
 343         for (unsigned int j = 0; j < ulist->size(); j++)
 344         {
 345                 char* o = (*ulist)[j];
 346                 userrec* otheruser = (userrec*)o;
 347                 if (otheruser->fd != FD_MAGIC_NUMBER)
 348                         WriteServ(otheruser->fd,"%s",textbuffer);
 349         }
 350 }
 351
 352 /* write formatted text from a source user to all users on a channel except
 353  * for the sender (for privmsg etc) */
 354
 355 void ChanExceptSender(chanrec* Ptr, userrec* user, char* text, ...)
 356 {
 357         if ((!Ptr) || (!user) || (!text))
 358         {
 359                 log(DEFAULT,"*** BUG *** ChanExceptSender was given an invalid parameter");
 360                 return;
 361         }
 362         char textbuffer[MAXBUF];
 363         va_list argsPtr;
 364         va_start (argsPtr, text);
 365         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 366         va_end(argsPtr);
 367
 368         std::vector<char*> *ulist = Ptr->GetUsers();
 369         for (unsigned int j = 0; j < ulist->size(); j++)
 370         {
 371                 char* o = (*ulist)[j];
 372                 userrec* otheruser = (userrec*)o;
 373                 if ((otheruser->fd != FD_MAGIC_NUMBER) && (user != otheruser))
 374                         WriteFrom(otheruser->fd,user,"%s",textbuffer);
 375         }
 376 }
 377
 378 std::string GetServerDescription(char* servername)
 379 {
 380         std::string description = "";
 381         FOREACH_MOD OnGetServerDescription(servername,description);
 382         if (description != "")
 383         {
 384                 return description;
 385         }
 386         else
 387         {
 388                 return ServerDesc; // not a remote server that can be found, it must be me.
 389         }
 390 }
 391
 392 /* write a formatted string to all users who share at least one common
 393  * channel, including the source user e.g. for use in NICK */
 394
 395 void WriteCommon(userrec *u, char* text, ...)
 396 {
 397         if (!u)
 398         {
 399                 log(DEFAULT,"*** BUG *** WriteCommon was given an invalid parameter");
 400                 return;
 401         }
 402
 403         if (u->registered != 7) {
 404                 log(DEFAULT,"*** BUG *** WriteCommon on an unregistered user");
 405                 return;
 406         }
 407
 408         char textbuffer[MAXBUF];
 409         va_list argsPtr;
 410         va_start (argsPtr, text);
 411         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 412         va_end(argsPtr);
 413
 414         // FIX: Stops a message going to the same person more than once
 415         memset(&already_sent,0,65536);
 416
 417         bool sent_to_at_least_one = false;
 418
 419         for (int i = 0; i < MAXCHANS; i++)
 420         {
 421                 if (u->chans[i].channel)
 422                 {
 423                         std::vector<char*> *ulist = u->chans[i].channel->GetUsers();
 424                         for (unsigned int j = 0; j < ulist->size(); j++)
 425                         {
 426                                 char* o = (*ulist)[j];
 427                                 userrec* otheruser = (userrec*)o;
 428                                 if ((otheruser->fd > 0) && (!already_sent[otheruser->fd]))
 429                                 {
 430                                         already_sent[otheruser->fd] = 1;
 431                                         WriteFrom(otheruser->fd,u,"%s",textbuffer);
 432                                         sent_to_at_least_one = true;
 433                                 }
 434                         }
 435                 }
 436         }
 437         // if the user was not in any channels, no users will receive the text. Make sure the user
 438         // receives their OWN message for WriteCommon
 439         if (!sent_to_at_least_one)
 440         {
 441                 WriteFrom(u->fd,u,"%s",textbuffer);
 442         }
 443 }
 444
 445 /* write a formatted string to all users who share at least one common
 446  * channel, NOT including the source user e.g. for use in QUIT */
 447
 448 void WriteCommonExcept(userrec *u, char* text, ...)
 449 {
 450         if (!u)
 451         {
 452                 log(DEFAULT,"*** BUG *** WriteCommon was given an invalid parameter");
 453                 return;
 454         }
 455
 456         if (u->registered != 7) {
 457                 log(DEFAULT,"*** BUG *** WriteCommon on an unregistered user");
 458                 return;
 459         }
 460
 461         char textbuffer[MAXBUF];
 462         va_list argsPtr;
 463         va_start (argsPtr, text);
 464         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 465         va_end(argsPtr);
 466
 467         memset(&already_sent,0,65536);
 468
 469         for (int i = 0; i < MAXCHANS; i++)
 470         {
 471                 if (u->chans[i].channel)
 472                 {
 473                         std::vector<char*> *ulist = u->chans[i].channel->GetUsers();
 474                         for (unsigned int j = 0; j < ulist->size(); j++)
 475                         {
 476                                 char* o = (*ulist)[j];
 477                                 userrec* otheruser = (userrec*)o;
 478                                 if (u != otheruser)
 479                                 {
 480                                         if ((otheruser->fd > 0) && (!already_sent[otheruser->fd]))
 481                                         {
 482                                                 already_sent[otheruser->fd] = 1;
 483                                                 WriteFrom(otheruser->fd,u,"%s",textbuffer);
 484                                         }
 485                                 }
 486                         }
 487                 }
 488         }
 489 }
 490
 491 void WriteOpers(char* text, ...)
 492 {
 493         if (!text)
 494         {
 495                 log(DEFAULT,"*** BUG *** WriteOpers was given an invalid parameter");
 496                 return;
 497         }
 498
 499         char textbuffer[MAXBUF];
 500         va_list argsPtr;
 501         va_start (argsPtr, text);
 502         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 503         va_end(argsPtr);
 504
 505         for (std::vector<userrec*>::iterator i = all_opers.begin(); i != all_opers.end(); i++)
 506         {
 507                 userrec* a = *i;
 508                 if ((a) && (a->fd != FD_MAGIC_NUMBER))
 509                 {
 510                         if (strchr(a->modes,'s'))
 511                         {
 512                                 // send server notices to all with +s
 513                                 WriteServ(a->fd,"NOTICE %s :%s",a->nick,textbuffer);
 514                         }
 515                 }
 516         }
 517 }
 518
 519 void ServerNoticeAll(char* text, ...)
 520 {
 521         if (!text)
 522                 return;
 523
 524         char textbuffer[MAXBUF];
 525         va_list argsPtr;
 526         va_start (argsPtr, text);
 527         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 528         va_end(argsPtr);
 529
 530         for (user_hash::const_iterator i = clientlist.begin(); i != clientlist.end(); i++)
 531         {
 532                 if ((i->second) && (i->second->fd != FD_MAGIC_NUMBER))
 533                 {
 534                         WriteServ(i->second->fd,"NOTICE $%s :%s",ServerName,textbuffer);
 535                 }
 536         }
 537 }
 538
 539 void ServerPrivmsgAll(char* text, ...)
 540 {
 541         if (!text)
 542                 return;
 543
 544         char textbuffer[MAXBUF];
 545         va_list argsPtr;
 546         va_start (argsPtr, text);
 547         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 548         va_end(argsPtr);
 549
 550         for (user_hash::const_iterator i = clientlist.begin(); i != clientlist.end(); i++)
 551         {
 552                 if ((i->second) && (i->second->fd != FD_MAGIC_NUMBER))
 553                 {
 554                         WriteServ(i->second->fd,"PRIVMSG $%s :%s",ServerName,textbuffer);
 555                 }
 556         }
 557 }
 558
 559 void NoticeAllOpers(userrec *source, bool local_only, char* text, ...)
 560 {
 561         if ((!text) || (!source))
 562         {
 563                 log(DEFAULT,"*** BUG *** NoticeAllOpers was given an invalid parameter");
 564                 return;
 565         }
 566
 567         char textbuffer[MAXBUF];
 568         va_list argsPtr;
 569         va_start (argsPtr, text);
 570         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 571         va_end(argsPtr);
 572
 573         for (std::vector<userrec*>::iterator i = all_opers.begin(); i != all_opers.end(); i++)
 574         {
 575                 userrec* a = *i;
 576                 if ((a) && (a->fd != FD_MAGIC_NUMBER))
 577                 {
 578                         if (strchr(a->modes,'s'))
 579                         {
 580                                 // send server notices to all with +s
 581                                 WriteServ(a->fd,"NOTICE %s :*** Notice From %s: %s",a->nick,source->nick,textbuffer);
 582                         }
 583                 }
 584         }
 585
 586 }
 587 // returns TRUE of any users on channel C occupy server 'servername'.
 588
 589 bool ChanAnyOnThisServer(chanrec *c,char* servername)
 590 {
 591         log(DEBUG,"ChanAnyOnThisServer");
 592
 593         std::vector<char*> *ulist = c->GetUsers();
 594         for (unsigned int j = 0; j < ulist->size(); j++)
 595         {
 596                 char* o = (*ulist)[j];
 597                 userrec* user = (userrec*)o;
 598                 if (!strcasecmp(user->server,servername))
 599                         return true;
 600         }
 601         return false;
 602 }
 603
 604 // returns true if user 'u' shares any common channels with any users on server 'servername'
 605
 606 bool CommonOnThisServer(userrec* u,const char* servername)
 607 {
 608         log(DEBUG,"ChanAnyOnThisServer");
 609
 610         for (int i = 0; i < MAXCHANS; i++)
 611         {
 612                 if (u->chans[i].channel)
 613                 {
 614                         std::vector<char*> *ulist = u->chans[i].channel->GetUsers();
 615                         for (unsigned int j = 0; j < ulist->size(); j++)
 616                         {
 617                                 char* o = (*ulist)[j];
 618                                 userrec* user = (userrec*)o;
 619                                 if (!strcasecmp(user->server,servername))
 620                                         return true;
 621                         }
 622                 }
 623         }
 624         return false;
 625 }
 626
 627
 628 void WriteMode(const char* modes, int flags, const char* text, ...)
 629 {
 630         if ((!text) || (!modes) || (!flags))
 631         {
 632                 log(DEFAULT,"*** BUG *** WriteMode was given an invalid parameter");
 633                 return;
 634         }
 635
 636         char textbuffer[MAXBUF];
 637         va_list argsPtr;
 638         va_start (argsPtr, text);
 639         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 640         va_end(argsPtr);
 641         int modelen = strlen(modes);
 642
 643         for (user_hash::const_iterator i = clientlist.begin(); i != clientlist.end(); i++)
 644         {
 645                 if ((i->second) && (i->second->fd != FD_MAGIC_NUMBER))
 646                 {
 647                         bool send_to_user = false;
 648
 649                         if (flags == WM_AND)
 650                         {
 651                                 send_to_user = true;
 652                                 for (int n = 0; n < modelen; n++)
 653                                 {
 654                                         if (!hasumode(i->second,modes[n]))
 655                                         {
 656                                                 send_to_user = false;
 657                                                 break;
 658                                         }
 659                                 }
 660                         }
 661                         else if (flags == WM_OR)
 662                         {
 663                                 send_to_user = false;
 664                                 for (int n = 0; n < modelen; n++)
 665                                 {
 666                                         if (hasumode(i->second,modes[n]))
 667                                         {
 668                                                 send_to_user = true;
 669                                                 break;
 670                                         }
 671                                 }
 672                         }
 673
 674                         if (send_to_user)
 675                         {
 676                                 WriteServ(i->second->fd,"NOTICE %s :%s",i->second->nick,textbuffer);
 677                         }
 678                 }
 679         }
 680 }
 681
 682 void NoticeAll(userrec *source, bool local_only, char* text, ...)
 683 {
 684         if ((!text) || (!source))
 685         {
 686                 log(DEFAULT,"*** BUG *** NoticeAll was given an invalid parameter");
 687                 return;
 688         }
 689
 690         char textbuffer[MAXBUF];
 691         va_list argsPtr;
 692         va_start (argsPtr, text);
 693         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 694         va_end(argsPtr);
 695
 696         for (user_hash::const_iterator i = clientlist.begin(); i != clientlist.end(); i++)
 697         {
 698                 if ((i->second) && (i->second->fd != FD_MAGIC_NUMBER))
 699                 {
 700                         WriteFrom(i->second->fd,source,"NOTICE $* :%s",textbuffer);
 701                 }
 702         }
 703
 704 }
 705
 706
 707 void WriteWallOps(userrec *source, bool local_only, char* text, ...)
 708 {
 709         if ((!text) || (!source))
 710         {
 711                 log(DEFAULT,"*** BUG *** WriteOpers was given an invalid parameter");
 712                 return;
 713         }
 714
 715         char textbuffer[MAXBUF];
 716         va_list argsPtr;
 717         va_start (argsPtr, text);
 718         vsnprintf(textbuffer, MAXBUF, text, argsPtr);
 719         va_end(argsPtr);
 720
 721         for (user_hash::const_iterator i = clientlist.begin(); i != clientlist.end(); i++)
 722         {
 723                 if ((i->second) && (i->second->fd != FD_MAGIC_NUMBER))
 724                 {
 725                         if (strchr(i->second->modes,'w'))
 726                         {
 727                                 WriteTo(source,i->second,"WALLOPS :%s",textbuffer);
 728                         }
 729                 }
 730         }
 731 }
 732
 733 /* convert a string to lowercase. Note following special circumstances
 734  * taken from RFC 1459. Many "official" server branches still hold to this
 735  * rule so i will too;
 736  *
 737  *  Because of IRC's scandanavian origin, the characters {}| are
 738  *  considered to be the lower case equivalents of the characters []\,
 739  *  respectively. This is a critical issue when determining the
 740  *  equivalence of two nicknames.
 741  */
 742
 743 void strlower(char *n)
 744 {
 745         if (n)
 746         {
 747                 for (char* t = n; *t; t++)
 748                         *t = lowermap[(unsigned)*t];
 749         }
 750 }
 751
 752 /* Find a user record by nickname and return a pointer to it */
 753
 754 userrec* Find(std::string nick)
 755 {
 756         user_hash::iterator iter = clientlist.find(nick);
 757
 758         if (iter == clientlist.end())
 759                 /* Couldn't find it */
 760                 return NULL;
 761
 762         return iter->second;
 763 }
 764
 765 /* find a channel record by channel name and return a pointer to it */
 766
 767 chanrec* FindChan(const char* chan)
 768 {
 769         if (!chan)
 770         {
 771                 log(DEFAULT,"*** BUG *** Findchan was given an invalid parameter");
 772                 return NULL;
 773         }
 774
 775         chan_hash::iterator iter = chanlist.find(chan);
 776
 777         if (iter == chanlist.end())
 778                 /* Couldn't find it */
 779                 return NULL;
 780
 781         return iter->second;
 782 }
 783
 784
 785 long GetMaxBans(char* name)
 786 {
 787         char CM[MAXBUF];
 788         for (int count = 0; count < ConfValueEnum("banlist",&config_f); count++)
 789         {
 790                 ConfValue("banlist","chan",count,CM,&config_f);
 791                 if (match(name,CM))
 792                 {
 793                         ConfValue("banlist","limit",count,CM,&config_f);
 794                         return atoi(CM);
 795                 }
 796         }
 797         return 64;
 798 }
 799
 800 void purge_empty_chans(userrec* u)
 801 {
 802
 803         int go_again = 1, purge = 0;
 804
 805         // firstly decrement the count on each channel
 806         for (int f = 0; f < MAXCHANS; f++)
 807         {
 808                 if (u->chans[f].channel)
 809                 {
 810                         u->chans[f].channel->DelUser((char*)u);
 811                 }
 812         }
 813
 814         for (int i = 0; i < MAXCHANS; i++)
 815         {
 816                 if (u->chans[i].channel)
 817                 {
 818                         if (!usercount(u->chans[i].channel))
 819                         {
 820                                 chan_hash::iterator i2 = chanlist.find(u->chans[i].channel->name);
 821                                 /* kill the record */
 822                                 if (i2 != chanlist.end())
 823                                 {
 824                                         log(DEBUG,"del_channel: destroyed: %s",i2->second->name);
 825                                         if (i2->second)
 826                                                 delete i2->second;
 827                                         chanlist.erase(i2);
 828                                         go_again = 1;
 829                                         purge++;
 830                                         u->chans[i].channel = NULL;
 831                                 }
 832                         }
 833                         else
 834                         {
 835                                 log(DEBUG,"skipped purge for %s",u->chans[i].channel->name);
 836                         }
 837                 }
 838         }
 839         log(DEBUG,"completed channel purge, killed %lu",(unsigned long)purge);
 840
 841         DeleteOper(u);
 842 }
 843
 844
 845 char scratch[MAXBUF];
 846 char sparam[MAXBUF];
 847
 848 char* chanmodes(chanrec *chan)
 849 {
 850         if (!chan)
 851         {
 852                 log(DEFAULT,"*** BUG *** chanmodes was given an invalid parameter");
 853                 strcpy(scratch,"");
 854                 return scratch;
 855         }
 856
 857         strcpy(scratch,"");
 858         strcpy(sparam,"");
 859         if (chan->binarymodes & CM_NOEXTERNAL)
 860         {
 861                 strlcat(scratch,"n",MAXMODES);
 862         }
 863         if (chan->binarymodes & CM_TOPICLOCK)
 864         {
 865                 strlcat(scratch,"t",MAXMODES);
 866         }
 867         if (chan->key[0])
 868         {
 869                 strlcat(scratch,"k",MAXMODES);
 870         }
 871         if (chan->limit)
 872         {
 873                 strlcat(scratch,"l",MAXMODES);
 874         }
 875         if (chan->binarymodes & CM_INVITEONLY)
 876         {
 877                 strlcat(scratch,"i",MAXMODES);
 878         }
 879         if (chan->binarymodes & CM_MODERATED)
 880         {
 881                 strlcat(scratch,"m",MAXMODES);
 882         }
 883         if (chan->binarymodes & CM_SECRET)
 884         {
 885                 strlcat(scratch,"s",MAXMODES);
 886         }
 887         if (chan->binarymodes & CM_PRIVATE)
 888         {
 889                 strlcat(scratch,"p",MAXMODES);
 890         }
 891         if (chan->key[0])
 892         {
 893                 strlcat(sparam," ",MAXBUF);
 894                 strlcat(sparam,chan->key,MAXBUF);
 895         }
 896         if (chan->limit)
 897         {
 898                 char foo[24];
 899                 sprintf(foo," %lu",(unsigned long)chan->limit);
 900                 strlcat(sparam,foo,MAXBUF);
 901         }
 902         if (*chan->custom_modes)
 903         {
 904                 strlcat(scratch,chan->custom_modes,MAXMODES);
 905                 for (int z = 0; chan->custom_modes[z] != 0; z++)
 906                 {
 907                         std::string extparam = chan->GetModeParameter(chan->custom_modes[z]);
 908                         if (extparam != "")
 909                         {
 910                                 strlcat(sparam," ",MAXBUF);
 911                                 strlcat(sparam,extparam.c_str(),MAXBUF);
 912                         }
 913                 }
 914         }
 915         log(DEBUG,"chanmodes: %s %s%s",chan->name,scratch,sparam);
 916         strlcat(scratch,sparam,MAXMODES);
 917         return scratch;
 918 }
 919
 920
 921 /* compile a userlist of a channel into a string, each nick seperated by
 922  * spaces and op, voice etc status shown as @ and + */
 923
 924 void userlist(userrec *user,chanrec *c)
 925 {
 926         if ((!c) || (!user))
 927         {
 928                 log(DEFAULT,"*** BUG *** userlist was given an invalid parameter");
 929                 return;
 930         }
 931
 932         snprintf(list,MAXBUF,"353 %s = %s :", user->nick, c->name);
 933
 934         std::vector<char*> *ulist = c->GetUsers();
 935         for (unsigned int i = 0; i < ulist->size(); i++)
 936         {
 937                 char* o = (*ulist)[i];
 938                 userrec* otheruser = (userrec*)o;
 939                 if ((!has_channel(user,c)) && (strchr(otheruser->modes,'i')))
 940                 {
 941                         /* user is +i, and source not on the channel, does not show
 942                          * nick in NAMES list */
 943                         continue;
 944                 }
 945                 strlcat(list,cmode(otheruser,c),MAXBUF);
 946                 strlcat(list,otheruser->nick,MAXBUF);
 947                 strlcat(list," ",MAXBUF);
 948                 if (strlen(list)>(480-NICKMAX))
 949                 {
 950                         /* list overflowed into
 951                          * multiple numerics */
 952                         WriteServ(user->fd,"%s",list);
 953                         snprintf(list,MAXBUF,"353 %s = %s :", user->nick, c->name);
 954                 }
 955         }
 956         /* if whats left in the list isnt empty, send it */
 957         if (list[strlen(list)-1] != ':')
 958         {
 959                 WriteServ(user->fd,"%s",list);
 960         }
 961 }
 962
 963 /* return a count of the users on a specific channel accounting for
 964  * invisible users who won't increase the count. e.g. for /LIST */
 965
 966 int usercount_i(chanrec *c)
 967 {
 968         int count = 0;
 969
 970         if (!c)
 971         {
 972                 log(DEFAULT,"*** BUG *** usercount_i was given an invalid parameter");
 973                 return 0;
 974         }
 975
 976         strcpy(list,"");
 977         for (user_hash::const_iterator i = clientlist.begin(); i != clientlist.end(); i++)
 978         {
 979                 if (i->second)
 980                 {
 981                         if (has_channel(i->second,c))
 982                         {
 983                                 if (isnick(i->second->nick))
 984                                 {
 985                                         if ((!has_channel(i->second,c)) && (strchr(i->second->modes,'i')))
 986                                         {
 987                                                 /* user is +i, and source not on the channel, does not show
 988                                                  * nick in NAMES list */
 989                                                 continue;
 990                                         }
 991                                         count++;
 992                                 }
 993                         }
 994                 }
 995         }
 996         log(DEBUG,"usercount_i: %s %lu",c->name,(unsigned long)count);
 997         return count;
 998 }
 999
1000
1001 int usercount(chanrec *c)
1002 {
1003         if (!c)
1004         {
1005                 log(DEFAULT,"*** BUG *** usercount was given an invalid parameter");
1006                 return 0;
1007         }
1008         int count = c->GetUserCounter();
1009         log(DEBUG,"usercount: %s %lu",c->name,(unsigned long)count);
1010         return count;
1011 }
1012
1013
1014 // looks up a users password for their connection class (<ALLOW>/<DENY> tags)
1015
1016 char* Passwd(userrec *user)
1017 {
1018         for (ClassVector::iterator i = Classes.begin(); i != Classes.end(); i++)
1019         {
1020                 if (match(user->host,i->host) && (i->type == CC_ALLOW))
1021                 {
1022                         return i->pass;
1023                 }
1024         }
1025         return "";
1026 }
1027
1028 bool IsDenied(userrec *user)
1029 {
1030         for (ClassVector::iterator i = Classes.begin(); i != Classes.end(); i++)
1031         {
1032                 if (match(user->host,i->host) && (i->type == CC_DENY))
1033                 {
1034                         return true;
1035                 }
1036         }
1037         return false;
1038 }
1039
1040
1041
1042
1043 /* sends out an error notice to all connected clients (not to be used
1044  * lightly!) */
1045
1046 void send_error(char *s)
1047 {
1048         log(DEBUG,"send_error: %s",s);
1049         for (user_hash::const_iterator i = clientlist.begin(); i != clientlist.end(); i++)
1050         {
1051                 if (isnick(i->second->nick))
1052                 {
1053                         WriteServ(i->second->fd,"NOTICE %s :%s",i->second->nick,s);
1054                 }
1055                 else
1056                 {
1057                         // fix - unregistered connections receive ERROR, not NOTICE
1058                         Write(i->second->fd,"ERROR :%s",s);
1059                 }
1060         }
1061 }
1062
1063 void Error(int status)
1064 {
1065         signal (SIGALRM, SIG_IGN);
1066         signal (SIGPIPE, SIG_IGN);
1067         signal (SIGTERM, SIG_IGN);
1068         signal (SIGABRT, SIG_IGN);
1069         signal (SIGSEGV, SIG_IGN);
1070         signal (SIGURG, SIG_IGN);
1071         signal (SIGKILL, SIG_IGN);
1072         log(DEFAULT,"*** fell down a pothole in the road to perfection ***");
1073         send_error("Error! Segmentation fault! save meeeeeeeeeeeeee *splat!*");
1074         Exit(status);
1075 }
1076
1077 // this function counts all users connected, wether they are registered or NOT.
1078 int usercnt(void)
1079 {
1080         return clientlist.size();
1081 }
1082
1083 // this counts only registered users, so that the percentages in /MAP don't mess up when users are sitting in an unregistered state
1084 int registered_usercount(void)
1085 {
1086         int c = 0;
1087         for (user_hash::const_iterator i = clientlist.begin(); i != clientlist.end(); i++)
1088         {
1089                 if (i->second->registered == 7) c++;
1090         }
1091         return c;
1092 }
1093
1094 int usercount_invisible(void)
1095 {
1096         int c = 0;
1097         for (user_hash::const_iterator i = clientlist.begin(); i != clientlist.end(); i++)
1098         {
1099                 if ((isnick(i->second->nick)) && (strchr(i->second->modes,'i'))) c++;
1100         }
1101         return c;
1102 }
1103
1104 int usercount_opers(void)
1105 {
1106         int c = 0;
1107         for (user_hash::const_iterator i = clientlist.begin(); i != clientlist.end(); i++)
1108         {
1109                 if ((isnick(i->second->nick)) && (strchr(i->second->modes,'o'))) c++;
1110         }
1111         return c;
1112 }
1113
1114 int usercount_unknown(void)
1115 {
1116         int c = 0;
1117
1118         for (user_hash::const_iterator i = clientlist.begin(); i != clientlist.end(); i++)
1119         {
1120                 if ((i->second->fd) && (i->second->registered != 7))
1121                         c++;
1122         }
1123         return c;
1124 }
1125
1126 long chancount(void)
1127 {
1128         return chanlist.size();
1129 }
1130
1131 long local_count()
1132 {
1133         int c = 0;
1134         for (user_hash::const_iterator i = clientlist.begin(); i != clientlist.end(); i++)
1135         {
1136                 if ((i->second->fd) && (isnick(i->second->nick)) && (!strcasecmp(i->second->server,ServerName))) c++;
1137         }
1138         return c;
1139 }
1140
1141 void ShowMOTD(userrec *user)
1142 {
1143         char buf[65536];
1144         std::string WholeMOTD = "";
1145         if (!MOTD.size())
1146         {
1147                 WriteServ(user->fd,"422 %s :Message of the day file is missing.",user->nick);
1148                 return;
1149         }
1150         snprintf(buf,65535,":%s 375 %s :- %s message of the day\r\n", ServerName, user->nick, ServerName);
1151         WholeMOTD = WholeMOTD + buf;
1152         for (unsigned int i = 0; i != MOTD.size(); i++)
1153         {
1154                 snprintf(buf,65535,":%s 372 %s :- %s\r\n", ServerName, user->nick, MOTD[i].c_str());
1155                 WholeMOTD = WholeMOTD + buf;
1156         }
1157         snprintf(buf,65535,":%s 376 %s :End of message of the day.\r\n", ServerName, user->nick);
1158         WholeMOTD = WholeMOTD + buf;
1159         // only one write operation
1160         user->AddWriteBuf(WholeMOTD);
1161         statsSent += WholeMOTD.length();
1162 }
1163
1164 void ShowRULES(userrec *user)
1165 {
1166         if (!RULES.size())
1167         {
1168                 WriteServ(user->fd,"NOTICE %s :Rules file is missing.",user->nick);
1169                 return;
1170         }
1171         WriteServ(user->fd,"NOTICE %s :%s rules",user->nick,ServerName);
1172         for (unsigned int i = 0; i != RULES.size(); i++)
1173         {
1174                                 WriteServ(user->fd,"NOTICE %s :%s",user->nick,RULES[i].c_str());
1175         }
1176         WriteServ(user->fd,"NOTICE %s :End of %s rules.",user->nick,ServerName);
1177 }
1178
1179 // this returns 1 when all modules are satisfied that the user should be allowed onto the irc server
1180 // (until this returns true, a user will block in the waiting state, waiting to connect up to the
1181 // registration timeout maximum seconds)
1182 bool AllModulesReportReady(userrec* user)
1183 {
1184         for (int i = 0; i <= MODCOUNT; i++)
1185         {
1186                 int res = modules[i]->OnCheckReady(user);
1187                         if (!res)
1188                                 return false;
1189         }
1190         return true;
1191 }
1192
1193 char islast(const char* s)
1194 {
1195         return '+';
1196 }
1197
1198 long map_count(const char* s)
1199 {
1200         int c = 0;
1201         for (user_hash::const_iterator i = clientlist.begin(); i != clientlist.end(); i++)
1202         {
1203                 if ((i->second->fd) && (isnick(i->second->nick)) && (!strcasecmp(i->second->server,s))) c++;
1204         }
1205         return c;
1206 }
1207
1208 void createcommand(char* cmd, handlerfunc f, char flags, int minparams,char* source)
1209 {
1210         command_t comm;
1211         /* create the command and push it onto the table */
1212         strlcpy(comm.command,cmd,MAXBUF);
1213         strlcpy(comm.source,source,MAXBUF);
1214         comm.handler_function = f;
1215         comm.flags_needed = flags;
1216         comm.min_params = minparams;
1217         comm.use_count = 0;
1218         comm.total_bytes = 0;
1219         cmdlist.push_back(comm);
1220         log(DEBUG,"Added command %s (%lu parameters)",cmd,(unsigned long)minparams);
1221 }
1222
1223
1224 void SetupCommandTable(void)
1225 {
1226         createcommand("USER",handle_user,0,4,"<core>");
1227         createcommand("NICK",handle_nick,0,1,"<core>");
1228         createcommand("QUIT",handle_quit,0,0,"<core>");
1229         createcommand("VERSION",handle_version,0,0,"<core>");
1230         createcommand("PING",handle_ping,0,1,"<core>");
1231         createcommand("PONG",handle_pong,0,1,"<core>");
1232         createcommand("ADMIN",handle_admin,0,0,"<core>");
1233         createcommand("PRIVMSG",handle_privmsg,0,2,"<core>");
1234         createcommand("INFO",handle_info,0,0,"<core>");
1235         createcommand("TIME",handle_time,0,0,"<core>");
1236         createcommand("WHOIS",handle_whois,0,1,"<core>");
1237         createcommand("WALLOPS",handle_wallops,'o',1,"<core>");
1238         createcommand("NOTICE",handle_notice,0,2,"<core>");
1239         createcommand("JOIN",handle_join,0,1,"<core>");
1240         createcommand("NAMES",handle_names,0,0,"<core>");
1241         createcommand("PART",handle_part,0,1,"<core>");
1242         createcommand("KICK",handle_kick,0,2,"<core>");
1243         createcommand("MODE",handle_mode,0,1,"<core>");
1244         createcommand("TOPIC",handle_topic,0,1,"<core>");
1245         createcommand("WHO",handle_who,0,1,"<core>");
1246         createcommand("MOTD",handle_motd,0,0,"<core>");
1247         createcommand("RULES",handle_rules,0,0,"<core>");
1248         createcommand("OPER",handle_oper,0,2,"<core>");
1249         createcommand("LIST",handle_list,0,0,"<core>");
1250         createcommand("DIE",handle_die,'o',1,"<core>");
1251         createcommand("RESTART",handle_restart,'o',1,"<core>");
1252         createcommand("KILL",handle_kill,'o',2,"<core>");
1253         createcommand("REHASH",handle_rehash,'o',0,"<core>");
1254         createcommand("LUSERS",handle_lusers,0,0,"<core>");
1255         createcommand("STATS",handle_stats,0,1,"<core>");
1256         createcommand("USERHOST",handle_userhost,0,1,"<core>");
1257         createcommand("AWAY",handle_away,0,0,"<core>");
1258         createcommand("ISON",handle_ison,0,0,"<core>");
1259         createcommand("SUMMON",handle_summon,0,0,"<core>");
1260         createcommand("USERS",handle_users,0,0,"<core>");
1261         createcommand("INVITE",handle_invite,0,0,"<core>");
1262         createcommand("PASS",handle_pass,0,1,"<core>");
1263         createcommand("TRACE",handle_trace,'o',0,"<core>");
1264         createcommand("WHOWAS",handle_whowas,0,1,"<core>");
1265         createcommand("CONNECT",handle_connect,'o',1,"<core>");
1266         createcommand("SQUIT",handle_squit,'o',0,"<core>");
1267         createcommand("MODULES",handle_modules,0,0,"<core>");
1268         createcommand("LINKS",handle_links,0,0,"<core>");
1269         createcommand("MAP",handle_map,0,0,"<core>");
1270         createcommand("KLINE",handle_kline,'o',1,"<core>");
1271         createcommand("GLINE",handle_gline,'o',1,"<core>");
1272         createcommand("ZLINE",handle_zline,'o',1,"<core>");
1273         createcommand("QLINE",handle_qline,'o',1,"<core>");
1274         createcommand("ELINE",handle_eline,'o',1,"<core>");
1275         createcommand("LOADMODULE",handle_loadmodule,'o',1,"<core>");
1276         createcommand("UNLOADMODULE",handle_unloadmodule,'o',1,"<core>");
1277         createcommand("SERVER",handle_server,0,0,"<core>");
1278         createcommand("COMMANDS",handle_commands,0,0,"<core>");
1279 }
1280
1281 bool DirValid(char* dirandfile)
1282 {
1283         char work[MAXBUF];
1284         strlcpy(work,dirandfile,MAXBUF);
1285         int p = strlen(work);
1286         // we just want the dir
1287         while (strlen(work))
1288         {
1289                 if (work[p] == '/')
1290                 {
1291                         work[p] = '\0';
1292                         break;
1293                 }
1294                 work[p--] = '\0';
1295         }
1296         char buffer[MAXBUF], otherdir[MAXBUF];
1297         // Get the current working directory
1298         if( getcwd( buffer, MAXBUF ) == NULL )
1299                 return false;
1300         chdir(work);
1301         if( getcwd( otherdir, MAXBUF ) == NULL )
1302                 return false;
1303         chdir(buffer);
1304         if (strlen(otherdir) >= strlen(work))
1305         {
1306                 otherdir[strlen(work)] = '\0';
1307                 if (!strcmp(otherdir,work))
1308                 {
1309                         return true;
1310                 }
1311                 return false;
1312         }
1313         else return false;
1314 }
1315
1316 std::string GetFullProgDir(char** argv, int argc)
1317 {
1318         char work[MAXBUF];
1319         strlcpy(work,argv[0],MAXBUF);
1320         int p = strlen(work);
1321         // we just want the dir
1322         while (strlen(work))
1323         {
1324                 if (work[p] == '/')
1325                 {
1326                         work[p] = '\0';
1327                         break;
1328                 }
1329                 work[p--] = '\0';
1330         }
1331         char buffer[MAXBUF], otherdir[MAXBUF];
1332         // Get the current working directory
1333         if( getcwd( buffer, MAXBUF ) == NULL )
1334                 return "";
1335         chdir(work);
1336         if( getcwd( otherdir, MAXBUF ) == NULL )
1337                 return "";
1338         chdir(buffer);
1339         return otherdir;
1340 }
1341