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
27 #include "client.h" /* client struct */
28 #include "common.h" /* TRUE bleah */
29 #include "hash.h" /* add_to_client_hash */
31 #include "ircd.h" /* me */
32 #include "numeric.h" /* ERR_xxx */
33 #include "s_conf.h" /* struct ConfItem */
34 #include "s_newconf.h"
35 #include "logger.h" /* log level defines */
36 #include "s_serv.h" /* server_estab, check_server */
37 #include "s_stats.h" /* ServerStats */
39 #include "send.h" /* sendto_one */
44 static int mr_server(struct Client
*, struct Client
*, int, const char **);
45 static int ms_server(struct Client
*, struct Client
*, int, const char **);
46 static int ms_sid(struct Client
*, struct Client
*, int, const char **);
48 struct Message server_msgtab
= {
49 "SERVER", 0, 0, 0, MFLG_SLOW
| MFLG_UNREG
,
50 {{mr_server
, 4}, mg_reg
, mg_ignore
, {ms_server
, 4}, mg_ignore
, mg_reg
}
52 struct Message sid_msgtab
= {
53 "SID", 0, 0, 0, MFLG_SLOW
,
54 {mg_ignore
, mg_reg
, mg_ignore
, {ms_sid
, 5}, mg_ignore
, mg_reg
}
57 mapi_clist_av1 server_clist
[] = { &server_msgtab
, &sid_msgtab
, NULL
};
59 DECLARE_MODULE_AV1(server
, NULL
, NULL
, server_clist
, NULL
, NULL
, "$Revision: 3291 $");
61 int bogus_host(const char *host
);
62 static int set_server_gecos(struct Client
*, const char *);
65 * mr_server - SERVER message handler
66 * parv[1] = servername
67 * parv[2] = serverinfo/hopcount
68 * parv[3] = serverinfo
71 mr_server(struct Client
*client_p
, struct Client
*source_p
, int parc
, const char *parv
[])
73 char info
[REALLEN
+ 1];
75 struct Client
*target_p
;
77 struct Capability
*cap
;
81 rb_strlcpy(info
, parv
[3], sizeof(info
));
83 if (IsHandshake(client_p
) && irccmp(client_p
->name
, name
))
85 sendto_realops_snomask(SNO_GENERAL
, is_remote_connect(client_p
) ? L_NETWIDE
: L_ALL
,
86 "Server %s has unexpected name %s",
87 client_p
->name
, name
);
88 ilog(L_SERVER
, "Server %s has unexpected name %s",
89 log_client_name(client_p
, SHOW_IP
), name
);
90 exit_client(client_p
, client_p
, client_p
, "Server name mismatch");
95 * Reject a direct nonTS server connection if we're TS_ONLY -orabidoo
99 sendto_realops_snomask(SNO_GENERAL
, L_ALL
, "Link %s dropped, non-TS server",
101 exit_client(client_p
, client_p
, client_p
, "Non-TS server");
107 exit_client(client_p
, client_p
, client_p
, "Bogus server name");
111 /* check to ensure any "required" caps are set. --nenolod */
112 for (cap
= captab
; cap
->name
; cap
++)
117 if (!(client_p
->localClient
->caps
& cap
->cap
))
119 char exitbuf
[BUFSIZE
];
121 rb_snprintf(exitbuf
, BUFSIZE
, "Missing required CAPAB [%s]", cap
->name
);
122 exit_client(client_p
, client_p
, client_p
, exitbuf
);
128 /* Now we just have to call check_server and everything should be
129 * check for us... -A1kmm. */
130 switch (check_server(name
, client_p
))
133 if(ConfigFileEntry
.warn_no_nline
)
135 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
136 "Unauthorised server connection attempt from %s: "
137 "No entry for servername %s",
138 "[@255.255.255.255]", name
);
140 ilog(L_SERVER
, "Access denied, no connect block for server %s%s",
141 EmptyString(client_p
->name
) ? name
: "",
142 log_client_name(client_p
, SHOW_IP
));
145 exit_client(client_p
, client_p
, client_p
, "Invalid servername.");
151 sendto_realops_snomask(SNO_GENERAL
, is_remote_connect(client_p
) ? L_NETWIDE
: L_ALL
,
152 "Unauthorised server connection attempt from %s: "
153 "Bad password for server %s",
154 "[@255.255.255.255]", name
);
156 ilog(L_SERVER
, "Access denied, invalid password for server %s%s",
157 EmptyString(client_p
->name
) ? name
: "",
158 log_client_name(client_p
, SHOW_IP
));
160 exit_client(client_p
, client_p
, client_p
, "Invalid password.");
166 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
167 "Unauthorised server connection attempt from %s: "
168 "Invalid host for server %s",
169 "[@255.255.255.255]", name
);
171 ilog(L_SERVER
, "Access denied, invalid host for server %s%s",
172 EmptyString(client_p
->name
) ? name
: "",
173 log_client_name(client_p
, SHOW_IP
));
175 exit_client(client_p
, client_p
, client_p
, "Invalid host.");
180 /* servername is > HOSTLEN */
182 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
183 "Invalid servername %s from %s",
184 name
, "[@255.255.255.255]");
185 ilog(L_SERVER
, "Access denied, invalid servername from %s",
186 log_client_name(client_p
, SHOW_IP
));
188 exit_client(client_p
, client_p
, client_p
, "Invalid servername.");
193 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
194 "Connection from servername %s requires SSL/TLS but is plaintext",
196 ilog(L_SERVER
, "Access denied, requires SSL/TLS but is plaintext from %s",
197 log_client_name(client_p
, SHOW_IP
));
199 exit_client(client_p
, client_p
, client_p
, "Access denied, requires SSL/TLS but is plaintext");
203 /* require TS6 for direct links */
204 if(!IsCapable(client_p
, CAP_TS6
))
206 sendto_realops_snomask(SNO_GENERAL
, is_remote_connect(client_p
) ? L_NETWIDE
: L_ALL
,
207 "Link %s dropped, TS6 protocol is required", name
);
208 exit_client(client_p
, client_p
, client_p
, "Incompatible TS version");
212 if((target_p
= find_server(NULL
, name
)))
215 * This link is trying feed me a server that I already have
216 * access through another path -- multiple paths not accepted
217 * currently, kill this link immediately!!
219 * Rather than KILL the link which introduced it, KILL the
220 * youngest of the two links. -avalon
222 * Definitely don't do that here. This is from an unregistered
225 if (target_p
->servptr
->flags
& FLAGS_SERVICE
)
227 /* Assume any servers introduced by services
231 sendto_one(client_p
, "ERROR :Server juped.");
235 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
236 "Attempt to re-introduce server %s from %s",
237 name
, "[@255.255.255.255]");
238 ilog(L_SERVER
, "Attempt to re-introduce server %s from %s",
239 name
, log_client_name(client_p
, SHOW_IP
));
241 sendto_one(client_p
, "ERROR :Server already exists.");
243 exit_client(client_p
, client_p
, client_p
, "Server Exists");
247 if(has_id(client_p
) && (target_p
= find_id(client_p
->id
)) != NULL
)
249 sendto_realops_snomask(SNO_GENERAL
, is_remote_connect(client_p
) ? L_NETWIDE
: L_ALL
,
250 "Attempt to re-introduce SID %s from %s%s (already in use by %s)",
252 EmptyString(client_p
->name
) ? name
: "",
253 client_p
->name
, target_p
->name
);
254 ilog(L_SERVER
, "Attempt to re-introduce SID %s from %s%s (already in use by %s)",
256 EmptyString(client_p
->name
) ? name
: "",
257 log_client_name(client_p
, SHOW_IP
),
260 sendto_one(client_p
, "ERROR :SID already exists.");
261 exit_client(client_p
, client_p
, client_p
, "SID Exists");
266 * if we are connecting (Handshake), we already have the name from the
267 * C:line in client_p->name
270 rb_strlcpy(client_p
->name
, name
, sizeof(client_p
->name
));
271 set_server_gecos(client_p
, info
);
272 client_p
->hopcount
= hop
;
273 server_estab(client_p
);
279 * ms_server - SERVER message handler
280 * parv[1] = servername
281 * parv[2] = serverinfo/hopcount
282 * parv[3] = serverinfo
285 ms_server(struct Client
*client_p
, struct Client
*source_p
, int parc
, const char *parv
[])
287 char info
[REALLEN
+ 1];
288 /* same size as in s_misc.c */
290 struct Client
*target_p
;
291 struct remote_conf
*hub_p
;
292 hook_data_client hdata
;
297 char squitreason
[160];
301 rb_strlcpy(info
, parv
[3], sizeof(info
));
303 if((target_p
= find_server(NULL
, name
)))
306 * This link is trying feed me a server that I already have
307 * access through another path -- multiple paths not accepted
308 * currently, kill this link immediately!!
310 * Rather than KILL the link which introduced it, KILL the
311 * youngest of the two links. -avalon
313 * I think that we should exit the link itself, not the introducer,
314 * and we should always exit the most recently received(i.e. the
315 * one we are receiving this SERVER for. -A1kmm
317 * You *cant* do this, if you link somewhere, it bursts you a server
318 * that already exists, then sends you a client burst, you squit the
319 * server, but you keep getting the burst of clients on a server that
320 * doesnt exist, although ircd can handle it, its not a realistic
323 ilog(L_SERVER
, "Link %s cancelled, server %s already exists",
324 client_p
->name
, name
);
326 rb_snprintf(squitreason
, sizeof squitreason
,
327 "Server %s already exists",
329 exit_client(client_p
, client_p
, &me
, squitreason
);
334 * User nicks never have '.' in them and server names
335 * must always have '.' in them.
337 if(strchr(name
, '.') == NULL
)
340 * Server trying to use the same name as a person. Would
341 * cause a fair bit of confusion. Enough to make it hellish
342 * for a while and servers to send stuff to the wrong place.
344 sendto_one(client_p
, "ERROR :Nickname %s already exists!", name
);
345 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
346 "Link %s cancelled: Server/nick collision on %s",
347 client_p
->name
, name
);
348 ilog(L_SERVER
, "Link %s cancelled: Server/nick collision on %s",
349 client_p
->name
, name
);
351 exit_client(client_p
, client_p
, client_p
, "Nick as Server");
356 * Server is informing about a new server behind
357 * this link. Create REMOTE server structure,
358 * add it to list and propagate word to my other
363 * See if the newly found server is behind a guaranteed
364 * leaf. If so, close the link.
367 RB_DLINK_FOREACH(ptr
, hubleaf_conf_list
.head
)
371 if(match(hub_p
->server
, client_p
->name
) && match(hub_p
->host
, name
))
373 if(hub_p
->flags
& CONF_HUB
)
380 /* Ok, this way this works is
382 * A server can have a CONF_HUB allowing it to introduce servers
386 * name = "irc.bighub.net";
390 * That would allow "irc.bighub.net" to introduce anything it wanted..
395 * name = "irc.somehub.fi";
399 * Would allow this server in finland to hub anything but
403 /* Ok, check client_p can hub the new server */
406 /* OOOPs nope can't HUB */
407 sendto_realops_snomask(SNO_GENERAL
, L_ALL
, "Non-Hub link %s introduced %s.",
408 client_p
->name
, name
);
409 ilog(L_SERVER
, "Non-Hub link %s introduced %s.",
410 client_p
->name
, name
);
412 rb_snprintf(squitreason
, sizeof squitreason
,
413 "No matching hub_mask for %s",
415 exit_client(NULL
, client_p
, &me
, squitreason
);
419 /* Check for the new server being leafed behind this HUB */
422 /* OOOPs nope can't HUB this leaf */
423 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
424 "Link %s introduced leafed server %s.",
425 client_p
->name
, name
);
426 ilog(L_SERVER
, "Link %s introduced leafed server %s.",
427 client_p
->name
, name
);
429 rb_snprintf(squitreason
, sizeof squitreason
,
430 "Matching leaf_mask for %s",
432 exit_client(NULL
, client_p
, &me
, squitreason
);
438 if(strlen(name
) > HOSTLEN
)
440 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
441 "Link %s introduced server with invalid servername %s",
442 client_p
->name
, name
);
443 ilog(L_SERVER
, "Link %s introduced server with invalid servername %s",
444 client_p
->name
, name
);
446 exit_client(NULL
, client_p
, &me
, "Invalid servername introduced.");
450 target_p
= make_client(client_p
);
451 make_server(target_p
);
452 target_p
->hopcount
= hop
;
454 rb_strlcpy(target_p
->name
, name
, sizeof(target_p
->name
));
456 set_server_gecos(target_p
, info
);
458 target_p
->servptr
= source_p
;
462 rb_dlinkAddTail(target_p
, &target_p
->node
, &global_client_list
);
463 rb_dlinkAddTailAlloc(target_p
, &global_serv_list
);
464 add_to_client_hash(target_p
->name
, target_p
);
465 rb_dlinkAdd(target_p
, &target_p
->lnode
, &target_p
->servptr
->serv
->servers
);
467 target_p
->serv
->nameinfo
= scache_connect(target_p
->name
, target_p
->info
, IsHidden(target_p
));
469 sendto_server(client_p
, NULL
, NOCAPS
, NOCAPS
,
470 ":%s SERVER %s %d :%s%s",
471 source_p
->name
, target_p
->name
, target_p
->hopcount
+ 1,
472 IsHidden(target_p
) ? "(H) " : "", target_p
->info
);
474 sendto_realops_snomask(SNO_EXTERNAL
, L_ALL
,
475 "Server %s being introduced by %s", target_p
->name
, source_p
->name
);
477 /* quick, dirty EOB. you know you love it. */
478 sendto_one(target_p
, ":%s PING %s %s", get_id(&me
, target_p
), me
.name
, target_p
->name
);
480 hdata
.client
= source_p
;
481 hdata
.target
= target_p
;
482 call_hook(h_server_introduced
, &hdata
);
488 ms_sid(struct Client
*client_p
, struct Client
*source_p
, int parc
, const char *parv
[])
490 struct Client
*target_p
;
491 struct remote_conf
*hub_p
;
492 hook_data_client hdata
;
497 char squitreason
[160];
501 /* collision on the name? */
502 if((target_p
= find_server(NULL
, parv
[1])) != NULL
)
504 ilog(L_SERVER
, "Link %s cancelled, server %s already exists",
505 client_p
->name
, parv
[1]);
507 rb_snprintf(squitreason
, sizeof squitreason
,
508 "Server %s already exists",
510 exit_client(NULL
, client_p
, &me
, squitreason
);
514 /* collision on the SID? */
515 if((target_p
= find_id(parv
[3])) != NULL
)
517 sendto_wallops_flags(UMODE_WALLOP
, &me
,
518 "Link %s cancelled, SID %s for server %s already in use by %s",
519 client_p
->name
, parv
[3], parv
[1], target_p
->name
);
520 sendto_server(NULL
, NULL
, CAP_TS6
, NOCAPS
,
521 ":%s WALLOPS :Link %s cancelled, SID %s for server %s already in use by %s",
522 me
.id
, client_p
->name
, parv
[3], parv
[1], target_p
->name
);
523 ilog(L_SERVER
, "Link %s cancelled, SID %s for server %s already in use by %s",
524 client_p
->name
, parv
[3], parv
[1], target_p
->name
);
526 rb_snprintf(squitreason
, sizeof squitreason
,
527 "SID %s for %s already in use by %s",
528 parv
[3], parv
[1], target_p
->name
);
529 exit_client(NULL
, client_p
, &me
, squitreason
);
533 if(bogus_host(parv
[1]) || strlen(parv
[1]) > HOSTLEN
)
535 sendto_one(client_p
, "ERROR :Invalid servername");
536 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
537 "Link %s cancelled, servername %s invalid",
538 client_p
->name
, parv
[1]);
539 ilog(L_SERVER
, "Link %s cancelled, servername %s invalid",
540 client_p
->name
, parv
[1]);
542 exit_client(NULL
, client_p
, &me
, "Bogus server name");
546 if(!IsDigit(parv
[3][0]) || !IsIdChar(parv
[3][1]) ||
547 !IsIdChar(parv
[3][2]) || parv
[3][3] != '\0')
549 sendto_one(client_p
, "ERROR :Invalid SID");
550 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
551 "Link %s cancelled, SID %s invalid",
552 client_p
->name
, parv
[3]);
553 ilog(L_SERVER
, "Link %s cancelled, SID %s invalid",
554 client_p
->name
, parv
[3]);
556 exit_client(NULL
, client_p
, &me
, "Bogus SID");
560 /* for the directly connected server:
561 * H: allows it to introduce a server matching that mask
562 * L: disallows it introducing a server matching that mask
564 RB_DLINK_FOREACH(ptr
, hubleaf_conf_list
.head
)
568 if(match(hub_p
->server
, client_p
->name
) && match(hub_p
->host
, parv
[1]))
570 if(hub_p
->flags
& CONF_HUB
)
577 /* no matching hub_mask */
580 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
581 "Non-Hub link %s introduced %s.",
582 client_p
->name
, parv
[1]);
583 ilog(L_SERVER
, "Non-Hub link %s introduced %s.",
584 client_p
->name
, parv
[1]);
586 rb_snprintf(squitreason
, sizeof squitreason
,
587 "No matching hub_mask for %s",
589 exit_client(NULL
, client_p
, &me
, squitreason
);
593 /* matching leaf_mask */
596 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
597 "Link %s introduced leafed server %s.",
598 client_p
->name
, parv
[1]);
599 ilog(L_SERVER
, "Link %s introduced leafed server %s.",
600 client_p
->name
, parv
[1]);
602 rb_snprintf(squitreason
, sizeof squitreason
,
603 "Matching leaf_mask for %s",
605 exit_client(NULL
, client_p
, &me
, squitreason
);
610 target_p
= make_client(client_p
);
611 make_server(target_p
);
613 rb_strlcpy(target_p
->name
, parv
[1], sizeof(target_p
->name
));
614 target_p
->hopcount
= atoi(parv
[2]);
615 strcpy(target_p
->id
, parv
[3]);
616 set_server_gecos(target_p
, parv
[4]);
618 target_p
->servptr
= source_p
;
621 rb_dlinkAddTail(target_p
, &target_p
->node
, &global_client_list
);
622 rb_dlinkAddTailAlloc(target_p
, &global_serv_list
);
623 add_to_client_hash(target_p
->name
, target_p
);
624 add_to_id_hash(target_p
->id
, target_p
);
625 rb_dlinkAdd(target_p
, &target_p
->lnode
, &target_p
->servptr
->serv
->servers
);
627 target_p
->serv
->nameinfo
= scache_connect(target_p
->name
, target_p
->info
, IsHidden(target_p
));
629 sendto_server(client_p
, NULL
, CAP_TS6
, NOCAPS
,
630 ":%s SID %s %d %s :%s%s",
631 source_p
->id
, target_p
->name
, target_p
->hopcount
+ 1,
632 target_p
->id
, IsHidden(target_p
) ? "(H) " : "", target_p
->info
);
634 sendto_realops_snomask(SNO_EXTERNAL
, L_ALL
,
635 "Server %s being introduced by %s", target_p
->name
, source_p
->name
);
637 /* quick, dirty EOB. you know you love it. */
638 sendto_one(target_p
, ":%s PING %s %s",
639 get_id(&me
, target_p
), me
.name
, get_id(target_p
, target_p
));
641 hdata
.client
= source_p
;
642 hdata
.target
= target_p
;
643 call_hook(h_server_introduced
, &hdata
);
648 /* set_server_gecos()
650 * input - pointer to client
652 * side effects - servers gecos field is set
655 set_server_gecos(struct Client
*client_p
, const char *info
)
657 /* check the info for [IP] */
663 s
= LOCAL_COPY(info
);
665 /* we should only check the first word for an ip */
666 if((p
= strchr(s
, ' ')))
669 /* check for a ] which would symbolise an [IP] */
672 /* set s to after the first space */
678 /* no ], put the space back */
682 /* p may have been set to a trailing space, so check s exists and that
684 if(s
&& (*s
!= '\0'))
686 /* a space? if not (H) could be the last part of info.. */
687 if((p
= strchr(s
, ' ')))
690 /* check for (H) which is a hidden server */
691 if(!strcmp(s
, "(H)"))
695 /* if there was no space.. theres nothing to set info to */
704 /* if there was a trailing space, s could point to \0, so check */
705 if(s
&& (*s
!= '\0'))
707 rb_strlcpy(client_p
->info
, s
, sizeof(client_p
->info
));
713 rb_strlcpy(client_p
->info
, "(Unknown Location)", sizeof(client_p
->info
));
722 * output - 1 if a bogus hostname input, 0 if its valid
723 * side effects - none
726 bogus_host(const char *host
)
728 int bogus_server
= 0;
732 for(s
= host
; *s
; s
++)
743 if(!dots
|| bogus_server
)