/*
* peer_config - configure a new association
*/
struct peer *
peer_config(
sockaddr_u * srcadr,
const char * hostname,
endpt * dstadr,
u_char hmode,
u_char version,
u_char minpoll,
u_char maxpoll,
u_int flags,
u_int32 ttl,
keyid_t key,
const char * ident /* autokey group */
)
{
u_char cast_flags;
/*
* We do a dirty little jig to figure the cast flags. This is
* probably not the best place to do this, at least until the
* configure code is rebuilt. Note only one flag can be set.
*/
switch (hmode) {
case MODE_BROADCAST:
if (IS_MCAST(srcadr))
cast_flags = MDF_MCAST;
else
cast_flags = MDF_BCAST;
break;
case MODE_CLIENT:
if (hostname != NULL && SOCK_UNSPEC(srcadr))
cast_flags = MDF_POOL;
else if (IS_MCAST(srcadr))
cast_flags = MDF_ACAST;
else
cast_flags = MDF_UCAST;
break;
default:
cast_flags = MDF_UCAST;
}
/*
* Mobilize the association and initialize its variables. If
* emulating ntpdate, force iburst. For pool and manycastclient
* strip FLAG_PREEMPT as the prototype associations are not
* themselves preemptible, though the resulting associations
* are.
*/
flags |= FLAG_CONFIG;
if (mode_ntpdate)
flags |= FLAG_IBURST;
if ((MDF_ACAST | MDF_POOL) & cast_flags)
flags &= ~FLAG_PREEMPT;
return newpeer(srcadr, hostname, dstadr, hmode, version,
minpoll, maxpoll, flags, cast_flags, ttl, key, ident);
}
int getlink(int peern)
{
int i=1;
char *ho;
pcontext;
while (i<=MAXCONN)
{
ho=datalink(i)->host;
if(strstr(datalink(i)->host,"S=")==datalink(i)->host)
ho+=2;
if (strmcmp(ho,newpeer(peern)->host))
{
if (datalink(i)->port==newpeer(peern)->lnkport)
return i;
}
i++;
}
return 0x0;
}
int clearpeer(int peern)
{
memset(newpeer(peern),0x0,sizeof(struct newpeert));
_lastpeer=-1;
if (thispeer!=NULL)
{
if (thispeer->peer != NULL)
{
free(thispeer->peer);
thispeer->peer=NULL;
}
}
return 0x0;
}
int linkrelay(int npeer, int rootlink)
{
int tmpsock;
struct socketnodes *lkm;
char *ho;
char vsl[10];
int issl=SSL_OFF;
int nlink;
int proto=AF_INET;
pcontext;
vsl[0]=0;
#ifdef HAVE_SSL
if(strstr(newpeer(npeer)->server,"S=")==newpeer(npeer)->server)
{
issl=SSL_ON;
ho=newpeer(npeer)->server+2;
strcpy(vsl,"SSL-");
} else
#endif
ho=newpeer(npeer)->server;
p_log(LOG_INFO,-1,lngtxt(558),
vsl,
newpeer(npeer)->login,
datalink(rootlink)->name,
newpeer(npeer)->host,
newpeer(npeer)->lnkport,
ho,
newpeer(npeer)->port,
newpeer(npeer)->vhost);
lkm=getpsocketbysock(newpeer(npeer)->insock);
if(lkm!=NULL)
{
lkm->sock->flag=SOC_CONN;
lkm->sock->param=npeer;
lkm->sock->constructor=NULL;
lkm->sock->constructed=NULL;
lkm->sock->handler=checklinkdata;
lkm->sock->errorhandler=errorrelaylink;
lkm->sock->destructor=killrelaylink;
}
tmpsock=createsocket(0,ST_CONNECT,0,SGR_NONE,NULL,linkrelayconnected,errorrelaylink,checklinkdata,killrelaylink,linkrelayremap,proto,issl);
tmpsock=connectto(tmpsock,ho,newpeer(npeer)->port,newpeer(npeer)->vhost);
if (tmpsock!=0)
{
nlink=getnewlink();
if (nlink==0) {
killsocket(tmpsock);
p_log(LOG_ERROR,-1,lngtxt(559));
return -1;
}
datalink(nlink)->type=LI_RELAY;
datalink(nlink)->instate=STD_CONN;
datalink(nlink)->insock=newpeer(npeer)->insock;
strmncpy(datalink(nlink)->iam,newpeer(npeer)->nick,sizeof(datalink(nlink)->iam));
strmncpy(datalink(nlink)->host,newpeer(npeer)->host,sizeof(datalink(nlink)->host));
strmncpy(datalink(nlink)->pass,newpeer(npeer)->pass,sizeof(datalink(nlink)->pass));
strmncpy(datalink(nlink)->name,newpeer(npeer)->name,sizeof(datalink(nlink)->name));
datalink(nlink)->port=datalink(nlink)->port;
datalink(nlink)->outstate=STD_CONN;
datalink(nlink)->outsock=tmpsock;
if(lkm) lkm->sock->param=nlink;
lkm=getpsocketbysock(tmpsock);
if(lkm!=NULL)
{
lkm->sock->flag=SOC_SYN;
lkm->sock->param=nlink;
}
clearpeer(npeer);
return 0x0;
}
p_log(LOG_ERROR,-1,lngtxt(560),newpeer(npeer)->server,newpeer(npeer)->port);
killsocket(newpeer(npeer)->insock);
return -1;
}
/*
* peer_config - configure a new association
*/
struct peer *
peer_config(
struct sockaddr_storage *srcadr,
struct interface *dstadr,
int hmode,
int version,
int minpoll,
int maxpoll,
u_int flags,
int ttl,
keyid_t key,
u_char *keystr
)
{
register struct peer *peer;
u_char cast_flags;
/*
* First search from the beginning for an association with given
* remote address and mode. If an interface is given, search
* from there to find the association which matches that
* destination. If the given interface is "any", track down
* the actual interface, because that's what gets put into the
* peer structure.
*/
peer = findexistingpeer(srcadr, (struct peer *)0, hmode);
if (dstadr != 0) {
while (peer != 0) {
if (peer->dstadr == dstadr)
break;
if (dstadr == ANY_INTERFACE_CHOOSE(srcadr) &&
peer->dstadr == findinterface(srcadr))
break;
peer = findexistingpeer(srcadr, peer, hmode);
}
}
/*
* We do a dirty little jig to figure the cast flags. This is
* probably not the best place to do this, at least until the
* configure code is rebuilt. Note only one flag can be set.
*/
switch (hmode) {
case MODE_BROADCAST:
if(srcadr->ss_family == AF_INET) {
if (IN_CLASSD(ntohl(((struct sockaddr_in*)srcadr)->sin_addr.s_addr)))
cast_flags = MDF_MCAST;
else
cast_flags = MDF_BCAST;
break;
}
else {
if (IN6_IS_ADDR_MULTICAST(&((struct sockaddr_in6*)srcadr)->sin6_addr))
cast_flags = MDF_MCAST;
else
cast_flags = MDF_BCAST;
break;
}
case MODE_CLIENT:
if(srcadr->ss_family == AF_INET) {
if (IN_CLASSD(ntohl(((struct sockaddr_in*)srcadr)->sin_addr.s_addr)))
cast_flags = MDF_ACAST;
else
cast_flags = MDF_UCAST;
break;
}
else {
if (IN6_IS_ADDR_MULTICAST(&((struct sockaddr_in6*)srcadr)->sin6_addr))
cast_flags = MDF_ACAST;
else
cast_flags = MDF_UCAST;
break;
}
default:
cast_flags = MDF_UCAST;
}
/*
* If the peer is already configured, some dope has a duplicate
* configureation entry or another dope is wiggling from afar.
*/
if (peer != 0) {
peer->hmode = (u_char)hmode;
peer->version = (u_char) version;
peer->minpoll = (u_char) minpoll;
peer->maxpoll = (u_char) maxpoll;
peer->flags = flags | FLAG_CONFIG |
(peer->flags & FLAG_REFCLOCK);
peer->cast_flags = cast_flags;
peer->ttl = (u_char) ttl;
peer->keyid = key;
peer->precision = sys_precision;
peer_clear(peer, "RMOT");
return (peer);
}
/*
* Here no match has been found, so presumably this is a new
* persistent association. Mobilize the thing and initialize its
* variables. If emulating ntpdate, force iburst.
*/
if (mode_ntpdate)
flags |= FLAG_IBURST;
peer = newpeer(srcadr, dstadr, hmode, version, minpoll, maxpoll,
flags | FLAG_CONFIG, cast_flags, ttl, key);
return (peer);
}
