yate/engine/Socket.cpp

1077 lines
21 KiB
C++

/**
* Socket.cpp
* This file is part of the YATE Project http://YATE.null.ro
*
* Yet Another Telephony Engine - a fully featured software PBX and IVR
* Copyright (C) 2004-2006 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.
*/
#ifdef FDSIZE_HACK
#include <features.h>
#if (__GLIBC__ > 2) || (__GLIBC__ == 2 && __GLIBC_MINOR__ >= 2)
#include <bits/types.h>
#undef __FD_SETSIZE
#define __FD_SETSIZE FDSIZE_HACK
#else
#error Cannot set FD_SETSIZE on this platform - please ./configure --without-fdsize and hope it works
#endif
#endif
#include "yateclass.h"
#ifdef HAVE_SCTP_NETINET
#include <netinet/sctp.h>
#endif
#include <string.h>
#undef HAS_AF_UNIX
#ifndef _WINDOWS
#include <sys/stat.h>
#include <sys/un.h>
#define HAS_AF_UNIX
#ifndef UNIX_PATH_MAX
#define UNIX_PATH_MAX (sizeof(((struct sockaddr_un *)0)->sun_path))
#endif
#include <fcntl.h>
#include <stdlib.h>
#endif
#ifndef SHUT_RD
#define SHUT_RD 0
#endif
#ifndef SHUT_WR
#define SHUT_WR 1
#endif
#ifndef SHUT_RDWR
#define SHUT_RDWR 2
#endif
#define MAX_SOCKLEN 1024
using namespace TelEngine;
static Mutex s_mutex;
SocketAddr::SocketAddr(const struct sockaddr* addr, socklen_t len)
: m_address(0), m_length(0)
{
assign(addr,len);
}
SocketAddr::SocketAddr(int family)
: m_address(0), m_length(0)
{
assign(family);
}
SocketAddr::~SocketAddr()
{
clear();
}
void SocketAddr::clear()
{
m_host.clear();
m_length = 0;
if (m_address) {
void* tmp = m_address;
m_address = 0;
::free(tmp);
}
}
bool SocketAddr::assign(int family)
{
clear();
switch (family) {
case AF_INET:
m_length = sizeof(struct sockaddr_in);
break;
#ifdef AF_INET6
case AF_INET6:
m_length = sizeof(struct sockaddr_in6);
break;
#endif
#ifdef HAS_AF_UNIX
case AF_UNIX:
m_length = sizeof(struct sockaddr_un);
break;
#endif
}
if (m_length)
m_address = (struct sockaddr*) ::calloc(m_length,1);
if (m_address) {
m_address->sa_family = family;
return true;
}
return false;
}
void SocketAddr::assign(const struct sockaddr* addr, socklen_t len)
{
if (addr == m_address)
return;
clear();
if (addr && !len) {
switch (addr->sa_family) {
case AF_INET:
len = sizeof(struct sockaddr_in);
break;
#ifdef AF_INET6
case AF_INET6:
len = sizeof(struct sockaddr_in6);
break;
#endif
#ifdef HAS_AF_UNIX
case AF_UNIX:
len = sizeof(struct sockaddr_un);
break;
#endif
}
}
if (addr && (len >= sizeof(struct sockaddr))) {
void* tmp = ::malloc(len);
::memcpy(tmp,addr,len);
m_address = (struct sockaddr*)tmp;
m_length = len;
stringify();
}
}
bool SocketAddr::local(const SocketAddr& remote)
{
if (!remote.valid())
return false;
SocketAddr tmp(remote);
if (!tmp.port())
tmp.port(16384);
Socket sock(tmp.family(),SOCK_DGRAM);
if (sock.valid() && sock.connect(tmp) && sock.getSockName(*this)) {
port(0);
return true;
}
return false;
}
bool SocketAddr::host(const String& name)
{
if (name.null())
return false;
if (name == m_host)
return true;
switch (family()) {
case AF_INET:
{
in_addr_t a = inet_addr(name);
if (a == INADDR_NONE) {
s_mutex.lock();
struct hostent* he = gethostbyname(name);
if (he && (he->h_addrtype == AF_INET))
a = *((in_addr_t*)(he->h_addr_list[0]));
s_mutex.unlock();
}
if (a != INADDR_NONE) {
((struct sockaddr_in*)m_address)->sin_addr.s_addr = a;
stringify();
return true;
}
}
break;
#ifdef AF_INET6
// TODO: implement AF_INET6
#endif
#ifdef HAS_AF_UNIX
case AF_UNIX:
if (name.length() >= (UNIX_PATH_MAX-1))
return false;
::strcpy(((struct sockaddr_un*)m_address)->sun_path,name.c_str());
stringify();
return true;
#endif
}
return false;
}
void SocketAddr::stringify()
{
switch (family()) {
case AF_INET:
s_mutex.lock();
m_host = inet_ntoa(((struct sockaddr_in*)m_address)->sin_addr);
s_mutex.unlock();
break;
#ifdef AF_INET6
// TODO: implement AF_INET6
#endif
#ifdef HAS_AF_UNIX
case AF_UNIX:
m_host = ((struct sockaddr_un*)m_address)->sun_path;
break;
#endif
}
}
int SocketAddr::port() const
{
switch (family()) {
case AF_INET:
return ntohs(((struct sockaddr_in*)m_address)->sin_port);
#ifdef AF_INET6
case AF_INET6:
return ntohs(((struct sockaddr_in6*)m_address)->sin6_port);
#endif
}
return 0;
}
bool SocketAddr::port(int newport)
{
switch (family()) {
case AF_INET:
((struct sockaddr_in*)m_address)->sin_port = ntohs(newport);
break;
#ifdef AF_INET6
case AF_INET6:
((struct sockaddr_in6*)m_address)->sin6_port = ntohs(newport);
break;
#endif
#ifdef HAS_AF_UNIX
case AF_UNIX:
break;
#endif
default:
return false;
}
return true;
}
bool SocketAddr::operator==(const SocketAddr& other) const
{
if (m_length != other.length())
return false;
if (m_address == other.address())
return true;
if (m_address && other.address())
return !::memcmp(m_address,other.address(),m_length);
return false;
}
bool SocketAddr::supports(int family)
{
switch (family) {
case AF_INET:
return true;
#ifdef AF_INET6
case AF_INET6:
return true;
#endif
#ifdef HAS_AF_UNIX
case AF_UNIX:
return true;
#endif
default:
return false;
}
}
Stream::~Stream()
{
}
bool Stream::canRetry() const
{
return false;
}
bool Stream::setBlocking(bool block)
{
return false;
}
int Stream::writeData(const char* str)
{
if (null(str))
return 0;
int len = ::strlen(str);
return writeData(str,len);
}
bool Stream::allocPipe(Stream*& reader, Stream*& writer)
{
if (supportsPipes()) {
File* r = new File;
File* w = new File;
if (File::createPipe(*r,*w)) {
reader = r;
writer = w;
return true;
}
delete r;
delete w;
}
reader = writer = 0;
return false;
}
bool Stream::allocPair(Stream*& str1, Stream*& str2)
{
if (supportsPairs()) {
Socket* s1 = new Socket;
Socket* s2 = new Socket;
if (Socket::createPair(*s1,*s2)) {
str1 = s1;
str2 = s2;
return true;
}
delete s1;
delete s2;
}
str1 = str2 = 0;
return false;
}
bool Stream::supportsPipes()
{
return true;
}
bool Stream::supportsPairs()
{
#ifdef _WINDOWS
return false;
#else
return true;
#endif
}
File::File()
: m_handle(invalidHandle())
{
DDebug(DebugAll,"File::File() [%p]",this);
}
File::File(HANDLE handle)
: m_handle(handle)
{
DDebug(DebugAll,"File::File(%d) [%p]",(int)handle,this);
}
File::~File()
{
DDebug(DebugAll,"File::~File() handle=%d [%p]",(int)m_handle,this);
terminate();
}
bool File::valid() const
{
return (m_handle != invalidHandle());
}
bool File::terminate()
{
bool ret = true;
HANDLE tmp = m_handle;
if (tmp != invalidHandle()) {
DDebug(DebugAll,"File::terminate() handle=%d [%p]",(int)m_handle,this);
m_handle = invalidHandle();
#ifdef _WINDOWS
ret = CloseHandle(tmp) != 0;
#else
ret = !::close(tmp);
#endif
}
if (ret)
clearError();
else {
copyError();
// put back the handle, we may have another chance later
m_handle = tmp;
}
return ret;
}
void File::attach(HANDLE handle)
{
DDebug(DebugAll,"File::attach(%d) [%p]",(int)handle,this);
if (handle == m_handle)
return;
terminate();
m_handle = handle;
clearError();
}
HANDLE File::detach()
{
DDebug(DebugAll,"File::detach() handle=%d [%p]",(int)m_handle,this);
HANDLE tmp = m_handle;
m_handle = invalidHandle();
clearError();
return tmp;
}
HANDLE File::invalidHandle()
{
#ifdef _WINDOWS
return INVALID_HANDLE_VALUE;
#else
return -1;
#endif
}
void File::copyError()
{
#ifdef _WINDOWS
m_error = (int)GetLastError();
#else
m_error = errno;
#endif
}
bool File::canRetry() const
{
if (!m_error)
return true;
return (m_error == EAGAIN) || (m_error == EINTR)
#ifndef _WINDOWS
|| (m_error == EWOULDBLOCK)
#endif
;
}
bool File::setBlocking(bool block)
{
#ifdef _WINDOWS
return false;
#else
unsigned long flags = 1;
flags = ::fcntl(m_handle,F_GETFL);
if (flags < 0) {
copyError();
return false;
}
if (block)
flags &= !O_NONBLOCK;
else
flags |= O_NONBLOCK;
if (::fcntl(m_handle,F_SETFL,flags) < 0) {
copyError();
return false;
}
clearError();
return true;
#endif
}
bool File::openPath(const char* name, bool canWrite, bool canRead, bool create, bool append)
{
if (!terminate())
return false;
if (null(name) || !(canWrite || canRead))
return false;
#ifdef _WINDOWS
DWORD access = 0;
if (canWrite)
access |= GENERIC_WRITE;
if (canRead)
access |= GENERIC_READ;
HANDLE h = CreateFile(name,access,0,NULL,create ? OPEN_ALWAYS : OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
if (h == invalidHandle()) {
copyError();
return false;
}
if (append)
SetFilePointer(h,0,NULL,FILE_END);
#else
int flags = 0;
if (canWrite)
flags = canRead ? O_RDWR : O_WRONLY;
else if (canRead)
flags = O_RDONLY;
if (create)
flags |= O_CREAT;
if (append)
flags |= O_APPEND;
HANDLE h = ::open(name,flags,S_IRWXU);
if (h == invalidHandle()) {
copyError();
return false;
}
#endif
attach(h);
clearError();
return true;
}
unsigned int File::length()
{
if (!valid())
return 0;
#ifdef _WINDOWS
DWORD sz = GetFileSize(m_handle,NULL);
if (sz == (DWORD)-1) {
copyError();
return 0;
}
return sz;
#else
off_t pos = ::lseek(m_handle,0,SEEK_CUR);
if (pos == (off_t)-1) {
copyError();
return 0;
}
off_t len = ::lseek(m_handle,0,SEEK_END);
::lseek(m_handle,pos,SEEK_SET);
return (len == (off_t)-1) ? 0 : len;
#endif
}
int File::writeData(const void* buffer, int length)
{
if (!buffer)
length = 0;
#ifdef _WINDOWS
DWORD nbytes = 0;
if (WriteFile(m_handle,buffer,length,&nbytes,0)) {
clearError();
return nbytes;
}
copyError();
return -1;
#else
int res = ::write(m_handle,buffer,length);
if (res >= 0)
clearError();
else
copyError();
return res;
#endif
}
int File::readData(void* buffer, int length)
{
if (!buffer)
length = 0;
#ifdef _WINDOWS
DWORD nbytes = 0;
if (ReadFile(m_handle,buffer,length,&nbytes,0)) {
clearError();
return nbytes;
}
copyError();
return -1;
#else
int res = ::read(m_handle,buffer,length);
if (res >= 0)
clearError();
else
copyError();
return res;
#endif
}
bool File::createPipe(File& reader, File& writer)
{
#ifdef _WINDOWS
HANDLE rd, wr;
SECURITY_ATTRIBUTES sa;
sa.nLength = sizeof(sa);
sa.lpSecurityDescriptor = NULL;
sa.bInheritHandle = TRUE;
if (::CreatePipe(&rd,&wr,&sa,0)) {
reader.attach(rd);
writer.attach(wr);
return true;
}
#else
HANDLE fifo[2];
if (!::pipe(fifo)) {
reader.attach(fifo[0]);
writer.attach(fifo[1]);
return true;
}
#endif
return false;
}
bool File::remove(const char* name)
{
if (null(name))
return false;
return !::unlink(name);
}
Socket::Socket()
: m_handle(invalidHandle())
{
DDebug(DebugAll,"Socket::Socket() [%p]",this);
}
Socket::Socket(SOCKET handle)
: m_handle(handle)
{
DDebug(DebugAll,"Socket::Socket(%d) [%p]",handle,this);
}
Socket::Socket(int domain, int type, int protocol)
: m_handle(invalidHandle())
{
DDebug(DebugAll,"Socket::Socket(%d,%d,%d) [%p]",domain,type,protocol,this);
m_handle = ::socket(domain,type,protocol);
if (!valid())
copyError();
}
Socket::~Socket()
{
DDebug(DebugAll,"Socket::~Socket() handle=%d [%p]",m_handle,this);
terminate();
}
bool Socket::valid() const
{
return (m_handle != invalidHandle());
}
bool Socket::create(int domain, int type, int protocol)
{
DDebug(DebugAll,"Socket::create(%d,%d,%d) [%p]",domain,type,protocol,this);
terminate();
m_handle = ::socket(domain,type,protocol);
if (valid()) {
clearError();
return true;
}
else {
copyError();
return false;
}
}
bool Socket::terminate()
{
bool ret = true;
SOCKET tmp = m_handle;
if (tmp != invalidHandle()) {
DDebug(DebugAll,"Socket::terminate() handle=%d [%p]",m_handle,this);
m_handle = invalidHandle();
#ifdef _WINDOWS
ret = !::closesocket(tmp);
#else
ret = !::close(tmp);
#endif
}
if (ret)
clearError();
else {
copyError();
// put back the handle, we may have another chance later
m_handle = tmp;
}
return ret;
}
void Socket::attach(SOCKET handle)
{
DDebug(DebugAll,"Socket::attach(%d) [%p]",handle,this);
if (handle == m_handle)
return;
terminate();
m_handle = handle;
clearError();
}
SOCKET Socket::detach()
{
DDebug(DebugAll,"Socket::detach() handle=%d [%p]",m_handle,this);
SOCKET tmp = m_handle;
m_handle = invalidHandle();
clearError();
return tmp;
}
SOCKET Socket::invalidHandle()
{
#ifdef _WINDOWS
return INVALID_SOCKET;
#else
return -1;
#endif
}
int Socket::socketError()
{
#ifdef _WINDOWS
return SOCKET_ERROR;
#else
return -1;
#endif
}
void Socket::copyError()
{
#ifdef _WINDOWS
m_error = WSAGetLastError();
#else
m_error = errno;
#endif
}
bool Socket::checkError(int retcode, bool strict)
{
if (strict && (retcode != socketError()))
retcode = 0;
if (retcode) {
copyError();
return false;
}
else {
clearError();
return true;
}
}
bool Socket::canRetry() const
{
if (!m_error)
return true;
#ifdef _WINDOWS
return (m_error == WSAEWOULDBLOCK);
#else
return (m_error == EAGAIN) || (m_error == EINTR) || (m_error == EWOULDBLOCK);
#endif
}
bool Socket::bind(struct sockaddr* addr, socklen_t addrlen)
{
return checkError(::bind(m_handle,addr,addrlen));
}
bool Socket::listen(unsigned int backlog)
{
if ((backlog == 0) || (backlog > SOMAXCONN))
backlog = SOMAXCONN;
return checkError(::listen(m_handle,backlog));
}
Socket* Socket::accept(struct sockaddr* addr, socklen_t* addrlen)
{
SOCKET sock = acceptHandle(addr,addrlen);
return (sock == invalidHandle()) ? 0 : new Socket(sock);
}
Socket* Socket::accept(SocketAddr& addr)
{
char buf[MAX_SOCKLEN];
socklen_t len = sizeof(buf);
Socket* sock = accept((struct sockaddr*)buf,&len);
if (sock)
addr.assign((struct sockaddr*)buf,len);
return sock;
}
SOCKET Socket::acceptHandle(struct sockaddr* addr, socklen_t* addrlen)
{
if (addrlen && !addr)
*addrlen = 0;
SOCKET res = ::accept(m_handle,addr,addrlen);
if (res == invalidHandle())
copyError();
else
clearError();
return res;
}
Socket* Socket::peelOff(unsigned int assoc)
{
SOCKET sock = peelOffHandle(assoc);
return (sock == invalidHandle()) ? 0 : new Socket(sock);
}
SOCKET Socket::peelOffHandle(unsigned int assoc)
{
#ifdef SCTP_SOCKOPT_PEELOFF
sctp_peeloff_arg_t buffer;
buffer.associd = assoc;
buffer.sd = invalidHandle();
socklen_t length = sizeof(buffer);
if (!getOption(SOL_SCTP, SCTP_SOCKOPT_PEELOFF, &buffer, &length))
return invalidHandle();
return buffer.sd;
#else
Debug(DebugMild,"Socket::peelOffHandle() not supported on this platform");
return invalidHandle();
#endif
}
bool Socket::connect(struct sockaddr* addr, socklen_t addrlen)
{
if (addrlen && !addr)
addrlen = 0;
return checkError(::connect(m_handle,addr,addrlen));
}
bool Socket::shutdown(bool stopReads, bool stopWrites)
{
int how;
if (stopReads) {
if (stopWrites)
how = SHUT_RDWR;
else
how = SHUT_RD;
}
else {
if (stopWrites)
how = SHUT_WR;
else
// nothing to do - no error
return true;
}
return checkError(::shutdown(m_handle,how));
}
bool Socket::getSockName(struct sockaddr* addr, socklen_t* addrlen)
{
if (addrlen && !addr)
*addrlen = 0;
return checkError(::getsockname(m_handle,addr,addrlen));
}
bool Socket::getSockName(SocketAddr& addr)
{
char buf[MAX_SOCKLEN];
socklen_t len = sizeof(buf);
bool ok = getSockName((struct sockaddr*)buf,&len);
if (ok)
addr.assign((struct sockaddr*)buf,len);
return ok;
}
bool Socket::getPeerName(struct sockaddr* addr, socklen_t* addrlen)
{
if (addrlen && !addr)
*addrlen = 0;
return checkError(::getpeername(m_handle,addr,addrlen));
}
bool Socket::getPeerName(SocketAddr& addr)
{
char buf[MAX_SOCKLEN];
socklen_t len = sizeof(buf);
bool ok = getPeerName((struct sockaddr*)buf,&len);
if (ok)
addr.assign((struct sockaddr*)buf,len);
return ok;
}
int Socket::sendTo(const void* buffer, int length, const struct sockaddr* addr, socklen_t adrlen, int flags)
{
if (!buffer)
length = 0;
int res = ::sendto(m_handle,(const char*)buffer,length,flags,addr,adrlen);
checkError(res,true);
return res;
}
int Socket::send(const void* buffer, int length, int flags)
{
if (!buffer)
length = 0;
int res = ::send(m_handle,(const char*)buffer,length,flags);
checkError(res,true);
return res;
}
int Socket::writeData(const void* buffer, int length)
{
#ifdef _WINDOWS
return send(buffer,length);
#else
if (!buffer)
length = 0;
int res = ::write(m_handle,buffer,length);
checkError(res,true);
return res;
#endif
}
int Socket::recvFrom(void* buffer, int length, struct sockaddr* addr, socklen_t* adrlen, int flags)
{
if (!buffer)
length = 0;
if (adrlen && !addr)
*adrlen = 0;
int res = ::recvfrom(m_handle,(char*)buffer,length,flags,addr,adrlen);
checkError(res,true);
return res;
}
int Socket::recvFrom(void* buffer, int length, SocketAddr& addr, int flags)
{
char buf[MAX_SOCKLEN];
socklen_t len = sizeof(buf);
int res = recvFrom(buffer,length,(struct sockaddr*)buf,&len,flags);
if (res != socketError())
addr.assign((struct sockaddr*)buf,len);
return res;
}
int Socket::recv(void* buffer, int length, int flags)
{
if (!buffer)
length = 0;
int res = ::recv(m_handle,(char*)buffer,length,flags);
checkError(res,true);
return res;
}
int Socket::readData(void* buffer, int length)
{
#ifdef _WINDOWS
return recv(buffer,length);
#else
if (!buffer)
length = 0;
int res = ::read(m_handle,buffer,length);
checkError(res,true);
return res;
#endif
}
bool Socket::select(bool* readok, bool* writeok, bool* except, struct timeval* timeout)
{
#ifdef FD_SETSIZE
#ifndef _WINDOWS
static bool localFail = true;
if (m_handle >= FD_SETSIZE) {
if (localFail) {
localFail = false;
Debug(DebugFail,"Socket::select: handle %d larger than compiled in maximum %d",
m_handle,FD_SETSIZE);
}
return false;
}
#endif
#endif
fd_set readfd,writefd,exceptfd;
fd_set *rfds = 0;
fd_set *wfds = 0;
fd_set *efds = 0;
if (readok) {
rfds = &readfd;
FD_ZERO(rfds);
FD_SET(m_handle,rfds);
}
if (writeok) {
wfds = &writefd;
FD_ZERO(wfds);
FD_SET(m_handle,wfds);
}
if (except) {
efds = &exceptfd;
FD_ZERO(efds);
FD_SET(m_handle,efds);
}
if (checkError(::select(m_handle+1,rfds,wfds,efds,timeout),true)) {
if (readok)
*readok = (FD_ISSET(m_handle,rfds) != 0);
if (writeok)
*writeok = (FD_ISSET(m_handle,wfds) != 0);
if (except)
*except = (FD_ISSET(m_handle,efds) != 0);
return true;
}
return false;
}
bool Socket::select(bool* readok, bool* writeok, bool* except, int64_t timeout)
{
if (timeout < 0)
return select(readok,writeok,except);
struct timeval tm;
Time::toTimeval(&tm,timeout);
return select(readok,writeok,except,&tm);
}
bool Socket::setOption(int level, int name, const void* value, socklen_t length)
{
if (!value)
length = 0;
return checkError(::setsockopt(m_handle,level,name,(const char*)value,length));
}
bool Socket::getOption(int level, int name, void* buffer, socklen_t* length)
{
if (length && !buffer)
*length = 0;
return checkError(::getsockopt(m_handle,level,name,(char*)buffer,length));
}
bool Socket::setTOS(int tos)
{
#ifdef IP_TOS
return setOption(IPPROTO_IP,IP_TOS,&tos,sizeof(tos));
#else
m_error = ENOTIMPL;
return false;
#endif
}
bool Socket::setBlocking(bool block)
{
unsigned long flags = 1;
#ifdef _WINDOWS
if (block)
flags = 0;
return checkError(::ioctlsocket(m_handle,FIONBIO,(unsigned long *) &flags));
#else
flags = ::fcntl(m_handle,F_GETFL);
if (flags < 0) {
copyError();
return false;
}
if (block)
flags &= !O_NONBLOCK;
else
flags |= O_NONBLOCK;
return checkError(::fcntl(m_handle,F_SETFL,flags));
#endif
}
bool Socket::createPair(Socket& sock1, Socket& sock2, int domain)
{
#ifndef _WINDOWS
SOCKET pair[2];
if (!::socketpair(domain,SOCK_STREAM,0,pair)) {
sock1.attach(pair[0]);
sock2.attach(pair[1]);
return true;
}
#endif
return false;
}
/* vi: set ts=8 sw=4 sts=4 noet: */