src/modcmd.c

   1 /* modcmd.c - Generalized module command support
   2  * Copyright 2002-2007 srvx Development Team
   3  *
   4  * This file is part of srvx.
   5  *
   6  * srvx 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 2 of the License, or
   9  * (at your option) 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 srvx; if not, write to the Free Software Foundation,
  18  * Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA.
  19  */
  20
  21 #include "chanserv.h"
  22 #include "conf.h"
  23 #include "modcmd.h"
  24 #include "saxdb.h"
  25
  26 struct pending_template {
  27     struct svccmd *cmd;
  28     char *base;
  29     struct pending_template *next;
  30 };
  31
  32 static struct dict *modules;
  33 static struct dict *services;
  34 static struct pending_template *pending_templates;
  35 static struct module *modcmd_module;
  36 static struct modcmd *bind_command, *help_command, *version_command;
  37 unsigned short offchannel_allowed[256] = { 0 };
  38 static const struct message_entry msgtab[] = {
  39     { "MCMSG_BARE_FLAG", "Flag %.*s must be preceded by a + or -." },
  40     { "MCMSG_UNKNOWN_FLAG", "Unknown module flag %.*s." },
  41     { "MCMSG_BAD_OPSERV_LEVEL", "Invalid $O access level %s." },
  42     { "MCMSG_BAD_STAFF_LEVEL", "Invalid staff level %s." },
  43     { "MCMSG_BAD_CHANSERV_LEVEL", "Invalid $C access level %s." },
  44     { "MCMSG_LEVEL_TOO_LOW", "You cannot set the access requirements for %s (your level is too low.)" },
  45     { "MCMSG_LEVEL_TOO_HIGH", "You cannot set the access requirements to %s (that is too high)." },
  46     { "MCMSG_BAD_OPTION", "Unknown option %s." },
  47     { "MCMSG_MUST_QUALIFY", "You $bMUST$b \"/msg %s@$s %s\" (not just /msg %s)." },
  48     { "MCMSG_ACCOUNT_SUSPENDED", "Your account has been suspended." },
  49     { "MCMSG_CHAN_NOT_REGISTERED", "%s has not been registered with $C." },
  50     { "MCMSG_CHAN_SUSPENDED", "$b$C$b access to $b%s$b has been temporarily suspended (%s)." },
  51     { "MCMSG_NO_CHANNEL_ACCESS", "You lack access to %s." },
  52     { "MCMSG_LOW_CHANNEL_ACCESS", "You lack sufficient access in %s to use this command." },
  53     { "MCMSG_REQUIRES_JOINABLE", "You must be in %s (or on its userlist) to use this command." },
  54     { "MCMSG_MUST_BE_HELPING", "You must have security override (helping mode) on to use this command." },
  55     { "MCMSG_MISSING_COMMAND", "You must specify a command as well as a channel." },
  56     { "MCMSG_NO_CHANNEL_BEFORE", "You may not give a channel name before this command." },
  57     { "MCMSG_NO_PLUS_CHANNEL", "You may not use a +channel with this command." },
  58     { "MCMSG_COMMAND_ALIASES", "%s is an alias for: %s" },
  59     { "MCMSG_COMMAND_BINDING", "%s is a binding of: %s" },
  60     { "MCMSG_ALIAS_ERROR", "Error in alias expansion for %s; check the error log for details." },
  61     { "MCMSG_INTERNAL_COMMAND", "$b%s$b is an internal command and cannot be called directly; please check command bindings." },
  62     { "MCMSG_UNKNOWN_MODULE", "Unknown module %s." },
  63     { "MCMSG_UNKNOWN_SERVICE", "Unknown service %s." },
  64     { "MCMSG_ALREADY_BOUND", "%s already has a command bound as %s." },
  65     { "MCMSG_UNKNOWN_COMMAND_2", "Unknown command name %s (relative to service %s)." },
  66     { "MCMSG_COMMAND_MODIFIED", "Option $b%s$b for $b%s$b has been set." },
  67     { "MCMSG_INSPECTION_REFUSED", "You do not have access to inspect command %s." },
  68     { "MCMSG_CANNOT_DOUBLE_ALIAS", "You cannot bind to a complex (argument-carrying) bind." },
  69     { "MCMSG_BAD_ALIAS_ARGUMENT", "Invalid alias argument $b%s$b." },
  70     { "MCMSG_COMMAND_BOUND", "New command %s bound to %s." },
  71     { "MCMSG_MODULE_BOUND", "Bound %d commands from %s to %s." },
  72     { "MCMSG_NO_COMMAND_BOUND", "%s has nothing bound as command %s." },
  73     { "MCMSG_UNBIND_PROHIBITED", "It wouldn't be very much fun to unbind the last %s command, now would it?" },
  74     { "MCMSG_COMMAND_UNBOUND", "Unbound command %s from %s." },
  75     { "MCMSG_HELPFILE_UNBOUND", "Since that was the last command from module %s on the service, the helpfile for %s was removed." },
  76     { "MCMSG_NO_HELPFILE", "Module %s does not have a help file." },
  77     { "MCMSG_HELPFILE_ERROR", "Syntax error reading %s; help contents not changed." },
  78     { "MCMSG_HELPFILE_READ", "Read %s help database in %lu.%03lu seconds." },
  79     { "MCMSG_COMMAND_TIME", "Command $b%s$b finished in %lu.%06lu seconds." },
  80     { "MCMSG_NEED_OPSERV_LEVEL", "You must have $O access of at least $b%u$b." },
  81     { "MCMSG_NEED_STAFF_LEVEL", "You must have staff access of at least $b%u$b." },
  82     { "MCMSG_NEED_CHANSERV_LEVEL", "You must have $C access of at least $b%u$b in the channel." },
  83     { "MCMSG_NEED_ACCOUNT_FLAGS", "You must have account flags $b%s$b." },
  84     { "MCMSG_NEED_NOTHING", "Anyone may use the $b%s$b command." },
  85     { "MCMSG_NEED_STAFF_ACCESS", "You must be network staff." },
  86     { "MCMSG_NEED_STAFF_OPER", "You must be an IRC operator." },
  87     { "MCMSG_NEED_STAFF_NETHELPER", "You must be a network helper." },
  88     { "MCMSG_NEED_STAFF_NETHELPER_OR_OPER", "You must be a network helper or IRC operator." },
  89     { "MCMSG_NEED_STAFF_SHELPER", "You must be a support helper." },
  90     { "MCMSG_NEED_STAFF_SHELPER_OR_OPER", "You must be a support helper or IRC operator." },
  91     { "MCMSG_NEED_STAFF_HELPER", "You must be a network or support helper." },
  92     { "MCMSG_NEED_JOINABLE", "The channel must be open or you must be in the channel or on its userlist." },
  93     { "MCMSG_NEED_CHANUSER_CSUSPENDABLE", "You must be on the channel's userlist, and the channel can be suspended." },
  94     { "MCMSG_NEED_CHANUSER", "You must be on the channel's userlist." },
  95     { "MCMSG_NEED_REGCHAN", "You must specify a channel registered with $C." },
  96     { "MCMSG_NEED_CHANNEL", "You must specify a channel that exists." },
  97     { "MCMSG_NEED_AUTHED", "You must be authenticated with $N." },
  98     { "MCMSG_IS_TOY", "$b%s$b is a toy command." },
  99     { "MCMSG_END_REQUIREMENTS", "End of requirements for $b%s$b." },
 100     { "MCMSG_ALREADY_HELPING", "You already have security override enabled." },
 101     { "MCMSG_ALREADY_NOT_HELPING", "You already have security override disabled." },
 102     { "MCMSG_NOW_HELPING", "Security override has been enabled." },
 103     { "MCMSG_NOW_NOT_HELPING", "Security override has been disabled." },
 104     { "MCMSG_JOINER_CHOICES", "Subcommands of %s: %s" },
 105     { "MCMSG_MODULE_INFO", "Commands exported by module $b%s$b:" },
 106     { "MCMSG_SERVICE_INFO", "Commands bound to service $b%s$b:" },
 107     { "MCMSG_TOYS_DISABLED", "Toys are disabled in %s." },
 108     { "MCMSG_PUBLIC_DENY", "Public commands in $b%s$b are restricted." },
 109     { "MCMSG_HELPFILE_SEQUENCE", "Help priority %d: %s" },
 110     { "MCMSG_HELPFILE_SEQUENCE_SET", "Set helpfile priority sequence for %s." },
 111     { "MCMSG_BAD_SERVICE_NICK", "$b%s$b is an invalid nickname." },
 112     { "MCMSG_ALREADY_SERVICE", "$b%s$b is already a service." },
 113     { "MCMSG_NEW_SERVICE", "Added new service bot $b%s$b." },
 114     { "MCMSG_SERVICE_RENAMED", "Service renamed to $b%s$b." },
 115     { "MCMSG_NO_TRIGGER", "$b%s$b does not have an in-channel trigger." },
 116     { "MCMSG_REMOVED_TRIGGER", "Removed trigger from $b%s$b." },
 117     { "MCMSG_DUPLICATE_TRIGGER", "$b%s$b already uses trigger $b%c$b." },
 118     { "MCMSG_CURRENT_TRIGGER", "Trigger for $b%s$b is $b%c$b." },
 119     { "MCMSG_NEW_TRIGGER", "Changed trigger for $b%s$b to $b%c$b." },
 120     { "MCMSG_SERVICE_PRIVILEGED", "Service $b%s$b privileged: $b%s$b." },
 121     { "MCMSG_OFFCHANNEL_IS_ON", "Off-channel use for $b%s$b (trigger $b%c$b) is enabled" },
 122     { "MCMSG_OFFCHANNEL_IS_OFF", "Off-channel use for $b%s$b (trigger $b%c$b) is disabled" },
 123     { "MCMSG_OFFCHANNEL_ON", "Enabled off-channel use for $b%s$b (trigger $b%c$b)" },
 124     { "MCMSG_OFFCHANNEL_OFF", "Disabled off-channel use for $b%s$b (trigger $b%c$b)" },
 125     { "MCMSG_SERVICE_REMOVED", "Service $b%s$b has been deleted." },
 126     { "MCMSG_FILE_NOT_OPENED", "Unable to open file $b%s$b for writing." },
 127     { "MCMSG_MESSAGES_DUMPED", "Messages written to $b%s$b." },
 128     { "MCMSG_MESSAGE_DUMP_FAILED", "Message dump failed: %s." },
 129     { "MCMSG_COMMAND_FLAGS", "Command flags are %s (inferred: %s)." },
 130     { "MCMSG_COMMAND_ACCOUNT_FLAGS", "Requires account flags +%s, prohibits account flags +%s." },
 131     { "MCMSG_COMMAND_ACCESS_LEVEL", "Requires channel access %d and $O access %d and staff access %d." },
 132     { "MCMSG_COMMAND_USES", "%s has been used %d times." },
 133     { NULL, NULL }
 134 };
 135 struct userData *_GetChannelUser(struct chanData *channel, struct handle_info *handle, int override, int allow_suspended);
 136
 137 #define ACTION_ALLOW     1
 138 #define ACTION_OVERRIDE  2
 139 #define ACTION_NOCHANNEL 4
 140 #define ACTION_STAFF     8
 141
 142 #define RESOLVE_DEPTH    4
 143
 144 static struct modcmd_flag {
 145     const char *name;
 146     unsigned int flag;
 147 } modcmd_flags[] = {
 148     { "acceptchan", MODCMD_ACCEPT_CHANNEL },
 149     { "acceptpluschan", MODCMD_ACCEPT_PCHANNEL },
 150     { "authed", MODCMD_REQUIRE_AUTHED },
 151     { "channel", MODCMD_REQUIRE_CHANNEL },
 152     { "chanuser", MODCMD_REQUIRE_CHANUSER },
 153     { "disabled", MODCMD_DISABLED },
 154     { "helping", MODCMD_REQUIRE_HELPING },
 155     { "ignore_csuspend", MODCMD_IGNORE_CSUSPEND },
 156     { "joinable", MODCMD_REQUIRE_JOINABLE },
 157     { "keepbound", MODCMD_KEEP_BOUND },
 158     { "loghostmask", MODCMD_LOG_HOSTMASK },
 159     { "networkhelper", MODCMD_REQUIRE_NETWORK_HELPER },
 160     { "never_csuspend", MODCMD_NEVER_CSUSPEND },
 161     { "nolog", MODCMD_NO_LOG },
 162     { "oper", MODCMD_REQUIRE_OPER },
 163     { "qualified", MODCMD_REQUIRE_QUALIFIED },
 164     { "regchan", MODCMD_REQUIRE_REGCHAN },
 165     { "supporthelper", MODCMD_REQUIRE_SUPPORT_HELPER },
 166     { "toy", MODCMD_TOY },
 167     { NULL, 0 }
 168 };
 169
 170 static int
 171 flags_bsearch(const void *a, const void *b) {
 172     const char *key = a;
 173     const struct modcmd_flag *flag = b;
 174     return ircncasecmp(key, flag->name, strlen(flag->name));
 175 }
 176
 177 static int
 178 flags_qsort(const void *a, const void *b) {
 179     const struct modcmd_flag *fa = a, *fb = b;
 180     return irccasecmp(fa->name, fb->name);
 181 }
 182
 183 DEFINE_LIST(svccmd_list, struct svccmd*)
 184 DEFINE_LIST(module_list, struct module*)
 185
 186 static void
 187 free_service_command(void *data) {
 188     struct svccmd *svccmd;
 189     unsigned int nn;
 190
 191     svccmd = data;
 192     if (svccmd->alias.used) {
 193         for (nn=0; nn<svccmd->alias.used; ++nn)
 194             free(svccmd->alias.list[nn]);
 195         free(svccmd->alias.list);
 196     }
 197     free(svccmd->name);
 198     free(svccmd);
 199 }
 200
 201 static void
 202 free_service(void *data) {
 203     struct service *service = data;
 204     dict_delete(service->commands);
 205     module_list_clean(&service->modules);
 206     free(service);
 207 }
 208
 209 static void
 210 free_module_command(void *data) {
 211     struct modcmd *modcmd = data;
 212     free_service_command(modcmd->defaults);
 213     free(modcmd->name);
 214     free(modcmd);
 215 }
 216
 217 static void
 218 free_module(void *data) {
 219     struct module *module = data;
 220     dict_delete(module->commands);
 221     close_helpfile(module->helpfile);
 222     free(module->name);
 223     free(module);
 224 }
 225
 226 struct module *
 227 module_register(const char *name, struct log_type *clog, const char *helpfile_name, expand_func_t expand_help) {
 228     struct module *newmod;
 229
 230     newmod = calloc(1, sizeof(*newmod));
 231     newmod->name = strdup(name);
 232     newmod->commands = dict_new();
 233     dict_set_free_data(newmod->commands, free_module_command);
 234     newmod->clog = clog;
 235     newmod->helpfile_name = helpfile_name;
 236     newmod->expand_help = expand_help;
 237     if (newmod->helpfile_name) {
 238         newmod->helpfile = open_helpfile(newmod->helpfile_name, newmod->expand_help);
 239     }
 240     dict_insert(modules, newmod->name, newmod);
 241     return newmod;
 242 }
 243
 244 struct module *
 245 module_find(const char *name) {
 246     return dict_find(modules, name, NULL);
 247 }
 248
 249 static void
 250 add_pending_template(struct svccmd *cmd, const char *target) {
 251     struct pending_template *pending = calloc(1, sizeof(*pending));
 252     pending->cmd = cmd;
 253     pending->base = strdup(target);
 254     pending->next = pending_templates;
 255     pending_templates = pending;
 256 }
 257
 258 static struct svccmd *
 259 svccmd_resolve_name(struct svccmd *origin, const char *name) {
 260     char *sep, svcname[MAXLEN];
 261
 262     if ((sep = strchr(name, '.'))) {
 263         memcpy(svcname, name, sep-name);
 264         svcname[sep-name] = 0;
 265         name = sep + 1;
 266         if (svcname[0] == '*') {
 267             struct module *module = module_find(svcname+1);
 268             struct modcmd *cmd = module ? dict_find(module->commands, name, NULL) : NULL;
 269             return cmd ? cmd->defaults : NULL;
 270         } else {
 271             struct service *service = service_find(svcname);
 272             return service ? dict_find(service->commands, name, NULL) : NULL;
 273         }
 274     } else {
 275         if (origin->parent) {
 276             return dict_find(origin->parent->commands, name, NULL);
 277         } else {
 278             struct modcmd *cmd = dict_find(origin->command->parent->commands, name, NULL);
 279             return cmd ? cmd->defaults : NULL;
 280         }
 281     }
 282 }
 283
 284 static void
 285 modcmd_set_effective_flags(struct svccmd *cmd) {
 286     int flags = cmd->flags | cmd->command->flags;
 287     if (cmd->min_opserv_level > 0)
 288         flags |= MODCMD_REQUIRE_OPER;
 289     if (cmd->min_channel_access > 0)
 290         flags |= MODCMD_REQUIRE_CHANUSER;
 291     if (flags & MODCMD_REQUIRE_CHANUSER)
 292         flags |= MODCMD_REQUIRE_REGCHAN;
 293     if (flags & MODCMD_REQUIRE_REGCHAN)
 294         flags |= MODCMD_REQUIRE_CHANNEL;
 295     if (flags & (MODCMD_REQUIRE_STAFF|MODCMD_REQUIRE_HELPING))
 296         flags |= MODCMD_REQUIRE_AUTHED;
 297     cmd->effective_flags = flags;
 298 }
 299
 300 static void
 301 svccmd_copy_rules(struct svccmd *dest, struct svccmd *src) {
 302     dest->flags |= src->flags;
 303     dest->req_account_flags |= src->req_account_flags;
 304     dest->deny_account_flags |= src->deny_account_flags;
 305     if (src->min_opserv_level > dest->min_opserv_level)
 306         dest->min_opserv_level = src->min_opserv_level;
 307     if (src->min_staff_level > dest->min_staff_level)
 308         dest->min_staff_level = src->min_staff_level;
 309     if (src->min_channel_access > dest->min_channel_access)
 310         dest->min_channel_access = src->min_channel_access;
 311     modcmd_set_effective_flags(dest);
 312 }
 313
 314 static int
 315 svccmd_configure(struct svccmd *cmd, struct userNode *user, struct userNode *bot, const char *param, const char *value) {
 316     if (!irccasecmp(param, "flags")) {
 317         unsigned int set_flags, rem_flags;
 318         struct modcmd_flag *flag;
 319         int opt, end;
 320
 321         for (set_flags = rem_flags = 0; 1; value += end) {
 322             end = strcspn(value, ",");
 323             if (*value == '+')
 324                 opt = 1;
 325             else if (*value == '-')
 326                 opt = 0;
 327             else {
 328                 if (user)
 329                     send_message(user, bot, "MCMSG_BARE_FLAG", end, value);
 330                 else
 331                     log_module(MAIN_LOG, LOG_ERROR, "Flag %.*s must be preceded by a + or - (for command %s).", end, value, cmd->name);
 332                 return 0;
 333             }
 334             value++;
 335             flag = bsearch(value, modcmd_flags, ArrayLength(modcmd_flags)-1, sizeof(modcmd_flags[0]), flags_bsearch);
 336             if (!flag) {
 337                 if (user)
 338                     send_message(user, bot, "MCMSG_UNKNOWN_FLAG", end, value);
 339                 else
 340                     log_module(MAIN_LOG, LOG_ERROR, "Unknown module flag %.*s (for command %s).", end, value, cmd->name);
 341                 return 0;
 342             }
 343             if (opt)
 344                 set_flags |= flag->flag, rem_flags &= ~flag->flag;
 345             else
 346                 rem_flags |= flag->flag, set_flags &= ~flag->flag;
 347             if (!value[end-1])
 348                 break;
 349         }
 350         cmd->flags = (cmd->flags | set_flags) & ~rem_flags;
 351         return 1;
 352     } else if (!irccasecmp(param, "channel_level") || !irccasecmp(param, "channel_access") || !irccasecmp(param, "access")) {
 353         unsigned short ul;
 354         if (!irccasecmp(value, "none") || !irccasecmp(value, "0")) {
 355             cmd->min_channel_access = 0;
 356             return 1;
 357         } else if ((ul = user_level_from_name(value, UL_OWNER)) > 0) {
 358             cmd->min_channel_access = ul;
 359             return 1;
 360         } else if (user) {
 361             send_message(user, bot, "MCMSG_BAD_CHANSERV_LEVEL", value);
 362             return 0;
 363         } else {
 364             log_module(MAIN_LOG, LOG_ERROR, "Invalid ChanServ access level %s (for command %s).", value, cmd->name);
 365             return 0;
 366         }
 367     } else if (!irccasecmp(param, "oper_level") || !irccasecmp(param, "oper_access") || !irccasecmp(param, "level")) {
 368         unsigned int newval = atoi(value);
 369         if (!isdigit(value[0]) || (newval > 1000)) {
 370             if (user)
 371                 send_message(user, bot, "MCMSG_BAD_OPSERV_LEVEL", value);
 372             else
 373                 log_module(MAIN_LOG, LOG_ERROR, "Invalid OpServ access level %s (for command %s).", value, cmd->name);
 374             return 0;
 375         }
 376         if (user && (!user->handle_info || (cmd->min_opserv_level > user->handle_info->opserv_level))) {
 377             send_message(user, bot, "MCMSG_LEVEL_TOO_LOW", cmd->name);
 378             return 0;
 379         }
 380         if (user && (!user->handle_info || (newval > user->handle_info->opserv_level))) {
 381             send_message(user, bot, "MCMSG_LEVEL_TOO_HIGH", value);
 382             return 0;
 383         }
 384         cmd->min_opserv_level = newval;
 385         return 1;
 386     } else if (!irccasecmp(param, "staff_level") || !irccasecmp(param, "staff_access")) {
 387         unsigned int newval = atoi(value);
 388         if (newval > 1000) {
 389             if (user) {
 390                 send_message(user, bot, "MCMSG_BAD_STAFF_LEVEL", value);
 391             } else {
 392                 log_module(MAIN_LOG, LOG_ERROR, "Invalid staff level %s (for command %s).", value, cmd->name);
 393             }
 394             return 0;
 395         }
 396         cmd->min_staff_level = newval;
 397         return 1;
 398     } else if (!irccasecmp(param, "account_flags")) {
 399         return nickserv_modify_handle_flags(user, bot, value, &cmd->req_account_flags, &cmd->deny_account_flags);
 400     } else {
 401         if (user)
 402             send_message(user, bot, "MCMSG_BAD_OPTION", param);
 403         else
 404             log_module(MAIN_LOG, LOG_ERROR, "Unknown option %s (for command %s).", param, cmd->name);
 405         return 0;
 406     }
 407 }
 408
 409 struct modcmd *
 410 modcmd_register(struct module *module, const char *name, modcmd_func_t func, unsigned int min_argc, unsigned int flags, ...) {
 411     struct modcmd *newcmd;
 412     va_list args;
 413     const char *param, *value;
 414
 415     newcmd = calloc(1, sizeof(*newcmd));
 416     newcmd->name = strdup(name);
 417     newcmd->parent = module;
 418     newcmd->func = func;
 419     newcmd->min_argc = min_argc;
 420     newcmd->flags = flags;
 421     newcmd->defaults = calloc(1, sizeof(*newcmd->defaults));
 422     newcmd->defaults->name = strdup(newcmd->name);
 423     newcmd->defaults->command = newcmd;
 424     dict_insert(module->commands, newcmd->name, newcmd);
 425     if (newcmd->flags & (MODCMD_REQUIRE_REGCHAN|MODCMD_REQUIRE_CHANNEL|MODCMD_REQUIRE_CHANUSER|MODCMD_REQUIRE_JOINABLE)) {
 426         newcmd->defaults->flags |= MODCMD_ACCEPT_CHANNEL;
 427     }
 428     if (newcmd->flags & MODCMD_REQUIRE_STAFF) {
 429         newcmd->defaults->flags |= MODCMD_REQUIRE_AUTHED;
 430     }
 431     va_start(args, flags);
 432     while ((param = va_arg(args, const char*))) {
 433         value = va_arg(args, const char*);
 434         if (!irccasecmp(param, "template")) {
 435             struct svccmd *svccmd = svccmd_resolve_name(newcmd->defaults, value);
 436             if (svccmd) {
 437                 svccmd_copy_rules(newcmd->defaults, svccmd);
 438             } else {
 439                 log_module(MAIN_LOG, LOG_ERROR, "Unable to resolve template name %s for %s.%s.", value, newcmd->parent->name, newcmd->name);
 440             }
 441             add_pending_template(newcmd->defaults, value);
 442         } else {
 443             svccmd_configure(newcmd->defaults, NULL, NULL, param, value);
 444         }
 445     }
 446     modcmd_set_effective_flags(newcmd->defaults);
 447     va_end(args);
 448     return newcmd;
 449 }
 450
 451 /* This is kind of a lame hack, but it is actually simpler than having
 452  * the permission check vary based on the command itself, or having a
 453  * more generic rule system.
 454  */
 455 int
 456 svccmd_can_invoke(struct userNode *user, struct userNode *bot, struct svccmd *cmd, struct chanNode *channel, int options) {
 457     extern struct userNode *chanserv;
 458     unsigned int uData_checked = 0;
 459     struct userData *uData = NULL;
 460     int rflags = 0, flags = cmd->effective_flags;
 461
 462     if (flags & MODCMD_DISABLED) {
 463         if (options & SVCCMD_NOISY)
 464             send_message(user, bot, "MSG_COMMAND_DISABLED", cmd->name);
 465         return 0;
 466     }
 467     if ((flags & MODCMD_REQUIRE_QUALIFIED) && !(options & SVCCMD_QUALIFIED)) {
 468         if (options & SVCCMD_NOISY)
 469             send_message(user, bot, "MCMSG_MUST_QUALIFY", bot->nick, cmd->name, bot->nick);
 470         return 0;
 471     }
 472     if (flags & MODCMD_REQUIRE_AUTHED) {
 473         if (!user->handle_info) {
 474             if (options & SVCCMD_NOISY)
 475                 send_message(user, bot, "MSG_AUTHENTICATE");
 476             return 0;
 477         }
 478         if (HANDLE_FLAGGED(user->handle_info, SUSPENDED)) {
 479             if (options & SVCCMD_NOISY)
 480                 send_message(user, bot, "MCMSG_ACCOUNT_SUSPENDED");
 481             return 0;
 482         }
 483     }
 484     if (channel || (options & SVCCMD_NOISY)) {
 485         if ((flags & MODCMD_REQUIRE_CHANNEL) && !channel) {
 486             if (options & SVCCMD_NOISY)
 487                 send_message(user, bot, "MSG_INVALID_CHANNEL");
 488             return 0;
 489         }
 490         if (flags & MODCMD_REQUIRE_REGCHAN) {
 491             if (!chanserv) {
 492                 /* Just use the inferred MODCMD_REQUIRE_CHANNEL. */
 493             } else if (!channel->channel_info) {
 494                 if (options & SVCCMD_NOISY)
 495                     send_message(user, bot, "MCMSG_CHAN_NOT_REGISTERED", channel->name);
 496                 return 0;
 497             } else if (IsSuspended(channel->channel_info) && !(flags & MODCMD_IGNORE_CSUSPEND)) {
 498                 /* Allow security-override users to ignore most channel
 499                  * suspensions, but flag that use as a staff command.
 500                  */
 501                 if (!IsHelping(user) || (flags & MODCMD_NEVER_CSUSPEND)) {
 502                     if (options & SVCCMD_NOISY)
 503                         send_message(user, bot, "MCMSG_CHAN_SUSPENDED", channel->name, channel->channel_info->suspended->reason);
 504                     return 0;
 505                 }
 506                 if (cmd->min_staff_level > 0 && !staff_has_access(user, bot, cmd->min_staff_level, !(options & SVCCMD_NOISY))) return 0;
 507                 rflags |= ACTION_STAFF;
 508             }
 509         }
 510         if (flags & MODCMD_REQUIRE_CHANUSER) {
 511             if (!uData_checked)
 512                 uData = _GetChannelUser(channel->channel_info, user->handle_info, 1, 0), uData_checked = 1;
 513             if (!chanserv) {
 514                 /* Assume someone knows what they're doing. */
 515             } else if (!uData) {
 516                 if (options & SVCCMD_NOISY)
 517                     send_message(user, bot, "MCMSG_NO_CHANNEL_ACCESS", channel->name);
 518                 return 0;
 519             } else if (uData->access < cmd->min_channel_access) {
 520                 if (options & SVCCMD_NOISY)
 521                     send_message(user, bot, "MCMSG_LOW_CHANNEL_ACCESS", channel->name);
 522                 return 0;
 523             }
 524         }
 525         if ((flags & MODCMD_REQUIRE_JOINABLE) && channel) {
 526             if (!uData_checked)
 527                 uData = _GetChannelUser(channel->channel_info, user->handle_info, 1, 0), uData_checked = 1;
 528             if ((channel->modes & (MODE_INVITEONLY|MODE_KEY|MODE_SECRET))
 529                 && !uData
 530                 && !IsService(user)
 531                 && !GetUserMode(channel, user)) {
 532                 if (options & SVCCMD_NOISY)
 533                     send_message(user, bot, "MCMSG_REQUIRES_JOINABLE", channel->name);
 534                 return 0;
 535             }
 536         }
 537         if ((flags & MODCMD_TOY) && channel) {
 538             if (!channel->channel_info)
 539                 rflags |= ACTION_NOCHANNEL;
 540             else switch (channel->channel_info->chOpts[chToys]) {
 541             case 'd':
 542                 if (options & SVCCMD_NOISY)
 543                     send_message(user, bot, "MCMSG_TOYS_DISABLED", channel->name);
 544                 return 0;
 545             case 'n':
 546                 rflags |= ACTION_NOCHANNEL;
 547                 break;
 548             case 'p':
 549                 break;
 550             }
 551         }
 552     }
 553     if (flags & MODCMD_REQUIRE_STAFF) {
 554         if (((flags & MODCMD_REQUIRE_OPER) && IsOper(user))
 555             || ((flags & MODCMD_REQUIRE_NETWORK_HELPER) && IsNetworkHelper(user))
 556             || ((flags & MODCMD_REQUIRE_SUPPORT_HELPER) && IsSupportHelper(user))) {
 557             /* allow it */
 558             if (cmd->min_staff_level > 0 && !staff_has_access(user, bot, cmd->min_staff_level, !(options & SVCCMD_NOISY))) return 0;
 559             rflags |= ACTION_STAFF;
 560         } else {
 561             if (options & SVCCMD_NOISY)
 562                 send_message(user, bot, "MSG_COMMAND_PRIVILEGED", cmd->name);
 563             return 0;
 564         }
 565     }
 566     if (flags & MODCMD_REQUIRE_HELPING) {
 567         if (!HANDLE_FLAGGED(user->handle_info, HELPING)) {
 568             if (options & SVCCMD_NOISY)
 569                 send_message(user, bot, "MCMSG_MUST_BE_HELPING");
 570             return 0;
 571         }
 572         if (cmd->min_staff_level > 0 && !staff_has_access(user, bot, cmd->min_staff_level, !(options & SVCCMD_NOISY))) return 0;
 573         rflags |= ACTION_STAFF;
 574     }
 575     if (cmd->min_opserv_level > 0) {
 576         if (!oper_has_access(user, bot, cmd->min_opserv_level, !(options & SVCCMD_NOISY))) return 0;
 577         if (cmd->min_staff_level > 0 && !staff_has_access(user, bot, cmd->min_staff_level, !(options & SVCCMD_NOISY))) return 0;
 578         rflags |= ACTION_STAFF;
 579     }
 580     if (cmd->req_account_flags || cmd->deny_account_flags) {
 581         if (!user->handle_info) {
 582             if (options & SVCCMD_NOISY)
 583                 send_message(user, bot, "MSG_AUTHENTICATE");
 584             return 0;
 585         }
 586         /* Do we want separate or different messages here? */
 587         if ((cmd->req_account_flags & ~user->handle_info->flags)
 588             || (cmd->deny_account_flags & user->handle_info->flags)) {
 589             if (options & SVCCMD_NOISY)
 590                 send_message(user, bot, "MSG_COMMAND_PRIVILEGED", cmd->name);
 591             return 0;
 592         }
 593     }
 594
 595     /* If it's an override, return a special value. */
 596     if ((flags & MODCMD_REQUIRE_CHANUSER)
 597         && (options & SVCCMD_NOISY)
 598         && (!uData || (uData->access > 500))
 599         && (!(uData = _GetChannelUser(channel->channel_info, user->handle_info, 0, 0))
 600             || uData->access < cmd->min_channel_access)
 601         && !(flags & (MODCMD_REQUIRE_STAFF|MODCMD_REQUIRE_HELPING))) {
 602         if (cmd->min_staff_level > 0 && !staff_has_access(user, bot, cmd->min_staff_level, !(options & SVCCMD_NOISY))) return 0;
 603         rflags |= ACTION_OVERRIDE;
 604     }
 605     return rflags | ACTION_ALLOW;
 606 }
 607
 608 static int
 609 svccmd_expand_alias(struct svccmd *cmd, unsigned int old_argc, char *old_argv[], char *new_argv[]) {
 610     unsigned int ii, new_argc;
 611     char *arg;
 612
 613     for (ii=new_argc=0; ii<cmd->alias.used; ++ii) {
 614         arg = cmd->alias.list[ii];
 615         if (arg[0] != '$') {
 616             new_argv[new_argc++] = arg;
 617             continue;
 618         }
 619         if (arg[1] == '$') {
 620             new_argv[new_argc++] = arg + 1;
 621         } else if (isdigit(arg[1])) {
 622             unsigned int lbound, ubound, jj;
 623             char *end_num;
 624
 625             lbound = strtoul(arg+1, &end_num, 10);
 626             switch (end_num[0]) {
 627             case 0: ubound = lbound; break;
 628             case '-':
 629                 if (end_num[1] == 0) {
 630                     ubound = old_argc - 1;
 631                     break;
 632                 } else if (isdigit(end_num[1])) {
 633                     ubound = strtoul(end_num+1, NULL, 10);
 634                     break;
 635                 }
 636                 /* else fall through to default case */
 637             default:
 638                 log_module(MAIN_LOG, LOG_ERROR, "Alias expansion parse error in %s (near %s; %s.%s arg %d).", arg, end_num, cmd->parent->bot->nick, cmd->name, ii);
 639                 return 0;
 640             }
 641             if (lbound >= old_argc)
 642                 return -1;
 643             if (ubound >= old_argc)
 644                 ubound = old_argc - 1;
 645             if (lbound < old_argc)
 646                 for (jj = lbound; jj <= ubound; )
 647                     new_argv[new_argc++] = old_argv[jj++];
 648         } else {
 649             log_module(MAIN_LOG, LOG_ERROR, "Alias expansion: I do not know how to handle %s (%s.%s arg %d).", arg, cmd->parent->bot->nick, cmd->name, ii);
 650             return 0;
 651         }
 652     }
 653     return new_argc;
 654 }
 655
 656 int
 657 svccmd_invoke_argv(struct userNode *user, struct service *service, struct chanNode *channel, unsigned int argc, char *argv[], unsigned int server_qualified) {
 658     extern struct userNode *chanserv;
 659     struct svccmd *cmd;
 660     unsigned int cmd_arg, perms, flags, options, result;
 661     char channel_name[CHANNELLEN+1];
 662
 663     /* First check pubcmd for the channel. */
 664     if (channel && (channel->channel_info) && (service->bot == chanserv)
 665         && !check_user_level(channel, user, lvlPubCmd, 1, 0)) {
 666         send_message(user, service->bot, "MCMSG_PUBLIC_DENY", channel->name);
 667         return 0;
 668     }
 669
 670     options = (server_qualified ? SVCCMD_QUALIFIED : 0) | SVCCMD_DEBIT | SVCCMD_NOISY;
 671     /* Find the command argument. */
 672     cmd_arg = IsChannelName(argv[0]) ? 1 : 0;
 673     if (argc < cmd_arg+1) {
 674         send_message(user, service->bot, "MCMSG_MISSING_COMMAND");
 675         return 0;
 676     }
 677     if (!isalnum(*argv[cmd_arg])) {
 678         /* Silently ignore stuff that doesn't begin with a letter or number. */
 679         return 0;
 680     }
 681     cmd = dict_find(service->commands, argv[cmd_arg], NULL);
 682     if (!cmd) {
 683         if (!channel)
 684             send_message(user, service->bot, "MSG_COMMAND_UNKNOWN", argv[cmd_arg]);
 685         return 0;
 686     }
 687     flags = cmd->effective_flags;
 688     /* If they put a channel name first, check if the command allows
 689      * it.  If so, swap it with the command name.
 690      */
 691     if (cmd_arg == 1) {
 692         char *tmp;
 693         /* Complain if we're not supposed to accept the channel. */
 694         if (!(flags & MODCMD_ACCEPT_CHANNEL)) {
 695             send_message(user, service->bot, "MCMSG_NO_CHANNEL_BEFORE");
 696             return 0;
 697         }
 698         if (!(flags & MODCMD_ACCEPT_PCHANNEL)
 699             && (argv[0][0] == '+')) {
 700             send_message(user, service->bot, "MCMSG_NO_PLUS_CHANNEL");
 701             return 0;
 702         }
 703         tmp = argv[1];
 704         argv[1] = argv[0];
 705         argv[0] = tmp;
 706     }
 707
 708     /* Try to grab a channel handle before alias expansion.
 709      * If the command accepts a channel name, and argv[1] is
 710      * one, use it as a channel name, and hide it from logging.
 711      */
 712     if ((argc > 1)
 713         && (flags & MODCMD_ACCEPT_CHANNEL)
 714         && IsChannelName(argv[1])
 715         && ((argv[1][0] != '+') || (flags & MODCMD_ACCEPT_PCHANNEL))
 716         && (channel = dict_find(channels, argv[1], NULL))) {
 717         argv[1] = argv[0];
 718         argv++, argc--;
 719         cmd_arg = 1;
 720     }
 721
 722     /* Expand the alias arguments, if there are any. */
 723     if (cmd->alias.used) {
 724         char *old_argv[MAXNUMPARAMS];
 725         int res;
 726         unsigned int nn;
 727
 728         for(nn=0;nn<argc;nn++)
 729             old_argv[nn] = argv[nn];
 730
 731         res = svccmd_expand_alias(cmd, argc, old_argv, argv);
 732         if (res < 0) {
 733             send_message(user, service->bot, "MSG_MISSING_PARAMS", cmd->name);
 734             return 0;
 735         } else if (res == 0) {
 736             send_message(user, service->bot, "MCMSG_ALIAS_ERROR", cmd->name);
 737             return 0;
 738         }
 739         argc = res;
 740
 741         /* Try again to grab a handle to the channel after alias
 742          * expansion, overwriting any previous channel. This should,
 743          * of course, only be done again if an alias was acually
 744          * expanded. */
 745         if ((argc > 1)
 746             && (flags & MODCMD_ACCEPT_CHANNEL)
 747             && IsChannelName(argv[1])
 748             && ((argv[1][0] != '+') || (flags & MODCMD_ACCEPT_PCHANNEL))
 749             && (channel = dict_find(channels, argv[1], NULL))) {
 750             argv[1] = argv[0];
 751             argv++, argc--;
 752             cmd_arg = 1;
 753         }
 754     }
 755
 756     /* Figure out what actions we should do for it.. */
 757     if (cmd_arg && (flags & MODCMD_TOY)) {
 758         /* Do not let user manually specify a channel. */
 759         channel = NULL;
 760     }
 761     if (argc < cmd->command->min_argc) {
 762         send_message(user, service->bot, "MSG_MISSING_PARAMS", cmd->name);
 763         return 0;
 764     }
 765     if (!cmd->command->func) {
 766         send_message(user, service->bot, "MCMSG_INTERNAL_COMMAND", cmd->name);
 767         return 0;
 768     }
 769     perms = svccmd_can_invoke(user, service->bot, cmd, channel, options);
 770     if (!perms)
 771         return 0;
 772     cmd->uses++;
 773     if (perms & ACTION_NOCHANNEL)
 774         channel = NULL;
 775
 776     if (channel)
 777         safestrncpy(channel_name, channel->name, sizeof(channel_name));
 778     else
 779         channel_name[0] = 0;
 780     if (!(result = cmd->command->func(user, channel, argc, argv, cmd)))
 781         return 0;
 782     if (!(flags & MODCMD_NO_LOG)) {
 783         enum log_severity slvl;
 784         if (result & CMD_LOG_OVERRIDE)
 785             slvl = LOG_OVERRIDE;
 786         else if ((perms & ACTION_STAFF) || (result & CMD_LOG_STAFF))
 787             slvl = LOG_STAFF;
 788         else if (perms & ACTION_OVERRIDE)
 789             slvl = LOG_OVERRIDE;
 790         else
 791             slvl = LOG_COMMAND;
 792         /* Unsplit argv after running the function to get the benefit
 793          * of any mangling/hiding done by the commands. */
 794         log_audit(cmd->command->parent->clog, slvl, user, service->bot, channel_name, ((flags & MODCMD_LOG_HOSTMASK) ? AUDIT_HOSTMASK : 0), unsplit_string(argv, argc, NULL));
 795     }
 796     return 1;
 797 }
 798
 799 int
 800 svccmd_send_help(struct userNode *user, struct userNode *bot, struct svccmd *cmd) {
 801     char cmdname[MAXLEN];
 802     unsigned int nn;
 803     /* Show command name (in bold). */
 804     for (nn=0; cmd->name[nn]; nn++)
 805         cmdname[nn] = toupper(cmd->name[nn]);
 806     cmdname[nn] = 0;
 807     send_message_type(4, user, bot, "$b%s$b", cmdname);
 808     /* If it's an alias, show what it's an alias for. */
 809     if (cmd->alias.used) {
 810         char alias_text[MAXLEN];
 811         unsplit_string((char**)cmd->alias.list, cmd->alias.used, alias_text);
 812         send_message(user, bot, "MCMSG_COMMAND_ALIASES", cmd->name, alias_text);
 813     }
 814     /* Show the help entry for the underlying command. */
 815     return send_help(user, bot, cmd->command->parent->helpfile, cmd->command->name);
 816 }
 817
 818 int
 819 svccmd_send_help_2(struct userNode *user, struct service *service, const char *topic) {
 820     struct module *module;
 821     struct svccmd *cmd;
 822     unsigned int ii;
 823
 824     if ((cmd = dict_find(service->commands, topic, NULL)))
 825         return svccmd_send_help(user, service->bot, cmd);
 826     if (!topic)
 827         topic = "<index>";
 828     for (ii = 0; ii < service->modules.used; ++ii) {
 829         module = service->modules.list[ii];
 830         if (!module->helpfile)
 831             continue;
 832         if (dict_find(module->helpfile->db, topic, NULL))
 833             return send_help(user, service->bot, module->helpfile, topic);
 834     }
 835     send_message(user, service->bot, "MSG_TOPIC_UNKNOWN");
 836     return 0;
 837 }
 838
 839 static int
 840 svccmd_invoke(struct userNode *user, struct service *service, struct chanNode *channel, const char *text, int server_qualified) {
 841     unsigned int argc;
 842     char *argv[MAXNUMPARAMS];
 843     char tmpline[MAXLEN];
 844
 845     if (!*text)
 846         return 0;
 847     if (service->privileged) {
 848         if (!IsOper(user)) {
 849             send_message(user, service->bot, "MSG_SERVICE_PRIVILEGED", service->bot->nick);
 850             return 0;
 851         }
 852         if (!user->handle_info) {
 853             send_message(user, service->bot, "MSG_AUTHENTICATE");
 854             return 0;
 855         }
 856         if (HANDLE_FLAGGED(user->handle_info, OPER_SUSPENDED)) {
 857             send_message(user, service->bot, "MSG_OPER_SUSPENDED");
 858             return 0;
 859         }
 860     }
 861     safestrncpy(tmpline, text, sizeof(tmpline));
 862     argc = split_line(tmpline, false, ArrayLength(argv), argv);
 863     return argc ? svccmd_invoke_argv(user, service, channel, argc, argv, server_qualified) : 0;
 864 }
 865
 866 void
 867 modcmd_privmsg(struct userNode *user, struct userNode *bot, const char *text, int server_qualified) {
 868     struct service *service;
 869
 870     if (!(service = dict_find(services, bot->nick, NULL))) {
 871         log_module(MAIN_LOG, LOG_ERROR, "modcmd_privmsg got privmsg for unhandled service %s, unregistering.", bot->nick);
 872         reg_privmsg_func(bot, NULL);
 873         return;
 874     }
 875
 876     if (text[0] == '\x01') {
 877         char *term, response[MAXLEN];
 878
 879         text++; /* Skip leading ^A. */
 880         /* Chop off final ^A. */
 881         term = strchr(text, '\x01');
 882         if (!term)
 883             return;
 884         *term = '\0';
 885         /* Parse out leading text. */
 886         term = strchr(text, ' ');
 887         if (term) {
 888             *term++ = '\0';
 889             if (!*term)
 890                 term = NULL;
 891         }
 892         /* No dict lookup since these are so few. */
 893         if (!irccasecmp(text, "CLIENTINFO")) {
 894             /* Use \001 instead of \x01 because apparently \x01C is
 895              * interpreted as ASCII FS (\034, decimal 28, hex 1C).
 896              */
 897             irc_notice_user(bot, user, "\001CLIENTINFO CLIENTINFO PING TIME USERINFO VERSION\x01");
 898         } else if (!irccasecmp(text, "PING")) {
 899             if (term) {
 900                 snprintf(response, sizeof(response), "\x01PING %s\x01", term);
 901                 irc_notice_user(bot, user, response);
 902             } else {
 903                 irc_notice_user(bot,user, "\x01PING\x01");
 904             }
 905         } else if (!irccasecmp(text, "TIME")) {
 906             time_t feh;
 907             feh = now;
 908             strftime(response, sizeof(response), "\x01TIME %a %b %d %H:%M:%S %Y\x01", localtime(&feh));
 909             irc_notice_user(bot, user, response);
 910         } else if (!irccasecmp(text, "USERINFO")) {
 911             snprintf(response, sizeof(response), "\x01USERINFO %s\x01", bot->info);
 912             irc_notice_user(bot, user, response);
 913         } else if (!irccasecmp(text, "VERSION")) {
 914             /* This function provides copyright management information
 915              * to end users of srvx. You should not alter, disable or
 916              * remove this command or its accessibility to normal IRC
 917              * users, except to add copyright information pertaining
 918              * to changes you make to srvx.
 919              */
 920             snprintf(response, sizeof(response), "\x01VERSION %s (%s) GIT Revision: %s\x01", PACKAGE_STRING, CODENAME, git_version);
 921             irc_notice_user(bot, user, response);
 922         }
 923         return;
 924     }
 925
 926     if (service->msg_hook && service->msg_hook(user, bot, text, server_qualified))
 927         return;
 928     svccmd_invoke(user, service, NULL, text, server_qualified);
 929 }
 930
 931 void
 932 modcmd_chanmsg(struct userNode *user, struct chanNode *chan, const char *text, struct userNode *bot, unsigned int is_notice) {
 933     struct service *service;
 934     if (!(service = dict_find(services, bot->nick, NULL)))
 935         return;
 936     svccmd_invoke(user, service, chan, text, 0);
 937     (void)is_notice;
 938 }
 939
 940 struct service *
 941 service_register(struct userNode *bot) {
 942     struct service *service;
 943     if ((service = dict_find(services, bot->nick, NULL)))
 944         return service;
 945     service = calloc(1, sizeof(*service));
 946     module_list_init(&service->modules);
 947     service->commands = dict_new();
 948     service->bot = bot;
 949     dict_set_free_data(service->commands, free_service_command);
 950     dict_insert(services, service->bot->nick, service);
 951     reg_privmsg_func(bot, modcmd_privmsg);
 952     return service;
 953 }
 954
 955 struct service *
 956 service_find(const char *name) {
 957     return dict_find(services, name, NULL);
 958 }
 959
 960 static void
 961 svccmd_insert(struct service *service, char *name, struct svccmd *svccmd, struct modcmd *modcmd) {
 962     unsigned int ii;
 963     svccmd->parent = service;
 964     svccmd->name = name;
 965     svccmd->command = modcmd;
 966     svccmd->command->bind_count++;
 967     dict_insert(service->commands, svccmd->name, svccmd);
 968     for (ii=0; ii<service->modules.used; ++ii) {
 969         if (service->modules.list[ii] == svccmd->command->parent) break;
 970     }
 971     if (ii == service->modules.used) {
 972         module_list_append(&service->modules, svccmd->command->parent);
 973     }
 974 }
 975
 976 struct svccmd *
 977 service_bind_modcmd(struct service *service, struct modcmd *cmd, const char *name) {
 978     struct svccmd *svccmd;
 979     if ((svccmd = dict_find(service->commands, name, NULL))) {
 980         if (svccmd->command == cmd) return svccmd;
 981         log_module(MAIN_LOG, LOG_ERROR, "Tried to bind command %s.%s into service %s as %s, but already bound (as %s.%s).", cmd->parent->name, cmd->name, service->bot->nick, name, svccmd->command->parent->name, svccmd->command->name);
 982         return NULL;
 983     }
 984     svccmd = calloc(1, sizeof(*svccmd));
 985     svccmd_insert(service, strdup(name), svccmd, cmd);
 986     svccmd_copy_rules(svccmd, cmd->defaults);
 987     return svccmd;
 988 }
 989
 990 static unsigned int
 991 service_bind_module(struct service *service, struct module *module) {
 992     dict_iterator_t it;
 993     struct modcmd *modcmd;
 994     unsigned int count;
 995
 996     count = 0;
 997     for (it = dict_first(module->commands); it; it = iter_next(it)) {
 998         modcmd = iter_data(it);
 999         if (!((modcmd->flags | modcmd->defaults->flags) & MODCMD_NO_DEFAULT_BIND))
1000             if (service_bind_modcmd(service, modcmd, iter_key(it)))
1001                 count++;
1002     }
1003     return count;
1004 }
1005
1006 /* This MUST return argc if the alias expansion code knows how to deal
1007  * with every argument in argv; otherwise, it MUST return the index of
1008  * an argument that the expansion code does not know how to deal with.
1009  */
1010 static unsigned int
1011 check_alias_args(char *argv[], unsigned int argc) {
1012     unsigned int arg;
1013
1014     for (arg=0; arg<argc; ++arg) {
1015         if (argv[arg][0] != '$') {
1016             continue;
1017         } else if (argv[arg][1] == '$') {
1018             continue;
1019         } else if (isdigit(argv[arg][1])) {
1020             char *end_num;
1021             unsigned int tmp;
1022
1023             tmp = strtoul(argv[arg]+1, &end_num, 10);
1024             (void)tmp;
1025             switch (end_num[0]) {
1026             case 0:
1027                 continue;
1028             case '-':
1029                 if (end_num[1] == 0)
1030                     continue;
1031                 else if (isdigit(end_num[1]))
1032                     continue;
1033                 /* else fall through to default case */
1034             default:
1035                 return arg;
1036             }
1037         } else
1038             return arg;
1039     }
1040     return arg;
1041 }
1042
1043 static unsigned int
1044 collapse_cmdname(char *argv[], unsigned int argc, char *dest) {
1045     unsigned int ii, pos, arg;
1046     if (!argc) {
1047         dest[0] = 0;
1048         return 0;
1049     }
1050     for (ii=pos=0, arg=0; argv[arg][ii]; ) {
1051         if (argv[arg][ii] == '\\') {
1052             if (argv[arg][ii+1]) {
1053                 /* escaping a real character just puts it in literally */
1054                 dest[pos++] = argv[arg][++ii];
1055             } else if ((arg+1) == argc) {
1056                 /* we ran to the end of the argument list; abort */
1057                 break;
1058             } else {
1059                 /* escape at end of a word is a space */
1060                 dest[pos++] = ' ';
1061                 ii = 0;
1062                 arg++;
1063             }
1064         } else {
1065             /* normal characters don't need escapes */
1066             dest[pos++] = argv[arg][ii++];
1067         }
1068     }
1069     dest[pos] = 0;
1070     return arg + 1;
1071 }
1072
1073 static MODCMD_FUNC(cmd_bind) {
1074     struct service *service;
1075     struct svccmd *template, *newcmd;
1076     char *svcname, *dot;
1077     char newname[MAXLEN], cmdname[MAXLEN];
1078     unsigned int arg, diff;
1079
1080     assert(argc > 3);
1081     svcname = argv[1];
1082     arg = collapse_cmdname(argv+2, argc-2, newname) + 2;
1083     if (!arg) {
1084         reply("MSG_MISSING_PARAMS", cmd->name);
1085         return 0;
1086     }
1087     diff = collapse_cmdname(argv+arg, argc-arg, cmdname);
1088     if (!diff) {
1089         reply("MSG_MISSING_PARAMS", cmd->name);
1090         return 0;
1091     }
1092     arg += diff;
1093
1094     if (!(service = service_find(svcname))) {
1095         reply("MCMSG_UNKNOWN_SERVICE", svcname);
1096         return 0;
1097     }
1098
1099     if ((newcmd = dict_find(service->commands, newname, NULL))) {
1100         reply("MCMSG_ALREADY_BOUND", service->bot->nick, newname);
1101         return 0;
1102     }
1103
1104     if ((dot = strchr(cmdname, '.')) && (dot[1] == '*') && (dot[2] == 0)) {
1105         unsigned int count;
1106         struct module *module;
1107         *dot = 0;
1108         module = module_find((cmdname[0] == '*') ? cmdname+1 : cmdname);
1109         if (!module) {
1110             reply("MSG_MODULE_UNKNOWN", cmdname);
1111             return 0;
1112         }
1113         count = service_bind_module(service, module);
1114         reply("MCMSG_MODULE_BOUND", count, module->name, service->bot->nick);
1115         return count != 0;
1116     }
1117     newcmd = calloc(1, sizeof(*newcmd));
1118     newcmd->name = strdup(newname);
1119     newcmd->parent = service;
1120     if (!(template = svccmd_resolve_name(newcmd, cmdname))) {
1121         reply("MCMSG_UNKNOWN_COMMAND_2", cmdname, service->bot->nick);
1122         free(newcmd->name);
1123         free(newcmd);
1124         return 0;
1125     }
1126     if (template->alias.used) {
1127         reply("MCMSG_CANNOT_DOUBLE_ALIAS");
1128         free(newcmd->name);
1129         free(newcmd);
1130         return 0;
1131     }
1132
1133     if (argc > arg) {
1134         /* a more complicated alias; fix it up */
1135         unsigned int nn;
1136
1137         arg -= diff;
1138         nn = check_alias_args(argv+arg, argc-arg);
1139         if (nn+arg < argc) {
1140             reply("MCMSG_BAD_ALIAS_ARGUMENT", argv[nn+arg]);
1141             free(newcmd->name);
1142             free(newcmd);
1143             return 0;
1144         }
1145         newcmd->alias.used = newcmd->alias.size = argc-arg;
1146         newcmd->alias.list = calloc(newcmd->alias.size, sizeof(newcmd->alias.list[0]));
1147         for (nn=0; nn<newcmd->alias.used; ++nn)
1148             newcmd->alias.list[nn] = strdup(argv[nn+arg]);
1149     }
1150
1151     svccmd_insert(service, newcmd->name, newcmd, template->command);
1152     svccmd_copy_rules(newcmd, template);
1153     reply("MCMSG_COMMAND_BOUND", newcmd->name, newcmd->parent->bot->nick);
1154     return 1;
1155 }
1156
1157 static int
1158 service_recheck_bindings(struct service *service, struct module *module) {
1159     dict_iterator_t it;
1160     struct svccmd *cmd;
1161
1162     for (it = dict_first(service->commands); it; it = iter_next(it)) {
1163         cmd = iter_data(it);
1164         if (cmd->command->parent == module) return 0;
1165     }
1166     /* No more bindings, remove it from our list. */
1167     module_list_remove(&service->modules, module);
1168     return 1;
1169 }
1170
1171 static svccmd_unbind_func_t *suf_list;
1172 unsigned int suf_size, suf_used;
1173
1174 void
1175 reg_svccmd_unbind_func(svccmd_unbind_func_t handler) {
1176     if (suf_used == suf_size) {
1177         if (suf_size) {
1178             suf_size <<= 1;
1179             suf_list = realloc(suf_list, suf_size*sizeof(svccmd_unbind_func_t));
1180         } else {
1181             suf_size = 8;
1182             suf_list = malloc(suf_size*sizeof(svccmd_unbind_func_t));
1183         }
1184     }
1185     suf_list[suf_used++] = handler;
1186 }
1187
1188 static MODCMD_FUNC(cmd_unbind) {
1189     struct service *service;
1190     struct userNode *bot;
1191     struct svccmd *bound;
1192     struct module *module;
1193     const char *svcname;
1194     unsigned int arg, ii;
1195     char cmdname[MAXLEN];
1196
1197     assert(argc > 2);
1198     svcname = argv[1];
1199     arg = collapse_cmdname(argv+2, argc-2, cmdname) + 2;
1200     if (!arg) {
1201         reply("MSG_MISSING_PARAMS", cmd->name);
1202         return 0;
1203     }
1204     if (!(service = service_find(svcname))) {
1205         reply("MCMSG_UNKNOWN_SERVICE", svcname);
1206         return 0;
1207     }
1208     if (!(bound = dict_find(service->commands, cmdname, NULL))) {
1209         reply("MCMSG_NO_COMMAND_BOUND", service->bot->nick, cmdname);
1210         return 0;
1211     }
1212     if ((bound->command->flags & MODCMD_KEEP_BOUND) && (bound->command->bind_count == 1)) {
1213         reply("MCMSG_UNBIND_PROHIBITED", bound->command->name);
1214         return 0;
1215     }
1216
1217     for (ii=0; ii<suf_used; ii++)
1218         suf_list[ii](bound);
1219     /* If this command binding is removing itself, we must take care
1220      * not to dereference it after the dict_remove.
1221      */
1222     bot = cmd->parent->bot;
1223     module = cmd->command->parent;
1224     dict_remove(service->commands, bound->name);
1225     send_message(user, bot, "MCMSG_COMMAND_UNBOUND", cmdname, service->bot->nick);
1226     if (service_recheck_bindings(service, module))
1227         send_message(user, bot, "MCMSG_HELPFILE_UNBOUND", module->name, module->name);
1228     return 1;
1229 }
1230
1231 static MODCMD_FUNC(cmd_readhelp) {
1232     const char *modname;
1233     struct module *module;
1234     struct helpfile *old_helpfile;
1235     struct timeval start, stop;
1236
1237     assert(argc > 1);
1238     modname = argv[1];
1239     if (!(module = module_find(modname))) {
1240         reply("MSG_MODULE_UNKNOWN", modname);
1241         return 0;
1242     }
1243     if (!module->helpfile_name) {
1244         reply("MCMSG_NO_HELPFILE", module->name);
1245         return 0;
1246     }
1247     old_helpfile = module->helpfile;
1248     gettimeofday(&start, NULL);
1249     module->helpfile = open_helpfile(module->helpfile_name, module->expand_help);
1250     if (!module->helpfile) {
1251         module->helpfile = old_helpfile;
1252         reply("MCMSG_HELPFILE_ERROR", module->helpfile_name);
1253         return 0;
1254     }
1255     if (old_helpfile) close_helpfile(old_helpfile);
1256     gettimeofday(&stop, NULL);
1257     stop.tv_sec -= start.tv_sec;
1258     stop.tv_usec -= start.tv_usec;
1259     if (stop.tv_usec < 0) {
1260         stop.tv_sec -= 1;
1261         stop.tv_usec += 1000000;
1262     }
1263     reply("MCMSG_HELPFILE_READ", module->name, (unsigned long)stop.tv_sec, (unsigned long)stop.tv_usec/1000);
1264     return 1;
1265 }
1266
1267 static MODCMD_FUNC(cmd_help) {
1268     const char *topic;
1269
1270     topic = (argc < 2) ? NULL : unsplit_string(argv+1, argc-1, NULL);
1271     return svccmd_send_help_2(user, cmd->parent, topic);
1272 }
1273
1274 static MODCMD_FUNC(cmd_timecmd) {
1275     struct timeval start, stop;
1276     char cmd_text[MAXLEN];
1277
1278     unsplit_string(argv+1, argc-1, cmd_text);
1279     gettimeofday(&start, NULL);
1280     svccmd_invoke(user, cmd->parent, channel, cmd_text, 0);
1281     gettimeofday(&stop, NULL);
1282     stop.tv_sec -= start.tv_sec;
1283     stop.tv_usec -= start.tv_usec;
1284     if (stop.tv_usec < 0) {
1285         stop.tv_sec -= 1;
1286         stop.tv_usec += 1000000;
1287     }
1288     reply("MCMSG_COMMAND_TIME", cmd_text, (unsigned long)stop.tv_sec, (unsigned long)stop.tv_usec);
1289     return 1;
1290 }
1291
1292 static MODCMD_FUNC(cmd_command) {
1293     struct svccmd *svccmd;
1294     const char *cmd_name, *fmt_str;
1295     unsigned int flags, shown_flags, nn, pos;
1296     char buf[MAXLEN];
1297
1298     assert(argc >= 2);
1299     cmd_name = unsplit_string(argv+1, argc-1, NULL);
1300     if (!(svccmd = svccmd_resolve_name(cmd, cmd_name))) {
1301         reply("MCMSG_UNKNOWN_COMMAND_2", cmd_name, cmd->parent->bot->nick);
1302         return 0;
1303     }
1304     pos = snprintf(buf, sizeof(buf), "%s.%s", svccmd->command->parent->name, svccmd->command->name);
1305     if (svccmd->alias.used) {
1306         buf[pos++] = ' ';
1307         unsplit_string((char**)svccmd->alias.list+1, svccmd->alias.used-1, buf+pos);
1308         reply("MCMSG_COMMAND_ALIASES", svccmd->name, buf);
1309     } else {
1310         reply("MCMSG_COMMAND_BINDING", svccmd->name, buf);
1311     }
1312     flags = svccmd->effective_flags;
1313     if ((svccmd->parent && svccmd->parent->privileged && !IsOper(user))
1314         || ((flags & MODCMD_REQUIRE_STAFF)
1315             && !IsOper(user) && !IsNetworkHelper(user) && !IsSupportHelper(user))) {
1316         reply("MCMSG_INSPECTION_REFUSED", svccmd->name);
1317         return 0;
1318     }
1319     if (flags & MODCMD_DISABLED) {
1320         reply("MSG_COMMAND_DISABLED", svccmd->name);
1321         return 1;
1322     }
1323     shown_flags = 0;
1324     if (svccmd->min_opserv_level > 0) {
1325         reply("MCMSG_NEED_OPSERV_LEVEL", svccmd->min_opserv_level);
1326         shown_flags |= MODCMD_REQUIRE_OPER | MODCMD_REQUIRE_AUTHED;
1327     }
1328     if (svccmd->min_staff_level > 0) { // && (IsNetworkHelper(user) || IsSupportHelper(user) || IsOper(user))
1329         reply("MCMSG_NEED_STAFF_LEVEL", svccmd->min_staff_level);
1330         shown_flags |= MODCMD_REQUIRE_STAFF | MODCMD_REQUIRE_AUTHED;
1331     }
1332     if (svccmd->min_channel_access > 0) {
1333         reply("MCMSG_NEED_CHANSERV_LEVEL", svccmd->min_channel_access);
1334         shown_flags |= MODCMD_REQUIRE_CHANUSER | MODCMD_REQUIRE_REGCHAN | MODCMD_REQUIRE_CHANNEL | MODCMD_REQUIRE_AUTHED;
1335     }
1336     if (svccmd->req_account_flags) {
1337         for (nn=pos=0; nn<32; nn++) {
1338             if (!(svccmd->req_account_flags & (1 << nn))) continue;
1339             buf[pos++] = HANDLE_FLAGS[nn];
1340         }
1341         buf[pos] = 0;
1342         reply("MCMSG_NEED_ACCOUNT_FLAGS", buf);
1343         shown_flags |= MODCMD_REQUIRE_AUTHED;
1344     }
1345     if (!flags && !shown_flags) {
1346         reply("MCMSG_NEED_NOTHING", svccmd->name);
1347         return 1;
1348     }
1349     if (flags & ~shown_flags & MODCMD_REQUIRE_HELPING) {
1350         reply("MCMSG_MUST_BE_HELPING");
1351         shown_flags |= MODCMD_REQUIRE_AUTHED | MODCMD_REQUIRE_STAFF;
1352     }
1353     if (flags & ~shown_flags & MODCMD_REQUIRE_STAFF) {
1354         switch (flags & MODCMD_REQUIRE_STAFF) {
1355         default: case MODCMD_REQUIRE_STAFF:
1356             fmt_str = "MCMSG_NEED_STAFF_ACCESS";
1357             break;
1358         case MODCMD_REQUIRE_OPER:
1359             fmt_str = "MCMSG_NEED_STAFF_OPER";
1360             break;
1361         case MODCMD_REQUIRE_NETWORK_HELPER:
1362             fmt_str = "MCMSG_NEED_STAFF_NETHELPER";
1363             break;
1364         case MODCMD_REQUIRE_OPER|MODCMD_REQUIRE_NETWORK_HELPER:
1365             fmt_str = "MCMSG_NEED_STAFF_NETHELPER_OR_OPER";
1366             break;
1367         case MODCMD_REQUIRE_SUPPORT_HELPER:
1368             fmt_str = "MCMSG_NEED_STAFF_SHELPER";
1369             break;
1370         case MODCMD_REQUIRE_OPER|MODCMD_REQUIRE_SUPPORT_HELPER:
1371             fmt_str = "MCMSG_NEED_STAFF_SHELPER_OR_OPER";
1372             break;
1373         case MODCMD_REQUIRE_SUPPORT_HELPER|MODCMD_REQUIRE_NETWORK_HELPER:
1374             fmt_str = "MCMSG_NEED_STAFF_HELPER";
1375             break;
1376         }
1377         reply(fmt_str);
1378         shown_flags |= MODCMD_REQUIRE_AUTHED | MODCMD_REQUIRE_STAFF;
1379     }
1380     if (flags & ~shown_flags & MODCMD_REQUIRE_JOINABLE) {
1381         reply("MCMSG_NEED_JOINABLE");
1382         shown_flags |= MODCMD_REQUIRE_CHANUSER;
1383     }
1384     if (flags & ~shown_flags & MODCMD_REQUIRE_CHANUSER) {
1385         if (flags & ~shown_flags & MODCMD_IGNORE_CSUSPEND)
1386             reply("MCMSG_NEED_CHANUSER_CSUSPENDABLE");
1387         else
1388             reply("MCMSG_NEED_CHANUSER");
1389         shown_flags |= MODCMD_IGNORE_CSUSPEND | MODCMD_REQUIRE_REGCHAN | MODCMD_REQUIRE_CHANNEL | MODCMD_REQUIRE_AUTHED;
1390     }
1391     if (flags & ~shown_flags & MODCMD_REQUIRE_REGCHAN) {
1392         reply("MCMSG_NEED_REGCHAN");
1393         shown_flags |= MODCMD_REQUIRE_CHANNEL;
1394     }
1395     if (flags & ~shown_flags & MODCMD_REQUIRE_CHANNEL)
1396         reply("MCMSG_NEED_CHANNEL");
1397     if (flags & ~shown_flags & MODCMD_REQUIRE_AUTHED)
1398         reply("MCMSG_NEED_AUTHED");
1399     if (flags & ~shown_flags & MODCMD_TOY)
1400         reply("MCMSG_IS_TOY", svccmd->name);
1401     if (flags & ~shown_flags & MODCMD_REQUIRE_QUALIFIED) {
1402         const char *botnick = svccmd->parent ? svccmd->parent->bot->nick : "SomeBot";
1403         reply("MCMSG_MUST_QUALIFY", botnick, svccmd->name, botnick);
1404     }
1405     reply("MCMSG_END_REQUIREMENTS", svccmd->name);
1406     return 1;
1407 }
1408
1409 static void
1410 modcmd_describe_command(struct userNode *user, struct svccmd *cmd, struct svccmd *target) {
1411     char buf1[MAXLEN], buf2[MAXLEN];
1412     unsigned int ii, len, buf1_used, buf2_used;
1413
1414     if (target->alias.used) {
1415         unsplit_string((char**)target->alias.list, target->alias.used, buf1);
1416         reply("MCMSG_COMMAND_ALIASES", target->name, buf1);
1417     } else {
1418         snprintf(buf1, sizeof(buf1), "%s.%s", target->command->parent->name, target->command->name);
1419         reply("MCMSG_COMMAND_BINDING", target->name, buf1);
1420     }
1421     for (ii = buf1_used = buf2_used = 0; modcmd_flags[ii].name; ++ii) {
1422         const struct modcmd_flag *flag = &modcmd_flags[ii];
1423         if (target->flags & flag->flag) {
1424             if (buf1_used)
1425                 buf1[buf1_used++] = ',';
1426             len = strlen(flag->name);
1427             memcpy(buf1 + buf1_used, flag->name, len);
1428             buf1_used += len;
1429         } else if (target->effective_flags & flag->flag) {
1430             if (buf2_used)
1431                 buf2[buf2_used++] = ',';
1432             len = strlen(flag->name);
1433             memcpy(buf2 + buf2_used, flag->name, len);
1434             buf2_used += len;
1435         }
1436     }
1437     if (buf1_used)
1438         buf1[buf1_used] = '\0';
1439     else
1440         strcpy(buf1, user_find_message(user, "MSG_NONE"));
1441     if (buf2_used)
1442         buf2[buf2_used] = '\0';
1443     else
1444         strcpy(buf2, user_find_message(user, "MSG_NONE"));
1445     reply("MCMSG_COMMAND_FLAGS", buf1, buf2);
1446     for (ii = buf1_used = buf2_used = 0; handle_flags[ii]; ++ii) {
1447         if (target->req_account_flags & (1 << ii))
1448             buf1[buf1_used++] = handle_flags[ii];
1449         else if (target->deny_account_flags & (1 << ii))
1450             buf2[buf2_used++] = handle_flags[ii];
1451     }
1452     buf1[buf1_used] = buf2[buf2_used] = '\0';
1453     reply("MCMSG_COMMAND_ACCOUNT_FLAGS", buf1, buf2);
1454     reply("MCMSG_COMMAND_ACCESS_LEVEL", target->min_channel_access, target->min_opserv_level, target->min_staff_level);
1455     reply("MCMSG_COMMAND_USES", target->name, target->uses);
1456 }
1457
1458 static MODCMD_FUNC(cmd_modcmd) {
1459     struct svccmd *svccmd;
1460     unsigned int arg, changed;
1461     char cmdname[MAXLEN];
1462
1463     assert(argc >= 2);
1464     arg = collapse_cmdname(argv+1, argc-1, cmdname) + 1;
1465     if (!arg) {
1466         reply("MSG_MISSING_PARAMS", cmd->name);
1467         return 0;
1468     }
1469     if (!(svccmd = svccmd_resolve_name(cmd, cmdname))) {
1470         reply("MCMSG_UNKNOWN_COMMAND_2", cmdname, cmd->parent->bot->nick);
1471         return 0;
1472     }
1473     for (changed = 0; arg+1 < argc; arg += 2) {
1474         if (svccmd_configure(svccmd, user, cmd->parent->bot, argv[arg], argv[arg+1])) {
1475             reply("MCMSG_COMMAND_MODIFIED", argv[arg], svccmd->name);
1476             changed = 1;
1477         }
1478     }
1479     if (changed)
1480         modcmd_set_effective_flags(svccmd);
1481     modcmd_describe_command(user, cmd, svccmd);
1482     return changed;
1483 }
1484
1485 static MODCMD_FUNC(cmd_god) {
1486     int helping;
1487
1488     if (argc > 1) {
1489         if (enabled_string(argv[1])) {
1490             if (HANDLE_FLAGGED(user->handle_info, HELPING)) {
1491                 reply("MCMSG_ALREADY_HELPING");
1492                 return 0;
1493             }
1494             helping = 1;
1495         } else if (disabled_string(argv[1])) {
1496             if (!HANDLE_FLAGGED(user->handle_info, HELPING)) {
1497                 reply("MCMSG_ALREADY_NOT_HELPING");
1498                 return 0;
1499             }
1500             helping = 0;
1501         } else {
1502             reply("MSG_INVALID_BINARY", argv[1]);
1503             return 0;
1504         }
1505     } else {
1506         helping = !IsHelping(user);
1507     }
1508
1509     if (helping) {
1510         HANDLE_SET_FLAG(user->handle_info, HELPING);
1511         reply("MCMSG_NOW_HELPING");
1512     } else {
1513         HANDLE_CLEAR_FLAG(user->handle_info, HELPING);
1514         reply("MCMSG_NOW_NOT_HELPING");
1515     }
1516
1517     return 1;
1518 }
1519
1520 static MODCMD_FUNC(cmd_joiner) {
1521     char cmdname[MAXLEN];
1522
1523     if (argc < 2) {
1524         int len = sprintf(cmdname, "%s ", cmd->name);
1525         dict_iterator_t it;
1526         struct string_buffer sbuf;
1527
1528         string_buffer_init(&sbuf);
1529         for (it = dict_first(cmd->parent->commands); it; it = iter_next(it)) {
1530             if (!ircncasecmp(iter_key(it), cmdname, len)) {
1531                 if (sbuf.used) string_buffer_append_string(&sbuf, ", ");
1532                 string_buffer_append_string(&sbuf, iter_key(it));
1533             }
1534         }
1535         if (!sbuf.used) string_buffer_append(&sbuf, 0);
1536         reply("MCMSG_JOINER_CHOICES", cmd->name, sbuf.list);
1537         string_buffer_clean(&sbuf);
1538         return 1;
1539     }
1540     sprintf(cmdname, "%s %s", cmd->name, argv[1]);
1541     argv[1] = cmdname;
1542     svccmd_invoke_argv(user, cmd->parent, channel, argc-1, argv+1, 0);
1543     return 0; /* never try to log this; the recursive one logs it */
1544 }
1545
1546 static MODCMD_FUNC(cmd_stats_modules) {
1547     struct helpfile_table tbl;
1548     dict_iterator_t it;
1549     unsigned int ii;
1550     struct module *mod;
1551     struct modcmd *modcmd;
1552
1553     if (argc < 2) {
1554         tbl.length = dict_size(modules) + 1;
1555         tbl.width = 3;
1556         tbl.flags = TABLE_PAD_LEFT;
1557         tbl.contents = calloc(tbl.length, sizeof(tbl.contents[0]));
1558         tbl.contents[0] = calloc(tbl.width, sizeof(tbl.contents[0][0]));
1559         tbl.contents[0][0] = "Module";
1560         tbl.contents[0][1] = "Commands";
1561         tbl.contents[0][2] = "Helpfile";
1562         for (ii=1, it=dict_first(modules); it; it=iter_next(it), ii++) {
1563             mod = iter_data(it);
1564             tbl.contents[ii] = calloc(tbl.width, sizeof(tbl.contents[ii][0]));
1565             tbl.contents[ii][0] = mod->name;
1566             tbl.contents[ii][1] = strtab(dict_size(mod->commands));
1567             tbl.contents[ii][2] = mod->helpfile_name ? mod->helpfile_name : "(none)";
1568         }
1569     } else if (!(mod = dict_find(modules, argv[1], NULL))) {
1570         reply("MCMSG_UNKNOWN_MODULE", argv[1]);
1571         return 0;
1572     } else {
1573         reply("MCMSG_MODULE_INFO", mod->name);
1574         tbl.length = dict_size(mod->commands) + 1;
1575         tbl.width = 3;
1576         tbl.flags = TABLE_PAD_LEFT;
1577         tbl.contents = calloc(tbl.length, sizeof(tbl.contents[0]));
1578         tbl.contents[0] = calloc(tbl.width, sizeof(tbl.contents[0][0]));
1579         tbl.contents[0][0] = "Command";
1580         tbl.contents[0][1] = "Min. Args";
1581         tbl.contents[0][2] = "Bind Count";
1582         for (ii=1, it=dict_first(mod->commands); it; it=iter_next(it), ii++) {
1583             modcmd = iter_data(it);
1584             tbl.contents[ii] = calloc(tbl.width, sizeof(tbl.contents[ii][0]));
1585             tbl.contents[ii][0] = modcmd->name;
1586             tbl.contents[ii][1] = strtab(modcmd->min_argc);
1587             tbl.contents[ii][2] = strtab(modcmd->bind_count);
1588         }
1589     }
1590     table_send(cmd->parent->bot, user->nick, 0, 0, tbl);
1591     return 0;
1592 }
1593
1594 static MODCMD_FUNC(cmd_stats_services) {
1595     struct helpfile_table tbl;
1596     dict_iterator_t it;
1597     unsigned int ii;
1598     struct service *service;
1599     struct svccmd *svccmd;
1600     char *extra;
1601
1602     if (argc < 2) {
1603         tbl.length = dict_size(services) + 1;
1604         tbl.width = 5;
1605         tbl.flags = TABLE_PAD_LEFT;
1606         tbl.contents = calloc(tbl.length, sizeof(tbl.contents[0]));
1607         tbl.contents[0] = calloc(tbl.width, sizeof(tbl.contents[0][0]));
1608         tbl.contents[0][0] = "Service";
1609         tbl.contents[0][1] = "Commands";
1610         tbl.contents[0][2] = "Priv'd?";
1611         tbl.contents[0][3] = "Trigger";
1612         tbl.contents[0][4] = "Offchannel";
1613         extra = calloc(2, tbl.length);
1614         for (ii=1, it=dict_first(services); it; it=iter_next(it), ii++) {
1615             service = iter_data(it);
1616             tbl.contents[ii] = calloc(tbl.width, sizeof(tbl.contents[ii][0]));
1617             tbl.contents[ii][0] = service->bot->nick;
1618             tbl.contents[ii][1] = (service->commands && dict_size(service->commands) ? strtab(dict_size(service->commands)) : strtab(0));
1619             tbl.contents[ii][2] = service->privileged ? "yes" : "no";
1620             extra[ii*2] = service->trigger;
1621             tbl.contents[ii][3] = extra+ii*2;
1622                         tbl.contents[ii][4] = offchannel_allowed[(unsigned char)service->trigger] ? "yes" : "no";
1623         }
1624         table_send(cmd->parent->bot, user->nick, 0, 0, tbl);
1625         free(extra);
1626         return 0;
1627     } else if (!(service = dict_find(services, argv[1], NULL))) {
1628         reply("MCMSG_UNKNOWN_SERVICE", argv[1]);
1629         return 0;
1630     } else {
1631         tbl.length = dict_size(service->commands) + 1;
1632         tbl.width = 5;
1633         tbl.flags = TABLE_PAD_LEFT | TABLE_NO_FREE;
1634         tbl.contents = calloc(tbl.length, sizeof(tbl.contents[0]));
1635         tbl.contents[0] = calloc(tbl.width, sizeof(tbl.contents[0][0]));
1636         tbl.contents[0][0] = "Command";
1637         tbl.contents[0][1] = "Module";
1638         tbl.contents[0][2] = "ModCmd";
1639         tbl.contents[0][3] = "Alias?";
1640         tbl.contents[0][4] = strdup("Uses");
1641         for (ii=1, it=dict_first(service->commands); it; it=iter_next(it), ii++) {
1642             svccmd = iter_data(it);
1643             tbl.contents[ii] = calloc(tbl.width, sizeof(tbl.contents[ii][0]));
1644             tbl.contents[ii][0] = svccmd->name;
1645             tbl.contents[ii][1] = svccmd->command->parent->name;
1646             tbl.contents[ii][2] = svccmd->command->name;
1647             tbl.contents[ii][3] = svccmd->alias.used ? "yes" : "no";
1648             tbl.contents[ii][4] = extra = malloc(12);
1649             sprintf(extra, "%u", svccmd->uses);
1650         }
1651         reply("MCMSG_SERVICE_INFO", service->bot->nick);
1652         table_send(cmd->parent->bot, user->nick, 0, 0, tbl);
1653         for (ii=0; ii<tbl.length; ii++) {
1654             free((char*)tbl.contents[ii][4]);
1655             free(tbl.contents[ii]);
1656         }
1657         free(tbl.contents);
1658         return 0;
1659     }
1660 }
1661
1662 static MODCMD_FUNC(cmd_showcommands) {
1663     struct svccmd_list commands;
1664     struct helpfile_table tbl;
1665     struct svccmd *svccmd;
1666     dict_iterator_t it;
1667     unsigned int ii, ignore_flags = 0;
1668     unsigned int max_opserv_level = 1000;
1669     unsigned short max_chanserv_level = 500;
1670     char show_opserv_level = 0, show_channel_access = 0;
1671
1672     /* Check to see what the max access they want to see is. */
1673     for (ii=1; ii<argc; ++ii) {
1674         if (isdigit(argv[ii][0]))
1675             max_opserv_level = atoi(argv[ii]);
1676         else
1677             max_chanserv_level = user_level_from_name(argv[ii], UL_OWNER);
1678     }
1679
1680     /* Find the matching commands. */
1681     svccmd_list_init(&commands);
1682     if (cmd->parent->privileged)
1683         ignore_flags = MODCMD_REQUIRE_OPER;
1684     for (it = dict_first(cmd->parent->commands); it; it = iter_next(it)) {
1685         svccmd = iter_data(it);
1686         if (strchr(svccmd->name, ' '))
1687             continue;
1688         if (!svccmd_can_invoke(user, svccmd->parent->bot, svccmd, channel, SVCCMD_QUALIFIED))
1689             continue;
1690         if (svccmd->min_opserv_level > max_opserv_level)
1691             continue;
1692         if (svccmd->min_channel_access > max_chanserv_level)
1693             continue;
1694         if (svccmd->min_opserv_level > 0)
1695             show_opserv_level = 1;
1696         if (svccmd->min_channel_access > 0)
1697             show_channel_access = 1;
1698         if (svccmd->effective_flags
1699             & (MODCMD_REQUIRE_STAFF|MODCMD_REQUIRE_HELPING)
1700             & ~ignore_flags) {
1701             show_channel_access = 1;
1702         }
1703         svccmd_list_append(&commands, svccmd);
1704     }
1705
1706     /* Build the table. */
1707     tbl.length = commands.used + 1;
1708     tbl.width = 1 + show_opserv_level + show_channel_access;
1709     tbl.flags = TABLE_REPEAT_ROWS;
1710     tbl.contents = calloc(tbl.length, sizeof(tbl.contents[0]));
1711     tbl.contents[0] = calloc(tbl.width, sizeof(tbl.contents[0][0]));
1712     tbl.contents[0][ii = 0] = "Command";
1713     if (show_opserv_level)
1714         tbl.contents[0][++ii] = "OpServ Level";
1715     if (show_channel_access)
1716         tbl.contents[0][++ii] = "ChanServ Access";
1717     for (ii=0; ii<commands.used; ++ii) {
1718         svccmd = commands.list[ii];
1719         tbl.contents[ii+1] = calloc(tbl.width, sizeof(tbl.contents[0][0]));
1720         tbl.contents[ii+1][0] = svccmd->name;
1721         if (show_opserv_level)
1722             tbl.contents[ii+1][1] = strtab(svccmd->min_opserv_level);
1723         if (show_channel_access) {
1724             const char *access_name;
1725             int flags = svccmd->effective_flags;
1726             if (flags & MODCMD_REQUIRE_HELPING)
1727                 access_name = "helping";
1728             else if (flags & MODCMD_REQUIRE_STAFF) {
1729                 if (flags & MODCMD_REQUIRE_OPER)
1730                     access_name = "oper";
1731                 else if (flags & MODCMD_REQUIRE_NETWORK_HELPER)
1732                     access_name = "net.helper";
1733                 else
1734                     access_name = "staff";
1735             } else
1736                 access_name = strtab(svccmd->min_channel_access);
1737             tbl.contents[ii+1][1+show_opserv_level] = access_name;
1738         }
1739     }
1740     svccmd_list_clean(&commands);
1741     table_send(cmd->parent->bot, user->nick, 0, 0, tbl);
1742     return 0;
1743 }
1744
1745 static MODCMD_FUNC(cmd_helpfiles) {
1746     struct service *service;
1747     unsigned int ii;
1748
1749     if (!(service = dict_find(services, argv[1], NULL))) {
1750         reply("MCMSG_UNKNOWN_SERVICE", argv[1]);
1751         return 0;
1752     }
1753
1754     if (argc < 3) {
1755         for (ii=0; ii<service->modules.used; ++ii)
1756             reply("MCMSG_HELPFILE_SEQUENCE", ii+1, service->modules.list[ii]->name);
1757         return 0;
1758     }
1759
1760     service->modules.used = 0;
1761     for (ii=0; ii<argc-2; ii++) {
1762         struct module *module = dict_find(modules, argv[ii+2], NULL);
1763         if (!module) {
1764             reply("MCMSG_UNKNOWN_MODULE", argv[ii+2]);
1765             continue;
1766         }
1767         module_list_append(&service->modules, module);
1768     }
1769     reply("MCMSG_HELPFILE_SEQUENCE_SET", service->bot->nick);
1770     return 1;
1771 }
1772
1773 static MODCMD_FUNC(cmd_service_add) {
1774     const char *nick, *hostname, *desc;
1775     struct userNode *bot;
1776
1777     nick = argv[1];
1778     if (!is_valid_nick(nick)) {
1779         reply("MCMSG_BAD_SERVICE_NICK", nick);
1780         return 0;
1781     }
1782     hostname = argv[2];
1783     desc = unsplit_string(argv+3, argc-3, NULL);
1784     bot = GetUserH(nick);
1785     if (bot && IsService(bot)) {
1786         reply("MCMSG_ALREADY_SERVICE", bot->nick);
1787         return 0;
1788     }
1789     bot = AddLocalUser(nick, nick, hostname, desc, NULL);
1790     service_register(bot);
1791     reply("MCMSG_NEW_SERVICE", bot->nick);
1792     return 1;
1793 }
1794
1795 static MODCMD_FUNC(cmd_service_rename) {
1796     struct service *service;
1797
1798     if (!(service = service_find(argv[1]))) {
1799         reply("MCMSG_UNKNOWN_SERVICE", argv[1]);
1800         return 0;
1801     }
1802     NickChange(service->bot, argv[2], 0);
1803     reply("MCMSG_SERVICE_RENAMED", service->bot->nick);
1804     return 1;
1805 }
1806
1807 static MODCMD_FUNC(cmd_service_trigger) {
1808     struct userNode *bogon;
1809     struct service *service;
1810     int old_oc = 0;
1811
1812     if (!(service = service_find(argv[1]))) {
1813         reply("MCMSG_UNKNOWN_SERVICE", argv[1]);
1814         return 0;
1815     }
1816     if (argc < 3) {
1817         if (service->trigger)
1818             reply("MCMSG_CURRENT_TRIGGER", service->bot->nick, service->trigger);
1819         else
1820             reply("MCMSG_NO_TRIGGER", service->bot->nick);
1821         return 1;
1822     }
1823     if (service->trigger) {
1824         old_oc = offchannel_allowed[(unsigned char)service->trigger];
1825         offchannel_allowed[(unsigned char)service->trigger] = 0;
1826         reg_chanmsg_func(service->trigger, NULL, NULL);
1827     }
1828     if (!irccasecmp(argv[2], "none") || !irccasecmp(argv[2], "remove")) {
1829         offchannel_allowed[(unsigned char)service->trigger] = 0;
1830         service->trigger = 0;
1831         reply("MCMSG_REMOVED_TRIGGER", service->bot->nick);
1832     } else if ((bogon = get_chanmsg_bot(argv[2][0]))) {
1833         reply("MCMSG_DUPLICATE_TRIGGER", bogon->nick, argv[2][0]);
1834         return 1;
1835     } else {
1836         service->trigger = argv[2][0];
1837         offchannel_allowed[(unsigned char)service->trigger] = old_oc;
1838         reg_chanmsg_func(service->trigger, service->bot, modcmd_chanmsg);
1839         reply("MCMSG_NEW_TRIGGER", service->bot->nick, service->trigger);
1840     }
1841     return 1;
1842 }
1843
1844 static MODCMD_FUNC(cmd_service_offchannel) {
1845     struct service *service;
1846
1847     if (!(service = service_find(argv[1]))) {
1848         reply("MCMSG_UNKNOWN_SERVICE", argv[1]);
1849         return 0;
1850     }
1851
1852     if(!service->trigger) {
1853         reply("MCMSG_NO_TRIGGER", service->bot->nick);
1854         return 0;
1855     }
1856
1857     if(argc < 3) {
1858         if(offchannel_allowed[(unsigned char)service->trigger])
1859             reply("MCMSG_OFFCHANNEL_IS_ON", service->bot->nick, service->trigger);
1860         else
1861             reply("MCMSG_OFFCHANNEL_IS_OFF", service->bot->nick, service->trigger);
1862         return 1;
1863     }
1864
1865     if(enabled_string(argv[2])) {
1866         offchannel_allowed[(unsigned char)service->trigger] = 1;
1867         reply("MCMSG_OFFCHANNEL_ON", service->bot->nick, service->trigger);
1868     } else if(disabled_string(argv[2])) {
1869         offchannel_allowed[(unsigned char)service->trigger] = 0;
1870         reply("MCMSG_OFFCHANNEL_OFF", service->bot->nick, service->trigger);
1871     } else {
1872         reply("MSG_INVALID_BINARY", argv[2]);
1873         return 0;
1874     }
1875
1876     return 1;
1877 }
1878
1879 static MODCMD_FUNC(cmd_service_privileged) {
1880     struct service *service;
1881     const char *newval;
1882
1883     if (!(service = service_find(argv[1]))) {
1884         reply("MCMSG_UNKNOWN_SERVICE", argv[1]);
1885         return 0;
1886     }
1887     if (argc >= 3)
1888         service->privileged = true_string(argv[2]) || enabled_string(argv[2]);
1889     newval = user_find_message(user, service->privileged ? "MSG_ON" : "MSG_OFF");
1890     reply("MCMSG_SERVICE_PRIVILEGED", service->bot->nick, newval);
1891     return 1;
1892 }
1893
1894 static MODCMD_FUNC(cmd_service_remove) {
1895     char *name, *reason;
1896     struct service *service;
1897
1898     name = argv[1];
1899     if (argc > 2)
1900         reason = unsplit_string(argv+2, argc-2, NULL);
1901     else
1902         reason = "Removing bot";
1903     if (!(service = service_find(name))) {
1904         reply("MCMSG_UNKNOWN_SERVICE", name);
1905         return 0;
1906     }
1907     DelUser(service->bot, NULL, 1, reason);
1908     reply("MCMSG_SERVICE_REMOVED", name);
1909     dict_remove(services, name);
1910     return 1;
1911 }
1912
1913 static MODCMD_FUNC(cmd_dump_messages) {
1914     const char *fname = "strings.db";
1915     struct saxdb_context *ctx;
1916     dict_iterator_t it;
1917     FILE *pf;
1918     int res;
1919
1920     if (!(pf = fopen(fname, "w"))) {
1921         reply("MCMSG_FILE_NOT_OPENED", fname);
1922         return 0;
1923     }
1924     if (!(ctx = saxdb_open_context(pf))) {
1925         reply("MSG_INTERNAL_FAILURE");
1926         return 0;
1927     }
1928     if ((res = setjmp(*saxdb_jmp_buf(ctx))) != 0) {
1929         saxdb_close_context(ctx, 1);
1930         reply("MCMSG_MESSAGE_DUMP_FAILED", strerror(res));
1931         return 0;
1932     } else {
1933         for (it = dict_first(lang_C->messages); it; it = iter_next(it))
1934             saxdb_write_string(ctx, iter_key(it), iter_data(it));
1935         saxdb_close_context(ctx, 1);
1936         reply("MCMSG_MESSAGES_DUMPED", fname);
1937         return 1;
1938     }
1939 }
1940
1941 static MODCMD_FUNC(cmd_version) {
1942     /* This function provides copyright management information to end
1943      * users of srvx. You should not alter, disable or remove this
1944      * command or its accessibility to normal IRC users, except to add
1945      * copyright information pertaining to changes you make to srvx.
1946      */
1947     send_message_type(4, user, cmd->parent->bot, "$b"PACKAGE_STRING"$b ("CODENAME"), GIT Revision: %s, Built: "__DATE__", "__TIME__".  Copyright 2000-2008 srvx Development Team.", git_version);
1948     send_message_type(12, user, cmd->parent->bot, "The srvx Development Team includes Paul Chang, Adrian Dewhurst, Miles Peterson, Michael Poole and others.\nThe srvx Development Team can be reached at http://sf.net/projects/srvx/ or in #srvx on irc.gamesurge.net.\nThis version has been modified by pk910, Stricted, NurPech - visit #dev @ irc.nextirc.net.");
1949     return 1;
1950 }
1951
1952 static MODCMD_FUNC(cmd_tell) {
1953     struct userNode *target;
1954     char *msg;
1955
1956     target = GetUserH(argv[1]);
1957     msg = unsplit_string(argv + 2, argc - 2, NULL);
1958     if (!target) {
1959         reply("MSG_NOT_TARGET_NAME");
1960         return 0;
1961     }
1962     send_message_type(MSG_TYPE_NOXLATE, target, cmd->parent->bot, "%s", msg);
1963     return 1;
1964 }
1965
1966 void
1967 modcmd_nick_change(struct userNode *user, const char *old_nick) {
1968     struct service *svc;
1969     if (!(svc = dict_find(services, old_nick, NULL)))
1970         return;
1971     dict_remove2(services, old_nick, 1);
1972     dict_insert(services, user->nick, svc);
1973 }
1974
1975 void
1976 modcmd_cleanup(void) {
1977     dict_delete(services);
1978     dict_delete(modules);
1979     if (suf_list)
1980         free(suf_list);
1981 }
1982
1983 static void
1984 modcmd_saxdb_write_command(struct saxdb_context *ctx, struct svccmd *cmd) {
1985     char buf[MAXLEN];
1986     unsigned int nn, len, pos;
1987     struct svccmd *template = cmd->command->defaults;
1988
1989     saxdb_start_record(ctx, cmd->name, 0);
1990     sprintf(buf, "%s.%s", cmd->command->parent->name, cmd->command->name);
1991     saxdb_write_string(ctx, "command", buf);
1992     if (cmd->alias.used)
1993         saxdb_write_string_list(ctx, "aliased", &cmd->alias);
1994     if (cmd->min_opserv_level != template->min_opserv_level)
1995         saxdb_write_int(ctx, "oper_access", cmd->min_opserv_level);
1996     if (cmd->min_staff_level != template->min_staff_level)
1997         saxdb_write_int(ctx, "staff_access", cmd->min_staff_level);
1998     if (cmd->min_channel_access != template->min_channel_access)
1999         saxdb_write_int(ctx, "channel_access", cmd->min_channel_access);
2000     if (cmd->flags != template->flags) {
2001         if (cmd->flags) {
2002             for (nn=pos=0; modcmd_flags[nn].name; ++nn) {
2003                 const struct modcmd_flag *flag = &modcmd_flags[nn];
2004                 if (cmd->flags & flag->flag) {
2005                     buf[pos++] = '+';
2006                     len = strlen(flag->name);
2007                     memcpy(buf+pos, flag->name, len);
2008                     pos += len;
2009                     buf[pos++] = ',';
2010                 }
2011             }
2012         } else {
2013             pos = 1;
2014         }
2015         buf[--pos] = 0;
2016         saxdb_write_string(ctx, "flags", buf);
2017     }
2018     if ((cmd->req_account_flags != template->req_account_flags)
2019         || (cmd->deny_account_flags != template->req_account_flags)) {
2020         pos = 0;
2021         if (cmd->req_account_flags) {
2022             buf[pos++] = '+';
2023             for (nn=0; nn<32; nn++)
2024                 if (cmd->req_account_flags & (1 << nn))
2025                     buf[pos++] = handle_flags[nn];
2026         }
2027         if (cmd->deny_account_flags) {
2028             buf[pos++] = '-';
2029             for (nn=0; nn<32; nn++)
2030                 if (cmd->deny_account_flags & (1 << nn))
2031                     buf[pos++] = handle_flags[nn];
2032         }
2033         buf[pos] = 0;
2034         saxdb_write_string(ctx, "account_flags", buf);
2035     }
2036     saxdb_end_record(ctx);
2037 }
2038
2039 static int
2040 modcmd_saxdb_write(struct saxdb_context *ctx) {
2041     struct string_list slist;
2042     dict_iterator_t it, it2;
2043     struct service *service;
2044     unsigned int ii;
2045
2046     saxdb_start_record(ctx, "bots", 1);
2047     for (it = dict_first(services); it; it = iter_next(it)) {
2048         char buff[16];
2049         char modes[32];
2050
2051         service = iter_data(it);
2052         saxdb_start_record(ctx, service->bot->nick, 1);
2053         if (service->trigger) {
2054             buff[0] = service->trigger;
2055             buff[1] = '\0';
2056             saxdb_write_string(ctx, "trigger", buff);
2057             if(offchannel_allowed[(unsigned char)service->trigger])
2058                 saxdb_write_int(ctx, "offchannel", 1);
2059         }
2060         saxdb_write_string(ctx, "description", service->bot->info);
2061         saxdb_write_string(ctx, "hostname", service->bot->hostname);
2062         if (service->bot->modes) {
2063             irc_user_modes(service->bot, modes, sizeof(modes));
2064             saxdb_write_string(ctx, "modes", modes);
2065         }
2066         if (service->privileged)
2067             saxdb_write_string(ctx, "privileged", "1");
2068         saxdb_end_record(ctx);
2069     }
2070     saxdb_end_record(ctx);
2071
2072     saxdb_start_record(ctx, "services", 1);
2073     for (it = dict_first(services); it; it = iter_next(it)) {
2074         service = iter_data(it);
2075         saxdb_start_record(ctx, service->bot->nick, 1);
2076         for (it2 = dict_first(service->commands); it2; it2 = iter_next(it2))
2077             modcmd_saxdb_write_command(ctx, iter_data(it2));
2078         saxdb_end_record(ctx);
2079     }
2080     saxdb_end_record(ctx);
2081
2082     saxdb_start_record(ctx, "helpfiles", 1);
2083     slist.size = 0;
2084     for (it = dict_first(services); it; it = iter_next(it)) {
2085         service = iter_data(it);
2086         slist.used = 0;
2087         for (ii = 0; ii < service->modules.used; ++ii)
2088             string_list_append(&slist, service->modules.list[ii]->name);
2089         saxdb_write_string_list(ctx, iter_key(it), &slist);
2090     }
2091     if (slist.list)
2092         free(slist.list);
2093     saxdb_end_record(ctx);
2094
2095     return 0;
2096 }
2097
2098 static int
2099 append_entry(const char *key, UNUSED_ARG(void *data), void *extra) {
2100     struct helpfile_expansion *exp = extra;
2101     int row = exp->value.table.length++;
2102     exp->value.table.contents[row] = calloc(1, sizeof(char*));
2103     exp->value.table.contents[row][0] = key;
2104     return 0;
2105 }
2106
2107 static struct helpfile_expansion
2108 modcmd_expand(const char *variable) {
2109     struct helpfile_expansion exp;
2110     extern struct userNode *message_source;
2111     struct service *service;
2112
2113     service = dict_find(services, message_source->nick, NULL);
2114     if (!irccasecmp(variable, "index")) {
2115         exp.type = HF_TABLE;
2116         exp.value.table.length = 1;
2117         exp.value.table.width = 1;
2118         exp.value.table.flags = TABLE_REPEAT_ROWS;
2119         exp.value.table.contents = calloc(dict_size(service->commands)+1, sizeof(char**));
2120         exp.value.table.contents[0] = calloc(1, sizeof(char*));
2121         exp.value.table.contents[0][0] = "Commands:";
2122         dict_foreach(service->commands, append_entry, &exp);
2123         return exp;
2124     } else if (!irccasecmp(variable, "languages")) {
2125         struct string_buffer sbuf;
2126         dict_iterator_t it;
2127         sbuf.used = sbuf.size = 0;
2128         sbuf.list = NULL;
2129         for (it = dict_first(languages); it; it = iter_next(it)) {
2130             string_buffer_append_string(&sbuf, iter_key(it));
2131             string_buffer_append(&sbuf, ' ');
2132         }
2133         sbuf.list[--sbuf.used] = 0;
2134         exp.type = HF_STRING;
2135         exp.value.str = sbuf.list;
2136         return exp;
2137     }
2138     exp.type = HF_STRING;
2139     exp.value.str = NULL;
2140     return exp;
2141 }
2142
2143 static void
2144 modcmd_load_bots(struct dict *db, int default_nick) {
2145     dict_iterator_t it;
2146
2147     for (it = dict_first(db); it; it = iter_next(it)) {
2148         struct record_data *rd;
2149         struct service *svc;
2150         const char *nick, *desc, *hostname, *modes;
2151
2152         rd = iter_data(it);
2153         if (rd->type != RECDB_OBJECT) {
2154             log_module(MAIN_LOG, LOG_ERROR, "Bad type for 'bots/%s' in modcmd db (expected object).", iter_key(it));
2155             continue;
2156         }
2157         nick = database_get_data(rd->d.object, "nick", RECDB_QSTRING);
2158         if (!nick) {
2159             if (default_nick)
2160                 nick = iter_key(it);
2161             else
2162                 continue;
2163         }
2164         svc = service_find(nick);
2165         desc = database_get_data(rd->d.object, "description", RECDB_QSTRING);
2166         hostname = database_get_data(rd->d.object, "hostname", RECDB_QSTRING);
2167         modes = database_get_data(rd->d.object, "modes", RECDB_QSTRING);
2168         if (desc) {
2169             if (!svc)
2170                 svc = service_register(AddLocalUser(nick, nick, hostname, desc, modes));
2171             else if (hostname)
2172                 strcpy(svc->bot->hostname, hostname);
2173             desc = database_get_data(rd->d.object, "trigger", RECDB_QSTRING);
2174             if (desc) {
2175                 svc->trigger = desc[0];
2176                 desc = database_get_data(rd->d.object, "offchannel", RECDB_QSTRING);
2177                 if(desc)
2178                     offchannel_allowed[(unsigned char)svc->trigger] = atoi(desc);
2179             }
2180             desc = database_get_data(rd->d.object, "privileged", RECDB_QSTRING);
2181             if (desc && (true_string(desc) || enabled_string(desc)))
2182                 svc->privileged = 1;
2183         }
2184     }
2185 }
2186
2187 static void
2188 modcmd_conf_read(void) {
2189     modcmd_load_bots(conf_get_data("services", RECDB_OBJECT), 0);
2190 }
2191
2192 void
2193 modcmd_init(void) {
2194     qsort(modcmd_flags, ArrayLength(modcmd_flags)-1, sizeof(modcmd_flags[0]), flags_qsort);
2195     modules = dict_new();
2196     dict_set_free_data(modules, free_module);
2197     services = dict_new();
2198     dict_set_free_data(services, free_service);
2199     reg_nick_change_func(modcmd_nick_change);
2200     reg_exit_func(modcmd_cleanup);
2201     conf_register_reload(modcmd_conf_read);
2202
2203     modcmd_module = module_register("modcmd", MAIN_LOG, "modcmd.help", modcmd_expand);
2204     bind_command = modcmd_register(modcmd_module, "bind", cmd_bind, 4, MODCMD_KEEP_BOUND, "oper_level", "800", NULL);
2205     help_command = modcmd_register(modcmd_module, "help", cmd_help, 1, 0, "flags", "+nolog", NULL);
2206     modcmd_register(modcmd_module, "command", cmd_command, 2, 0, "flags", "+nolog", NULL);
2207     modcmd_register(modcmd_module, "modcmd", cmd_modcmd, 2, MODCMD_KEEP_BOUND, "template", "bind", NULL);
2208     modcmd_register(modcmd_module, "god", cmd_god, 0, MODCMD_REQUIRE_AUTHED, "flags", "+oper,+networkhelper", NULL);
2209     modcmd_register(modcmd_module, "readhelp", cmd_readhelp, 2, 0, "oper_level", "650", NULL);
2210     modcmd_register(modcmd_module, "timecmd", cmd_timecmd, 2, 0, "oper_level", "1", NULL);
2211     modcmd_register(modcmd_module, "unbind", cmd_unbind, 3, 0, "template", "bind", NULL);
2212     modcmd_register(modcmd_module, "joiner", cmd_joiner, 1, 0, NULL);
2213     modcmd_register(modcmd_module, "stats modules", cmd_stats_modules, 1, 0, "flags", "+oper", NULL);
2214     modcmd_register(modcmd_module, "stats services", cmd_stats_services, 1, 0, "flags", "+oper", NULL);
2215     modcmd_register(modcmd_module, "showcommands", cmd_showcommands, 1, 0, "flags", "+acceptchan", NULL);
2216     modcmd_register(modcmd_module, "helpfiles", cmd_helpfiles, 2, 0, "template", "bind", NULL);
2217     modcmd_register(modcmd_module, "service add", cmd_service_add, 4, 0, "flags", "+oper", NULL);
2218     modcmd_register(modcmd_module, "service rename", cmd_service_rename, 3, 0, "flags", "+oper", NULL);
2219     modcmd_register(modcmd_module, "service trigger", cmd_service_trigger, 2, 0, "flags", "+oper", NULL);
2220     modcmd_register(modcmd_module, "service offchannel", cmd_service_offchannel, 2, 0, "flags", "+oper", NULL);
2221     modcmd_register(modcmd_module, "service privileged", cmd_service_privileged, 2, 0, "flags", "+oper", NULL);
2222     modcmd_register(modcmd_module, "service remove", cmd_service_remove, 2, 0, "flags", "+oper", NULL);
2223     modcmd_register(modcmd_module, "dumpmessages", cmd_dump_messages, 1, 0, "oper_level", "1000", NULL);
2224     modcmd_register(modcmd_module, "tell", cmd_tell, 3, 0, "flags", "+oper", NULL);
2225     version_command = modcmd_register(modcmd_module, "version", cmd_version, 1, 0, NULL);
2226     message_register_table(msgtab);
2227 }
2228
2229 static void
2230 modcmd_db_load_command(struct service *service, const char *cmdname, struct dict *obj) {
2231     struct svccmd *svccmd;
2232     struct module *module;
2233     struct modcmd *modcmd;
2234     struct string_list *slist;
2235     const char *str, *sep;
2236     char buf[MAXLEN];
2237
2238     str = database_get_data(obj, "command", RECDB_QSTRING);
2239     if (!str) {
2240         log_module(MAIN_LOG, LOG_ERROR, "Missing command for service %s command %s in modcmd.db", service->bot->nick, cmdname);
2241         return;
2242     }
2243     sep = strchr(str, '.');
2244     if (!sep) {
2245         log_module(MAIN_LOG, LOG_ERROR, "Invalid command %s for service %s command %s in modcmd.db", str, service->bot->nick, cmdname);
2246         return;
2247     }
2248     memcpy(buf, str, sep-str);
2249     buf[sep-str] = 0;
2250     if (!(module = module_find(buf))) {
2251         log_module(MAIN_LOG, LOG_ERROR, "Unknown module %s for service %s command %s in modcmd.db", buf, service->bot->nick, cmdname);
2252         return;
2253     }
2254     if (!(modcmd = dict_find(module->commands, sep+1, NULL))) {
2255         log_module(MAIN_LOG, LOG_ERROR, "Unknown command %s in module %s for service %s command %s", sep+1, module->name, service->bot->nick, cmdname);
2256         return;
2257     }
2258     /* Now that we know we have a command to use, fill in the basics. */
2259     svccmd = calloc(1, sizeof(*svccmd));
2260     svccmd_insert(service, strdup(cmdname), svccmd, modcmd);
2261     if ((str = database_get_data(obj, "template", RECDB_QSTRING))) {
2262         add_pending_template(svccmd, str);
2263     } else {
2264         svccmd_copy_rules(svccmd, modcmd->defaults);
2265     }
2266     if ((str = database_get_data(obj, "account_flags", RECDB_QSTRING))) {
2267         svccmd->req_account_flags = svccmd->deny_account_flags = 0;
2268         svccmd_configure(svccmd, NULL, service->bot, "account_flags", str);
2269     }
2270     if ((str = database_get_data(obj, "flags", RECDB_QSTRING))) {
2271         svccmd->flags = 0;
2272         svccmd_configure(svccmd, NULL, service->bot, "flags", str);
2273     }
2274     if ((str = database_get_data(obj, "oper_access", RECDB_QSTRING))
2275         || (str = database_get_data(obj, "opserv_level", RECDB_QSTRING))) {
2276         svccmd_configure(svccmd, NULL, service->bot, "oper_access", str);
2277     }
2278     if ((str = database_get_data(obj, "staff_access", RECDB_QSTRING))
2279         || (str = database_get_data(obj, "staff_level", RECDB_QSTRING))) {
2280         svccmd_configure(svccmd, NULL, service->bot, "staff_access", str);
2281     }
2282     if ((str = database_get_data(obj, "channel_access", RECDB_QSTRING))
2283         || (str = database_get_data(obj, "chanserv_level", RECDB_QSTRING))) {
2284         svccmd_configure(svccmd, NULL, service->bot, "channel_access", str);
2285     }
2286     if ((slist = database_get_data(obj, "aliased", RECDB_STRING_LIST))) {
2287         unsigned int nn;
2288         svccmd->alias.used = svccmd->alias.size = slist->used;
2289         svccmd->alias.list = calloc(svccmd->alias.size, sizeof(svccmd->alias.list[0]));
2290         for (nn=0; nn<slist->used; ++nn)
2291             svccmd->alias.list[nn] = strdup(slist->list[nn]);
2292     }
2293     modcmd_set_effective_flags(svccmd);
2294 }
2295
2296 static struct svccmd *
2297 service_make_alias(struct service *service, const char *alias, ...) {
2298     char *arg, *argv[MAXNUMPARAMS];
2299     unsigned int nn, argc;
2300     struct svccmd *svccmd, *template;
2301     va_list args;
2302
2303     va_start(args, alias);
2304     argc = 0;
2305     while (1) {
2306         arg = va_arg(args, char*);
2307         if (!arg)
2308             break;
2309         argv[argc++] = arg;
2310     }
2311     va_end(args);
2312     svccmd = calloc(1, sizeof(*svccmd));
2313     if (!(template = svccmd_resolve_name(svccmd, argv[0]))) {
2314         log_module(MAIN_LOG, LOG_ERROR, "Invalid base command %s for alias %s in service %s", argv[0], alias, service->bot->nick);
2315         free(svccmd->name);
2316         free(svccmd);
2317         return NULL;
2318     }
2319     if (argc > 1) {
2320         svccmd->alias.used = svccmd->alias.size = argc;
2321         svccmd->alias.list = calloc(svccmd->alias.size, sizeof(svccmd->alias.list[0]));
2322         for (nn=0; nn<argc; nn++)
2323             svccmd->alias.list[nn] = strdup(argv[nn]);
2324     }
2325     svccmd_insert(service, strdup(alias), svccmd, template->command);
2326     svccmd_copy_rules(svccmd, template);
2327     return svccmd;
2328 }
2329
2330 static int saxdb_present;
2331
2332 static int
2333 modcmd_saxdb_read(struct dict *db) {
2334     struct dict *db2;
2335     dict_iterator_t it, it2;
2336     struct record_data *rd, *rd2;
2337     struct service *service;
2338
2339     modcmd_load_bots(database_get_data(db, "bots", RECDB_OBJECT), 1);
2340     db2 = database_get_data(db, "services", RECDB_OBJECT);
2341     if (!db2) {
2342         log_module(MAIN_LOG, LOG_ERROR, "Missing section 'services' in modcmd db.");
2343         return 1;
2344     }
2345     for (it = dict_first(db2); it; it = iter_next(it)) {
2346         rd = iter_data(it);
2347         if (rd->type != RECDB_OBJECT) {
2348             log_module(MAIN_LOG, LOG_ERROR, "Bad type for 'services/%s' in modcmd db (expected object).", iter_key(it));
2349             continue;
2350         }
2351         if (!(service = service_find(iter_key(it)))) {
2352             log_module(MAIN_LOG, LOG_ERROR, "Unknown service '%s' listed in modcmd db.", iter_key(it));
2353             continue;
2354         }
2355         for (it2 = dict_first(rd->d.object); it2; it2 = iter_next(it2)) {
2356             rd2 = iter_data(it2);
2357             if (rd2->type != RECDB_OBJECT) {
2358                 log_module(MAIN_LOG, LOG_ERROR, "Bad type for 'services/%s/%s' in modcmd db (expected object).", iter_key(it), iter_key(it2));
2359                 continue;
2360             }
2361             modcmd_db_load_command(service, iter_key(it2), rd2->d.object);
2362         }
2363     }
2364     db2 = database_get_data(db, "helpfiles", RECDB_OBJECT);
2365     for (it = dict_first(db2); it; it = iter_next(it)) {
2366         struct module *module;
2367         struct string_list *slist;
2368         unsigned int ii;
2369
2370         rd = iter_data(it);
2371         if (rd->type != RECDB_STRING_LIST) {
2372             log_module(MAIN_LOG, LOG_ERROR, "Bad type for 'helpfiles/%s' in modcmd db (expected string list).", iter_key(it));
2373             continue;
2374         }
2375         slist = rd->d.slist;
2376         if (!(service = service_find(iter_key(it)))) {
2377             /* We probably whined about the service being missing above. */
2378             continue;
2379         }
2380         service->modules.used = 0;
2381         for (ii=0; ii<slist->used; ++ii) {
2382             if (!(module = dict_find(modules, slist->list[ii], NULL))) {
2383                 log_module(MAIN_LOG, LOG_ERROR, "Unknown module '%s' listed in modcmd 'helpfiles/%s'.", slist->list[ii], iter_key(it));
2384                 continue;
2385             }
2386             module_list_append(&service->modules, module);
2387         }
2388     }
2389     saxdb_present = 1;
2390     return 0;
2391 }
2392
2393 static void
2394 create_default_binds(void) {
2395     /* Which services should import which modules by default? */
2396     struct {
2397         const char *svcname;
2398         /* C is lame and requires a fixed size for this array.
2399          * Be sure you NULL-terminate each array and increment the
2400          * size here if you add more default modules to any
2401          * service. */
2402         const char *modnames[8];
2403     } def_binds[] = {
2404         { "ChanServ", { "ChanServ", NULL } },
2405         { "Global", { "Global", NULL } },
2406         { "NickServ", { "NickServ", NULL } },
2407         { "OpServ", { "OpServ", "modcmd", "sendmail", "saxdb", "proxycheck", NULL } },
2408         { NULL, { NULL } }
2409     };
2410     unsigned int ii, jj;
2411     char buf[128], *nick;
2412     struct service *service;
2413     struct module *module;
2414
2415     for (ii = 0; def_binds[ii].svcname; ++ii) {
2416         sprintf(buf, "services/%s/nick", def_binds[ii].svcname);
2417         if (!(nick = conf_get_data(buf, RECDB_QSTRING)))
2418             continue;
2419         if (!(service = service_find(nick)))
2420             continue;
2421         if (dict_size(service->commands) > 0)
2422             continue;
2423
2424         /* Bind the default modules for this service to it */
2425         for (jj = 0; def_binds[ii].modnames[jj]; ++jj) {
2426             if (!(module = module_find(def_binds[ii].modnames[jj])))
2427                 continue;
2428             service_bind_module(service, module);
2429         }
2430
2431         /* Bind the help and version commands to this service */
2432         service_bind_modcmd(service, help_command, help_command->name);
2433         service_bind_modcmd(service, version_command, version_command->name);
2434
2435         /* Now some silly hax.. (aliases that most people want) */
2436         if (!irccasecmp(def_binds[ii].svcname, "ChanServ")) {
2437             service_make_alias(service, "addowner", "*chanserv.adduser", "$1", "owner", NULL);
2438             service_make_alias(service, "addcoowner", "*chanserv.adduser", "$1", "coowner", NULL);
2439             service_make_alias(service, "addmaster", "*chanserv.adduser", "$1", "master", NULL);
2440             service_make_alias(service, "addop", "*chanserv.adduser", "$1", "op", NULL);
2441             service_make_alias(service, "addpeon", "*chanserv.adduser", "$1", "peon", NULL);
2442             service_make_alias(service, "delowner", "*chanserv.deluser", "owner", "$1", NULL);
2443             service_make_alias(service, "delcoowner", "*chanserv.deluser", "coowner", "$1", NULL);
2444             service_make_alias(service, "delmaster", "*chanserv.deluser", "master", "$1", NULL);
2445             service_make_alias(service, "delop", "*chanserv.deluser", "op", "$1", NULL);
2446             service_make_alias(service, "delpeon", "*chanserv.deluser", "peon", "$1", NULL);
2447             service_make_alias(service, "command", "*modcmd.command", NULL);
2448             service_make_alias(service, "god", "*modcmd.god", NULL);
2449         } else if (!irccasecmp(def_binds[ii].svcname, "OpServ")) {
2450             struct svccmd *svccmd;
2451             svccmd = service_make_alias(service, "stats", "*modcmd.joiner", NULL);
2452             svccmd->min_opserv_level = 101;
2453             svccmd = service_make_alias(service, "devnull", "*modcmd.joiner", NULL);
2454             svccmd->min_opserv_level = 200;
2455             svccmd = service_make_alias(service, "service", "*modcmd.joiner", NULL);
2456             svccmd->min_opserv_level = 900;
2457         }
2458     }
2459 }
2460
2461 static void
2462 import_aliases_db() {
2463     struct dict *db;
2464     dict_iterator_t it, it2;
2465     struct record_data *rd, *rd2;
2466     struct service *service;
2467     struct module *module;
2468
2469     if (!(db = parse_database("aliases.db")))
2470         return;
2471     for (it = dict_first(db); it; it = iter_next(it)) {
2472         service = service_find(iter_key(it));
2473         if (!service)
2474             continue;
2475         module = module_find(service->bot->nick);
2476         rd = iter_data(it);
2477         if (rd->type != RECDB_OBJECT)
2478             continue;
2479         for (it2 = dict_first(rd->d.object); it2; it2 = iter_next(it2)) {
2480             struct modcmd *command;
2481             rd2 = iter_data(it2);
2482             if (rd2->type != RECDB_QSTRING)
2483                 continue;
2484             command = dict_find(module->commands, rd2->d.qstring, NULL);
2485             if (!command)
2486                 continue;
2487             service_bind_modcmd(service, command, iter_key(it2));
2488         }
2489     }
2490 }
2491
2492 void
2493 modcmd_finalize(void) {
2494     dict_iterator_t it;
2495
2496     /* Check databases. */
2497     saxdb_register("modcmd", modcmd_saxdb_read, modcmd_saxdb_write);
2498     create_default_binds();
2499     if (!saxdb_present)
2500         import_aliases_db();
2501
2502     /* Register services for their triggers. */
2503     for (it = dict_first(services); it; it = iter_next(it)) {
2504         struct service *svc = iter_data(it);
2505         if (svc->trigger)
2506             reg_chanmsg_func(svc->trigger, svc->bot, modcmd_chanmsg);
2507     }
2508
2509     /* Resolve command rule-templates. */
2510     while (pending_templates) {
2511         struct pending_template *ptempl = pending_templates;
2512         struct svccmd *svccmd;
2513
2514         pending_templates = ptempl->next;
2515         /* Only overwrite the current template if we have a valid template. */
2516         if (!strcmp(ptempl->base, "*")) {
2517             /* Do nothing. */
2518         } else if ((svccmd = svccmd_resolve_name(ptempl->cmd, ptempl->base))) {
2519             svccmd_copy_rules(ptempl->cmd, svccmd);
2520         } else {
2521             assert(ptempl->cmd->parent);
2522             log_module(MAIN_LOG, LOG_ERROR, "Unable to resolve template name %s for command %s in service %s.", ptempl->base, ptempl->cmd->name, ptempl->cmd->parent->bot->nick);
2523         }
2524         free(ptempl->base);
2525         free(ptempl);
2526     }
2527 }