/[svn]/ircd-hybrid-8/src/s_serv.c
ViewVC logotype

Contents of /ircd-hybrid-8/src/s_serv.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1344 - (show annotations)
Mon Apr 9 14:13:29 2012 UTC (8 years, 5 months ago) by michael
File MIME type: text/x-chdr
File size: 47026 byte(s)
- hunt_server(): removed extranous match(). me.name cannot contain wilds anylonger.
  This is basically a fakename leftover.

1 /*
2 * ircd-hybrid: an advanced Internet Relay Chat Daemon(ircd).
3 * s_serv.c: Server related functions.
4 *
5 * Copyright (C) 2005 by the past and present ircd coders, and others.
6 *
7 * This program is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 2 of the License, or
10 * (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with this program; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
20 * USA
21 *
22 * $Id$
23 */
24
25 #include "stdinc.h"
26 #ifdef HAVE_LIBCRYPTO
27 #include <openssl/rsa.h>
28 #include "rsa.h"
29 #endif
30 #include "list.h"
31 #include "channel.h"
32 #include "channel_mode.h"
33 #include "client.h"
34 #include "dbuf.h"
35 #include "event.h"
36 #include "fdlist.h"
37 #include "hash.h"
38 #include "irc_string.h"
39 #include "sprintf_irc.h"
40 #include "ircd.h"
41 #include "ircd_defs.h"
42 #include "s_bsd.h"
43 #include "numeric.h"
44 #include "packet.h"
45 #include "irc_res.h"
46 #include "conf.h"
47 #include "s_serv.h"
48 #include "log.h"
49 #include "s_misc.h"
50 #include "s_user.h"
51 #include "send.h"
52 #include "memory.h"
53 #include "channel.h" /* chcap_usage_counts stuff...*/
54 #include "parse.h"
55
56 #define MIN_CONN_FREQ 300
57
58 static dlink_list cap_list = { NULL, NULL, 0 };
59 static void server_burst(struct Client *);
60 static void burst_all(struct Client *);
61 static void send_tb(struct Client *client_p, struct Channel *chptr);
62
63 static CNCB serv_connect_callback;
64
65 static void burst_members(struct Client *, struct Channel *);
66
67 /*
68 * write_links_file
69 *
70 * inputs - void pointer which is not used
71 * output - NONE
72 * side effects - called from an event, write out list of linked servers
73 * but in no particular order.
74 */
75 void
76 write_links_file(void* notused)
77 {
78 MessageFileLine *next_mptr = 0;
79 MessageFileLine *mptr = 0;
80 MessageFileLine *currentMessageLine = 0;
81 MessageFileLine *newMessageLine = 0;
82 MessageFile *MessageFileptr;
83 const char *p;
84 FILE *file;
85 char buff[512];
86 dlink_node *ptr;
87
88 MessageFileptr = &ConfigFileEntry.linksfile;
89
90 if ((file = fopen(MessageFileptr->fileName, "w")) == NULL)
91 return;
92
93 for (mptr = MessageFileptr->contentsOfFile; mptr; mptr = next_mptr)
94 {
95 next_mptr = mptr->next;
96 MyFree(mptr);
97 }
98
99 MessageFileptr->contentsOfFile = NULL;
100 currentMessageLine = NULL;
101
102 DLINK_FOREACH(ptr, global_serv_list.head)
103 {
104 const struct Client *target_p = ptr->data;
105
106 /* skip ourselves, we send ourselves in /links */
107 if (IsMe(target_p))
108 continue;
109
110 /* skip hidden servers */
111 if (IsHidden(target_p) && !ConfigServerHide.disable_hidden)
112 continue;
113
114 if (target_p->info[0])
115 p = target_p->info;
116 else
117 p = "(Unknown Location)";
118
119 newMessageLine = MyMalloc(sizeof(MessageFileLine));
120
121 /* Attempt to format the file in such a way it follows the usual links output
122 * ie "servername uplink :hops info"
123 * Mostly for aesthetic reasons - makes it look pretty in mIRC ;)
124 * - madmax
125 */
126
127 /*
128 * For now, check this ircsprintf wont overflow - it shouldnt on a
129 * default config but it is configurable..
130 * This should be changed to an snprintf at some point, but I'm wanting to
131 * know if this is a cause of a bug - cryogen
132 */
133 assert(strlen(target_p->name) + strlen(me.name) + 6 + strlen(p) <=
134 MESSAGELINELEN);
135 snprintf(newMessageLine->line, sizeof(newMessageLine->line), "%s %s :1 %s",
136 target_p->name, me.name, p);
137 newMessageLine->next = NULL;
138
139 if (MessageFileptr->contentsOfFile)
140 {
141 if (currentMessageLine)
142 currentMessageLine->next = newMessageLine;
143 currentMessageLine = newMessageLine;
144 }
145 else
146 {
147 MessageFileptr->contentsOfFile = newMessageLine;
148 currentMessageLine = newMessageLine;
149 }
150
151 snprintf(buff, sizeof(buff), "%s %s :1 %s\n", target_p->name, me.name, p);
152 fputs(buff, file);
153 }
154
155 fclose(file);
156 }
157
158 /* hunt_server()
159 * Do the basic thing in delivering the message (command)
160 * across the relays to the specific server (server) for
161 * actions.
162 *
163 * Note: The command is a format string and *MUST* be
164 * of prefixed style (e.g. ":%s COMMAND %s ...").
165 * Command can have only max 8 parameters.
166 *
167 * server parv[server] is the parameter identifying the
168 * target server.
169 *
170 * *WARNING*
171 * parv[server] is replaced with the pointer to the
172 * real servername from the matched client (I'm lazy
173 * now --msa).
174 *
175 * returns: (see #defines)
176 */
177 int
178 hunt_server(struct Client *client_p, struct Client *source_p, const char *command,
179 int server, int parc, char *parv[])
180 {
181 struct Client *target_p = NULL;
182 struct Client *target_tmp = NULL;
183 dlink_node *ptr;
184 int wilds;
185
186 /* Assume it's me, if no server */
187 if (parc <= server || EmptyString(parv[server]))
188 return HUNTED_ISME;
189
190 if (!strcmp(parv[server], me.id) || match(parv[server], me.name))
191 return HUNTED_ISME;
192
193 /* These are to pickup matches that would cause the following
194 * message to go in the wrong direction while doing quick fast
195 * non-matching lookups.
196 */
197 if (MyClient(source_p))
198 target_p = hash_find_client(parv[server]);
199 else
200 target_p = find_person(client_p, parv[server]);
201
202 if (target_p)
203 if (target_p->from == source_p->from && !MyConnect(target_p))
204 target_p = NULL;
205
206 if (target_p == NULL && (target_p = hash_find_server(parv[server])))
207 if (target_p->from == source_p->from && !MyConnect(target_p))
208 target_p = NULL;
209
210 collapse(parv[server]);
211 wilds = (strchr(parv[server], '?') || strchr(parv[server], '*'));
212
213 /* Again, if there are no wild cards involved in the server
214 * name, use the hash lookup
215 */
216 if (target_p == NULL)
217 {
218 if (!wilds)
219 {
220 if (!(target_p = hash_find_server(parv[server])))
221 {
222 sendto_one(source_p, form_str(ERR_NOSUCHSERVER),
223 me.name, source_p->name, parv[server]);
224 return(HUNTED_NOSUCH);
225 }
226 }
227 else
228 {
229 DLINK_FOREACH(ptr, global_client_list.head)
230 {
231 target_tmp = ptr->data;
232
233 if (match(parv[server], target_tmp->name))
234 {
235 if (target_tmp->from == source_p->from && !MyConnect(target_tmp))
236 continue;
237 target_p = ptr->data;
238
239 if (IsRegistered(target_p) && (target_p != client_p))
240 break;
241 }
242 }
243 }
244 }
245
246 if (target_p != NULL)
247 {
248 if(!IsRegistered(target_p))
249 {
250 sendto_one(source_p, form_str(ERR_NOSUCHSERVER),
251 me.name, source_p->name, parv[server]);
252 return HUNTED_NOSUCH;
253 }
254
255 if (IsMe(target_p) || MyClient(target_p))
256 return HUNTED_ISME;
257
258 if (!match(target_p->name, parv[server]))
259 parv[server] = target_p->name;
260
261 /* This is a little kludgy but should work... */
262 if (IsClient(source_p) &&
263 ((MyConnect(target_p) && IsCapable(target_p, CAP_TS6)) ||
264 (!MyConnect(target_p) && IsCapable(target_p->from, CAP_TS6))))
265 parv[0] = ID(source_p);
266
267 sendto_one(target_p, command, parv[0],
268 parv[1], parv[2], parv[3], parv[4],
269 parv[5], parv[6], parv[7], parv[8]);
270 return(HUNTED_PASS);
271 }
272
273 sendto_one(source_p, form_str(ERR_NOSUCHSERVER),
274 me.name, source_p->name, parv[server]);
275 return(HUNTED_NOSUCH);
276 }
277
278 /* try_connections()
279 *
280 * inputs - void pointer which is not used
281 * output - NONE
282 * side effects -
283 * scan through configuration and try new connections.
284 * Returns the calendar time when the next call to this
285 * function should be made latest. (No harm done if this
286 * is called earlier or later...)
287 */
288 void
289 try_connections(void *unused)
290 {
291 dlink_node *ptr;
292 struct ConfItem *conf;
293 struct AccessItem *aconf;
294 struct ClassItem *cltmp;
295 int confrq;
296
297 /* TODO: change this to set active flag to 0 when added to event! --Habeeb */
298 if (GlobalSetOptions.autoconn == 0)
299 return;
300
301 DLINK_FOREACH(ptr, server_items.head)
302 {
303 conf = ptr->data;
304 aconf = map_to_conf(conf);
305
306 /* Also when already connecting! (update holdtimes) --SRB
307 */
308 if (!(aconf->status & CONF_SERVER) || !aconf->port ||
309 !(IsConfAllowAutoConn(aconf)))
310 continue;
311
312 cltmp = map_to_conf(aconf->class_ptr);
313
314 /* Skip this entry if the use of it is still on hold until
315 * future. Otherwise handle this entry (and set it on hold
316 * until next time). Will reset only hold times, if already
317 * made one successfull connection... [this algorithm is
318 * a bit fuzzy... -- msa >;) ]
319 */
320 if (aconf->hold > CurrentTime)
321 continue;
322
323 if (cltmp == NULL)
324 confrq = DEFAULT_CONNECTFREQUENCY;
325 else
326 {
327 confrq = ConFreq(cltmp);
328 if (confrq < MIN_CONN_FREQ )
329 confrq = MIN_CONN_FREQ;
330 }
331
332 aconf->hold = CurrentTime + confrq;
333
334 /* Found a CONNECT config with port specified, scan clients
335 * and see if this server is already connected?
336 */
337 if (hash_find_server(conf->name) != NULL)
338 continue;
339
340 if (CurrUserCount(cltmp) < MaxTotal(cltmp))
341 {
342 /* Go to the end of the list, if not already last */
343 if (ptr->next != NULL)
344 {
345 dlinkDelete(ptr, &server_items);
346 dlinkAddTail(conf, &conf->node, &server_items);
347 }
348
349 if (find_servconn_in_progress(conf->name))
350 return;
351
352 /* We used to only print this if serv_connect() actually
353 * succeeded, but since comm_tcp_connect() can call the callback
354 * immediately if there is an error, we were getting error messages
355 * in the wrong order. SO, we just print out the activated line,
356 * and let serv_connect() / serv_connect_callback() print an
357 * error afterwards if it fails.
358 * -- adrian
359 */
360 if (ConfigServerHide.hide_server_ips)
361 sendto_realops_flags(UMODE_ALL, L_ALL, "Connection to %s activated.",
362 conf->name);
363 else
364 sendto_realops_flags(UMODE_ALL, L_ALL, "Connection to %s[%s] activated.",
365 conf->name, aconf->host);
366
367 serv_connect(aconf, NULL);
368 /* We connect only one at time... */
369 return;
370 }
371 }
372 }
373
374 int
375 valid_servname(const char *name)
376 {
377 unsigned int length = 0;
378 unsigned int dots = 0;
379 const char *p = name;
380
381 for (; *p; ++p)
382 {
383 if (!IsServChar(*p))
384 return 0;
385
386 ++length;
387
388 if (*p == '.')
389 ++dots;
390 }
391
392 return dots != 0 && length <= HOSTLEN;
393 }
394
395 int
396 check_server(const char *name, struct Client *client_p)
397 {
398 dlink_node *ptr;
399 struct ConfItem *conf = NULL;
400 struct ConfItem *server_conf = NULL;
401 struct AccessItem *server_aconf = NULL;
402 struct AccessItem *aconf = NULL;
403 int error = -1;
404
405 assert(client_p != NULL);
406
407 if (client_p == NULL)
408 return(error);
409
410 if (strlen(name) > HOSTLEN)
411 return(-4);
412
413 /* loop through looking for all possible connect items that might work */
414 DLINK_FOREACH(ptr, server_items.head)
415 {
416 conf = ptr->data;
417 aconf = map_to_conf(conf);
418
419 if (!match(name, conf->name))
420 continue;
421
422 error = -3;
423
424 /* XXX: Fix me for IPv6 */
425 /* XXX sockhost is the IPv4 ip as a string */
426 if (match(aconf->host, client_p->host) ||
427 match(aconf->host, client_p->sockhost))
428 {
429 error = -2;
430 {
431 /* A NULL password is as good as a bad one */
432 if (EmptyString(client_p->localClient->passwd))
433 return(-2);
434
435 /* code in s_conf.c should not have allowed this to be NULL */
436 if (aconf->passwd == NULL)
437 return(-2);
438
439 if (IsConfEncrypted(aconf))
440 {
441 if (strcmp(aconf->passwd,
442 (const char *)crypt(client_p->localClient->passwd,
443 aconf->passwd)) == 0)
444 server_conf = conf;
445 }
446 else
447 {
448 if (strcmp(aconf->passwd, client_p->localClient->passwd) == 0)
449 server_conf = conf;
450 }
451 }
452 }
453 }
454
455 if (server_conf == NULL)
456 return(error);
457
458 attach_conf(client_p, server_conf);
459
460 /* Now find all leaf or hub config items for this server */
461 DLINK_FOREACH(ptr, hub_items.head)
462 {
463 conf = ptr->data;
464
465 if (!match(name, conf->name))
466 continue;
467 attach_conf(client_p, conf);
468 }
469
470 DLINK_FOREACH(ptr, leaf_items.head)
471 {
472 conf = ptr->data;
473
474 if (!match(name, conf->name))
475 continue;
476 attach_conf(client_p, conf);
477 }
478
479 server_aconf = map_to_conf(server_conf);
480
481 if (!IsConfTopicBurst(server_aconf))
482 {
483 ClearCap(client_p, CAP_TB);
484 ClearCap(client_p, CAP_TBURST);
485 }
486
487 if (aconf != NULL)
488 {
489 struct sockaddr_in *v4;
490 #ifdef IPV6
491 struct sockaddr_in6 *v6;
492 #endif
493 switch (aconf->aftype)
494 {
495 #ifdef IPV6
496 case AF_INET6:
497 v6 = (struct sockaddr_in6 *)&aconf->ipnum;
498
499 if (IN6_IS_ADDR_UNSPECIFIED(&v6->sin6_addr))
500 memcpy(&aconf->ipnum, &client_p->localClient->ip, sizeof(struct irc_ssaddr));
501 break;
502 #endif
503 case AF_INET:
504 v4 = (struct sockaddr_in *)&aconf->ipnum;
505
506 if (v4->sin_addr.s_addr == INADDR_NONE)
507 memcpy(&aconf->ipnum, &client_p->localClient->ip, sizeof(struct irc_ssaddr));
508 break;
509 }
510 }
511
512 return(0);
513 }
514
515 /* add_capability()
516 *
517 * inputs - string name of CAPAB
518 * - int flag of capability
519 * output - NONE
520 * side effects - Adds given capability name and bit mask to
521 * current supported capabilities. This allows
522 * modules to dynamically add or subtract their capability.
523 */
524 void
525 add_capability(const char *capab_name, int cap_flag, int add_to_default)
526 {
527 struct Capability *cap = MyMalloc(sizeof(*cap));
528
529 DupString(cap->name, capab_name);
530 cap->cap = cap_flag;
531 dlinkAdd(cap, &cap->node, &cap_list);
532
533 if (add_to_default)
534 default_server_capabs |= cap_flag;
535 }
536
537 /* delete_capability()
538 *
539 * inputs - string name of CAPAB
540 * output - NONE
541 * side effects - delete given capability from ones known.
542 */
543 int
544 delete_capability(const char *capab_name)
545 {
546 dlink_node *ptr;
547 dlink_node *next_ptr;
548 struct Capability *cap;
549
550 DLINK_FOREACH_SAFE(ptr, next_ptr, cap_list.head)
551 {
552 cap = ptr->data;
553
554 if (cap->cap != 0)
555 {
556 if (irccmp(cap->name, capab_name) == 0)
557 {
558 default_server_capabs &= ~(cap->cap);
559 dlinkDelete(ptr, &cap_list);
560 MyFree(cap->name);
561 cap->name = NULL;
562 MyFree(cap);
563 }
564 }
565 }
566
567 return 0;
568 }
569
570 /*
571 * find_capability()
572 *
573 * inputs - string name of capab to find
574 * output - 0 if not found CAPAB otherwise
575 * side effects - none
576 */
577 int
578 find_capability(const char *capab)
579 {
580 const dlink_node *ptr = NULL;
581
582 DLINK_FOREACH(ptr, cap_list.head)
583 {
584 const struct Capability *cap = ptr->data;
585
586 if (cap->cap && !irccmp(cap->name, capab))
587 return cap->cap;
588 }
589
590 return 0;
591 }
592
593 /* send_capabilities()
594 *
595 * inputs - Client pointer to send to
596 * - Pointer to AccessItem (for crypt)
597 * - int flag of capabilities that this server can send
598 * output - NONE
599 * side effects - send the CAPAB line to a server -orabidoo
600 *
601 */
602 void
603 send_capabilities(struct Client *client_p, struct AccessItem *aconf,
604 int cap_can_send)
605 {
606 struct Capability *cap=NULL;
607 char msgbuf[IRCD_BUFSIZE];
608 char *t;
609 int tl;
610 dlink_node *ptr;
611
612 t = msgbuf;
613
614 DLINK_FOREACH(ptr, cap_list.head)
615 {
616 cap = ptr->data;
617
618 if (cap->cap & (cap_can_send|default_server_capabs))
619 {
620 tl = ircsprintf(t, "%s ", cap->name);
621 t += tl;
622 }
623 }
624
625 *(t - 1) = '\0';
626 sendto_one(client_p, "CAPAB :%s", msgbuf);
627 }
628
629 /* sendnick_TS()
630 *
631 * inputs - client (server) to send nick towards
632 * - client to send nick for
633 * output - NONE
634 * side effects - NICK message is sent towards given client_p
635 */
636 void
637 sendnick_TS(struct Client *client_p, struct Client *target_p)
638 {
639 static char ubuf[12];
640
641 if (!IsClient(target_p))
642 return;
643
644 send_umode(NULL, target_p, 0, SEND_UMODES, ubuf);
645
646 if (ubuf[0] == '\0')
647 {
648 ubuf[0] = '+';
649 ubuf[1] = '\0';
650 }
651
652 /* XXX Both of these need to have a :me.name or :mySID!?!?! */
653 if (IsCapable(client_p, CAP_SVS))
654 {
655 if (HasID(target_p) && IsCapable(client_p, CAP_TS6))
656 sendto_one(client_p, ":%s UID %s %d %lu %s %s %s %s %s %lu :%s",
657 target_p->servptr->id,
658 target_p->name, target_p->hopcount + 1,
659 (unsigned long) target_p->tsinfo,
660 ubuf, target_p->username, target_p->host,
661 (MyClient(target_p) && IsIPSpoof(target_p)) ?
662 "0" : target_p->sockhost, target_p->id,
663 (unsigned long)target_p->servicestamp, target_p->info);
664 else
665 sendto_one(client_p, "NICK %s %d %lu %s %s %s %s %lu :%s",
666 target_p->name, target_p->hopcount + 1,
667 (unsigned long) target_p->tsinfo,
668 ubuf, target_p->username, target_p->host,
669 target_p->servptr->name, (unsigned long)target_p->servicestamp,
670 target_p->info);
671 }
672 else
673 {
674 if (HasID(target_p) && IsCapable(client_p, CAP_TS6))
675 sendto_one(client_p, ":%s UID %s %d %lu %s %s %s %s %s :%s",
676 target_p->servptr->id,
677 target_p->name, target_p->hopcount + 1,
678 (unsigned long) target_p->tsinfo,
679 ubuf, target_p->username, target_p->host,
680 (MyClient(target_p) && IsIPSpoof(target_p)) ?
681 "0" : target_p->sockhost, target_p->id, target_p->info);
682 else
683 sendto_one(client_p, "NICK %s %d %lu %s %s %s %s :%s",
684 target_p->name, target_p->hopcount + 1,
685 (unsigned long) target_p->tsinfo,
686 ubuf, target_p->username, target_p->host,
687 target_p->servptr->name, target_p->info);
688 }
689
690 if (IsConfAwayBurst((struct AccessItem *)map_to_conf(client_p->serv->sconf)))
691 if (!EmptyString(target_p->away))
692 sendto_one(client_p, ":%s AWAY :%s", target_p->name,
693 target_p->away);
694
695 }
696
697 /*
698 * show_capabilities - show current server capabilities
699 *
700 * inputs - pointer to a struct Client
701 * output - pointer to static string
702 * side effects - build up string representing capabilities of server listed
703 */
704 const char *
705 show_capabilities(struct Client *target_p)
706 {
707 static char msgbuf[IRCD_BUFSIZE];
708 char *t = msgbuf;
709 dlink_node *ptr;
710
711 t += ircsprintf(msgbuf, "TS ");
712
713 DLINK_FOREACH(ptr, cap_list.head)
714 {
715 const struct Capability *cap = ptr->data;
716
717 if (IsCapable(target_p, cap->cap))
718 t += ircsprintf(t, "%s ", cap->name);
719 }
720
721 *(t - 1) = '\0';
722 return msgbuf;
723 }
724
725 /* make_server()
726 *
727 * inputs - pointer to client struct
728 * output - pointer to struct Server
729 * side effects - add's an Server information block to a client
730 * if it was not previously allocated.
731 */
732 struct Server *
733 make_server(struct Client *client_p)
734 {
735 if (client_p->serv == NULL)
736 client_p->serv = MyMalloc(sizeof(struct Server));
737
738 return client_p->serv;
739 }
740
741 /* server_estab()
742 *
743 * inputs - pointer to a struct Client
744 * output -
745 * side effects -
746 */
747 void
748 server_estab(struct Client *client_p)
749 {
750 struct Client *target_p;
751 struct ConfItem *conf;
752 struct AccessItem *aconf=NULL;
753 char *host;
754 const char *inpath;
755 static char inpath_ip[HOSTLEN * 2 + USERLEN + 6];
756 dlink_node *ptr;
757 #ifdef HAVE_LIBCRYPTO
758 const COMP_METHOD *compression = NULL, *expansion = NULL;
759 #endif
760
761 assert(client_p != NULL);
762
763 strlcpy(inpath_ip, get_client_name(client_p, SHOW_IP), sizeof(inpath_ip));
764
765 inpath = get_client_name(client_p, MASK_IP); /* "refresh" inpath with host */
766 host = client_p->name;
767
768 if ((conf = find_conf_name(&client_p->localClient->confs, host, SERVER_TYPE))
769 == NULL)
770 {
771 /* This shouldn't happen, better tell the ops... -A1kmm */
772 sendto_realops_flags(UMODE_ALL, L_ALL, "Warning: Lost connect{} block "
773 "for server %s(this shouldn't happen)!", host);
774 exit_client(client_p, &me, "Lost connect{} block!");
775 return;
776 }
777
778 MyFree(client_p->localClient->passwd);
779 client_p->localClient->passwd = NULL;
780
781 /* Its got identd, since its a server */
782 SetGotId(client_p);
783
784 /* If there is something in the serv_list, it might be this
785 * connecting server..
786 */
787 if (!ServerInfo.hub && serv_list.head)
788 {
789 if (client_p != serv_list.head->data || serv_list.head->next)
790 {
791 ++ServerStats.is_ref;
792 sendto_one(client_p, "ERROR :I'm a leaf not a hub");
793 exit_client(client_p, &me, "I'm a leaf");
794 return;
795 }
796 }
797
798 aconf = map_to_conf(conf);
799
800 if (IsUnknown(client_p))
801 {
802 /* jdc -- 1. Use EmptyString(), not [0] index reference.
803 * 2. Check aconf->spasswd, not aconf->passwd.
804 */
805 if (!EmptyString(aconf->spasswd))
806 sendto_one(client_p, "PASS %s TS %d %s",
807 aconf->spasswd, TS_CURRENT, me.id);
808
809 /* Pass my info to the new server
810 *
811 * Pass on ZIP if supported
812 * Pass on TB if supported.
813 * - Dianora
814 */
815
816 send_capabilities(client_p, aconf,
817 (IsConfTopicBurst(aconf) ? CAP_TBURST|CAP_TB : 0));
818
819 sendto_one(client_p, "SERVER %s 1 :%s%s",
820 me.name, ConfigServerHide.hidden ? "(H) " : "", me.info);
821 }
822
823 sendto_one(client_p, "SVINFO %d %d 0 :%lu", TS_CURRENT, TS_MIN,
824 (unsigned long)CurrentTime);
825
826 /* assumption here is if they passed the correct TS version, they also passed an SID */
827 if (IsCapable(client_p, CAP_TS6))
828 hash_add_id(client_p);
829
830 /* XXX Does this ever happen? I don't think so -db */
831 detach_conf(client_p, OPER_TYPE);
832
833 /* *WARNING*
834 ** In the following code in place of plain server's
835 ** name we send what is returned by get_client_name
836 ** which may add the "sockhost" after the name. It's
837 ** *very* *important* that there is a SPACE between
838 ** the name and sockhost (if present). The receiving
839 ** server will start the information field from this
840 ** first blank and thus puts the sockhost into info.
841 ** ...a bit tricky, but you have been warned, besides
842 ** code is more neat this way... --msa
843 */
844 client_p->servptr = &me;
845
846 if (IsClosing(client_p))
847 return;
848
849 SetServer(client_p);
850
851 /* Update the capability combination usage counts. -A1kmm */
852 set_chcap_usage_counts(client_p);
853
854 /* Some day, all these lists will be consolidated *sigh* */
855 dlinkAdd(client_p, &client_p->lnode, &me.serv->server_list);
856
857 assert(dlinkFind(&unknown_list, client_p));
858
859 dlink_move_node(&client_p->localClient->lclient_node,
860 &unknown_list, &serv_list);
861
862 Count.myserver++;
863
864 dlinkAdd(client_p, make_dlink_node(), &global_serv_list);
865 hash_add_client(client_p);
866
867 /* doesnt duplicate client_p->serv if allocated this struct already */
868 make_server(client_p);
869
870 /* fixing eob timings.. -gnp */
871 client_p->localClient->firsttime = CurrentTime;
872
873 if (find_matching_name_conf(SERVICE_TYPE, client_p->name, NULL, NULL, 0))
874 AddFlag(client_p, FLAGS_SERVICE);
875
876 /* Show the real host/IP to admins */
877 #ifdef HAVE_LIBCRYPTO
878 if (client_p->localClient->fd.ssl)
879 {
880 compression = SSL_get_current_compression(client_p->localClient->fd.ssl);
881 expansion = SSL_get_current_expansion(client_p->localClient->fd.ssl);
882
883 sendto_realops_flags(UMODE_ALL, L_ADMIN,
884 "Link with %s established: [SSL: %s, Compression/Expansion method: %s/%s] (Capabilities: %s)",
885 inpath_ip, ssl_get_cipher(client_p->localClient->fd.ssl),
886 compression ? SSL_COMP_get_name(compression) : "NONE",
887 expansion ? SSL_COMP_get_name(expansion) : "NONE",
888 show_capabilities(client_p));
889 /* Now show the masked hostname/IP to opers */
890 sendto_realops_flags(UMODE_ALL, L_OPER,
891 "Link with %s established: [SSL: %s, Compression/Expansion method: %s/%s] (Capabilities: %s)",
892 inpath, ssl_get_cipher(client_p->localClient->fd.ssl),
893 compression ? SSL_COMP_get_name(compression) : "NONE",
894 expansion ? SSL_COMP_get_name(expansion) : "NONE",
895 show_capabilities(client_p));
896 ilog(LOG_TYPE_IRCD, "Link with %s established: [SSL: %s, Compression/Expansion method: %s/%s] (Capabilities: %s)",
897 inpath_ip, ssl_get_cipher(client_p->localClient->fd.ssl),
898 compression ? SSL_COMP_get_name(compression) : "NONE",
899 expansion ? SSL_COMP_get_name(expansion) : "NONE",
900 show_capabilities(client_p));
901 }
902 else
903 #endif
904 {
905 sendto_realops_flags(UMODE_ALL, L_ADMIN,
906 "Link with %s established: (Capabilities: %s)",
907 inpath_ip,show_capabilities(client_p));
908 /* Now show the masked hostname/IP to opers */
909 sendto_realops_flags(UMODE_ALL, L_OPER,
910 "Link with %s established: (Capabilities: %s)",
911 inpath,show_capabilities(client_p));
912 ilog(LOG_TYPE_IRCD, "Link with %s established: (Capabilities: %s)",
913 inpath_ip, show_capabilities(client_p));
914 }
915
916 client_p->serv->sconf = conf;
917
918 fd_note(&client_p->localClient->fd, "Server: %s", client_p->name);
919
920 /* Old sendto_serv_but_one() call removed because we now
921 ** need to send different names to different servers
922 ** (domain name matching) Send new server to other servers.
923 */
924 DLINK_FOREACH(ptr, serv_list.head)
925 {
926 target_p = ptr->data;
927
928 if (target_p == client_p)
929 continue;
930
931 if (IsCapable(target_p, CAP_TS6) && HasID(client_p))
932 sendto_one(target_p, ":%s SID %s 2 %s :%s%s",
933 me.id, client_p->name, client_p->id,
934 IsHidden(client_p) ? "(H) " : "",
935 client_p->info);
936 else
937 sendto_one(target_p,":%s SERVER %s 2 :%s%s",
938 me.name, client_p->name,
939 IsHidden(client_p) ? "(H) " : "",
940 client_p->info);
941 }
942
943 /* Pass on my client information to the new server
944 **
945 ** First, pass only servers (idea is that if the link gets
946 ** cancelled beacause the server was already there,
947 ** there are no NICK's to be cancelled...). Of course,
948 ** if cancellation occurs, all this info is sent anyway,
949 ** and I guess the link dies when a read is attempted...? --msa
950 **
951 ** Note: Link cancellation to occur at this point means
952 ** that at least two servers from my fragment are building
953 ** up connection this other fragment at the same time, it's
954 ** a race condition, not the normal way of operation...
955 **
956 ** ALSO NOTE: using the get_client_name for server names--
957 ** see previous *WARNING*!!! (Also, original inpath
958 ** is destroyed...)
959 */
960
961 DLINK_FOREACH_PREV(ptr, global_serv_list.tail)
962 {
963 target_p = ptr->data;
964
965 /* target_p->from == target_p for target_p == client_p */
966 if (IsMe(target_p) || target_p->from == client_p)
967 continue;
968
969 if (IsCapable(client_p, CAP_TS6))
970 {
971 if (HasID(target_p))
972 sendto_one(client_p, ":%s SID %s %d %s :%s%s",
973 ID(target_p->servptr), target_p->name, target_p->hopcount+1,
974 target_p->id, IsHidden(target_p) ? "(H) " : "",
975 target_p->info);
976 else /* introducing non-ts6 server */
977 sendto_one(client_p, ":%s SERVER %s %d :%s%s",
978 ID(target_p->servptr), target_p->name, target_p->hopcount+1,
979 IsHidden(target_p) ? "(H) " : "", target_p->info);
980 }
981 else
982 sendto_one(client_p, ":%s SERVER %s %d :%s%s",
983 target_p->servptr->name, target_p->name, target_p->hopcount+1,
984 IsHidden(target_p) ? "(H) " : "", target_p->info);
985 }
986
987 server_burst(client_p);
988 }
989
990 /* server_burst()
991 *
992 * inputs - struct Client pointer server
993 * -
994 * output - none
995 * side effects - send a server burst
996 * bugs - still too long
997 */
998 static void
999 server_burst(struct Client *client_p)
1000 {
1001 /* Send it in the shortened format with the TS, if
1002 ** it's a TS server; walk the list of channels, sending
1003 ** all the nicks that haven't been sent yet for each
1004 ** channel, then send the channel itself -- it's less
1005 ** obvious than sending all nicks first, but on the
1006 ** receiving side memory will be allocated more nicely
1007 ** saving a few seconds in the handling of a split
1008 ** -orabidoo
1009 */
1010
1011 burst_all(client_p);
1012
1013 /* EOB stuff is now in burst_all */
1014 /* Always send a PING after connect burst is done */
1015 sendto_one(client_p, "PING :%s", ID_or_name(&me, client_p));
1016 }
1017
1018 /* burst_all()
1019 *
1020 * inputs - pointer to server to send burst to
1021 * output - NONE
1022 * side effects - complete burst of channels/nicks is sent to client_p
1023 */
1024 static void
1025 burst_all(struct Client *client_p)
1026 {
1027 dlink_node *ptr = NULL;
1028
1029 DLINK_FOREACH(ptr, global_channel_list.head)
1030 {
1031 struct Channel *chptr = ptr->data;
1032
1033 if (dlink_list_length(&chptr->members) != 0)
1034 {
1035 burst_members(client_p, chptr);
1036 send_channel_modes(client_p, chptr);
1037
1038 if (IsCapable(client_p, CAP_TBURST) ||
1039 IsCapable(client_p, CAP_TB))
1040 send_tb(client_p, chptr);
1041 }
1042 }
1043
1044 /* also send out those that are not on any channel
1045 */
1046 DLINK_FOREACH(ptr, global_client_list.head)
1047 {
1048 struct Client *target_p = ptr->data;
1049
1050 if (!HasFlag(target_p, FLAGS_BURSTED) && target_p->from != client_p)
1051 sendnick_TS(client_p, target_p);
1052
1053 DelFlag(target_p, FLAGS_BURSTED);
1054 }
1055
1056 /* We send the time we started the burst, and let the remote host determine an EOB time,
1057 ** as otherwise we end up sending a EOB of 0 Sending here means it gets sent last -- fl
1058 */
1059 /* Its simpler to just send EOB and use the time its been connected.. --fl_ */
1060 if (IsCapable(client_p, CAP_EOB))
1061 sendto_one(client_p, ":%s EOB", ID_or_name(&me, client_p));
1062 }
1063
1064 /*
1065 * send_tb
1066 *
1067 * inputs - pointer to Client
1068 * - pointer to channel
1069 * output - NONE
1070 * side effects - Called on a server burst when
1071 * server is CAP_TB|CAP_TBURST capable
1072 */
1073 static void
1074 send_tb(struct Client *client_p, struct Channel *chptr)
1075 {
1076 /*
1077 * We may also send an empty topic here, but only if topic_time isn't 0,
1078 * i.e. if we had a topic that got unset. This is required for syncing
1079 * topics properly.
1080 *
1081 * Imagine the following scenario: Our downlink introduces a channel
1082 * to us with a TS that is equal to ours, but the channel topic on
1083 * their side got unset while the servers were in splitmode, which means
1084 * their 'topic' is newer. They simply wanted to unset it, so we have to
1085 * deal with it in a more sophisticated fashion instead of just resetting
1086 * it to their old topic they had before. Read m_tburst.c:ms_tburst
1087 * for further information -Michael
1088 */
1089 if (chptr->topic_time != 0)
1090 {
1091 if (IsCapable(client_p, CAP_TBURST))
1092 sendto_one(client_p, ":%s TBURST %lu %s %lu %s :%s",
1093 me.name, (unsigned long)chptr->channelts, chptr->chname,
1094 (unsigned long)chptr->topic_time,
1095 chptr->topic_info,
1096 chptr->topic);
1097 else if (IsCapable(client_p, CAP_TB))
1098 {
1099 if (ConfigChannel.burst_topicwho)
1100 {
1101 sendto_one(client_p, ":%s TB %s %lu %s :%s",
1102 me.name, chptr->chname,
1103 (unsigned long)chptr->topic_time,
1104 chptr->topic_info, chptr->topic);
1105 }
1106 else
1107 {
1108 sendto_one(client_p, ":%s TB %s %lu :%s",
1109 me.name, chptr->chname,
1110 (unsigned long)chptr->topic_time,
1111 chptr->topic);
1112 }
1113 }
1114 }
1115 }
1116
1117 /* burst_members()
1118 *
1119 * inputs - pointer to server to send members to
1120 * - dlink_list pointer to membership list to send
1121 * output - NONE
1122 * side effects -
1123 */
1124 static void
1125 burst_members(struct Client *client_p, struct Channel *chptr)
1126 {
1127 struct Client *target_p;
1128 struct Membership *ms;
1129 dlink_node *ptr;
1130
1131 DLINK_FOREACH(ptr, chptr->members.head)
1132 {
1133 ms = ptr->data;
1134 target_p = ms->client_p;
1135
1136 if (!HasFlag(target_p, FLAGS_BURSTED))
1137 {
1138 AddFlag(target_p, FLAGS_BURSTED);
1139
1140 if (target_p->from != client_p)
1141 sendnick_TS(client_p, target_p);
1142 }
1143 }
1144 }
1145
1146 /* New server connection code
1147 * Based upon the stuff floating about in s_bsd.c
1148 * -- adrian
1149 */
1150
1151 /* serv_connect() - initiate a server connection
1152 *
1153 * inputs - pointer to conf
1154 * - pointer to client doing the connect
1155 * output -
1156 * side effects -
1157 *
1158 * This code initiates a connection to a server. It first checks to make
1159 * sure the given server exists. If this is the case, it creates a socket,
1160 * creates a client, saves the socket information in the client, and
1161 * initiates a connection to the server through comm_connect_tcp(). The
1162 * completion of this goes through serv_completed_connection().
1163 *
1164 * We return 1 if the connection is attempted, since we don't know whether
1165 * it suceeded or not, and 0 if it fails in here somewhere.
1166 */
1167 int
1168 serv_connect(struct AccessItem *aconf, struct Client *by)
1169 {
1170 struct ConfItem *conf;
1171 struct Client *client_p;
1172 char buf[HOSTIPLEN];
1173
1174 /* conversion structs */
1175 struct sockaddr_in *v4;
1176 /* Make sure aconf is useful */
1177 assert(aconf != NULL);
1178
1179 if(aconf == NULL)
1180 return (0);
1181
1182 /* XXX should be passing struct ConfItem in the first place */
1183 conf = unmap_conf_item(aconf);
1184
1185 /* log */
1186 getnameinfo((struct sockaddr *)&aconf->ipnum, aconf->ipnum.ss_len,
1187 buf, sizeof(buf), NULL, 0, NI_NUMERICHOST);
1188 ilog(LOG_TYPE_IRCD, "Connect to %s[%s] @%s", aconf->user, aconf->host,
1189 buf);
1190
1191 /* Still processing a DNS lookup? -> exit */
1192 if (aconf->dns_pending)
1193 {
1194 sendto_realops_flags(UMODE_ALL, L_ALL,
1195 "Error connecting to %s: DNS lookup for connect{} in progress.",
1196 conf->name);
1197 return (0);
1198 }
1199
1200 if (aconf->dns_failed)
1201 {
1202 sendto_realops_flags(UMODE_ALL, L_ALL,
1203 "Error connecting to %s: DNS lookup for connect{} failed.",
1204 conf->name);
1205 return (0);
1206 }
1207
1208 /* Make sure this server isn't already connected
1209 * Note: aconf should ALWAYS be a valid C: line
1210 */
1211 if ((client_p = hash_find_server(conf->name)) != NULL)
1212 {
1213 sendto_realops_flags(UMODE_ALL, L_ADMIN,
1214 "Server %s already present from %s",
1215 conf->name, get_client_name(client_p, SHOW_IP));
1216 sendto_realops_flags(UMODE_ALL, L_OPER,
1217 "Server %s already present from %s",
1218 conf->name, get_client_name(client_p, MASK_IP));
1219 if (by && IsClient(by) && !MyClient(by))
1220 sendto_one(by, ":%s NOTICE %s :Server %s already present from %s",
1221 me.name, by->name, conf->name,
1222 get_client_name(client_p, MASK_IP));
1223 return (0);
1224 }
1225
1226 /* Create a local client */
1227 client_p = make_client(NULL);
1228
1229 /* Copy in the server, hostname, fd */
1230 strlcpy(client_p->name, conf->name, sizeof(client_p->name));
1231 strlcpy(client_p->host, aconf->host, sizeof(client_p->host));
1232
1233 /* We already converted the ip once, so lets use it - stu */
1234 strlcpy(client_p->sockhost, buf, sizeof(client_p->sockhost));
1235
1236 /* create a socket for the server connection */
1237 if (comm_open(&client_p->localClient->fd, aconf->ipnum.ss.ss_family,
1238 SOCK_STREAM, 0, NULL) < 0)
1239 {
1240 /* Eek, failure to create the socket */
1241 report_error(L_ALL,
1242 "opening stream socket to %s: %s", conf->name, errno);
1243 SetDead(client_p);
1244 exit_client(client_p, &me, "Connection failed");
1245 return (0);
1246 }
1247
1248 /* servernames are always guaranteed under HOSTLEN chars */
1249 fd_note(&client_p->localClient->fd, "Server: %s", conf->name);
1250
1251 /* Attach config entries to client here rather than in
1252 * serv_connect_callback(). This to avoid null pointer references.
1253 */
1254 if (!attach_connect_block(client_p, conf->name, aconf->host))
1255 {
1256 sendto_realops_flags(UMODE_ALL, L_ALL,
1257 "Host %s is not enabled for connecting:no C/N-line",
1258 conf->name);
1259 if (by && IsClient(by) && !MyClient(by))
1260 sendto_one(by, ":%s NOTICE %s :Connect to host %s failed.",
1261 me.name, by->name, client_p->name);
1262 SetDead(client_p);
1263 exit_client(client_p, client_p, "Connection failed");
1264 return (0);
1265 }
1266
1267 /* at this point we have a connection in progress and C/N lines
1268 * attached to the client, the socket info should be saved in the
1269 * client and it should either be resolved or have a valid address.
1270 *
1271 * The socket has been connected or connect is in progress.
1272 */
1273 make_server(client_p);
1274
1275 if (by && IsClient(by))
1276 strlcpy(client_p->serv->by, by->name, sizeof(client_p->serv->by));
1277 else
1278 strlcpy(client_p->serv->by, "AutoConn.", sizeof(client_p->serv->by));
1279
1280 SetConnecting(client_p);
1281 dlinkAdd(client_p, &client_p->node, &global_client_list);
1282 /* from def_fam */
1283 client_p->localClient->aftype = aconf->aftype;
1284
1285 /* Now, initiate the connection */
1286 /* XXX assume that a non 0 type means a specific bind address
1287 * for this connect.
1288 */
1289 switch (aconf->aftype)
1290 {
1291 case AF_INET:
1292 v4 = (struct sockaddr_in*)&aconf->my_ipnum;
1293 if (v4->sin_addr.s_addr != 0)
1294 {
1295 struct irc_ssaddr ipn;
1296 memset(&ipn, 0, sizeof(struct irc_ssaddr));
1297 ipn.ss.ss_family = AF_INET;
1298 ipn.ss_port = 0;
1299 memcpy(&ipn, &aconf->my_ipnum, sizeof(struct irc_ssaddr));
1300 comm_connect_tcp(&client_p->localClient->fd, aconf->host, aconf->port,
1301 (struct sockaddr *)&ipn, ipn.ss_len,
1302 serv_connect_callback, client_p, aconf->aftype,
1303 CONNECTTIMEOUT);
1304 }
1305 else if (ServerInfo.specific_ipv4_vhost)
1306 {
1307 struct irc_ssaddr ipn;
1308 memset(&ipn, 0, sizeof(struct irc_ssaddr));
1309 ipn.ss.ss_family = AF_INET;
1310 ipn.ss_port = 0;
1311 memcpy(&ipn, &ServerInfo.ip, sizeof(struct irc_ssaddr));
1312 comm_connect_tcp(&client_p->localClient->fd, aconf->host, aconf->port,
1313 (struct sockaddr *)&ipn, ipn.ss_len,
1314 serv_connect_callback, client_p, aconf->aftype,
1315 CONNECTTIMEOUT);
1316 }
1317 else
1318 comm_connect_tcp(&client_p->localClient->fd, aconf->host, aconf->port,
1319 NULL, 0, serv_connect_callback, client_p, aconf->aftype,
1320 CONNECTTIMEOUT);
1321 break;
1322 #ifdef IPV6
1323 case AF_INET6:
1324 {
1325 struct irc_ssaddr ipn;
1326 struct sockaddr_in6 *v6;
1327 struct sockaddr_in6 *v6conf;
1328
1329 memset(&ipn, 0, sizeof(struct irc_ssaddr));
1330 v6conf = (struct sockaddr_in6 *)&aconf->my_ipnum;
1331 v6 = (struct sockaddr_in6 *)&ipn;
1332
1333 if (memcmp(&v6conf->sin6_addr, &v6->sin6_addr,
1334 sizeof(struct in6_addr)) != 0)
1335 {
1336 memcpy(&ipn, &aconf->my_ipnum, sizeof(struct irc_ssaddr));
1337 ipn.ss.ss_family = AF_INET6;
1338 ipn.ss_port = 0;
1339 comm_connect_tcp(&client_p->localClient->fd,
1340 aconf->host, aconf->port,
1341 (struct sockaddr *)&ipn, ipn.ss_len,
1342 serv_connect_callback, client_p,
1343 aconf->aftype, CONNECTTIMEOUT);
1344 }
1345 else if (ServerInfo.specific_ipv6_vhost)
1346 {
1347 memcpy(&ipn, &ServerInfo.ip6, sizeof(struct irc_ssaddr));
1348 ipn.ss.ss_family = AF_INET6;
1349 ipn.ss_port = 0;
1350 comm_connect_tcp(&client_p->localClient->fd,
1351 aconf->host, aconf->port,
1352 (struct sockaddr *)&ipn, ipn.ss_len,
1353 serv_connect_callback, client_p,
1354 aconf->aftype, CONNECTTIMEOUT);
1355 }
1356 else
1357 comm_connect_tcp(&client_p->localClient->fd,
1358 aconf->host, aconf->port,
1359 NULL, 0, serv_connect_callback, client_p,
1360 aconf->aftype, CONNECTTIMEOUT);
1361 }
1362 #endif
1363 }
1364 return (1);
1365 }
1366
1367 #ifdef HAVE_LIBCRYPTO
1368 static void
1369 finish_ssl_server_handshake(struct Client *client_p)
1370 {
1371 struct ConfItem *conf=NULL;
1372 struct AccessItem *aconf=NULL;
1373
1374 conf = find_conf_name(&client_p->localClient->confs,
1375 client_p->name, SERVER_TYPE);
1376 if (conf == NULL)
1377 {
1378 sendto_realops_flags(UMODE_ALL, L_ADMIN,
1379 "Lost connect{} block for %s", get_client_name(client_p, HIDE_IP));
1380 sendto_realops_flags(UMODE_ALL, L_OPER,
1381 "Lost connect{} block for %s", get_client_name(client_p, MASK_IP));
1382
1383 exit_client(client_p, &me, "Lost connect{} block");
1384 return;
1385 }
1386
1387 aconf = map_to_conf(conf);
1388
1389 /* jdc -- Check and send spasswd, not passwd. */
1390 if (!EmptyString(aconf->spasswd))
1391 sendto_one(client_p, "PASS %s TS %d %s",
1392 aconf->spasswd, TS_CURRENT, me.id);
1393
1394 send_capabilities(client_p, aconf,
1395 (IsConfTopicBurst(aconf) ? CAP_TBURST|CAP_TB : 0));
1396
1397 sendto_one(client_p, "SERVER %s 1 :%s%s",
1398 me.name, ConfigServerHide.hidden ? "(H) " : "",
1399 me.info);
1400
1401 /* If we've been marked dead because a send failed, just exit
1402 * here now and save everyone the trouble of us ever existing.
1403 */
1404 if (IsDead(client_p))
1405 {
1406 sendto_realops_flags(UMODE_ALL, L_ADMIN,
1407 "%s[%s] went dead during handshake",
1408 client_p->name,
1409 client_p->host);
1410 sendto_realops_flags(UMODE_ALL, L_OPER,
1411 "%s went dead during handshake", client_p->name);
1412 return;
1413 }
1414
1415 /* don't move to serv_list yet -- we haven't sent a burst! */
1416 /* If we get here, we're ok, so lets start reading some data */
1417 comm_setselect(&client_p->localClient->fd, COMM_SELECT_READ, read_packet, client_p, 0);
1418 }
1419
1420 static void
1421 ssl_server_handshake(fde_t *fd, struct Client *client_p)
1422 {
1423 int ret;
1424 int err;
1425
1426 ret = SSL_connect(client_p->localClient->fd.ssl);
1427
1428 if (ret <= 0)
1429 {
1430 switch ((err = SSL_get_error(client_p->localClient->fd.ssl, ret)))
1431 {
1432 case SSL_ERROR_WANT_WRITE:
1433 comm_setselect(&client_p->localClient->fd, COMM_SELECT_WRITE,
1434 (PF *)ssl_server_handshake, client_p, 0);
1435 return;
1436 case SSL_ERROR_WANT_READ:
1437 comm_setselect(&client_p->localClient->fd, COMM_SELECT_READ,
1438 (PF *)ssl_server_handshake, client_p, 0);
1439 return;
1440 default:
1441 {
1442 const char *sslerr = ERR_error_string(ERR_get_error(), NULL);
1443 sendto_realops_flags(UMODE_ALL, L_ALL,
1444 "Error connecting to %s: %s", client_p->name,
1445 sslerr ? sslerr : "unknown SSL error");
1446 exit_client(client_p, client_p, "Error during SSL handshake");
1447 return;
1448 }
1449 }
1450 }
1451
1452 finish_ssl_server_handshake(client_p);
1453 }
1454
1455 static void
1456 ssl_connect_init(struct Client *client_p, struct AccessItem *aconf, fde_t *fd)
1457 {
1458 if ((client_p->localClient->fd.ssl = SSL_new(ServerInfo.client_ctx)) == NULL)
1459 {
1460 ilog(LOG_TYPE_IRCD, "SSL_new() ERROR! -- %s",
1461 ERR_error_string(ERR_get_error(), NULL));
1462 SetDead(client_p);
1463 exit_client(client_p, client_p, "SSL_new failed");
1464 return;
1465 }
1466
1467 SSL_set_fd(fd->ssl, fd->fd);
1468
1469 if (!EmptyString(aconf->cipher_list))
1470 SSL_set_cipher_list(client_p->localClient->fd.ssl, aconf->cipher_list);
1471
1472 ssl_server_handshake(NULL, client_p);
1473 }
1474 #endif
1475
1476 /* serv_connect_callback() - complete a server connection.
1477 *
1478 * This routine is called after the server connection attempt has
1479 * completed. If unsucessful, an error is sent to ops and the client
1480 * is closed. If sucessful, it goes through the initialisation/check
1481 * procedures, the capabilities are sent, and the socket is then
1482 * marked for reading.
1483 */
1484 static void
1485 serv_connect_callback(fde_t *fd, int status, void *data)
1486 {
1487 struct Client *client_p = data;
1488 struct ConfItem *conf=NULL;
1489 struct AccessItem *aconf=NULL;
1490
1491 /* First, make sure its a real client! */
1492 assert(client_p != NULL);
1493 assert(&client_p->localClient->fd == fd);
1494
1495 /* Next, for backward purposes, record the ip of the server */
1496 memcpy(&client_p->localClient->ip, &fd->connect.hostaddr,
1497 sizeof(struct irc_ssaddr));
1498 /* Check the status */
1499 if (status != COMM_OK)
1500 {
1501 /* We have an error, so report it and quit
1502 * Admins get to see any IP, mere opers don't *sigh*
1503 */
1504 if (ConfigServerHide.hide_server_ips)
1505 sendto_realops_flags(UMODE_ALL, L_ADMIN,
1506 "Error connecting to %s: %s",
1507 client_p->name, comm_errstr(status));
1508 else
1509 sendto_realops_flags(UMODE_ALL, L_ADMIN,
1510 "Error connecting to %s[%s]: %s", client_p->name,
1511 client_p->host, comm_errstr(status));
1512
1513 sendto_realops_flags(UMODE_ALL, L_OPER,
1514 "Error connecting to %s: %s",
1515 client_p->name, comm_errstr(status));
1516
1517 /* If a fd goes bad, call dead_link() the socket is no
1518 * longer valid for reading or writing.
1519 */
1520 dead_link_on_write(client_p, 0);
1521 return;
1522 }
1523
1524 /* COMM_OK, so continue the connection procedure */
1525 /* Get the C/N lines */
1526 conf = find_conf_name(&client_p->localClient->confs,
1527 client_p->name, SERVER_TYPE);
1528 if (conf == NULL)
1529 {
1530 sendto_realops_flags(UMODE_ALL, L_ADMIN,
1531 "Lost connect{} block for %s", get_client_name(client_p, HIDE_IP));
1532 sendto_realops_flags(UMODE_ALL, L_OPER,
1533 "Lost connect{} block for %s", get_client_name(client_p, MASK_IP));
1534
1535 exit_client(client_p, &me, "Lost connect{} block");
1536 return;
1537 }
1538
1539 aconf = map_to_conf(conf);
1540 /* Next, send the initial handshake */
1541 SetHandshake(client_p);
1542
1543 #ifdef HAVE_LIBCRYPTO
1544 if (IsConfSSL(aconf))
1545 {
1546 ssl_connect_init(client_p, aconf, fd);
1547 return;
1548 }
1549 #endif
1550
1551 /* jdc -- Check and send spasswd, not passwd. */
1552 if (!EmptyString(aconf->spasswd))
1553 sendto_one(client_p, "PASS %s TS %d %s",
1554 aconf->spasswd, TS_CURRENT, me.id);
1555
1556 send_capabilities(client_p, aconf,
1557 (IsConfTopicBurst(aconf) ? CAP_TBURST|CAP_TB : 0));
1558
1559 sendto_one(client_p, "SERVER %s 1 :%s%s",
1560 me.name, ConfigServerHide.hidden ? "(H) " : "",
1561 me.info);
1562
1563 /* If we've been marked dead because a send failed, just exit
1564 * here now and save everyone the trouble of us ever existing.
1565 */
1566 if (IsDead(client_p))
1567 {
1568 sendto_realops_flags(UMODE_ALL, L_ADMIN,
1569 "%s[%s] went dead during handshake",
1570 client_p->name,
1571 client_p->host);
1572 sendto_realops_flags(UMODE_ALL, L_OPER,
1573 "%s went dead during handshake", client_p->name);
1574 return;
1575 }
1576
1577 /* don't move to serv_list yet -- we haven't sent a burst! */
1578 /* If we get here, we're ok, so lets start reading some data */
1579 comm_setselect(fd, COMM_SELECT_READ, read_packet, client_p, 0);
1580 }
1581
1582 struct Client *
1583 find_servconn_in_progress(const char *name)
1584 {
1585 dlink_node *ptr;
1586 struct Client *cptr;
1587
1588 DLINK_FOREACH(ptr, unknown_list.head)
1589 {
1590 cptr = ptr->data;
1591
1592 if (cptr && cptr->name[0])
1593 if (match(name, cptr->name))
1594 return cptr;
1595 }
1596
1597 return NULL;
1598 }

Properties

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

svnadmin@ircd-hybrid.org
ViewVC Help
Powered by ViewVC 1.1.28