src/modcmd.c

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