ircd/s_conf.c

   1 /*
   2  * IRC - Internet Relay Chat, ircd/s_conf.c
   3  * Copyright (C) 1990 Jarkko Oikarinen and
   4  *                    University of Oulu, Computing Center
   5  *
   6  * This program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License as published by
   8  * the Free Software Foundation; either version 1, or (at your option)
   9  * any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program; if not, write to the Free Software
  18  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19  */
  20 /** @file
  21  * @brief ircd configuration file driver
  22  * @version $Id$
  23  */
  24 #include "config.h"
  25
  26 #include "s_conf.h"
  27 #include "IPcheck.h"
  28 #include "class.h"
  29 #include "client.h"
  30 #include "crule.h"
  31 #include "ircd_features.h"
  32 #include "fileio.h"
  33 #include "gline.h"
  34 #include "hash.h"
  35 #include "ircd.h"
  36 #include "ircd_alloc.h"
  37 #include "ircd_auth.h"
  38 #include "ircd_chattr.h"
  39 #include "ircd_log.h"
  40 #include "ircd_reply.h"
  41 #include "ircd_snprintf.h"
  42 #include "ircd_string.h"
  43 #include "list.h"
  44 #include "listener.h"
  45 #include "match.h"
  46 #include "motd.h"
  47 #include "numeric.h"
  48 #include "numnicks.h"
  49 #include "opercmds.h"
  50 #include "parse.h"
  51 #include "res.h"
  52 #include "s_bsd.h"
  53 #include "s_debug.h"
  54 #include "s_misc.h"
  55 #include "send.h"
  56 #include "struct.h"
  57 #include "sys.h"
  58
  59 /* #include <assert.h> -- Now using assert in ircd_log.h */
  60 #include <arpa/inet.h>
  61 #include <errno.h>
  62 #include <fcntl.h>
  63 #include <netdb.h>
  64 #include <stdio.h>
  65 #include <stdlib.h>
  66 #include <string.h>
  67 #include <sys/stat.h>
  68 #include <unistd.h>
  69
  70 /** Global list of all ConfItem structures. */
  71 struct ConfItem  *GlobalConfList;
  72 /** Count of items in #GlobalConfList. */
  73 int              GlobalConfCount;
  74 /** Global list of service mappings. */
  75 struct s_map     *GlobalServiceMapList;
  76 /** Global list of channel quarantines. */
  77 struct qline     *GlobalQuarantineList;
  78
  79 /** Current line number in scanner input. */
  80 int lineno;
  81
  82 /** Configuration information for #me. */
  83 struct LocalConf   localConf;
  84 /** Global list of connection rules. */
  85 struct CRuleConf*  cruleConfList;
  86 /** Global list of K-lines. */
  87 struct DenyConf*   denyConfList;
  88
  89 /** Tell a user that they are banned, dumping the message from a file.
  90  * @param sptr Client being rejected
  91  * @param filename Send this file's contents to \a sptr
  92  */
  93 static void killcomment(struct Client* sptr, const char* filename)
  94 {
  95   FBFILE*     file = 0;
  96   char        line[80];
  97   struct stat sb;
  98   struct tm*  tm;
  99
 100   if (NULL == (file = fbopen(filename, "r"))) {
 101     send_reply(sptr, ERR_NOMOTD);
 102     send_reply(sptr, SND_EXPLICIT | ERR_YOUREBANNEDCREEP,
 103                ":Connection from your host is refused on this server.");
 104     return;
 105   }
 106   fbstat(&sb, file);
 107   tm = localtime((time_t*) &sb.st_mtime);        /* NetBSD needs cast */
 108   while (fbgets(line, sizeof(line) - 1, file)) {
 109     char* end = line + strlen(line);
 110     while (end > line) {
 111       --end;
 112       if ('\n' == *end || '\r' == *end)
 113         *end = '\0';
 114       else
 115         break;
 116     }
 117     send_reply(sptr, RPL_MOTD, line);
 118   }
 119   send_reply(sptr, SND_EXPLICIT | ERR_YOUREBANNEDCREEP,
 120              ":Connection from your host is refused on this server.");
 121   fbclose(file);
 122 }
 123
 124 /** Allocate a new struct ConfItem and link it to #GlobalConfList.
 125  * @return Newly allocated structure.
 126  */
 127 struct ConfItem* make_conf(int type)
 128 {
 129   struct ConfItem* aconf;
 130
 131   aconf = (struct ConfItem*) MyMalloc(sizeof(struct ConfItem));
 132   assert(0 != aconf);
 133 #ifdef        DEBUGMODE
 134   ++GlobalConfCount;
 135 #endif
 136   memset(aconf, 0, sizeof(struct ConfItem));
 137   aconf->status  = type;
 138   aconf->next    = GlobalConfList;
 139   GlobalConfList = aconf;
 140   return aconf;
 141 }
 142
 143 /** Free a struct ConfItem and any resources it owns.
 144  * @param aconf Item to free.
 145  */
 146 void free_conf(struct ConfItem *aconf)
 147 {
 148   Debug((DEBUG_DEBUG, "free_conf: %s %s %d",
 149          aconf->host ? aconf->host : "*",
 150          aconf->name ? aconf->name : "*",
 151          aconf->address.port));
 152   if (aconf->dns_pending)
 153     delete_resolver_queries(aconf);
 154   MyFree(aconf->host);
 155   if (aconf->passwd)
 156     memset(aconf->passwd, 0, strlen(aconf->passwd));
 157   MyFree(aconf->passwd);
 158   MyFree(aconf->name);
 159   MyFree(aconf);
 160 #ifdef        DEBUGMODE
 161   --GlobalConfCount;
 162 #endif
 163 }
 164
 165 /** Disassociate configuration from the client.
 166  * @param cptr Client to operate on.
 167  * @param aconf ConfItem to detach.
 168  */
 169 static void detach_conf(struct Client* cptr, struct ConfItem* aconf)
 170 {
 171   struct SLink** lp;
 172   struct SLink*  tmp;
 173
 174   assert(0 != aconf);
 175   assert(0 != cptr);
 176   assert(0 < aconf->clients);
 177
 178   lp = &(cli_confs(cptr));
 179
 180   while (*lp) {
 181     if ((*lp)->value.aconf == aconf) {
 182       if (aconf->conn_class && (aconf->status & CONF_CLIENT_MASK) && ConfLinks(aconf) > 0)
 183         --ConfLinks(aconf);
 184
 185       assert(0 < aconf->clients);
 186       if (0 == --aconf->clients && IsIllegal(aconf))
 187         free_conf(aconf);
 188       tmp = *lp;
 189       *lp = tmp->next;
 190       free_link(tmp);
 191       return;
 192     }
 193     lp = &((*lp)->next);
 194   }
 195 }
 196
 197 /** Parse a user\@host mask into username and host or IP parts.
 198  * If \a host contains no username part, set \a aconf->username to
 199  * NULL.  If the host part of \a host looks like an IP mask, set \a
 200  * aconf->addrbits and \a aconf->address to match.  Otherwise, set
 201  * \a aconf->host, and set \a aconf->addrbits to -1.
 202  * @param[in,out] aconf Configuration item to set.
 203  * @param[in] host user\@host mask to parse.
 204  */
 205 void conf_parse_userhost(struct ConfItem *aconf, char *host)
 206 {
 207   char *host_part;
 208   unsigned char addrbits;
 209
 210   MyFree(aconf->username);
 211   MyFree(aconf->host);
 212   host_part = strchr(host, '@');
 213   if (host_part) {
 214     *host_part = '\0';
 215     DupString(aconf->username, host);
 216     host_part++;
 217   } else {
 218     aconf->username = NULL;
 219     host_part = host;
 220   }
 221   DupString(aconf->host, host_part);
 222   if (ipmask_parse(aconf->host, &aconf->address.addr, &addrbits))
 223     aconf->addrbits = addrbits;
 224   else
 225     aconf->addrbits = -1;
 226   MyFree(host);
 227 }
 228
 229 /** Copies a completed DNS query into its ConfItem.
 230  * @param vptr Pointer to struct ConfItem for the block.
 231  * @param hp DNS reply, or NULL if the lookup failed.
 232  */
 233 static void conf_dns_callback(void* vptr, struct DNSReply* hp)
 234 {
 235   struct ConfItem* aconf = (struct ConfItem*) vptr;
 236   assert(aconf);
 237   aconf->dns_pending = 0;
 238   if (hp) {
 239     memcpy(&aconf->address.addr, &hp->addr, sizeof(aconf->address.addr));
 240     MyFree(hp);
 241   }
 242 }
 243
 244 /** Start a nameserver lookup of the conf host.  If the conf entry is
 245  * currently doing a lookup, do nothing.
 246  * @param aconf ConfItem for which to start a request.
 247  */
 248 static void conf_dns_lookup(struct ConfItem* aconf)
 249 {
 250   if (!aconf->dns_pending) {
 251     char            buf[HOSTLEN + 1];
 252     struct DNSQuery query;
 253     query.vptr     = aconf;
 254     query.callback = conf_dns_callback;
 255     host_from_uh(buf, aconf->host, HOSTLEN);
 256     buf[HOSTLEN] = '\0';
 257
 258     gethost_byname(buf, &query);
 259     aconf->dns_pending = 1;
 260   }
 261 }
 262
 263
 264 /** Start lookups of all addresses in the conf line.  The origin must
 265  * be a numeric IP address.  If the remote host field is not an IP
 266  * address, start a DNS lookup for it.
 267  * @param aconf Connection to do lookups for.
 268  */
 269 void
 270 lookup_confhost(struct ConfItem *aconf)
 271 {
 272   if (EmptyString(aconf->host) || EmptyString(aconf->name)) {
 273     Debug((DEBUG_ERROR, "Host/server name error: (%s) (%s)",
 274            aconf->host, aconf->name));
 275     return;
 276   }
 277   if (aconf->origin_name
 278       && !ircd_aton(&aconf->origin.addr, aconf->origin_name)) {
 279     Debug((DEBUG_ERROR, "Origin name error: (%s) (%s)",
 280         aconf->origin_name, aconf->name));
 281   }
 282   /*
 283    * Do name lookup now on hostnames given and store the
 284    * ip numbers in conf structure.
 285    */
 286   if (IsIP6Char(*aconf->host)) {
 287     if (!ircd_aton(&aconf->address.addr, aconf->host)) {
 288       Debug((DEBUG_ERROR, "Host/server name error: (%s) (%s)",
 289           aconf->host, aconf->name));
 290     }
 291   }
 292   else
 293     conf_dns_lookup(aconf);
 294 }
 295
 296 /** Find a server by name or hostname.
 297  * @param name Server name to find.
 298  * @return Pointer to the corresponding ConfItem, or NULL if none exists.
 299  */
 300 struct ConfItem* conf_find_server(const char* name)
 301 {
 302   struct ConfItem* conf;
 303   assert(0 != name);
 304
 305   for (conf = GlobalConfList; conf; conf = conf->next) {
 306     if (CONF_SERVER == conf->status) {
 307       /*
 308        * Check first servernames, then try hostnames.
 309        * XXX - match returns 0 if there _is_ a match... guess they
 310        * haven't decided what true is yet
 311        */
 312       if (0 == match(name, conf->name))
 313         return conf;
 314     }
 315   }
 316   return 0;
 317 }
 318
 319 /** Evaluate connection rules.
 320  * @param name Name of server to check
 321  * @param mask Filter for CRule types (only consider if type & \a mask != 0).
 322  * @return Name of rule that forbids the connection; NULL if no prohibitions.
 323  */
 324 const char* conf_eval_crule(const char* name, int mask)
 325 {
 326   struct CRuleConf* p = cruleConfList;
 327   assert(0 != name);
 328
 329   for ( ; p; p = p->next) {
 330     if (0 != (p->type & mask) && 0 == match(p->hostmask, name)) {
 331       if (crule_eval(p->node))
 332         return p->rule;
 333     }
 334   }
 335   return 0;
 336 }
 337
 338 /** Remove all conf entries from the client except those which match
 339  * the status field mask.
 340  * @param cptr Client to operate on.
 341  * @param mask ConfItem types to keep.
 342  */
 343 void det_confs_butmask(struct Client* cptr, int mask)
 344 {
 345   struct SLink* link;
 346   struct SLink* next;
 347   assert(0 != cptr);
 348
 349   for (link = cli_confs(cptr); link; link = next) {
 350     next = link->next;
 351     if ((link->value.aconf->status & mask) == 0)
 352       detach_conf(cptr, link->value.aconf);
 353   }
 354 }
 355
 356 /** Check client limits and attach Client block.
 357  * If there are more connections from the IP than \a aconf->maximum
 358  * allows, return ACR_TOO_MANY_FROM_IP.  Otherwise, attach \a aconf to
 359  * \a cptr.
 360  * @param cptr Client getting \a aconf.
 361  * @param aconf Configuration item to attach.
 362  * @return Authorization check result.
 363  */
 364 static enum AuthorizationCheckResult
 365 check_limit_and_attach(struct Client* cptr, struct ConfItem* aconf)
 366 {
 367   if (IPcheck_nr(cptr) > aconf->maximum)
 368     return ACR_TOO_MANY_FROM_IP;
 369   return attach_conf(cptr, aconf);
 370 }
 371
 372 /** Find the first (best) Client block to attach.
 373  * @param cptr Client for whom to check rules.
 374  * @return Authorization check result.
 375  */
 376 enum AuthorizationCheckResult attach_iline(struct Client* cptr)
 377 {
 378   struct ConfItem* aconf;
 379   struct DNSReply* hp;
 380
 381   assert(0 != cptr);
 382
 383   hp = cli_dns_reply(cptr);
 384   for (aconf = GlobalConfList; aconf; aconf = aconf->next) {
 385     if (aconf->status != CONF_CLIENT)
 386       continue;
 387     if (aconf->address.port && aconf->address.port != cli_listener(cptr)->addr.port)
 388       continue;
 389     if (aconf->username) {
 390       SetFlag(cptr, FLAG_DOID);
 391       if (match(aconf->username, cli_username(cptr)))
 392         continue;
 393     }
 394     if (aconf->host && (!hp || match(aconf->host, hp->h_name)))
 395       continue;
 396     if ((aconf->addrbits >= 0)
 397         && !ipmask_check(&cli_ip(cptr), &aconf->address.addr, aconf->addrbits))
 398       continue;
 399     return check_limit_and_attach(cptr, aconf);
 400   }
 401   return ACR_NO_AUTHORIZATION;
 402 }
 403
 404 /** Check whether a particular ConfItem is already attached to a
 405  * Client.
 406  * @param aconf ConfItem to search for
 407  * @param cptr Client to check
 408  * @return Non-zero if \a aconf is attached to \a cptr, zero if not.
 409  */
 410 static int is_attached(struct ConfItem *aconf, struct Client *cptr)
 411 {
 412   struct SLink *lp;
 413
 414   for (lp = cli_confs(cptr); lp; lp = lp->next) {
 415     if (lp->value.aconf == aconf)
 416       return 1;
 417   }
 418   return 0;
 419 }
 420
 421 /** Associate a specific configuration entry to a *local* client (this
 422  * is the one which used in accepting the connection). Note, that this
 423  * automaticly changes the attachment if there was an old one...
 424  * @param cptr Client to attach \a aconf to
 425  * @param aconf ConfItem to attach
 426  * @return Authorization check result.
 427  */
 428 enum AuthorizationCheckResult attach_conf(struct Client *cptr, struct ConfItem *aconf)
 429 {
 430   struct SLink *lp;
 431
 432   if (is_attached(aconf, cptr))
 433     return ACR_ALREADY_AUTHORIZED;
 434   if (IsIllegal(aconf))
 435     return ACR_NO_AUTHORIZATION;
 436   if ((aconf->status & (CONF_OPERATOR | CONF_CLIENT)) &&
 437       ConfLinks(aconf) >= ConfMaxLinks(aconf) && ConfMaxLinks(aconf) > 0)
 438     return ACR_TOO_MANY_IN_CLASS;  /* Use this for printing error message */
 439   lp = make_link();
 440   lp->next = cli_confs(cptr);
 441   lp->value.aconf = aconf;
 442   cli_confs(cptr) = lp;
 443   ++aconf->clients;
 444   if (aconf->status & CONF_CLIENT_MASK)
 445     ConfLinks(aconf)++;
 446   return ACR_OK;
 447 }
 448
 449 /** Return our LocalConf configuration structure.
 450  * @return A pointer to #localConf.
 451  */
 452 const struct LocalConf* conf_get_local(void)
 453 {
 454   return &localConf;
 455 }
 456
 457 /** Attach ConfItems to a client if the name passed matches that for
 458  * the ConfItems or is an exact match for them.
 459  * @param cptr Client getting the ConfItem attachments.
 460  * @param name Filter to match ConfItem::name.
 461  * @param statmask Filter to limit ConfItem::status.
 462  * @return First ConfItem attached to \a cptr.
 463  */
 464 struct ConfItem* attach_confs_byname(struct Client* cptr, const char* name,
 465                                      int statmask)
 466 {
 467   struct ConfItem* tmp;
 468   struct ConfItem* first = NULL;
 469
 470   assert(0 != name);
 471
 472   if (HOSTLEN < strlen(name))
 473     return 0;
 474
 475   for (tmp = GlobalConfList; tmp; tmp = tmp->next) {
 476     if (0 != (tmp->status & statmask) && !IsIllegal(tmp)) {
 477       assert(0 != tmp->name);
 478       if (0 == match(tmp->name, name) || 0 == ircd_strcmp(tmp->name, name)) {
 479         if (ACR_OK == attach_conf(cptr, tmp) && !first)
 480           first = tmp;
 481       }
 482     }
 483   }
 484   return first;
 485 }
 486
 487 /** Attach ConfItems to a client if the host passed matches that for
 488  * the ConfItems or is an exact match for them.
 489  * @param cptr Client getting the ConfItem attachments.
 490  * @param host Filter to match ConfItem::host.
 491  * @param statmask Filter to limit ConfItem::status.
 492  * @return First ConfItem attached to \a cptr.
 493  */
 494 struct ConfItem* attach_confs_byhost(struct Client* cptr, const char* host,
 495                                      int statmask)
 496 {
 497   struct ConfItem* tmp;
 498   struct ConfItem* first = 0;
 499
 500   assert(0 != host);
 501   if (HOSTLEN < strlen(host))
 502     return 0;
 503
 504   for (tmp = GlobalConfList; tmp; tmp = tmp->next) {
 505     if (0 != (tmp->status & statmask) && !IsIllegal(tmp)) {
 506       assert(0 != tmp->host);
 507       if (0 == match(tmp->host, host) || 0 == ircd_strcmp(tmp->host, host)) {
 508         if (ACR_OK == attach_conf(cptr, tmp) && !first)
 509           first = tmp;
 510       }
 511     }
 512   }
 513   return first;
 514 }
 515
 516 /** Find a ConfItem that has the same name and user+host fields as
 517  * specified.  Requires an exact match for \a name.
 518  * @param name Name to match
 519  * @param cptr Client to match against
 520  * @param statmask Filter for ConfItem::status
 521  * @return First found matching ConfItem.
 522  */
 523 struct ConfItem* find_conf_exact(const char* name, struct Client *cptr, int statmask)
 524 {
 525   struct ConfItem *tmp;
 526
 527   for (tmp = GlobalConfList; tmp; tmp = tmp->next) {
 528     if (!(tmp->status & statmask) || !tmp->name || !tmp->host ||
 529         0 != ircd_strcmp(tmp->name, name))
 530       continue;
 531     if (tmp->username
 532         && (EmptyString(cli_username(cptr))
 533             || match(tmp->username, cli_username(cptr))))
 534       continue;
 535     if (tmp->addrbits < 0)
 536     {
 537       if (match(tmp->host, cli_sockhost(cptr)))
 538         continue;
 539     }
 540     else if (!ipmask_check(&cli_ip(cptr), &tmp->address.addr, tmp->addrbits))
 541       continue;
 542     if ((tmp->status & CONF_OPERATOR)
 543         && (tmp->clients >= MaxLinks(tmp->conn_class)))
 544       continue;
 545     return tmp;
 546   }
 547   return 0;
 548 }
 549
 550 /** Find a ConfItem from a list that has a name that matches \a name.
 551  * @param lp List to search in.
 552  * @param name Filter for ConfItem::name field; matches either exactly
 553  * or as a glob.
 554  * @param statmask Filter for ConfItem::status.
 555  * @return First matching ConfItem from \a lp.
 556  */
 557 struct ConfItem* find_conf_byname(struct SLink* lp, const char* name,
 558                                   int statmask)
 559 {
 560   struct ConfItem* tmp;
 561   assert(0 != name);
 562
 563   if (HOSTLEN < strlen(name))
 564     return 0;
 565
 566   for (; lp; lp = lp->next) {
 567     tmp = lp->value.aconf;
 568     if (0 != (tmp->status & statmask)) {
 569       assert(0 != tmp->name);
 570       if (0 == ircd_strcmp(tmp->name, name) || 0 == match(tmp->name, name))
 571         return tmp;
 572     }
 573   }
 574   return 0;
 575 }
 576
 577 /** Find a ConfItem from a list that has a host that matches \a host.
 578  * @param lp List to search in.
 579  * @param host Filter for ConfItem::host field; matches as a glob.
 580  * @param statmask Filter for ConfItem::status.
 581  * @return First matching ConfItem from \a lp.
 582  */
 583 struct ConfItem* find_conf_byhost(struct SLink* lp, const char* host,
 584                                   int statmask)
 585 {
 586   struct ConfItem* tmp = NULL;
 587   assert(0 != host);
 588
 589   if (HOSTLEN < strlen(host))
 590     return 0;
 591
 592   for (; lp; lp = lp->next) {
 593     tmp = lp->value.aconf;
 594     if (0 != (tmp->status & statmask)) {
 595       assert(0 != tmp->host);
 596       if (0 == match(tmp->host, host))
 597         return tmp;
 598     }
 599   }
 600   return 0;
 601 }
 602
 603 /** Find a ConfItem from a list that has an address equal to \a ip.
 604  * @param lp List to search in.
 605  * @param ip Filter for ConfItem::address field; matches exactly.
 606  * @param statmask Filter for ConfItem::status.
 607  * @return First matching ConfItem from \a lp.
 608  */
 609 struct ConfItem* find_conf_byip(struct SLink* lp, const struct irc_in_addr* ip,
 610                                 int statmask)
 611 {
 612   struct ConfItem* tmp;
 613
 614   for (; lp; lp = lp->next) {
 615     tmp = lp->value.aconf;
 616     if (0 != (tmp->status & statmask)
 617         && !irc_in_addr_cmp(&tmp->address.addr, ip))
 618       return tmp;
 619   }
 620   return 0;
 621 }
 622
 623 /** Free all CRules from #cruleConfList. */
 624 void conf_erase_crule_list(void)
 625 {
 626   struct CRuleConf* next;
 627   struct CRuleConf* p = cruleConfList;
 628
 629   for ( ; p; p = next) {
 630     next = p->next;
 631     crule_free(&p->node);
 632     MyFree(p->hostmask);
 633     MyFree(p->rule);
 634     MyFree(p);
 635   }
 636   cruleConfList = 0;
 637 }
 638
 639 /** Return #cruleConfList.
 640  * @return #cruleConfList
 641  */
 642 const struct CRuleConf* conf_get_crule_list(void)
 643 {
 644   return cruleConfList;
 645 }
 646
 647 /** Free all deny rules from #denyConfList. */
 648 void conf_erase_deny_list(void)
 649 {
 650   struct DenyConf* next;
 651   struct DenyConf* p = denyConfList;
 652   for ( ; p; p = next) {
 653     next = p->next;
 654     MyFree(p->hostmask);
 655     MyFree(p->usermask);
 656     MyFree(p->message);
 657     MyFree(p);
 658   }
 659   denyConfList = 0;
 660 }
 661
 662 /** Return #denyConfList.
 663  * @return #denyConfList
 664  */
 665 const struct DenyConf* conf_get_deny_list(void)
 666 {
 667   return denyConfList;
 668 }
 669
 670 /** Find any existing quarantine for the named channel.
 671  * @param chname Channel name to search for.
 672  * @return Reason for channel's quarantine, or NULL if none exists.
 673  */
 674 const char*
 675 find_quarantine(const char *chname)
 676 {
 677   struct qline *qline;
 678
 679   for (qline = GlobalQuarantineList; qline; qline = qline->next)
 680     if (!ircd_strcmp(qline->chname, chname))
 681       return qline->reason;
 682   return NULL;
 683 }
 684
 685 /** Free all qline structs from #GlobalQuarantineList. */
 686 void clear_quarantines(void)
 687 {
 688   struct qline *qline;
 689   while ((qline = GlobalQuarantineList))
 690   {
 691     GlobalQuarantineList = qline->next;
 692     MyFree(qline->reason);
 693     MyFree(qline->chname);
 694     MyFree(qline);
 695   }
 696 }
 697
 698 /** When non-zero, indicates that a configuration error has been seen in this pass. */
 699 static int conf_error;
 700 /** When non-zero, indicates that the configuration file was loaded at least once. */
 701 static int conf_already_read;
 702 extern FILE *yyin;
 703 extern void yyparse(void);
 704 extern void init_lexer(void);
 705
 706 /** Read configuration file.
 707  * @return Zero on failure, non-zero on success. */
 708 int read_configuration_file(void)
 709 {
 710   conf_error = 0;
 711   feature_unmark(); /* unmark all features for resetting later */
 712   /* Now just open an fd. The buffering isn't really needed... */
 713   init_lexer();
 714   yyparse();
 715   fclose(yyin);
 716   yyin = NULL;
 717   feature_mark(); /* reset unmarked features */
 718   conf_already_read = 1;
 719   return 1;
 720 }
 721
 722 /** Report an error message about the configuration file.
 723  * @param msg The error to report.
 724  */
 725 void
 726 yyerror(const char *msg)
 727 {
 728  sendto_opmask_butone(0, SNO_ALL, "Config file parse error line %d: %s",
 729                       lineno, msg);
 730  log_write(LS_CONFIG, L_ERROR, 0, "Config file parse error line %d: %s",
 731            lineno, msg);
 732  if (!conf_already_read)
 733    fprintf(stderr, "Config file parse error line %d: %s\n", lineno, msg);
 734  conf_error = 1;
 735 }
 736
 737 /** Reload the configuration file.
 738  * @param cptr Client that requested rehash (if a signal, &me).
 739  * @param sig Type of rehash (0 = oper-requested, 1 = signal, 2 =
 740  *   oper-requested but do not restart resolver)
 741  * @return CPTR_KILLED if any client was K/G-lined because of the
 742  * rehash; otherwise 0.
 743  */
 744 int rehash(struct Client *cptr, int sig)
 745 {
 746   struct ConfItem** tmp = &GlobalConfList;
 747   struct ConfItem*  tmp2;
 748   struct Client*    acptr;
 749   int               i;
 750   int               ret = 0;
 751   int               found_g = 0;
 752
 753   if (1 == sig)
 754     sendto_opmask_butone(0, SNO_OLDSNO,
 755                          "Got signal SIGHUP, reloading ircd conf. file");
 756
 757   while ((tmp2 = *tmp)) {
 758     if (tmp2->clients) {
 759       /*
 760        * Configuration entry is still in use by some
 761        * local clients, cannot delete it--mark it so
 762        * that it will be deleted when the last client
 763        * exits...
 764        */
 765       if (CONF_CLIENT == (tmp2->status & CONF_CLIENT))
 766         tmp = &tmp2->next;
 767       else {
 768         *tmp = tmp2->next;
 769         tmp2->next = 0;
 770       }
 771       tmp2->status |= CONF_ILLEGAL;
 772     }
 773     else {
 774       *tmp = tmp2->next;
 775       free_conf(tmp2);
 776     }
 777   }
 778   conf_erase_crule_list();
 779   conf_erase_deny_list();
 780   motd_clear();
 781
 782   /*
 783    * delete the juped nicks list
 784    */
 785   clearNickJupes();
 786
 787   clear_quarantines();
 788
 789   if (sig != 2)
 790     restart_resolver();
 791
 792   class_mark_delete();
 793   mark_listeners_closing();
 794   iauth_mark_closing();
 795
 796   read_configuration_file();
 797
 798   log_reopen(); /* reopen log files */
 799
 800   iauth_close_unused();
 801   close_listeners();
 802   class_delete_marked();         /* unless it fails */
 803
 804   /*
 805    * Flush out deleted I and P lines although still in use.
 806    */
 807   for (tmp = &GlobalConfList; (tmp2 = *tmp);) {
 808     if (CONF_ILLEGAL == (tmp2->status & CONF_ILLEGAL)) {
 809       *tmp = tmp2->next;
 810       tmp2->next = NULL;
 811       if (!tmp2->clients)
 812         free_conf(tmp2);
 813     }
 814     else
 815       tmp = &tmp2->next;
 816   }
 817
 818   for (i = 0; i <= HighestFd; i++) {
 819     if ((acptr = LocalClientArray[i])) {
 820       assert(!IsMe(acptr));
 821       if (IsServer(acptr)) {
 822         det_confs_butmask(acptr, ~(CONF_UWORLD | CONF_ILLEGAL));
 823         attach_confs_byname(acptr, cli_name(acptr), CONF_UWORLD);
 824       }
 825       /* Because admin's are getting so uppity about people managing to
 826        * get past K/G's etc, we'll "fix" the bug by actually explaining
 827        * whats going on.
 828        */
 829       if ((found_g = find_kill(acptr))) {
 830         sendto_opmask_butone(0, found_g == -2 ? SNO_GLINE : SNO_OPERKILL,
 831                              found_g == -2 ? "G-line active for %s%s" :
 832                              "K-line active for %s%s",
 833                              IsUnknown(acptr) ? "Unregistered Client ":"",
 834                              get_client_name(acptr, SHOW_IP));
 835         if (exit_client(cptr, acptr, &me, found_g == -2 ? "G-lined" :
 836             "K-lined") == CPTR_KILLED)
 837           ret = CPTR_KILLED;
 838       }
 839     }
 840   }
 841
 842   return ret;
 843 }
 844
 845 /** Read configuration file for the very first time.
 846  * @return Non-zero on success, zero on failure.
 847  */
 848
 849 int init_conf(void)
 850 {
 851   if (read_configuration_file()) {
 852     /*
 853      * make sure we're sane to start if the config
 854      * file read didn't get everything we need.
 855      * XXX - should any of these abort the server?
 856      * TODO: add warning messages
 857      */
 858     if (0 == localConf.name || 0 == localConf.numeric)
 859       return 0;
 860     if (conf_error)
 861       return 0;
 862
 863     if (0 == localConf.location1)
 864       DupString(localConf.location1, "");
 865     if (0 == localConf.location2)
 866       DupString(localConf.location2, "");
 867     if (0 == localConf.contact)
 868       DupString(localConf.contact, "");
 869
 870     return 1;
 871   }
 872   return 0;
 873 }
 874
 875 /** Searches for a K/G-line for a client.  If one is found, notify the
 876  * user and disconnect them.
 877  * @param cptr Client to search for.
 878  * @return 0 if client is accepted; -1 if client was locally denied
 879  * (K-line); -2 if client was globally denied (G-line).
 880  */
 881 int find_kill(struct Client *cptr)
 882 {
 883   const char*      host;
 884   const char*      name;
 885   const char*      realname;
 886   struct DenyConf* deny;
 887   struct Gline*    agline = NULL;
 888
 889   assert(0 != cptr);
 890
 891   if (!cli_user(cptr))
 892     return 0;
 893
 894   host = cli_sockhost(cptr);
 895   name = cli_user(cptr)->username;
 896   realname = cli_info(cptr);
 897
 898   assert(strlen(host) <= HOSTLEN);
 899   assert((name ? strlen(name) : 0) <= HOSTLEN);
 900   assert((realname ? strlen(realname) : 0) <= REALLEN);
 901
 902   /* 2000-07-14: Rewrote this loop for massive speed increases.
 903    *             -- Isomer
 904    */
 905   for (deny = denyConfList; deny; deny = deny->next) {
 906     if (0 != match(deny->usermask, name))
 907       continue;
 908
 909     if (EmptyString(deny->hostmask))
 910       break;
 911
 912     if (deny->flags & DENY_FLAGS_REALNAME) { /* K: by real name */
 913       if (0 == match(deny->hostmask + 2, realname))
 914         break;
 915     } else if (deny->flags & DENY_FLAGS_IP) { /* k: by IP */
 916 #ifdef DEBUGMODE
 917       char tbuf1[SOCKIPLEN], tbuf2[SOCKIPLEN];
 918       Debug((DEBUG_DEBUG, "ip: %s network: %s/%u",
 919              ircd_ntoa_r(tbuf1, &cli_ip(cptr)), ircd_ntoa_r(tbuf2, &deny->address), deny->bits));
 920 #endif
 921       if (ipmask_check(&cli_ip(cptr), &deny->address, deny->bits))
 922         break;
 923     }
 924     else if (0 == match(deny->hostmask, host))
 925       break;
 926   }
 927   if (deny) {
 928     if (EmptyString(deny->message))
 929       send_reply(cptr, SND_EXPLICIT | ERR_YOUREBANNEDCREEP,
 930                  ":Connection from your host is refused on this server.");
 931     else {
 932       if (deny->flags & DENY_FLAGS_FILE)
 933         killcomment(cptr, deny->message);
 934       else
 935         send_reply(cptr, SND_EXPLICIT | ERR_YOUREBANNEDCREEP, ":%s.", deny->message);
 936     }
 937   }
 938   else if ((agline = gline_lookup(cptr, 0))) {
 939     /*
 940      * find active glines
 941      * added a check against the user's IP address to find_gline() -Kev
 942      */
 943     send_reply(cptr, SND_EXPLICIT | ERR_YOUREBANNEDCREEP, ":%s.", GlineReason(agline));
 944   }
 945
 946   if (deny)
 947     return -1;
 948   if (agline)
 949     return -2;
 950
 951   return 0;
 952 }
 953
 954 /** Attempt to attach Client blocks to \a cptr.  If attach_iline()
 955  * fails for the client, emit a debugging message.
 956  * @param cptr Client to check for access.
 957  * @return Access check result.
 958  */
 959 enum AuthorizationCheckResult conf_check_client(struct Client *cptr)
 960 {
 961   enum AuthorizationCheckResult acr = ACR_OK;
 962
 963   if ((acr = attach_iline(cptr))) {
 964     Debug((DEBUG_DNS, "ch_cl: access denied: %s[%s]",
 965           cli_name(cptr), cli_sockhost(cptr)));
 966     return acr;
 967   }
 968   return ACR_OK;
 969 }
 970
 971 /** Check access for a server given its name (passed in cptr struct).
 972  * Must check for all C/N lines which have a name which matches the
 973  * name given and a host which matches. A host alias which is the
 974  * same as the server name is also acceptable in the host field of a
 975  * C/N line.
 976  * @param cptr Peer server to check.
 977  * @return 0 if accepted, -1 if access denied.
 978  */
 979 int conf_check_server(struct Client *cptr)
 980 {
 981   struct ConfItem* c_conf = NULL;
 982   struct SLink*    lp;
 983
 984   Debug((DEBUG_DNS, "sv_cl: check access for %s[%s]",
 985         cli_name(cptr), cli_sockhost(cptr)));
 986
 987   if (IsUnknown(cptr) && !attach_confs_byname(cptr, cli_name(cptr), CONF_SERVER)) {
 988     Debug((DEBUG_DNS, "No C/N lines for %s", cli_sockhost(cptr)));
 989     return -1;
 990   }
 991   lp = cli_confs(cptr);
 992   /*
 993    * We initiated this connection so the client should have a C and N
 994    * line already attached after passing through the connect_server()
 995    * function earlier.
 996    */
 997   if (IsConnecting(cptr) || IsHandshake(cptr)) {
 998     c_conf = find_conf_byname(lp, cli_name(cptr), CONF_SERVER);
 999     if (!c_conf) {
1000       sendto_opmask_butone(0, SNO_OLDSNO, "Connect Error: lost C:line for %s",
1001                            cli_name(cptr));
1002       det_confs_butmask(cptr, 0);
1003       return -1;
1004     }
1005   }
1006
1007   if (!c_conf) {
1008     if (cli_dns_reply(cptr)) {
1009       struct DNSReply* hp = cli_dns_reply(cptr);
1010       const char*     name = hp->h_name;
1011       /*
1012        * If we are missing a C or N line from above, search for
1013        * it under all known hostnames we have for this ip#.
1014        */
1015       if ((c_conf = find_conf_byhost(lp, hp->h_name, CONF_SERVER)))
1016         ircd_strncpy(cli_sockhost(cptr), name, HOSTLEN);
1017       else
1018         c_conf = find_conf_byip(lp, &hp->addr, CONF_SERVER);
1019     }
1020     else {
1021       /*
1022        * Check for C lines with the hostname portion the ip number
1023        * of the host the server runs on. This also checks the case where
1024        * there is a server connecting from 'localhost'.
1025        */
1026       c_conf = find_conf_byhost(lp, cli_sockhost(cptr), CONF_SERVER);
1027     }
1028   }
1029   /*
1030    * Attach by IP# only if all other checks have failed.
1031    * It is quite possible to get here with the strange things that can
1032    * happen when using DNS in the way the irc server does. -avalon
1033    */
1034   if (!c_conf)
1035     c_conf = find_conf_byip(lp, &cli_ip(cptr), CONF_SERVER);
1036   /*
1037    * detach all conf lines that got attached by attach_confs()
1038    */
1039   det_confs_butmask(cptr, 0);
1040   /*
1041    * if no Connect block, then deny access
1042    */
1043   if (!c_conf) {
1044     Debug((DEBUG_DNS, "sv_cl: access denied: %s[%s@%s]",
1045           cli_name(cptr), cli_username(cptr), cli_sockhost(cptr)));
1046     return -1;
1047   }
1048   /*
1049    * attach the Connect block to the client structure for later use.
1050    */
1051   attach_conf(cptr, c_conf);
1052   attach_confs_byname(cptr, cli_name(cptr), CONF_UWORLD);
1053
1054   if (!irc_in_addr_valid(&c_conf->address.addr))
1055     memcpy(&c_conf->address.addr, &cli_ip(cptr), sizeof(c_conf->address.addr));
1056
1057   Debug((DEBUG_DNS, "sv_cl: access ok: %s[%s]",
1058          cli_name(cptr), cli_sockhost(cptr)));
1059   return 0;
1060 }
1061