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 "ircd_features.h"
  22 #include "client.h"
  23 #include "hash.h"
  24 #include "ircd.h"
  25 #include "ircd_alloc.h"
  26 #include "ircd_log.h"
  27 #include "ircd_reply.h"
  28 #include "ircd_string.h"
  29 #include "match.h"
  30 #include "msg.h"
  31 #include "numeric.h"
  32 #include "numnicks.h"
  33 #include "s_bsd.h"
  34 #include "s_debug.h"
  35 #include "s_misc.h"
  36 #include "send.h"
  37 #include "struct.h"
  38 #include "support.h"
  39 #include "sys.h"    /* FALSE bleah */
  40
  41 #include <assert.h>
  42 #include <stdlib.h>
  43 #include <string.h>
  44
  45 /* List of log output types that can be set */
  46 static struct LogTypes {
  47   char *type;
  48   int (*set)(const char *, const char *);
  49   char *(*get)(const char *);
  50 } logTypes[] = {
  51   { "FILE", log_set_file, log_get_file },
  52   { "FACILITY", log_set_facility, log_get_facility },
  53   { "SNOMASK", log_set_snomask, log_get_snomask },
  54   { "LEVEL", log_set_level, log_get_level },
  55   { 0, 0, 0 }
  56 };
  57
  58 /* Look up a struct LogType given the type string */
  59 static struct LogTypes *
  60 feature_log_desc(struct Client* from, const char *type)
  61 {
  62   int i;
  63
  64   assert(0 != type);
  65
  66   for (i = 0; logTypes[i].type; i++) /* find appropriate descriptor */
  67     if (!ircd_strcmp(type, logTypes[i].type))
  68       return &logTypes[i];
  69
  70   Debug((DEBUG_ERROR, "Unknown log feature type \"%s\"", type));
  71   if (from) /* send an error; if from is NULL, called from conf parser */
  72     send_reply(from, ERR_BADLOGTYPE, type);
  73   else
  74     log_write(LS_CONFIG, L_ERROR, 0, "Unknown log feature type \"%s\"", type);
  75
  76   return 0; /* not found */
  77 }
  78
  79 /* Set the value of a log output type for a log subsystem */
  80 static int
  81 feature_log_set(struct Client* from, const char* const* fields, int count)
  82 {
  83   struct LogTypes *desc;
  84   char *subsys;
  85
  86   if (count < 2) { /* set default facility */
  87     if (log_set_default(count < 1 ? 0 : fields[0])) {
  88       assert(count >= 1); /* should always accept default */
  89
  90       if (from) /* send an error */
  91         send_reply(from, ERR_BADLOGVALUE, fields[0]);
  92       else
  93         log_write(LS_CONFIG, L_ERROR, 0,
  94                   "Bad value \"%s\" for default facility", fields[0]);
  95     } else
  96       return count < 1 ? -1 : 1; /* tell feature to set or clear mark */
  97   } else if (!(subsys = log_canon(fields[0]))) { /* no such subsystem */
  98     if (from) /* send an error */
  99       send_reply(from, ERR_BADLOGSYS, fields[0]);
 100     else
 101       log_write(LS_CONFIG, L_ERROR, 0,
 102                 "No such logging subsystem \"%s\"", fields[0]);
 103   } else if ((desc = feature_log_desc(from, fields[1]))) { /* set value */
 104     if ((*desc->set)(fields[0], count < 3 ? 0 : fields[2])) {
 105       assert(count >= 3); /* should always accept default */
 106
 107       if (from) /* send an error */
 108         send_reply(from, ERR_BADLOGVALUE, fields[2]);
 109       else
 110         log_write(LS_CONFIG, L_ERROR, 0,
 111                   "Bad value \"%s\" for log type %s (subsystem %s)",
 112                   fields[2], desc->type, subsys);
 113     }
 114   }
 115
 116   return 0;
 117 }
 118
 119 /* reset a log type for a subsystem to its default value */
 120 static int
 121 feature_log_reset(struct Client* from, const char* const* fields, int count)
 122 {
 123   struct LogTypes *desc;
 124   char *subsys;
 125
 126   assert(0 != from); /* Never called by the .conf parser */
 127
 128   if (count < 1) { /* reset default facility */
 129     log_set_default(0);
 130     return -1; /* unmark this entry */
 131   } else if (count < 2)
 132     need_more_params(from, "RESET");
 133   else if (!(subsys = log_canon(fields[0]))) /* no such subsystem */
 134     send_reply(from, ERR_BADLOGSYS, fields[0]);
 135   else if ((desc = feature_log_desc(from, fields[1]))) /* reset value */
 136     (*desc->set)(fields[0], 0); /* default should always be accepted */
 137
 138   return 0;
 139 }
 140
 141 /* report the value of a log setting */
 142 static void
 143 feature_log_get(struct Client* from, const char* const* fields, int count)
 144 {
 145   struct LogTypes *desc;
 146   char *value, *subsys;
 147
 148   assert(0 != from); /* never called by .conf parser */
 149
 150   if (count < 1) /* return default facility */
 151     send_reply(from, SND_EXPLICIT | RPL_FEATURE, ":Log facility: %s",
 152                log_get_default());
 153   else if (count < 2)
 154     need_more_params(from, "GET");
 155   else if (!(subsys = log_canon(fields[0]))) { /* no such subsystem */
 156     send_reply(from, ERR_BADLOGSYS, fields[0]);
 157   } else if ((desc = feature_log_desc(from, fields[1]))) {
 158     if ((value = (*desc->get)(fields[0]))) /* send along value */
 159       send_reply(from, SND_EXPLICIT | RPL_FEATURE,
 160                  ":Log %s for subsystem %s: %s", desc->type, subsys,
 161                  (*desc->get)(subsys));
 162     else
 163       send_reply(from, SND_EXPLICIT | RPL_FEATURE,
 164                  ":No log %s is set for subsystem %s", desc->type, subsys);
 165   }
 166 }
 167
 168 /* sets a feature to the given value */
 169 typedef int  (*feat_set_call)(struct Client*, const char* const*, int);
 170 /* gets the value of a feature */
 171 typedef void (*feat_get_call)(struct Client*, const char* const*, int);
 172 /* unmarks all sub-feature values prior to reading .conf */
 173 typedef void (*feat_unmark_call)(void);
 174 /* resets to defaults all currently unmarked values */
 175 typedef void (*feat_mark_call)(int);
 176 /* reports features as a /stats f list */
 177 typedef void (*feat_report_call)(struct Client*, int);
 178
 179 #define FEAT_NONE   0x0000      /* no value */
 180 #define FEAT_INT    0x0001      /* set if entry contains an integer value */
 181 #define FEAT_BOOL   0x0002      /* set if entry contains a boolean value */
 182 #define FEAT_STR    0x0003      /* set if entry contains a string value */
 183 #define FEAT_MASK   0x000f      /* possible value types */
 184
 185 #define FEAT_MARK   0x0010      /* set if entry has been changed */
 186 #define FEAT_NULL   0x0020      /* NULL string is permitted */
 187 #define FEAT_CASE   0x0040      /* string is case-sensitive */
 188
 189 #define FEAT_OPER   0x0100      /* set to display only to opers */
 190 #define FEAT_MYOPER 0x0200      /* set to display only to local opers */
 191
 192 static struct FeatureDesc {
 193   enum Feature     feat;    /* feature identifier */
 194   char*            type;    /* string describing type */
 195   unsigned int     flags;   /* flags for feature */
 196   int              v_int;   /* integer value */
 197   int              def_int; /* default value */
 198   char*            v_str;   /* string value */
 199   char*            def_str; /* default value */
 200   feat_set_call    set;     /* set feature values */
 201   feat_set_call    reset;   /* reset feature values to defaults */
 202   feat_get_call    get;     /* get feature values */
 203   feat_unmark_call unmark;  /* unmark all feature change values */
 204   feat_mark_call   mark;    /* reset to defaults all unchanged features */
 205   feat_report_call report;  /* report feature values */
 206 } features[] = {
 207 #define F(type, flags, v_int, v_str, set, reset, get, unmark, mark, report)   \
 208   { FEAT_ ## type, #type, (flags), 0, (v_int), 0, (v_str),                    \
 209     (set), (reset), (get), (unmark), (mark), (report) }
 210 #define F_I(type, v_int)                                                      \
 211   { FEAT_ ## type, #type, FEAT_INT, 0, (v_int), 0, 0, 0, 0, 0, 0, 0, 0 }
 212 #define F_B(type, v_int)                                                      \
 213   { FEAT_ ## type, #type, FEAT_BOOL, 0, (v_int), 0, 0, 0, 0, 0, 0, 0, 0 }
 214 #define F_S(type, flags, v_int)                                               \
 215   { FEAT_ ## type, #type, FEAT_STR | (flags), 0, 0, 0, (v_str),               \
 216     0, 0, 0, 0, 0, 0 }
 217
 218   F(LOG, FEAT_NONE | FEAT_MYOPER, 0, 0,
 219     feature_log_set, feature_log_reset, feature_log_get,
 220     log_feature_unmark, log_feature_mark, log_feature_report),
 221
 222   F_B(OPER_NO_CHAN_LIMIT, 1),
 223   F_B(OPER_MODE_LCHAN, 1),
 224   F_B(OPER_WALK_THROUGH_LMODES, 0),
 225   F_B(NO_OPER_DEOP_LCHAN, 0),
 226   F_B(SHOW_INVISIBLE_USERS, 1),
 227   F_B(SHOW_ALL_INVISIBLE_USERS, 1),
 228   F_B(UNLIMIT_OPER_QUERY, 0),
 229   F_B(LOCAL_KILL_ONLY, 0),
 230   F_B(TOS_SERVER,0x08),
 231   F_B(TOS_CLIENT,0x08),
 232   F_B(CONFIG_OPERCMDS, 1), /* XXX change default before release */
 233
 234   F_B(OPER_KILL, 1),
 235   F_B(OPER_REHASH, 1),
 236   F_B(OPER_RESTART, 1),
 237   F_B(OPER_DIE, 1),
 238   F_B(OPER_GLINE, 1),
 239   F_B(OPER_LGLINE, 1),
 240   F_B(OPER_JUPE, 1),
 241   F_B(OPER_LJUPE, 1),
 242   F_B(OPER_OPMODE, 1),
 243   F_B(OPER_LOPMODE, 1),
 244   F_B(OPER_BADCHAN, 0),
 245   F_B(OPER_LBADCHAN, 0),
 246   F_B(OPERS_SEE_IN_SECRET_CHANNELS, 1),
 247
 248   F_B(LOCOP_KILL, 0),
 249   F_B(LOCOP_REHASH, 1),
 250   F_B(LOCOP_RESTART, 0),
 251   F_B(LOCOP_DIE, 0),
 252   F_B(LOCOP_LGLINE, 1),
 253   F_B(LOCOP_LJUPE, 1),
 254   F_B(LOCOP_LOPMODE, 1),
 255   F_B(LOCOP_LBADCHAN, 0),
 256   F_B(LOCOP_SEE_IN_SECRET_CHANNELS, 0),
 257
 258 #undef F_S
 259 #undef F_B
 260 #undef F_I
 261 #undef F
 262   { FEAT_LAST_F, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
 263 };
 264
 265 /* Given a feature's identifier, look up the feature descriptor */
 266 static struct FeatureDesc *
 267 feature_desc(struct Client* from, const char *feature)
 268 {
 269   int i;
 270
 271   assert(0 != feature);
 272
 273   for (i = 0; features[i].type; i++) /* find appropriate descriptor */
 274     if (!ircd_strcmp(feature, features[i].type))
 275       return &features[i];
 276
 277   Debug((DEBUG_ERROR, "Unknown feature \"%s\"", feature));
 278   if (from) /* report an error */
 279     send_reply(from, ERR_NOFEATURE, feature);
 280   else
 281     log_write(LS_CONFIG, L_ERROR, 0, "Unknown feature \"%s\"", feature);
 282
 283   return 0; /* not found */
 284 }
 285
 286 /* Given a feature vector string, set the value of a feature */
 287 int
 288 feature_set(struct Client* from, const char* const* fields, int count)
 289 {
 290   int i;
 291   struct FeatureDesc *feat;
 292
 293   if (from && !HasPriv(from, PRIV_SET))
 294     return send_reply(from, ERR_NOPRIVILEGES);
 295
 296   if (count < 1) {
 297     if (from) /* report an error in the number of arguments */
 298       need_more_params(from, "SET");
 299     else
 300       log_write(LS_CONFIG, L_ERROR, 0, "Not enough fields in F line");
 301   } else if ((feat = feature_desc(from, fields[0]))) { /* find feature */
 302     if (feat->set && (i = (*feat->set)(from, fields + 1, count - 1))) {
 303       if (i > 0) /* call the set callback and do marking */
 304         feat->flags |= FEAT_MARK;
 305       else /* i < 0 */
 306         feat->flags &= ~FEAT_MARK;
 307     } else /* Ok, it's a value we can fiddle with */
 308       switch (feat->flags & FEAT_MASK) {
 309       case FEAT_INT: /* an integer value */
 310         if (count < 2) { /* reset value */
 311           feat->v_int = feat->def_int;
 312           feat->flags &= ~FEAT_MARK;
 313         } else { /* ok, figure out the value and whether to mark it */
 314           feat->v_int = atoi(fields[1]);
 315           if (feat->v_int == feat->def_int)
 316             feat->flags &= ~FEAT_MARK;
 317           else
 318             feat->flags |= FEAT_MARK;
 319         }
 320         break;
 321
 322       case FEAT_BOOL: /* it's a boolean value--true or false */
 323         if (count < 2) { /* reset value */
 324           feat->v_int = feat->def_int;
 325           feat->flags &= ~FEAT_MARK;
 326         } else { /* figure out the value and whether to mark it */
 327           if (!ircd_strncmp(fields[1], "TRUE", strlen(fields[1])))
 328             feat->v_int = 1;
 329           else if (!ircd_strncmp(fields[1], "YES", strlen(fields[1])))
 330             feat->v_int = 1;
 331           else if (!ircd_strncmp(fields[1], "FALSE", strlen(fields[1])))
 332             feat->v_int = 0;
 333           else if (!ircd_strncmp(fields[1], "NO", strlen(fields[1])))
 334             feat->v_int = 0;
 335           else if (from) /* report an error... */
 336             return send_reply(from, ERR_BADFEATVALUE, fields[1], feat->type);
 337           else {
 338             log_write(LS_CONFIG, L_ERROR, 0, "Bad value \"%s\" for feature %s",
 339                       fields[1], feat->type);
 340             return 0;
 341           }
 342
 343           if (feat->v_int == feat->def_int) /* figure out whether to mark it */
 344             feat->flags &= ~FEAT_MARK;
 345           else
 346             feat->flags |= FEAT_MARK;
 347         }
 348         break;
 349
 350       case FEAT_STR: /* it's a string value */
 351         if (count < 2 ||
 352             !(feat->flags & FEAT_CASE ? strcmp(fields[1], feat->def_str) :
 353               ircd_strcmp(fields[1], feat->def_str))) { /* reset to default */
 354           if (feat->v_str && feat->v_str != feat->def_str)
 355             MyFree(feat->v_str); /* free old value */
 356           feat->v_str = feat->def_str; /* very special... */
 357
 358           feat->flags &= ~FEAT_MARK; /* unmark it */
 359         } else {
 360           if (!*fields[1]) { /* empty string translates to NULL */
 361             if (feat->flags & FEAT_NULL) { /* permitted? */
 362               if (feat->v_str && feat->v_str != feat->def_str)
 363                 MyFree(feat->v_str); /* free old value */
 364               feat->v_str = 0; /* set it to NULL */
 365             } else if (from) /* hmmm...not permitted; report error */
 366               return send_reply(from, ERR_BADFEATVALUE, "NULL", feat->type);
 367             else {
 368               log_write(LS_CONFIG, L_ERROR, 0,
 369                         "Bad value \"NULL\" for feature %s", feat->type);
 370               return 0;
 371             }
 372           } else if ((feat->flags & FEAT_CASE ?
 373                       strcmp(fields[1], feat->v_str) :
 374                       ircd_strcmp(fields[1], feat->v_str))) { /* new value */
 375             if (feat->v_str && feat->v_str != feat->def_str)
 376               MyFree(feat->v_str); /* free old value */
 377             DupString(feat->v_str, fields[1]); /* store new value */
 378           }
 379
 380           feat->flags |= FEAT_MARK; /* mark it as having been touched */
 381         }
 382         break;
 383       }
 384   }
 385
 386   return 0;
 387 }
 388
 389 /* reset a feature to its default values */
 390 int
 391 feature_reset(struct Client* from, const char* const* fields, int count)
 392 {
 393   int i;
 394   struct FeatureDesc *feat;
 395
 396   assert(0 != from);
 397
 398   if (!HasPriv(from, PRIV_SET))
 399     return send_reply(from, ERR_NOPRIVILEGES);
 400
 401   if (count < 1) /* check arguments */
 402     need_more_params(from, "RESET");
 403   else if ((feat = feature_desc(from, fields[0]))) { /* get descriptor */
 404     if (feat->reset && (i = (*feat->reset)(from, fields + 1, count - 1))) {
 405       if (i > 0) /* call reset callback and parse mark return */
 406         feat->flags |= FEAT_MARK;
 407       else /* i < 0 */
 408         feat->flags &= ~FEAT_MARK;
 409     } else { /* oh, it's something we own... */
 410       switch (feat->flags & FEAT_MASK) {
 411       case FEAT_INT:  /* Integer... */
 412       case FEAT_BOOL: /* Boolean... */
 413         feat->v_int = feat->def_int; /* set the default */
 414         break;
 415
 416       case FEAT_STR: /* string! */
 417         if (feat->v_str && feat->v_str != feat->def_str)
 418           MyFree(feat->v_str); /* free old value */
 419         feat->v_str = feat->def_str; /* set it to default */
 420         break;
 421       }
 422
 423       feat->flags &= ~FEAT_MARK; /* unmark it */
 424     }
 425   }
 426
 427   return 0;
 428 }
 429
 430 /* Gets the value of a specific feature and reports it to the user */
 431 int
 432 feature_get(struct Client* from, const char* const* fields, int count)
 433 {
 434   struct FeatureDesc *feat;
 435
 436   assert(0 != from);
 437
 438   if (count < 1) /* check parameters */
 439     need_more_params(from, "GET");
 440   else if ((feat = feature_desc(from, fields[0]))) {
 441     if ((feat->flags & FEAT_MYOPER && !MyOper(from)) ||
 442         (feat->flags & FEAT_OPER && !IsAnOper(from))) /* check privs */
 443       return send_reply(from, ERR_NOPRIVILEGES);
 444
 445     if (feat->get) /* if there's a callback, use it */
 446       (*feat->get)(from, fields + 1, count - 1);
 447     else /* something we own */
 448       switch (feat->flags & FEAT_MASK) {
 449       case FEAT_INT: /* integer, report integer value */
 450         send_reply(from, SND_EXPLICIT | RPL_FEATURE,
 451                    ":Integer value of %s: %d", feat->type, feat->v_int);
 452         break;
 453
 454       case FEAT_BOOL: /* boolean, report boolean value */
 455         send_reply(from, SND_EXPLICIT | RPL_FEATURE,
 456                    ":Boolean value of %s: %s", feat->type,
 457                    feat->v_int ? "TRUE" : "FALSE");
 458         break;
 459
 460       case FEAT_STR: /* string, report string value */
 461         if (feat->v_str) /* deal with null case */
 462           send_reply(from, SND_EXPLICIT | RPL_FEATURE,
 463                      ":String value of %s: %s", feat->type, feat->v_str);
 464         else
 465           send_reply(from, SND_EXPLICIT | RPL_FEATURE,
 466                      ":String value for %s not set", feat->type);
 467         break;
 468       }
 469   }
 470
 471   return 0;
 472 }
 473
 474 /* called before reading the .conf to clear all marks */
 475 void
 476 feature_unmark(void)
 477 {
 478   int i;
 479
 480   for (i = 0; features[i].type; i++) {
 481     features[i].flags &= ~FEAT_MARK; /* clear the marks... */
 482     if (features[i].unmark) /* call the unmark callback if necessary */
 483       (*features[i].unmark)();
 484   }
 485 }
 486
 487 /* Called after reading the .conf to reset unmodified values to defaults */
 488 void
 489 feature_mark(void)
 490 {
 491   int i;
 492
 493   for (i = 0; features[i].type; i++) {
 494     if (!(features[i].flags & FEAT_MARK)) { /* not changed? */
 495       switch (features[i].flags & FEAT_MASK) {
 496       case FEAT_INT:  /* Integers or Booleans... */
 497       case FEAT_BOOL:
 498         features[i].v_int = features[i].def_int;
 499         break;
 500
 501       case FEAT_STR: /* strings... */
 502         if (features[i].v_str && features[i].v_str != features[i].def_str)
 503           MyFree(features[i].v_str); /* free old value */
 504         features[i].v_str = features[i].def_str;
 505         break;
 506       }
 507     }
 508
 509     if (features[i].mark) /* call the mark callback if necessary */
 510       (*features[i].mark)(features[i].flags & FEAT_MARK ? 1 : 0);
 511   }
 512 }
 513
 514 /* report all F-lines */
 515 void
 516 feature_report(struct Client* to)
 517 {
 518   int i;
 519
 520   for (i = 0; features[i].type; i++) {
 521     if ((features[i].flags & FEAT_MYOPER && !MyOper(to)) ||
 522         (features[i].flags & FEAT_OPER && !IsAnOper(to)))
 523       continue; /* skip this one */
 524
 525     if (features[i].report) /* let the callback handle this */
 526       (*features[i].report)(to, features[i].flags & FEAT_MARK ? 1 : 0);
 527     else if (features[i].flags & FEAT_MARK) { /* it's been changed */
 528       switch (features[i].flags & FEAT_MASK) {
 529       case FEAT_INT: /* Report an F-line with integer values */
 530         send_reply(to, SND_EXPLICIT | RPL_STATSFLINE, "F %s %d",
 531                    features[i].type, features[i].v_int);
 532         break;
 533
 534       case FEAT_BOOL: /* Report an F-line with boolean values */
 535         send_reply(to, SND_EXPLICIT | RPL_STATSFLINE, "F %s %s",
 536                    features[i].type, features[i].v_int ? "TRUE" : "FALSE");
 537         break;
 538
 539       case FEAT_STR: /* Report an F-line with string values */
 540         if (features[i].v_str)
 541           send_reply(to, SND_EXPLICIT | RPL_STATSFLINE, "F %s %s",
 542                      features[i].type, features[i].v_str);
 543         else /* Actually, F:<type> would reset it; you want F:<type>: */
 544           send_reply(to, SND_EXPLICIT | RPL_STATSFLINE, "F %s",
 545                      features[i].type);
 546         break;
 547       }
 548     }
 549   }
 550 }
 551
 552 /* return a feature's integer value */
 553 int
 554 feature_int(enum Feature feat)
 555 {
 556   assert(features[feat].feat == feat);
 557   assert((features[feat].flags & FEAT_MASK) == FEAT_INT);
 558
 559   return features[feat].v_int;
 560 }
 561
 562 /* return a feature's boolean value */
 563 int
 564 feature_bool(enum Feature feat)
 565 {
 566   assert(features[feat].feat == feat);
 567   assert((features[feat].flags & FEAT_MASK) == FEAT_BOOL);
 568
 569   return features[feat].v_int;
 570 }
 571
 572 /* return a feature's string value */
 573 const char *
 574 feature_str(enum Feature feat)
 575 {
 576   assert(features[feat].feat == feat);
 577   assert((features[feat].flags & FEAT_MASK) == FEAT_STR);
 578
 579   return features[feat].v_str;
 580 }