src/modcmd.c

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