cadey
/
elemental-ircd
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
elemental-ircd/src/s_serv.c

1813 lines
45 KiB
C
Raw Normal View History

[svn] - the new plan: + branches/release-2.1 -> 2.2 base + 3.0 -> branches/cxxconversion + backport some immediate 3.0 functionality for 2.2 + other stuff
2007-01-25 06:40:21 +00:00
/*
* ircd-ratbox: A slightly useful ircd.
* s_serv.c: Server related functions.
*
* Copyright (C) 1990 Jarkko Oikarinen and University of Oulu, Co Center
* Copyright (C) 1996-2002 Hybrid Development Team
* Copyright (C) 2002-2005 ircd-ratbox development team
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
* USA
*
* $Id: s_serv.c 2723 2006-11-09 23:35:48Z jilles $
*/
#include "stdinc.h"
#ifdef HAVE_LIBCRYPTO
#include <openssl/rsa.h>
#endif
#include "tools.h"
#include "s_serv.h"
#include "class.h"
#include "client.h"
#include "common.h"
#include "event.h"
#include "hash.h"
#include "irc_string.h"
#include "sprintf_irc.h"
#include "ircd.h"
#include "ircd_defs.h"
#include "numeric.h"
#include "packet.h"
#include "res.h"
#include "commio.h"
#include "s_conf.h"
#include "s_newconf.h"
#include "s_log.h"
#include "s_stats.h"
#include "s_user.h"
#include "scache.h"
#include "send.h"
#include "client.h"
#include "memory.h"
#include "channel.h" /* chcap_usage_counts stuff... */
#include "hook.h"
#include "msg.h"
extern char *crypt();
#ifndef INADDR_NONE
#define INADDR_NONE ((unsigned int) 0xffffffff)
#endif
#ifndef HAVE_SOCKETPAIR
static int inet_socketpair(int d, int type, int protocol, int sv[2]);
#endif
int MaxConnectionCount = 1;
int MaxClientCount = 1;
int refresh_user_links = 0;
static char buf[BUFSIZE];
static void start_io(struct Client *server);
static SlinkRplHnd slink_error;
static SlinkRplHnd slink_zipstats;
/*
* list of recognized server capabilities. "TS" is not on the list
* because all servers that we talk to already do TS, and the kludged
* extra argument to "PASS" takes care of checking that. -orabidoo
*/
struct Capability captab[] = {
/* name cap */
{ "QS", CAP_QS },
{ "EX", CAP_EX },
{ "CHW", CAP_CHW},
{ "IE", CAP_IE},
{ "KLN", CAP_KLN},
{ "GLN", CAP_GLN},
{ "KNOCK", CAP_KNOCK},
{ "ZIP", CAP_ZIP},
{ "TB", CAP_TB},
{ "UNKLN", CAP_UNKLN},
{ "CLUSTER", CAP_CLUSTER},
{ "ENCAP", CAP_ENCAP },
{ "SERVICES", CAP_SERVICE },
{ "RSFNC", CAP_RSFNC },
{ "SAVE", CAP_SAVE },
{ "EUID", CAP_EUID },
{0, 0}
};
struct SlinkRplDef slinkrpltab[] = {
{SLINKRPL_ERROR, slink_error, SLINKRPL_FLAG_DATA},
{SLINKRPL_ZIPSTATS, slink_zipstats, SLINKRPL_FLAG_DATA},
{0, 0, 0},
};
static int fork_server(struct Client *client_p);
static CNCB serv_connect_callback;
void
slink_error(unsigned int rpl, unsigned int len, unsigned char *data, struct Client *server_p)
{
char squitreason[256];
s_assert(rpl == SLINKRPL_ERROR);
s_assert(len < 256);
data[len - 1] = '\0';
sendto_realops_snomask(SNO_GENERAL, L_ALL, "SlinkError for %s: %s", server_p->name, data);
snprintf(squitreason, sizeof squitreason, "servlink error: %s", data);
exit_client(server_p, server_p, &me, squitreason);
}
void
slink_zipstats(unsigned int rpl, unsigned int len, unsigned char *data, struct Client *server_p)
{
struct ZipStats zipstats;
u_int32_t in = 0, in_wire = 0, out = 0, out_wire = 0;
int i = 0;
s_assert(rpl == SLINKRPL_ZIPSTATS);
s_assert(len == 16);
s_assert(IsCapable(server_p, CAP_ZIP));
/* Yes, it needs to be done this way, no we cannot let the compiler
* work with the pointer to the structure. This works around a GCC
* bug on SPARC that affects all versions at the time of this writing.
* I will feed you to the creatures living in RMS's beard if you do
* not leave this as is, without being sure that you are not causing
* regression for most of our installed SPARC base.
* -jmallett, 04/27/2002
*/
memcpy(&zipstats, &server_p->localClient->zipstats, sizeof(struct ZipStats));
in |= (data[i++] << 24);
in |= (data[i++] << 16);
in |= (data[i++] << 8);
in |= (data[i++]);
in_wire |= (data[i++] << 24);
in_wire |= (data[i++] << 16);
in_wire |= (data[i++] << 8);
in_wire |= (data[i++]);
out |= (data[i++] << 24);
out |= (data[i++] << 16);
out |= (data[i++] << 8);
out |= (data[i++]);
out_wire |= (data[i++] << 24);
out_wire |= (data[i++] << 16);
out_wire |= (data[i++] << 8);
out_wire |= (data[i++]);
zipstats.in += in;
zipstats.inK += zipstats.in >> 10;
zipstats.in &= 0x03ff;
zipstats.in_wire += in_wire;
zipstats.inK_wire += zipstats.in_wire >> 10;
zipstats.in_wire &= 0x03ff;
zipstats.out += out;
zipstats.outK += zipstats.out >> 10;
zipstats.out &= 0x03ff;
zipstats.out_wire += out_wire;
zipstats.outK_wire += zipstats.out_wire >> 10;
zipstats.out_wire &= 0x03ff;
if(zipstats.inK > 0)
zipstats.in_ratio =
(((double) (zipstats.inK - zipstats.inK_wire) /
(double) zipstats.inK) * 100.00);
else
zipstats.in_ratio = 0;
if(zipstats.outK > 0)
zipstats.out_ratio =
(((double) (zipstats.outK - zipstats.outK_wire) /
(double) zipstats.outK) * 100.00);
else
zipstats.out_ratio = 0;
memcpy(&server_p->localClient->zipstats, &zipstats, sizeof(struct ZipStats));
}
void
collect_zipstats(void *unused)
{
dlink_node *ptr;
struct Client *target_p;
DLINK_FOREACH(ptr, serv_list.head)
{
target_p = ptr->data;
if(IsCapable(target_p, CAP_ZIP))
{
/* only bother if we haven't already got something queued... */
if(!target_p->localClient->slinkq)
{
target_p->localClient->slinkq = MyMalloc(1); /* sigh.. */
target_p->localClient->slinkq[0] = SLINKCMD_ZIPSTATS;
target_p->localClient->slinkq_ofs = 0;
target_p->localClient->slinkq_len = 1;
send_queued_slink_write(target_p->localClient->ctrlfd, target_p);
}
}
}
}
/*
* hunt_server - Do the basic thing in delivering the message (command)
* across the relays to the specific server (server) for
* actions.
*
* Note: The command is a format string and *MUST* be
* of prefixed style (e.g. ":%s COMMAND %s ...").
* Command can have only max 8 parameters.
*
* server parv[server] is the parameter identifying the
* target server.
*
* *WARNING*
* parv[server] is replaced with the pointer to the
* real servername from the matched client (I'm lazy
* now --msa).
*
* returns: (see #defines)
*/
int
hunt_server(struct Client *client_p, struct Client *source_p,
const char *command, int server, int parc, const char *parv[])
{
struct Client *target_p;
int wilds;
dlink_node *ptr;
const char *old;
char *new;
/*
* Assume it's me, if no server
*/
if(parc <= server || EmptyString(parv[server]) ||
match(me.name, parv[server]) || match(parv[server], me.name) ||
(strcmp(parv[server], me.id) == 0))
return (HUNTED_ISME);
new = LOCAL_COPY(parv[server]);
/*
* These are to pickup matches that would cause the following
* message to go in the wrong direction while doing quick fast
* non-matching lookups.
*/
if(MyClient(source_p))
target_p = find_named_client(new);
else
target_p = find_client(new);
if(target_p)
if(target_p->from == source_p->from && !MyConnect(target_p))
target_p = NULL;
if(target_p == NULL && (target_p = find_server(source_p, new)))
if(target_p->from == source_p->from && !MyConnect(target_p))
target_p = NULL;
collapse(new);
wilds = (strchr(new, '?') || strchr(new, '*'));
/*
* Again, if there are no wild cards involved in the server
* name, use the hash lookup
*/
if(!target_p)
{
if(!wilds)
{
if(MyClient(source_p) || !IsDigit(parv[server][0]))
sendto_one_numeric(source_p, ERR_NOSUCHSERVER,
form_str(ERR_NOSUCHSERVER),
parv[server]);
return (HUNTED_NOSUCH);
}
else
{
target_p = NULL;
DLINK_FOREACH(ptr, global_client_list.head)
{
if(match(new, ((struct Client *) (ptr->data))->name))
{
target_p = ptr->data;
break;
}
}
}
}
if(target_p)
{
if(!IsRegistered(target_p))
{
sendto_one_numeric(source_p, ERR_NOSUCHSERVER,
form_str(ERR_NOSUCHSERVER),
parv[server]);
return HUNTED_NOSUCH;
}
if(IsMe(target_p) || MyClient(target_p))
return HUNTED_ISME;
old = parv[server];
parv[server] = get_id(target_p, target_p);
sendto_one(target_p, command, get_id(source_p, target_p),
parv[1], parv[2], parv[3], parv[4], parv[5], parv[6], parv[7], parv[8]);
parv[server] = old;
return (HUNTED_PASS);
}
if(!IsDigit(parv[server][0]))
sendto_one_numeric(source_p, ERR_NOSUCHSERVER,
form_str(ERR_NOSUCHSERVER), parv[server]);
return (HUNTED_NOSUCH);
}
/*
* try_connections - scan through configuration and try new connections.
* Returns the calendar time when the next call to this
* function should be made latest. (No harm done if this
* is called earlier or later...)
*/
void
try_connections(void *unused)
{
struct Client *client_p;
struct server_conf *server_p = NULL;
struct server_conf *tmp_p;
struct Class *cltmp;
dlink_node *ptr;
int connecting = FALSE;
int confrq = 0;
time_t next = 0;
DLINK_FOREACH(ptr, server_conf_list.head)
{
tmp_p = ptr->data;
if(ServerConfIllegal(tmp_p) || !ServerConfAutoconn(tmp_p))
continue;
cltmp = tmp_p->class;
/*
* Skip this entry if the use of it is still on hold until
* future. Otherwise handle this entry (and set it on hold
* until next time). Will reset only hold times, if already
* made one successfull connection... [this algorithm is
* a bit fuzzy... -- msa >;) ]
*/
if(tmp_p->hold > CurrentTime)
{
if(next > tmp_p->hold || next == 0)
next = tmp_p->hold;
continue;
}
confrq = get_con_freq(cltmp);
tmp_p->hold = CurrentTime + confrq;
/*
* Found a CONNECT config with port specified, scan clients
* and see if this server is already connected?
*/
client_p = find_server(NULL, tmp_p->name);
if(!client_p && (CurrUsers(cltmp) < MaxUsers(cltmp)) && !connecting)
{
server_p = tmp_p;
/* We connect only one at time... */
connecting = TRUE;
}
if((next > tmp_p->hold) || (next == 0))
next = tmp_p->hold;
}
/* TODO: change this to set active flag to 0 when added to event! --Habeeb */
if(GlobalSetOptions.autoconn == 0)
return;
if(!connecting)
return;
/* move this connect entry to end.. */
dlinkDelete(&server_p->node, &server_conf_list);
dlinkAddTail(server_p, &server_p->node, &server_conf_list);
/*
* We used to only print this if serv_connect() actually
* suceeded, but since comm_tcp_connect() can call the callback
* immediately if there is an error, we were getting error messages
* in the wrong order. SO, we just print out the activated line,
* and let serv_connect() / serv_connect_callback() print an
* error afterwards if it fails.
* -- adrian
*/
#ifndef HIDE_SERVERS_IPS
sendto_realops_snomask(SNO_GENERAL, L_ALL,
"Connection to %s[%s] activated.",
server_p->name, server_p->host);
#else
sendto_realops_snomask(SNO_GENERAL, L_ALL,
"Connection to %s activated",
server_p->name);
#endif
serv_connect(server_p, 0);
}
int
check_server(const char *name, struct Client *client_p)
{
struct server_conf *server_p = NULL;
struct server_conf *tmp_p;
dlink_node *ptr;
int error = -1;
s_assert(NULL != client_p);
if(client_p == NULL)
return error;
if(!(client_p->localClient->passwd))
return -2;
if(strlen(name) > HOSTLEN)
return -4;
DLINK_FOREACH(ptr, server_conf_list.head)
{
tmp_p = ptr->data;
if(ServerConfIllegal(tmp_p))
continue;
if(!match(tmp_p->name, name))
continue;
error = -3;
/* XXX: Fix me for IPv6 */
/* XXX sockhost is the IPv4 ip as a string */
if(match(tmp_p->host, client_p->host) ||
match(tmp_p->host, client_p->sockhost))
{
error = -2;
if(ServerConfEncrypted(tmp_p))
{
if(!strcmp(tmp_p->passwd, crypt(client_p->localClient->passwd,
tmp_p->passwd)))
{
server_p = tmp_p;
break;
}
}
else if(!strcmp(tmp_p->passwd, client_p->localClient->passwd))
{
server_p = tmp_p;
break;
}
}
}
if(server_p == NULL)
return error;
attach_server_conf(client_p, server_p);
/* clear ZIP/TB if they support but we dont want them */
#ifdef HAVE_LIBZ
if(!ServerConfCompressed(server_p))
#endif
ClearCap(client_p, CAP_ZIP);
if(!ServerConfTb(server_p))
ClearCap(client_p, CAP_TB);
return 0;
}
/*
* send_capabilities
*
* inputs - Client pointer to send to
* - int flag of capabilities that this server has
* output - NONE
* side effects - send the CAPAB line to a server -orabidoo
*
*/
void
send_capabilities(struct Client *client_p, int cap_can_send)
{
struct Capability *cap;
char msgbuf[BUFSIZE];
char *t;
int tl;
t = msgbuf;
for (cap = captab; cap->name; ++cap)
{
if(cap->cap & cap_can_send)
{
tl = ircsprintf(t, "%s ", cap->name);
t += tl;
}
}
t--;
*t = '\0';
sendto_one(client_p, "CAPAB :%s", msgbuf);
}
/* burst_modes_TS5()
*
* input - client to burst to, channel name, list to burst, mode flag
* output -
* side effects - client is sent a list of +b, or +e, or +I modes
*/
static void
burst_modes_TS5(struct Client *client_p, char *chname, dlink_list *list, char flag)
{
dlink_node *ptr;
struct Ban *banptr;
char mbuf[MODEBUFLEN];
char pbuf[BUFSIZE];
int tlen;
int mlen;
int cur_len;
char *mp;
char *pp;
int count = 0;
mlen = ircsprintf(buf, ":%s MODE %s +", me.name, chname);
cur_len = mlen;
mp = mbuf;
pp = pbuf;
DLINK_FOREACH(ptr, list->head)
{
banptr = ptr->data;
tlen = strlen(banptr->banstr) + 3;
/* uh oh */
if(tlen > MODEBUFLEN)
continue;
if((count >= MAXMODEPARAMS) || ((cur_len + tlen + 2) > (BUFSIZE - 3)))
{
sendto_one(client_p, "%s%s %s", buf, mbuf, pbuf);
mp = mbuf;
pp = pbuf;
cur_len = mlen;
count = 0;
}
*mp++ = flag;
*mp = '\0';
pp += ircsprintf(pp, "%s ", banptr->banstr);
cur_len += tlen;
count++;
}
if(count != 0)
sendto_one(client_p, "%s%s %s", buf, mbuf, pbuf);
}
/* burst_modes_TS6()
*
* input - client to burst to, channel name, list to burst, mode flag
* output -
* side effects - client is sent a list of +b, +e, or +I modes
*/
static void
burst_modes_TS6(struct Client *client_p, struct Channel *chptr,
dlink_list *list, char flag)
{
dlink_node *ptr;
struct Ban *banptr;
char *t;
int tlen;
int mlen;
int cur_len;
cur_len = mlen = ircsprintf(buf, ":%s BMASK %ld %s %c :",
me.id, (long) chptr->channelts, chptr->chname, flag);
t = buf + mlen;
DLINK_FOREACH(ptr, list->head)
{
banptr = ptr->data;
tlen = strlen(banptr->banstr) + 1;
/* uh oh */
if(cur_len + tlen > BUFSIZE - 3)
{
/* the one we're trying to send doesnt fit at all! */
if(cur_len == mlen)
{
s_assert(0);
continue;
}
/* chop off trailing space and send.. */
*(t-1) = '\0';
sendto_one(client_p, "%s", buf);
cur_len = mlen;
t = buf + mlen;
}
ircsprintf(t, "%s ", banptr->banstr);
t += tlen;
cur_len += tlen;
}
/* cant ever exit the loop above without having modified buf,
* chop off trailing space and send.
*/
*(t-1) = '\0';
sendto_one(client_p, "%s", buf);
}
/*
* burst_TS5
*
* inputs - client (server) to send nick towards
* - client to send nick for
* output - NONE
* side effects - NICK message is sent towards given client_p
*/
static void
burst_TS5(struct Client *client_p)
{
static char ubuf[12];
struct Client *target_p;
struct Channel *chptr;
struct membership *msptr;
hook_data_client hclientinfo;
hook_data_channel hchaninfo;
dlink_node *ptr;
dlink_node *uptr;
char *t;
int tlen, mlen;
int cur_len = 0;
hclientinfo.client = hchaninfo.client = client_p;
DLINK_FOREACH(ptr, global_client_list.head)
{
target_p = ptr->data;
if(!IsPerson(target_p))
continue;
send_umode(NULL, target_p, 0, 0, ubuf);
if(!*ubuf)
{
ubuf[0] = '+';
ubuf[1] = '\0';
}
sendto_one(client_p, "NICK %s %d %ld %s %s %s %s :%s",
target_p->name, target_p->hopcount + 1,
(long) target_p->tsinfo, ubuf,
target_p->username, target_p->host,
target_p->user->server, target_p->info);
if(IsDynSpoof(target_p))
sendto_one(client_p, ":%s ENCAP * REALHOST %s",
target_p->name, target_p->orighost);
if(!EmptyString(target_p->user->suser))
sendto_one(client_p, ":%s ENCAP * LOGIN %s",
target_p->name, target_p->user->suser);
if(ConfigFileEntry.burst_away && !EmptyString(target_p->user->away))
sendto_one(client_p, ":%s AWAY :%s",
target_p->name, target_p->user->away);
hclientinfo.target = target_p;
call_hook(h_burst_client, &hclientinfo);
}
DLINK_FOREACH(ptr, global_channel_list.head)
{
chptr = ptr->data;
if(*chptr->chname != '#')
continue;
cur_len = mlen = ircsprintf(buf, ":%s SJOIN %ld %s %s :", me.name,
(long) chptr->channelts, chptr->chname,
channel_modes(chptr, client_p));
t = buf + mlen;
DLINK_FOREACH(uptr, chptr->members.head)
{
msptr = uptr->data;
tlen = strlen(msptr->client_p->name) + 1;
if(is_chanop(msptr))
tlen++;
if(is_voiced(msptr))
tlen++;
if(cur_len + tlen >= BUFSIZE - 3)
{
t--;
*t = '\0';
sendto_one(client_p, "%s", buf);
cur_len = mlen;
t = buf + mlen;
}
ircsprintf(t, "%s%s ", find_channel_status(msptr, 1),
msptr->client_p->name);
cur_len += tlen;
t += tlen;
}
if (dlink_list_length(&chptr->members) > 0)
{
/* remove trailing space */
t--;
*t = '\0';
}
sendto_one(client_p, "%s", buf);
burst_modes_TS5(client_p, chptr->chname, &chptr->banlist, 'b');
if(IsCapable(client_p, CAP_EX))
burst_modes_TS5(client_p, chptr->chname, &chptr->exceptlist, 'e');
if(IsCapable(client_p, CAP_IE))
burst_modes_TS5(client_p, chptr->chname, &chptr->invexlist, 'I');
burst_modes_TS5(client_p, chptr->chname, &chptr->quietlist, 'q');
if(IsCapable(client_p, CAP_TB) && chptr->topic != NULL)
sendto_one(client_p, ":%s TB %s %ld %s%s:%s",
me.name, chptr->chname, (long) chptr->topic_time,
ConfigChannel.burst_topicwho ? chptr->topic_info : "",
ConfigChannel.burst_topicwho ? " " : "",
chptr->topic);
hchaninfo.chptr = chptr;
call_hook(h_burst_channel, &hchaninfo);
}
hclientinfo.target = NULL;
call_hook(h_burst_finished, &hclientinfo);
}
/*
* burst_TS6
*
* inputs - client (server) to send nick towards
* - client to send nick for
* output - NONE
* side effects - NICK message is sent towards given client_p
*/
static void
burst_TS6(struct Client *client_p)
{
static char ubuf[12];
struct Client *target_p;
struct Channel *chptr;
struct membership *msptr;
hook_data_client hclientinfo;
hook_data_channel hchaninfo;
dlink_node *ptr;
dlink_node *uptr;
char *t;
int tlen, mlen;
int cur_len = 0;
hclientinfo.client = hchaninfo.client = client_p;
DLINK_FOREACH(ptr, global_client_list.head)
{
target_p = ptr->data;
if(!IsPerson(target_p))
continue;
send_umode(NULL, target_p, 0, 0, ubuf);
if(!*ubuf)
{
ubuf[0] = '+';
ubuf[1] = '\0';
}
if(has_id(target_p) && IsCapable(client_p, CAP_EUID))
sendto_one(client_p, ":%s EUID %s %d %ld %s %s %s %s %s %s %s :%s",
target_p->servptr->id, target_p->name,
target_p->hopcount + 1,
(long) target_p->tsinfo, ubuf,
target_p->username, target_p->host,
IsIPSpoof(target_p) ? "0" : target_p->sockhost,
target_p->id,
IsDynSpoof(target_p) ? target_p->orighost : "*",
EmptyString(target_p->user->suser) ? "*" : target_p->user->suser,
target_p->info);
else if(has_id(target_p))
sendto_one(client_p, ":%s UID %s %d %ld %s %s %s %s %s :%s",
target_p->servptr->id, target_p->name,
target_p->hopcount + 1,
(long) target_p->tsinfo, ubuf,
target_p->username, target_p->host,
IsIPSpoof(target_p) ? "0" : target_p->sockhost,
target_p->id, target_p->info);
else
sendto_one(client_p, "NICK %s %d %ld %s %s %s %s :%s",
target_p->name,
target_p->hopcount + 1,
(long) target_p->tsinfo,
ubuf,
target_p->username, target_p->host,
target_p->user->server, target_p->info);
if(!has_id(target_p) || !IsCapable(client_p, CAP_EUID))
{
if(IsDynSpoof(target_p))
sendto_one(client_p, ":%s ENCAP * REALHOST %s",
use_id(target_p), target_p->orighost);
if(!EmptyString(target_p->user->suser))
sendto_one(client_p, ":%s ENCAP * LOGIN %s",
use_id(target_p), target_p->user->suser);
}
if(ConfigFileEntry.burst_away && !EmptyString(target_p->user->away))
sendto_one(client_p, ":%s AWAY :%s",
use_id(target_p),
target_p->user->away);
hclientinfo.target = target_p;
call_hook(h_burst_client, &hclientinfo);
}
DLINK_FOREACH(ptr, global_channel_list.head)
{
chptr = ptr->data;
if(*chptr->chname != '#')
continue;
cur_len = mlen = ircsprintf(buf, ":%s SJOIN %ld %s %s :", me.id,
(long) chptr->channelts, chptr->chname,
channel_modes(chptr, client_p));
t = buf + mlen;
DLINK_FOREACH(uptr, chptr->members.head)
{
msptr = uptr->data;
tlen = strlen(use_id(msptr->client_p)) + 1;
if(is_chanop(msptr))
tlen++;
if(is_voiced(msptr))
tlen++;
if(cur_len + tlen >= BUFSIZE - 3)
{
*(t-1) = '\0';
sendto_one(client_p, "%s", buf);
cur_len = mlen;
t = buf + mlen;
}
ircsprintf(t, "%s%s ", find_channel_status(msptr, 1),
use_id(msptr->client_p));
cur_len += tlen;
t += tlen;
}
if (dlink_list_length(&chptr->members) > 0)
{
/* remove trailing space */
*(t-1) = '\0';
}
sendto_one(client_p, "%s", buf);
if(dlink_list_length(&chptr->banlist) > 0)
burst_modes_TS6(client_p, chptr, &chptr->banlist, 'b');
if(IsCapable(client_p, CAP_EX) &&
dlink_list_length(&chptr->exceptlist) > 0)
burst_modes_TS6(client_p, chptr, &chptr->exceptlist, 'e');
if(IsCapable(client_p, CAP_IE) &&
dlink_list_length(&chptr->invexlist) > 0)
burst_modes_TS6(client_p, chptr, &chptr->invexlist, 'I');
if(dlink_list_length(&chptr->quietlist) > 0)
burst_modes_TS6(client_p, chptr, &chptr->quietlist, 'q');
if(IsCapable(client_p, CAP_TB) && chptr->topic != NULL)
sendto_one(client_p, ":%s TB %s %ld %s%s:%s",
me.id, chptr->chname, (long) chptr->topic_time,
ConfigChannel.burst_topicwho ? chptr->topic_info : "",
ConfigChannel.burst_topicwho ? " " : "",
chptr->topic);
hchaninfo.chptr = chptr;
call_hook(h_burst_channel, &hchaninfo);
}
hclientinfo.target = NULL;
call_hook(h_burst_finished, &hclientinfo);
}
/*
* show_capabilities - show current server capabilities
*
* inputs - pointer to an struct Client
* output - pointer to static string
* side effects - build up string representing capabilities of server listed
*/
const char *
show_capabilities(struct Client *target_p)
{
static char msgbuf[BUFSIZE];
struct Capability *cap;
char *t;
int tl;
t = msgbuf;
tl = ircsprintf(msgbuf, "TS ");
t += tl;
if(!IsServer(target_p) || !target_p->serv->caps) /* short circuit if no caps */
{
msgbuf[2] = '\0';
return msgbuf;
}
for (cap = captab; cap->cap; ++cap)
{
if(cap->cap & target_p->serv->caps)
{
tl = ircsprintf(t, "%s ", cap->name);
t += tl;
}
}
t--;
*t = '\0';
return msgbuf;
}
/*
* server_estab
*
* inputs - pointer to a struct Client
* output -
* side effects -
*/
int
server_estab(struct Client *client_p)
{
struct Client *target_p;
struct server_conf *server_p;
hook_data_client hdata;
char *host;
dlink_node *ptr;
s_assert(NULL != client_p);
if(client_p == NULL)
return -1;
ClearAccess(client_p);
host = client_p->name;
if((server_p = client_p->localClient->att_sconf) == NULL)
{
/* This shouldn't happen, better tell the ops... -A1kmm */
sendto_realops_snomask(SNO_GENERAL, is_remote_connect(client_p) ? L_NETWIDE : L_ALL,
"Warning: Lost connect{} block for server %s!", host);
return exit_client(client_p, client_p, client_p, "Lost connect{} block!");
}
/* We shouldn't have to check this, it should already done before
* server_estab is called. -A1kmm
*/
if(client_p->localClient->passwd)
{
memset(client_p->localClient->passwd, 0, strlen(client_p->localClient->passwd));
MyFree(client_p->localClient->passwd);
client_p->localClient->passwd = NULL;
}
/* Its got identd , since its a server */
SetGotId(client_p);
/* If there is something in the serv_list, it might be this
* connecting server..
*/
if(!ServerInfo.hub && serv_list.head)
{
if(client_p != serv_list.head->data || serv_list.head->next)
{
ServerStats->is_ref++;
sendto_one(client_p, "ERROR :I'm a leaf not a hub");
return exit_client(client_p, client_p, client_p, "I'm a leaf");
}
}
if(IsUnknown(client_p))
{
/*
* jdc -- 1. Use EmptyString(), not [0] index reference.
* 2. Check ->spasswd, not ->passwd.
*/
if(!EmptyString(server_p->spasswd))
{
/* kludge, if we're not using TS6, dont ever send
* ourselves as being TS6 capable.
*/
if(ServerInfo.use_ts6)
sendto_one(client_p, "PASS %s TS %d :%s",
server_p->spasswd, TS_CURRENT, me.id);
else
sendto_one(client_p, "PASS %s :TS",
server_p->spasswd);
}
/* pass info to new server */
send_capabilities(client_p, default_server_capabs
| (ServerConfCompressed(server_p) ? CAP_ZIP_SUPPORTED : 0)
| (ServerConfTb(server_p) ? CAP_TB : 0));
sendto_one(client_p, "SERVER %s 1 :%s%s",
me.name,
ConfigServerHide.hidden ? "(H) " : "",
(me.info[0]) ? (me.info) : "IRCers United");
}
if(!comm_set_buffers(client_p->localClient->fd, READBUF_SIZE))
report_error(SETBUF_ERROR_MSG,
get_server_name(client_p, SHOW_IP),
log_client_name(client_p, SHOW_IP), errno);
/* Hand the server off to servlink now */
if(IsCapable(client_p, CAP_ZIP))
{
if(fork_server(client_p) < 0)
{
sendto_realops_snomask(SNO_GENERAL, is_remote_connect(client_p) ? L_NETWIDE : L_ALL,
"Warning: fork failed for server %s -- check servlink_path (%s)",
get_server_name(client_p, HIDE_IP),
ConfigFileEntry.servlink_path);
return exit_client(client_p, client_p, client_p, "Fork failed");
}
start_io(client_p);
SetServlink(client_p);
}
sendto_one(client_p, "SVINFO %d %d 0 :%ld", TS_CURRENT, TS_MIN, CurrentTime);
client_p->servptr = &me;
if(IsAnyDead(client_p))
return CLIENT_EXITED;
SetServer(client_p);
/* Update the capability combination usage counts */
set_chcap_usage_counts(client_p);
dlinkAdd(client_p, &client_p->lnode, &me.serv->servers);
dlinkMoveNode(&client_p->localClient->tnode, &unknown_list, &serv_list);
dlinkAddTailAlloc(client_p, &global_serv_list);
if(has_id(client_p))
add_to_id_hash(client_p->id, client_p);
add_to_client_hash(client_p->name, client_p);
/* doesnt duplicate client_p->serv if allocated this struct already */
make_server(client_p);
client_p->serv->up = me.name;
client_p->serv->upid = me.id;
client_p->serv->caps = client_p->localClient->caps;
if(client_p->localClient->fullcaps)
{
DupString(client_p->serv->fullcaps, client_p->localClient->fullcaps);
MyFree(client_p->localClient->fullcaps);
client_p->localClient->fullcaps = NULL;
}
/* add it to scache */
find_or_add(client_p->name);
client_p->localClient->firsttime = CurrentTime;
/* fixing eob timings.. -gnp */
/* Show the real host/IP to admins */
sendto_realops_snomask(SNO_GENERAL, L_ALL,
"Link with %s established: (%s) link",
get_server_name(client_p, SHOW_IP),
show_capabilities(client_p));
ilog(L_SERVER, "Link with %s established: (%s) link",
log_client_name(client_p, SHOW_IP), show_capabilities(client_p));
hdata.client = &me;
hdata.target = client_p;
call_hook(h_server_introduced, &hdata);
if(HasServlink(client_p))
{
/* we won't overflow FD_DESC_SZ here, as it can hold
* client_p->name + 64
*/
comm_note(client_p->localClient->fd, "slink data: %s", client_p->name);
comm_note(client_p->localClient->ctrlfd, "slink ctrl: %s", client_p->name);
}
else
comm_note(client_p->localClient->fd, "Server: %s", client_p->name);
/*
** Old sendto_serv_but_one() call removed because we now
** need to send different names to different servers
** (domain name matching) Send new server to other servers.
*/
DLINK_FOREACH(ptr, serv_list.head)
{
target_p = ptr->data;
if(target_p == client_p)
continue;
if(has_id(target_p) && has_id(client_p))
{
sendto_one(target_p, ":%s SID %s 2 %s :%s%s",
me.id, client_p->name, client_p->id,
IsHidden(client_p) ? "(H) " : "", client_p->info);
if(IsCapable(target_p, CAP_ENCAP) &&
!EmptyString(client_p->serv->fullcaps))
sendto_one(target_p, ":%s ENCAP * GCAP :%s",
client_p->id, client_p->serv->fullcaps);
}
else
{
sendto_one(target_p, ":%s SERVER %s 2 :%s%s",
me.name, client_p->name,
IsHidden(client_p) ? "(H) " : "", client_p->info);
if(IsCapable(target_p, CAP_ENCAP) &&
!EmptyString(client_p->serv->fullcaps))
sendto_one(target_p, ":%s ENCAP * GCAP :%s",
client_p->name, client_p->serv->fullcaps);
}
}
/*
** Pass on my client information to the new server
**
** First, pass only servers (idea is that if the link gets
** cancelled beacause the server was already there,
** there are no NICK's to be cancelled...). Of course,
** if cancellation occurs, all this info is sent anyway,
** and I guess the link dies when a read is attempted...? --msa
**
** Note: Link cancellation to occur at this point means
** that at least two servers from my fragment are building
** up connection this other fragment at the same time, it's
** a race condition, not the normal way of operation...
**
** ALSO NOTE: using the get_client_name for server names--
** see previous *WARNING*!!! (Also, original inpath
** is destroyed...)
*/
DLINK_FOREACH(ptr, global_serv_list.head)
{
target_p = ptr->data;
/* target_p->from == target_p for target_p == client_p */
if(IsMe(target_p) || target_p->from == client_p)
continue;
/* presumption, if target has an id, so does its uplink */
if(has_id(client_p) && has_id(target_p))
sendto_one(client_p, ":%s SID %s %d %s :%s%s",
target_p->serv->upid, target_p->name,
target_p->hopcount + 1, target_p->id,
IsHidden(target_p) ? "(H) " : "", target_p->info);
else
sendto_one(client_p, ":%s SERVER %s %d :%s%s",
target_p->serv->up,
target_p->name, target_p->hopcount + 1,
IsHidden(target_p) ? "(H) " : "", target_p->info);
if(IsCapable(client_p, CAP_ENCAP) &&
!EmptyString(target_p->serv->fullcaps))
sendto_one(client_p, ":%s ENCAP * GCAP :%s",
get_id(target_p, client_p),
target_p->serv->fullcaps);
}
if(has_id(client_p))
burst_TS6(client_p);
else
burst_TS5(client_p);
/* Always send a PING after connect burst is done */
sendto_one(client_p, "PING :%s", get_id(&me, client_p));
free_pre_client(client_p);
return 0;
}
static void
start_io(struct Client *server)
{
unsigned char *iobuf;
int c = 0;
int linecount = 0;
int linelen;
iobuf = MyMalloc(256); /* XXX: This seems arbitrary. Perhaps make it IRCD_BUFSIZE? --nenolod */
if(IsCapable(server, CAP_ZIP))
{
/* ziplink */
iobuf[c++] = SLINKCMD_SET_ZIP_OUT_LEVEL;
iobuf[c++] = 0; /* | */
iobuf[c++] = 1; /* \ len is 1 */
iobuf[c++] = ConfigFileEntry.compression_level;
iobuf[c++] = SLINKCMD_START_ZIP_IN;
iobuf[c++] = SLINKCMD_START_ZIP_OUT;
}
while (MyConnect(server))
{
linecount++;
iobuf = MyRealloc(iobuf, (c + READBUF_SIZE + 64));
/* store data in c+3 to allow for SLINKCMD_INJECT_RECVQ and len u16 */
linelen = linebuf_get(&server->localClient->buf_recvq, (char *) (iobuf + c + 3), READBUF_SIZE, LINEBUF_PARTIAL, LINEBUF_RAW); /* include partial lines */
if(linelen)
{
iobuf[c++] = SLINKCMD_INJECT_RECVQ;
iobuf[c++] = (linelen >> 8);
iobuf[c++] = (linelen & 0xff);
c += linelen;
}
else
break;
}
while (MyConnect(server))
{
linecount++;
iobuf = MyRealloc(iobuf, (c + BUF_DATA_SIZE + 64));
/* store data in c+3 to allow for SLINKCMD_INJECT_RECVQ and len u16 */
linelen = linebuf_get(&server->localClient->buf_sendq,
(char *) (iobuf + c + 3), READBUF_SIZE,
LINEBUF_PARTIAL, LINEBUF_PARSED); /* include partial lines */
if(linelen)
{
iobuf[c++] = SLINKCMD_INJECT_SENDQ;
iobuf[c++] = (linelen >> 8);
iobuf[c++] = (linelen & 0xff);
c += linelen;
}
else
break;
}
/* start io */
iobuf[c++] = SLINKCMD_INIT;
server->localClient->slinkq = iobuf;
server->localClient->slinkq_ofs = 0;
server->localClient->slinkq_len = c;
/* schedule a write */
send_queued_slink_write(server->localClient->ctrlfd, server);
}
/*
* fork_server
*
* inputs - struct Client *server
* output - success: 0 / failure: -1
* side effect - fork, and exec SERVLINK to handle this connection
*/
static int
fork_server(struct Client *server)
{
int ret;
int i;
int ctrl_fds[2];
int data_fds[2];
char fd_str[4][6];
char *kid_argv[7];
char slink[] = "-slink";
/* ctrl */
#ifdef HAVE_SOCKETPAIR
if(socketpair(AF_UNIX, SOCK_STREAM, 0, ctrl_fds) < 0)
#else
if(inet_socketpair(AF_INET,SOCK_STREAM, 0, ctrl_fds) < 0)
#endif
goto fork_error;
/* data */
#ifdef HAVE_SOCKETPAIR
if(socketpair(AF_UNIX, SOCK_STREAM, 0, data_fds) < 0)
#else
if(inet_socketpair(AF_INET,SOCK_STREAM, 0, data_fds) < 0)
#endif
goto fork_error;
#ifdef __CYGWIN__
if((ret = vfork()) < 0)
#else
if((ret = fork()) < 0)
#endif
goto fork_error;
else if(ret == 0)
{
/* set our fds as non blocking and close everything else */
for (i = 0; i < HARD_FDLIMIT; i++)
{
if((i == ctrl_fds[1]) || (i == data_fds[1]) || (i == server->localClient->fd))
{
comm_set_nb(i);
}
else
{
#ifdef __CYGWIN__
if(i > 2) /* don't close std* */
#endif
close(i);
}
}
ircsnprintf(fd_str[0], sizeof(fd_str[0]), "%d", ctrl_fds[1]);
ircsnprintf(fd_str[1], sizeof(fd_str[1]), "%d", data_fds[1]);
ircsnprintf(fd_str[2], sizeof(fd_str[2]), "%d", server->localClient->fd);
kid_argv[0] = slink;
kid_argv[1] = fd_str[0];
kid_argv[2] = fd_str[1];
kid_argv[3] = fd_str[2];
kid_argv[4] = NULL;
/* exec servlink program */
execv(ConfigFileEntry.servlink_path, kid_argv);
/* We're still here, abort. */
_exit(1);
}
else
{
comm_close(server->localClient->fd);
/* close the childs end of the pipes */
close(ctrl_fds[1]);
close(data_fds[1]);
s_assert(server->localClient);
server->localClient->ctrlfd = ctrl_fds[0];
server->localClient->fd = data_fds[0];
if(!comm_set_nb(server->localClient->fd))
{
report_error(NONB_ERROR_MSG,
get_server_name(server, SHOW_IP),
log_client_name(server, SHOW_IP),
errno);
}
if(!comm_set_nb(server->localClient->ctrlfd))
{
report_error(NONB_ERROR_MSG,
get_server_name(server, SHOW_IP),
log_client_name(server, SHOW_IP),
errno);
}
comm_open(server->localClient->ctrlfd, FD_SOCKET, NULL);
comm_open(server->localClient->fd, FD_SOCKET, NULL);
read_ctrl_packet(server->localClient->ctrlfd, server);
read_packet(server->localClient->fd, server);
}
return 0;
fork_error:
/* this is ugly, but nicer than repeating
* about 50 close() statements everywhre... */
close(data_fds[0]);
close(data_fds[1]);
close(ctrl_fds[0]);
close(ctrl_fds[1]);
return -1;
}
/*
* New server connection code
* Based upon the stuff floating about in s_bsd.c
* -- adrian
*/
/*
* serv_connect() - initiate a server connection
*
* inputs - pointer to conf
* - pointer to client doing the connet
* output -
* side effects -
*
* This code initiates a connection to a server. It first checks to make
* sure the given server exists. If this is the case, it creates a socket,
* creates a client, saves the socket information in the client, and
* initiates a connection to the server through comm_connect_tcp(). The
* completion of this goes through serv_completed_connection().
*
* We return 1 if the connection is attempted, since we don't know whether
* it suceeded or not, and 0 if it fails in here somewhere.
*/
int
serv_connect(struct server_conf *server_p, struct Client *by)
{
struct Client *client_p;
struct irc_sockaddr_storage myipnum;
int fd;
s_assert(server_p != NULL);
if(server_p == NULL)
return 0;
/*
* Make sure this server isn't already connected
*/
if((client_p = find_server(NULL, server_p->name)))
{
sendto_realops_snomask(SNO_GENERAL, L_ALL,
"Server %s already present from %s",
server_p->name, get_server_name(client_p, SHOW_IP));
if(by && IsPerson(by) && !MyClient(by))
sendto_one_notice(by, ":Server %s already present from %s",
server_p->name, get_server_name(client_p, SHOW_IP));
return 0;
}
/* create a socket for the server connection */
if((fd = comm_socket(server_p->aftype, SOCK_STREAM, 0, NULL)) < 0)
{
/* Eek, failure to create the socket */
report_error("opening stream socket to %s: %s",
server_p->name, server_p->name, errno);
return 0;
}
/* servernames are always guaranteed under HOSTLEN chars */
comm_note(fd, "Server: %s", server_p->name);
/* Create a local client */
client_p = make_client(NULL);
/* Copy in the server, hostname, fd
* The sockhost may be a hostname, this will be corrected later
* -- jilles
*/
strlcpy(client_p->name, server_p->name, sizeof(client_p->name));
strlcpy(client_p->host, server_p->host, sizeof(client_p->host));
strlcpy(client_p->sockhost, server_p->host, sizeof(client_p->sockhost));
client_p->localClient->fd = fd;
/*
* Set up the initial server evilness, ripped straight from
* connect_server(), so don't blame me for it being evil.
* -- adrian
*/
if(!comm_set_buffers(client_p->localClient->fd, READBUF_SIZE))
{
report_error(SETBUF_ERROR_MSG,
get_server_name(client_p, SHOW_IP),
log_client_name(client_p, SHOW_IP),
errno);
}
/*
* Attach config entries to client here rather than in
* serv_connect_callback(). This to avoid null pointer references.
*/
attach_server_conf(client_p, server_p);
/*
* at this point we have a connection in progress and C/N lines
* attached to the client, the socket info should be saved in the
* client and it should either be resolved or have a valid address.
*
* The socket has been connected or connect is in progress.
*/
make_server(client_p);
if(by && IsPerson(by))
{
strcpy(client_p->serv->by, by->name);
if(client_p->serv->user)
free_user(client_p->serv->user, NULL);
client_p->serv->user = by->user;
by->user->refcnt++;
}
else
{
strcpy(client_p->serv->by, "AutoConn.");
if(client_p->serv->user)
free_user(client_p->serv->user, NULL);
client_p->serv->user = NULL;
}
client_p->serv->up = me.name;
client_p->serv->upid = me.id;
SetConnecting(client_p);
dlinkAddTail(client_p, &client_p->node, &global_client_list);
/* log */
ilog(L_SERVER, "Connecting to %s[%s] port %d (%s)", server_p->name, server_p->host, server_p->port,
#ifdef IPV6
server_p->aftype == AF_INET6 ? "IPv6" :
#endif
(server_p->aftype == AF_INET ? "IPv4" : "?"));
if(ServerConfVhosted(server_p))
{
memcpy(&myipnum, &server_p->my_ipnum, sizeof(myipnum));
((struct sockaddr_in *)&myipnum)->sin_port = 0;
myipnum.ss_family = server_p->aftype;
}
else if(server_p->aftype == AF_INET && ServerInfo.specific_ipv4_vhost)
{
memcpy(&myipnum, &ServerInfo.ip, sizeof(myipnum));
((struct sockaddr_in *)&myipnum)->sin_port = 0;
myipnum.ss_family = AF_INET;
SET_SS_LEN(myipnum, sizeof(struct sockaddr_in));
}
#ifdef IPV6
else if((server_p->aftype == AF_INET6) && ServerInfo.specific_ipv6_vhost)
{
memcpy(&myipnum, &ServerInfo.ip6, sizeof(myipnum));
((struct sockaddr_in6 *)&myipnum)->sin6_port = 0;
myipnum.ss_family = AF_INET6;
SET_SS_LEN(myipnum, sizeof(struct sockaddr_in6));
}
#endif
else
{
comm_connect_tcp(client_p->localClient->fd, server_p->host,
server_p->port, NULL, 0, serv_connect_callback,
client_p, server_p->aftype,
ConfigFileEntry.connect_timeout);
return 1;
}
comm_connect_tcp(client_p->localClient->fd, server_p->host,
server_p->port, (struct sockaddr *) &myipnum,
GET_SS_LEN(myipnum), serv_connect_callback, client_p,
myipnum.ss_family, ConfigFileEntry.connect_timeout);
return 1;
}
/*
* serv_connect_callback() - complete a server connection.
*
* This routine is called after the server connection attempt has
* completed. If unsucessful, an error is sent to ops and the client
* is closed. If sucessful, it goes through the initialisation/check
* procedures, the capabilities are sent, and the socket is then
* marked for reading.
*/
static void
serv_connect_callback(int fd, int status, void *data)
{
struct Client *client_p = data;
struct server_conf *server_p;
char *errstr;
/* First, make sure its a real client! */
s_assert(client_p != NULL);
s_assert(client_p->localClient->fd == fd);
if(client_p == NULL)
return;
/* while we were waiting for the callback, its possible this already
* linked in.. --fl
*/
if(find_server(NULL, client_p->name) != NULL)
{
exit_client(client_p, client_p, &me, "Server Exists");
return;
}
/* Next, for backward purposes, record the ip of the server */
memcpy(&client_p->localClient->ip, &fd_table[fd].connect.hostaddr, sizeof client_p->localClient->ip);
/* Set sockhost properly now -- jilles */
inetntop_sock((struct sockaddr *)&fd_table[fd].connect.hostaddr,
client_p->sockhost, sizeof client_p->sockhost);
/* Check the status */
if(status != COMM_OK)
{
/* COMM_ERR_TIMEOUT wont have an errno associated with it,
* the others will.. --fl
*/
if(status == COMM_ERR_TIMEOUT)
{
sendto_realops_snomask(SNO_GENERAL, is_remote_connect(client_p) ? L_NETWIDE : L_ALL,
"Error connecting to %s[%s]: %s",
client_p->name,
#ifdef HIDE_SERVERS_IPS
"255.255.255.255",
#else
client_p->host,
#endif
comm_errstr(status));
ilog(L_SERVER, "Error connecting to %s[%s]: %s",
client_p->name, client_p->sockhost,
comm_errstr(status));
}
else
{
errstr = strerror(comm_get_sockerr(fd));
sendto_realops_snomask(SNO_GENERAL, is_remote_connect(client_p) ? L_NETWIDE : L_ALL,
"Error connecting to %s[%s]: %s (%s)",
client_p->name,
#ifdef HIDE_SERVERS_IPS
"255.255.255.255",
#else
client_p->host,
#endif
comm_errstr(status), errstr);
ilog(L_SERVER, "Error connecting to %s[%s]: %s (%s)",
client_p->name, client_p->sockhost,
comm_errstr(status), errstr);
}
exit_client(client_p, client_p, &me, comm_errstr(status));
return;
}
/* COMM_OK, so continue the connection procedure */
/* Get the C/N lines */
if((server_p = client_p->localClient->att_sconf) == NULL)
{
sendto_realops_snomask(SNO_GENERAL, is_remote_connect(client_p) ? L_NETWIDE : L_ALL, "Lost connect{} block for %s",
get_server_name(client_p, HIDE_IP));
exit_client(client_p, client_p, &me, "Lost connect{} block");
return;
}
/* Next, send the initial handshake */
SetHandshake(client_p);
/* kludge, if we're not using TS6, dont ever send
* ourselves as being TS6 capable.
*/
if(!EmptyString(server_p->spasswd))
{
if(ServerInfo.use_ts6)
sendto_one(client_p, "PASS %s TS %d :%s",
server_p->spasswd, TS_CURRENT, me.id);
else
sendto_one(client_p, "PASS %s :TS",
server_p->spasswd);
}
/* pass my info to the new server */
send_capabilities(client_p, default_server_capabs
| (ServerConfCompressed(server_p) ? CAP_ZIP_SUPPORTED : 0)
| (ServerConfTb(server_p) ? CAP_TB : 0));
sendto_one(client_p, "SERVER %s 1 :%s%s",
me.name,
ConfigServerHide.hidden ? "(H) " : "", me.info);
/*
* If we've been marked dead because a send failed, just exit
* here now and save everyone the trouble of us ever existing.
*/
if(IsAnyDead(client_p))
{
sendto_realops_snomask(SNO_GENERAL, is_remote_connect(client_p) ? L_NETWIDE : L_ALL,
"%s went dead during handshake", client_p->name);
exit_client(client_p, client_p, &me, "Went dead during handshake");
return;
}
/* don't move to serv_list yet -- we haven't sent a burst! */
/* If we get here, we're ok, so lets start reading some data */
read_packet(fd, client_p);
}
#ifndef HAVE_SOCKETPAIR
static int
inet_socketpair(int d, int type, int protocol, int sv[2])
{
struct sockaddr_in addr1, addr2, addr3;
int addr3_len = sizeof(addr3);
int fd, rc;
int port_no = 20000;
if(d != AF_INET || type != SOCK_STREAM || protocol)
{
errno = EAFNOSUPPORT;
return -1;
}
if(((sv[0] = socket(AF_INET, SOCK_STREAM, 0)) < 0) || ((sv[1] = socket(AF_INET, SOCK_STREAM, 0)) < 0))
return -1;
addr1.sin_port = htons(port_no);
addr1.sin_family = AF_INET;
addr1.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
while ((rc = bind (sv[0], (struct sockaddr *) &addr1, sizeof (addr1))) < 0 && errno == EADDRINUSE)
addr1.sin_port = htons(++port_no);
if(rc < 0)
return -1;
if(listen(sv[0], 1) < 0)
{
close(sv[0]);
close(sv[1]);
return -1;
}
addr2.sin_port = htons(port_no);
addr2.sin_family = AF_INET;
addr2.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
if(connect (sv[1], (struct sockaddr *) &addr2, sizeof (addr2)) < 0)
{
close(sv[0]);
close(sv[1]);
return -1;
}
if((fd = accept(sv[1], (struct sockaddr *) &addr3, &addr3_len)) < 0)
{
close(sv[0]);
close(sv[1]);
return -1;
}
close(sv[0]);
sv[0] = fd;
return(0);
}
#endif