/* * ircd-ratbox: an advanced Internet Relay Chat Daemon(ircd). * m_etrace.c: Gives local opers a trace output with added info. * * Copyright (C) 2002-2003 Lee Hardy * Copyright (C) 2002-2005 ircd-ratbox development team * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions are * met: * * 1.Redistributions of source code must retain the above copyright notice, * this list of conditions and the following disclaimer. * 2.Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3.The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. * * $Id: m_etrace.c 2775 2006-11-27 11:45:31Z jilles $ */ #include "stdinc.h" #include "class.h" #include "hook.h" #include "client.h" #include "hash.h" #include "common.h" #include "hash.h" #include "irc_string.h" #include "ircd.h" #include "numeric.h" #include "commio.h" #include "s_serv.h" #include "s_conf.h" #include "s_newconf.h" #include "send.h" #include "msg.h" #include "parse.h" #include "modules.h" static int mo_etrace(struct Client *, struct Client *, int, const char **); static int me_etrace(struct Client *, struct Client *, int, const char **); static int mo_chantrace(struct Client *, struct Client *, int, const char **); static int mo_masktrace(struct Client *, struct Client *, int, const char **); struct Message etrace_msgtab = { "ETRACE", 0, 0, 0, MFLG_SLOW, {mg_ignore, mg_not_oper, mg_ignore, mg_ignore, {me_etrace, 0}, {mo_etrace, 0}} }; struct Message chantrace_msgtab = { "CHANTRACE", 0, 0, 0, MFLG_SLOW, {mg_ignore, mg_not_oper, mg_ignore, mg_ignore, mg_ignore, {mo_chantrace, 2}} }; struct Message masktrace_msgtab = { "MASKTRACE", 0, 0, 0, MFLG_SLOW, {mg_ignore, mg_not_oper, mg_ignore, mg_ignore, mg_ignore, {mo_masktrace, 2}} }; mapi_clist_av1 etrace_clist[] = { &etrace_msgtab, &chantrace_msgtab, &masktrace_msgtab, NULL }; DECLARE_MODULE_AV1(etrace, NULL, NULL, etrace_clist, NULL, NULL, "$Revision: 2775 $"); static void do_etrace(struct Client *source_p, int ipv4, int ipv6); static void do_etrace_full(struct Client *source_p); static void do_single_etrace(struct Client *source_p, struct Client *target_p); static const char *empty_sockhost = "255.255.255.255"; static const char *spoofed_sockhost = "0"; /* * m_etrace * parv[0] = sender prefix * parv[1] = options [or target] * parv[2] = [target] */ static int mo_etrace(struct Client *client_p, struct Client *source_p, int parc, const char *parv[]) { if(parc > 1 && !EmptyString(parv[1])) { if(!irccmp(parv[1], "-full")) do_etrace_full(source_p); #ifdef IPV6 else if(!irccmp(parv[1], "-v6")) do_etrace(source_p, 0, 1); else if(!irccmp(parv[1], "-v4")) do_etrace(source_p, 1, 0); #endif else { struct Client *target_p = find_named_person(parv[1]); if(target_p) { if(!MyClient(target_p)) sendto_one(target_p, ":%s ENCAP %s ETRACE %s", get_id(source_p, target_p), target_p->user->server, get_id(target_p, target_p)); else do_single_etrace(source_p, target_p); } else sendto_one_numeric(source_p, ERR_NOSUCHNICK, form_str(ERR_NOSUCHNICK), parv[1]); } } else do_etrace(source_p, 1, 1); return 0; } static int me_etrace(struct Client *client_p, struct Client *source_p, int parc, const char *parv[]) { struct Client *target_p; if(!IsOper(source_p) || parc < 2 || EmptyString(parv[1])) return 0; /* we cant etrace remote clients.. we shouldnt even get sent them */ if((target_p = find_person(parv[1])) && MyClient(target_p)) do_single_etrace(source_p, target_p); sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), target_p ? target_p->name : parv[1]); return 0; } static void do_etrace(struct Client *source_p, int ipv4, int ipv6) { struct Client *target_p; dlink_node *ptr; /* report all direct connections */ DLINK_FOREACH(ptr, lclient_list.head) { target_p = ptr->data; #ifdef IPV6 if((!ipv4 && target_p->localClient->ip.ss_family == AF_INET) || (!ipv6 && target_p->localClient->ip.ss_family == AF_INET6)) continue; #endif sendto_one(source_p, form_str(RPL_ETRACE), me.name, source_p->name, IsOper(target_p) ? "Oper" : "User", get_client_class(target_p), target_p->name, target_p->username, target_p->host, show_ip(source_p, target_p) ? target_p->sockhost : "255.255.255.255", target_p->info); } sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), me.name); } static void do_etrace_full(struct Client *source_p) { dlink_node *ptr; DLINK_FOREACH(ptr, lclient_list.head) { do_single_etrace(source_p, ptr->data); } sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), me.name); } /* * do_single_etrace - searches local clients and displays those matching * a pattern * input - source client, target client * output - etrace results * side effects - etrace results are displayed */ static void do_single_etrace(struct Client *source_p, struct Client *target_p) { /* note, we hide fullcaps for spoofed users, as mirc can often * advertise its internal ip address in the field --fl */ if(!show_ip(source_p, target_p)) sendto_one(source_p, form_str(RPL_ETRACEFULL), me.name, source_p->name, IsOper(target_p) ? "Oper" : "User", get_client_class(target_p), target_p->name, target_p->username, target_p->host, "255.255.255.255", " ", target_p->info); else sendto_one(source_p, form_str(RPL_ETRACEFULL), me.name, source_p->name, IsOper(target_p) ? "Oper" : "User", get_client_class(target_p), target_p->name, target_p->username, target_p->host, target_p->sockhost, target_p->localClient->fullcaps, target_p->info); } static int mo_chantrace(struct Client *client_p, struct Client *source_p, int parc, const char *parv[]) { struct Client *target_p; struct Channel *chptr; struct membership *msptr; const char *sockhost; const char *name; dlink_node *ptr; int operspy = 0; name = parv[1]; if(IsOperSpy(source_p) && parv[1][0] == '!') { name++; operspy = 1; if(EmptyString(name)) { sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS), me.name, source_p->name, "CHANTRACE"); return 0; } } if((chptr = find_channel(name)) == NULL) { sendto_one_numeric(source_p, ERR_NOSUCHCHANNEL, form_str(ERR_NOSUCHCHANNEL), name); return 0; } /* dont report operspys for nonexistant channels. */ if(operspy) report_operspy(source_p, "CHANTRACE", chptr->chname); if(!operspy && !IsMember(client_p, chptr)) { sendto_one_numeric(source_p, ERR_NOTONCHANNEL, form_str(ERR_NOTONCHANNEL), chptr->chname); return 0; } DLINK_FOREACH(ptr, chptr->members.head) { msptr = ptr->data; target_p = msptr->client_p; if(EmptyString(target_p->sockhost)) sockhost = empty_sockhost; else if(!show_ip(source_p, target_p)) sockhost = spoofed_sockhost; else sockhost = target_p->sockhost; sendto_one(source_p, form_str(RPL_ETRACE), me.name, source_p->name, IsOper(target_p) ? "Oper" : "User", /* class field -- pretend its server.. */ target_p->servptr->name, target_p->name, target_p->username, target_p->host, sockhost, target_p->info); } sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), me.name); return 0; } static void match_masktrace(struct Client *source_p, dlink_list *list, const char *username, const char *hostname, const char *name, const char *gecos) { struct Client *target_p; dlink_node *ptr; const char *sockhost; char *mangle_gecos = NULL; if(gecos != NULL) { if(strstr(gecos, "\\s")) { char *tmp = LOCAL_COPY(gecos); char *orig = tmp; char *new = tmp; while(*orig) { if(*orig == '\\' && *(orig + 1) != '\0') { if(*(orig + 1) == 's') { *new++ = ' '; orig += 2; } /* otherwise skip that and the escaped * character after it, so we dont mistake * \\s as \s --fl */ else { *new++ = *orig++; *new++ = *orig++; } } else *new++ = *orig++; } *new = '\0'; mangle_gecos = LOCAL_COPY(tmp); } else mangle_gecos = LOCAL_COPY(gecos); } DLINK_FOREACH(ptr, list->head) { target_p = ptr->data; if(!IsPerson(target_p)) continue; if(EmptyString(target_p->sockhost)) sockhost = empty_sockhost; else if(!show_ip(source_p, target_p)) sockhost = spoofed_sockhost; else sockhost = target_p->sockhost; if(match(username, target_p->username) && (match(hostname, target_p->host) || match(hostname, target_p->orighost) || match(hostname, sockhost) || match_ips(hostname, sockhost))) { if(name != NULL && !match(name, target_p->name)) continue; if(mangle_gecos != NULL && !match_esc(mangle_gecos, target_p->info)) continue; sendto_one(source_p, form_str(RPL_ETRACE), me.name, source_p->name, IsOper(target_p) ? "Oper" : "User", /* class field -- pretend its server.. */ target_p->servptr->name, target_p->name, target_p->username, target_p->host, sockhost, target_p->info); } } } static int mo_masktrace(struct Client *client_p, struct Client *source_p, int parc, const char *parv[]) { char *name, *username, *hostname, *gecos; const char *mask; int operspy = 0; mask = parv[1]; name = LOCAL_COPY(parv[1]); collapse(name); if(IsOperSpy(source_p) && parv[1][0] == '!') { name++; mask++; operspy = 1; } if(parc > 2 && !EmptyString(parv[2])) { gecos = LOCAL_COPY(parv[2]); collapse_esc(gecos); } else gecos = NULL; if((hostname = strchr(name, '@')) == NULL) { sendto_one(source_p, ":%s NOTICE %s :Invalid parameters", me.name, source_p->name); return 0; } *hostname++ = '\0'; if((username = strchr(name, '!')) == NULL) { username = name; name = NULL; } else *username++ = '\0'; if(EmptyString(username) || EmptyString(hostname)) { sendto_one(source_p, ":%s NOTICE %s :Invalid parameters", me.name, source_p->name); return 0; } if(operspy) { if (!ConfigFileEntry.operspy_dont_care_user_info) { char buf[512]; strlcpy(buf, mask, sizeof(buf)); if(!EmptyString(gecos)) { strlcat(buf, " ", sizeof(buf)); strlcat(buf, gecos, sizeof(buf)); } report_operspy(source_p, "MASKTRACE", buf); } match_masktrace(source_p, &global_client_list, username, hostname, name, gecos); } else match_masktrace(source_p, &lclient_list, username, hostname, name, gecos); sendto_one_numeric(source_p, RPL_ENDOFTRACE, form_str(RPL_ENDOFTRACE), me.name); return 0; }