]> jfr.im git - irc/rqf/shadowircd.git/blob - src/s_newconf.c
WHOIS 330 (services login name) does not need a remote whois.
[irc/rqf/shadowircd.git] / src / s_newconf.c
1 /*
2 * ircd-ratbox: an advanced Internet Relay Chat Daemon(ircd).
3 * s_newconf.c - code for dealing with conf stuff
4 *
5 * Copyright (C) 2004 Lee Hardy <lee@leeh.co.uk>
6 * Copyright (C) 2004-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 * $Id: s_newconf.c 3508 2007-06-04 16:04:49Z jilles $
33 */
34
35 #include "stdinc.h"
36 #include "ircd_defs.h"
37 #include "common.h"
38 #include "s_conf.h"
39 #include "s_newconf.h"
40 #include "client.h"
41 #include "s_serv.h"
42 #include "send.h"
43 #include "hostmask.h"
44 #include "newconf.h"
45 #include "hash.h"
46 #include "irc_dictionary.h"
47
48 rb_dlink_list shared_conf_list;
49 rb_dlink_list cluster_conf_list;
50 rb_dlink_list oper_conf_list;
51 rb_dlink_list hubleaf_conf_list;
52 rb_dlink_list server_conf_list;
53 rb_dlink_list xline_conf_list;
54 rb_dlink_list resv_conf_list; /* nicks only! */
55 rb_dlink_list nd_list; /* nick delay */
56 rb_dlink_list tgchange_list;
57
58 rb_patricia_tree_t *tgchange_tree;
59
60 static rb_bh *nd_heap = NULL;
61
62 static void expire_temp_rxlines(void *unused);
63 static void expire_nd_entries(void *unused);
64
65 struct ev_entry *expire_nd_entries_ev = NULL;
66 struct ev_entry *expire_temp_rxlines_ev = NULL;
67
68 void
69 init_s_newconf(void)
70 {
71 tgchange_tree = rb_new_patricia(PATRICIA_BITS);
72 nd_heap = rb_bh_create(sizeof(struct nd_entry), ND_HEAP_SIZE, "nd_heap");
73 expire_nd_entries_ev = rb_event_addish("expire_nd_entries", expire_nd_entries, NULL, 30);
74 expire_temp_rxlines_ev = rb_event_addish("expire_temp_rxlines", expire_temp_rxlines, NULL, 60);
75 }
76
77 void
78 clear_s_newconf(void)
79 {
80 struct server_conf *server_p;
81 rb_dlink_node *ptr;
82 rb_dlink_node *next_ptr;
83
84 RB_DLINK_FOREACH_SAFE(ptr, next_ptr, shared_conf_list.head)
85 {
86 /* ptr here is ptr->data->node */
87 rb_dlinkDelete(ptr, &shared_conf_list);
88 free_remote_conf(ptr->data);
89 }
90
91 RB_DLINK_FOREACH_SAFE(ptr, next_ptr, cluster_conf_list.head)
92 {
93 rb_dlinkDelete(ptr, &cluster_conf_list);
94 free_remote_conf(ptr->data);
95 }
96
97 RB_DLINK_FOREACH_SAFE(ptr, next_ptr, hubleaf_conf_list.head)
98 {
99 rb_dlinkDelete(ptr, &hubleaf_conf_list);
100 free_remote_conf(ptr->data);
101 }
102
103 RB_DLINK_FOREACH_SAFE(ptr, next_ptr, oper_conf_list.head)
104 {
105 free_oper_conf(ptr->data);
106 rb_dlinkDestroy(ptr, &oper_conf_list);
107 }
108
109 RB_DLINK_FOREACH_SAFE(ptr, next_ptr, server_conf_list.head)
110 {
111 server_p = ptr->data;
112
113 if(!server_p->servers)
114 {
115 rb_dlinkDelete(ptr, &server_conf_list);
116 free_server_conf(ptr->data);
117 }
118 else
119 server_p->flags |= SERVER_ILLEGAL;
120 }
121 }
122
123 void
124 clear_s_newconf_bans(void)
125 {
126 struct ConfItem *aconf;
127 rb_dlink_node *ptr, *next_ptr;
128
129 RB_DLINK_FOREACH_SAFE(ptr, next_ptr, xline_conf_list.head)
130 {
131 aconf = ptr->data;
132
133 if(aconf->hold)
134 continue;
135
136 free_conf(aconf);
137 rb_dlinkDestroy(ptr, &xline_conf_list);
138 }
139
140 RB_DLINK_FOREACH_SAFE(ptr, next_ptr, resv_conf_list.head)
141 {
142 aconf = ptr->data;
143
144 /* temporary resv */
145 if(aconf->hold)
146 continue;
147
148 free_conf(aconf);
149 rb_dlinkDestroy(ptr, &resv_conf_list);
150 }
151
152 clear_resv_hash();
153 }
154
155 struct remote_conf *
156 make_remote_conf(void)
157 {
158 struct remote_conf *remote_p = rb_malloc(sizeof(struct remote_conf));
159 return remote_p;
160 }
161
162 void
163 free_remote_conf(struct remote_conf *remote_p)
164 {
165 s_assert(remote_p != NULL);
166 if(remote_p == NULL)
167 return;
168
169 rb_free(remote_p->username);
170 rb_free(remote_p->host);
171 rb_free(remote_p->server);
172 rb_free(remote_p);
173 }
174
175 int
176 find_shared_conf(const char *username, const char *host,
177 const char *server, int flags)
178 {
179 struct remote_conf *shared_p;
180 rb_dlink_node *ptr;
181
182 RB_DLINK_FOREACH(ptr, shared_conf_list.head)
183 {
184 shared_p = ptr->data;
185
186 if(match(shared_p->username, username) &&
187 match(shared_p->host, host) &&
188 match(shared_p->server, server))
189 {
190 if(shared_p->flags & flags)
191 return YES;
192 else
193 return NO;
194 }
195 }
196
197 return NO;
198 }
199
200 void
201 propagate_generic(struct Client *source_p, const char *command,
202 const char *target, int cap, const char *format, ...)
203 {
204 char buffer[BUFSIZE];
205 va_list args;
206
207 va_start(args, format);
208 rb_vsnprintf(buffer, sizeof(buffer), format, args);
209 va_end(args);
210
211 sendto_match_servs(source_p, target, cap, NOCAPS,
212 "%s %s %s",
213 command, target, buffer);
214 sendto_match_servs(source_p, target, CAP_ENCAP, cap,
215 "ENCAP %s %s %s",
216 target, command, buffer);
217 }
218
219 void
220 cluster_generic(struct Client *source_p, const char *command,
221 int cltype, int cap, const char *format, ...)
222 {
223 char buffer[BUFSIZE];
224 struct remote_conf *shared_p;
225 va_list args;
226 rb_dlink_node *ptr;
227
228 va_start(args, format);
229 rb_vsnprintf(buffer, sizeof(buffer), format, args);
230 va_end(args);
231
232 RB_DLINK_FOREACH(ptr, cluster_conf_list.head)
233 {
234 shared_p = ptr->data;
235
236 if(!(shared_p->flags & cltype))
237 continue;
238
239 sendto_match_servs(source_p, shared_p->server, cap, NOCAPS,
240 "%s %s %s",
241 command, shared_p->server, buffer);
242 sendto_match_servs(source_p, shared_p->server, CAP_ENCAP, cap,
243 "ENCAP %s %s %s",
244 shared_p->server, command, buffer);
245 }
246 }
247
248 struct oper_conf *
249 make_oper_conf(void)
250 {
251 struct oper_conf *oper_p = rb_malloc(sizeof(struct oper_conf));
252 return oper_p;
253 }
254
255 void
256 free_oper_conf(struct oper_conf *oper_p)
257 {
258 s_assert(oper_p != NULL);
259 if(oper_p == NULL)
260 return;
261
262 rb_free(oper_p->username);
263 rb_free(oper_p->host);
264 rb_free(oper_p->name);
265
266 if(oper_p->passwd)
267 {
268 memset(oper_p->passwd, 0, strlen(oper_p->passwd));
269 rb_free(oper_p->passwd);
270 }
271
272 #ifdef HAVE_LIBCRYPTO
273 rb_free(oper_p->rsa_pubkey_file);
274
275 if(oper_p->rsa_pubkey)
276 RSA_free(oper_p->rsa_pubkey);
277 #endif
278
279 rb_free(oper_p);
280 }
281
282 struct oper_conf *
283 find_oper_conf(const char *username, const char *host, const char *locip, const char *name)
284 {
285 struct oper_conf *oper_p;
286 struct rb_sockaddr_storage ip, cip;
287 char addr[HOSTLEN+1];
288 int bits, cbits;
289 rb_dlink_node *ptr;
290
291 parse_netmask(locip, (struct sockaddr *)&cip, &cbits);
292
293 RB_DLINK_FOREACH(ptr, oper_conf_list.head)
294 {
295 oper_p = ptr->data;
296
297 /* name/username doesnt match.. */
298 if(irccmp(oper_p->name, name) || !match(oper_p->username, username))
299 continue;
300
301 rb_strlcpy(addr, oper_p->host, sizeof(addr));
302
303 if(parse_netmask(addr, (struct sockaddr *)&ip, &bits) != HM_HOST)
304 {
305 if(ip.ss_family == cip.ss_family &&
306 comp_with_mask_sock((struct sockaddr *)&ip, (struct sockaddr *)&cip, bits))
307 return oper_p;
308 }
309
310 /* we have to compare against the host as well, because its
311 * valid to set a spoof to an IP, which if we only compare
312 * in ip form to sockhost will not necessarily match --anfl
313 */
314 if(match(oper_p->host, host))
315 return oper_p;
316 }
317
318 return NULL;
319 }
320
321 struct server_conf *
322 make_server_conf(void)
323 {
324 struct server_conf *server_p = rb_malloc(sizeof(struct server_conf));
325 server_p->aftype = AF_INET;
326 return server_p;
327 }
328
329 void
330 free_server_conf(struct server_conf *server_p)
331 {
332 s_assert(server_p != NULL);
333 if(server_p == NULL)
334 return;
335
336 if(!EmptyString(server_p->passwd))
337 {
338 memset(server_p->passwd, 0, strlen(server_p->passwd));
339 rb_free(server_p->passwd);
340 }
341
342 if(!EmptyString(server_p->spasswd))
343 {
344 memset(server_p->spasswd, 0, strlen(server_p->spasswd));
345 rb_free(server_p->spasswd);
346 }
347
348 rb_free(server_p->name);
349 rb_free(server_p->host);
350 rb_free(server_p->class_name);
351 rb_free(server_p);
352 }
353
354 void
355 add_server_conf(struct server_conf *server_p)
356 {
357 if(EmptyString(server_p->class_name))
358 {
359 server_p->class_name = rb_strdup("default");
360 server_p->class = default_class;
361 return;
362 }
363
364 server_p->class = find_class(server_p->class_name);
365
366 if(server_p->class == default_class)
367 {
368 conf_report_error("Warning connect::class invalid for %s",
369 server_p->name);
370
371 rb_free(server_p->class_name);
372 server_p->class_name = rb_strdup("default");
373 }
374
375 if(strchr(server_p->host, '*') || strchr(server_p->host, '?'))
376 return;
377 }
378
379 struct server_conf *
380 find_server_conf(const char *name)
381 {
382 struct server_conf *server_p;
383 rb_dlink_node *ptr;
384
385 RB_DLINK_FOREACH(ptr, server_conf_list.head)
386 {
387 server_p = ptr->data;
388
389 if(ServerConfIllegal(server_p))
390 continue;
391
392 if(match(name, server_p->name))
393 return server_p;
394 }
395
396 return NULL;
397 }
398
399 void
400 attach_server_conf(struct Client *client_p, struct server_conf *server_p)
401 {
402 /* already have an attached conf */
403 if(client_p->localClient->att_sconf)
404 {
405 /* short circuit this special case :) */
406 if(client_p->localClient->att_sconf == server_p)
407 return;
408
409 detach_server_conf(client_p);
410 }
411
412 CurrUsers(server_p->class)++;
413
414 client_p->localClient->att_sconf = server_p;
415 server_p->servers++;
416 }
417
418 void
419 detach_server_conf(struct Client *client_p)
420 {
421 struct server_conf *server_p = client_p->localClient->att_sconf;
422
423 if(server_p == NULL)
424 return;
425
426 client_p->localClient->att_sconf = NULL;
427 server_p->servers--;
428 CurrUsers(server_p->class)--;
429
430 if(ServerConfIllegal(server_p) && !server_p->servers)
431 {
432 /* the class this one is using may need destroying too */
433 if(MaxUsers(server_p->class) < 0 && CurrUsers(server_p->class) <= 0)
434 free_class(server_p->class);
435
436 rb_dlinkDelete(&server_p->node, &server_conf_list);
437 free_server_conf(server_p);
438 }
439 }
440
441 void
442 set_server_conf_autoconn(struct Client *source_p, const char *name, int newval)
443 {
444 struct server_conf *server_p;
445
446 if((server_p = find_server_conf(name)) != NULL)
447 {
448 if(newval)
449 server_p->flags |= SERVER_AUTOCONN;
450 else
451 server_p->flags &= ~SERVER_AUTOCONN;
452
453 sendto_realops_snomask(SNO_GENERAL, L_ALL,
454 "%s has changed AUTOCONN for %s to %i",
455 get_oper_name(source_p), name, newval);
456 }
457 else
458 sendto_one_notice(source_p, ":Can't find %s", name);
459 }
460
461 struct ConfItem *
462 find_xline(const char *gecos, int counter)
463 {
464 struct ConfItem *aconf;
465 rb_dlink_node *ptr;
466
467 RB_DLINK_FOREACH(ptr, xline_conf_list.head)
468 {
469 aconf = ptr->data;
470
471 if(match_esc(aconf->name, gecos))
472 {
473 if(counter)
474 aconf->port++;
475 return aconf;
476 }
477 }
478
479 return NULL;
480 }
481
482 struct ConfItem *
483 find_xline_mask(const char *gecos)
484 {
485 struct ConfItem *aconf;
486 rb_dlink_node *ptr;
487
488 RB_DLINK_FOREACH(ptr, xline_conf_list.head)
489 {
490 aconf = ptr->data;
491
492 if(!irccmp(aconf->name, gecos))
493 return aconf;
494 }
495
496 return NULL;
497 }
498
499 struct ConfItem *
500 find_nick_resv(const char *name)
501 {
502 struct ConfItem *aconf;
503 rb_dlink_node *ptr;
504
505 RB_DLINK_FOREACH(ptr, resv_conf_list.head)
506 {
507 aconf = ptr->data;
508
509 if(match_esc(aconf->name, name))
510 {
511 aconf->port++;
512 return aconf;
513 }
514 }
515
516 return NULL;
517 }
518
519 struct ConfItem *
520 find_nick_resv_mask(const char *name)
521 {
522 struct ConfItem *aconf;
523 rb_dlink_node *ptr;
524
525 RB_DLINK_FOREACH(ptr, resv_conf_list.head)
526 {
527 aconf = ptr->data;
528
529 if(!irccmp(aconf->name, name))
530 return aconf;
531 }
532
533 return NULL;
534 }
535
536 /* clean_resv_nick()
537 *
538 * inputs - nick
539 * outputs - 1 if nick is vaild resv, 0 otherwise
540 * side effects -
541 */
542 int
543 clean_resv_nick(const char *nick)
544 {
545 char tmpch;
546 int as = 0;
547 int q = 0;
548 int ch = 0;
549
550 if(*nick == '-' || IsDigit(*nick))
551 return 0;
552
553 while ((tmpch = *nick++))
554 {
555 if(tmpch == '?' || tmpch == '@' || tmpch == '#')
556 q++;
557 else if(tmpch == '*')
558 as++;
559 else if(IsNickChar(tmpch))
560 ch++;
561 else
562 return 0;
563 }
564
565 if(!ch && as)
566 return 0;
567
568 return 1;
569 }
570
571 /* valid_wild_card_simple()
572 *
573 * inputs - "thing" to test
574 * outputs - 1 if enough wildcards, else 0
575 * side effects -
576 */
577 int
578 valid_wild_card_simple(const char *data)
579 {
580 const char *p;
581 char tmpch;
582 int nonwild = 0;
583 int wild = 0;
584
585 /* check the string for minimum number of nonwildcard chars */
586 p = data;
587
588 while((tmpch = *p++))
589 {
590 /* found an escape, p points to the char after it, so skip
591 * that and move on.
592 */
593 if(tmpch == '\\' && *p)
594 {
595 p++;
596 if(++nonwild >= ConfigFileEntry.min_nonwildcard_simple)
597 return 1;
598 }
599 else if(!IsMWildChar(tmpch))
600 {
601 /* if we have enough nonwildchars, return */
602 if(++nonwild >= ConfigFileEntry.min_nonwildcard_simple)
603 return 1;
604 }
605 else
606 wild++;
607 }
608
609 /* strings without wilds are also ok */
610 return wild == 0;
611 }
612
613 time_t
614 valid_temp_time(const char *p)
615 {
616 time_t result = 0;
617
618 while(*p)
619 {
620 if(IsDigit(*p))
621 {
622 result *= 10;
623 result += ((*p) & 0xF);
624 p++;
625 }
626 else
627 return -1;
628 }
629
630 if(result > (60 * 24 * 7 * 52))
631 result = (60 * 24 * 7 * 52);
632
633 return(result * 60);
634 }
635
636 static void
637 expire_temp_rxlines(void *unused)
638 {
639 struct ConfItem *aconf;
640 rb_dlink_node *ptr;
641 rb_dlink_node *next_ptr;
642 int i;
643
644 HASH_WALK_SAFE(i, R_MAX, ptr, next_ptr, resvTable)
645 {
646 aconf = ptr->data;
647
648 if(aconf->hold && aconf->hold <= rb_current_time())
649 {
650 if(ConfigFileEntry.tkline_expire_notices)
651 sendto_realops_snomask(SNO_GENERAL, L_ALL,
652 "Temporary RESV for [%s] expired",
653 aconf->name);
654
655 free_conf(aconf);
656 rb_dlinkDestroy(ptr, &resvTable[i]);
657 }
658 }
659 HASH_WALK_END
660
661 RB_DLINK_FOREACH_SAFE(ptr, next_ptr, resv_conf_list.head)
662 {
663 aconf = ptr->data;
664
665 if(aconf->hold && aconf->hold <= rb_current_time())
666 {
667 if(ConfigFileEntry.tkline_expire_notices)
668 sendto_realops_snomask(SNO_GENERAL, L_ALL,
669 "Temporary RESV for [%s] expired",
670 aconf->name);
671 free_conf(aconf);
672 rb_dlinkDestroy(ptr, &resv_conf_list);
673 }
674 }
675
676 RB_DLINK_FOREACH_SAFE(ptr, next_ptr, xline_conf_list.head)
677 {
678 aconf = ptr->data;
679
680 if(aconf->hold && aconf->hold <= rb_current_time())
681 {
682 if(ConfigFileEntry.tkline_expire_notices)
683 sendto_realops_snomask(SNO_GENERAL, L_ALL,
684 "Temporary X-line for [%s] expired",
685 aconf->name);
686 free_conf(aconf);
687 rb_dlinkDestroy(ptr, &xline_conf_list);
688 }
689 }
690 }
691
692 unsigned long
693 get_nd_count(void)
694 {
695 return(rb_dlink_list_length(&nd_list));
696 }
697
698 void
699 add_nd_entry(const char *name)
700 {
701 struct nd_entry *nd;
702
703 if(irc_dictionary_find(nd_dict, name) != NULL)
704 return;
705
706 nd = rb_bh_alloc(nd_heap);
707
708 rb_strlcpy(nd->name, name, sizeof(nd->name));
709 nd->expire = rb_current_time() + ConfigFileEntry.nick_delay;
710
711 /* this list is ordered */
712 rb_dlinkAddTail(nd, &nd->lnode, &nd_list);
713
714 irc_dictionary_add(nd_dict, nd->name, nd);
715 }
716
717 void
718 free_nd_entry(struct nd_entry *nd)
719 {
720 irc_dictionary_delete(nd_dict, nd->name);
721
722 rb_dlinkDelete(&nd->lnode, &nd_list);
723 rb_bh_free(nd_heap, nd);
724 }
725
726 void
727 expire_nd_entries(void *unused)
728 {
729 struct nd_entry *nd;
730 rb_dlink_node *ptr;
731 rb_dlink_node *next_ptr;
732
733 RB_DLINK_FOREACH_SAFE(ptr, next_ptr, nd_list.head)
734 {
735 nd = ptr->data;
736
737 /* this list is ordered - we can stop when we hit the first
738 * entry that doesnt expire..
739 */
740 if(nd->expire > rb_current_time())
741 return;
742
743 free_nd_entry(nd);
744 }
745 }
746
747 void
748 add_tgchange(const char *host)
749 {
750 tgchange *target;
751 rb_patricia_node_t *pnode;
752
753 if(find_tgchange(host))
754 return;
755
756 target = rb_malloc(sizeof(tgchange));
757 pnode = make_and_lookup(tgchange_tree, host);
758
759 pnode->data = target;
760 target->pnode = pnode;
761
762 target->ip = rb_strdup(host);
763 target->expiry = rb_current_time() + (60*60*12);
764
765 rb_dlinkAdd(target, &target->node, &tgchange_list);
766 }
767
768 tgchange *
769 find_tgchange(const char *host)
770 {
771 rb_patricia_node_t *pnode;
772
773 if((pnode = rb_match_exact_string(tgchange_tree, host)))
774 return pnode->data;
775
776 return NULL;
777 }
778