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