modules/m_testline.c

   1 /* modules/m_testline.c
   2  *
   3  *  Copyright (C) 2004 Lee Hardy <lee@leeh.co.uk>
   4  *  Copyright (C) 2004-2005 ircd-ratbox development team
   5  *
   6  * Redistribution and use in source and binary forms, with or without
   7  * modification, are permitted provided that the following conditions are
   8  * met:
   9  *
  10  * 1.Redistributions of source code must retain the above copyright notice,
  11  *   this list of conditions and the following disclaimer.
  12  * 2.Redistributions in binary form must reproduce the above copyright
  13  *   notice, this list of conditions and the following disclaimer in the
  14  *   documentation and/or other materials provided with the distribution.
  15  * 3.The name of the author may not be used to endorse or promote products
  16  *   derived from this software without specific prior written permission.
  17  *
  18  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  19  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  20  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  21  * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
  22  * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  23  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  24  * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  25  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  26  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
  27  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  28  * POSSIBILITY OF SUCH DAMAGE.
  29  */
  30 #include "stdinc.h"
  31 #include "tools.h"
  32 #include "send.h"
  33 #include "client.h"
  34 #include "modules.h"
  35 #include "msg.h"
  36 #include "hostmask.h"
  37 #include "numeric.h"
  38 #include "s_conf.h"
  39 #include "s_newconf.h"
  40 #include "sprintf_irc.h"
  41
  42 static int mo_testline(struct Client *, struct Client *, int, const char **);
  43 static int mo_testgecos(struct Client *, struct Client *, int, const char **);
  44
  45 struct Message testline_msgtab = {
  46         "TESTLINE", 0, 0, 0, MFLG_SLOW,
  47         {mg_unreg, mg_ignore, mg_ignore, mg_ignore, mg_ignore, {mo_testline, 2}}
  48 };
  49 struct Message testgecos_msgtab = {
  50         "TESTGECOS", 0, 0, 0, MFLG_SLOW,
  51         {mg_unreg, mg_ignore, mg_ignore, mg_ignore, mg_ignore, {mo_testgecos, 2}}
  52 };
  53
  54 mapi_clist_av1 testline_clist[] = { &testline_msgtab, &testgecos_msgtab, NULL };
  55 DECLARE_MODULE_AV1(testline, NULL, NULL, testline_clist, NULL, NULL, "$Revision: 147 $");
  56
  57 static int
  58 mo_testline(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
  59 {
  60         struct ConfItem *aconf;
  61         struct ConfItem *resv_p;
  62         struct irc_sockaddr_storage ip;
  63         const char *name = NULL;
  64         const char *username = NULL;
  65         const char *host = NULL;
  66         char *mask;
  67         char *p;
  68         int host_mask;
  69         int type;
  70
  71         if(!IsOperStaffer(source_p))
  72         {
  73                 sendto_one(source_p, form_str(ERR_NOPRIVS), me.name, source_p->name, "staffer");
  74                 return 0;
  75         }
  76
  77         mask = LOCAL_COPY(parv[1]);
  78
  79         if((p = strchr(mask, '!')))
  80         {
  81                 *p++ = '\0';
  82                 name = mask;
  83                 mask = p;
  84
  85                 if(EmptyString(mask))
  86                         return 0;
  87         }
  88
  89         if((p = strchr(mask, '@')))
  90         {
  91                 *p++ = '\0';
  92                 username = mask;
  93                 host = p;
  94
  95                 if(EmptyString(host))
  96                         return 0;
  97         }
  98         else
  99                 host = mask;
 100
 101         /* parses as an IP, check for a dline */
 102         if((type = parse_netmask(host, (struct sockaddr *)&ip, &host_mask)) != HM_HOST)
 103         {
 104 #ifdef IPV6
 105                 if(type == HM_IPV6)
 106                         aconf = find_dline((struct sockaddr *)&ip, AF_INET6);
 107                 else
 108 #endif
 109                         aconf = find_dline((struct sockaddr *)&ip, AF_INET);
 110
 111                 if(aconf && aconf->status & CONF_DLINE)
 112                 {
 113                         sendto_one(source_p, form_str(RPL_TESTLINE),
 114                                 me.name, source_p->name,
 115                                 (aconf->flags & CONF_FLAGS_TEMPORARY) ? 'd' : 'D',
 116                                 (aconf->flags & CONF_FLAGS_TEMPORARY) ?
 117                                  (long) ((aconf->hold - CurrentTime) / 60) : 0L,
 118                                 aconf->host, aconf->passwd);
 119
 120                         return 0;
 121                 }
 122         }
 123
 124         /* now look for a matching I/K/G */
 125         if((aconf = find_address_conf(host, NULL, username ? username : "dummy",
 126                                 (type != HM_HOST) ? (struct sockaddr *)&ip : NULL,
 127                                 (type != HM_HOST) ? (
 128 #ifdef IPV6
 129                                  (type == HM_IPV6) ? AF_INET6 :
 130 #endif
 131                                   AF_INET) : 0)))
 132         {
 133                 static char buf[HOSTLEN+USERLEN+2];
 134
 135                 if(aconf->status & CONF_KILL)
 136                 {
 137                         ircsnprintf(buf, sizeof(buf), "%s@%s",
 138                                         aconf->user, aconf->host);
 139                         sendto_one(source_p, form_str(RPL_TESTLINE),
 140                                 me.name, source_p->name,
 141                                 (aconf->flags & CONF_FLAGS_TEMPORARY) ? 'k' : 'K',
 142                                 (aconf->flags & CONF_FLAGS_TEMPORARY) ?
 143                                  (long) ((aconf->hold - CurrentTime) / 60) : 0L,
 144                                 buf, aconf->passwd);
 145                         return 0;
 146                 }
 147         }
 148
 149         /* they asked us to check a nick, so hunt for resvs.. */
 150         if(name && (resv_p = find_nick_resv(name)))
 151         {
 152                 sendto_one(source_p, form_str(RPL_TESTLINE),
 153                                 me.name, source_p->name,
 154                                 resv_p->hold ? 'q' : 'Q',
 155                                 resv_p->hold ? (long) ((resv_p->hold - CurrentTime) / 60) : 0L,
 156                                 resv_p->name, resv_p->passwd);
 157
 158                 /* this is a false positive, so make sure it isn't counted in stats q
 159                  * --nenolod
 160                  */
 161                 resv_p->port--;
 162                 return 0;
 163         }
 164
 165         /* no matching resv, we can print the I: if it exists */
 166         if(aconf && aconf->status & CONF_CLIENT)
 167         {
 168                 sendto_one_numeric(source_p, RPL_STATSILINE, form_str(RPL_STATSILINE),
 169                                 aconf->name, show_iline_prefix(source_p, aconf, aconf->user),
 170                                 aconf->host, aconf->port, aconf->className);
 171                 return 0;
 172         }
 173
 174         /* nothing matches.. */
 175         sendto_one(source_p, form_str(RPL_NOTESTLINE),
 176                         me.name, source_p->name, parv[1]);
 177         return 0;
 178 }
 179
 180 static int
 181 mo_testgecos(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
 182 {
 183         struct ConfItem *aconf;
 184
 185         if(!IsOperStaffer(source_p))
 186         {
 187                 sendto_one(source_p, form_str(ERR_NOPRIVS), me.name, source_p->name, "staffer");
 188                 return 0;
 189         }
 190
 191         if(!(aconf = find_xline(parv[1], 0)))
 192         {
 193                 sendto_one(source_p, form_str(RPL_NOTESTLINE),
 194                                 me.name, source_p->name, parv[1]);
 195                 return 0;
 196         }
 197
 198         sendto_one(source_p, form_str(RPL_TESTLINE),
 199                         me.name, source_p->name,
 200                         aconf->hold ? 'x' : 'X',
 201                         aconf->hold ? (long) ((aconf->hold - CurrentTime) / 60) : 0L,
 202                         aconf->name, aconf->passwd);
 203         return 0;
 204 }