ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/svn/ircd-hybrid/trunk/src/conf.c
Revision: 3504
Committed: Sat May 10 19:51:29 2014 UTC (9 years, 10 months ago) by michael
Content type: text/x-csrc
File size: 58301 byte(s)
Log Message:
- Renamed MyMalloc() to MyCalloc()

File Contents

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

Properties

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