This repository has been archived on 2025-02-12. You can view files and clone it, but cannot push or open issues or pull requests.
NeoStats-NeoIRCd/modules/m_stats.c

1053 lines
30 KiB
C
Raw Normal View History

2002-08-13 14:34:25 +00:00
/*
* NeoIRCd: NeoStats Group. Based on Hybird7
2002-08-13 14:34:25 +00:00
* m_stats.c: Sends the user statistics or config information.
*
* Copyright (C) 2002 by the past and present ircd coders, and others.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307
* USA
*
* $Id: m_stats.c,v 1.8 2003/03/13 08:49:24 fishwaldo Exp $
2002-08-13 14:34:25 +00:00
*/
#include "stdinc.h"
#include "tools.h" /* dlink_node/dlink_list */
#include "handlers.h" /* m_pass prototype */
#include "class.h" /* report_classes */
#include "client.h" /* Client */
#include "common.h" /* TRUE/FALSE */
#include "irc_string.h"
#include "ircd.h" /* me */
#include "listener.h" /* show_ports */
#include "s_gline.h"
#include "ircd_handler.h"
#include "msg.h" /* Message */
#include "hostmask.h" /* report_mtrie_conf_links */
#include "numeric.h" /* ERR_xxx */
#include "scache.h" /* list_scache */
#include "send.h" /* sendto_one */
#include "fdlist.h" /* PF and friends */
#include "s_bsd.h" /* highest_fd */
#include "s_conf.h" /* ConfItem, report_configured_links */
#include "s_debug.h" /* send_usage */
#include "s_misc.h" /* serv_info */
#include "s_serv.h" /* hunt_server */
#include "s_stats.h" /* tstats */
#include "s_user.h" /* show_opers */
#include "event.h" /* events */
#include "linebuf.h"
#include "parse.h"
#include "modules.h"
#include "hook.h"
#include "resv.h" /* report_resv */
static void m_stats(struct Client*, struct Client*, int, char**);
static void mo_stats(struct Client*, struct Client*, int, char**);
static void ms_stats(struct Client*, struct Client*, int, char**);
struct Message stats_msgtab = {
"STATS", 0, 0, 2, 0, MFLG_SLOW, 0,
{m_unregistered, m_stats, ms_stats, mo_stats}
};
#ifndef STATIC_MODULES
void
_modinit(void)
{
hook_add_event("doing_stats");
hook_add_event("doing_stats_p");
mod_add_cmd(&stats_msgtab);
}
void
_moddeinit(void)
{
hook_del_event("doing_stats_p");
hook_del_event("doing_stats");
mod_del_cmd(&stats_msgtab);
}
const char *_version = "$Revision: 1.8 $";
2002-08-13 14:34:25 +00:00
#endif
const char* Lformat = ":%s %d %s %s %u %u %u %u %u :%u %u %s";
static char *parse_stats_args(int, char **, int *, int *);
static void stats_L(struct Client *, char *, int, int, char);
static void stats_L_list(struct Client *s, char *, int, int,
dlink_list *, char);
static void stats_spy(struct Client *, char);
static void stats_p_spy(struct Client *);
static void stats_L_spy(struct Client *, char, char *);
/* Heres our struct for the stats table */
struct StatsStruct
{
char letter;
void (*handler)();
int need_oper;
int need_admin;
};
static void stats_adns_servers(struct Client *);
static void stats_connect(struct Client *);
static void stats_deny(struct Client *);
static void stats_exempt(struct Client *);
static void stats_events(struct Client *);
static void stats_glines(struct Client *);
static void stats_hubleaf(struct Client *);
static void stats_auth(struct Client *);
static void stats_tklines(struct Client *);
static void stats_klines(struct Client *);
static void stats_messages(struct Client *);
static void stats_oper(struct Client *);
static void stats_operedup(struct Client *);
static void stats_ports(struct Client *);
static void stats_resv(struct Client *);
static void stats_usage(struct Client *);
static void stats_tstats(struct Client *);
static void stats_uptime(struct Client *);
static void stats_shared(struct Client *);
static void stats_servers(struct Client *);
static void stats_gecos(struct Client *);
static void stats_class(struct Client *);
static void stats_memory(struct Client *);
static void stats_servlinks(struct Client *);
static void stats_ltrace(struct Client *, int, char**);
static void stats_ziplinks(struct Client *);
/* This table contains the possible stats items, in order:
* /stats name, function to call, operonly? adminonly? /stats letter
* case only matters in the stats letter column.. -- fl_ */
static struct StatsStruct stats_cmd_table[] =
{
/* letter function need_oper need_admin */
{ 'a', stats_adns_servers, 1, 1, },
{ 'A', stats_adns_servers, 1, 1, },
{ 'c', stats_connect, 1, 0, },
{ 'C', stats_connect, 1, 0, },
{ 'd', stats_deny, 1, 0, },
{ 'D', stats_deny, 1, 0, },
{ 'e', stats_exempt, 1, 0, },
{ 'E', stats_events, 1, 1, },
{ 'f', fd_dump, 1, 1, },
{ 'F', fd_dump, 1, 1, },
{ 'g', stats_glines, 1, 0, },
{ 'G', stats_glines, 1, 0, },
{ 'h', stats_hubleaf, 1, 0, },
{ 'H', stats_hubleaf, 1, 0, },
{ 'i', stats_auth, 0, 0, },
{ 'I', stats_auth, 0, 0, },
{ 'k', stats_tklines, 0, 0, },
{ 'K', stats_klines, 0, 0, },
{ 'l', stats_ltrace, 1, 0, },
{ 'L', stats_ltrace, 1, 0, },
{ 'm', stats_messages, 0, 0, },
{ 'M', stats_messages, 0, 0, },
{ 'o', stats_oper, 0, 0, },
{ 'O', stats_oper, 0, 0, },
{ 'p', stats_operedup, 0, 0, },
{ 'P', stats_ports, 0, 0, },
{ 'q', stats_resv, 1, 0, },
{ 'Q', stats_resv, 1, 0, },
{ 'r', stats_usage, 1, 0, },
{ 'R', stats_usage, 1, 0, },
{ 't', stats_tstats, 1, 0, },
{ 'T', stats_tstats, 1, 0, },
{ 'u', stats_uptime, 0, 0, },
{ 'U', stats_shared, 1, 0, },
{ 'v', stats_servers, 1, 0, },
{ 'V', stats_servers, 1, 0, },
{ 'x', stats_gecos, 1, 0, },
{ 'X', stats_gecos, 1, 0, },
{ 'y', stats_class, 1, 0, },
{ 'Y', stats_class, 1, 0, },
{ 'z', stats_memory, 1, 0, },
{ 'Z', stats_ziplinks, 1, 0, },
{ '?', stats_servlinks, 0, 0, },
{ (char) 0, (void (*)()) 0, 0, 0, }
};
/*
* m_stats by fl_
* parv[0] = sender prefix
* parv[1] = stat letter/command
* parv[2] = (if present) server/mask in stats L
*
* This will search the tables for the appropriate stats letter/command,
* if found execute it.
*/
static void m_stats(struct Client *client_p, struct Client *source_p,
int parc, char *parv[])
{
int i;
char statchar;
static time_t last_used = 0;
/* Check the user is actually allowed to do /stats, and isnt flooding */
if((last_used + ConfigFileEntry.pace_wait) > CurrentTime)
{
/* safe enough to give this on a local connect only */
if(MyClient(source_p))
sendto_one(source_p,form_str(RPL_LOAD2HI),me.name,parv[0]);
return;
}
else
{
last_used = CurrentTime;
}
/* Is the stats meant for us? */
if (!ConfigServerHide.disable_remote)
{
if (hunt_server(client_p,source_p,":%s STATS %s :%s",2,parc,parv) != HUNTED_ISME)
return;
}
statchar = parv[1][0];
for (i=0; stats_cmd_table[i].handler; i++)
{
if (stats_cmd_table[i].letter == statchar)
{
/* The stats table says what privs are needed, so check --fl_ */
if(stats_cmd_table[i].need_oper || stats_cmd_table[i].need_admin)
{
sendto_one(source_p, form_str(ERR_NOPRIVILEGES),me.name,source_p->name);
break;
}
/* Blah, stats L needs the parameters, none of the others do.. */
if(statchar == 'L' || statchar == 'l')
stats_cmd_table[i].handler(source_p, parc, parv);
else
stats_cmd_table[i].handler(source_p);
}
}
/* Send the end of stats notice, and the stats_spy */
sendto_one(source_p, form_str(RPL_ENDOFSTATS), me.name, parv[0], parv[1]);
if((statchar != 'L') && (statchar != 'l'))
stats_spy(source_p, statchar);
}
/*
* mo_stats by fl_
* parv[0] = sender prefix
* parv[1] = stat letter/command
* parv[2] = (if present) server/mask in stats L, or target
*
* This will search the tables for the appropriate stats letter,
* if found execute it.
*/
static void mo_stats(struct Client *client_p, struct Client *source_p,
int parc, char *parv[])
{
int i;
char statchar;
if (hunt_server(client_p,source_p,":%s STATS %s :%s",2,parc,parv) != HUNTED_ISME)
return;
statchar=parv[1][0];
for (i=0; stats_cmd_table[i].handler; i++)
{
if (stats_cmd_table[i].letter == statchar)
{
/* The stats table says what privs are needed, so check --fl_ */
/* Called for remote clients and for local opers, so check need_admin
* and need_oper
*/
if((stats_cmd_table[i].need_admin && !IsOperAdmin(source_p)) ||
(stats_cmd_table[i].need_oper && !IsOper(source_p)))
{
sendto_one(source_p, form_str(ERR_NOPRIVILEGES),me.name,source_p->name);
break;
}
/* Blah, stats L needs the parameters, none of the others do.. */
if(statchar == 'L' || statchar == 'l')
stats_cmd_table[i].handler(source_p, parc, parv, statchar);
else
stats_cmd_table[i].handler(source_p);
}
}
/* Send the end of stats notice, and the stats_spy */
sendto_one(source_p, form_str(RPL_ENDOFSTATS), me.name, parv[0], parv[1]);
if((statchar != 'L') && (statchar != 'l'))
stats_spy(source_p, statchar);
}
static void stats_adns_servers(struct Client *source_p)
{
report_adns_servers(source_p);
}
static void stats_connect(struct Client *source_p)
{
report_configured_links(source_p, CONF_SERVER);
}
/* stats_deny()
*
* input - client to report to
* output - none
* side effects - client is given dline list.
*/
static void stats_deny(struct Client *source_p)
{
char *name, *host, *pass, *user, *classname;
struct AddressRec *arec;
struct ConfItem *aconf;
int i, port;
for (i=0; i < ATABLE_SIZE; i++)
{
for (arec = atable[i]; arec; arec=arec->next)
{
if (arec->type == CONF_DLINE)
{
aconf = arec->aconf;
get_printable_conf(aconf, &name, &host, &pass, &user, &port,
&classname);
sendto_one(source_p, form_str(RPL_STATSDLINE), me.name,
source_p->name, 'D', host, pass);
}
}
}
}
/* stats_exempt()
*
* input - client to report to
* output - none
* side effects - client is given list of exempt blocks
*/
static void stats_exempt(struct Client *source_p)
{
char *name, *host, *pass, *user, *classname;
struct AddressRec *arec;
struct ConfItem *aconf;
int i, port;
for (i=0; i<ATABLE_SIZE; i++)
{
for (arec = atable[i]; arec; arec=arec->next)
{
if (arec->type == CONF_EXEMPTDLINE)
{
aconf = arec->aconf;
get_printable_conf(aconf, &name, &host, &pass,
&user, &port, &classname);
sendto_one(source_p, form_str(RPL_STATSDLINE), me.name,
source_p->name, 'e', host, pass);
}
}
}
}
static void
stats_events(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
show_events(source_p);
}
/* stats_glines()
*
* input - client pointer
* output - none
* side effects - client is shown list of glines
*/
static void stats_glines(struct Client *source_p)
{
if(ConfigFileEntry.glines)
{
dlink_node *gline_node;
struct ConfItem *kill_ptr;
char *host;
char *name;
char *reason;
for(gline_node = glines.head; gline_node; gline_node = gline_node->next)
{
kill_ptr = gline_node->data;
if(kill_ptr->host)
host = kill_ptr->host;
else
host = "*";
if(kill_ptr->name)
name = kill_ptr->name;
else
name = "*";
if(kill_ptr->passwd)
reason = kill_ptr->passwd;
else
reason = "No Reason";
sendto_one(source_p, form_str(RPL_STATSKLINE), me.name,
source_p->name, 'G', host, name, reason);
}
}
else
sendto_one(source_p, ":%s NOTICE %s :This server does not support G-Lines",
me.name, source_p->name);
}
static void
stats_hubleaf(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
report_configured_links(source_p, CONF_HUB|CONF_LEAF);
}
static void
stats_auth(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
/* Oper only, if unopered, return ERR_NOPRIVS */
if((ConfigFileEntry.stats_i_oper_only == 2) && !IsOper(source_p))
sendto_one(source_p, form_str(ERR_NOPRIVILEGES),
me.name, source_p->name);
/* If unopered, Only return matching auth blocks */
else if((ConfigFileEntry.stats_i_oper_only == 1) && !IsOper(source_p))
{
struct ConfItem *aconf;
char *name, *host, *pass, *user, *classname;
int port;
if(MyConnect(source_p))
aconf = find_conf_by_address(source_p->host,
&source_p->localClient->ip,
CONF_CLIENT,
source_p->localClient->aftype,
source_p->username);
else
aconf = find_conf_by_address(source_p->host, NULL, CONF_CLIENT,
0, source_p->username);
if(aconf == NULL)
return;
get_printable_conf(aconf, &name, &host, &pass, &user,
&port, &classname);
sendto_one(source_p, form_str(RPL_STATSILINE), me.name,
source_p->name, (IsConfRestricted(aconf)) ? 'i' : 'I',
name, show_iline_prefix(source_p, aconf, user), host,
port, classname);
}
/* Theyre opered, or allowed to see all auth blocks */
else
report_auth(source_p);
}
static void
stats_tklines(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
/* Oper only, if unopered, return ERR_NOPRIVS */
if((ConfigFileEntry.stats_k_oper_only == 2) && !IsOper(source_p))
sendto_one(source_p, form_str(ERR_NOPRIVILEGES),
me.name, source_p->name);
/* If unopered, Only return matching klines */
else if((ConfigFileEntry.stats_k_oper_only == 1) && !IsOper(source_p))
{
struct ConfItem *aconf;
char *name, *host, *pass, *user, *classname;
int port;
if(MyConnect(source_p))
aconf = find_conf_by_address(source_p->host,
&source_p->localClient->ip,
CONF_KILL,
source_p->localClient->aftype,
source_p->username);
else
aconf = find_conf_by_address(source_p->host, NULL, CONF_KILL,
0, source_p->username);
if(aconf == NULL)
return;
/* dont report a permanent kline as a tkline */
if((aconf->flags & CONF_FLAGS_TEMPORARY) == 0)
return;
get_printable_conf(aconf, &name, &host, &pass, &user,
&port, &classname);
sendto_one(source_p, form_str(RPL_STATSKLINE), me.name,
source_p->name, 'k', host, user, pass);
}
/* Theyre opered, or allowed to see all klines */
else
report_Klines(source_p, 1);
}
static void
stats_klines(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
/* Oper only, if unopered, return ERR_NOPRIVS */
if((ConfigFileEntry.stats_k_oper_only == 2) && !IsOper(source_p))
sendto_one(source_p, form_str(ERR_NOPRIVILEGES),
me.name, source_p->name);
/* If unopered, Only return matching klines */
else if((ConfigFileEntry.stats_k_oper_only == 1) && !IsOper(source_p))
{
struct ConfItem *aconf;
char *name, *host, *pass, *user, *classname;
int port;
/* search for a kline */
if(MyConnect(source_p))
aconf = find_conf_by_address(source_p->host,
&source_p->localClient->ip,
CONF_KILL,
source_p->localClient->aftype,
source_p->username);
else
aconf = find_conf_by_address(source_p->host, NULL, CONF_KILL,
0, source_p->username);
if(aconf == NULL)
return;
/* dont report a tkline as a kline */
if(aconf->flags & CONF_FLAGS_TEMPORARY)
return;
get_printable_conf(aconf, &name, &host, &pass, &user,
&port, &classname);
sendto_one(source_p, form_str(RPL_STATSKLINE), me.name,
source_p->name, 'K', host, user, pass);
}
/* Theyre opered, or allowed to see all klines */
else
report_Klines(source_p, 0);
}
static void
stats_messages(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
report_messages(source_p);
}
static void
stats_oper(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
if (!IsOper(source_p) && ConfigFileEntry.stats_o_oper_only)
sendto_one(source_p, form_str(ERR_NOPRIVILEGES),me.name,source_p->name);
else
report_configured_links(source_p, CONF_OPERATOR);
}
/* stats_operedup()
*
* input - client pointer
* output - none
* side effects - client is shown a list of active opers
*/
static void
stats_operedup(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
struct Client *target_p;
struct ConfItem *aconf;
dlink_node *oper_ptr;
dlink_node *ptr;
int j=0;
for(oper_ptr = oper_list.head; oper_ptr; oper_ptr = oper_ptr->next)
{
target_p = oper_ptr->data;
j++;
if (MyClient(source_p) && IsOper(source_p))
{
ptr = target_p->localClient->confs.head;
aconf = ptr->data;
sendto_one(source_p, ":%s %d %s :[%c][%s] %s (%s@%s) Idle: %d",
me.name, RPL_STATSDEBUG, source_p->name,
IsOperAdmin(target_p) ? 'A' : 'O',
oper_privs_as_string(target_p, aconf->port),
target_p->name, target_p->username, target_p->host,
(int)(CurrentTime - target_p->user->last));
}
else
{
sendto_one(source_p, ":%s %d %s :[%c] %s (%s@%s) Idle: %d",
me.name, RPL_STATSDEBUG, source_p->name,
IsOperAdmin(target_p) ? 'A' : 'O',
target_p->name, target_p->username, target_p->vhost,
2002-08-13 14:34:25 +00:00
(int)(CurrentTime - target_p->user->last));
}
}
sendto_one(source_p, ":%s %d %s :%d OPER(s)", me.name, RPL_STATSDEBUG,
source_p->name, j);
stats_p_spy(source_p);
}
static void
stats_ports(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
if (!IsOper(source_p) && ConfigFileEntry.stats_P_oper_only)
sendto_one(source_p, form_str(ERR_NOPRIVILEGES),me.name,source_p->name);
else
show_ports(source_p);
}
static void
stats_resv(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
report_resv(source_p);
}
static void
stats_usage(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
send_usage(source_p);
}
static void
stats_tstats(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
tstats(source_p);
}
static void
stats_uptime(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
time_t now;
now = CurrentTime - me.since;
sendto_one(source_p, form_str(RPL_STATSUPTIME), me.name, source_p->name,
now/86400, (now/3600)%24, (now/60)%60, now%60);
if(!ConfigServerHide.disable_remote || IsOper(source_p))
sendto_one(source_p, form_str(RPL_STATSCONN), me.name, source_p->name,
MaxConnectionCount, MaxClientCount, Count.totalrestartcount);
}
static void
stats_shared(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
report_specials(source_p, CONF_ULINE, RPL_STATSULINE);
}
/* stats_servers()
*
* input - client pointer
* output - none
* side effects - client is shown lists of who connected servers
*/
static void
stats_servers(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
struct Client *target_p;
dlink_node *ptr;
int j=0;
DLINK_FOREACH(ptr, serv_list.head)
2002-08-13 14:34:25 +00:00
{
target_p = ptr->data;
j++;
sendto_one(source_p, ":%s %d %s :%s (%s!%s@%s) Idle: %d",
me.name, RPL_STATSDEBUG, source_p->name,
target_p->name,
(target_p->serv->by[0] ? target_p->serv->by : "Remote."),
"*", "*", (int)(CurrentTime - target_p->lasttime));
}
sendto_one(source_p, ":%s %d %s :%d Server(s)", me.name, RPL_STATSDEBUG,
source_p->name, j);
}
static void
stats_gecos(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
report_specials(source_p, CONF_XLINE, RPL_STATSXLINE);
}
static void
stats_class(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
report_classes(source_p);
}
static void
stats_memory(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
count_memory(source_p);
}
static void
stats_ziplinks(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
dlink_node *ptr;
struct Client *target_p;
int sent_data = 0;
DLINK_FOREACH(ptr, serv_list.head)
2002-08-13 14:34:25 +00:00
{
target_p = ptr->data;
if (IsCapable(target_p, CAP_ZIP))
{
/* we use memcpy(3) and a local copy of the structure to
* work around a register use bug on GCC on the SPARC.
* -jmallett, 04/27/2002
*/
struct ZipStats zipstats;
memcpy(&zipstats, &target_p->localClient->zipstats, sizeof (struct ZipStats));
sendto_one(source_p, ":%s %d %s :ZipLinks stats for %s send[%.2f%% compression (%lu bytes data/%lu bytes wire)] recv[%.2f%% compression (%lu bytes data/%lu bytes wire)]",
me.name, RPL_STATSDEBUG, source_p->name, target_p->name,
zipstats.out_ratio, zipstats.out, zipstats.out_wire,
zipstats.in_ratio, zipstats.in, zipstats.in_wire);
sent_data++;
}
}
sendto_one(source_p, ":%s %d %s :%u ziplink(s)",
me.name, RPL_STATSDEBUG, source_p->name, sent_data);
}
static void
stats_servlinks(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
2002-10-15 07:30:09 +00:00
static char Sformat[] = ":%s %d %s %s %u %u %u %u %u :%u %u %s %s";
2002-08-13 14:34:25 +00:00
long uptime, sendK, receiveK;
struct Client *target_p;
dlink_node *ptr;
int j = 0;
if(ConfigServerHide.flatten_links && !IsOper(source_p))
{
sendto_one(source_p, form_str(ERR_NOPRIVILEGES),me.name, source_p->name);
return;
}
sendK = receiveK = 0;
DLINK_FOREACH(ptr, serv_list.head)
2002-08-13 14:34:25 +00:00
{
target_p = ptr->data;
2002-10-15 07:30:09 +00:00
if (!IsOper(source_p) && target_p->hidden_server)
continue;
2002-08-13 14:34:25 +00:00
j++;
sendK += target_p->localClient->sendK;
receiveK += target_p->localClient->receiveK;
2002-10-15 07:30:09 +00:00
2002-08-13 14:34:25 +00:00
sendto_one(source_p, Sformat, me.name, RPL_STATSLINKINFO,
source_p->name,
IsOperAdmin(source_p) ? get_client_name(target_p, SHOW_IP)
: get_client_name(target_p, MASK_IP),
(int)linebuf_len(&target_p->localClient->buf_sendq),
(int)target_p->localClient->sendM,
(int)target_p->localClient->sendK,
(int)target_p->localClient->receiveM,
(int)target_p->localClient->receiveK,
CurrentTime - target_p->firsttime,
(CurrentTime > target_p->since) ? (CurrentTime - target_p->since): 0,
2002-10-15 07:30:09 +00:00
IsOper(source_p) ? show_capabilities(target_p) : "TS",
target_p->hidden_server ? "H" : "");
2002-08-13 14:34:25 +00:00
}
sendto_one(source_p, ":%s %d %s :%u total server(s)",
me.name, RPL_STATSDEBUG, source_p->name, j);
sendto_one(source_p, ":%s %d %s :Sent total : %7.2f %s",
me.name, RPL_STATSDEBUG, source_p->name,
_GMKv(sendK), _GMKs(sendK));
sendto_one(source_p, ":%s %d %s :Recv total : %7.2f %s",
me.name, RPL_STATSDEBUG, source_p->name,
_GMKv(receiveK), _GMKs(receiveK));
uptime = (CurrentTime - me.since);
sendto_one(source_p, ":%s %d %s :Server send: %7.2f %s (%4.1f K/s)",
me.name, RPL_STATSDEBUG, source_p->name,
_GMKv(me.localClient->sendK), _GMKs(me.localClient->sendK),
(float)((float)me.localClient->sendK / (float)uptime));
sendto_one(source_p, ":%s %d %s :Server recv: %7.2f %s (%4.1f K/s)",
me.name, RPL_STATSDEBUG, source_p->name,
_GMKv(me.localClient->receiveK),
_GMKs(me.localClient->receiveK),
(float)((float)me.localClient->receiveK / (float)uptime));
}
static void
stats_ltrace(struct Client *source_p, int parc, char *parv[])
2002-08-13 14:34:25 +00:00
{
int doall = 0;
int wilds = 0;
char *name=NULL;
char statchar;
if ((name = parse_stats_args(parc,parv,&doall,&wilds)) != NULL)
2002-08-13 14:34:25 +00:00
{
statchar=parv[1][0];
stats_L(source_p, name, doall, wilds, statchar);
stats_L_spy(source_p, statchar, name);
}
else
sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS),
me.name, source_p->name, "STATS");
return;
}
/*
* ms_stats - STATS message handler
* parv[0] = sender prefix
* parv[1] = statistics selector (defaults to Message frequency)
* parv[2] = server name (current server defaulted, if omitted)
*/
static void
ms_stats(struct Client *client_p, struct Client *source_p,
2002-08-13 14:34:25 +00:00
int parc, char *parv[])
{
if (hunt_server(client_p,source_p,":%s STATS %s :%s",2,parc,parv)!=HUNTED_ISME)
return;
if(IsClient(source_p))
mo_stats(client_p, source_p, parc, parv);
2002-08-13 14:34:25 +00:00
}
/*
* stats_L
*
* inputs - pointer to client to report to
* - doall flag
* - wild card or not
* output - NONE
* side effects -
*/
static void
stats_L(struct Client *source_p,char *name,int doall,
2002-08-13 14:34:25 +00:00
int wilds,char statchar)
{
stats_L_list(source_p, name, doall, wilds, &unknown_list, statchar);
stats_L_list(source_p, name, doall, wilds, &lclient_list, statchar);
stats_L_list(source_p, name, doall, wilds, &serv_list, statchar);
}
static void
stats_L_list(struct Client *source_p,char *name, int doall, int wilds,
2002-08-13 14:34:25 +00:00
dlink_list *list,char statchar)
{
dlink_node *ptr;
struct Client *target_p;
/*
* send info about connections which match, or all if the
* mask matches me.name. Only restrictions are on those who
* are invisible not being visible to 'foreigners' who use
* a wild card based search to list it.
*/
DLINK_FOREACH(ptr, list->head)
2002-08-13 14:34:25 +00:00
{
target_p = ptr->data;
if (IsInvisible(target_p) && (doall || wilds) &&
!(MyConnect(source_p) && IsOper(source_p)) &&
!IsOper(target_p) && (target_p != source_p))
continue;
if (!doall && wilds && !match(name, target_p->name))
continue;
if (!(doall || wilds) && irccmp(name, target_p->name))
continue;
/* This basically shows ips for our opers if its not a server/admin, or
* its one of our admins. */
if(MyClient(source_p) && IsOper(source_p) &&
(IsOperAdmin(source_p) ||
(!IsServer(target_p) && !IsAdmin(target_p) &&
!IsHandshake(target_p) && !IsConnecting(target_p))))
{
sendto_one(source_p, Lformat, me.name,
RPL_STATSLINKINFO, source_p->name,
(IsUpper(statchar)) ?
get_client_name(target_p, SHOW_IP) :
get_client_name(target_p, HIDE_IP),
(int)linebuf_len(&target_p->localClient->buf_sendq),
(int)target_p->localClient->sendM,
(int)target_p->localClient->sendK,
(int)target_p->localClient->receiveM,
(int)target_p->localClient->receiveK,
CurrentTime - target_p->firsttime,
(CurrentTime > target_p->since) ? (CurrentTime - target_p->since):0,
IsServer(target_p) ? show_capabilities(target_p) : "-");
}
else
{
/* If its a hidden ip, an admin, or a server, mask the real IP */
if(IsServer(target_p) || IsAdmin(target_p)
2002-08-13 14:34:25 +00:00
|| IsHandshake(target_p) || IsConnecting(target_p))
sendto_one(source_p, Lformat, me.name,
RPL_STATSLINKINFO, source_p->name,
get_client_name(target_p, MASK_IP),
(int)linebuf_len(&target_p->localClient->buf_sendq),
(int)target_p->localClient->sendM,
(int)target_p->localClient->sendK,
(int)target_p->localClient->receiveM,
(int)target_p->localClient->receiveK,
CurrentTime - target_p->firsttime,
(CurrentTime > target_p->since) ? (CurrentTime - target_p->since):0,
IsServer(target_p) ? show_capabilities(target_p) : "-");
else /* show the real IP */
sendto_one(source_p, Lformat, me.name,
RPL_STATSLINKINFO, source_p->name,
(IsUpper(statchar)) ?
get_client_name(target_p, SHOW_IP) :
get_client_name(target_p, HIDE_IP),
(int)linebuf_len(&target_p->localClient->buf_sendq),
(int)target_p->localClient->sendM,
(int)target_p->localClient->sendK,
(int)target_p->localClient->receiveM,
(int)target_p->localClient->receiveK,
CurrentTime - target_p->firsttime,
(CurrentTime > target_p->since) ? (CurrentTime - target_p->since):0,
IsServer(target_p) ? show_capabilities(target_p) : "-");
}
}
}
/*
* stats_spy
*
* inputs - pointer to client doing the /stats
* - char letter they are doing /stats on
* output - none
* side effects -
* This little helper function reports to opers if configured.
* personally, I don't see why opers need to see stats requests
* at all. They are just "noise" to an oper, and users can't do
* any damage with stats requests now anyway. So, why show them?
* -Dianora
*/
static void
stats_spy(struct Client *source_p, char statchar)
2002-08-13 14:34:25 +00:00
{
struct hook_stats_data data;
data.source_p = source_p;
data.statchar = statchar;
data.name = NULL;
hook_call_event("doing_stats", &data);
}
/* stats_p_spy()
*
* input - pointer to client doing stats
* ouput -
* side effects - call hook doing_stats_p
*/
static void
stats_p_spy(struct Client *source_p)
2002-08-13 14:34:25 +00:00
{
struct hook_stats_data data;
data.source_p = source_p;
data.name = NULL;
data.statchar = 'p';
hook_call_event("doing_stats_p", &data);
}
/*
* stats_L_spy
*
* inputs - pointer to source_p, client doing stats L
* - stat that they are doing 'L' 'l'
* - any name argument they have given
* output - NONE
* side effects - a notice is sent to opers, IF spy mode is configured
* in the conf file.
*/
static void
stats_L_spy(struct Client *source_p, char statchar, char *name)
2002-08-13 14:34:25 +00:00
{
struct hook_stats_data data;
data.source_p = source_p;
data.statchar = statchar;
data.name = name;
hook_call_event("doing_stats", &data);
}
/*
* parse_stats_args
*
* inputs - arg count
* - args
* - doall flag
* - wild card or not
* output - pointer to name to use
* side effects -
* common parse routine for m_stats args
*
*/
static char *
parse_stats_args(int parc,char *parv[],int *doall,int *wilds)
2002-08-13 14:34:25 +00:00
{
char *name;
if(parc > 2)
{
name = parv[2];
if (!irccmp(name, me.name))
*doall = 2;
else if (match(name, me.name))
*doall = 1;
if (strchr(name, '*') || strchr(name, '?'))
*wilds = 1;
return(name);
}
else
return(NULL);
}