ircd/ircd_features.c

   1 /*
   2  * IRC - Internet Relay Chat, ircd/features.c
   3  * Copyright (C) 2000 Kevin L. Mitchell <klmitch@mit.edu>
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 1, or (at your option)
   8  * any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program; if not, write to the Free Software
  17  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18  *
  19  * $Id$
  20  */
  21 #include "config.h"
  22 #include "ircd_features.h"
  23 #include "channel.h"    /* list_set_default */
  24 #include "class.h"
  25 #include "client.h"
  26 #include "hash.h"
  27 #include "ircd.h"
  28 #include "ircd_alloc.h"
  29 #include "ircd_log.h"
  30 #include "ircd_reply.h"
  31 #include "ircd_string.h"
  32 #include "match.h"
  33 #include "motd.h"
  34 #include "msg.h"
  35 #include "numeric.h"
  36 #include "numnicks.h"
  37 #include "random.h"     /* random_seed_set */
  38 #include "s_bsd.h"
  39 #include "s_debug.h"
  40 #include "s_misc.h"
  41 #include "send.h"
  42 #include "struct.h"
  43 #include "support.h"
  44 #include "sys.h"    /* FALSE bleah */
  45
  46 #include <assert.h>
  47 #include <stdlib.h>
  48 #include <string.h>
  49
  50 /* List of log output types that can be set */
  51 static struct LogTypes {
  52   char *type;
  53   int (*set)(const char *, const char *);
  54   char *(*get)(const char *);
  55 } logTypes[] = {
  56   { "FILE", log_set_file, log_get_file },
  57   { "FACILITY", log_set_facility, log_get_facility },
  58   { "SNOMASK", log_set_snomask, log_get_snomask },
  59   { "LEVEL", log_set_level, log_get_level },
  60   { 0, 0, 0 }
  61 };
  62
  63 /* Look up a struct LogType given the type string */
  64 static struct LogTypes *
  65 feature_log_desc(struct Client* from, const char *type)
  66 {
  67   int i;
  68
  69   assert(0 != type);
  70
  71   for (i = 0; logTypes[i].type; i++) /* find appropriate descriptor */
  72     if (!ircd_strcmp(type, logTypes[i].type))
  73       return &logTypes[i];
  74
  75   Debug((DEBUG_ERROR, "Unknown log feature type \"%s\"", type));
  76   if (from) /* send an error; if from is NULL, called from conf parser */
  77     send_reply(from, ERR_BADLOGTYPE, type);
  78   else
  79     log_write(LS_CONFIG, L_ERROR, 0, "Unknown log feature type \"%s\"", type);
  80
  81   return 0; /* not found */
  82 }
  83
  84 /* Set the value of a log output type for a log subsystem */
  85 static int
  86 feature_log_set(struct Client* from, const char* const* fields, int count)
  87 {
  88   struct LogTypes *desc;
  89   char *subsys;
  90
  91   if (count < 2) { /* set default facility */
  92     if (log_set_default(count < 1 ? 0 : fields[0])) {
  93       assert(count >= 1); /* should always accept default */
  94
  95       if (from) /* send an error */
  96         send_reply(from, ERR_BADLOGVALUE, fields[0]);
  97       else
  98         log_write(LS_CONFIG, L_ERROR, 0,
  99                   "Bad value \"%s\" for default facility", fields[0]);
 100     } else
 101       return count < 1 ? -1 : 1; /* tell feature to set or clear mark */
 102   } else if (!(subsys = log_canon(fields[0]))) { /* no such subsystem */
 103     if (from) /* send an error */
 104       send_reply(from, ERR_BADLOGSYS, fields[0]);
 105     else
 106       log_write(LS_CONFIG, L_ERROR, 0,
 107                 "No such logging subsystem \"%s\"", fields[0]);
 108   } else if ((desc = feature_log_desc(from, fields[1]))) { /* set value */
 109     if ((*desc->set)(fields[0], count < 3 ? 0 : fields[2])) {
 110       assert(count >= 3); /* should always accept default */
 111
 112       if (from) /* send an error */
 113         send_reply(from, ERR_BADLOGVALUE, fields[2]);
 114       else
 115         log_write(LS_CONFIG, L_ERROR, 0,
 116                   "Bad value \"%s\" for log type %s (subsystem %s)",
 117                   fields[2], desc->type, subsys);
 118     }
 119   }
 120
 121   return 0;
 122 }
 123
 124 /* reset a log type for a subsystem to its default value */
 125 static int
 126 feature_log_reset(struct Client* from, const char* const* fields, int count)
 127 {
 128   struct LogTypes *desc;
 129   char *subsys;
 130
 131   assert(0 != from); /* Never called by the .conf parser */
 132
 133   if (count < 1) { /* reset default facility */
 134     log_set_default(0);
 135     return -1; /* unmark this entry */
 136   } else if (count < 2)
 137     need_more_params(from, "RESET");
 138   else if (!(subsys = log_canon(fields[0]))) /* no such subsystem */
 139     send_reply(from, ERR_BADLOGSYS, fields[0]);
 140   else if ((desc = feature_log_desc(from, fields[1]))) /* reset value */
 141     (*desc->set)(fields[0], 0); /* default should always be accepted */
 142
 143   return 0;
 144 }
 145
 146 /* report the value of a log setting */
 147 static void
 148 feature_log_get(struct Client* from, const char* const* fields, int count)
 149 {
 150   struct LogTypes *desc;
 151   char *value, *subsys;
 152
 153   assert(0 != from); /* never called by .conf parser */
 154
 155   if (count < 1) /* return default facility */
 156     send_reply(from, SND_EXPLICIT | RPL_FEATURE, ":Log facility: %s",
 157                log_get_default());
 158   else if (count < 2)
 159     need_more_params(from, "GET");
 160   else if (!(subsys = log_canon(fields[0]))) { /* no such subsystem */
 161     send_reply(from, ERR_BADLOGSYS, fields[0]);
 162   } else if ((desc = feature_log_desc(from, fields[1]))) {
 163     if ((value = (*desc->get)(fields[0]))) /* send along value */
 164       send_reply(from, SND_EXPLICIT | RPL_FEATURE,
 165                  ":Log %s for subsystem %s: %s", desc->type, subsys,
 166                  (*desc->get)(subsys));
 167     else
 168       send_reply(from, SND_EXPLICIT | RPL_FEATURE,
 169                  ":No log %s is set for subsystem %s", desc->type, subsys);
 170   }
 171 }
 172
 173 /* sets a feature to the given value */
 174 typedef int  (*feat_set_call)(struct Client*, const char* const*, int);
 175 /* gets the value of a feature */
 176 typedef void (*feat_get_call)(struct Client*, const char* const*, int);
 177 /* callback to notify of a feature's change */
 178 typedef void (*feat_notify_call)(void);
 179 /* unmarks all sub-feature values prior to reading .conf */
 180 typedef void (*feat_unmark_call)(void);
 181 /* resets to defaults all currently unmarked values */
 182 typedef int  (*feat_mark_call)(int);
 183 /* reports features as a /stats f list */
 184 typedef void (*feat_report_call)(struct Client*, int);
 185
 186 #define FEAT_NONE   0x0000      /* no value */
 187 #define FEAT_INT    0x0001      /* set if entry contains an integer value */
 188 #define FEAT_BOOL   0x0002      /* set if entry contains a boolean value */
 189 #define FEAT_STR    0x0003      /* set if entry contains a string value */
 190 #define FEAT_MASK   0x000f      /* possible value types */
 191
 192 #define FEAT_MARK   0x0010      /* set if entry has been changed */
 193 #define FEAT_NULL   0x0020      /* NULL string is permitted */
 194 #define FEAT_CASE   0x0040      /* string is case-sensitive */
 195
 196 #define FEAT_OPER   0x0100      /* set to display only to opers */
 197 #define FEAT_MYOPER 0x0200      /* set to display only to local opers */
 198 #define FEAT_NODISP 0x0400      /* feature must never be displayed */
 199
 200 #define FEAT_READ   0x1000      /* feature is read-only (for now, perhaps?) */
 201
 202 static struct FeatureDesc {
 203   enum Feature     feat;    /* feature identifier */
 204   char*            type;    /* string describing type */
 205   unsigned int     flags;   /* flags for feature */
 206   int              v_int;   /* integer value */
 207   int              def_int; /* default value */
 208   char*            v_str;   /* string value */
 209   char*            def_str; /* default value */
 210   feat_set_call    set;     /* set feature values */
 211   feat_set_call    reset;   /* reset feature values to defaults */
 212   feat_get_call    get;     /* get feature values */
 213   feat_notify_call notify;  /* notify of value change */
 214   feat_unmark_call unmark;  /* unmark all feature change values */
 215   feat_mark_call   mark;    /* reset to defaults all unchanged features */
 216   feat_report_call report;  /* report feature values */
 217 } features[] = {
 218 #define F_N(type, flags, set, reset, get, notify, unmark, mark, report)       \
 219   { FEAT_ ## type, #type, FEAT_NONE | (flags), 0, 0, 0, 0,                    \
 220     (set), (reset), (get), (notify), (unmark), (mark), (report) }
 221 #define F_I(type, flags, v_int, notify)                                       \
 222   { FEAT_ ## type, #type, FEAT_INT | (flags), 0, (v_int), 0, 0,               \
 223     0, 0, 0, (notify), 0, 0, 0 }
 224 #define F_B(type, flags, v_int, notify)                                       \
 225   { FEAT_ ## type, #type, FEAT_BOOL | (flags), 0, (v_int), 0, 0,              \
 226     0, 0, 0, (notify), 0, 0, 0 }
 227 #define F_S(type, flags, v_str, notify)                                       \
 228   { FEAT_ ## type, #type, FEAT_STR | (flags), 0, 0, 0, (v_str),               \
 229     0, 0, 0, (notify), 0, 0, 0 }
 230
 231   /* Misc. features */
 232   F_N(LOG, FEAT_MYOPER, feature_log_set, feature_log_reset, feature_log_get,
 233       0, log_feature_unmark, log_feature_mark, log_feature_report),
 234   F_S(DOMAINNAME, 0, DOMAINNAME, 0),
 235   F_B(RELIABLE_CLOCK, 0, 0, 0),
 236   F_I(BUFFERPOOL, 0, 27000000, 0),
 237   F_B(HAS_FERGUSON_FLUSHER, 0, 0, 0),
 238   F_I(CLIENT_FLOOD, 0, 1024, 0),
 239   F_I(SERVER_PORT, FEAT_OPER, 4400, 0),
 240   F_B(NODEFAULTMOTD, 0, 1, 0),
 241   F_B(KILL_IPMISMATCH, FEAT_OPER, 0, 0),
 242   F_B(IDLE_FROM_MSG, 0, 1, 0),
 243   F_B(HUB, 0, 0, 0),
 244   F_B(WALLOPS_OPER_ONLY, 0, 0, 0),
 245   F_B(NODNS, 0, 0, 0),
 246   F_N(RANDOM_SEED, FEAT_NODISP, random_seed_set, 0, 0, 0, 0, 0, 0),
 247   F_S(DEFAULT_LIST_PARAM, FEAT_NULL, 0, list_set_default),
 248
 249   /* features that probably should not be touched */
 250   F_I(KILLCHASETIMELIMIT, 0, 30, 0),
 251   F_I(MAXCHANNELSPERUSER, 0, 10, 0),
 252   F_I(AVBANLEN, 0, 40, 0),
 253   F_I(MAXBANS, 0, 30, 0),
 254   F_I(MAXSILES, 0, 15, 0),
 255   F_I(HANGONGOODLINK, 0, 300, 0),
 256   F_I(HANGONRETRYDELAY, 0, 10, 0),
 257   F_I(CONNECTTIMEOUT, 0, 90, 0),
 258   F_I(TIMESEC, 0, 60, 0),
 259   F_I(MAXIMUM_LINKS, 0, 1, init_class), /* reinit class 0 as needed */
 260   F_I(PINGFREQUENCY, 0, 120, init_class),
 261   F_I(CONNECTFREQUENCY, 0, 600, init_class),
 262   F_I(DEFAULTMAXSENDQLENGTH, 0, 40000, init_class),
 263
 264   /* Some misc. default paths */
 265   F_S(MPATH, FEAT_CASE | FEAT_MYOPER, "ircd.motd", motd_init),
 266   F_S(RPATH, FEAT_CASE | FEAT_MYOPER, "remote.motd", motd_init),
 267   F_S(PPATH, FEAT_CASE | FEAT_MYOPER | FEAT_READ, "ircd.pid", 0),
 268
 269   /* Networking features */
 270   F_B(VIRTUAL_HOST, 0, 0, 0),
 271   F_I(TOS_SERVER, 0, 0x08, 0),
 272   F_I(TOS_CLIENT, 0, 0x08, 0),
 273
 274   /* features that affect all operators */
 275   F_B(CRYPT_OPER_PASSWORD, FEAT_MYOPER | FEAT_READ, 1, 0),
 276   F_B(OPER_NO_CHAN_LIMIT, 0, 1, 0),
 277   F_B(OPER_MODE_LCHAN, 0, 1, 0),
 278   F_B(OPER_WALK_THROUGH_LMODES, 0, 0, 0),
 279   F_B(NO_OPER_DEOP_LCHAN, 0, 0, 0),
 280   F_B(SHOW_INVISIBLE_USERS, 0, 1, 0),
 281   F_B(SHOW_ALL_INVISIBLE_USERS, 0, 1, 0),
 282   F_B(UNLIMIT_OPER_QUERY, 0, 0, 0),
 283   F_B(LOCAL_KILL_ONLY, 0, 0, 0),
 284   F_B(CONFIG_OPERCMDS, 0, 1, 0), /* XXX change default before release */
 285
 286   /* features that affect global opers on this server */
 287   F_B(OPER_KILL, 0, 1, 0),
 288   F_B(OPER_REHASH, 0, 1, 0),
 289   F_B(OPER_RESTART, 0, 1, 0),
 290   F_B(OPER_DIE, 0, 1, 0),
 291   F_B(OPER_GLINE, 0, 1, 0),
 292   F_B(OPER_LGLINE, 0, 1, 0),
 293   F_B(OPER_JUPE, 0, 1, 0),
 294   F_B(OPER_LJUPE, 0, 1, 0),
 295   F_B(OPER_OPMODE, 0, 1, 0),
 296   F_B(OPER_LOPMODE, 0, 1, 0),
 297   F_B(OPER_BADCHAN, 0, 0, 0),
 298   F_B(OPER_LBADCHAN, 0, 0, 0),
 299   F_B(OPER_SET, 0, 1, 0),
 300   F_B(OPERS_SEE_IN_SECRET_CHANNELS, 0, 1, 0),
 301
 302   /* features that affect local opers on this server */
 303   F_B(LOCOP_KILL, 0, 0, 0),
 304   F_B(LOCOP_REHASH, 0, 1, 0),
 305   F_B(LOCOP_RESTART, 0, 0, 0),
 306   F_B(LOCOP_DIE, 0, 0, 0),
 307   F_B(LOCOP_LGLINE, 0, 1, 0),
 308   F_B(LOCOP_LJUPE, 0, 1, 0),
 309   F_B(LOCOP_LOPMODE, 0, 1, 0),
 310   F_B(LOCOP_LBADCHAN, 0, 0, 0),
 311   F_B(LOCOP_SET, 0, 0, 0),
 312   F_B(LOCOP_SEE_IN_SECRET_CHANNELS, 0, 0, 0),
 313
 314 #undef F_S
 315 #undef F_B
 316 #undef F_I
 317 #undef F_N
 318   { FEAT_LAST_F, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
 319 };
 320
 321 /* Given a feature's identifier, look up the feature descriptor */
 322 static struct FeatureDesc *
 323 feature_desc(struct Client* from, const char *feature)
 324 {
 325   int i;
 326
 327   assert(0 != feature);
 328
 329   for (i = 0; features[i].type; i++) /* find appropriate descriptor */
 330     if (!ircd_strcmp(feature, features[i].type))
 331       return &features[i];
 332
 333   Debug((DEBUG_ERROR, "Unknown feature \"%s\"", feature));
 334   if (from) /* report an error */
 335     send_reply(from, ERR_NOFEATURE, feature);
 336   else
 337     log_write(LS_CONFIG, L_ERROR, 0, "Unknown feature \"%s\"", feature);
 338
 339   return 0; /* not found */
 340 }
 341
 342 /* Given a feature vector string, set the value of a feature */
 343 int
 344 feature_set(struct Client* from, const char* const* fields, int count)
 345 {
 346   int i, change = 0, tmp;
 347   const char *t_str;
 348   struct FeatureDesc *feat;
 349
 350   if (from && !HasPriv(from, PRIV_SET))
 351     return send_reply(from, ERR_NOPRIVILEGES);
 352
 353   if (count < 1) {
 354     if (from) /* report an error in the number of arguments */
 355       need_more_params(from, "SET");
 356     else
 357       log_write(LS_CONFIG, L_ERROR, 0, "Not enough fields in F line");
 358   } else if ((feat = feature_desc(from, fields[0]))) { /* find feature */
 359     if (from && feat->flags & FEAT_READ)
 360       return send_reply(from, ERR_NOFEATURE, fields[0]);
 361
 362     switch (feat->flags & FEAT_MASK) {
 363     case FEAT_NONE:
 364       if (feat->set && (i = (*feat->set)(from, fields + 1, count - 1))) {
 365         change++; /* feature handler wants a change recorded */
 366
 367         if (i > 0) /* call the set callback and do marking */
 368           feat->flags |= FEAT_MARK;
 369         else /* i < 0 */
 370           feat->flags &= ~FEAT_MARK;
 371         break;
 372       }
 373
 374     case FEAT_INT: /* an integer value */
 375       tmp = feat->v_int; /* detect changes... */
 376
 377       if (count < 2) { /* reset value */
 378         feat->v_int = feat->def_int;
 379         feat->flags &= ~FEAT_MARK;
 380       } else { /* ok, figure out the value and whether to mark it */
 381         feat->v_int = strtoul(fields[1], 0, 0);
 382         if (feat->v_int == feat->def_int)
 383           feat->flags &= ~FEAT_MARK;
 384         else
 385           feat->flags |= FEAT_MARK;
 386       }
 387
 388       if (feat->v_int != tmp) /* check for change */
 389         change++;
 390       break;
 391
 392     case FEAT_BOOL: /* it's a boolean value--true or false */
 393       tmp = feat->v_int; /* detect changes... */
 394
 395       if (count < 2) { /* reset value */
 396         feat->v_int = feat->def_int;
 397         feat->flags &= ~FEAT_MARK;
 398       } else { /* figure out the value and whether to mark it */
 399         if (!ircd_strncmp(fields[1], "TRUE", strlen(fields[1])) ||
 400             !ircd_strncmp(fields[1], "YES", strlen(fields[1])) ||
 401             (strlen(fields[1]) >= 2 &&
 402              !ircd_strncmp(fields[1], "ON", strlen(fields[1]))))
 403           feat->v_int = 1;
 404         else if (!ircd_strncmp(fields[1], "FALSE", strlen(fields[1])) ||
 405                  !ircd_strncmp(fields[1], "NO", strlen(fields[1])) ||
 406                  (strlen(fields[1]) >= 2 &&
 407                   !ircd_strncmp(fields[1], "OFF", strlen(fields[1]))))
 408           feat->v_int = 0;
 409         else if (from) /* report an error... */
 410           return send_reply(from, ERR_BADFEATVALUE, fields[1], feat->type);
 411         else {
 412           log_write(LS_CONFIG, L_ERROR, 0, "Bad value \"%s\" for feature %s",
 413                     fields[1], feat->type);
 414           return 0;
 415         }
 416
 417         if (feat->v_int == feat->def_int) /* figure out whether to mark it */
 418           feat->flags &= ~FEAT_MARK;
 419         else
 420           feat->flags |= FEAT_MARK;
 421       }
 422
 423       if (feat->v_int != tmp) /* check for change */
 424         change++;
 425       break;
 426
 427     case FEAT_STR: /* it's a string value */
 428       if (count < 2)
 429         t_str = feat->def_str; /* changing to default */
 430       else
 431         t_str = *fields[1] ? fields[1] : 0;
 432
 433       if (!t_str && !(feat->flags & FEAT_NULL)) { /* NULL value permitted? */
 434         if (from)
 435           return send_reply(from, ERR_BADFEATVALUE, "NULL", feat->type);
 436         else {
 437           log_write(LS_CONFIG, L_ERROR, 0, "Bad value \"NULL\" for feature %s",
 438                     feat->type);
 439           return 0;
 440         }
 441       }
 442
 443       if (t_str == feat->def_str ||
 444           (t_str && feat->def_str &&
 445            !(feat->flags & FEAT_CASE ? strcmp(t_str, feat->def_str) :
 446              ircd_strcmp(t_str, feat->def_str)))) { /* resetting to default */
 447         if (feat->v_str != feat->def_str) {
 448           change++; /* change from previous value */
 449
 450           if (feat->v_str)
 451             MyFree(feat->v_str); /* free old value */
 452         }
 453
 454         feat->v_str = feat->def_str; /* very special... */
 455
 456         feat->flags &= ~FEAT_MARK;
 457       } else if (!t_str) {
 458         if (feat->v_str) {
 459           change++; /* change from previous value */
 460
 461           if (feat->v_str != feat->def_str)
 462             MyFree(feat->v_str); /* free old value */
 463         }
 464
 465         feat->v_str = 0; /* set it to NULL */
 466
 467         feat->flags |= FEAT_MARK;
 468       } else if (!feat->v_str ||
 469                  (feat->flags & FEAT_CASE ? strcmp(t_str, feat->v_str) :
 470                   ircd_strcmp(t_str, feat->v_str))) { /* new value */
 471         change++; /* change from previous value */
 472
 473         if (feat->v_str && feat->v_str != feat->def_str)
 474           MyFree(feat->v_str); /* free old value */
 475         DupString(feat->v_str, t_str); /* store new value */
 476
 477         feat->flags |= FEAT_MARK;
 478       } else /* they match, but don't match the default */
 479         feat->flags |= FEAT_MARK;
 480       break;
 481     }
 482
 483     if (change && feat->notify) /* call change notify function */
 484       (*feat->notify)();
 485   }
 486
 487   return 0;
 488 }
 489
 490 /* reset a feature to its default values */
 491 int
 492 feature_reset(struct Client* from, const char* const* fields, int count)
 493 {
 494   int i, change = 0;
 495   struct FeatureDesc *feat;
 496
 497   assert(0 != from);
 498
 499   if (!HasPriv(from, PRIV_SET))
 500     return send_reply(from, ERR_NOPRIVILEGES);
 501
 502   if (count < 1) /* check arguments */
 503     need_more_params(from, "RESET");
 504   else if ((feat = feature_desc(from, fields[0]))) { /* get descriptor */
 505     if (from && feat->flags & FEAT_READ)
 506       return send_reply(from, ERR_NOFEATURE, fields[0]);
 507
 508     switch (feat->flags & FEAT_MASK) {
 509     case FEAT_NONE: /* None... */
 510       if (feat->reset && (i = (*feat->reset)(from, fields + 1, count - 1))) {
 511         change++; /* feature handler wants a change recorded */
 512
 513         if (i > 0) /* call reset callback and parse mark return */
 514           feat->flags |= FEAT_MARK;
 515         else /* i < 0 */
 516           feat->flags &= ~FEAT_MARK;
 517       }
 518       break;
 519
 520     case FEAT_INT:  /* Integer... */
 521     case FEAT_BOOL: /* Boolean... */
 522       if (feat->v_int != feat->def_int)
 523         change++; /* change will be made */
 524
 525       feat->v_int = feat->def_int; /* set the default */
 526       feat->flags &= ~FEAT_MARK; /* unmark it */
 527       break;
 528
 529     case FEAT_STR: /* string! */
 530       if (feat->v_str != feat->def_str) {
 531         change++; /* change has been made */
 532         if (feat->v_str)
 533           MyFree(feat->v_str); /* free old value */
 534       }
 535
 536       feat->v_str = feat->def_str; /* set it to default */
 537       feat->flags &= ~FEAT_MARK; /* unmark it */
 538       break;
 539     }
 540
 541     if (change && feat->notify) /* call change notify function */
 542       (*feat->notify)();
 543   }
 544
 545   return 0;
 546 }
 547
 548 /* Gets the value of a specific feature and reports it to the user */
 549 int
 550 feature_get(struct Client* from, const char* const* fields, int count)
 551 {
 552   struct FeatureDesc *feat;
 553
 554   assert(0 != from);
 555
 556   if (count < 1) /* check parameters */
 557     need_more_params(from, "GET");
 558   else if ((feat = feature_desc(from, fields[0]))) {
 559     if ((feat->flags & FEAT_NODISP) ||
 560         (feat->flags & FEAT_MYOPER && !MyOper(from)) ||
 561         (feat->flags & FEAT_OPER && !IsAnOper(from))) /* check privs */
 562       return send_reply(from, ERR_NOPRIVILEGES);
 563
 564     switch (feat->flags & FEAT_MASK) {
 565     case FEAT_NONE: /* none, call the callback... */
 566       if (feat->get) /* if there's a callback, use it */
 567         (*feat->get)(from, fields + 1, count - 1);
 568       break;
 569
 570     case FEAT_INT: /* integer, report integer value */
 571       send_reply(from, SND_EXPLICIT | RPL_FEATURE,
 572                  ":Integer value of %s: %d", feat->type, feat->v_int);
 573       break;
 574
 575     case FEAT_BOOL: /* boolean, report boolean value */
 576       send_reply(from, SND_EXPLICIT | RPL_FEATURE,
 577                  ":Boolean value of %s: %s", feat->type,
 578                  feat->v_int ? "TRUE" : "FALSE");
 579       break;
 580
 581     case FEAT_STR: /* string, report string value */
 582       if (feat->v_str) /* deal with null case */
 583         send_reply(from, SND_EXPLICIT | RPL_FEATURE,
 584                    ":String value of %s: %s", feat->type, feat->v_str);
 585       else
 586         send_reply(from, SND_EXPLICIT | RPL_FEATURE,
 587                    ":String value for %s not set", feat->type);
 588       break;
 589     }
 590   }
 591
 592   return 0;
 593 }
 594
 595 /* called before reading the .conf to clear all marks */
 596 void
 597 feature_unmark(void)
 598 {
 599   int i;
 600
 601   for (i = 0; features[i].type; i++) {
 602     features[i].flags &= ~FEAT_MARK; /* clear the marks... */
 603     if (features[i].unmark) /* call the unmark callback if necessary */
 604       (*features[i].unmark)();
 605   }
 606 }
 607
 608 /* Called after reading the .conf to reset unmodified values to defaults */
 609 void
 610 feature_mark(void)
 611 {
 612   int i, change;
 613
 614   for (i = 0; features[i].type; i++) {
 615     change = 0;
 616
 617     switch (features[i].flags & FEAT_MASK) {
 618     case FEAT_NONE:
 619       if (features[i].mark &&
 620           (*features[i].mark)(features[i].flags & FEAT_MARK ? 1 : 0))
 621         change++; /* feature handler wants a change recorded */
 622       break;
 623
 624     case FEAT_INT:  /* Integers or Booleans... */
 625     case FEAT_BOOL:
 626       if (!(features[i].flags & FEAT_MARK)) { /* not changed? */
 627         if (features[i].v_int != features[i].def_int)
 628           change++; /* we're making a change */
 629         features[i].v_int = features[i].def_int;
 630       }
 631       break;
 632
 633     case FEAT_STR: /* strings... */
 634       if (!(features[i].flags & FEAT_MARK)) { /* not changed? */
 635         if (features[i].v_str != features[i].def_str) {
 636           change++; /* we're making a change */
 637           if (features[i].v_str)
 638             MyFree(features[i].v_str); /* free old value */
 639         }
 640         features[i].v_str = features[i].def_str;
 641       }
 642       break;
 643     }
 644
 645     if (change && features[i].notify)
 646       (*features[i].notify)(); /* call change notify function */
 647   }
 648 }
 649
 650 /* used to initialize the features subsystem */
 651 void
 652 feature_init(void)
 653 {
 654   int i;
 655
 656   for (i = 0; features[i].type; i++) {
 657     switch (features[i].flags & FEAT_MASK) {
 658     case FEAT_NONE: /* you're on your own */
 659       break;
 660
 661     case FEAT_INT:  /* Integers or Booleans... */
 662     case FEAT_BOOL:
 663       features[i].v_int = features[i].def_int;
 664       break;
 665
 666     case FEAT_STR:  /* Strings */
 667       features[i].v_str = features[i].def_str;
 668       assert(features[i].def_str || (features[i].flags & FEAT_NULL));
 669       break;
 670     }
 671   }
 672 }
 673
 674 /* report all F-lines */
 675 void
 676 feature_report(struct Client* to)
 677 {
 678   int i;
 679
 680   for (i = 0; features[i].type; i++) {
 681     if ((features[i].flags & FEAT_NODISP) ||
 682         (features[i].flags & FEAT_MYOPER && !MyOper(to)) ||
 683         (features[i].flags & FEAT_OPER && !IsAnOper(to)))
 684       continue; /* skip this one */
 685
 686     switch (features[i].flags & FEAT_MASK) {
 687     case FEAT_NONE:
 688       if (features[i].report) /* let the callback handle this */
 689         (*features[i].report)(to, features[i].flags & FEAT_MARK ? 1 : 0);
 690       break;
 691
 692
 693     case FEAT_INT: /* Report an F-line with integer values */
 694       if (features[i].flags & FEAT_MARK) /* it's been changed */
 695         send_reply(to, SND_EXPLICIT | RPL_STATSFLINE, "F %s %d",
 696                    features[i].type, features[i].v_int);
 697       break;
 698
 699     case FEAT_BOOL: /* Report an F-line with boolean values */
 700       if (features[i].flags & FEAT_MARK) /* it's been changed */
 701         send_reply(to, SND_EXPLICIT | RPL_STATSFLINE, "F %s %s",
 702                    features[i].type, features[i].v_int ? "TRUE" : "FALSE");
 703       break;
 704
 705     case FEAT_STR: /* Report an F-line with string values */
 706       if (features[i].flags & FEAT_MARK) { /* it's been changed */
 707         if (features[i].v_str)
 708           send_reply(to, SND_EXPLICIT | RPL_STATSFLINE, "F %s %s",
 709                      features[i].type, features[i].v_str);
 710         else /* Actually, F:<type> would reset it; you want F:<type>: */
 711           send_reply(to, SND_EXPLICIT | RPL_STATSFLINE, "F %s",
 712                      features[i].type);
 713       }
 714       break;
 715     }
 716   }
 717 }
 718
 719 /* return a feature's integer value */
 720 int
 721 feature_int(enum Feature feat)
 722 {
 723   assert(features[feat].feat == feat);
 724   assert((features[feat].flags & FEAT_MASK) == FEAT_INT);
 725
 726   return features[feat].v_int;
 727 }
 728
 729 /* return a feature's boolean value */
 730 int
 731 feature_bool(enum Feature feat)
 732 {
 733   assert(features[feat].feat == feat);
 734   assert((features[feat].flags & FEAT_MASK) == FEAT_BOOL);
 735
 736   return features[feat].v_int;
 737 }
 738
 739 /* return a feature's string value */
 740 const char *
 741 feature_str(enum Feature feat)
 742 {
 743   assert(features[feat].feat == feat);
 744   assert((features[feat].flags & FEAT_MASK) == FEAT_STR);
 745
 746   return features[feat].v_str;
 747 }