ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/svn/ircd-hybrid/branches/8.2.x/src/conf.c
Revision: 2275
Committed: Tue Jun 18 16:30:11 2013 UTC (10 years, 9 months ago) by michael
Content type: text/x-csrc
Original Path: ircd-hybrid/trunk/src/conf.c
File size: 59377 byte(s)
Log Message:
- conf.c:detach_conf(): fixed bug where we didn't call remove_from_cidr_check()
  in some cases

File Contents

# User Rev Content
1 adx 30 /*
2     * ircd-hybrid: an advanced Internet Relay Chat Daemon(ircd).
3 michael 1309 * conf.c: Configuration file functions.
4 adx 30 *
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 knight 31 * $Id$
23 adx 30 */
24    
25     #include "stdinc.h"
26 michael 1011 #include "list.h"
27 adx 30 #include "ircd_defs.h"
28 michael 1309 #include "conf.h"
29 adx 30 #include "s_serv.h"
30     #include "resv.h"
31     #include "channel.h"
32     #include "client.h"
33     #include "event.h"
34     #include "hook.h"
35     #include "irc_string.h"
36     #include "s_bsd.h"
37     #include "ircd.h"
38     #include "listener.h"
39     #include "hostmask.h"
40     #include "modules.h"
41     #include "numeric.h"
42     #include "fdlist.h"
43 michael 1309 #include "log.h"
44 adx 30 #include "send.h"
45     #include "s_gline.h"
46     #include "memory.h"
47 michael 1654 #include "mempool.h"
48 adx 30 #include "irc_res.h"
49     #include "userhost.h"
50     #include "s_user.h"
51     #include "channel_mode.h"
52 michael 1243 #include "parse.h"
53     #include "s_misc.h"
54 michael 1622 #include "conf_db.h"
55 michael 1632 #include "conf_class.h"
56 michael 2150 #include "motd.h"
57 adx 30
58     struct config_server_hide ConfigServerHide;
59    
60     /* general conf items link list root, other than k lines etc. */
61 michael 1157 dlink_list service_items = { NULL, NULL, 0 };
62 adx 30 dlink_list server_items = { NULL, NULL, 0 };
63     dlink_list cluster_items = { NULL, NULL, 0 };
64     dlink_list oconf_items = { NULL, NULL, 0 };
65     dlink_list uconf_items = { NULL, NULL, 0 };
66     dlink_list xconf_items = { NULL, NULL, 0 };
67     dlink_list nresv_items = { NULL, NULL, 0 };
68 michael 2174 dlink_list cresv_items = { NULL, NULL, 0 };
69 adx 30
70     extern unsigned int lineno;
71     extern char linebuf[];
72     extern char conffilebuf[IRCD_BUFSIZE];
73     extern int yyparse(); /* defined in y.tab.c */
74    
75 michael 967 struct conf_parser_context conf_parser_ctx = { 0, 0, NULL };
76    
77 adx 30 /* internally defined functions */
78 michael 1325 static void read_conf(FILE *);
79 adx 30 static void clear_out_old_conf(void);
80     static void expire_tklines(dlink_list *);
81     static void garbage_collect_ip_entries(void);
82     static int hash_ip(struct irc_ssaddr *);
83 michael 1644 static int verify_access(struct Client *);
84 michael 1632 static int attach_iline(struct Client *, struct MaskItem *);
85 adx 30 static struct ip_entry *find_or_add_ip(struct irc_ssaddr *);
86 michael 1632 static dlink_list *map_to_list(enum maskitem_type);
87 adx 30 static int find_user_host(struct Client *, char *, char *, char *, unsigned int);
88    
89    
90     /* usually, with hash tables, you use a prime number...
91     * but in this case I am dealing with ip addresses,
92     * not ascii strings.
93     */
94     #define IP_HASH_SIZE 0x1000
95    
96     struct ip_entry
97     {
98     struct irc_ssaddr ip;
99 michael 1644 unsigned int count;
100 adx 30 time_t last_attempt;
101     struct ip_entry *next;
102     };
103    
104     static struct ip_entry *ip_hash_table[IP_HASH_SIZE];
105 michael 1654 static mp_pool_t *ip_entry_pool = NULL;
106 adx 30 static int ip_entries_count = 0;
107    
108    
109     /* conf_dns_callback()
110     *
111 michael 1632 * inputs - pointer to struct MaskItem
112 adx 30 * - pointer to DNSReply reply
113     * output - none
114     * side effects - called when resolver query finishes
115     * if the query resulted in a successful search, hp will contain
116     * a non-null pointer, otherwise hp will be null.
117     * if successful save hp in the conf item it was called with
118     */
119     static void
120 michael 992 conf_dns_callback(void *vptr, const struct irc_ssaddr *addr, const char *name)
121 adx 30 {
122 michael 1632 struct MaskItem *conf = vptr;
123 adx 30
124 michael 1632 conf->dns_pending = 0;
125 adx 30
126 michael 992 if (addr != NULL)
127 michael 1632 memcpy(&conf->addr, addr, sizeof(conf->addr));
128 michael 992 else
129 michael 1632 conf->dns_failed = 1;
130 adx 30 }
131    
132     /* conf_dns_lookup()
133     *
134     * do a nameserver lookup of the conf host
135     * if the conf entry is currently doing a ns lookup do nothing, otherwise
136     * allocate a dns_query and start ns lookup.
137     */
138     static void
139 michael 1632 conf_dns_lookup(struct MaskItem *conf)
140 adx 30 {
141 michael 1632 if (!conf->dns_pending)
142 adx 30 {
143 michael 1632 conf->dns_pending = 1;
144     gethost_byname(conf_dns_callback, conf, conf->host);
145 adx 30 }
146     }
147    
148 michael 1632 struct MaskItem *
149     conf_make(enum maskitem_type type)
150     {
151     struct MaskItem *conf = MyMalloc(sizeof(*conf));
152     dlink_list *list = NULL;
153    
154     conf->type = type;
155     conf->active = 1;
156     conf->aftype = AF_INET;
157    
158     if ((list = map_to_list(type)))
159     dlinkAdd(conf, &conf->node, list);
160     return conf;
161     }
162    
163     void
164     conf_free(struct MaskItem *conf)
165     {
166     dlink_node *ptr = NULL, *ptr_next = NULL;
167 michael 1636 dlink_list *list = NULL;
168    
169     if (conf->node.next)
170     if ((list = map_to_list(conf->type)))
171     dlinkDelete(&conf->node, list);
172    
173 michael 1632 MyFree(conf->name);
174    
175     if (conf->dns_pending)
176     delete_resolver_queries(conf);
177     if (conf->passwd != NULL)
178     memset(conf->passwd, 0, strlen(conf->passwd));
179     if (conf->spasswd != NULL)
180     memset(conf->spasswd, 0, strlen(conf->spasswd));
181    
182     conf->class = NULL;
183    
184     MyFree(conf->passwd);
185     MyFree(conf->spasswd);
186     MyFree(conf->reason);
187 michael 2228 MyFree(conf->certfp);
188 michael 1632 MyFree(conf->user);
189     MyFree(conf->host);
190     #ifdef HAVE_LIBCRYPTO
191     MyFree(conf->cipher_list);
192    
193     if (conf->rsa_public_key)
194     RSA_free(conf->rsa_public_key);
195     #endif
196     DLINK_FOREACH_SAFE(ptr, ptr_next, conf->hub_list.head)
197     {
198     MyFree(ptr->data);
199     free_dlink_node(ptr);
200     }
201    
202     DLINK_FOREACH_SAFE(ptr, ptr_next, conf->leaf_list.head)
203     {
204     MyFree(ptr->data);
205     free_dlink_node(ptr);
206     }
207 adx 30
208 michael 1858 DLINK_FOREACH_SAFE(ptr, ptr_next, conf->exempt_list.head)
209     {
210     struct exempt *exptr = ptr->data;
211    
212     MyFree(exptr->name);
213     MyFree(exptr->user);
214     MyFree(exptr->host);
215     MyFree(exptr);
216     }
217    
218 michael 1636 MyFree(conf);
219 adx 30 }
220    
221     /* check_client()
222     *
223     * inputs - pointer to client
224     * output - 0 = Success
225     * NOT_AUTHORIZED (-1) = Access denied (no I line match)
226     * IRCD_SOCKET_ERROR (-2) = Bad socket.
227     * I_LINE_FULL (-3) = I-line is full
228     * TOO_MANY (-4) = Too many connections from hostname
229     * BANNED_CLIENT (-5) = K-lined
230     * side effects - Ordinary client access check.
231     * Look for conf lines which have the same
232     * status as the flags passed.
233     */
234 michael 1644 int
235     check_client(struct Client *source_p)
236 adx 30 {
237     int i;
238    
239 michael 1644 if ((i = verify_access(source_p)))
240 michael 1247 ilog(LOG_TYPE_IRCD, "Access denied: %s[%s]",
241 adx 30 source_p->name, source_p->sockhost);
242    
243     switch (i)
244     {
245     case TOO_MANY:
246 michael 1618 sendto_realops_flags(UMODE_FULL, L_ALL, SEND_NOTICE,
247 adx 30 "Too many on IP for %s (%s).",
248 michael 2182 get_client_name(source_p, SHOW_IP),
249     source_p->sockhost);
250 michael 1247 ilog(LOG_TYPE_IRCD, "Too many connections on IP from %s.",
251 michael 2182 get_client_name(source_p, SHOW_IP));
252 michael 896 ++ServerStats.is_ref;
253 adx 30 exit_client(source_p, &me, "No more connections allowed on that IP");
254     break;
255    
256     case I_LINE_FULL:
257 michael 1618 sendto_realops_flags(UMODE_FULL, L_ALL, SEND_NOTICE,
258     "auth{} block is full for %s (%s).",
259 michael 2182 get_client_name(source_p, SHOW_IP),
260     source_p->sockhost);
261 michael 1247 ilog(LOG_TYPE_IRCD, "Too many connections from %s.",
262 michael 2182 get_client_name(source_p, SHOW_IP));
263 michael 896 ++ServerStats.is_ref;
264 adx 30 exit_client(source_p, &me,
265 michael 2182 "No more connections allowed in your connection class");
266 adx 30 break;
267    
268     case NOT_AUTHORIZED:
269 michael 896 ++ServerStats.is_ref;
270 adx 30 /* jdc - lists server name & port connections are on */
271     /* a purely cosmetical change */
272 michael 1618 sendto_realops_flags(UMODE_UNAUTH, L_ALL, SEND_NOTICE,
273 michael 2182 "Unauthorized client connection from %s [%s] on [%s/%u].",
274     get_client_name(source_p, SHOW_IP),
275     source_p->sockhost,
276     source_p->localClient->listener->name,
277     source_p->localClient->listener->port);
278 michael 1247 ilog(LOG_TYPE_IRCD,
279 michael 2182 "Unauthorized client connection from %s on [%s/%u].",
280     get_client_name(source_p, SHOW_IP),
281     source_p->localClient->listener->name,
282     source_p->localClient->listener->port);
283 adx 30
284 michael 1549 exit_client(source_p, &me, "You are not authorized to use this server");
285 adx 30 break;
286 michael 891
287 adx 30 case BANNED_CLIENT:
288 michael 1549 exit_client(source_p, &me, "Banned");
289 michael 896 ++ServerStats.is_ref;
290 adx 30 break;
291    
292     case 0:
293     default:
294     break;
295     }
296    
297 michael 1644 return (i < 0 ? 0 : 1);
298 adx 30 }
299    
300     /* verify_access()
301     *
302     * inputs - pointer to client to verify
303     * output - 0 if success -'ve if not
304     * side effect - find the first (best) I line to attach.
305     */
306     static int
307 michael 1644 verify_access(struct Client *client_p)
308 adx 30 {
309 michael 1949 struct MaskItem *conf = NULL;
310 adx 30 char non_ident[USERLEN + 1] = { '~', '\0' };
311    
312     if (IsGotId(client_p))
313     {
314 michael 1632 conf = find_address_conf(client_p->host, client_p->username,
315 michael 2182 &client_p->localClient->ip,
316     client_p->localClient->aftype,
317 adx 30 client_p->localClient->passwd);
318     }
319     else
320     {
321 michael 2182 strlcpy(non_ident + 1, client_p->username, sizeof(non_ident) - 1);
322 michael 1632 conf = find_address_conf(client_p->host,non_ident,
323 michael 2182 &client_p->localClient->ip,
324     client_p->localClient->aftype,
325     client_p->localClient->passwd);
326 adx 30 }
327    
328 michael 1632 if (conf != NULL)
329 adx 30 {
330 michael 1921 if (IsConfClient(conf))
331 adx 30 {
332 michael 1632 if (IsConfRedir(conf))
333 adx 30 {
334 michael 1834 sendto_one(client_p, form_str(RPL_REDIR),
335 adx 30 me.name, client_p->name,
336     conf->name ? conf->name : "",
337 michael 1632 conf->port);
338 michael 2182 return NOT_AUTHORIZED;
339 adx 30 }
340    
341 michael 1632 if (IsConfDoIdentd(conf))
342 michael 2182 SetNeedId(client_p);
343 adx 30
344     /* Thanks for spoof idea amm */
345 michael 1632 if (IsConfDoSpoofIp(conf))
346 adx 30 {
347 michael 1632 if (!ConfigFileEntry.hide_spoof_ips && IsConfSpoofNotice(conf))
348 michael 1618 sendto_realops_flags(UMODE_ALL, L_ADMIN, SEND_NOTICE,
349     "%s spoofing: %s as %s",
350 adx 30 client_p->name, client_p->host, conf->name);
351     strlcpy(client_p->host, conf->name, sizeof(client_p->host));
352 michael 2138 AddFlag(client_p, FLAGS_IP_SPOOFING | FLAGS_AUTH_SPOOF);
353 adx 30 }
354    
355 michael 2182 return attach_iline(client_p, conf);
356 adx 30 }
357 michael 1921 else if (IsConfKill(conf) || (ConfigFileEntry.glines && IsConfGline(conf)))
358 adx 30 {
359 michael 1632 if (IsConfGline(conf))
360 adx 30 sendto_one(client_p, ":%s NOTICE %s :*** G-lined", me.name,
361     client_p->name);
362 michael 1549 sendto_one(client_p, ":%s NOTICE %s :*** Banned: %s",
363 michael 1632 me.name, client_p->name, conf->reason);
364 michael 2182 return BANNED_CLIENT;
365 adx 30 }
366     }
367    
368 michael 2182 return NOT_AUTHORIZED;
369 adx 30 }
370    
371     /* attach_iline()
372     *
373     * inputs - client pointer
374     * - conf pointer
375     * output -
376     * side effects - do actual attach
377     */
378     static int
379 michael 1632 attach_iline(struct Client *client_p, struct MaskItem *conf)
380 adx 30 {
381 michael 1632 struct ClassItem *class = NULL;
382 adx 30 struct ip_entry *ip_found;
383     int a_limit_reached = 0;
384 michael 1644 unsigned int local = 0, global = 0, ident = 0;
385 adx 30
386     ip_found = find_or_add_ip(&client_p->localClient->ip);
387     ip_found->count++;
388     SetIpHash(client_p);
389    
390 michael 1632 if (conf->class == NULL)
391 adx 30 return NOT_AUTHORIZED; /* If class is missing, this is best */
392    
393 michael 1632 class = conf->class;
394 adx 30
395     count_user_host(client_p->username, client_p->host,
396     &global, &local, &ident);
397    
398     /* XXX blah. go down checking the various silly limits
399     * setting a_limit_reached if any limit is reached.
400     * - Dianora
401     */
402 michael 1632 if (class->max_total != 0 && class->ref_count >= class->max_total)
403 adx 30 a_limit_reached = 1;
404 michael 1632 else if (class->max_perip != 0 && ip_found->count > class->max_perip)
405 adx 30 a_limit_reached = 1;
406 michael 1632 else if (class->max_local != 0 && local >= class->max_local)
407 adx 30 a_limit_reached = 1;
408 michael 1632 else if (class->max_global != 0 && global >= class->max_global)
409 adx 30 a_limit_reached = 1;
410 michael 1632 else if (class->max_ident != 0 && ident >= class->max_ident &&
411 adx 30 client_p->username[0] != '~')
412     a_limit_reached = 1;
413    
414     if (a_limit_reached)
415     {
416 michael 1632 if (!IsConfExemptLimits(conf))
417 michael 624 return TOO_MANY; /* Already at maximum allowed */
418 adx 30
419     sendto_one(client_p,
420     ":%s NOTICE %s :*** Your connection class is full, "
421     "but you have exceed_limit = yes;", me.name, client_p->name);
422     }
423    
424     return attach_conf(client_p, conf);
425     }
426    
427     /* init_ip_hash_table()
428     *
429     * inputs - NONE
430     * output - NONE
431     * side effects - allocate memory for ip_entry(s)
432     * - clear the ip hash table
433     */
434     void
435     init_ip_hash_table(void)
436     {
437 michael 1964 ip_entry_pool = mp_pool_new(sizeof(struct ip_entry), MP_CHUNK_SIZE_IP_ENTRY);
438 adx 30 memset(ip_hash_table, 0, sizeof(ip_hash_table));
439     }
440    
441     /* find_or_add_ip()
442     *
443     * inputs - pointer to struct irc_ssaddr
444     * output - pointer to a struct ip_entry
445     * side effects -
446     *
447     * If the ip # was not found, a new struct ip_entry is created, and the ip
448     * count set to 0.
449     */
450     static struct ip_entry *
451     find_or_add_ip(struct irc_ssaddr *ip_in)
452     {
453     struct ip_entry *ptr, *newptr;
454     int hash_index = hash_ip(ip_in), res;
455     struct sockaddr_in *v4 = (struct sockaddr_in *)ip_in, *ptr_v4;
456     #ifdef IPV6
457     struct sockaddr_in6 *v6 = (struct sockaddr_in6 *)ip_in, *ptr_v6;
458     #endif
459    
460     for (ptr = ip_hash_table[hash_index]; ptr; ptr = ptr->next)
461     {
462     #ifdef IPV6
463     if (ptr->ip.ss.ss_family != ip_in->ss.ss_family)
464     continue;
465     if (ip_in->ss.ss_family == AF_INET6)
466     {
467     ptr_v6 = (struct sockaddr_in6 *)&ptr->ip;
468     res = memcmp(&v6->sin6_addr, &ptr_v6->sin6_addr, sizeof(struct in6_addr));
469     }
470     else
471     #endif
472     {
473     ptr_v4 = (struct sockaddr_in *)&ptr->ip;
474     res = memcmp(&v4->sin_addr, &ptr_v4->sin_addr, sizeof(struct in_addr));
475     }
476     if (res == 0)
477     {
478     /* Found entry already in hash, return it. */
479     return ptr;
480     }
481     }
482    
483     if (ip_entries_count >= 2 * hard_fdlimit)
484     garbage_collect_ip_entries();
485    
486 michael 1654 newptr = mp_pool_get(ip_entry_pool);
487     memset(newptr, 0, sizeof(*newptr));
488 adx 30 ip_entries_count++;
489     memcpy(&newptr->ip, ip_in, sizeof(struct irc_ssaddr));
490    
491     newptr->next = ip_hash_table[hash_index];
492     ip_hash_table[hash_index] = newptr;
493    
494     return newptr;
495     }
496    
497     /* remove_one_ip()
498     *
499     * inputs - unsigned long IP address value
500     * output - NONE
501     * side effects - The ip address given, is looked up in ip hash table
502     * and number of ip#'s for that ip decremented.
503     * If ip # count reaches 0 and has expired,
504     * the struct ip_entry is returned to the ip_entry_heap
505     */
506     void
507     remove_one_ip(struct irc_ssaddr *ip_in)
508     {
509     struct ip_entry *ptr;
510     struct ip_entry *last_ptr = NULL;
511     int hash_index = hash_ip(ip_in), res;
512     struct sockaddr_in *v4 = (struct sockaddr_in *)ip_in, *ptr_v4;
513     #ifdef IPV6
514     struct sockaddr_in6 *v6 = (struct sockaddr_in6 *)ip_in, *ptr_v6;
515     #endif
516    
517     for (ptr = ip_hash_table[hash_index]; ptr; ptr = ptr->next)
518     {
519     #ifdef IPV6
520     if (ptr->ip.ss.ss_family != ip_in->ss.ss_family)
521     continue;
522     if (ip_in->ss.ss_family == AF_INET6)
523     {
524     ptr_v6 = (struct sockaddr_in6 *)&ptr->ip;
525     res = memcmp(&v6->sin6_addr, &ptr_v6->sin6_addr, sizeof(struct in6_addr));
526     }
527     else
528     #endif
529     {
530     ptr_v4 = (struct sockaddr_in *)&ptr->ip;
531     res = memcmp(&v4->sin_addr, &ptr_v4->sin_addr, sizeof(struct in_addr));
532     }
533     if (res)
534     continue;
535     if (ptr->count > 0)
536     ptr->count--;
537     if (ptr->count == 0 &&
538 michael 2182 (CurrentTime-ptr->last_attempt) >= ConfigFileEntry.throttle_time)
539 adx 30 {
540     if (last_ptr != NULL)
541 michael 2182 last_ptr->next = ptr->next;
542 adx 30 else
543 michael 2182 ip_hash_table[hash_index] = ptr->next;
544 adx 30
545 michael 1654 mp_pool_release(ptr);
546 adx 30 ip_entries_count--;
547     return;
548     }
549     last_ptr = ptr;
550     }
551     }
552    
553     /* hash_ip()
554     *
555     * input - pointer to an irc_inaddr
556     * output - integer value used as index into hash table
557     * side effects - hopefully, none
558     */
559     static int
560     hash_ip(struct irc_ssaddr *addr)
561     {
562     if (addr->ss.ss_family == AF_INET)
563     {
564     struct sockaddr_in *v4 = (struct sockaddr_in *)addr;
565     int hash;
566 michael 1032 uint32_t ip;
567 adx 30
568     ip = ntohl(v4->sin_addr.s_addr);
569     hash = ((ip >> 12) + ip) & (IP_HASH_SIZE-1);
570     return hash;
571     }
572     #ifdef IPV6
573     else
574     {
575     int hash;
576     struct sockaddr_in6 *v6 = (struct sockaddr_in6 *)addr;
577 michael 1032 uint32_t *ip = (uint32_t *)&v6->sin6_addr.s6_addr;
578 adx 30
579     hash = ip[0] ^ ip[3];
580     hash ^= hash >> 16;
581     hash ^= hash >> 8;
582     hash = hash & (IP_HASH_SIZE - 1);
583     return hash;
584     }
585     #else
586     return 0;
587     #endif
588     }
589    
590     /* count_ip_hash()
591     *
592     * inputs - pointer to counter of number of ips hashed
593     * - pointer to memory used for ip hash
594     * output - returned via pointers input
595     * side effects - NONE
596     *
597     * number of hashed ip #'s is counted up, plus the amount of memory
598     * used in the hash.
599     */
600     void
601 michael 948 count_ip_hash(unsigned int *number_ips_stored, uint64_t *mem_ips_stored)
602 adx 30 {
603     struct ip_entry *ptr;
604     int i;
605    
606     *number_ips_stored = 0;
607     *mem_ips_stored = 0;
608    
609     for (i = 0; i < IP_HASH_SIZE; i++)
610     {
611     for (ptr = ip_hash_table[i]; ptr; ptr = ptr->next)
612     {
613     *number_ips_stored += 1;
614     *mem_ips_stored += sizeof(struct ip_entry);
615     }
616     }
617     }
618    
619     /* garbage_collect_ip_entries()
620     *
621     * input - NONE
622     * output - NONE
623     * side effects - free up all ip entries with no connections
624     */
625     static void
626     garbage_collect_ip_entries(void)
627     {
628     struct ip_entry *ptr;
629     struct ip_entry *last_ptr;
630     struct ip_entry *next_ptr;
631     int i;
632    
633     for (i = 0; i < IP_HASH_SIZE; i++)
634     {
635     last_ptr = NULL;
636    
637     for (ptr = ip_hash_table[i]; ptr; ptr = next_ptr)
638     {
639     next_ptr = ptr->next;
640    
641     if (ptr->count == 0 &&
642     (CurrentTime - ptr->last_attempt) >= ConfigFileEntry.throttle_time)
643     {
644     if (last_ptr != NULL)
645     last_ptr->next = ptr->next;
646     else
647     ip_hash_table[i] = ptr->next;
648 michael 1654 mp_pool_release(ptr);
649 adx 30 ip_entries_count--;
650     }
651     else
652     last_ptr = ptr;
653     }
654     }
655     }
656    
657     /* detach_conf()
658     *
659     * inputs - pointer to client to detach
660     * - type of conf to detach
661     * output - 0 for success, -1 for failure
662     * side effects - Disassociate configuration from the client.
663     * Also removes a class from the list if marked for deleting.
664     */
665 michael 1632 void
666     detach_conf(struct Client *client_p, enum maskitem_type type)
667 adx 30 {
668 michael 1632 dlink_node *ptr = NULL, *next_ptr = NULL;
669 adx 30
670     DLINK_FOREACH_SAFE(ptr, next_ptr, client_p->localClient->confs.head)
671     {
672 michael 1645 struct MaskItem *conf = ptr->data;
673 adx 30
674 michael 1645 assert(conf->type & (CONF_CLIENT | CONF_OPER | CONF_SERVER));
675     assert(conf->ref_count > 0);
676     assert(conf->class->ref_count > 0);
677 adx 30
678 michael 1645 if (!(conf->type & type))
679     continue;
680 michael 671
681 michael 1645 dlinkDelete(ptr, &client_p->localClient->confs);
682     free_dlink_node(ptr);
683 michael 1644
684 michael 2275 if (conf->type & CONF_CLIENT)
685 michael 1645 remove_from_cidr_check(&client_p->localClient->ip, conf->class);
686 adx 30
687 michael 1645 if (--conf->class->ref_count == 0 && conf->class->active == 0)
688     {
689     class_free(conf->class);
690     conf->class = NULL;
691 adx 30 }
692 michael 1645
693     if (--conf->ref_count == 0 && conf->active == 0)
694     conf_free(conf);
695 adx 30 }
696     }
697    
698     /* attach_conf()
699     *
700     * inputs - client pointer
701     * - conf pointer
702     * output -
703     * side effects - Associate a specific configuration entry to a *local*
704     * client (this is the one which used in accepting the
705     * connection). Note, that this automatically changes the
706     * attachment if there was an old one...
707     */
708     int
709 michael 1632 attach_conf(struct Client *client_p, struct MaskItem *conf)
710 adx 30 {
711     if (dlinkFind(&client_p->localClient->confs, conf) != NULL)
712     return 1;
713    
714 michael 1632 if (conf->type == CONF_CLIENT)
715     if (cidr_limit_reached(IsConfExemptLimits(conf),
716     &client_p->localClient->ip, conf->class))
717 michael 1394 return TOO_MANY; /* Already at maximum allowed */
718 adx 30
719 michael 1632 conf->class->ref_count++;
720 michael 1644 conf->ref_count++;
721 adx 30
722     dlinkAdd(conf, make_dlink_node(), &client_p->localClient->confs);
723    
724     return 0;
725     }
726    
727     /* attach_connect_block()
728     *
729     * inputs - pointer to server to attach
730     * - name of server
731     * - hostname of server
732     * output - true (1) if both are found, otherwise return false (0)
733     * side effects - find connect block and attach them to connecting client
734     */
735     int
736     attach_connect_block(struct Client *client_p, const char *name,
737     const char *host)
738     {
739     dlink_node *ptr;
740 michael 1632 struct MaskItem *conf = NULL;
741 adx 30
742     assert(client_p != NULL);
743     assert(host != NULL);
744    
745     if (client_p == NULL || host == NULL)
746     return 0;
747    
748     DLINK_FOREACH(ptr, server_items.head)
749     {
750     conf = ptr->data;
751    
752 michael 1652 if (match(conf->name, name) || match(conf->host, host))
753 adx 30 continue;
754    
755     attach_conf(client_p, conf);
756     return -1;
757     }
758    
759     return 0;
760     }
761    
762     /* find_conf_name()
763     *
764     * inputs - pointer to conf link list to search
765     * - pointer to name to find
766     * - int mask of type of conf to find
767     * output - NULL or pointer to conf found
768     * side effects - find a conf entry which matches the name
769     * and has the given mask.
770     */
771 michael 1632 struct MaskItem *
772     find_conf_name(dlink_list *list, const char *name, enum maskitem_type type)
773 adx 30 {
774     dlink_node *ptr;
775 michael 1632 struct MaskItem* conf;
776 adx 30
777     DLINK_FOREACH(ptr, list->head)
778     {
779     conf = ptr->data;
780    
781     if (conf->type == type)
782     {
783     if (conf->name && (irccmp(conf->name, name) == 0 ||
784 michael 1652 !match(conf->name, name)))
785 adx 30 return conf;
786     }
787     }
788    
789     return NULL;
790     }
791    
792     /* map_to_list()
793     *
794     * inputs - ConfType conf
795     * output - pointer to dlink_list to use
796     * side effects - none
797     */
798     static dlink_list *
799 michael 1632 map_to_list(enum maskitem_type type)
800 adx 30 {
801     switch(type)
802     {
803 michael 1632 case CONF_XLINE:
804 adx 30 return(&xconf_items);
805     break;
806 michael 1632 case CONF_ULINE:
807 adx 30 return(&uconf_items);
808     break;
809 michael 1632 case CONF_NRESV:
810 adx 30 return(&nresv_items);
811     break;
812 michael 1825 case CONF_CRESV:
813 michael 2174 return(&cresv_items);
814 michael 1632 case CONF_OPER:
815 adx 30 return(&oconf_items);
816     break;
817 michael 1632 case CONF_SERVER:
818 adx 30 return(&server_items);
819     break;
820 michael 1632 case CONF_SERVICE:
821 michael 1172 return(&service_items);
822     break;
823 michael 1632 case CONF_CLUSTER:
824 adx 30 return(&cluster_items);
825     break;
826     default:
827     return NULL;
828     }
829     }
830    
831     /* find_matching_name_conf()
832     *
833     * inputs - type of link list to look in
834     * - pointer to name string to find
835     * - pointer to user
836     * - pointer to host
837 michael 1644 * - optional flags to match on as well
838 michael 1632 * output - NULL or pointer to found struct MaskItem
839 adx 30 * side effects - looks for a match on name field
840     */
841 michael 1632 struct MaskItem *
842     find_matching_name_conf(enum maskitem_type type, const char *name, const char *user,
843 michael 1644 const char *host, unsigned int flags)
844 adx 30 {
845     dlink_node *ptr=NULL;
846 michael 1632 struct MaskItem *conf=NULL;
847 adx 30 dlink_list *list_p = map_to_list(type);
848    
849     switch (type)
850     {
851 michael 1632 case CONF_SERVICE:
852 michael 1157 DLINK_FOREACH(ptr, list_p->head)
853     {
854     conf = ptr->data;
855    
856     if (EmptyString(conf->name))
857     continue;
858     if ((name != NULL) && !irccmp(name, conf->name))
859     return conf;
860     }
861     break;
862    
863 michael 1632 case CONF_XLINE:
864     case CONF_ULINE:
865     case CONF_NRESV:
866 michael 1825 case CONF_CRESV:
867 adx 30 DLINK_FOREACH(ptr, list_p->head)
868     {
869     conf = ptr->data;
870    
871     if (EmptyString(conf->name))
872 michael 2182 continue;
873 michael 1653 if ((name != NULL) && !match(conf->name, name))
874 adx 30 {
875 michael 2182 if ((user == NULL && (host == NULL)))
876     return conf;
877     if ((conf->flags & flags) != flags)
878 adx 30 continue;
879 michael 2182 if (EmptyString(conf->user) || EmptyString(conf->host))
880     return conf;
881     if (!match(conf->user, user) && !match(conf->host, host))
882     return conf;
883 adx 30 }
884     }
885     break;
886    
887 michael 1632 case CONF_SERVER:
888 adx 30 DLINK_FOREACH(ptr, list_p->head)
889     {
890     conf = ptr->data;
891    
892 michael 1652 if ((name != NULL) && !match(name, conf->name))
893 adx 30 return conf;
894 michael 1652 else if ((host != NULL) && !match(host, conf->host))
895 adx 30 return conf;
896     }
897     break;
898    
899     default:
900     break;
901     }
902     return NULL;
903     }
904    
905     /* find_exact_name_conf()
906     *
907     * inputs - type of link list to look in
908     * - pointer to name string to find
909     * - pointer to user
910     * - pointer to host
911 michael 1632 * output - NULL or pointer to found struct MaskItem
912 adx 30 * side effects - looks for an exact match on name field
913     */
914 michael 1632 struct MaskItem *
915     find_exact_name_conf(enum maskitem_type type, const struct Client *who, const char *name,
916 adx 30 const char *user, const char *host)
917     {
918     dlink_node *ptr = NULL;
919 michael 1632 struct MaskItem *conf;
920     dlink_list *list_p = map_to_list(type);
921 adx 30
922     switch(type)
923     {
924 michael 1632 case CONF_XLINE:
925     case CONF_ULINE:
926     case CONF_NRESV:
927 michael 1825 case CONF_CRESV:
928 adx 30
929     DLINK_FOREACH(ptr, list_p->head)
930     {
931     conf = ptr->data;
932 michael 1632
933 adx 30 if (EmptyString(conf->name))
934 michael 2182 continue;
935 adx 30
936     if (irccmp(conf->name, name) == 0)
937     {
938 michael 2182 if ((user == NULL && (host == NULL)))
939     return conf;
940     if (EmptyString(conf->user) || EmptyString(conf->host))
941     return conf;
942     if (!match(conf->user, user) && !match(conf->host, host))
943     return conf;
944 adx 30 }
945     }
946     break;
947    
948 michael 1632 case CONF_OPER:
949 adx 30 DLINK_FOREACH(ptr, list_p->head)
950     {
951     conf = ptr->data;
952 michael 1285
953 adx 30 if (EmptyString(conf->name))
954 michael 1285 continue;
955    
956     if (!irccmp(conf->name, name))
957 adx 30 {
958 michael 1285 if (!who)
959     return conf;
960 michael 1632 if (EmptyString(conf->user) || EmptyString(conf->host))
961 michael 1636 return NULL;
962 michael 1652 if (!match(conf->user, who->username))
963 michael 1285 {
964 michael 1632 switch (conf->htype)
965 michael 1285 {
966     case HM_HOST:
967 michael 1652 if (!match(conf->host, who->host) || !match(conf->host, who->sockhost))
968 michael 1637 if (!conf->class->max_total || conf->class->ref_count < conf->class->max_total)
969     return conf;
970 michael 1285 break;
971     case HM_IPV4:
972     if (who->localClient->aftype == AF_INET)
973 michael 1632 if (match_ipv4(&who->localClient->ip, &conf->addr, conf->bits))
974 michael 1637 if (!conf->class->max_total || conf->class->ref_count < conf->class->max_total)
975     return conf;
976 michael 1285 break;
977     #ifdef IPV6
978     case HM_IPV6:
979     if (who->localClient->aftype == AF_INET6)
980 michael 1632 if (match_ipv6(&who->localClient->ip, &conf->addr, conf->bits))
981 michael 1637 if (!conf->class->max_total || conf->class->ref_count < conf->class->max_total)
982     return conf;
983 michael 1285 break;
984     #endif
985     default:
986     assert(0);
987     }
988     }
989 adx 30 }
990     }
991 michael 1285
992 adx 30 break;
993    
994 michael 1632 case CONF_SERVER:
995 adx 30 DLINK_FOREACH(ptr, list_p->head)
996     {
997     conf = ptr->data;
998 michael 1632
999 adx 30 if (EmptyString(conf->name))
1000 michael 2182 continue;
1001 adx 30
1002     if (name == NULL)
1003     {
1004 michael 2182 if (EmptyString(conf->host))
1005     continue;
1006     if (irccmp(conf->host, host) == 0)
1007     return conf;
1008 adx 30 }
1009     else if (irccmp(conf->name, name) == 0)
1010 michael 2182 return conf;
1011 adx 30 }
1012 michael 2182
1013 adx 30 break;
1014    
1015     default:
1016     break;
1017     }
1018 michael 2182
1019     return NULL;
1020 adx 30 }
1021    
1022     /* rehash()
1023     *
1024     * Actual REHASH service routine. Called with sig == 0 if it has been called
1025     * as a result of an operator issuing this command, else assume it has been
1026     * called as a result of the server receiving a HUP signal.
1027     */
1028     int
1029     rehash(int sig)
1030     {
1031     if (sig != 0)
1032 michael 1618 sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1033 adx 30 "Got signal SIGHUP, reloading ircd.conf file");
1034    
1035     restart_resolver();
1036 michael 1001
1037 adx 30 /* don't close listeners until we know we can go ahead with the rehash */
1038    
1039     /* Check to see if we magically got(or lost) IPv6 support */
1040     check_can_use_v6();
1041    
1042     read_conf_files(0);
1043    
1044     if (ServerInfo.description != NULL)
1045     strlcpy(me.info, ServerInfo.description, sizeof(me.info));
1046    
1047     load_conf_modules();
1048    
1049     rehashed_klines = 1;
1050    
1051 michael 1831 return 0;
1052 adx 30 }
1053    
1054     /* set_default_conf()
1055     *
1056     * inputs - NONE
1057     * output - NONE
1058     * side effects - Set default values here.
1059     * This is called **PRIOR** to parsing the
1060     * configuration file. If you want to do some validation
1061     * of values later, put them in validate_conf().
1062     */
1063     static void
1064     set_default_conf(void)
1065     {
1066     /* verify init_class() ran, this should be an unnecessary check
1067     * but its not much work.
1068     */
1069 michael 1644 assert(class_default == class_get_list()->tail->data);
1070 adx 30
1071     #ifdef HAVE_LIBCRYPTO
1072     ServerInfo.rsa_private_key = NULL;
1073     ServerInfo.rsa_private_key_file = NULL;
1074     #endif
1075    
1076     /* ServerInfo.name is not rehashable */
1077     /* ServerInfo.name = ServerInfo.name; */
1078     ServerInfo.description = NULL;
1079 michael 1646 ServerInfo.network_name = xstrdup(NETWORK_NAME_DEFAULT);
1080     ServerInfo.network_desc = xstrdup(NETWORK_DESC_DEFAULT);
1081 adx 30
1082     memset(&ServerInfo.ip, 0, sizeof(ServerInfo.ip));
1083     ServerInfo.specific_ipv4_vhost = 0;
1084     memset(&ServerInfo.ip6, 0, sizeof(ServerInfo.ip6));
1085     ServerInfo.specific_ipv6_vhost = 0;
1086    
1087     ServerInfo.max_clients = MAXCLIENTS_MAX;
1088 michael 1751 ServerInfo.max_nick_length = 9;
1089     ServerInfo.max_topic_length = 80;
1090 michael 956
1091     ServerInfo.hub = 0;
1092 adx 30 ServerInfo.dns_host.sin_addr.s_addr = 0;
1093     ServerInfo.dns_host.sin_port = 0;
1094     AdminInfo.name = NULL;
1095     AdminInfo.email = NULL;
1096     AdminInfo.description = NULL;
1097    
1098 michael 1831 log_del_all();
1099 michael 1247
1100 adx 30 ConfigLoggingEntry.use_logging = 1;
1101    
1102 michael 1243 ConfigChannel.disable_fake_channels = 0;
1103 adx 30 ConfigChannel.knock_delay = 300;
1104     ConfigChannel.knock_delay_channel = 60;
1105 michael 1432 ConfigChannel.max_chans_per_user = 25;
1106 michael 1444 ConfigChannel.max_chans_per_oper = 50;
1107 adx 30 ConfigChannel.max_bans = 25;
1108     ConfigChannel.default_split_user_count = 0;
1109     ConfigChannel.default_split_server_count = 0;
1110 michael 1243 ConfigChannel.no_join_on_split = 0;
1111     ConfigChannel.no_create_on_split = 0;
1112 adx 30
1113 michael 1243 ConfigServerHide.flatten_links = 0;
1114 adx 30 ConfigServerHide.links_delay = 300;
1115 michael 1243 ConfigServerHide.hidden = 0;
1116     ConfigServerHide.hide_servers = 0;
1117 michael 1851 ConfigServerHide.hide_services = 0;
1118 michael 1646 ConfigServerHide.hidden_name = xstrdup(NETWORK_NAME_DEFAULT);
1119 michael 1243 ConfigServerHide.hide_server_ips = 0;
1120 michael 2196 ConfigServerHide.disable_remote_commands = 0;
1121 adx 30
1122 michael 876
1123 michael 1646 ConfigFileEntry.service_name = xstrdup(SERVICE_NAME_DEFAULT);
1124 michael 876 ConfigFileEntry.max_watch = WATCHSIZE_DEFAULT;
1125 michael 1459 ConfigFileEntry.glines = 0;
1126     ConfigFileEntry.gline_time = 12 * 3600;
1127     ConfigFileEntry.gline_request_time = GLINE_REQUEST_EXPIRE_DEFAULT;
1128 adx 30 ConfigFileEntry.gline_min_cidr = 16;
1129     ConfigFileEntry.gline_min_cidr6 = 48;
1130 michael 1243 ConfigFileEntry.invisible_on_connect = 1;
1131     ConfigFileEntry.tkline_expire_notices = 1;
1132     ConfigFileEntry.hide_spoof_ips = 1;
1133     ConfigFileEntry.ignore_bogus_ts = 0;
1134     ConfigFileEntry.disable_auth = 0;
1135 adx 30 ConfigFileEntry.kill_chase_time_limit = 90;
1136 michael 1119 ConfigFileEntry.default_floodcount = 8;
1137 michael 1243 ConfigFileEntry.failed_oper_notice = 1;
1138 michael 1119 ConfigFileEntry.dots_in_ident = 0;
1139 adx 30 ConfigFileEntry.min_nonwildcard = 4;
1140     ConfigFileEntry.min_nonwildcard_simple = 3;
1141     ConfigFileEntry.max_accept = 20;
1142 michael 1243 ConfigFileEntry.anti_nick_flood = 0;
1143 adx 30 ConfigFileEntry.max_nick_time = 20;
1144     ConfigFileEntry.max_nick_changes = 5;
1145 michael 1119 ConfigFileEntry.anti_spam_exit_message_time = 0;
1146 adx 30 ConfigFileEntry.ts_warn_delta = TS_WARN_DELTA_DEFAULT;
1147 michael 1119 ConfigFileEntry.ts_max_delta = TS_MAX_DELTA_DEFAULT;
1148 michael 1243 ConfigFileEntry.warn_no_nline = 1;
1149     ConfigFileEntry.stats_o_oper_only = 0;
1150 adx 30 ConfigFileEntry.stats_k_oper_only = 1; /* masked */
1151     ConfigFileEntry.stats_i_oper_only = 1; /* masked */
1152 michael 1243 ConfigFileEntry.stats_P_oper_only = 0;
1153 michael 2269 ConfigFileEntry.stats_u_oper_only = 0;
1154 adx 30 ConfigFileEntry.caller_id_wait = 60;
1155 michael 1243 ConfigFileEntry.opers_bypass_callerid = 0;
1156 adx 30 ConfigFileEntry.pace_wait = 10;
1157     ConfigFileEntry.pace_wait_simple = 1;
1158 michael 1243 ConfigFileEntry.short_motd = 0;
1159     ConfigFileEntry.ping_cookie = 0;
1160     ConfigFileEntry.no_oper_flood = 0;
1161     ConfigFileEntry.true_no_oper_flood = 0;
1162     ConfigFileEntry.oper_pass_resv = 1;
1163 adx 30 ConfigFileEntry.max_targets = MAX_TARGETS_DEFAULT;
1164 michael 1119 ConfigFileEntry.oper_only_umodes = UMODE_DEBUG;
1165 adx 264 ConfigFileEntry.oper_umodes = UMODE_BOTS | UMODE_LOCOPS | UMODE_SERVNOTICE |
1166 michael 1119 UMODE_OPERWALL | UMODE_WALLOP;
1167 michael 1243 ConfigFileEntry.use_egd = 0;
1168 adx 30 ConfigFileEntry.egdpool_path = NULL;
1169     ConfigFileEntry.throttle_time = 10;
1170     }
1171    
1172     static void
1173     validate_conf(void)
1174     {
1175     if (ConfigFileEntry.ts_warn_delta < TS_WARN_DELTA_MIN)
1176     ConfigFileEntry.ts_warn_delta = TS_WARN_DELTA_DEFAULT;
1177    
1178     if (ConfigFileEntry.ts_max_delta < TS_MAX_DELTA_MIN)
1179     ConfigFileEntry.ts_max_delta = TS_MAX_DELTA_DEFAULT;
1180    
1181     if (ServerInfo.network_name == NULL)
1182 michael 1646 ServerInfo.network_name = xstrdup(NETWORK_NAME_DEFAULT);
1183 adx 30
1184     if (ServerInfo.network_desc == NULL)
1185 michael 1646 ServerInfo.network_desc = xstrdup(NETWORK_DESC_DEFAULT);
1186 adx 30
1187 michael 1157 if (ConfigFileEntry.service_name == NULL)
1188 michael 1646 ConfigFileEntry.service_name = xstrdup(SERVICE_NAME_DEFAULT);
1189 michael 1157
1190 michael 876 ConfigFileEntry.max_watch = IRCD_MAX(ConfigFileEntry.max_watch, WATCHSIZE_MIN);
1191 adx 30 }
1192    
1193 michael 1363 /* read_conf()
1194     *
1195     * inputs - file descriptor pointing to config file to use
1196     * output - None
1197     * side effects - Read configuration file.
1198     */
1199     static void
1200     read_conf(FILE *file)
1201     {
1202     lineno = 0;
1203    
1204     set_default_conf(); /* Set default values prior to conf parsing */
1205     conf_parser_ctx.pass = 1;
1206 michael 2182 yyparse(); /* pick up the classes first */
1207 michael 1363
1208     rewind(file);
1209    
1210     conf_parser_ctx.pass = 2;
1211     yyparse(); /* Load the values from the conf */
1212     validate_conf(); /* Check to make sure some values are still okay. */
1213     /* Some global values are also loaded here. */
1214 michael 1632 class_delete_marked(); /* Make sure classes are valid */
1215 michael 1363 }
1216    
1217 adx 30 /* lookup_confhost()
1218     *
1219     * start DNS lookups of all hostnames in the conf
1220     * line and convert an IP addresses in a.b.c.d number for to IP#s.
1221     */
1222 michael 1647 void
1223 michael 1632 lookup_confhost(struct MaskItem *conf)
1224 adx 30 {
1225     struct addrinfo hints, *res;
1226    
1227     /* Do name lookup now on hostnames given and store the
1228     * ip numbers in conf structure.
1229     */
1230     memset(&hints, 0, sizeof(hints));
1231    
1232     hints.ai_family = AF_UNSPEC;
1233     hints.ai_socktype = SOCK_STREAM;
1234    
1235     /* Get us ready for a bind() and don't bother doing dns lookup */
1236     hints.ai_flags = AI_PASSIVE | AI_NUMERICHOST;
1237    
1238 michael 1632 if (getaddrinfo(conf->host, NULL, &hints, &res))
1239 adx 30 {
1240 michael 1632 conf_dns_lookup(conf);
1241 adx 30 return;
1242     }
1243    
1244     assert(res != NULL);
1245    
1246 michael 1632 memcpy(&conf->addr, res->ai_addr, res->ai_addrlen);
1247     conf->addr.ss_len = res->ai_addrlen;
1248     conf->addr.ss.ss_family = res->ai_family;
1249    
1250 michael 1123 freeaddrinfo(res);
1251 adx 30 }
1252    
1253     /* conf_connect_allowed()
1254     *
1255     * inputs - pointer to inaddr
1256     * - int type ipv4 or ipv6
1257     * output - BANNED or accepted
1258     * side effects - none
1259     */
1260     int
1261     conf_connect_allowed(struct irc_ssaddr *addr, int aftype)
1262     {
1263     struct ip_entry *ip_found;
1264 michael 1632 struct MaskItem *conf = find_dline_conf(addr, aftype);
1265 adx 30
1266     /* DLINE exempt also gets you out of static limits/pacing... */
1267 michael 1636 if (conf && (conf->type == CONF_EXEMPT))
1268 adx 30 return 0;
1269    
1270 michael 1632 if (conf != NULL)
1271 adx 30 return BANNED_CLIENT;
1272    
1273     ip_found = find_or_add_ip(addr);
1274    
1275     if ((CurrentTime - ip_found->last_attempt) <
1276     ConfigFileEntry.throttle_time)
1277     {
1278     ip_found->last_attempt = CurrentTime;
1279     return TOO_FAST;
1280     }
1281    
1282     ip_found->last_attempt = CurrentTime;
1283     return 0;
1284     }
1285    
1286     /* find_kill()
1287     *
1288     * inputs - pointer to client structure
1289 michael 1632 * output - pointer to struct MaskItem if found
1290 adx 30 * side effects - See if this user is klined already,
1291 michael 1632 * and if so, return struct MaskItem pointer
1292 adx 30 */
1293 michael 1632 struct MaskItem *
1294 adx 30 find_kill(struct Client *client_p)
1295     {
1296 michael 1632 struct MaskItem *conf = NULL;
1297 adx 30
1298     assert(client_p != NULL);
1299    
1300 michael 1632 conf = find_conf_by_address(client_p->host, &client_p->localClient->ip,
1301     CONF_KLINE, client_p->localClient->aftype,
1302     client_p->username, NULL, 1);
1303     return conf;
1304 adx 30 }
1305    
1306 michael 1632 struct MaskItem *
1307 adx 30 find_gline(struct Client *client_p)
1308     {
1309 michael 1632 struct MaskItem *conf;
1310 adx 30
1311     assert(client_p != NULL);
1312    
1313 michael 1632 conf = find_conf_by_address(client_p->host, &client_p->localClient->ip,
1314     CONF_GLINE, client_p->localClient->aftype,
1315     client_p->username, NULL, 1);
1316     return conf;
1317 adx 30 }
1318    
1319     /* cleanup_tklines()
1320     *
1321     * inputs - NONE
1322     * output - NONE
1323     * side effects - call function to expire temporary k/d lines
1324     * This is an event started off in ircd.c
1325     */
1326     void
1327     cleanup_tklines(void *notused)
1328     {
1329 michael 1369 hostmask_expire_temporary();
1330 michael 1622 expire_tklines(&xconf_items);
1331 michael 1628 expire_tklines(&nresv_items);
1332 michael 2174 expire_tklines(&cresv_items);
1333 adx 30 }
1334    
1335     /* expire_tklines()
1336     *
1337     * inputs - tkline list pointer
1338     * output - NONE
1339     * side effects - expire tklines
1340     */
1341     static void
1342     expire_tklines(dlink_list *tklist)
1343     {
1344     dlink_node *ptr;
1345     dlink_node *next_ptr;
1346 michael 1632 struct MaskItem *conf;
1347 adx 30
1348     DLINK_FOREACH_SAFE(ptr, next_ptr, tklist->head)
1349     {
1350     conf = ptr->data;
1351    
1352 michael 1649 if (!conf->until || conf->until > CurrentTime)
1353 michael 1644 continue;
1354    
1355 michael 1632 if (conf->type == CONF_XLINE)
1356 adx 30 {
1357 michael 1644 if (ConfigFileEntry.tkline_expire_notices)
1358     sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1359 michael 1618 "Temporary X-line for [%s] expired", conf->name);
1360 michael 1644 conf_free(conf);
1361 adx 30 }
1362 michael 1825 else if (conf->type == CONF_NRESV || conf->type == CONF_CRESV)
1363 adx 30 {
1364 michael 1644 if (ConfigFileEntry.tkline_expire_notices)
1365     sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1366 adx 30 "Temporary RESV for [%s] expired", conf->name);
1367 michael 1644 conf_free(conf);
1368 adx 30 }
1369     }
1370     }
1371    
1372     /* oper_privs_as_string()
1373     *
1374 michael 58 * inputs - pointer to client_p
1375 adx 30 * output - pointer to static string showing oper privs
1376     * side effects - return as string, the oper privs as derived from port
1377     */
1378 michael 58 static const struct oper_privs
1379     {
1380 michael 1644 const unsigned int flag;
1381 michael 58 const unsigned char c;
1382     } flag_list[] = {
1383 michael 2012 { OPER_FLAG_ADMIN, 'A' },
1384     { OPER_FLAG_REMOTEBAN, 'B' },
1385     { OPER_FLAG_DIE, 'D' },
1386     { OPER_FLAG_GLINE, 'G' },
1387     { OPER_FLAG_REHASH, 'H' },
1388     { OPER_FLAG_K, 'K' },
1389     { OPER_FLAG_OPERWALL, 'L' },
1390     { OPER_FLAG_KILL, 'N' },
1391     { OPER_FLAG_KILL_REMOTE, 'O' },
1392     { OPER_FLAG_CONNECT, 'P' },
1393     { OPER_FLAG_CONNECT_REMOTE, 'Q' },
1394     { OPER_FLAG_SQUIT, 'R' },
1395     { OPER_FLAG_SQUIT_REMOTE, 'S' },
1396     { OPER_FLAG_UNKLINE, 'U' },
1397     { OPER_FLAG_X, 'X' },
1398 michael 1294 { 0, '\0' }
1399 michael 58 };
1400 adx 30
1401     char *
1402     oper_privs_as_string(const unsigned int port)
1403     {
1404 michael 58 static char privs_out[16];
1405     char *privs_ptr = privs_out;
1406 michael 1644 const struct oper_privs *opriv = flag_list;
1407 adx 30
1408 michael 1644 for (; opriv->flag; ++opriv)
1409 michael 58 {
1410 michael 1644 if (port & opriv->flag)
1411     *privs_ptr++ = opriv->c;
1412 michael 58 else
1413 michael 1644 *privs_ptr++ = ToLower(opriv->c);
1414 michael 58 }
1415    
1416     *privs_ptr = '\0';
1417    
1418 adx 30 return privs_out;
1419     }
1420    
1421     /*
1422     * Input: A client to find the active oper{} name for.
1423     * Output: The nick!user@host{oper} of the oper.
1424     * "oper" is server name for remote opers
1425     * Side effects: None.
1426     */
1427 michael 1364 const char *
1428 adx 30 get_oper_name(const struct Client *client_p)
1429     {
1430 michael 1364 dlink_node *cnode = NULL;
1431 adx 30 /* +5 for !,@,{,} and null */
1432 michael 1147 static char buffer[NICKLEN + USERLEN + HOSTLEN + HOSTLEN + 5];
1433 adx 30
1434     if (MyConnect(client_p))
1435     {
1436 michael 1364 if ((cnode = client_p->localClient->confs.head))
1437 adx 30 {
1438 michael 1632 struct MaskItem *conf = cnode->data;
1439 adx 30
1440 michael 1632 if (IsConfOperator(conf))
1441 adx 30 {
1442 michael 2182 snprintf(buffer, sizeof(buffer), "%s!%s@%s{%s}", client_p->name,
1443 michael 1147 client_p->username, client_p->host, conf->name);
1444 michael 2182 return buffer;
1445 adx 30 }
1446     }
1447    
1448     /* Probably should assert here for now. If there is an oper out there
1449     * with no oper{} conf attached, it would be good for us to know...
1450     */
1451     assert(0); /* Oper without oper conf! */
1452     }
1453    
1454 michael 1147 snprintf(buffer, sizeof(buffer), "%s!%s@%s{%s}", client_p->name,
1455 michael 2182 client_p->username, client_p->host, client_p->servptr->name);
1456 adx 30 return buffer;
1457     }
1458    
1459     /* read_conf_files()
1460     *
1461     * inputs - cold start YES or NO
1462     * output - none
1463     * side effects - read all conf files needed, ircd.conf kline.conf etc.
1464     */
1465     void
1466     read_conf_files(int cold)
1467     {
1468     const char *filename;
1469     char chanmodes[32];
1470     char chanlimit[32];
1471    
1472 michael 967 conf_parser_ctx.boot = cold;
1473 michael 1622 filename = ConfigFileEntry.configfile;
1474 adx 30
1475     /* We need to know the initial filename for the yyerror() to report
1476     FIXME: The full path is in conffilenamebuf first time since we
1477     dont know anything else
1478    
1479     - Gozem 2002-07-21
1480     */
1481     strlcpy(conffilebuf, filename, sizeof(conffilebuf));
1482    
1483 michael 1325 if ((conf_parser_ctx.conf_file = fopen(filename, "r")) == NULL)
1484 adx 30 {
1485     if (cold)
1486     {
1487 michael 1247 ilog(LOG_TYPE_IRCD, "Unable to read configuration file '%s': %s",
1488 adx 30 filename, strerror(errno));
1489     exit(-1);
1490     }
1491     else
1492     {
1493 michael 1618 sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1494 michael 2182 "Unable to read configuration file '%s': %s",
1495     filename, strerror(errno));
1496 adx 30 return;
1497     }
1498     }
1499    
1500     if (!cold)
1501     clear_out_old_conf();
1502    
1503 michael 967 read_conf(conf_parser_ctx.conf_file);
1504 michael 1325 fclose(conf_parser_ctx.conf_file);
1505 adx 30
1506 michael 1831 log_reopen_all();
1507    
1508 michael 1751 add_isupport("NICKLEN", NULL, ServerInfo.max_nick_length);
1509 adx 30 add_isupport("NETWORK", ServerInfo.network_name, -1);
1510 michael 1751
1511     snprintf(chanmodes, sizeof(chanmodes), "beI:%d", ConfigChannel.max_bans);
1512 adx 30 add_isupport("MAXLIST", chanmodes, -1);
1513     add_isupport("MAXTARGETS", NULL, ConfigFileEntry.max_targets);
1514 michael 1474 add_isupport("CHANTYPES", "#", -1);
1515 michael 1147
1516 michael 1474 snprintf(chanlimit, sizeof(chanlimit), "#:%d",
1517 michael 1751 ConfigChannel.max_chans_per_user);
1518 adx 30 add_isupport("CHANLIMIT", chanlimit, -1);
1519 michael 1751 snprintf(chanmodes, sizeof(chanmodes), "%s", "beI,k,l,imnprstORS");
1520 michael 100 add_isupport("CHANNELLEN", NULL, LOCAL_CHANNELLEN);
1521 michael 1751 add_isupport("TOPICLEN", NULL, ServerInfo.max_topic_length);
1522 adx 30 add_isupport("CHANMODES", chanmodes, -1);
1523    
1524     /*
1525     * message_locale may have changed. rebuild isupport since it relies
1526     * on strlen(form_str(RPL_ISUPPORT))
1527     */
1528     rebuild_isupport_message_line();
1529     }
1530    
1531     /* clear_out_old_conf()
1532     *
1533     * inputs - none
1534     * output - none
1535     * side effects - Clear out the old configuration
1536     */
1537     static void
1538     clear_out_old_conf(void)
1539     {
1540     dlink_node *ptr = NULL, *next_ptr = NULL;
1541 michael 1632 struct MaskItem *conf;
1542 adx 30 dlink_list *free_items [] = {
1543 michael 1383 &server_items, &oconf_items,
1544 michael 1921 &uconf_items, &xconf_items,
1545 michael 2174 &nresv_items, &cluster_items, &service_items, &cresv_items, NULL
1546 adx 30 };
1547    
1548     dlink_list ** iterator = free_items; /* C is dumb */
1549    
1550     /* We only need to free anything allocated by yyparse() here.
1551     * Resetting structs, etc, is taken care of by set_default_conf().
1552     */
1553    
1554     for (; *iterator != NULL; iterator++)
1555     {
1556     DLINK_FOREACH_SAFE(ptr, next_ptr, (*iterator)->head)
1557     {
1558     conf = ptr->data;
1559 michael 1632
1560     dlinkDelete(&conf->node, map_to_list(conf->type));
1561    
1562 adx 30 /* XXX This is less than pretty */
1563 michael 1632 if (conf->type == CONF_SERVER || conf->type == CONF_OPER)
1564 adx 30 {
1565 michael 1644 if (!conf->ref_count)
1566 michael 2182 conf_free(conf);
1567 adx 30 }
1568 michael 1921 else if (conf->type == CONF_XLINE)
1569 adx 30 {
1570 michael 1649 if (!conf->until)
1571 michael 1632 conf_free(conf);
1572 adx 30 }
1573     else
1574 michael 1632 conf_free(conf);
1575 adx 30 }
1576     }
1577    
1578 michael 2150 motd_clear();
1579    
1580 michael 671 /*
1581     * don't delete the class table, rather mark all entries
1582 michael 1632 * for deletion. The table is cleaned up by class_delete_marked. - avalon
1583 adx 30 */
1584 michael 1632 class_mark_for_deletion();
1585 michael 671
1586 adx 30 clear_out_address_conf();
1587    
1588     /* clean out module paths */
1589     mod_clear_paths();
1590    
1591     /* clean out ServerInfo */
1592     MyFree(ServerInfo.description);
1593     ServerInfo.description = NULL;
1594     MyFree(ServerInfo.network_name);
1595     ServerInfo.network_name = NULL;
1596     MyFree(ServerInfo.network_desc);
1597     ServerInfo.network_desc = NULL;
1598     MyFree(ConfigFileEntry.egdpool_path);
1599     ConfigFileEntry.egdpool_path = NULL;
1600     #ifdef HAVE_LIBCRYPTO
1601     if (ServerInfo.rsa_private_key != NULL)
1602     {
1603     RSA_free(ServerInfo.rsa_private_key);
1604     ServerInfo.rsa_private_key = NULL;
1605     }
1606    
1607     MyFree(ServerInfo.rsa_private_key_file);
1608     ServerInfo.rsa_private_key_file = NULL;
1609 michael 1316
1610     if (ServerInfo.server_ctx)
1611     SSL_CTX_set_options(ServerInfo.server_ctx, SSL_OP_NO_SSLv2|
1612     SSL_OP_NO_SSLv3|
1613     SSL_OP_NO_TLSv1);
1614     if (ServerInfo.client_ctx)
1615     SSL_CTX_set_options(ServerInfo.client_ctx, SSL_OP_NO_SSLv2|
1616     SSL_OP_NO_SSLv3|
1617     SSL_OP_NO_TLSv1);
1618 adx 30 #endif
1619    
1620     /* clean out AdminInfo */
1621     MyFree(AdminInfo.name);
1622     AdminInfo.name = NULL;
1623     MyFree(AdminInfo.email);
1624     AdminInfo.email = NULL;
1625     MyFree(AdminInfo.description);
1626     AdminInfo.description = NULL;
1627    
1628     /* clean out listeners */
1629     close_listeners();
1630    
1631     /* clean out general */
1632 michael 1157 MyFree(ConfigFileEntry.service_name);
1633     ConfigFileEntry.service_name = NULL;
1634 adx 30 }
1635    
1636     /* conf_add_class_to_conf()
1637     *
1638     * inputs - pointer to config item
1639     * output - NONE
1640     * side effects - Add a class pointer to a conf
1641     */
1642     void
1643 michael 1632 conf_add_class_to_conf(struct MaskItem *conf, const char *class_name)
1644 adx 30 {
1645     if (class_name == NULL)
1646     {
1647 michael 1632 conf->class = class_default;
1648 michael 671
1649 michael 1632 if (conf->type == CONF_CLIENT)
1650 michael 1618 sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1651 michael 2182 "Warning *** Defaulting to default class for %s@%s",
1652     conf->user, conf->host);
1653 adx 30 else
1654 michael 1618 sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1655 michael 2182 "Warning *** Defaulting to default class for %s",
1656     conf->name);
1657 adx 30 }
1658     else
1659 michael 1632 conf->class = class_find(class_name, 1);
1660 adx 30
1661 michael 1632 if (conf->class == NULL)
1662 adx 30 {
1663 michael 1632 if (conf->type == CONF_CLIENT)
1664 michael 1618 sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1665 michael 2182 "Warning *** Defaulting to default class for %s@%s",
1666     conf->user, conf->host);
1667 adx 30 else
1668 michael 1618 sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1669 michael 2182 "Warning *** Defaulting to default class for %s",
1670     conf->name);
1671 michael 1632 conf->class = class_default;
1672 adx 30 }
1673     }
1674    
1675     /* yyerror()
1676     *
1677     * inputs - message from parser
1678     * output - NONE
1679     * side effects - message to opers and log file entry is made
1680     */
1681     void
1682     yyerror(const char *msg)
1683     {
1684     char newlinebuf[IRCD_BUFSIZE];
1685    
1686 michael 967 if (conf_parser_ctx.pass != 1)
1687 adx 30 return;
1688    
1689     strip_tabs(newlinebuf, linebuf, sizeof(newlinebuf));
1690 michael 1751 sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1691 michael 1618 "\"%s\", line %u: %s: %s",
1692 adx 30 conffilebuf, lineno + 1, msg, newlinebuf);
1693 michael 1247 ilog(LOG_TYPE_IRCD, "\"%s\", line %u: %s: %s",
1694 adx 30 conffilebuf, lineno + 1, msg, newlinebuf);
1695     }
1696    
1697 michael 1751 void
1698     conf_error_report(const char *msg)
1699     {
1700     char newlinebuf[IRCD_BUFSIZE];
1701    
1702     strip_tabs(newlinebuf, linebuf, sizeof(newlinebuf));
1703     sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1704     "\"%s\", line %u: %s: %s",
1705     conffilebuf, lineno + 1, msg, newlinebuf);
1706     ilog(LOG_TYPE_IRCD, "\"%s\", line %u: %s: %s",
1707     conffilebuf, lineno + 1, msg, newlinebuf);
1708     }
1709    
1710 adx 30 /*
1711     * valid_tkline()
1712     *
1713     * inputs - pointer to ascii string to check
1714     * - whether the specified time is in seconds or minutes
1715     * output - -1 not enough parameters
1716     * - 0 if not an integer number, else the number
1717     * side effects - none
1718     * Originally written by Dianora (Diane, db@db.net)
1719     */
1720     time_t
1721 michael 1120 valid_tkline(const char *p, int minutes)
1722 adx 30 {
1723     time_t result = 0;
1724    
1725 michael 1120 for (; *p; ++p)
1726 adx 30 {
1727 michael 1120 if (!IsDigit(*p))
1728 michael 1121 return 0;
1729 michael 1120
1730     result *= 10;
1731 michael 2182 result += (*p & 0xF);
1732 adx 30 }
1733    
1734 michael 1120 /*
1735     * In the degenerate case where oper does a /quote kline 0 user@host :reason
1736 adx 30 * i.e. they specifically use 0, I am going to return 1 instead
1737     * as a return value of non-zero is used to flag it as a temporary kline
1738     */
1739     if (result == 0)
1740     result = 1;
1741    
1742     /*
1743     * If the incoming time is in seconds convert it to minutes for the purpose
1744     * of this calculation
1745     */
1746     if (!minutes)
1747     result = result / (time_t)60;
1748    
1749     if (result > MAX_TDKLINE_TIME)
1750     result = MAX_TDKLINE_TIME;
1751    
1752     result = result * (time_t)60; /* turn it into seconds */
1753    
1754     return result;
1755     }
1756    
1757 michael 2130 /* valid_wild_card_simple()
1758     *
1759     * inputs - data to check for sufficient non-wildcard characters
1760     * outputs - 1 if valid, else 0
1761     * side effects - none
1762     */
1763     int
1764     valid_wild_card_simple(const char *data)
1765     {
1766     const unsigned char *p = (const unsigned char *)data;
1767     unsigned char tmpch = '\0';
1768     int nonwild = 0;
1769    
1770     while ((tmpch = *p++))
1771     {
1772     if (tmpch == '\\')
1773     {
1774     ++p;
1775     if (++nonwild >= ConfigFileEntry.min_nonwildcard_simple)
1776     return 1;
1777     }
1778     else if (!IsMWildChar(tmpch))
1779     {
1780     if (++nonwild >= ConfigFileEntry.min_nonwildcard_simple)
1781     return 1;
1782     }
1783     }
1784    
1785     return 0;
1786     }
1787    
1788 adx 30 /* valid_wild_card()
1789     *
1790     * input - pointer to client
1791     * - int flag, 0 for no warning oper 1 for warning oper
1792     * - count of following varargs to check
1793     * output - 0 if not valid, 1 if valid
1794     * side effects - NOTICE is given to source_p if warn is 1
1795     */
1796     int
1797     valid_wild_card(struct Client *source_p, int warn, int count, ...)
1798     {
1799     char tmpch;
1800     int nonwild = 0;
1801     va_list args;
1802    
1803     /*
1804     * Now we must check the user and host to make sure there
1805     * are at least NONWILDCHARS non-wildcard characters in
1806     * them, otherwise assume they are attempting to kline
1807     * *@* or some variant of that. This code will also catch
1808     * people attempting to kline *@*.tld, as long as NONWILDCHARS
1809     * is greater than 3. In that case, there are only 3 non-wild
1810     * characters (tld), so if NONWILDCHARS is 4, the kline will
1811     * be disallowed.
1812     * -wnder
1813     */
1814    
1815     va_start(args, count);
1816    
1817     while (count--)
1818     {
1819 michael 2133 const char *p = va_arg(args, const char *);
1820 adx 30 if (p == NULL)
1821     continue;
1822    
1823     while ((tmpch = *p++))
1824     {
1825     if (!IsKWildChar(tmpch))
1826     {
1827     /*
1828     * If we find enough non-wild characters, we can
1829     * break - no point in searching further.
1830     */
1831     if (++nonwild >= ConfigFileEntry.min_nonwildcard)
1832     return 1;
1833     }
1834     }
1835     }
1836    
1837     if (warn)
1838     sendto_one(source_p, ":%s NOTICE %s :Please include at least %d non-wildcard characters with the mask",
1839     me.name, source_p->name, ConfigFileEntry.min_nonwildcard);
1840     return 0;
1841     }
1842    
1843     /* XXX should this go into a separate file ? -Dianora */
1844     /* parse_aline
1845     *
1846     * input - pointer to cmd name being used
1847     * - pointer to client using cmd
1848     * - parc parameter count
1849     * - parv[] list of parameters to parse
1850     * - parse_flags bit map of things to test
1851     * - pointer to user or string to parse into
1852     * - pointer to host or NULL to parse into if non NULL
1853     * - pointer to optional tkline time or NULL
1854     * - pointer to target_server to parse into if non NULL
1855     * - pointer to reason to parse into
1856     *
1857     * output - 1 if valid, -1 if not valid
1858     * side effects - A generalised k/d/x etc. line parser,
1859     * "ALINE [time] user@host|string [ON] target :reason"
1860     * will parse returning a parsed user, host if
1861     * h_p pointer is non NULL, string otherwise.
1862     * if tkline_time pointer is non NULL a tk line will be set
1863     * to non zero if found.
1864     * if tkline_time pointer is NULL and tk line is found,
1865     * error is reported.
1866     * if target_server is NULL and an "ON" is found error
1867     * is reported.
1868     * if reason pointer is NULL ignore pointer,
1869 db 936 * this allows use of parse_a_line in unkline etc.
1870 adx 30 *
1871     * - Dianora
1872     */
1873     int
1874     parse_aline(const char *cmd, struct Client *source_p,
1875 michael 2182 int parc, char **parv,
1876     int parse_flags, char **up_p, char **h_p, time_t *tkline_time,
1877     char **target_server, char **reason)
1878 adx 30 {
1879     int found_tkline_time=0;
1880     static char def_reason[] = "No Reason";
1881     static char user[USERLEN*4+1];
1882     static char host[HOSTLEN*4+1];
1883    
1884     parv++;
1885     parc--;
1886    
1887     found_tkline_time = valid_tkline(*parv, TK_MINUTES);
1888    
1889     if (found_tkline_time != 0)
1890     {
1891     parv++;
1892     parc--;
1893    
1894     if (tkline_time != NULL)
1895     *tkline_time = found_tkline_time;
1896     else
1897     {
1898     sendto_one(source_p, ":%s NOTICE %s :temp_line not supported by %s",
1899 michael 2182 me.name, source_p->name, cmd);
1900 adx 30 return -1;
1901     }
1902     }
1903    
1904     if (parc == 0)
1905     {
1906 michael 1834 sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS),
1907 adx 30 me.name, source_p->name, cmd);
1908     return -1;
1909     }
1910    
1911     if (h_p == NULL)
1912     *up_p = *parv;
1913     else
1914     {
1915     if (find_user_host(source_p, *parv, user, host, parse_flags) == 0)
1916     return -1;
1917    
1918     *up_p = user;
1919     *h_p = host;
1920     }
1921    
1922     parc--;
1923     parv++;
1924    
1925     if (parc != 0)
1926     {
1927     if (irccmp(*parv, "ON") == 0)
1928     {
1929     parc--;
1930     parv++;
1931    
1932     if (target_server == NULL)
1933     {
1934 michael 2182 sendto_one(source_p, ":%s NOTICE %s :ON server not supported by %s",
1935     me.name, source_p->name, cmd);
1936     return -1;
1937 adx 30 }
1938    
1939 michael 1219 if (!HasOFlag(source_p, OPER_FLAG_REMOTEBAN))
1940 adx 30 {
1941 michael 1834 sendto_one(source_p, form_str(ERR_NOPRIVS),
1942 adx 30 me.name, source_p->name, "remoteban");
1943     return -1;
1944     }
1945    
1946     if (parc == 0 || EmptyString(*parv))
1947     {
1948 michael 2182 sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS),
1949     me.name, source_p->name, cmd);
1950     return -1;
1951 adx 30 }
1952    
1953     *target_server = *parv;
1954     parc--;
1955     parv++;
1956     }
1957     else
1958     {
1959     /* Make sure target_server *is* NULL if no ON server found
1960     * caller probably NULL'd it first, but no harm to do it again -db
1961     */
1962     if (target_server != NULL)
1963 michael 2182 *target_server = NULL;
1964 adx 30 }
1965     }
1966    
1967     if (h_p != NULL)
1968     {
1969     if (strchr(user, '!') != NULL)
1970     {
1971     sendto_one(source_p, ":%s NOTICE %s :Invalid character '!' in kline",
1972     me.name, source_p->name);
1973     return -1;
1974     }
1975    
1976 michael 1243 if ((parse_flags & AWILD) && !valid_wild_card(source_p, 1, 2, *up_p, *h_p))
1977 adx 30 return -1;
1978     }
1979     else
1980 michael 1243 if ((parse_flags & AWILD) && !valid_wild_card(source_p, 1, 1, *up_p))
1981 adx 30 return -1;
1982    
1983     if (reason != NULL)
1984     {
1985 michael 867 if (parc != 0 && !EmptyString(*parv))
1986 adx 30 {
1987     *reason = *parv;
1988 michael 1243 if (!valid_comment(source_p, *reason, 1))
1989 michael 2182 return -1;
1990 adx 30 }
1991     else
1992     *reason = def_reason;
1993     }
1994    
1995     return 1;
1996     }
1997    
1998     /* find_user_host()
1999     *
2000     * inputs - pointer to client placing kline
2001     * - pointer to user_host_or_nick
2002     * - pointer to user buffer
2003     * - pointer to host buffer
2004     * output - 0 if not ok to kline, 1 to kline i.e. if valid user host
2005     * side effects -
2006     */
2007     static int
2008     find_user_host(struct Client *source_p, char *user_host_or_nick,
2009     char *luser, char *lhost, unsigned int flags)
2010     {
2011     struct Client *target_p = NULL;
2012     char *hostp = NULL;
2013    
2014     if (lhost == NULL)
2015     {
2016     strlcpy(luser, user_host_or_nick, USERLEN*4 + 1);
2017     return 1;
2018     }
2019    
2020     if ((hostp = strchr(user_host_or_nick, '@')) || *user_host_or_nick == '*')
2021     {
2022     /* Explicit user@host mask given */
2023    
2024 michael 593 if (hostp != NULL) /* I'm a little user@host */
2025 adx 30 {
2026     *(hostp++) = '\0'; /* short and squat */
2027     if (*user_host_or_nick)
2028 michael 2182 strlcpy(luser, user_host_or_nick, USERLEN*4 + 1); /* here is my user */
2029 adx 30 else
2030 michael 2182 strcpy(luser, "*");
2031    
2032 adx 30 if (*hostp)
2033 michael 2182 strlcpy(lhost, hostp, HOSTLEN + 1); /* here is my host */
2034 adx 30 else
2035 michael 2182 strcpy(lhost, "*");
2036 adx 30 }
2037     else
2038     {
2039     luser[0] = '*'; /* no @ found, assume its *@somehost */
2040 michael 2182 luser[1] = '\0';
2041 adx 30 strlcpy(lhost, user_host_or_nick, HOSTLEN*4 + 1);
2042     }
2043    
2044     return 1;
2045     }
2046 michael 1518 else
2047 adx 30 {
2048     /* Try to find user@host mask from nick */
2049     /* Okay to use source_p as the first param, because source_p == client_p */
2050     if ((target_p =
2051     find_chasing(source_p, source_p, user_host_or_nick, NULL)) == NULL)
2052     return 0;
2053    
2054     if (IsExemptKline(target_p))
2055     {
2056     if (!IsServer(source_p))
2057 michael 2182 sendto_one(source_p,
2058     ":%s NOTICE %s :%s is E-lined",
2059     me.name, source_p->name, target_p->name);
2060 adx 30 return 0;
2061     }
2062    
2063     /*
2064     * turn the "user" bit into "*user", blow away '~'
2065     * if found in original user name (non-idented)
2066     */
2067     strlcpy(luser, target_p->username, USERLEN*4 + 1);
2068    
2069     if (target_p->username[0] == '~')
2070     luser[0] = '*';
2071    
2072     if (target_p->sockhost[0] == '\0' ||
2073     (target_p->sockhost[0] == '0' && target_p->sockhost[1] == '\0'))
2074     strlcpy(lhost, target_p->host, HOSTLEN*4 + 1);
2075     else
2076     strlcpy(lhost, target_p->sockhost, HOSTLEN*4 + 1);
2077     return 1;
2078     }
2079    
2080     return 0;
2081     }
2082    
2083     /* valid_comment()
2084     *
2085     * inputs - pointer to client
2086     * - pointer to comment
2087     * output - 0 if no valid comment,
2088     * - 1 if valid
2089     * side effects - truncates reason where necessary
2090     */
2091     int
2092     valid_comment(struct Client *source_p, char *comment, int warn)
2093     {
2094     if (strlen(comment) > REASONLEN)
2095     comment[REASONLEN-1] = '\0';
2096    
2097     return 1;
2098     }
2099    
2100     /* match_conf_password()
2101     *
2102     * inputs - pointer to given password
2103     * - pointer to Conf
2104     * output - 1 or 0 if match
2105     * side effects - none
2106     */
2107     int
2108 michael 1632 match_conf_password(const char *password, const struct MaskItem *conf)
2109 adx 30 {
2110     const char *encr = NULL;
2111    
2112 michael 1632 if (EmptyString(password) || EmptyString(conf->passwd))
2113 adx 30 return 0;
2114    
2115 michael 1632 if (conf->flags & CONF_FLAGS_ENCRYPTED)
2116     encr = crypt(password, conf->passwd);
2117 adx 30 else
2118     encr = password;
2119    
2120 michael 1632 return !strcmp(encr, conf->passwd);
2121 adx 30 }
2122    
2123     /*
2124     * cluster_a_line
2125     *
2126     * inputs - client sending the cluster
2127     * - command name "KLINE" "XLINE" etc.
2128     * - capab -- CAP_KLN etc. from s_serv.h
2129 michael 1309 * - cluster type -- CLUSTER_KLINE etc. from conf.h
2130 adx 30 * - pattern and args to send along
2131     * output - none
2132     * side effects - Take source_p send the pattern with args given
2133     * along to all servers that match capab and cluster type
2134     */
2135     void
2136     cluster_a_line(struct Client *source_p, const char *command,
2137 michael 593 int capab, int cluster_type, const char *pattern, ...)
2138 adx 30 {
2139     va_list args;
2140     char buffer[IRCD_BUFSIZE];
2141 michael 593 const dlink_node *ptr = NULL;
2142 adx 30
2143     va_start(args, pattern);
2144     vsnprintf(buffer, sizeof(buffer), pattern, args);
2145     va_end(args);
2146    
2147     DLINK_FOREACH(ptr, cluster_items.head)
2148     {
2149 michael 1632 const struct MaskItem *conf = ptr->data;
2150 adx 30
2151     if (conf->flags & cluster_type)
2152     sendto_match_servs(source_p, conf->name, CAP_CLUSTER|capab,
2153 michael 2182 "%s %s %s", command, conf->name, buffer);
2154 adx 30 }
2155     }
2156    
2157     /*
2158     * split_nuh
2159     *
2160     * inputs - pointer to original mask (modified in place)
2161     * - pointer to pointer where nick should go
2162     * - pointer to pointer where user should go
2163     * - pointer to pointer where host should go
2164     * output - NONE
2165     * side effects - mask is modified in place
2166     * If nick pointer is NULL, ignore writing to it
2167     * this allows us to use this function elsewhere.
2168     *
2169     * mask nick user host
2170     * ---------------------- ------- ------- ------
2171     * Dianora!db@db.net Dianora db db.net
2172     * Dianora Dianora * *
2173     * db.net * * db.net
2174     * OR if nick pointer is NULL
2175     * Dianora - * Dianora
2176     * Dianora! Dianora * *
2177     * Dianora!@ Dianora * *
2178     * Dianora!db Dianora db *
2179     * Dianora!@db.net Dianora * db.net
2180     * db@db.net * db db.net
2181     * !@ * * *
2182     * @ * * *
2183     * ! * * *
2184     */
2185     void
2186 michael 593 split_nuh(struct split_nuh_item *const iptr)
2187 adx 30 {
2188     char *p = NULL, *q = NULL;
2189    
2190 michael 593 if (iptr->nickptr)
2191     strlcpy(iptr->nickptr, "*", iptr->nicksize);
2192     if (iptr->userptr)
2193     strlcpy(iptr->userptr, "*", iptr->usersize);
2194     if (iptr->hostptr)
2195     strlcpy(iptr->hostptr, "*", iptr->hostsize);
2196    
2197     if ((p = strchr(iptr->nuhmask, '!')))
2198 adx 30 {
2199     *p = '\0';
2200    
2201 michael 593 if (iptr->nickptr && *iptr->nuhmask != '\0')
2202     strlcpy(iptr->nickptr, iptr->nuhmask, iptr->nicksize);
2203 adx 30
2204 michael 593 if ((q = strchr(++p, '@'))) {
2205     *q++ = '\0';
2206    
2207 adx 30 if (*p != '\0')
2208 michael 593 strlcpy(iptr->userptr, p, iptr->usersize);
2209 adx 30
2210 michael 593 if (*q != '\0')
2211     strlcpy(iptr->hostptr, q, iptr->hostsize);
2212 adx 30 }
2213     else
2214     {
2215     if (*p != '\0')
2216 michael 593 strlcpy(iptr->userptr, p, iptr->usersize);
2217 adx 30 }
2218     }
2219 michael 593 else
2220 adx 30 {
2221 michael 593 /* No ! found so lets look for a user@host */
2222     if ((p = strchr(iptr->nuhmask, '@')))
2223 adx 30 {
2224 michael 593 /* if found a @ */
2225     *p++ = '\0';
2226 adx 30
2227 michael 593 if (*iptr->nuhmask != '\0')
2228     strlcpy(iptr->userptr, iptr->nuhmask, iptr->usersize);
2229 adx 30
2230 michael 593 if (*p != '\0')
2231     strlcpy(iptr->hostptr, p, iptr->hostsize);
2232 adx 30 }
2233 michael 593 else
2234 adx 30 {
2235 michael 593 /* no @ found */
2236     if (!iptr->nickptr || strpbrk(iptr->nuhmask, ".:"))
2237     strlcpy(iptr->hostptr, iptr->nuhmask, iptr->hostsize);
2238 adx 30 else
2239 michael 593 strlcpy(iptr->nickptr, iptr->nuhmask, iptr->nicksize);
2240 adx 30 }
2241     }
2242     }

Properties

Name Value
svn:eol-style native
svn:keywords Id Revision