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
  33 #include "stdinc.h"
  34 #include "class.h"
  35 #include "hook.h"
  36 #include "client.h"
  37 #include "hash.h"
  38 #include "common.h"
  39 #include "hash.h"
  40 #include "match.h"
  41 #include "ircd.h"
  42 #include "numeric.h"
  43 #include "s_serv.h"
  44 #include "s_conf.h"
  45 #include "s_newconf.h"
  46 #include "send.h"
  47 #include "msg.h"
  48 #include "parse.h"
  49 #include "modules.h"
  50 #include "logger.h"
  51 #include "supported.h"
  52
  53 static int mo_etrace(struct MsgBuf *, struct Client *, struct Client *, int, const char **);
  54 static int me_etrace(struct MsgBuf *, struct Client *, struct Client *, int, const char **);
  55 static int m_chantrace(struct MsgBuf *, struct Client *, struct Client *, int, const char **);
  56 static int mo_masktrace(struct MsgBuf *, struct Client *, struct Client *, int, const char **);
  57
  58 struct Message etrace_msgtab = {
  59         "ETRACE", 0, 0, 0, 0,
  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, 0,
  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, 0,
  68         {mg_ignore, mg_not_oper, mg_ignore, mg_ignore, mg_ignore, {mo_masktrace, 2}}
  69 };
  70
  71 static int
  72 _modinit(void)
  73 {
  74     add_isupport("ETRACE", isupport_string, "");
  75
  76     return 0;
  77 }
  78
  79 static void
  80 _moddeinit(void)
  81 {
  82     delete_isupport("ETRACE");
  83 }
  84
  85 mapi_clist_av1 etrace_clist[] = { &etrace_msgtab, &chantrace_msgtab, &masktrace_msgtab, NULL };
  86 DECLARE_MODULE_AV1(etrace, _modinit, _moddeinit, etrace_clist, NULL, NULL, "$Revision: 3161 $");
  87
  88 static void do_etrace(struct Client *source_p, int ipv4, int ipv6);
  89 static void do_etrace_full(struct Client *source_p);
  90 static void do_single_etrace(struct Client *source_p, struct Client *target_p);
  91
  92 static const char *empty_sockhost = "255.255.255.255";
  93 static const char *spoofed_sockhost = "0";
  94
  95 /*
  96  * m_etrace
  97  *      parv[1] = options [or target]
  98  *      parv[2] = [target]
  99  */
 100 static int
 101 mo_etrace(struct MsgBuf *msgbuf_p, struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
 102 {
 103         if(parc > 1 && !EmptyString(parv[1]))
 104         {
 105                 if(!irccmp(parv[1], "-full"))
 106                         do_etrace_full(source_p);
 107 #ifdef RB_IPV6
 108                 else if(!irccmp(parv[1], "-v6"))
 109                         do_etrace(source_p, 0, 1);
 110                 else if(!irccmp(parv[1], "-v4"))
 111                         do_etrace(source_p, 1, 0);
 112 #endif
 113                 else
 114                 {
 115                         struct Client *target_p = find_named_person(parv[1]);
 116
 117                         if(target_p)
 118                         {
 119                                 if(!MyClient(target_p))
 120                                         sendto_one(target_p, ":%s ENCAP %s ETRACE %s",
 121                                                 get_id(source_p, target_p),
 122                                                 target_p->servptr->name,
 123                                                 get_id(target_p, target_p));
 124                                 else
 125                                         do_single_etrace(source_p, target_p);
 126                         }
 127                         else
 128                                 sendto_one_numeric(source_p, ERR_NOSUCHNICK,
 129                                                 form_str(ERR_NOSUCHNICK), parv[1]);
 130                 }
 131         }
 132         else
 133                 do_etrace(source_p, 1, 1);
 134
 135         return 0;
 136 }
 137
 138 static int
 139 me_etrace(struct MsgBuf *msgbuf_p, struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
 140 {
 141         struct Client *target_p;
 142
 143         if(!IsOper(source_p) || parc < 2 || EmptyString(parv[1]))
 144                 return 0;
 145
 146         /* we cant etrace remote clients.. we shouldnt even get sent them */
 147         if((target_p = find_person(parv[1])) && MyClient(target_p))
 148                 do_single_etrace(source_p, target_p);
 149
 150         sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE),
 151                                 target_p ? target_p->name : parv[1]);
 152
 153         return 0;
 154 }
 155
 156 static void
 157 do_etrace(struct Client *source_p, int ipv4, int ipv6)
 158 {
 159         struct Client *target_p;
 160         rb_dlink_node *ptr;
 161
 162         /* report all direct connections */
 163         RB_DLINK_FOREACH(ptr, lclient_list.head)
 164         {
 165                 target_p = ptr->data;
 166
 167 #ifdef RB_IPV6
 168                 if((!ipv4 && target_p->localClient->ip.ss_family == AF_INET) ||
 169                    (!ipv6 && target_p->localClient->ip.ss_family == AF_INET6))
 170                         continue;
 171 #endif
 172
 173                 sendto_one(source_p, form_str(RPL_ETRACE),
 174                            me.name, source_p->name,
 175                            IsOper(target_p) ? "Oper" : "User",
 176                            get_client_class(target_p),
 177                            target_p->name, target_p->username, target_p->host,
 178                            show_ip(source_p, target_p) ? target_p->sockhost : "255.255.255.255",
 179                            target_p->info);
 180         }
 181
 182         sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), me.name);
 183 }
 184
 185 static void
 186 do_etrace_full(struct Client *source_p)
 187 {
 188         rb_dlink_node *ptr;
 189
 190         RB_DLINK_FOREACH(ptr, lclient_list.head)
 191         {
 192                 do_single_etrace(source_p, ptr->data);
 193         }
 194
 195         sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), me.name);
 196 }
 197
 198 /*
 199  * do_single_etrace  - searches local clients and displays those matching
 200  *                     a pattern
 201  * input             - source client, target client
 202  * output            - etrace results
 203  * side effects      - etrace results are displayed
 204  */
 205 static void
 206 do_single_etrace(struct Client *source_p, struct Client *target_p)
 207 {
 208         /* note, we hide fullcaps for spoofed users, as mirc can often
 209          * advertise its internal ip address in the field --fl
 210          */
 211         if(!show_ip(source_p, target_p))
 212                 sendto_one(source_p, form_str(RPL_ETRACEFULL),
 213                                 me.name, source_p->name,
 214                                 IsOper(target_p) ? "Oper" : "User",
 215                                 get_client_class(target_p),
 216                                 target_p->name, target_p->username, target_p->host,
 217                                 "255.255.255.255", "<hidden> <hidden>", target_p->info);
 218         else
 219                 sendto_one(source_p, form_str(RPL_ETRACEFULL),
 220                                 me.name, source_p->name,
 221                                 IsOper(target_p) ? "Oper" : "User",
 222                                 get_client_class(target_p),
 223                                 target_p->name, target_p->username,
 224                                 target_p->host, target_p->sockhost,
 225                                 target_p->localClient->fullcaps, target_p->info);
 226 }
 227
 228 static int
 229 m_chantrace(struct MsgBuf *msgbuf_p, struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
 230 {
 231         struct Client *target_p;
 232         struct Channel *chptr;
 233         struct membership *msptr;
 234         const char *sockhost;
 235         const char *name;
 236         rb_dlink_node *ptr;
 237         int operspy = 0;
 238
 239         name = parv[1];
 240
 241         if(IsOperSpy(source_p) && parv[1][0] == '!')
 242         {
 243                 name++;
 244                 operspy = 1;
 245
 246                 if(EmptyString(name))
 247                 {
 248                         sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS),
 249                                         me.name, source_p->name, "CHANTRACE");
 250                         return 0;
 251                 }
 252         }
 253
 254         if((chptr = find_channel(name)) == NULL)
 255         {
 256                 sendto_one_numeric(source_p, ERR_NOSUCHCHANNEL, form_str(ERR_NOSUCHCHANNEL),
 257                                 name);
 258                 return 0;
 259         }
 260
 261         /* dont report operspys for nonexistant channels. */
 262         if(operspy)
 263                 report_operspy(source_p, "CHANTRACE", chptr->chname);
 264
 265         if(!operspy && !IsMember(client_p, chptr))
 266         {
 267                 sendto_one_numeric(source_p, ERR_NOTONCHANNEL, form_str(ERR_NOTONCHANNEL),
 268                                 chptr->chname);
 269                 return 0;
 270         }
 271
 272         RB_DLINK_FOREACH(ptr, chptr->members.head)
 273         {
 274                 msptr = ptr->data;
 275                 target_p = msptr->client_p;
 276
 277                 if(EmptyString(target_p->sockhost))
 278                         sockhost = empty_sockhost;
 279                 else if(!show_ip(source_p, target_p))
 280                         sockhost = spoofed_sockhost;
 281                 else
 282                         sockhost = target_p->sockhost;
 283
 284                 sendto_one(source_p, form_str(RPL_ETRACE),
 285                                 me.name, source_p->name,
 286                                 IsOper(target_p) ? "Oper" : "User",
 287                                 /* class field -- pretend its server.. */
 288                                 target_p->servptr->name,
 289                                 target_p->name, target_p->username, target_p->host,
 290                                 sockhost, target_p->info);
 291         }
 292
 293         sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), me.name);
 294         return 0;
 295 }
 296
 297 static void
 298 match_masktrace(struct Client *source_p, rb_dlink_list *list,
 299         const char *username, const char *hostname, const char *name,
 300         const char *gecos)
 301 {
 302         struct Client *target_p;
 303         rb_dlink_node *ptr;
 304         const char *sockhost;
 305
 306         RB_DLINK_FOREACH(ptr, list->head)
 307         {
 308                 target_p = ptr->data;
 309                 if(!IsPerson(target_p))
 310                         continue;
 311
 312                 if(EmptyString(target_p->sockhost))
 313                         sockhost = empty_sockhost;
 314                 else if(!show_ip(source_p, target_p))
 315                         sockhost = spoofed_sockhost;
 316                 else
 317                         sockhost = target_p->sockhost;
 318
 319                 if(match(username, target_p->username) &&
 320                    (match(hostname, target_p->host) ||
 321                     match(hostname, target_p->orighost) ||
 322                     match(hostname, sockhost) || match_ips(hostname, sockhost)))
 323                 {
 324                         if(name != NULL && !match(name, target_p->name))
 325                                 continue;
 326
 327                         if(gecos != NULL && !match_esc(gecos, target_p->info))
 328                                 continue;
 329
 330                         sendto_one(source_p, form_str(RPL_ETRACE),
 331                                 me.name, source_p->name,
 332                                 IsOper(target_p) ? "Oper" : "User",
 333                                 /* class field -- pretend its server.. */
 334                                 target_p->servptr->name,
 335                                 target_p->name, target_p->username, target_p->host,
 336                                 sockhost, target_p->info);
 337                 }
 338         }
 339 }
 340
 341 static int
 342 mo_masktrace(struct MsgBuf *msgbuf_p, struct Client *client_p, struct Client *source_p, int parc,
 343         const char *parv[])
 344 {
 345         char *name, *username, *hostname, *gecos;
 346         const char *mask;
 347         int operspy = 0;
 348
 349         mask = parv[1];
 350         name = LOCAL_COPY(parv[1]);
 351         collapse(name);
 352
 353         if(IsOperSpy(source_p) && parv[1][0] == '!')
 354         {
 355                 name++;
 356                 mask++;
 357                 operspy = 1;
 358         }
 359
 360         if(parc > 2 && !EmptyString(parv[2]))
 361         {
 362                 gecos = LOCAL_COPY(parv[2]);
 363                 collapse_esc(gecos);
 364         } else
 365                 gecos = NULL;
 366
 367
 368         if((hostname = strchr(name, '@')) == NULL)
 369         {
 370                 sendto_one_notice(source_p, ":Invalid parameters");
 371                 return 0;
 372         }
 373
 374         *hostname++ = '\0';
 375
 376         if((username = strchr(name, '!')) == NULL)
 377         {
 378                 username = name;
 379                 name = NULL;
 380         } else
 381                 *username++ = '\0';
 382
 383         if(EmptyString(username) || EmptyString(hostname))
 384         {
 385                 sendto_one_notice(source_p, ":Invalid parameters");
 386                 return 0;
 387         }
 388
 389         if(operspy) {
 390                 if (!ConfigFileEntry.operspy_dont_care_user_info)
 391                 {
 392                         char buf[512];
 393                         rb_strlcpy(buf, mask, sizeof(buf));
 394                         if(!EmptyString(gecos)) {
 395                                 rb_strlcat(buf, " ", sizeof(buf));
 396                                 rb_strlcat(buf, gecos, sizeof(buf));
 397                         }
 398
 399                         report_operspy(source_p, "MASKTRACE", buf);
 400                 }
 401                 match_masktrace(source_p, &global_client_list, username, hostname, name, gecos);
 402         } else
 403                 match_masktrace(source_p, &lclient_list, username, hostname, name, gecos);
 404
 405         sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), me.name);
 406         return 0;
 407 }