modules/m_etrace.c

   1 /*
   2  *  ircd-ratbox: an advanced Internet Relay Chat Daemon(ircd).
   3  *  m_etrace.c: Gives local opers a trace output with added info.
   4  *
   5  *  Copyright (C) 2002-2003 Lee Hardy <lee@leeh.co.uk>
   6  *  Copyright (C) 2002-2005 ircd-ratbox development team
   7  *
   8  *  Redistribution and use in source and binary forms, with or without
   9  *  modification, are permitted provided that the following conditions are
  10  *  met:
  11  *
  12  *  1.Redistributions of source code must retain the above copyright notice,
  13  *    this list of conditions and the following disclaimer.
  14  *  2.Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer in the
  16  *    documentation and/or other materials provided with the distribution.
  17  *  3.The name of the author may not be used to endorse or promote products
  18  *    derived from this software without specific prior written permission.
  19  *
  20  *  THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  21  *  IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  22  *  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  23  *  DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
  24  *  INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  25  *  (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  26  *  SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  27  *  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  28  *  STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
  29  *  IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  30  *  POSSIBILITY OF SUCH DAMAGE.
  31  *
  32  *  $Id: m_etrace.c 3161 2007-01-25 07:23:01Z nenolod $
  33  */
  34
  35 #include "stdinc.h"
  36 #include "class.h"
  37 #include "hook.h"
  38 #include "client.h"
  39 #include "hash.h"
  40 #include "common.h"
  41 #include "hash.h"
  42 #include "match.h"
  43 #include "ircd.h"
  44 #include "numeric.h"
  45 #include "s_serv.h"
  46 #include "s_conf.h"
  47 #include "s_newconf.h"
  48 #include "send.h"
  49 #include "msg.h"
  50 #include "parse.h"
  51 #include "modules.h"
  52
  53 static int mo_etrace(struct Client *, struct Client *, int, const char **);
  54 static int me_etrace(struct Client *, struct Client *, int, const char **);
  55 static int m_chantrace(struct Client *, struct Client *, int, const char **);
  56 static int mo_masktrace(struct Client *, struct Client *, int, const char **);
  57
  58 struct Message etrace_msgtab = {
  59         "ETRACE", 0, 0, 0, MFLG_SLOW,
  60         {mg_ignore, mg_not_oper, mg_ignore, mg_ignore, {me_etrace, 0}, {mo_etrace, 0}}
  61 };
  62 struct Message chantrace_msgtab = {
  63         "CHANTRACE", 0, 0, 0, MFLG_SLOW,
  64         {mg_ignore, {m_chantrace, 2}, mg_ignore, mg_ignore, mg_ignore, {m_chantrace, 2}}
  65 };
  66 struct Message masktrace_msgtab = {
  67         "MASKTRACE", 0, 0, 0, MFLG_SLOW,
  68         {mg_ignore, mg_not_oper, mg_ignore, mg_ignore, mg_ignore, {mo_masktrace, 2}}
  69 };
  70
  71 mapi_clist_av1 etrace_clist[] = { &etrace_msgtab, &chantrace_msgtab, &masktrace_msgtab, NULL };
  72 DECLARE_MODULE_AV1(etrace, NULL, NULL, etrace_clist, NULL, NULL, "$Revision: 3161 $");
  73
  74 static void do_etrace(struct Client *source_p, int ipv4, int ipv6);
  75 static void do_etrace_full(struct Client *source_p);
  76 static void do_single_etrace(struct Client *source_p, struct Client *target_p);
  77
  78 static const char *empty_sockhost = "255.255.255.255";
  79 static const char *spoofed_sockhost = "0";
  80
  81 /*
  82  * m_etrace
  83  *      parv[1] = options [or target]
  84  *      parv[2] = [target]
  85  */
  86 static int
  87 mo_etrace(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
  88 {
  89         if(parc > 1 && !EmptyString(parv[1]))
  90         {
  91                 if(!irccmp(parv[1], "-full"))
  92                         do_etrace_full(source_p);
  93 #ifdef RB_IPV6
  94                 else if(!irccmp(parv[1], "-v6"))
  95                         do_etrace(source_p, 0, 1);
  96                 else if(!irccmp(parv[1], "-v4"))
  97                         do_etrace(source_p, 1, 0);
  98 #endif
  99                 else
 100                 {
 101                         struct Client *target_p = find_named_person(parv[1]);
 102
 103                         if(target_p)
 104                         {
 105                                 if(!MyClient(target_p))
 106                                         sendto_one(target_p, ":%s ENCAP %s ETRACE %s",
 107                                                 get_id(source_p, target_p),
 108                                                 target_p->servptr->name,
 109                                                 get_id(target_p, target_p));
 110                                 else
 111                                         do_single_etrace(source_p, target_p);
 112                         }
 113                         else
 114                                 sendto_one_numeric(source_p, ERR_NOSUCHNICK,
 115                                                 form_str(ERR_NOSUCHNICK), parv[1]);
 116                 }
 117         }
 118         else
 119                 do_etrace(source_p, 1, 1);
 120
 121         return 0;
 122 }
 123
 124 static int
 125 me_etrace(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
 126 {
 127         struct Client *target_p;
 128
 129         if(!IsOper(source_p) || parc < 2 || EmptyString(parv[1]))
 130                 return 0;
 131
 132         /* we cant etrace remote clients.. we shouldnt even get sent them */
 133         if((target_p = find_person(parv[1])) && MyClient(target_p))
 134                 do_single_etrace(source_p, target_p);
 135
 136         sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE),
 137                                 target_p ? target_p->name : parv[1]);
 138
 139         return 0;
 140 }
 141
 142 static void
 143 do_etrace(struct Client *source_p, int ipv4, int ipv6)
 144 {
 145         struct Client *target_p;
 146         rb_dlink_node *ptr;
 147
 148         /* report all direct connections */
 149         RB_DLINK_FOREACH(ptr, lclient_list.head)
 150         {
 151                 target_p = ptr->data;
 152
 153 #ifdef RB_IPV6
 154                 if((!ipv4 && target_p->localClient->ip.ss_family == AF_INET) ||
 155                    (!ipv6 && target_p->localClient->ip.ss_family == AF_INET6))
 156                         continue;
 157 #endif
 158
 159                 sendto_one(source_p, form_str(RPL_ETRACE),
 160                            me.name, source_p->name,
 161                            IsOper(target_p) ? "Oper" : "User",
 162                            get_client_class(target_p),
 163                            target_p->name, target_p->username, target_p->host,
 164                            show_ip(source_p, target_p) ? target_p->sockhost : "255.255.255.255",
 165                            target_p->info);
 166         }
 167
 168         sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), me.name);
 169 }
 170
 171 static void
 172 do_etrace_full(struct Client *source_p)
 173 {
 174         rb_dlink_node *ptr;
 175
 176         RB_DLINK_FOREACH(ptr, lclient_list.head)
 177         {
 178                 do_single_etrace(source_p, ptr->data);
 179         }
 180
 181         sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), me.name);
 182 }
 183
 184 /*
 185  * do_single_etrace  - searches local clients and displays those matching
 186  *                     a pattern
 187  * input             - source client, target client
 188  * output            - etrace results
 189  * side effects      - etrace results are displayed
 190  */
 191 static void
 192 do_single_etrace(struct Client *source_p, struct Client *target_p)
 193 {
 194         /* note, we hide fullcaps for spoofed users, as mirc can often
 195          * advertise its internal ip address in the field --fl
 196          */
 197         if(!show_ip(source_p, target_p))
 198                 sendto_one(source_p, form_str(RPL_ETRACEFULL),
 199                                 me.name, source_p->name,
 200                                 IsOper(target_p) ? "Oper" : "User",
 201                                 get_client_class(target_p),
 202                                 target_p->name, target_p->username, target_p->host,
 203                                 "255.255.255.255", "<hidden> <hidden>", target_p->info);
 204         else
 205                 sendto_one(source_p, form_str(RPL_ETRACEFULL),
 206                                 me.name, source_p->name,
 207                                 IsOper(target_p) ? "Oper" : "User",
 208                                 get_client_class(target_p),
 209                                 target_p->name, target_p->username,
 210                                 target_p->host, target_p->sockhost,
 211                                 target_p->localClient->fullcaps, target_p->info);
 212 }
 213
 214 static int
 215 m_chantrace(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
 216 {
 217         struct Client *target_p;
 218         struct Channel *chptr;
 219         struct membership *msptr;
 220         const char *sockhost;
 221         const char *name;
 222         rb_dlink_node *ptr;
 223         int operspy = 0;
 224
 225         name = parv[1];
 226
 227         if(IsOperSpy(source_p) && parv[1][0] == '!')
 228         {
 229                 name++;
 230                 operspy = 1;
 231
 232                 if(EmptyString(name))
 233                 {
 234                         sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS),
 235                                         me.name, source_p->name, "CHANTRACE");
 236                         return 0;
 237                 }
 238         }
 239
 240         if((chptr = find_channel(name)) == NULL)
 241         {
 242                 sendto_one_numeric(source_p, ERR_NOSUCHCHANNEL, form_str(ERR_NOSUCHCHANNEL),
 243                                 name);
 244                 return 0;
 245         }
 246
 247         /* dont report operspys for nonexistant channels. */
 248         if(operspy)
 249                 report_operspy(source_p, "CHANTRACE", chptr->chname);
 250
 251         if(!operspy && !IsMember(client_p, chptr))
 252         {
 253                 sendto_one_numeric(source_p, ERR_NOTONCHANNEL, form_str(ERR_NOTONCHANNEL),
 254                                 chptr->chname);
 255                 return 0;
 256         }
 257
 258         RB_DLINK_FOREACH(ptr, chptr->members.head)
 259         {
 260                 msptr = ptr->data;
 261                 target_p = msptr->client_p;
 262
 263                 if(EmptyString(target_p->sockhost))
 264                         sockhost = empty_sockhost;
 265                 else if(!show_ip(source_p, target_p))
 266                         sockhost = spoofed_sockhost;
 267                 else
 268                         sockhost = target_p->sockhost;
 269
 270                 sendto_one(source_p, form_str(RPL_ETRACE),
 271                                 me.name, source_p->name,
 272                                 IsOper(target_p) ? "Oper" : "User",
 273                                 /* class field -- pretend its server.. */
 274                                 target_p->servptr->name,
 275                                 target_p->name, target_p->username, target_p->host,
 276                                 sockhost, target_p->info);
 277         }
 278
 279         sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), me.name);
 280         return 0;
 281 }
 282
 283 static void
 284 match_masktrace(struct Client *source_p, rb_dlink_list *list,
 285         const char *username, const char *hostname, const char *name,
 286         const char *gecos)
 287 {
 288         struct Client *target_p;
 289         rb_dlink_node *ptr;
 290         const char *sockhost;
 291
 292         RB_DLINK_FOREACH(ptr, list->head)
 293         {
 294                 target_p = ptr->data;
 295                 if(!IsPerson(target_p))
 296                         continue;
 297
 298                 if(EmptyString(target_p->sockhost))
 299                         sockhost = empty_sockhost;
 300                 else if(!show_ip(source_p, target_p))
 301                         sockhost = spoofed_sockhost;
 302                 else
 303                         sockhost = target_p->sockhost;
 304
 305                 if(match(username, target_p->username) &&
 306                    (match(hostname, target_p->host) ||
 307                     match(hostname, target_p->orighost) ||
 308                     match(hostname, sockhost) || match_ips(hostname, sockhost)))
 309                 {
 310                         if(name != NULL && !match(name, target_p->name))
 311                                 continue;
 312
 313                         if(gecos != NULL && !match_esc(gecos, target_p->info))
 314                                 continue;
 315
 316                         sendto_one(source_p, form_str(RPL_ETRACE),
 317                                 me.name, source_p->name,
 318                                 IsOper(target_p) ? "Oper" : "User",
 319                                 /* class field -- pretend its server.. */
 320                                 target_p->servptr->name,
 321                                 target_p->name, target_p->username, target_p->host,
 322                                 sockhost, target_p->info);
 323                 }
 324         }
 325 }
 326
 327 static int
 328 mo_masktrace(struct Client *client_p, struct Client *source_p, int parc,
 329         const char *parv[])
 330 {
 331         char *name, *username, *hostname, *gecos;
 332         const char *mask;
 333         int operspy = 0;
 334
 335         mask = parv[1];
 336         name = LOCAL_COPY(parv[1]);
 337         collapse(name);
 338
 339         if(IsOperSpy(source_p) && parv[1][0] == '!')
 340         {
 341                 name++;
 342                 mask++;
 343                 operspy = 1;
 344         }
 345
 346         if(parc > 2 && !EmptyString(parv[2]))
 347         {
 348                 gecos = LOCAL_COPY(parv[2]);
 349                 collapse_esc(gecos);
 350         } else
 351                 gecos = NULL;
 352
 353
 354         if((hostname = strchr(name, '@')) == NULL)
 355         {
 356                 sendto_one_notice(source_p, ":Invalid parameters");
 357                 return 0;
 358         }
 359
 360         *hostname++ = '\0';
 361
 362         if((username = strchr(name, '!')) == NULL)
 363         {
 364                 username = name;
 365                 name = NULL;
 366         } else
 367                 *username++ = '\0';
 368
 369         if(EmptyString(username) || EmptyString(hostname))
 370         {
 371                 sendto_one_notice(source_p, ":Invalid parameters");
 372                 return 0;
 373         }
 374
 375         if(operspy) {
 376                 if (!ConfigFileEntry.operspy_dont_care_user_info)
 377                 {
 378                         char buf[512];
 379                         rb_strlcpy(buf, mask, sizeof(buf));
 380                         if(!EmptyString(gecos)) {
 381                                 rb_strlcat(buf, " ", sizeof(buf));
 382                                 rb_strlcat(buf, gecos, sizeof(buf));
 383                         }
 384
 385                         report_operspy(source_p, "MASKTRACE", buf);
 386                 }
 387                 match_masktrace(source_p, &global_client_list, username, hostname, name, gecos);
 388         } else
 389                 match_masktrace(source_p, &lclient_list, username, hostname, name, gecos);
 390
 391         sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), me.name);
 392         return 0;
 393 }