Author: Bleep <tomh@inxpress.net>
[ircu2.10.12-pk.git] / ircd / whocmds.c
index 58b8f31e402965e221efded9d39c5dfcac8fb473..0c2b5b4a525144b4c01080ddebdf459917c00cd3 100644 (file)
@@ -1,4 +1,3 @@
-
 /*
  * IRC - Internet Relay Chat, ircd/s_user.c (formerly ircd/s_msg.c)
  * Copyright (C) 1990 Jarkko Oikarinen and
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ *
+ * $Id$
+ *
+ * $Id$
  */
-
-#include "sys.h"
-#include <sys/stat.h>
-#include <utmp.h>
-#if HAVE_FCNTL_H
-#include <fcntl.h>
-#endif
-#include <stdlib.h>
-#if HAVE_UNISTD_H
-#include <unistd.h>
-#endif
-#ifdef USE_SYSLOG
-#include <syslog.h>
-#endif
-#include "h.h"
-#include "struct.h"
-#include "common.h"
-#include "s_serv.h"
+#include "whocmds.h"
+#include "IPcheck.h"
+#include "channel.h"
+#include "client.h"
+#include "hash.h"
+#include "ircd.h"
+#include "ircd_chattr.h"
+#include "ircd_string.h"
+#include "list.h"
+#include "match.h"
 #include "numeric.h"
-#include "send.h"
+#include "numnicks.h"
+#include "querycmds.h"
+#include "random.h"
+#include "s_bsd.h"
 #include "s_conf.h"
 #include "s_misc.h"
-#include "match.h"
-#include "hash.h"
-#include "s_bsd.h"
-#include "whowas.h"
-#include "list.h"
-#include "s_err.h"
-#include "parse.h"
-#include "ircd.h"
 #include "s_user.h"
+#include "send.h"
+#include "sprintf_irc.h"
+#include "struct.h"
 #include "support.h"
-#include "s_user.h"
-#include "channel.h"
-#include "random.h"
+#include "sys.h"
+#include "userload.h"
 #include "version.h"
+#include "whowas.h"
 #include "msg.h"
-#include "userload.h"
-#include "numnicks.h"
-#include "sprintf_irc.h"
-#include "querycmds.h"
-#include "IPcheck.h"
-
-RCSTAG_CC("$Id$");
-
-/*
- * m_who() 
- * m_who with support routines rewritten by Nemesi, August 1997
- * - Alghoritm have been flattened (no more recursive)
- * - Several bug fixes
- * - Strong performance improvement
- * - Added possibility to have specific fields in the output
- * See readme.who for further details.
- */
-
-/* Macros used only in here by m_who and its support functions */
-
-#define WHOSELECT_OPER 1
-#define WHOSELECT_EXTRA 2
-
-#define WHO_FIELD_QTY 1
-#define WHO_FIELD_CHA 2
-#define WHO_FIELD_UID 4
-#define WHO_FIELD_NIP 8
-#define WHO_FIELD_HOS 16
-#define WHO_FIELD_SER 32
-#define WHO_FIELD_NIC 64
-#define WHO_FIELD_FLA 128
-#define WHO_FIELD_DIS 256
-#define WHO_FIELD_REN 512
-
-#define WHO_FIELD_DEF ( WHO_FIELD_NIC | WHO_FIELD_UID | WHO_FIELD_HOS | WHO_FIELD_SER )
-
-#define IS_VISIBLE_USER(s,ac) ((s==ac) || (!IsInvisible(ac)))
 
-#if defined(SHOW_INVISIBLE_LUSERS) || defined(SHOW_ALL_INVISIBLE_USERS)
-#define SEE_LUSER(s, ac, b) (IS_VISIBLE_USER(s, ac) || ((b & WHOSELECT_EXTRA) && MyConnect(ac) && IsAnOper(s)))
-#else
-#define SEE_LUSER(s, ac, b) (IS_VISIBLE_USER(s, ac))
-#endif
-
-#ifdef SHOW_ALL_INVISIBLE_USERS
-#define SEE_USER(s, ac, b) (SEE_LUSER(s, ac, b) || ((b & WHOSELECT_EXTRA) && IsOper(s)))
-#else
-#define SEE_USER(s, ac, b) (SEE_LUSER(s, ac, b))
-#endif
-
-#ifdef UNLIMIT_OPER_QUERY
-#define SHOW_MORE(sptr, counter) (IsAnOper(sptr) || (!(counter-- < 0)) )
-#else
-#define SHOW_MORE(sptr, counter) (!(counter-- < 0))
-#endif
-
-#ifdef OPERS_SEE_IN_SECRET_CHANNELS
-#ifdef LOCOP_SEE_IN_SECRET_CHANNELS
-#define SEE_CHANNEL(s, chptr, b) (!SecretChannel(chptr) || ((b & WHOSELECT_EXTRA) && IsAnOper(s)))
-#else
-#define SEE_CHANNEL(s, chptr, b) (!SecretChannel(chptr) || ((b & WHOSELECT_EXTRA) && IsOper(s)))
-#endif
-#else
-#define SEE_CHANNEL(s, chptr, b) (!SecretChannel(chptr))
-#endif
-
-
-/*
- * A little spin-marking utility to tell us wich clients we have already
- * processed and wich not
- */
-static int who_marker = 0;
-static void move_marker(void)
-{
-  if (!++who_marker)
-  {
-    aClient *cptr = client;
-    while (cptr)
-    {
-      cptr->marker = 0;
-      cptr = cptr->next;
-    }
-    who_marker++;
-  }
-}
-#define CheckMark(x, y) ((x == y) ? 0 : (x = y))
-#define Process(cptr) CheckMark(cptr->marker, who_marker)
+#include <arpa/inet.h>        /* inet_ntoa */
+#include <fcntl.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/stat.h>
+#include <unistd.h>
 
 /*
  * The function that actually prints out the WHO reply for a client found
  */
-static void do_who(aClient *sptr, aClient *acptr, aChannel *repchan,
-    int fields, char *qrt)
+void do_who(struct Client* sptr, struct Client* acptr, struct Channel* repchan,
+            int fields, char* qrt)
 {
-  Reg1 char *p1;
-  Reg2 aChannel *chptr;
+  char *p1;
+  struct Channel *chptr = repchan;
 
   static char buf1[512];
   /* NOTE: with current fields list and sizes this _cannot_ overrun, 
      and also the message finally sent shouldn't ever be truncated */
 
   p1 = buf1;
-  chptr = repchan;
   buf1[1] = '\0';
 
   /* If we don't have a channel and we need one... try to find it,
@@ -170,17 +83,17 @@ static void do_who(aClient *sptr, aClient *acptr, aChannel *repchan,
   if (!chptr && (!fields || (fields & (WHO_FIELD_CHA | WHO_FIELD_FLA))) &&
       !IsChannelService(acptr))
   {
-    Reg3 Link *lp;
-    for (lp = acptr->user->channel; lp && !chptr; lp = lp->next)
-      if (PubChannel(lp->value.chptr) &&
-         (acptr == sptr || !is_zombie(acptr, chptr)))
-       chptr = lp->value.chptr;
+    struct Membership* chan;
+    for (chan = acptr->user->channel; chan && !chptr; chan = chan->next_channel)
+      if (PubChannel(chan->channel) &&
+          (acptr == sptr || !IsZombie(chan)))
+        chptr = chan->channel;
   }
 
   /* Place the fields one by one in the buffer and send it
      note that fields == NULL means "default query" */
 
-  if (fields & WHO_FIELD_QTY)  /* Query type */
+  if (fields & WHO_FIELD_QTY)   /* Query type */
   {
     *(p1++) = ' ';
     if (BadPtr(qrt))
@@ -191,7 +104,7 @@ static void do_who(aClient *sptr, aClient *acptr, aChannel *repchan,
 
   if (!fields || (fields & WHO_FIELD_CHA))
   {
-    Reg3 char *p2;
+    char *p2;
     *(p1++) = ' ';
     if ((p2 = (chptr ? chptr->chname : NULL)))
       while ((*p2) && (*(p1++) = *(p2++)));
@@ -201,36 +114,35 @@ static void do_who(aClient *sptr, aClient *acptr, aChannel *repchan,
 
   if (!fields || (fields & WHO_FIELD_UID))
   {
-    Reg3 char *p2 = acptr->user->username;
+    char *p2 = acptr->user->username;
     *(p1++) = ' ';
     while ((*p2) && (*(p1++) = *(p2++)));
   }
 
   if (fields & WHO_FIELD_NIP)
   {
-    Reg3 char *p2;
-    p2 = inetntoa(acptr->ip);
+    const char* p2 = ircd_ntoa((const char*) &acptr->ip);
     *(p1++) = ' ';
     while ((*p2) && (*(p1++) = *(p2++)));
   }
 
   if (!fields || (fields & WHO_FIELD_HOS))
   {
-    Reg3 char *p2 = acptr->user->host;
+    char *p2 = acptr->user->host;
     *(p1++) = ' ';
     while ((*p2) && (*(p1++) = *(p2++)));
   }
 
   if (!fields || (fields & WHO_FIELD_SER))
   {
-    Reg3 char *p2 = acptr->user->server->name;
+    char *p2 = acptr->user->server->name;
     *(p1++) = ' ';
     while ((*p2) && (*(p1++) = *(p2++)));
   }
 
   if (!fields || (fields & WHO_FIELD_NIC))
   {
-    Reg3 char *p2 = acptr->name;
+    char *p2 = acptr->name;
     *(p1++) = ' ';
     while ((*p2) && (*(p1++) = *(p2++)));
   }
@@ -255,11 +167,11 @@ static void do_who(aClient *sptr, aClient *acptr, aChannel *repchan,
     if (IsAnOper(sptr))
     {
       if (IsInvisible(acptr))
-       *(p1++) = 'i';
+        *(p1++) = 'i';
       if (SendWallops(acptr))
-       *(p1++) = 'w';
+        *(p1++) = 'w';
       if (SendDebug(acptr))
-       *(p1++) = 'g';
+        *(p1++) = 'g';
     }
   }
 
@@ -267,16 +179,16 @@ static void do_who(aClient *sptr, aClient *acptr, aChannel *repchan,
   {
     *p1++ = ' ';
     if (!fields)
-      *p1++ = ':';             /* Place colon here for default reply */
+      *p1++ = ':';              /* Place colon here for default reply */
     p1 = sprintf_irc(p1, "%d", acptr->hopcount);
   }
 
   if (!fields || (fields & WHO_FIELD_REN))
   {
-    Reg3 char *p2 = acptr->info;
+    char *p2 = acptr->info;
     *p1++ = ' ';
     if (fields)
-      *p1++ = ':';             /* Place colon here for special reply */
+      *p1++ = ':';              /* Place colon here for special reply */
     while ((*p2) && (*(p1++) = *(p2++)));
   }
 
@@ -288,524 +200,3 @@ static void do_who(aClient *sptr, aClient *acptr, aChannel *repchan,
       me.name, sptr->name, ++p1);
 }
 
-/*
- *  m_who
- *
- *  parv[0] = sender prefix
- *  parv[1] = nickname mask list
- *  parv[2] = additional selection flag, only 'o' for now.
- *            and %flags to specify what fields to output
- *            plus a ,querytype if the t flag is specified
- *            so the final thing will be like o%tnchu,777
- *  parv[3] = _optional_ parameter that overrides parv[1]
- *            This can be used as "/quote who foo % :The Black Hacker
- *            to find me, parv[3] _can_ contain spaces !.
- */
-
-int m_who(aClient *UNUSED(cptr), aClient *sptr, int parc, char *parv[])
-{
-  Reg1 char *mask;             /* The mask we are looking for              */
-  Reg2 char ch;                        /* Scratch char register                    */
-  Reg3 Link *lp, *lp2;
-  Reg4 aChannel *chptr;                /* Channel to show                          */
-  Reg5 aClient *acptr;         /* Client to show                           */
-
-  int bitsel;                  /* Mask of selectors to apply               */
-  int matchsel;                        /* Wich fields the match should apply on    */
-  int counter;                 /* Query size counter,
-                                  initially used to count fields           */
-  int commas;                  /* Does our mask contain any comma ?
-                                  If so is a list..                        */
-  int fields;                  /* Mask of fields to show                   */
-  int isthere = 0;             /* When this set the user is member of chptr */
-  char *nick;                  /* Single element extracted from
-                                  the mask list                            */
-  char *p;                     /* Scratch char pointer                     */
-  char *qrt;                   /* Pointer to the query type                */
-  static char mymask[512];     /* To save the mask before corrupting it    */
-
-  /* Let's find where is our mask, and if actually contains something */
-  mask = ((parc > 1) ? parv[1] : NULL);
-  if (parc > 3 && parv[3])
-    mask = parv[3];
-  if (mask && ((mask[0] == '\0') ||
-      (mask[1] == '\0' && ((mask[0] == '0') || (mask[0] == '*')))))
-    mask = NULL;
-
-  /* Evaluate the flags now, we consider the second parameter 
-     as "matchFlags%fieldsToInclude,querytype"           */
-  bitsel = fields = counter = matchsel = 0;
-  qrt = NULL;
-  if (parc > 2 && parv[2] && *parv[2])
-  {
-    p = parv[2];
-    while (((ch = *(p++))) && (ch != '%') && (ch != ','))
-      switch (ch)
-      {
-       case 'o':
-       case 'O':
-         bitsel |= WHOSELECT_OPER;
-         continue;
-       case 'x':
-       case 'X':
-         bitsel |= WHOSELECT_EXTRA;
-#ifdef WPATH
-         if (IsAnOper(sptr))
-           write_log(WPATH, "# " TIME_T_FMT " %s!%s@%s WHO %s %s\n",
-               now, sptr->name, sptr->user->username, sptr->user->host,
-               (BadPtr(parv[3]) ? parv[1] : parv[3]), parv[2]);
-#endif /* WPATH */
-         continue;
-       case 'n':
-       case 'N':
-         matchsel |= WHO_FIELD_NIC;
-         continue;
-       case 'u':
-       case 'U':
-         matchsel |= WHO_FIELD_UID;
-         continue;
-       case 'h':
-       case 'H':
-         matchsel |= WHO_FIELD_HOS;
-         continue;
-       case 'i':
-       case 'I':
-         matchsel |= WHO_FIELD_NIP;
-         continue;
-       case 's':
-       case 'S':
-         matchsel |= WHO_FIELD_SER;
-         continue;
-       case 'r':
-       case 'R':
-         matchsel |= WHO_FIELD_REN;
-         continue;
-      }
-    if (ch == '%')
-      while ((ch = *p++) && (ch != ','))
-      {
-       counter++;
-       switch (ch)
-       {
-         case 'c':
-         case 'C':
-           fields |= WHO_FIELD_CHA;
-           break;
-         case 'd':
-         case 'D':
-           fields |= WHO_FIELD_DIS;
-           break;
-         case 'f':
-         case 'F':
-           fields |= WHO_FIELD_FLA;
-           break;
-         case 'h':
-         case 'H':
-           fields |= WHO_FIELD_HOS;
-           break;
-         case 'i':
-         case 'I':
-           fields |= WHO_FIELD_NIP;
-           break;
-         case 'n':
-         case 'N':
-           fields |= WHO_FIELD_NIC;
-           break;
-         case 'r':
-         case 'R':
-           fields |= WHO_FIELD_REN;
-           break;
-         case 's':
-         case 'S':
-           fields |= WHO_FIELD_SER;
-           break;
-         case 't':
-         case 'T':
-           fields |= WHO_FIELD_QTY;
-           break;
-         case 'u':
-         case 'U':
-           fields |= WHO_FIELD_UID;
-           break;
-         default:
-           break;
-       }
-      };
-    if (ch)
-      qrt = p;
-  }
-
-  if (!matchsel)
-    matchsel = WHO_FIELD_DEF;
-  if (!fields)
-    counter = 7;
-
-  if (qrt && (fields & WHO_FIELD_QTY))
-  {
-    p = qrt;
-    if (!((*p > '9') || (*p < '0')))
-      p++;
-    if (!((*p > '9') || (*p < '0')))
-      p++;
-    if (!((*p > '9') || (*p < '0')))
-      p++;
-    *p = '\0';
-  }
-  else
-    qrt = NULL;
-
-  /* I'd love to add also a check on the number of matches fields per time */
-  counter = (2048 / (counter + 4));
-  if (mask && (strlen(mask) > 510))
-    mask[510] = '\0';
-  move_marker();
-  commas = (mask && strchr(mask, ','));
-
-  /* First treat mask as a list of plain nicks/channels */
-  if (mask)
-  {
-    strcpy(mymask, mask);
-    for (p = NULL, nick = strtoken(&p, mymask, ","); nick;
-       nick = strtoken(&p, NULL, ","))
-    {
-      if (IsChannelName(nick) && (chptr = FindChannel(nick)))
-      {
-       isthere = (IsMember(sptr, chptr) != NULL);
-       if (isthere || SEE_CHANNEL(sptr, chptr, bitsel))
-       {
-         for (lp = chptr->members; lp; lp = lp->next)
-         {
-           acptr = lp->value.cptr;
-           if ((bitsel & WHOSELECT_OPER) && !(IsAnOper(acptr)))
-             continue;
-           if ((acptr != sptr) && (lp->flags & CHFL_ZOMBIE))
-             continue;
-           if (!(isthere || (SEE_USER(sptr, acptr, bitsel))))
-             continue;
-           if (!Process(acptr))        /* This can't be moved before other checks */
-             continue;
-           if (!(isthere || (SHOW_MORE(sptr, counter))))
-             break;
-           do_who(sptr, acptr, chptr, fields, qrt);
-         }
-       }
-      }
-      else
-      {
-       if ((acptr = FindUser(nick)) &&
-           ((!(bitsel & WHOSELECT_OPER)) || IsAnOper(acptr)) &&
-           Process(acptr) && SHOW_MORE(sptr, counter))
-       {
-         do_who(sptr, acptr, NULL, fields, qrt);
-       }
-      }
-    }
-  }
-
-  /* If we didn't have any comma in the mask treat it as a
-     real mask and try to match all relevant fields */
-  if (!(commas || (counter < 1)))
-  {
-    int minlen, cset;
-    static struct in_mask imask;
-    if (mask)
-    {
-      matchcomp(mymask, &minlen, &cset, mask);
-      if (matchcompIP(&imask, mask))
-       matchsel &= ~WHO_FIELD_NIP;
-      if ((minlen > NICKLEN) || !(cset & NTL_IRCNK))
-       matchsel &= ~WHO_FIELD_NIC;
-      if ((matchsel & WHO_FIELD_SER) &&
-         ((minlen > HOSTLEN) || (!(cset & NTL_IRCHN))
-         || (!markMatchexServer(mymask, minlen))))
-       matchsel &= ~WHO_FIELD_SER;
-      if ((minlen > USERLEN) || !(cset & NTL_IRCUI))
-       matchsel &= ~WHO_FIELD_UID;
-      if ((minlen > HOSTLEN) || !(cset & NTL_IRCHN))
-       matchsel &= ~WHO_FIELD_HOS;
-    }
-
-    /* First of all loop through the clients in common channels */
-    if ((!(counter < 1)) && matchsel)
-      for (lp = sptr->user->channel; lp; lp = lp->next)
-       for (chptr = lp->value.chptr, lp2 = chptr->members; lp2;
-           lp2 = lp2->next)
-       {
-         acptr = lp2->value.cptr;
-         if (!(IsUser(acptr) && Process(acptr)))
-           continue;           /* Now Process() is at the beginning, if we fail
-                                  we'll never have to show this acptr in this query */
-         if ((bitsel & WHOSELECT_OPER) && !IsAnOper(acptr))
-           continue;
-         if ((mask) &&
-             ((!(matchsel & WHO_FIELD_NIC))
-             || matchexec(acptr->name, mymask, minlen))
-             && ((!(matchsel & WHO_FIELD_UID))
-             || matchexec(acptr->user->username, mymask, minlen))
-             && ((!(matchsel & WHO_FIELD_SER))
-             || (!(acptr->user->server->flags & FLAGS_MAP)))
-             && ((!(matchsel & WHO_FIELD_HOS))
-             || matchexec(acptr->user->host, mymask, minlen))
-             && ((!(matchsel & WHO_FIELD_REN))
-             || matchexec(acptr->info, mymask, minlen))
-             && ((!(matchsel & WHO_FIELD_NIP))
-             || ((((acptr->ip.s_addr & imask.mask.s_addr) !=
-             imask.bits.s_addr)) || (imask.fall
-             && matchexec(inet_ntoa(acptr->ip), mymask, minlen)))))
-           continue;
-         if (!SHOW_MORE(sptr, counter))
-           break;
-         do_who(sptr, acptr, chptr, fields, qrt);
-       }
-
-    /* Loop through all clients :-\, if we still have something to match to 
-       and we can show more clients */
-    if ((!(counter < 1)) && matchsel)
-      for (acptr = me.prev; acptr; acptr = acptr->prev)
-      {
-       if (!(IsUser(acptr) && Process(acptr)))
-         continue;
-       if ((bitsel & WHOSELECT_OPER) && !IsAnOper(acptr))
-         continue;
-       if (!(SEE_USER(sptr, acptr, bitsel)))
-         continue;
-       if ((mask) &&
-           ((!(matchsel & WHO_FIELD_NIC))
-           || matchexec(acptr->name, mymask, minlen))
-           && ((!(matchsel & WHO_FIELD_UID))
-           || matchexec(acptr->user->username, mymask, minlen))
-           && ((!(matchsel & WHO_FIELD_SER))
-           || (!(acptr->user->server->flags & FLAGS_MAP)))
-           && ((!(matchsel & WHO_FIELD_HOS))
-           || matchexec(acptr->user->host, mymask, minlen))
-           && ((!(matchsel & WHO_FIELD_REN))
-           || matchexec(acptr->info, mymask, minlen))
-           && ((!(matchsel & WHO_FIELD_NIP))
-           || ((((acptr->ip.s_addr & imask.mask.s_addr) != imask.bits.s_addr))
-           || (imask.fall
-           && matchexec(inet_ntoa(acptr->ip), mymask, minlen)))))
-         continue;
-       if (!SHOW_MORE(sptr, counter))
-         break;
-       do_who(sptr, acptr, NULL, fields, qrt);
-      }
-  }
-
-  /* Make a clean mask suitable to be sent in the "end of" */
-  if (mask && (p = strchr(mask, ' ')))
-    *p = '\0';
-  sendto_one(sptr, rpl_str(RPL_ENDOFWHO),
-      me.name, parv[0], BadPtr(mask) ? "*" : mask);
-
-  /* Notify the user if we decided that his query was too long */
-  if (counter < 0)
-    sendto_one(sptr, err_str(ERR_QUERYTOOLONG), me.name, parv[0], "WHO");
-
-  return 0;
-}
-
-#define MAX_WHOIS_LINES 50
-
-/*
- * m_whois
- *
- * parv[0] = sender prefix
- * parv[1] = nickname masklist
- *
- * or
- *
- * parv[1] = target server
- * parv[2] = nickname masklist
- */
-int m_whois(aClient *cptr, aClient *sptr, int parc, char *parv[])
-{
-  Reg2 Link *lp;
-  Reg3 anUser *user;
-  aClient *acptr, *a2cptr;
-  aChannel *chptr;
-  char *nick, *tmp, *name;
-  char *p = NULL;
-  int found, len, mlen, total;
-  static char buf[512];
-
-  if (parc < 2)
-  {
-    sendto_one(sptr, err_str(ERR_NONICKNAMEGIVEN), me.name, parv[0]);
-    return 0;
-  }
-
-  if (parc > 2)
-  {
-    aClient *acptr;
-    /* For convenience: Accept a nickname as first parameter, by replacing
-       it with the correct servername - as is needed by hunt_server() */
-    if (MyUser(sptr) && (acptr = FindUser(parv[1])))
-      parv[1] = acptr->user->server->name;
-    if (hunt_server(0, cptr, sptr, ":%s WHOIS %s :%s", 1, parc, parv) !=
-       HUNTED_ISME)
-      return 0;
-    parv[1] = parv[2];
-  }
-
-  total = 0;
-  for (tmp = parv[1]; (nick = strtoken(&p, tmp, ",")); tmp = NULL)
-  {
-    int invis, showperson, member, wilds;
-
-    found = 0;
-    collapse(nick);
-    wilds = (strchr(nick, '?') || strchr(nick, '*'));
-    /* Do a hash lookup if the nick does not contain wilds */
-    if (wilds)
-    {
-      /*
-       * We're no longer allowing remote users to generate requests with wildcards.
-       */
-      if (!MyConnect(sptr))
-       continue;
-      for (acptr = client; (acptr = next_client(acptr, nick));
-         acptr = acptr->next)
-      {
-       if (!IsRegistered(acptr) || IsServer(acptr) || IsPing(acptr))
-         continue;
-       /*
-        * I'm always last :-) and acptr->next == NULL!!
-        */
-       if (IsMe(acptr))
-         break;
-       /*
-        * 'Rules' established for sending a WHOIS reply:
-        *
-        * - if wildcards are being used dont send a reply if
-        *   the querier isnt any common channels and the
-        *   client in question is invisible and wildcards are
-        *   in use (allow exact matches only);
-        *
-        * - only send replies about common or public channels
-        *   the target user(s) are on;
-        */
-       user = acptr->user;
-       name = (!*acptr->name) ? "?" : acptr->name;
-
-       invis = acptr != sptr && IsInvisible(acptr);
-       member = (user && user->channel) ? 1 : 0;
-       showperson = (wilds && !invis && !member) || !wilds;
-       if (user)
-         for (lp = user->channel; lp; lp = lp->next)
-         {
-           chptr = lp->value.chptr;
-           member = IsMember(sptr, chptr) ? 1 : 0;
-           if (invis && !member)
-             continue;
-           if (is_zombie(acptr, chptr))
-             continue;
-           if (member || (!invis && PubChannel(chptr)))
-           {
-             showperson = 1;
-             break;
-           }
-           if (!invis && HiddenChannel(chptr) && !SecretChannel(chptr))
-             showperson = 1;
-         }
-       if (!showperson)
-         continue;
-
-       if (user)
-       {
-         a2cptr = user->server;
-         sendto_one(sptr, rpl_str(RPL_WHOISUSER), me.name,
-             parv[0], name, user->username, user->host, acptr->info);
-       }
-       else
-       {
-         a2cptr = &me;
-         sendto_one(sptr, rpl_str(RPL_WHOISUSER), me.name,
-             parv[0], name, "<unknown>", "<unknown>", "<unknown>");
-       }
-
-       found = 1;
-
-      exact_match:
-       if (user && !IsChannelService(acptr))
-       {
-         mlen = strlen(me.name) + strlen(parv[0]) + 12 + strlen(name);
-         for (len = 0, *buf = '\0', lp = user->channel; lp; lp = lp->next)
-         {
-           chptr = lp->value.chptr;
-           if (ShowChannel(sptr, chptr) &&
-               (acptr == sptr || !is_zombie(acptr, chptr)))
-           {
-             if (len + strlen(chptr->chname) + mlen > BUFSIZE - 5)
-             {
-               sendto_one(sptr, ":%s %d %s %s :%s",
-                   me.name, RPL_WHOISCHANNELS, parv[0], name, buf);
-               *buf = '\0';
-               len = 0;
-             }
-             if (IsDeaf(acptr))
-               *(buf + len++) = '-';
-             if (is_chan_op(acptr, chptr))
-               *(buf + len++) = '@';
-             else if (has_voice(acptr, chptr))
-               *(buf + len++) = '+';
-             else if (is_zombie(acptr, chptr))
-               *(buf + len++) = '!';
-             if (len)
-               *(buf + len) = '\0';
-             strcpy(buf + len, chptr->chname);
-             len += strlen(chptr->chname);
-             strcat(buf + len, " ");
-             len++;
-           }
-         }
-         if (buf[0] != '\0')
-           sendto_one(sptr, rpl_str(RPL_WHOISCHANNELS),
-               me.name, parv[0], name, buf);
-       }
-
-       sendto_one(sptr, rpl_str(RPL_WHOISSERVER), me.name,
-           parv[0], name, a2cptr->name, a2cptr->info);
-
-       if (user)
-       {
-         if (user->away)
-           sendto_one(sptr, rpl_str(RPL_AWAY), me.name,
-               parv[0], name, user->away);
-
-         if (IsAnOper(acptr))
-           sendto_one(sptr, rpl_str(RPL_WHOISOPERATOR),
-               me.name, parv[0], name);
-
-         if (MyConnect(acptr))
-           sendto_one(sptr, rpl_str(RPL_WHOISIDLE), me.name,
-               parv[0], name, now - user->last, acptr->firsttime);
-       }
-       if (found == 2 || total++ >= MAX_WHOIS_LINES)
-         break;
-      }
-    }
-    else
-    {
-      /* No wildcards */
-      if ((acptr = FindUser(nick)))
-      {
-       found = 2;              /* Make sure we exit the loop after passing it once */
-       user = acptr->user;
-       name = (!*acptr->name) ? "?" : acptr->name;
-       a2cptr = user->server;
-       sendto_one(sptr, rpl_str(RPL_WHOISUSER), me.name,
-           parv[0], name, user->username, user->host, acptr->info);
-       goto exact_match;
-      }
-    }
-    if (!found)
-      sendto_one(sptr, err_str(ERR_NOSUCHNICK), me.name, parv[0], nick);
-    if (p)
-      p[-1] = ',';
-    if (!MyConnect(sptr) || total >= MAX_WHOIS_LINES)
-      break;
-  }
-  sendto_one(sptr, rpl_str(RPL_ENDOFWHOIS), me.name, parv[0], parv[1]);
-
-  return 0;
-}