yate/modules/server/lksctp.cpp

286 lines
7.1 KiB
C++

/**
* lksctp.cpp
* This file is part of the YATE Project http://YATE.null.ro
*
* SCTP sockets provider based on Linux Kernel SCTP
*
* Yet Another Telephony Engine - a fully featured software PBX and IVR
* Copyright (C) 2009-2010 Null 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
*/
#include <yatephone.h>
#include <string.h>
#include <netinet/sctp.h>
using namespace TelEngine;
namespace { // anonymous
class LKSocket;
class LKModule;
class LKHandler;
class LKSocket : public SctpSocket
{
public:
LKSocket();
LKSocket(SOCKET fd);
virtual ~LKSocket();
virtual bool bindx(ObjList& addrs);
virtual bool connectx(ObjList& addrs);
virtual int sendMsg(const void* buf, int length, int stream, int& flags);
virtual int recvMsg(void* buf, int length, SocketAddr& addr, int& stream, int& flags);
virtual Socket* accept(SocketAddr& addr);
virtual bool setStreams(int inbound, int outbound);
virtual bool getStreams(int& in, int& out);
virtual bool subscribeEvents();
virtual bool setPayload(u_int32_t payload)
{ m_payload = payload; return true; }
virtual int sendTo(void* buf, int buflen, int stream, SocketAddr& addr, int flags);
bool sctpDown(void* buf);
bool sctpUp(void* buf);
private:
int m_inbound;
int m_outbound;
u_int32_t m_payload;
};
class LKHandler : public MessageHandler
{
public:
LKHandler() : MessageHandler("socket.sctp") { }
virtual bool received(Message &msg);
};
class LKModule : public Module
{
public:
LKModule();
~LKModule();
virtual void initialize();
private:
bool m_init;
};
static LKModule plugin;
/**
* class LKSocket
*/
LKSocket::LKSocket()
: m_payload(0)
{
XDebug(&plugin,DebugAll,"Creating LKSocket [%p]",this);
}
LKSocket::LKSocket(SOCKET fd)
: SctpSocket(fd),
m_payload(0)
{
XDebug(&plugin,DebugAll,"Creating LKSocket [%p]",this);
}
LKSocket::~LKSocket()
{
XDebug(&plugin,DebugAll,"Destroying LKSocket [%p]",this);
}
bool LKSocket::bindx(ObjList& addresses)
{
struct sockaddr addr[addresses.count()];
int i = 0;
for (ObjList* o = addresses.skipNull();o;o = o->skipNext()) {
SocketAddr* a = static_cast<SocketAddr*>(o->get());
addr[i++] = *(a->address());
}
int error = sctp_bindx(handle(),addr,addresses.count(),SCTP_BINDX_ADD_ADDR);
return (error >= 0);
}
bool LKSocket::connectx(ObjList& addresses)
{
struct sockaddr addr[addresses.count()];
int i = 0;
for (ObjList* o = addresses.skipNull();o;o = o->skipNext()) {
SocketAddr* a = static_cast<SocketAddr*>(o->get());
addr[i++] = *(a->address());
}
#ifdef HAVE_SCTP_CONNECTX_4
int error = sctp_connectx(handle(),addr,addresses.count(),NULL);
#else
int error = sctp_connectx(handle(),addr,addresses.count());
#endif
return (error >= 0);
}
Socket* LKSocket::accept(SocketAddr& addr)
{
struct sockaddr address;
socklen_t len = 0;
SOCKET sock = acceptHandle(&address,&len);
LKSocket* ret = (sock == invalidHandle()) ? 0 : new LKSocket(sock);
if (ret)
addr.assign(&address,len);
return ret;
}
int LKSocket::recvMsg(void* buf, int length, SocketAddr& addr, int& stream, int& flags)
{
sctp_sndrcvinfo sri;
memset(&sri,0,sizeof(sri));
struct sockaddr address;
socklen_t len = 0;
int flag = 0;
int r = sctp_recvmsg(handle(),buf,length,&address,&len,&sri,&flag);
addr.assign(&address,len);
if (flag & MSG_NOTIFICATION) {
if (sctpDown(buf)) {
flags = 1;
}
else if (sctpUp(buf))
flags = 2;
else
flags = 0;
r = 0;
}
stream = sri.sinfo_stream;
return r;
}
int LKSocket::sendMsg(const void* buf, int length, int stream, int& flags)
{
sctp_sndrcvinfo sri;
memset(&sri,0,sizeof(sri));
sri.sinfo_stream = stream;
sri.sinfo_ppid = htonl(m_payload);
int r = sctp_send(handle(),buf,length,&sri,flags);
return r;
}
int LKSocket::sendTo(void* buf, int buflen, int stream, SocketAddr& addr, int flags)
{
return sctp_sendmsg(handle(),buf,buflen,addr.address(),addr.length(),
htonl(m_payload),flags,stream,0,0);
}
bool LKSocket::setStreams(int inbound, int outbound)
{
sctp_initmsg initMsg;
memset(&initMsg,0,sizeof(initMsg));
initMsg.sinit_max_instreams = inbound;
initMsg.sinit_num_ostreams = outbound;
if (setsockopt(handle(),IPPROTO_SCTP,SCTP_INITMSG,&initMsg,sizeof(initMsg)) < 0) {
DDebug(&plugin,DebugNote,"Unable to set streams number. Error: %s",strerror(errno));
return false;
}
return true;
}
bool LKSocket::subscribeEvents()
{
struct sctp_event_subscribe events;
bzero(&events, sizeof(events));
events.sctp_data_io_event = 1;
events.sctp_send_failure_event = 1;
events.sctp_peer_error_event = 1;
events.sctp_shutdown_event = 1;
events.sctp_association_event = 1;
int ret = setsockopt(handle(),IPPROTO_SCTP,SCTP_EVENTS, &events, sizeof(events));
return (ret != -1);
}
bool LKSocket::getStreams(int& in, int& out)
{
sctp_status status;
memset(&status,0,sizeof(status));
socklen_t len;
if (getsockopt(handle(),IPPROTO_SCTP,SCTP_STATUS, &status,&len) < 0) {
DDebug(&plugin,DebugNote,"Unable to find the number of negotiated streams: %s",
strerror(errno));
return false;
}
XDebug(&plugin,DebugAll,"Sctp streams inbound = %u , outbound = %u",
status.sstat_instrms,status.sstat_outstrms);
m_inbound = status.sstat_instrms;
m_outbound = status.sstat_outstrms;
return true;
}
bool LKSocket::sctpDown(void* buf)
{
union sctp_notification *sn = (union sctp_notification *)buf;
switch (sn->sn_assoc_change.sac_state) {
case SCTP_COMM_LOST:
case SCTP_SHUTDOWN_COMP:
case SCTP_CANT_STR_ASSOC:
case SCTP_RESTART:
return true;
}
return false;
}
bool LKSocket::sctpUp(void* buf)
{
union sctp_notification *sn = (union sctp_notification *)buf;
switch (sn->sn_assoc_change.sac_state) {
case SCTP_COMM_UP:
return true;
}
return false;
}
/**
* class LKHandler
*/
bool LKHandler::received(Message &msg)
{
Socket** ppSock = static_cast<Socket**>(msg.userObject("Socket*"));
int fd = msg.getIntValue("handle",-1);
*ppSock = new LKSocket(fd);
return true;
}
/**
* class LKModule
*/
LKModule::LKModule()
: Module("lksctp","misc",true),
m_init(false)
{
Output("Loading module LKSCTP");
}
LKModule::~LKModule()
{
Output("Unloading module LKSCTP");
}
void LKModule::initialize()
{
if (!m_init) {
Output("Initialize module LKSCTP");
m_init = true;
Engine::install(new LKHandler());
}
}
}; // anonymous namespace
/* vi: set ts=8 sw=4 sts=4 noet: */