2 * ircd-ratbox: A slightly useful ircd.
3 * m_server.c: Introduces a server.
5 * Copyright (C) 1990 Jarkko Oikarinen and University of Oulu, Co Center
6 * Copyright (C) 1996-2002 Hybrid Development Team
7 * Copyright (C) 2002-2005 ircd-ratbox development team
9 * This program is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation; either version 2 of the License, or
12 * (at your option) any later version.
14 * This program is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU General Public License for more details.
19 * You should have received a copy of the GNU General Public License
20 * along with this program; if not, write to the Free Software
21 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
24 * $Id: m_server.c 3291 2007-03-28 14:30:10Z jilles $
28 #include "client.h" /* client struct */
29 #include "common.h" /* TRUE bleah */
30 #include "hash.h" /* add_to_client_hash */
32 #include "ircd.h" /* me */
33 #include "numeric.h" /* ERR_xxx */
34 #include "s_conf.h" /* struct ConfItem */
35 #include "s_newconf.h"
36 #include "logger.h" /* log level defines */
37 #include "s_serv.h" /* server_estab, check_server */
38 #include "s_stats.h" /* ServerStats */
40 #include "send.h" /* sendto_one */
45 static int mr_server(struct Client
*, struct Client
*, int, const char **);
46 static int ms_server(struct Client
*, struct Client
*, int, const char **);
47 static int ms_sid(struct Client
*, struct Client
*, int, const char **);
49 struct Message server_msgtab
= {
50 "SERVER", 0, 0, 0, MFLG_SLOW
| MFLG_UNREG
,
51 {{mr_server
, 4}, mg_reg
, mg_ignore
, {ms_server
, 4}, mg_ignore
, mg_reg
}
53 struct Message sid_msgtab
= {
54 "SID", 0, 0, 0, MFLG_SLOW
,
55 {mg_ignore
, mg_reg
, mg_ignore
, {ms_sid
, 5}, mg_ignore
, mg_reg
}
58 mapi_clist_av1 server_clist
[] = { &server_msgtab
, &sid_msgtab
, NULL
};
60 DECLARE_MODULE_AV1(server
, NULL
, NULL
, server_clist
, NULL
, NULL
, "$Revision: 3291 $");
62 int bogus_host(const char *host
);
63 static int set_server_gecos(struct Client
*, const char *);
66 * mr_server - SERVER message handler
67 * parv[0] = sender prefix
68 * parv[1] = servername
69 * parv[2] = serverinfo/hopcount
70 * parv[3] = serverinfo
73 mr_server(struct Client
*client_p
, struct Client
*source_p
, int parc
, const char *parv
[])
75 char info
[REALLEN
+ 1];
77 struct Client
*target_p
;
82 rb_strlcpy(info
, parv
[3], sizeof(info
));
84 if (IsHandshake(client_p
) && irccmp(client_p
->name
, name
))
86 sendto_realops_snomask(SNO_GENERAL
, is_remote_connect(client_p
) ? L_NETWIDE
: L_ALL
,
87 "Server %s has unexpected name %s",
88 client_p
->name
, name
);
89 ilog(L_SERVER
, "Server %s has unexpected name %s",
90 log_client_name(client_p
, SHOW_IP
), name
);
91 exit_client(client_p
, client_p
, client_p
, "Server name mismatch");
96 * Reject a direct nonTS server connection if we're TS_ONLY -orabidoo
100 sendto_realops_snomask(SNO_GENERAL
, L_ALL
, "Link %s dropped, non-TS server",
102 exit_client(client_p
, client_p
, client_p
, "Non-TS server");
108 exit_client(client_p
, client_p
, client_p
, "Bogus server name");
112 /* Now we just have to call check_server and everything should be
113 * check for us... -A1kmm. */
114 switch (check_server(name
, client_p
))
117 if(ConfigFileEntry
.warn_no_nline
)
119 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
120 "Unauthorised server connection attempt from %s: "
121 "No entry for servername %s",
122 client_p
->name
, name
);
124 ilog(L_SERVER
, "Access denied, no connect block for server %s%s",
125 EmptyString(client_p
->name
) ? name
: "",
126 log_client_name(client_p
, SHOW_IP
));
129 exit_client(client_p
, client_p
, client_p
, "Invalid servername.");
135 sendto_realops_snomask(SNO_GENERAL
, is_remote_connect(client_p
) ? L_NETWIDE
: L_ALL
,
136 "Unauthorised server connection attempt from %s: "
137 "Bad password for server %s",
138 client_p
->name
, name
);
140 ilog(L_SERVER
, "Access denied, invalid password for server %s%s",
141 EmptyString(client_p
->name
) ? name
: "",
142 log_client_name(client_p
, SHOW_IP
));
144 exit_client(client_p
, client_p
, client_p
, "Invalid password.");
150 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
151 "Unauthorised server connection attempt from %s: "
152 "Invalid host for server %s",
153 client_p
->name
, name
);
155 ilog(L_SERVER
, "Access denied, invalid host for server %s%s",
156 EmptyString(client_p
->name
) ? name
: "",
157 log_client_name(client_p
, SHOW_IP
));
159 exit_client(client_p
, client_p
, client_p
, "Invalid host.");
164 /* servername is > HOSTLEN */
166 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
167 "Invalid servername %s from %s",
168 name
, client_p
->name
);
169 ilog(L_SERVER
, "Access denied, invalid servername from %s",
170 log_client_name(client_p
, SHOW_IP
));
172 exit_client(client_p
, client_p
, client_p
, "Invalid servername.");
177 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
178 "Connection from servername %s requires SSL/TLS but is plaintext",
180 ilog(L_SERVER
, "Access denied, requires SSL/TLS but is plaintext from %s",
181 log_client_name(client_p
, SHOW_IP
));
183 exit_client(client_p
, client_p
, client_p
, "Access denied, requires SSL/TLS but is plaintext");
187 /* require TS6 for direct links */
188 if(!IsCapable(client_p
, CAP_TS6
))
190 sendto_realops_snomask(SNO_GENERAL
, is_remote_connect(client_p
) ? L_NETWIDE
: L_ALL
,
191 "Link %s dropped, TS6 protocol is required", name
);
192 exit_client(client_p
, client_p
, client_p
, "Incompatible TS version");
196 if((target_p
= find_server(NULL
, name
)))
199 * This link is trying feed me a server that I already have
200 * access through another path -- multiple paths not accepted
201 * currently, kill this link immediately!!
203 * Rather than KILL the link which introduced it, KILL the
204 * youngest of the two links. -avalon
206 * Definitely don't do that here. This is from an unregistered
209 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
210 "Attempt to re-introduce server %s from %s",
211 name
, client_p
->name
);
212 ilog(L_SERVER
, "Attempt to re-introduce server %s from %s",
213 name
, log_client_name(client_p
, SHOW_IP
));
215 sendto_one(client_p
, "ERROR :Server already exists.");
216 exit_client(client_p
, client_p
, client_p
, "Server Exists");
220 if(has_id(client_p
) && (target_p
= find_id(client_p
->id
)) != NULL
)
222 sendto_realops_snomask(SNO_GENERAL
, is_remote_connect(client_p
) ? L_NETWIDE
: L_ALL
,
223 "Attempt to re-introduce SID %s from %s%s",
225 EmptyString(client_p
->name
) ? name
: "",
227 ilog(L_SERVER
, "Attempt to re-introduce SID %s from %s%s",
229 EmptyString(client_p
->name
) ? name
: "",
230 log_client_name(client_p
, SHOW_IP
));
232 sendto_one(client_p
, "ERROR :SID already exists.");
233 exit_client(client_p
, client_p
, client_p
, "SID Exists");
238 * if we are connecting (Handshake), we already have the name from the
239 * C:line in client_p->name
242 rb_strlcpy(client_p
->name
, name
, sizeof(client_p
->name
));
243 set_server_gecos(client_p
, info
);
244 client_p
->hopcount
= hop
;
245 server_estab(client_p
);
251 * ms_server - SERVER message handler
252 * parv[0] = sender prefix
253 * parv[1] = servername
254 * parv[2] = serverinfo/hopcount
255 * parv[3] = serverinfo
258 ms_server(struct Client
*client_p
, struct Client
*source_p
, int parc
, const char *parv
[])
260 char info
[REALLEN
+ 1];
261 /* same size as in s_misc.c */
263 struct Client
*target_p
;
264 struct remote_conf
*hub_p
;
265 hook_data_client hdata
;
273 rb_strlcpy(info
, parv
[3], sizeof(info
));
275 if((target_p
= find_server(NULL
, name
)))
278 * This link is trying feed me a server that I already have
279 * access through another path -- multiple paths not accepted
280 * currently, kill this link immediately!!
282 * Rather than KILL the link which introduced it, KILL the
283 * youngest of the two links. -avalon
285 * I think that we should exit the link itself, not the introducer,
286 * and we should always exit the most recently received(i.e. the
287 * one we are receiving this SERVER for. -A1kmm
289 * You *cant* do this, if you link somewhere, it bursts you a server
290 * that already exists, then sends you a client burst, you squit the
291 * server, but you keep getting the burst of clients on a server that
292 * doesnt exist, although ircd can handle it, its not a realistic
295 /* It is behind a host-masked server. Completely ignore the
296 * server message(don't propagate or we will delink from whoever
297 * we propagate to). -A1kmm */
298 if(irccmp(target_p
->name
, name
) && target_p
->from
== client_p
)
301 sendto_one(client_p
, "ERROR :Server %s already exists", name
);
303 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
304 "Link %s cancelled, server %s already exists",
305 client_p
->name
, name
);
306 ilog(L_SERVER
, "Link %s cancelled, server %s already exists",
307 client_p
->name
, name
);
309 exit_client(client_p
, client_p
, &me
, "Server Exists");
314 * User nicks never have '.' in them and server names
315 * must always have '.' in them.
317 if(strchr(name
, '.') == NULL
)
320 * Server trying to use the same name as a person. Would
321 * cause a fair bit of confusion. Enough to make it hellish
322 * for a while and servers to send stuff to the wrong place.
324 sendto_one(client_p
, "ERROR :Nickname %s already exists!", name
);
325 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
326 "Link %s cancelled: Server/nick collision on %s",
327 client_p
->name
, name
);
328 ilog(L_SERVER
, "Link %s cancelled: Server/nick collision on %s",
329 client_p
->name
, name
);
331 exit_client(client_p
, client_p
, client_p
, "Nick as Server");
336 * Server is informing about a new server behind
337 * this link. Create REMOTE server structure,
338 * add it to list and propagate word to my other
341 if(parc
== 1 || EmptyString(info
))
343 sendto_one(client_p
, "ERROR :No server info specified for %s", name
);
348 * See if the newly found server is behind a guaranteed
349 * leaf. If so, close the link.
352 RB_DLINK_FOREACH(ptr
, hubleaf_conf_list
.head
)
356 if(match(hub_p
->server
, client_p
->name
) && match(hub_p
->host
, name
))
358 if(hub_p
->flags
& CONF_HUB
)
365 /* Ok, this way this works is
367 * A server can have a CONF_HUB allowing it to introduce servers
371 * name = "irc.bighub.net";
375 * That would allow "irc.bighub.net" to introduce anything it wanted..
380 * name = "irc.somehub.fi";
384 * Would allow this server in finland to hub anything but
388 /* Ok, check client_p can hub the new server, and make sure it's not a LL */
391 /* OOOPs nope can't HUB */
392 sendto_realops_snomask(SNO_GENERAL
, L_ALL
, "Non-Hub link %s introduced %s.",
393 client_p
->name
, name
);
394 ilog(L_SERVER
, "Non-Hub link %s introduced %s.",
395 client_p
->name
, name
);
397 exit_client(NULL
, client_p
, &me
, "No matching hub_mask.");
401 /* Check for the new server being leafed behind this HUB */
404 /* OOOPs nope can't HUB this leaf */
405 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
406 "Link %s introduced leafed server %s.",
407 client_p
->name
, name
);
408 ilog(L_SERVER
, "Link %s introduced leafed server %s.",
409 client_p
->name
, name
);
411 exit_client(NULL
, client_p
, &me
, "Leafed Server.");
417 if(strlen(name
) > HOSTLEN
)
419 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
420 "Link %s introduced server with invalid servername %s",
421 client_p
->name
, name
);
422 ilog(L_SERVER
, "Link %s introduced server with invalid servername %s",
423 client_p
->name
, name
);
425 exit_client(NULL
, client_p
, &me
, "Invalid servername introduced.");
429 target_p
= make_client(client_p
);
430 make_server(target_p
);
431 target_p
->hopcount
= hop
;
433 rb_strlcpy(target_p
->name
, name
, sizeof(target_p
->name
));
435 set_server_gecos(target_p
, info
);
437 target_p
->servptr
= source_p
;
441 rb_dlinkAddTail(target_p
, &target_p
->node
, &global_client_list
);
442 rb_dlinkAddTailAlloc(target_p
, &global_serv_list
);
443 add_to_client_hash(target_p
->name
, target_p
);
444 rb_dlinkAdd(target_p
, &target_p
->lnode
, &target_p
->servptr
->serv
->servers
);
446 target_p
->serv
->nameinfo
= scache_connect(target_p
->name
, target_p
->info
, IsHidden(target_p
));
448 sendto_server(client_p
, NULL
, NOCAPS
, NOCAPS
,
449 ":%s SERVER %s %d :%s%s",
450 source_p
->name
, target_p
->name
, target_p
->hopcount
+ 1,
451 IsHidden(target_p
) ? "(H) " : "", target_p
->info
);
453 sendto_realops_snomask(SNO_EXTERNAL
, L_ALL
,
454 "Server %s being introduced by %s", target_p
->name
, source_p
->name
);
456 /* quick, dirty EOB. you know you love it. */
457 sendto_one(target_p
, ":%s PING %s %s", get_id(&me
, target_p
), me
.name
, target_p
->name
);
459 hdata
.client
= source_p
;
460 hdata
.target
= target_p
;
461 call_hook(h_server_introduced
, &hdata
);
467 ms_sid(struct Client
*client_p
, struct Client
*source_p
, int parc
, const char *parv
[])
469 struct Client
*target_p
;
470 struct remote_conf
*hub_p
;
471 hook_data_client hdata
;
479 /* collision on the name? */
480 if((target_p
= find_server(NULL
, parv
[1])) != NULL
)
482 sendto_one(client_p
, "ERROR :Server %s already exists", parv
[1]);
483 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
484 "Link %s cancelled, server %s already exists",
485 client_p
->name
, parv
[1]);
486 ilog(L_SERVER
, "Link %s cancelled, server %s already exists",
487 client_p
->name
, parv
[1]);
489 exit_client(NULL
, client_p
, &me
, "Server Exists");
493 /* collision on the SID? */
494 if((target_p
= find_id(parv
[3])) != NULL
)
496 sendto_one(client_p
, "ERROR :SID %s already exists", parv
[3]);
497 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
498 "Link %s cancelled, SID %s already exists",
499 client_p
->name
, parv
[3]);
500 ilog(L_SERVER
, "Link %s cancelled, SID %s already exists",
501 client_p
->name
, parv
[3]);
503 exit_client(NULL
, client_p
, &me
, "SID Exists");
507 if(bogus_host(parv
[1]) || strlen(parv
[1]) > HOSTLEN
)
509 sendto_one(client_p
, "ERROR :Invalid servername");
510 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
511 "Link %s cancelled, servername %s invalid",
512 client_p
->name
, parv
[1]);
513 ilog(L_SERVER
, "Link %s cancelled, servername %s invalid",
514 client_p
->name
, parv
[1]);
516 exit_client(NULL
, client_p
, &me
, "Bogus server name");
520 if(!IsDigit(parv
[3][0]) || !IsIdChar(parv
[3][1]) ||
521 !IsIdChar(parv
[3][2]) || parv
[3][3] != '\0')
523 sendto_one(client_p
, "ERROR :Invalid SID");
524 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
525 "Link %s cancelled, SID %s invalid",
526 client_p
->name
, parv
[3]);
527 ilog(L_SERVER
, "Link %s cancelled, SID %s invalid",
528 client_p
->name
, parv
[3]);
530 exit_client(NULL
, client_p
, &me
, "Bogus SID");
534 /* for the directly connected server:
535 * H: allows it to introduce a server matching that mask
536 * L: disallows it introducing a server matching that mask
538 RB_DLINK_FOREACH(ptr
, hubleaf_conf_list
.head
)
542 if(match(hub_p
->server
, client_p
->name
) && match(hub_p
->host
, parv
[1]))
544 if(hub_p
->flags
& CONF_HUB
)
551 /* no matching hub_mask */
554 sendto_one(client_p
, "ERROR :No matching hub_mask");
555 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
556 "Non-Hub link %s introduced %s.",
557 client_p
->name
, parv
[1]);
558 ilog(L_SERVER
, "Non-Hub link %s introduced %s.",
559 client_p
->name
, parv
[1]);
560 exit_client(NULL
, client_p
, &me
, "No matching hub_mask.");
564 /* matching leaf_mask */
567 sendto_one(client_p
, "ERROR :Matching leaf_mask");
568 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
569 "Link %s introduced leafed server %s.",
570 client_p
->name
, parv
[1]);
571 ilog(L_SERVER
, "Link %s introduced leafed server %s.",
572 client_p
->name
, parv
[1]);
573 exit_client(NULL
, client_p
, &me
, "Leafed Server.");
578 target_p
= make_client(client_p
);
579 make_server(target_p
);
581 rb_strlcpy(target_p
->name
, parv
[1], sizeof(target_p
->name
));
582 target_p
->hopcount
= atoi(parv
[2]);
583 strcpy(target_p
->id
, parv
[3]);
584 set_server_gecos(target_p
, parv
[4]);
586 target_p
->servptr
= source_p
;
589 rb_dlinkAddTail(target_p
, &target_p
->node
, &global_client_list
);
590 rb_dlinkAddTailAlloc(target_p
, &global_serv_list
);
591 add_to_client_hash(target_p
->name
, target_p
);
592 add_to_id_hash(target_p
->id
, target_p
);
593 rb_dlinkAdd(target_p
, &target_p
->lnode
, &target_p
->servptr
->serv
->servers
);
595 target_p
->serv
->nameinfo
= scache_connect(target_p
->name
, target_p
->info
, IsHidden(target_p
));
597 sendto_server(client_p
, NULL
, CAP_TS6
, NOCAPS
,
598 ":%s SID %s %d %s :%s%s",
599 source_p
->id
, target_p
->name
, target_p
->hopcount
+ 1,
600 target_p
->id
, IsHidden(target_p
) ? "(H) " : "", target_p
->info
);
602 sendto_realops_snomask(SNO_EXTERNAL
, L_ALL
,
603 "Server %s being introduced by %s", target_p
->name
, source_p
->name
);
605 /* quick, dirty EOB. you know you love it. */
606 sendto_one(target_p
, ":%s PING %s %s",
607 get_id(&me
, target_p
), me
.name
, get_id(target_p
, target_p
));
609 hdata
.client
= source_p
;
610 hdata
.target
= target_p
;
611 call_hook(h_server_introduced
, &hdata
);
616 /* set_server_gecos()
618 * input - pointer to client
620 * side effects - servers gecos field is set
623 set_server_gecos(struct Client
*client_p
, const char *info
)
625 /* check the info for [IP] */
632 s
= LOCAL_COPY(info
);
634 /* we should only check the first word for an ip */
635 if((p
= strchr(s
, ' ')))
638 /* check for a ] which would symbolise an [IP] */
639 if((t
= strchr(s
, ']')))
641 /* set s to after the first space */
647 /* no ], put the space back */
651 /* p may have been set to a trailing space, so check s exists and that
653 if(s
&& (*s
!= '\0'))
655 /* a space? if not (H) could be the last part of info.. */
656 if((p
= strchr(s
, ' ')))
659 /* check for (H) which is a hidden server */
660 if(!strcmp(s
, "(H)"))
664 /* if there was no space.. theres nothing to set info to */
673 /* if there was a trailing space, s could point to \0, so check */
674 if(s
&& (*s
!= '\0'))
676 rb_strlcpy(client_p
->info
, s
, sizeof(client_p
->info
));
682 rb_strlcpy(client_p
->info
, "(Unknown Location)", sizeof(client_p
->info
));
691 * output - 1 if a bogus hostname input, 0 if its valid
692 * side effects - none
695 bogus_host(const char *host
)
697 int bogus_server
= 0;
701 for(s
= host
; *s
; s
++)
712 if(!dots
|| bogus_server
)