ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/svn/ircd-hybrid/branches/8.2.x/src/conf.c
Revision: 4057
Committed: Tue Jun 24 18:18:46 2014 UTC (9 years, 9 months ago) by michael
Content type: text/x-csrc
File size: 58817 byte(s)
Log Message:
- Use %u conversion specifier for unsigned ints

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

Properties

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