ircd-hybrid-7.2/modules/m_links.c

/*
 *  ircd-hybrid: an advanced Internet Relay Chat Daemon(ircd).
 *  m_links.c: Shows what servers are currently connected.
 *
 *  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$
 */

#include "stdinc.h"
#include "handlers.h"
#include "client.h"
#include "irc_string.h"
#include "ircd.h"
#include "numeric.h"
#include "s_serv.h"
#include "send.h"
#include "s_conf.h"
#include "msg.h"
#include "motd.h"
#include "parse.h"
#include "modules.h"
#include "hook.h"

static void do_links(struct Client *, int, char **);
static void m_links(struct Client*, struct Client*, int, char**);
static void mo_links(struct Client*, struct Client*, int, char**);
static void ms_links(struct Client*, struct Client*, int, char**);

struct Message links_msgtab = {
  "LINKS", 0, 0, 0, 0, MFLG_SLOW, 0,
  {m_unregistered, m_links, ms_links, m_ignore, mo_links, m_ignore}
};

#ifndef STATIC_MODULES
const char *_version = "$Revision$";
static struct Callback *links_cb;

static void *
va_links(va_list args)
{
  struct Client *source_p = va_arg(args, struct Client *);
  int parc = va_arg(args, int);
  char **parv = va_arg(args, char **);

  do_links(source_p, parc, parv);
  return NULL;
}

void
_modinit(void)
{
  links_cb = register_callback("doing_links", va_links);
  mod_add_cmd(&links_msgtab);
}

void
_moddeinit(void)
{
  mod_del_cmd(&links_msgtab);
  uninstall_hook(links_cb, va_links);
}

#endif

static void
do_links(struct Client *source_p, int parc, char **parv)
{
  if (IsOper(source_p) || !ConfigServerHide.flatten_links)
  {
    char *mask = (parc > 2 ? parv[2] : parv[1]);
    const char *me_name, *nick, *p;
    struct Client *target_p;
    char clean_mask[2 * HOSTLEN + 4];
    dlink_node *ptr;

    if (mask == NULL)
      mask = "";
    if (*mask)       /* only necessary if there is a mask */
      mask = collapse(clean_string(clean_mask, (const unsigned char*) mask, 2 * HOSTLEN));

    me_name = ID_or_name(&me, source_p->from);
    nick = ID_or_name(source_p, source_p->from);

    DLINK_FOREACH(ptr, global_serv_list.head)
    {
      target_p = ptr->data;

      if (*mask && !match(mask, target_p->name))
        continue;
    
      if (target_p->info[0])
      {
        if ((p = strchr(target_p->info, ']')))
          p += 2; /* skip the nasty [IP] part */
        else
          p = target_p->info;
      } 
      else
        p = "(Unknown Location)";

      /* We just send the reply, as if they are here there's either no SHIDE,
       * or they're an oper..  
       */
      sendto_one(source_p, form_str(RPL_LINKS),
                 me_name, nick,
                 target_p->name, target_p->servptr->name,
                 target_p->hopcount, p);
    }
  
    sendto_one(source_p, form_str(RPL_ENDOFLINKS),
               me_name, nick,
               EmptyString(mask) ? "*" : mask);
  }
  else {
    /*
     * Print our own info so at least it looks like a normal links
     * then print out the file (which may or may not be empty)
     */
    sendto_one(source_p, form_str(RPL_LINKS),
               ID_or_name(&me, source_p->from),
               ID_or_name(source_p, source_p->from),
               me.name, me.name, 0, me.info);
    send_message_file(source_p, &ConfigFileEntry.linksfile);
    sendto_one(source_p, form_str(RPL_ENDOFLINKS),
               ID_or_name(&me, source_p->from),
               ID_or_name(source_p, source_p->from), "*");
  }
}

/*
 * m_links - LINKS message handler
 *      parv[0] = sender prefix
 *      parv[1] = servername mask
 * or
 *      parv[0] = sender prefix
 *      parv[1] = server to query 
 *      parv[2] = servername mask
 */
static void
m_links(struct Client *client_p, struct Client *source_p,
        int parc, char *parv[])
{
  static time_t last_used = 0;

  if ((last_used + ConfigFileEntry.pace_wait) > CurrentTime)
  {
    sendto_one(source_p, form_str(RPL_LOAD2HI),
               me.name, source_p->name);
    return;
  }
  else
    last_used = CurrentTime;

  if (!ConfigServerHide.flatten_links)
  {
    mo_links(client_p, source_p, parc, parv);
    return;
  }

#ifdef STATIC_MODULES
  do_links(source_p, parc, parv);
#else
  execute_callback(links_cb, source_p, parc, parv);
#endif
}

static void
mo_links(struct Client *client_p, struct Client *source_p,
         int parc, char *parv[])
{
  if (parc > 2) 
    if (!ConfigFileEntry.disable_remote || IsOper(source_p))
    {
        if (hunt_server(client_p, source_p, ":%s LINKS %s :%s", 1, parc, parv)
            != HUNTED_ISME)
        return;
    }

#ifdef STATIC_MODULES
  do_links(source_p, parc, parv);
#else
  execute_callback(links_cb, source_p, parc, parv);
#endif
}

/*
 * ms_links - LINKS message handler
 *      parv[0] = sender prefix
 *      parv[1] = servername mask
 * or
 *      parv[0] = sender prefix
 *      parv[1] = server to query 
 *      parv[2] = servername mask
 */
static void
ms_links(struct Client *client_p, struct Client *source_p,
         int parc, char *parv[])
{
  if (hunt_server(client_p, source_p, ":%s LINKS %s :%s", 1, parc, parv)
      != HUNTED_ISME)
    return;

  if (IsClient(source_p))
    m_links(client_p, source_p, parc, parv);
}
Revision:	269
Committed:	Mon Nov 14 19:39:09 2005 UTC (18 years, 5 months ago) by adx
Content type:	text/x-csrc
File size:	5867 byte(s)
Log Message:	+ more rate limiting fixes + update RELNOTES
#	Content
1	/*
2	* ircd-hybrid: an advanced Internet Relay Chat Daemon(ircd).
3	* m_links.c: Shows what servers are currently connected.
4	*
5	* Copyright (C) 2002 by the past and present ircd coders, and others.
6	*
7	* This program is free software; you can redistribute it and/or modify
8	* it under the terms of the GNU General Public License as published by
9	* the Free Software Foundation; either version 2 of the License, or
10	* (at your option) any later version.
11	*
12	* This program is distributed in the hope that it will be useful,
13	* but WITHOUT ANY WARRANTY; without even the implied warranty of
14	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15	* GNU General Public License for more details.
16	*
17	* You should have received a copy of the GNU General Public License
18	* along with this program; if not, write to the Free Software
19	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
20	* USA
21	*
22	* $Id$
23	*/
24
25	#include "stdinc.h"
26	#include "handlers.h"
27	#include "client.h"
28	#include "irc_string.h"
29	#include "ircd.h"
30	#include "numeric.h"
31	#include "s_serv.h"
32	#include "send.h"
33	#include "s_conf.h"
34	#include "msg.h"
35	#include "motd.h"
36	#include "parse.h"
37	#include "modules.h"
38	#include "hook.h"
39
40	static void do_links(struct Client , int, char *);
41	static void m_links(struct Client, struct Client, int, char**);
42	static void mo_links(struct Client, struct Client, int, char**);
43	static void ms_links(struct Client, struct Client, int, char**);
44
45	struct Message links_msgtab = {
46	"LINKS", 0, 0, 0, 0, MFLG_SLOW, 0,
47	{m_unregistered, m_links, ms_links, m_ignore, mo_links, m_ignore}
48	};
49
50	#ifndef STATIC_MODULES
51	const char *_version = "$Revision$";
52	static struct Callback *links_cb;
53
54	static void *
55	va_links(va_list args)
56	{
57	struct Client source_p = va_arg(args, struct Client );
58	int parc = va_arg(args, int);
59	char parv = va_arg(args, char );
60
61	do_links(source_p, parc, parv);
62	return NULL;
63	}
64
65	void
66	_modinit(void)
67	{
68	links_cb = register_callback("doing_links", va_links);
69	mod_add_cmd(&links_msgtab);
70	}
71
72	void
73	_moddeinit(void)
74	{
75	mod_del_cmd(&links_msgtab);
76	uninstall_hook(links_cb, va_links);
77	}
78
79	#endif
80
81	static void
82	do_links(struct Client source_p, int parc, char *parv)
83	{
84	if (IsOper(source_p) \|\| !ConfigServerHide.flatten_links)
85	{
86	char *mask = (parc > 2 ? parv[2] : parv[1]);
87	const char me_name, nick, *p;
88	struct Client *target_p;
89	char clean_mask[2 * HOSTLEN + 4];
90	dlink_node *ptr;
91
92	if (mask == NULL)
93	mask = "";
94	if (mask) / only necessary if there is a mask */
95	mask = collapse(clean_string(clean_mask, (const unsigned char) mask, 2 HOSTLEN));
96
97	me_name = ID_or_name(&me, source_p->from);
98	nick = ID_or_name(source_p, source_p->from);
99
100	DLINK_FOREACH(ptr, global_serv_list.head)
101	{
102	target_p = ptr->data;
103
104	if (*mask && !match(mask, target_p->name))
105	continue;
106
107	if (target_p->info[0])
108	{
109	if ((p = strchr(target_p->info, ']')))
110	p += 2; /* skip the nasty [IP] part */
111	else
112	p = target_p->info;
113	}
114	else
115	p = "(Unknown Location)";
116
117	/* We just send the reply, as if they are here there's either no SHIDE,
118	* or they're an oper..
119	*/
120	sendto_one(source_p, form_str(RPL_LINKS),
121	me_name, nick,
122	target_p->name, target_p->servptr->name,
123	target_p->hopcount, p);
124	}
125
126	sendto_one(source_p, form_str(RPL_ENDOFLINKS),
127	me_name, nick,
128	EmptyString(mask) ? "*" : mask);
129	}
130	else {
131	/*
132	* Print our own info so at least it looks like a normal links
133	* then print out the file (which may or may not be empty)
134	*/
135	sendto_one(source_p, form_str(RPL_LINKS),
136	ID_or_name(&me, source_p->from),
137	ID_or_name(source_p, source_p->from),
138	me.name, me.name, 0, me.info);
139	send_message_file(source_p, &ConfigFileEntry.linksfile);
140	sendto_one(source_p, form_str(RPL_ENDOFLINKS),
141	ID_or_name(&me, source_p->from),
142	ID_or_name(source_p, source_p->from), "*");
143	}
144	}
145
146	/*
147	* m_links - LINKS message handler
148	* parv[0] = sender prefix
149	* parv[1] = servername mask
150	* or
151	* parv[0] = sender prefix
152	* parv[1] = server to query
153	* parv[2] = servername mask
154	*/
155	static void
156	m_links(struct Client client_p, struct Client source_p,
157	int parc, char *parv[])
158	{
159	static time_t last_used = 0;
160
161	if ((last_used + ConfigFileEntry.pace_wait) > CurrentTime)
162	{
163	sendto_one(source_p, form_str(RPL_LOAD2HI),
164	me.name, source_p->name);
165	return;
166	}
167	else
168	last_used = CurrentTime;
169
170	if (!ConfigServerHide.flatten_links)
171	{
172	mo_links(client_p, source_p, parc, parv);
173	return;
174	}
175
176	#ifdef STATIC_MODULES
177	do_links(source_p, parc, parv);
178	#else
179	execute_callback(links_cb, source_p, parc, parv);
180	#endif
181	}
182
183	static void
184	mo_links(struct Client client_p, struct Client source_p,
185	int parc, char *parv[])
186	{
187	if (parc > 2)
188	if (!ConfigFileEntry.disable_remote \|\| IsOper(source_p))
189	{
190	if (hunt_server(client_p, source_p, ":%s LINKS %s :%s", 1, parc, parv)
191	!= HUNTED_ISME)
192	return;
193	}
194
195	#ifdef STATIC_MODULES
196	do_links(source_p, parc, parv);
197	#else
198	execute_callback(links_cb, source_p, parc, parv);
199	#endif
200	}
201
202	/*
203	* ms_links - LINKS message handler
204	* parv[0] = sender prefix
205	* parv[1] = servername mask
206	* or
207	* parv[0] = sender prefix
208	* parv[1] = server to query
209	* parv[2] = servername mask
210	*/
211	static void
212	ms_links(struct Client client_p, struct Client source_p,
213	int parc, char *parv[])
214	{
215	if (hunt_server(client_p, source_p, ":%s LINKS %s :%s", 1, parc, parv)
216	!= HUNTED_ISME)
217	return;
218
219	if (IsClient(source_p))
220	m_links(client_p, source_p, parc, parv);
221	}