1 /* modules/m_testline.c
3 * Copyright (C) 2004 Lee Hardy <lee@leeh.co.uk>
4 * Copyright (C) 2004-2005 ircd-ratbox development team
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions are
10 * 1.Redistributions of source code must retain the above copyright notice,
11 * this list of conditions and the following disclaimer.
12 * 2.Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3.The name of the author may not be used to endorse or promote products
16 * derived from this software without specific prior written permission.
18 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
20 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
21 * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
22 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
23 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
24 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
25 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
26 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
27 * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
28 * POSSIBILITY OF SUCH DAMAGE.
39 #include "s_newconf.h"
42 static const char testline_desc
[] = "Provides the ability to test I/K/D/X lines and RESVs";
44 static void mo_testline(struct MsgBuf
*, struct Client
*, struct Client
*, int, const char **);
45 static void mo_testkline(struct MsgBuf
*, struct Client
*, struct Client
*, int, const char **);
46 static void mo_testgecos(struct MsgBuf
*, struct Client
*, struct Client
*, int, const char **);
48 struct Message testline_msgtab
= {
49 "TESTLINE", 0, 0, 0, 0,
50 {mg_unreg
, mg_not_oper
, mg_ignore
, mg_ignore
, mg_ignore
, {mo_testline
, 2}}
52 struct Message testkline_msgtab
= {
53 "TESTKLINE", 0, 0, 0, 0,
54 {mg_unreg
, mg_not_oper
, mg_ignore
, mg_ignore
, mg_ignore
, {mo_testkline
, 2}}
56 struct Message testgecos_msgtab
= {
57 "TESTGECOS", 0, 0, 0, 0,
58 {mg_unreg
, mg_not_oper
, mg_ignore
, mg_ignore
, mg_ignore
, {mo_testgecos
, 2}}
61 mapi_clist_av1 testline_clist
[] = { &testline_msgtab
, &testkline_msgtab
, &testgecos_msgtab
, NULL
};
63 DECLARE_MODULE_AV2(testline
, NULL
, NULL
, testline_clist
, NULL
, NULL
, NULL
, NULL
, testline_desc
);
66 mo_testline(struct MsgBuf
*msgbuf_p
, struct Client
*client_p
, struct Client
*source_p
, int parc
, const char *parv
[])
68 struct ConfItem
*aconf
;
69 struct ConfItem
*resv_p
;
70 struct rb_sockaddr_storage ip
;
71 char user_trunc
[USERLEN
+ 1], notildeuser_trunc
[USERLEN
+ 1];
72 const char *name
= NULL
;
73 const char *username
= NULL
;
74 const char *host
= NULL
;
80 char *puser
, *phost
, *reason
, *operreason
;
81 char reasonbuf
[BUFSIZE
];
83 if (!HasPrivilege(source_p
, "oper:testline"))
85 sendto_one(source_p
, form_str(ERR_NOPRIVS
),
86 me
.name
, source_p
->name
, "testline");
90 mask
= LOCAL_COPY(parv
[1]);
92 if (IsChannelName(mask
))
94 resv_p
= hash_find_resv(mask
);
97 sendto_one(source_p
, form_str(RPL_TESTLINE
),
98 me
.name
, source_p
->name
,
99 resv_p
->hold
? 'q' : 'Q',
100 resv_p
->hold
? (long) ((resv_p
->hold
- rb_current_time()) / 60) : 0L,
101 resv_p
->host
, resv_p
->passwd
);
102 /* this is a false positive, so make sure it isn't counted in stats q
108 sendto_one(source_p
, form_str(RPL_NOTESTLINE
),
109 me
.name
, source_p
->name
, parv
[1]);
113 if((p
= strchr(mask
, '!')))
119 if(EmptyString(mask
))
121 sendto_one_notice(source_p
, "Invalid syntax for TESTLINE");
126 if((p
= strchr(mask
, '@')))
132 if(EmptyString(host
))
134 sendto_one_notice(source_p
, "Invalid syntax for TESTLINE");
141 /* parses as an IP, check for a dline */
142 if((type
= parse_netmask(host
, &ip
, &host_mask
)) != HM_HOST
)
145 aconf
= find_dline((struct sockaddr
*)&ip
, AF_INET6
);
147 aconf
= find_dline((struct sockaddr
*)&ip
, AF_INET
);
149 if(aconf
&& aconf
->status
& CONF_DLINE
)
151 get_printable_kline(source_p
, aconf
, &phost
, &reason
, &puser
, &operreason
);
152 snprintf(reasonbuf
, sizeof(reasonbuf
), "%s%s%s", reason
,
153 operreason
? "|" : "", operreason
? operreason
: "");
154 sendto_one(source_p
, form_str(RPL_TESTLINE
),
155 me
.name
, source_p
->name
,
156 (aconf
->flags
& CONF_FLAGS_TEMPORARY
) ? 'd' : 'D',
157 (aconf
->flags
& CONF_FLAGS_TEMPORARY
) ?
158 (long) ((aconf
->hold
- rb_current_time()) / 60) : 0L,
163 /* Otherwise, aconf is an exempt{} */
165 (duration
= is_reject_ip((struct sockaddr
*)&ip
)))
166 sendto_one(source_p
, form_str(RPL_TESTLINE
),
167 me
.name
, source_p
->name
,
170 host
, "Reject cache");
172 (duration
= is_throttle_ip((struct sockaddr
*)&ip
)))
173 sendto_one(source_p
, form_str(RPL_TESTLINE
),
174 me
.name
, source_p
->name
,
180 if (username
!= NULL
)
182 rb_strlcpy(user_trunc
, username
, sizeof user_trunc
);
183 rb_strlcpy(notildeuser_trunc
, *username
== '~' ? username
+ 1 : username
, sizeof notildeuser_trunc
);
187 rb_strlcpy(user_trunc
, "dummy", sizeof user_trunc
);
188 rb_strlcpy(notildeuser_trunc
, "dummy", sizeof notildeuser_trunc
);
190 /* now look for a matching I/K/G */
191 if((aconf
= find_address_conf(host
, NULL
, user_trunc
, notildeuser_trunc
,
192 (type
!= HM_HOST
) ? (struct sockaddr
*)&ip
: NULL
,
193 (type
!= HM_HOST
) ? (
194 (type
== HM_IPV6
) ? AF_INET6
:
195 AF_INET
) : 0, NULL
)))
197 static char buf
[HOSTLEN
+USERLEN
+2];
199 if(aconf
->status
& CONF_KILL
)
201 get_printable_kline(source_p
, aconf
, &phost
, &reason
, &puser
, &operreason
);
202 snprintf(buf
, sizeof(buf
), "%s@%s",
204 snprintf(reasonbuf
, sizeof(reasonbuf
), "%s%s%s", reason
,
205 operreason
? "|" : "", operreason
? operreason
: "");
206 sendto_one(source_p
, form_str(RPL_TESTLINE
),
207 me
.name
, source_p
->name
,
208 (aconf
->flags
& CONF_FLAGS_TEMPORARY
) ? 'k' : 'K',
209 (aconf
->flags
& CONF_FLAGS_TEMPORARY
) ?
210 (long) ((aconf
->hold
- rb_current_time()) / 60) : 0L,
216 /* they asked us to check a nick, so hunt for resvs.. */
217 if(name
&& (resv_p
= find_nick_resv(name
)))
219 sendto_one(source_p
, form_str(RPL_TESTLINE
),
220 me
.name
, source_p
->name
,
221 resv_p
->hold
? 'q' : 'Q',
222 resv_p
->hold
? (long) ((resv_p
->hold
- rb_current_time()) / 60) : 0L,
223 resv_p
->host
, resv_p
->passwd
);
225 /* this is a false positive, so make sure it isn't counted in stats q
232 /* no matching resv, we can print the I: if it exists */
233 if(aconf
&& aconf
->status
& CONF_CLIENT
)
235 sendto_one_numeric(source_p
, RPL_STATSILINE
, form_str(RPL_STATSILINE
),
236 aconf
->info
.name
, EmptyString(aconf
->spasswd
) ? "<NULL>" : aconf
->spasswd
,
237 show_iline_prefix(source_p
, aconf
, aconf
->user
),
238 aconf
->host
, aconf
->port
, aconf
->className
);
242 /* nothing matches.. */
243 sendto_one(source_p
, form_str(RPL_NOTESTLINE
),
244 me
.name
, source_p
->name
, parv
[1]);
249 mo_testkline(struct MsgBuf
*msgbuf_p
, struct Client
*client_p
, struct Client
*source_p
, int parc
, const char *parv
[])
251 struct ConfItem
*aconf
;
252 struct rb_sockaddr_storage ip
;
253 char user_trunc
[USERLEN
+ 1];
254 const char *username
= NULL
;
255 const char *host
= NULL
;
261 char *puser
, *phost
, *reason
, *operreason
;
262 char reasonbuf
[BUFSIZE
];
264 if (!HasPrivilege(source_p
, "oper:testline"))
266 sendto_one(source_p
, form_str(ERR_NOPRIVS
),
267 me
.name
, source_p
->name
, "testline");
271 mask
= LOCAL_COPY(parv
[1]);
273 if ((p
= strchr(mask
, '!')))
277 if(EmptyString(mask
))
279 sendto_one_notice(source_p
, "Invalid syntax for TESTKLINE");
284 if ((p
= strchr(mask
, '@')))
290 if(EmptyString(host
))
292 sendto_one_notice(source_p
, "Invalid syntax for TESTKLINE");
301 /* parses as an IP, check for a dline */
302 if ((type
= parse_netmask(host
, &ip
, &host_mask
)) != HM_HOST
)
305 aconf
= find_dline((struct sockaddr
*)&ip
, AF_INET6
);
307 aconf
= find_dline((struct sockaddr
*)&ip
, AF_INET
);
309 if(aconf
&& aconf
->status
& CONF_DLINE
)
311 get_printable_kline(source_p
, aconf
, &phost
, &reason
, &puser
, &operreason
);
312 snprintf(reasonbuf
, sizeof(reasonbuf
), "%s%s%s", reason
,
313 operreason
? "|" : "", operreason
? operreason
: "");
314 sendto_one(source_p
, form_str(RPL_TESTLINE
),
315 me
.name
, source_p
->name
,
316 (aconf
->flags
& CONF_FLAGS_TEMPORARY
) ? 'd' : 'D',
317 (aconf
->flags
& CONF_FLAGS_TEMPORARY
) ?
318 (long) ((aconf
->hold
- rb_current_time()) / 60) : 0L,
323 /* Otherwise, aconf is an exempt{} */
324 if (aconf
== NULL
&& (duration
= is_reject_ip((struct sockaddr
*)&ip
)))
325 sendto_one(source_p
, form_str(RPL_TESTLINE
),
326 me
.name
, source_p
->name
,
329 host
, "Reject cache");
330 if (aconf
== NULL
&& (duration
= is_throttle_ip((struct sockaddr
*)&ip
)))
331 sendto_one(source_p
, form_str(RPL_TESTLINE
),
332 me
.name
, source_p
->name
,
338 if (username
!= NULL
)
339 rb_strlcpy(user_trunc
, username
, sizeof user_trunc
);
341 rb_strlcpy(user_trunc
, "dummy", sizeof user_trunc
);
343 aconf
= find_conf_by_address(host
,
344 type
!= HM_HOST
? host
: NULL
,
346 type
!= HM_HOST
? (struct sockaddr
*)&ip
: NULL
,
348 type
== HM_IPV6
? AF_INET6
: AF_INET
,
351 if (aconf
!= NULL
&& aconf
->status
& CONF_KILL
)
353 static char buf
[HOSTLEN
+USERLEN
+2];
355 get_printable_kline(source_p
, aconf
, &phost
, &reason
, &puser
, &operreason
);
356 snprintf(buf
, sizeof(buf
), "%s@%s",
358 snprintf(reasonbuf
, sizeof(reasonbuf
), "%s%s%s", reason
,
359 operreason
? "|" : "", operreason
? operreason
: "");
360 sendto_one(source_p
, form_str(RPL_TESTLINE
),
361 me
.name
, source_p
->name
,
362 (aconf
->flags
& CONF_FLAGS_TEMPORARY
) ? 'k' : 'K',
363 (aconf
->flags
& CONF_FLAGS_TEMPORARY
) ?
364 (long) ((aconf
->hold
- rb_current_time()) / 60) : 0L,
369 sendto_one(source_p
, form_str(RPL_NOTESTLINE
),
370 me
.name
, source_p
->name
, parv
[1]);
374 mo_testgecos(struct MsgBuf
*msgbuf_p
, struct Client
*client_p
, struct Client
*source_p
, int parc
, const char *parv
[])
376 struct ConfItem
*aconf
;
378 if (!HasPrivilege(source_p
, "oper:testline"))
380 sendto_one(source_p
, form_str(ERR_NOPRIVS
),
381 me
.name
, source_p
->name
, "testline");
385 if(!(aconf
= find_xline(parv
[1], 0)))
387 sendto_one(source_p
, form_str(RPL_NOTESTLINE
),
388 me
.name
, source_p
->name
, parv
[1]);
392 sendto_one(source_p
, form_str(RPL_TESTLINE
),
393 me
.name
, source_p
->name
,
394 aconf
->hold
? 'x' : 'X',
395 aconf
->hold
? (long) ((aconf
->hold
- rb_current_time()) / 60) : 0L,
396 aconf
->host
, aconf
->passwd
);