ircd/send.c

   1 /*
   2  * IRC - Internet Relay Chat, common/send.c
   3  * Copyright (C) 1990 Jarkko Oikarinen and
   4  *                    University of Oulu, Computing Center
   5  *
   6  * This program 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 1, or (at your option)
   9  * 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 this program; if not, write to the Free Software
  18  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19  */
  20 /** @file
  21  * @brief Send messages to certain targets.
  22  * @version $Id$
  23  */
  24 #include "config.h"
  25
  26 #include "send.h"
  27 #include "channel.h"
  28 #include "class.h"
  29 #include "client.h"
  30 #include "ircd.h"
  31 #include "ircd_features.h"
  32 #include "ircd_log.h"
  33 #include "ircd_snprintf.h"
  34 #include "ircd_string.h"
  35 #include "list.h"
  36 #include "match.h"
  37 #include "msg.h"
  38 #include "numnicks.h"
  39 #include "parse.h"
  40 #include "s_bsd.h"
  41 #include "s_debug.h"
  42 #include "s_misc.h"
  43 #include "s_user.h"
  44 #include "struct.h"
  45 #include "sys.h"
  46
  47 /* #include <assert.h> -- Now using assert in ircd_log.h */
  48 #include <stdio.h>
  49 #include <string.h>
  50
  51 /** Last used marker value. */
  52 static int sentalong_marker;
  53 /** Array of users with the corresponding server notice mask bit set. */
  54 struct SLink *opsarray[32];     /* don't use highest bit unless you change
  55                                    atoi to strtoul in sendto_op_mask() */
  56 /** Linked list of all connections with data queued to send. */
  57 static struct Connection *send_queues;
  58
  59 /*
  60  * dead_link
  61  *
  62  * An error has been detected. The link *must* be closed,
  63  * but *cannot* call ExitClient (m_bye) from here.
  64  * Instead, mark it with FLAG_DEADSOCKET. This should
  65  * generate ExitClient from the main loop.
  66  *
  67  * If 'notice' is not NULL, it is assumed to be a format
  68  * for a message to local opers. It can contain only one
  69  * '%s', which will be replaced by the sockhost field of
  70  * the failing link.
  71  *
  72  * Also, the notice is skipped for "uninteresting" cases,
  73  * like Persons and yet unknown connections...
  74  */
  75 /** Mark a client as dead, even if they are not the current message source.
  76  * This is done by setting the DEADSOCKET flag on the user and letting the
  77  * main loop perform the actual exit logic.
  78  * @param[in,out] to Client being killed.
  79  * @param[in] notice Message for local opers.
  80  */
  81 static void dead_link(struct Client *to, char *notice)
  82 {
  83   SetFlag(to, FLAG_DEADSOCKET);
  84   /*
  85    * If because of BUFFERPOOL problem then clean dbuf's now so that
  86    * notices don't hurt operators below.
  87    */
  88   DBufClear(&(cli_recvQ(to)));
  89   MsgQClear(&(cli_sendQ(to)));
  90   client_drop_sendq(cli_connect(to));
  91
  92   /*
  93    * Keep a copy of the last comment, for later use...
  94    */
  95   ircd_strncpy(cli_info(to), notice, REALLEN);
  96
  97   if (!IsUser(to) && !IsUnknown(to) && !HasFlag(to, FLAG_CLOSING))
  98     sendto_opmask_butone(0, SNO_OLDSNO, "%s for %s", cli_info(to), cli_name(to));
  99   Debug((DEBUG_ERROR, cli_info(to)));
 100 }
 101
 102 /** Test whether we can send to a client.
 103  * @param[in] to Client we want to send to.
 104  * @return Non-zero if we can send to the client.
 105  */
 106 static int can_send(struct Client* to)
 107 {
 108   assert(0 != to);
 109   return (IsDead(to) || IsMe(to) || -1 == cli_fd(to)) ? 0 : 1;
 110 }
 111
 112 /** Close the connection with the highest sendq.
 113  * This should be called when we need to free buffer memory.
 114  * @param[in] servers_too If non-zero, consider killing servers, too.
 115  */
 116 void
 117 kill_highest_sendq(int servers_too)
 118 {
 119   int i;
 120   unsigned int highest_sendq = 0;
 121   struct Client *highest_client = 0;
 122
 123   for (i = HighestFd; i >= 0; i--)
 124   {
 125     if (!LocalClientArray[i] || (!servers_too && cli_serv(LocalClientArray[i])))
 126       continue; /* skip servers */
 127
 128     /* If this sendq is higher than one we last saw, remember it */
 129     if (MsgQLength(&(cli_sendQ(LocalClientArray[i]))) > highest_sendq)
 130     {
 131       highest_client = LocalClientArray[i];
 132       highest_sendq = MsgQLength(&(cli_sendQ(highest_client)));
 133     }
 134   }
 135
 136   if (highest_client)
 137     dead_link(highest_client, "Buffer allocation error");
 138 }
 139
 140 /*
 141  * flush_connections
 142  *
 143  * Used to empty all output buffers for all connections. Should only
 144  * be called once per scan of connections. There should be a select in
 145  * here perhaps but that means either forcing a timeout or doing a poll.
 146  * When flushing, all we do is empty the obuffer array for each local
 147  * client and try to send it. if we cant send it, it goes into the sendQ
 148  * -avalon
 149  */
 150 /** Flush data queued for one or all connections.
 151  * @param[in] cptr Client to flush (if NULL, do all).
 152  */
 153 void flush_connections(struct Client* cptr)
 154 {
 155   if (cptr) {
 156     send_queued(cptr);
 157   }
 158   else {
 159     struct Connection* con;
 160     for (con = send_queues; con; con = con_next(con)) {
 161       assert(0 < MsgQLength(&(con_sendQ(con))));
 162       send_queued(con_client(con));
 163     }
 164   }
 165 }
 166
 167 /*
 168  * send_queued
 169  *
 170  * This function is called from the main select-loop (or whatever)
 171  * when there is a chance that some output would be possible. This
 172  * attempts to empty the send queue as far as possible...
 173  */
 174 /** Attempt to send data queued for a client.
 175  * @param[in] to Client to send data to.
 176  */
 177 void send_queued(struct Client *to)
 178 {
 179   assert(0 != to);
 180   assert(0 != cli_local(to));
 181
 182   if (IsBlocked(to) || !can_send(to))
 183     return;                     /* Don't bother */
 184
 185   while (MsgQLength(&(cli_sendQ(to))) > 0) {
 186     unsigned int len;
 187
 188     if ((len = deliver_it(to, &(cli_sendQ(to))))) {
 189       msgq_delete(&(cli_sendQ(to)), len);
 190       cli_lastsq(to) = MsgQLength(&(cli_sendQ(to))) / 1024;
 191       if (IsBlocked(to)) {
 192         update_write(to);
 193         return;
 194       }
 195     }
 196     else {
 197       if (IsDead(to)) {
 198         char tmp[512];
 199         sprintf(tmp,"Write error: %s",(strerror(cli_error(to))) ? (strerror(cli_error(to))) : "Unknown error" );
 200         dead_link(to, tmp);
 201       }
 202       return;
 203     }
 204   }
 205
 206   /* Ok, sendq is now empty... */
 207   client_drop_sendq(cli_connect(to));
 208   update_write(to);
 209 }
 210
 211 /** Try to send a buffer to a client, queueing it if needed.
 212  * @param[in,out] to Client to send message to.
 213  * @param[in] buf Message to send.
 214  * @param[in] prio If non-zero, send as high priority.
 215  */
 216 void send_buffer(struct Client* to, struct MsgBuf* buf, int prio)
 217 {
 218   assert(0 != to);
 219   assert(0 != buf);
 220
 221   if (cli_from(to))
 222     to = cli_from(to);
 223
 224   if (!can_send(to))
 225     /*
 226      * This socket has already been marked as dead
 227      */
 228     return;
 229
 230   if (MsgQLength(&(cli_sendQ(to))) > get_sendq(to)) {
 231     if (IsServer(to))
 232       sendto_opmask_butone(0, SNO_OLDSNO, "Max SendQ limit exceeded for %C: "
 233                            "%zu > %zu", to, MsgQLength(&(cli_sendQ(to))),
 234                            get_sendq(to));
 235     dead_link(to, "Max sendQ exceeded");
 236     return;
 237   }
 238
 239   Debug((DEBUG_SEND, "Sending [%p] to %s", buf, cli_name(to)));
 240
 241   msgq_add(&(cli_sendQ(to)), buf, prio);
 242   client_add_sendq(cli_connect(to), &send_queues);
 243   update_write(to);
 244
 245   /*
 246    * Update statistics. The following is slightly incorrect
 247    * because it counts messages even if queued, but bytes
 248    * only really sent. Queued bytes get updated in SendQueued.
 249    */
 250   ++(cli_sendM(to));
 251   ++(cli_sendM(&me));
 252   /*
 253    * This little bit is to stop the sendQ from growing too large when
 254    * there is no need for it to. Thus we call send_queued() every time
 255    * 2k has been added to the queue since the last non-fatal write.
 256    * Also stops us from deliberately building a large sendQ and then
 257    * trying to flood that link with data (possible during the net
 258    * relinking done by servers with a large load).
 259    */
 260   if (MsgQLength(&(cli_sendQ(to))) / 1024 > cli_lastsq(to))
 261     send_queued(to);
 262 }
 263
 264 /*
 265  * Send a msg to all ppl on servers/hosts that match a specified mask
 266  * (used for enhanced PRIVMSGs)
 267  *
 268  *  addition -- Armin, 8jun90 (gruner@informatik.tu-muenchen.de)
 269  */
 270
 271 /** Check whether a client matches a target mask.
 272  * @param[in] from Client trying to send a message (ignored).
 273  * @param[in] one Client being considered as a target.
 274  * @param[in] mask Mask for matching against.
 275  * @param[in] what Type of match (either MATCH_HOST or MATCH_SERVER).
 276  * @return Non-zero if \a one matches, zero if not.
 277  */
 278 static int match_it(struct Client *from, struct Client *one, const char *mask, int what)
 279 {
 280   switch (what)
 281   {
 282     case MATCH_HOST:
 283       return (match(mask, cli_user(one)->host) == 0 ||
 284         (HasHiddenHost(one) && match(mask, cli_user(one)->realhost) == 0));
 285     case MATCH_SERVER:
 286     default:
 287       return (match(mask, cli_name(cli_user(one)->server)) == 0);
 288   }
 289 }
 290
 291 /** Send an unprefixed line to a client.
 292  * @param[in] to Client receiving message.
 293  * @param[in] pattern Format string of message.
 294  */
 295 void sendrawto_one(struct Client *to, const char *pattern, ...)
 296 {
 297   struct MsgBuf *mb;
 298   va_list vl;
 299
 300   va_start(vl, pattern);
 301   mb = msgq_vmake(to, pattern, vl);
 302   va_end(vl);
 303
 304   send_buffer(to, mb, 0);
 305
 306   msgq_clean(mb);
 307 }
 308
 309 /** Send a (prefixed) command to a single client.
 310  * @param[in] from Client sending the command.
 311  * @param[in] cmd Long name of command (used if \a to is a user).
 312  * @param[in] tok Short name of command (used if \a to is a server).
 313  * @param[in] to Destination of command.
 314  * @param[in] pattern Format string for command arguments.
 315  */
 316 void sendcmdto_one(struct Client *from, const char *cmd, const char *tok,
 317                    struct Client *to, const char *pattern, ...)
 318 {
 319   struct VarData vd;
 320   struct MsgBuf *mb;
 321
 322   to = cli_from(to);
 323
 324   vd.vd_format = pattern; /* set up the struct VarData for %v */
 325   va_start(vd.vd_args, pattern);
 326
 327   mb = msgq_make(to, "%:#C %s %v", from, IsServer(to) || IsMe(to) ? tok : cmd,
 328                  &vd);
 329
 330   va_end(vd.vd_args);
 331
 332   send_buffer(to, mb, 0);
 333
 334   msgq_clean(mb);
 335 }
 336
 337 /**
 338  * Send a (prefixed) command to a single client in the priority queue.
 339  * @param[in] from Client sending the command.
 340  * @param[in] cmd Long name of command (used if \a to is a user).
 341  * @param[in] tok Short name of command (used if \a to is a server).
 342  * @param[in] to Destination of command.
 343  * @param[in] pattern Format string for command arguments.
 344  */
 345 void sendcmdto_prio_one(struct Client *from, const char *cmd, const char *tok,
 346                         struct Client *to, const char *pattern, ...)
 347 {
 348   struct VarData vd;
 349   struct MsgBuf *mb;
 350
 351   to = cli_from(to);
 352
 353   vd.vd_format = pattern; /* set up the struct VarData for %v */
 354   va_start(vd.vd_args, pattern);
 355
 356   mb = msgq_make(to, "%:#C %s %v", from, IsServer(to) || IsMe(to) ? tok : cmd,
 357                  &vd);
 358
 359   va_end(vd.vd_args);
 360
 361   send_buffer(to, mb, 1);
 362
 363   msgq_clean(mb);
 364 }
 365
 366 /**
 367  * Send a (prefixed) command to all servers matching or not matching a
 368  * flag but one.
 369  * @param[in] from Client sending the command.
 370  * @param[in] cmd Long name of command (ignored).
 371  * @param[in] tok Short name of command.
 372  * @param[in] one Client direction to skip (or NULL).
 373  * @param[in] require Only send to servers with this Flag bit set.
 374  * @param[in] forbid Do not send to servers with this Flag bit set.
 375  * @param[in] pattern Format string for command arguments.
 376  */
 377 void sendcmdto_flag_serv_butone(struct Client *from, const char *cmd,
 378                                 const char *tok, struct Client *one,
 379                                 int require, int forbid,
 380                                 const char *pattern, ...)
 381 {
 382   struct VarData vd;
 383   struct MsgBuf *mb;
 384   struct DLink *lp;
 385
 386   vd.vd_format = pattern; /* set up the struct VarData for %v */
 387   va_start(vd.vd_args, pattern);
 388
 389   /* use token */
 390   mb = msgq_make(&me, "%C %s %v", from, tok, &vd);
 391   va_end(vd.vd_args);
 392
 393   /* send it to our downlinks */
 394   for (lp = cli_serv(&me)->down; lp; lp = lp->next) {
 395     if (one && lp->value.cptr == cli_from(one))
 396       continue;
 397     if ((require < FLAG_LAST_FLAG) && !HasFlag(lp->value.cptr, require))
 398       continue;
 399     if ((forbid < FLAG_LAST_FLAG) && HasFlag(lp->value.cptr, forbid))
 400       continue;
 401     send_buffer(lp->value.cptr, mb, 0);
 402   }
 403
 404   msgq_clean(mb);
 405 }
 406
 407 /**
 408  * Send a (prefixed) command to all servers but one.
 409  * @param[in] from Client sending the command.
 410  * @param[in] cmd Long name of command (ignored).
 411  * @param[in] tok Short name of command.
 412  * @param[in] one Client direction to skip (or NULL).
 413  * @param[in] pattern Format string for command arguments.
 414  */
 415 void sendcmdto_serv_butone(struct Client *from, const char *cmd,
 416                            const char *tok, struct Client *one,
 417                            const char *pattern, ...)
 418 {
 419   struct VarData vd;
 420   struct MsgBuf *mb;
 421   struct DLink *lp;
 422
 423   vd.vd_format = pattern; /* set up the struct VarData for %v */
 424   va_start(vd.vd_args, pattern);
 425
 426   /* use token */
 427   mb = msgq_make(&me, "%C %s %v", from, tok, &vd);
 428   va_end(vd.vd_args);
 429
 430   /* send it to our downlinks */
 431   for (lp = cli_serv(&me)->down; lp; lp = lp->next) {
 432     if (one && lp->value.cptr == cli_from(one))
 433       continue;
 434     send_buffer(lp->value.cptr, mb, 0);
 435   }
 436
 437   msgq_clean(mb);
 438 }
 439
 440 /** Safely increment the sentalong marker.
 441  * This increments the sentalong marker.  Since new connections will
 442  * have con_sentalong() == 0, and to avoid confusion when the counter
 443  * wraps, we reset all sentalong markers to zero when the sentalong
 444  * marker hits zero.
 445  * @param[in,out] one Client to mark with new sentalong marker (if any).
 446  */
 447 static void
 448 bump_sentalong(struct Client *one)
 449 {
 450   if (!++sentalong_marker)
 451   {
 452     int ii;
 453     for (ii = 0; ii < HighestFd; ++ii)
 454       if (LocalClientArray[ii])
 455         cli_sentalong(LocalClientArray[ii]) = 0;
 456     ++sentalong_marker;
 457   }
 458   if (one)
 459     cli_sentalong(one) = sentalong_marker;
 460 }
 461
 462 /** Send a (prefixed) command to all channels that \a from is on.
 463  * @param[in] from Client originating the command.
 464  * @param[in] cmd Long name of command.
 465  * @param[in] tok Short name of command.
 466  * @param[in] one Client direction to skip (or NULL).
 467  * @param[in] pattern Format string for command arguments.
 468  */
 469 void sendcmdto_common_channels_butone(struct Client *from, const char *cmd,
 470                                       const char *tok, struct Client *one,
 471                                       const char *pattern, ...)
 472 {
 473   struct VarData vd;
 474   struct MsgBuf *mb;
 475   struct Membership *chan;
 476   struct Membership *member;
 477
 478   assert(0 != from);
 479   assert(0 != cli_from(from));
 480   assert(0 != pattern);
 481   assert(!IsServer(from) && !IsMe(from));
 482
 483   vd.vd_format = pattern; /* set up the struct VarData for %v */
 484
 485   va_start(vd.vd_args, pattern);
 486
 487   /* build the buffer */
 488   mb = msgq_make(0, "%:#C %s %v", from, cmd, &vd);
 489   va_end(vd.vd_args);
 490
 491   bump_sentalong(from);
 492   /*
 493    * loop through from's channels, and the members on their channels
 494    */
 495   for (chan = cli_user(from)->channel; chan; chan = chan->next_channel) {
 496     if (IsZombie(chan) || IsDelayedJoin(chan))
 497       continue;
 498     for (member = chan->channel->members; member;
 499          member = member->next_member)
 500       if (MyConnect(member->user)
 501           && -1 < cli_fd(cli_from(member->user))
 502           && member->user != one
 503           && cli_sentalong(member->user) != sentalong_marker) {
 504         cli_sentalong(member->user) = sentalong_marker;
 505         send_buffer(member->user, mb, 0);
 506       }
 507   }
 508
 509   if (MyConnect(from) && from != one)
 510     send_buffer(from, mb, 0);
 511
 512   msgq_clean(mb);
 513 }
 514
 515 /** Send a (prefixed) command to all local users on a channel.
 516  * @param[in] from Client originating the command.
 517  * @param[in] cmd Long name of command.
 518  * @param[in] tok Short name of command (ignored).
 519  * @param[in] to Destination channel.
 520  * @param[in] one Client direction to skip (or NULL).
 521  * @param[in] skip Bitmask of SKIP_DEAF, SKIP_NONOPS, SKIP_NONVOICES indicating which clients to skip.
 522  * @param[in] pattern Format string for command arguments.
 523  */
 524 void sendcmdto_channel_butserv_butone(struct Client *from, const char *cmd,
 525                                       const char *tok, struct Channel *to,
 526                                       struct Client *one, unsigned int skip,
 527                                       const char *pattern, ...)
 528 {
 529   struct VarData vd;
 530   struct MsgBuf *mb;
 531   struct Membership *member;
 532
 533   vd.vd_format = pattern; /* set up the struct VarData for %v */
 534   va_start(vd.vd_args, pattern);
 535
 536   /* build the buffer */
 537   mb = msgq_make(0, "%:#C %s %v", from, cmd, &vd);
 538   va_end(vd.vd_args);
 539
 540   /* send the buffer to each local channel member */
 541   for (member = to->members; member; member = member->next_member) {
 542     if (!MyConnect(member->user)
 543         || member->user == one
 544         || IsZombie(member)
 545         || (skip & SKIP_DEAF && IsDeaf(member->user))
 546         || (skip & SKIP_NONOPS && !IsChanOp(member))
 547         || (skip & SKIP_NONVOICES && !IsChanOp(member) && !HasVoice(member)))
 548         continue;
 549       send_buffer(member->user, mb, 0);
 550   }
 551
 552   msgq_clean(mb);
 553 }
 554
 555 /** Send a (prefixed) command to all servers with users on \a to.
 556  * Skip \a from and \a one plus those indicated in \a skip.
 557  * @param[in] from Client originating the command.
 558  * @param[in] cmd Long name of command (ignored).
 559  * @param[in] tok Short name of command.
 560  * @param[in] to Destination channel.
 561  * @param[in] one Client direction to skip (or NULL).
 562  * @param[in] skip Bitmask of SKIP_NONOPS and SKIP_NONVOICES indicating which clients to skip.
 563  * @param[in] pattern Format string for command arguments.
 564  */
 565 void sendcmdto_channel_servers_butone(struct Client *from, const char *cmd,
 566                                       const char *tok, struct Channel *to,
 567                                       struct Client *one, unsigned int skip,
 568                                       const char *pattern, ...)
 569 {
 570   struct VarData vd;
 571   struct MsgBuf *serv_mb;
 572   struct Membership *member;
 573
 574   /* build the buffer */
 575   vd.vd_format = pattern;
 576   va_start(vd.vd_args, pattern);
 577   serv_mb = msgq_make(&me, "%:#C %s %v", from, tok, &vd);
 578   va_end(vd.vd_args);
 579
 580   /* send the buffer to each server */
 581   bump_sentalong(one);
 582   cli_sentalong(from) = sentalong_marker;
 583   for (member = to->members; member; member = member->next_member) {
 584     if (MyConnect(member->user)
 585         || IsZombie(member)
 586         || cli_fd(cli_from(member->user)) < 0
 587         || cli_sentalong(member->user) == sentalong_marker
 588         || (skip & SKIP_NONOPS && !IsChanOp(member))
 589         || (skip & SKIP_NONVOICES && !IsChanOp(member) && !HasVoice(member)))
 590       continue;
 591     cli_sentalong(member->user) = sentalong_marker;
 592     send_buffer(member->user, serv_mb, 0);
 593   }
 594   msgq_clean(serv_mb);
 595 }
 596
 597
 598 /** Send a (prefixed) command to all users on this channel, except for
 599  * \a one and those matching \a skip.
 600  * @warning \a pattern must not contain %v.
 601  * @param[in] from Client originating the command.
 602  * @param[in] cmd Long name of command.
 603  * @param[in] tok Short name of command.
 604  * @param[in] to Destination channel.
 605  * @param[in] one Client direction to skip (or NULL).
 606  * @param[in] skip Bitmask of SKIP_NONOPS, SKIP_NONVOICES, SKIP_DEAF, SKIP_BURST.
 607  * @param[in] pattern Format string for command arguments.
 608  */
 609 void sendcmdto_channel_butone(struct Client *from, const char *cmd,
 610                               const char *tok, struct Channel *to,
 611                               struct Client *one, unsigned int skip,
 612                               const char *pattern, ...)
 613 {
 614   struct Membership *member;
 615   struct VarData vd;
 616   struct MsgBuf *user_mb;
 617   struct MsgBuf *serv_mb;
 618
 619   vd.vd_format = pattern;
 620
 621   /* Build buffer to send to users */
 622   va_start(vd.vd_args, pattern);
 623   user_mb = msgq_make(0, skip & (SKIP_NONOPS | SKIP_NONVOICES) ? "%:#C %s @%v" : "%:#C %s %v",
 624                       from, skip & (SKIP_NONOPS | SKIP_NONVOICES) ? MSG_NOTICE : cmd, &vd);
 625   va_end(vd.vd_args);
 626
 627   /* Build buffer to send to servers */
 628   va_start(vd.vd_args, pattern);
 629   serv_mb = msgq_make(&me, "%C %s %v", from, tok, &vd);
 630   va_end(vd.vd_args);
 631
 632   /* send buffer along! */
 633   bump_sentalong(one);
 634   for (member = to->members; member; member = member->next_member) {
 635     /* skip one, zombies, and deaf users... */
 636     if (IsZombie(member) ||
 637         (skip & SKIP_DEAF && IsDeaf(member->user)) ||
 638         (skip & SKIP_NONOPS && !IsChanOp(member)) ||
 639         (skip & SKIP_NONVOICES && !IsChanOp(member) && !HasVoice(member)) ||
 640         (skip & SKIP_BURST && IsBurstOrBurstAck(cli_from(member->user))) ||
 641         cli_fd(cli_from(member->user)) < 0 ||
 642         cli_sentalong(member->user) == sentalong_marker)
 643       continue;
 644     cli_sentalong(member->user) = sentalong_marker;
 645
 646     if (MyConnect(member->user)) /* pick right buffer to send */
 647       send_buffer(member->user, user_mb, 0);
 648     else
 649       send_buffer(member->user, serv_mb, 0);
 650   }
 651
 652   msgq_clean(user_mb);
 653   msgq_clean(serv_mb);
 654 }
 655
 656 /** Send a (prefixed) WALL of type \a type to all users except \a one.
 657  * @warning \a pattern must not contain %v.
 658  * @param[in] from Source of the command.
 659  * @param[in] type One of WALL_DESYNCH, WALL_WALLOPS or WALL_WALLUSERS.
 660  * @param[in] one Client direction to skip (or NULL).
 661  * @param[in] pattern Format string for command arguments.
 662  */
 663 void sendwallto_group_butone(struct Client *from, int type, struct Client *one,
 664                              const char *pattern, ...)
 665 {
 666   struct VarData vd;
 667   struct Client *cptr;
 668   struct MsgBuf *mb;
 669   struct DLink *lp;
 670   char *prefix=NULL;
 671   char *tok=NULL;
 672   int his_wallops;
 673   int i;
 674
 675   vd.vd_format = pattern;
 676
 677   /* Build buffer to send to users */
 678   va_start(vd.vd_args, pattern);
 679   switch (type) {
 680         case WALL_DESYNCH:
 681                 prefix="";
 682                 tok=TOK_DESYNCH;
 683                 break;
 684         case WALL_WALLOPS:
 685                 prefix="* ";
 686                 tok=TOK_WALLOPS;
 687                 break;
 688         case WALL_WALLUSERS:
 689                 prefix="$ ";
 690                 tok=TOK_WALLUSERS;
 691                 break;
 692         default:
 693                 assert(0);
 694   }
 695   mb = msgq_make(0, "%:#C " MSG_WALLOPS " :%s%v", from, prefix,&vd);
 696   va_end(vd.vd_args);
 697
 698   /* send buffer along! */
 699   his_wallops = feature_bool(FEAT_HIS_WALLOPS);
 700   for (i = 0; i <= HighestFd; i++)
 701   {
 702     if (!(cptr = LocalClientArray[i]) ||
 703         (cli_fd(cli_from(cptr)) < 0) ||
 704         (type == WALL_DESYNCH && !SendDebug(cptr)) ||
 705         (type == WALL_WALLOPS &&
 706          (!SendWallops(cptr) || (his_wallops && !IsAnOper(cptr)))) ||
 707         (type == WALL_WALLUSERS && !SendWallops(cptr)))
 708       continue; /* skip it */
 709     send_buffer(cptr, mb, 1);
 710   }
 711
 712   msgq_clean(mb);
 713
 714   /* Build buffer to send to servers */
 715   va_start(vd.vd_args, pattern);
 716   mb = msgq_make(&me, "%C %s :%v", from, tok, &vd);
 717   va_end(vd.vd_args);
 718
 719   /* send buffer along! */
 720   for (lp = cli_serv(&me)->down; lp; lp = lp->next) {
 721     if (one && lp->value.cptr == cli_from(one))
 722       continue;
 723     send_buffer(lp->value.cptr, mb, 1);
 724   }
 725
 726   msgq_clean(mb);
 727 }
 728
 729 /** Send a (prefixed) command to all users matching \a to as \a who.
 730  * @warning \a pattern must not contain %v.
 731  * @param[in] from Source of the command.
 732  * @param[in] cmd Long name of command.
 733  * @param[in] tok Short name of command.
 734  * @param[in] to Destination host/server mask.
 735  * @param[in] one Client direction to skip (or NULL).
 736  * @param[in] who Type of match for \a to (either MATCH_HOST or MATCH_SERVER).
 737  * @param[in] pattern Format string for command arguments.
 738  */
 739 void sendcmdto_match_butone(struct Client *from, const char *cmd,
 740                             const char *tok, const char *to,
 741                             struct Client *one, unsigned int who,
 742                             const char *pattern, ...)
 743 {
 744   struct VarData vd;
 745   struct Client *cptr;
 746   struct MsgBuf *user_mb;
 747   struct MsgBuf *serv_mb;
 748
 749   vd.vd_format = pattern;
 750
 751   /* Build buffer to send to users */
 752   va_start(vd.vd_args, pattern);
 753   user_mb = msgq_make(0, "%:#C %s %v", from, cmd, &vd);
 754   va_end(vd.vd_args);
 755
 756   /* Build buffer to send to servers */
 757   va_start(vd.vd_args, pattern);
 758   serv_mb = msgq_make(&me, "%C %s %v", from, tok, &vd);
 759   va_end(vd.vd_args);
 760
 761   /* send buffer along */
 762   bump_sentalong(one);
 763   for (cptr = GlobalClientList; cptr; cptr = cli_next(cptr)) {
 764     if (!IsRegistered(cptr) || IsServer(cptr) || cli_fd(cli_from(cptr)) < 0 ||
 765         cli_sentalong(cptr) == sentalong_marker ||
 766         !match_it(from, cptr, to, who))
 767       continue; /* skip it */
 768     cli_sentalong(cptr) = sentalong_marker;
 769
 770     if (MyConnect(cptr)) /* send right buffer */
 771       send_buffer(cptr, user_mb, 0);
 772     else
 773       send_buffer(cptr, serv_mb, 0);
 774   }
 775
 776   msgq_clean(user_mb);
 777   msgq_clean(serv_mb);
 778 }
 779
 780 /** Send a server notice to all users subscribing to the indicated \a
 781  * mask except for \a one.
 782  * @param[in] one Client direction to skip (or NULL).
 783  * @param[in] mask One of the SNO_* constants.
 784  * @param[in] pattern Format string for server notice.
 785  */
 786 void sendto_opmask_butone(struct Client *one, unsigned int mask,
 787                           const char *pattern, ...)
 788 {
 789   va_list vl;
 790
 791   va_start(vl, pattern);
 792   vsendto_opmask_butone(one, mask, pattern, vl);
 793   va_end(vl);
 794 }
 795
 796 /** Send a server notice to all users subscribing to the indicated \a
 797  * mask except for \a one, rate-limited to once per 30 seconds.
 798  * @param[in] one Client direction to skip (or NULL).
 799  * @param[in] mask One of the SNO_* constants.
 800  * @param[in,out] rate Pointer to the last time the message was sent.
 801  * @param[in] pattern Format string for server notice.
 802  */
 803 void sendto_opmask_butone_ratelimited(struct Client *one, unsigned int mask,
 804                                       time_t *rate, const char *pattern, ...)
 805 {
 806   va_list vl;
 807
 808   if ((CurrentTime - *rate) < 30)
 809     return;
 810   else
 811     *rate = CurrentTime;
 812
 813   va_start(vl, pattern);
 814   vsendto_opmask_butone(one, mask, pattern, vl);
 815   va_end(vl);
 816 }
 817
 818
 819 /** Send a server notice to all users subscribing to the indicated \a
 820  * mask except for \a one.
 821  * @param[in] one Client direction to skip (or NULL).
 822  * @param[in] mask One of the SNO_* constants.
 823  * @param[in] pattern Format string for server notice.
 824  * @param[in] vl Argument list for format string.
 825  */
 826 void vsendto_opmask_butone(struct Client *one, unsigned int mask,
 827                            const char *pattern, va_list vl)
 828 {
 829   struct VarData vd;
 830   struct MsgBuf *mb;
 831   int i = 0; /* so that 1 points to opsarray[0] */
 832   struct SLink *opslist;
 833
 834   while ((mask >>= 1))
 835     i++;
 836
 837   if (!(opslist = opsarray[i]))
 838     return;
 839
 840   /*
 841    * build string; I don't want to bother with client nicknames, so I hope
 842    * this is ok...
 843    */
 844   vd.vd_format = pattern;
 845   va_copy(vd.vd_args, vl);
 846   mb = msgq_make(0, ":%s " MSG_NOTICE " * :*** Notice -- %v", cli_name(&me),
 847                  &vd);
 848
 849   for (; opslist; opslist = opslist->next)
 850     if (opslist->value.cptr != one)
 851       send_buffer(opslist->value.cptr, mb, 0);
 852
 853   msgq_clean(mb);
 854 }