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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1377 - (hide annotations)
Mon Apr 30 19:35:16 2012 UTC (8 years, 4 months ago) by michael
File MIME type: text/x-chdr
File size: 47029 byte(s)
- Remove all Class related #defines like MaxTotal, MaxSendq, etc.
  All they do is lead to confusion.

1 adx 30 /*
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 knight 31 * $Id$
23 adx 30 */
24    
25     #include "stdinc.h"
26     #ifdef HAVE_LIBCRYPTO
27     #include <openssl/rsa.h>
28     #include "rsa.h"
29     #endif
30 michael 1011 #include "list.h"
31 adx 30 #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 michael 1309 #include "conf.h"
47 adx 30 #include "s_serv.h"
48 michael 1309 #include "log.h"
49 michael 1303 #include "s_misc.h"
50 adx 30 #include "s_user.h"
51     #include "send.h"
52     #include "memory.h"
53     #include "channel.h" /* chcap_usage_counts stuff...*/
54 michael 1243 #include "parse.h"
55 adx 30
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 michael 1325 FILE *file;
85 adx 30 char buff[512];
86     dlink_node *ptr;
87    
88     MessageFileptr = &ConfigFileEntry.linksfile;
89    
90 michael 1325 if ((file = fopen(MessageFileptr->fileName, "w")) == NULL)
91 adx 30 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 michael 1325 const struct Client *target_p = ptr->data;
105 adx 30
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 michael 1325 snprintf(newMessageLine->line, sizeof(newMessageLine->line), "%s %s :1 %s",
136     target_p->name, me.name, p);
137 adx 30 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 michael 1325 snprintf(buff, sizeof(buff), "%s %s :1 %s\n", target_p->name, me.name, p);
152     fputs(buff, file);
153 adx 30 }
154    
155 michael 1325 fclose(file);
156 adx 30 }
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 michael 1344 /* Assume it's me, if no server */
187     if (parc <= server || EmptyString(parv[server]))
188     return HUNTED_ISME;
189 adx 30
190 michael 1344 if (!strcmp(parv[server], me.id) || match(parv[server], me.name))
191     return HUNTED_ISME;
192    
193 adx 30 /* 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 michael 1169 target_p = hash_find_client(parv[server]);
199 adx 30 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 michael 1169 if (target_p == NULL && (target_p = hash_find_server(parv[server])))
207 adx 30 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 michael 1169 if (!(target_p = hash_find_server(parv[server])))
221 adx 30 {
222     sendto_one(source_p, form_str(ERR_NOSUCHSERVER),
223 michael 1234 me.name, source_p->name, parv[server]);
224 adx 30 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 michael 1234 me.name, source_p->name, parv[server]);
252 adx 30 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 michael 1234 me.name, source_p->name, parv[server]);
275 adx 30 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 michael 1013 aconf = map_to_conf(conf);
305 adx 30
306     /* Also when already connecting! (update holdtimes) --SRB
307     */
308 michael 1013 if (!(aconf->status & CONF_SERVER) || !aconf->port ||
309 adx 30 !(IsConfAllowAutoConn(aconf)))
310     continue;
311    
312 michael 1013 cltmp = map_to_conf(aconf->class_ptr);
313 adx 30
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 michael 1377 confrq = cltmp->con_freq;
328     if (confrq < MIN_CONN_FREQ)
329 adx 30 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 michael 1169 if (hash_find_server(conf->name) != NULL)
338 adx 30 continue;
339    
340 michael 1377 if (cltmp->curr_user_count < cltmp->max_total)
341 adx 30 {
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 michael 1115 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 michael 1118 return 0;
385 michael 1115
386     ++length;
387    
388     if (*p == '.')
389     ++dots;
390     }
391    
392 michael 1118 return dots != 0 && length <= HOSTLEN;
393 michael 1115 }
394    
395     int
396 michael 1302 check_server(const char *name, struct Client *client_p)
397 adx 30 {
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 michael 1013 aconf = map_to_conf(conf);
418 adx 30
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 michael 885 server_aconf = map_to_conf(server_conf);
480 adx 30
481     if (!IsConfTopicBurst(server_aconf))
482 michael 329 {
483 adx 30 ClearCap(client_p, CAP_TB);
484 michael 329 ClearCap(client_p, CAP_TBURST);
485     }
486 adx 30
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 michael 885 struct Capability *cap = MyMalloc(sizeof(*cap));
528 adx 30
529     DupString(cap->name, capab_name);
530     cap->cap = cap_flag;
531     dlinkAdd(cap, &cap->node, &cap_list);
532 michael 885
533 adx 30 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 michael 896 return 0;
568 adx 30 }
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 michael 896 const dlink_node *ptr = NULL;
581 adx 30
582     DLINK_FOREACH(ptr, cap_list.head)
583     {
584 michael 896 const struct Capability *cap = ptr->data;
585 adx 30
586 michael 896 if (cap->cap && !irccmp(cap->name, capab))
587     return cap->cap;
588 adx 30 }
589 michael 896
590     return 0;
591 adx 30 }
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 michael 1302 int cap_can_send)
605 adx 30 {
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 michael 319 *(t - 1) = '\0';
626 adx 30 sendto_one(client_p, "CAPAB :%s", msgbuf);
627     }
628    
629     /* sendnick_TS()
630     *
631     * inputs - client (server) to send nick towards
632 adx 386 * - client to send nick for
633 adx 30 * 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 michael 1294 send_umode(NULL, target_p, 0, SEND_UMODES, ubuf);
645 adx 30
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 michael 1196 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 adx 30 else
673 michael 1196 {
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 adx 386
690 adx 30 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 michael 1302
721 adx 30 *(t - 1) = '\0';
722 michael 1302 return msgbuf;
723 adx 30 }
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 michael 1305 #ifdef HAVE_LIBCRYPTO
758     const COMP_METHOD *compression = NULL, *expansion = NULL;
759     #endif
760 adx 30
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 michael 896 ++ServerStats.is_ref;
792 adx 30 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 michael 1115 aconf = map_to_conf(conf);
799 adx 30
800 michael 1302 if (IsUnknown(client_p))
801 adx 30 {
802     /* jdc -- 1. Use EmptyString(), not [0] index reference.
803     * 2. Check aconf->spasswd, not aconf->passwd.
804     */
805     if (!EmptyString(aconf->spasswd))
806 michael 1115 sendto_one(client_p, "PASS %s TS %d %s",
807     aconf->spasswd, TS_CURRENT, me.id);
808 adx 30
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 michael 1119 send_capabilities(client_p, aconf,
817 michael 1302 (IsConfTopicBurst(aconf) ? CAP_TBURST|CAP_TB : 0));
818 adx 30
819     sendto_one(client_p, "SERVER %s 1 :%s%s",
820 michael 1118 me.name, ConfigServerHide.hidden ? "(H) " : "", me.info);
821 adx 30 }
822    
823 michael 1115 sendto_one(client_p, "SVINFO %d %d 0 :%lu", TS_CURRENT, TS_MIN,
824 adx 30 (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 michael 889 dlinkAdd(client_p, &client_p->lnode, &me.serv->server_list);
856 adx 30
857 michael 1126 assert(dlinkFind(&unknown_list, client_p));
858 adx 30
859 michael 1126 dlink_move_node(&client_p->localClient->lclient_node,
860     &unknown_list, &serv_list);
861 adx 30
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 michael 1241 client_p->localClient->firsttime = CurrentTime;
872 adx 30
873 michael 1157 if (find_matching_name_conf(SERVICE_TYPE, client_p->name, NULL, NULL, 0))
874 michael 1219 AddFlag(client_p, FLAGS_SERVICE);
875 michael 1157
876 adx 30 /* Show the real host/IP to admins */
877 michael 1305 #ifdef HAVE_LIBCRYPTO
878 michael 1303 if (client_p->localClient->fd.ssl)
879     {
880 michael 1305 compression = SSL_get_current_compression(client_p->localClient->fd.ssl);
881     expansion = SSL_get_current_expansion(client_p->localClient->fd.ssl);
882    
883 michael 1303 sendto_realops_flags(UMODE_ALL, L_ADMIN,
884 michael 1305 "Link with %s established: [SSL: %s, Compression/Expansion method: %s/%s] (Capabilities: %s)",
885 michael 1303 inpath_ip, ssl_get_cipher(client_p->localClient->fd.ssl),
886 michael 1305 compression ? SSL_COMP_get_name(compression) : "NONE",
887     expansion ? SSL_COMP_get_name(expansion) : "NONE",
888 michael 1303 show_capabilities(client_p));
889     /* Now show the masked hostname/IP to opers */
890     sendto_realops_flags(UMODE_ALL, L_OPER,
891 michael 1305 "Link with %s established: [SSL: %s, Compression/Expansion method: %s/%s] (Capabilities: %s)",
892 michael 1303 inpath, ssl_get_cipher(client_p->localClient->fd.ssl),
893 michael 1305 compression ? SSL_COMP_get_name(compression) : "NONE",
894     expansion ? SSL_COMP_get_name(expansion) : "NONE",
895 michael 1303 show_capabilities(client_p));
896 michael 1305 ilog(LOG_TYPE_IRCD, "Link with %s established: [SSL: %s, Compression/Expansion method: %s/%s] (Capabilities: %s)",
897 michael 1303 inpath_ip, ssl_get_cipher(client_p->localClient->fd.ssl),
898 michael 1305 compression ? SSL_COMP_get_name(compression) : "NONE",
899     expansion ? SSL_COMP_get_name(expansion) : "NONE",
900 michael 1303 show_capabilities(client_p));
901     }
902     else
903 michael 1305 #endif
904 michael 1303 {
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 adx 30
916     client_p->serv->sconf = conf;
917    
918 michael 1302 fd_note(&client_p->localClient->fd, "Server: %s", client_p->name);
919 adx 30
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 michael 1118 if (IsMe(target_p) || target_p->from == client_p)
967 adx 30 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 michael 885 burst_all(client_p);
1012 adx 30
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 michael 329 dlink_node *ptr = NULL;
1028 adx 30
1029 michael 329 DLINK_FOREACH(ptr, global_channel_list.head)
1030 adx 30 {
1031 michael 329 struct Channel *chptr = ptr->data;
1032 adx 30
1033     if (dlink_list_length(&chptr->members) != 0)
1034     {
1035     burst_members(client_p, chptr);
1036     send_channel_modes(client_p, chptr);
1037 michael 329
1038     if (IsCapable(client_p, CAP_TBURST) ||
1039     IsCapable(client_p, CAP_TB))
1040 adx 30 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 michael 329 struct Client *target_p = ptr->data;
1049 adx 30
1050 michael 1219 if (!HasFlag(target_p, FLAGS_BURSTED) && target_p->from != client_p)
1051 adx 30 sendnick_TS(client_p, target_p);
1052    
1053 michael 1219 DelFlag(target_p, FLAGS_BURSTED);
1054 adx 30 }
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 michael 329 * 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 adx 30 */
1073     static void
1074     send_tb(struct Client *client_p, struct Channel *chptr)
1075     {
1076 michael 329 /*
1077 michael 337 * 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 michael 329 */
1089 michael 337 if (chptr->topic_time != 0)
1090 adx 30 {
1091 michael 329 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 michael 337 (unsigned long)chptr->topic_time,
1095 michael 1203 chptr->topic_info,
1096     chptr->topic);
1097 michael 329 else if (IsCapable(client_p, CAP_TB))
1098 adx 30 {
1099 michael 329 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 michael 1203 chptr->topic_info, chptr->topic);
1105 michael 329 }
1106     else
1107     {
1108     sendto_one(client_p, ":%s TB %s %lu :%s",
1109     me.name, chptr->chname,
1110 michael 337 (unsigned long)chptr->topic_time,
1111 michael 1203 chptr->topic);
1112 michael 329 }
1113 adx 30 }
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 michael 1219 if (!HasFlag(target_p, FLAGS_BURSTED))
1137 adx 30 {
1138 michael 1219 AddFlag(target_p, FLAGS_BURSTED);
1139 adx 30
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 michael 1123 getnameinfo((struct sockaddr *)&aconf->ipnum, aconf->ipnum.ss_len,
1187     buf, sizeof(buf), NULL, 0, NI_NUMERICHOST);
1188 michael 1247 ilog(LOG_TYPE_IRCD, "Connect to %s[%s] @%s", aconf->user, aconf->host,
1189 adx 30 buf);
1190    
1191     /* Still processing a DNS lookup? -> exit */
1192 michael 992 if (aconf->dns_pending)
1193 adx 30 {
1194 michael 992 sendto_realops_flags(UMODE_ALL, L_ALL,
1195     "Error connecting to %s: DNS lookup for connect{} in progress.",
1196     conf->name);
1197 adx 30 return (0);
1198     }
1199    
1200 michael 992 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 adx 30 /* Make sure this server isn't already connected
1209     * Note: aconf should ALWAYS be a valid C: line
1210     */
1211 michael 1169 if ((client_p = hash_find_server(conf->name)) != NULL)
1212 adx 30 {
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 michael 1115 strlcpy(client_p->sockhost, buf, sizeof(client_p->sockhost));
1235 adx 30
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 michael 1303 #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 michael 1306 ssl_server_handshake(fde_t *fd, struct Client *client_p)
1422 michael 1303 {
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 michael 1308 (PF *)ssl_server_handshake, client_p, 0);
1435 michael 1303 return;
1436     case SSL_ERROR_WANT_READ:
1437     comm_setselect(&client_p->localClient->fd, COMM_SELECT_READ,
1438 michael 1308 (PF *)ssl_server_handshake, client_p, 0);
1439 michael 1303 return;
1440     default:
1441 michael 1308 {
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 michael 1303 exit_client(client_p, client_p, "Error during SSL handshake");
1447     return;
1448 michael 1308 }
1449 michael 1303 }
1450     }
1451    
1452     finish_ssl_server_handshake(client_p);
1453     }
1454    
1455     static void
1456 michael 1306 ssl_connect_init(struct Client *client_p, struct AccessItem *aconf, fde_t *fd)
1457 michael 1303 {
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 michael 1306
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 michael 1303 }
1474     #endif
1475    
1476 adx 30 /* 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 michael 1303 aconf = map_to_conf(conf);
1540 adx 30 /* Next, send the initial handshake */
1541     SetHandshake(client_p);
1542    
1543     #ifdef HAVE_LIBCRYPTO
1544 michael 1303 if (IsConfSSL(aconf))
1545     {
1546 michael 1306 ssl_connect_init(client_p, aconf, fd);
1547 michael 1303 return;
1548     }
1549 adx 30 #endif
1550    
1551     /* jdc -- Check and send spasswd, not passwd. */
1552 michael 1115 if (!EmptyString(aconf->spasswd))
1553 adx 30 sendto_one(client_p, "PASS %s TS %d %s",
1554     aconf->spasswd, TS_CURRENT, me.id);
1555    
1556 michael 1119 send_capabilities(client_p, aconf,
1557 michael 1302 (IsConfTopicBurst(aconf) ? CAP_TBURST|CAP_TB : 0));
1558 adx 30
1559     sendto_one(client_p, "SERVER %s 1 :%s%s",
1560 michael 1118 me.name, ConfigServerHide.hidden ? "(H) " : "",
1561 adx 30 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 michael 1118 if (match(name, cptr->name))
1594 adx 30 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