yate/modules/h323chan.cpp

3507 lines
107 KiB
C++

/**
* h323chan.cpp
* This file is part of the YATE Project http://YATE.null.ro
*
* As a special exception to the GNU General Public License, permission is
* granted for additional uses of the text contained in this release of Yate
* as noted here.
* This exception is that permission is hereby granted to link Yate with the
* OpenH323 and PWLIB runtime libraries to produce an executable image.
*
* H.323 channel
*
* Yet Another Telephony Engine - a fully featured software PBX and IVR
* Copyright (C) 2004-2014 Null Team
*
* This software is distributed under multiple licenses;
* see the COPYING file in the main directory for licensing
* information for this specific distribution.
*
* This use of this software may be subject to additional restrictions.
* See the LEGAL file in the main directory for details.
*
* 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.
*/
#include <ptlib.h>
#include <h323.h>
#include <h323neg.h>
#include <h323pdu.h>
#include <h323caps.h>
#include <ptclib/delaychan.h>
#include <gkserver.h>
#include <q931.h>
/* For some reason the Windows version of OpenH323 #undefs the version.
* You need to put a openh323version.h file somewhere in your include path,
* preferably in the OpenH323 include directory.
* Make sure you keep that file in sync with your other OpenH323 components.
* You can find a template for that below:
--- cut here ---
#ifndef OPENH323_MAJOR
#define OPENH323_MAJOR 1
#define OPENH323_MINOR 0
#define OPENH323_BUILD 0
#endif
--- cut here ---
*/
#ifdef _WINDOWS
#include <openh323version.h>
#endif
#ifndef OPENH323_VERSION
#define OPENH323_VERSION "SomethingOld"
#endif
/* Define a easily comparable version, 2 digits for each component */
#define OPENH323_NUMVERSION ((OPENH323_MAJOR)*10000 + (OPENH323_MINOR)*100 + (OPENH323_BUILD))
#if (OPENH323_NUMVERSION < 11202)
#error Open H323 version too old
#endif
/* Guess if we have a QOS parameter to the RTP channel creation */
#if (OPENH323_NUMVERSION >= 11304)
#define NEED_RTP_QOS_PARAM 1
#endif
#if (OPENH323_NUMVERSION >= 11404)
#define USE_CAPABILITY_FACTORY
#endif
#if (OPENH323_NUMVERSION >= 12000)
typedef PBoolean BOOL;
#endif
// These defines collide with DSCP service classes
#undef CS4
#undef CS5
#undef CS6
#undef CS7
#include <yatephone.h>
#include <yateversn.h>
#include <string.h>
using namespace TelEngine;
namespace { // anonymous
static bool s_externalRtp;
static bool s_fallbackRtp;
static bool s_needMedia = true;
static bool s_passtrough;
static bool s_pwlibThread;
static int s_maxCleaning = 0;
static Mutex s_cfgMutex(false,"H323:cfg");
static Configuration s_cfg;
static Mutex s_mutex(false,"H323Chan");
static int s_connCount = 0;
static int s_chanCount = 0;
static unsigned int s_engineStop = 0;
// Time to wait for an endpoint's client thread to terminate
static u_int64_t s_waitGkClient = 200000;
// Time to wait for the gatekeeper usage flag to be released when creating a connection
static u_int64_t s_waitGkUsageCall = 200000;
// Time to wait for the gatekeeper usage flag to be released when setting/removing
// an endpoint's gatekeeper
static u_int64_t s_waitGkUsageChanging = 300000;
static const TokenDict dict_str2code[] = {
{ "alpha" , PProcess::AlphaCode },
{ "beta" , PProcess::BetaCode },
{ "release" , PProcess::ReleaseCode },
{ 0 , 0 },
};
static const char* h323_formats[] = {
"G.711-ALaw-64k", "alaw",
"G.711-uLaw-64k", "mulaw",
"GSM-06.10", "gsm",
"MS-GSM", "msgsm",
"SpeexNarrow", "speex",
"LPC-10", "lpc10",
"iLBC-15k2", "ilbc20",
"iLBC-13k3", "ilbc30",
"G.723", "g723",
"G.726", "g726",
"G.728", "g728",
"G.729B", "g729b",
"G.729", "g729",
"PCM-16", "slin",
#if 0
"G.729A", "g729a",
"G.729A/B", "g729ab",
"G.723.1", "g723.1",
"G.723.1(5.3k)", "g723.1-5k3",
"G.723.1A(5.3k)", "g723.1a-5k3",
"G.723.1A(6.3k)", "g723.1a-6k3",
"G.723.1A(6.3k)-Cisco", "g723.1a-6k3-cisco",
"G.726-16k", "g726-16",
"G.726-24k", "g726-24",
"G.726-32k", "g726-32",
"G.726-40k", "g726-40",
"iLBC", "ilbc",
"SpeexNarrow-18.2k", "speex-18k2",
"SpeexNarrow-15k", "speex-15k",
"SpeexNarrow-11k", "speex-11k",
"SpeexNarrow-8k", "speex-8k",
"SpeexNarrow-5.95k", "speex-5k95",
#endif
0
};
static const TokenDict dict_h323_dir[] = {
{ "receive", H323Channel::IsReceiver },
{ "send", H323Channel::IsTransmitter },
{ "bidir", H323Channel::IsBidirectional },
{ 0 , 0 },
};
static const TokenDict dict_silence[] = {
{ "none", H323AudioCodec::NoSilenceDetection },
{ "fixed", H323AudioCodec::FixedSilenceDetection },
{ "adaptive", H323AudioCodec::AdaptiveSilenceDetection },
{ 0 , 0 },
};
// OpenH323 cause code mappings
static const TokenDict dict_errors[] = {
{ "noroute", H323Connection::EndedByUnreachable },
{ "noroute", H323Connection::EndedByNoUser },
{ "noconn", H323Connection::EndedByNoEndPoint },
{ "nomedia", H323Connection::EndedByCapabilityExchange },
{ "nomedia", H323Connection::EndedByNoBandwidth },
{ "busy", H323Connection::EndedByLocalBusy },
{ "busy", H323Connection::EndedByRemoteBusy },
{ "rejected", H323Connection::EndedByRefusal },
{ "rejected", H323Connection::EndedByNoAccept },
{ "forbidden", H323Connection::EndedBySecurityDenial },
{ "congestion", H323Connection::EndedByLocalCongestion },
{ "congestion", H323Connection::EndedByRemoteCongestion },
{ "offline", H323Connection::EndedByHostOffline },
{ "timeout", H323Connection::EndedByDurationLimit },
{ "noanswer", H323Connection::EndedByNoAnswer },
{ "noanswer", H323Connection::EndedByCallerAbort },
{ 0 , 0 },
};
// Q.931/Q.850 cause code mappings
static const TokenDict q931_errors[] = {
{ "incomplete", Q931::InvalidNumberFormat },
{ "congestion", Q931::NoCircuitChannelAvailable },
{ "congestion", Q931::TemporaryFailure },
{ "congestion", Q931::Congestion },
{ "offline", Q931::SubscriberAbsent },
{ "nocall", Q931::InvalidCallReference },
#if (OPENH323_NUMVERSION >= 11506)
{ "nocall", Q931::IdentifiedChannelNonExistent },
#endif
{ 0 , 0 },
};
static const char* CallEndReasonText(int reason)
{
#define MAKE_END_REASON(r) case H323Connection::r: return #r
switch (reason) {
MAKE_END_REASON(EndedByLocalUser);
MAKE_END_REASON(EndedByNoAccept);
MAKE_END_REASON(EndedByAnswerDenied);
MAKE_END_REASON(EndedByRemoteUser);
MAKE_END_REASON(EndedByRefusal);
MAKE_END_REASON(EndedByNoAnswer);
MAKE_END_REASON(EndedByCallerAbort);
MAKE_END_REASON(EndedByTransportFail);
MAKE_END_REASON(EndedByConnectFail);
MAKE_END_REASON(EndedByGatekeeper);
MAKE_END_REASON(EndedByNoUser);
MAKE_END_REASON(EndedByNoBandwidth);
MAKE_END_REASON(EndedByCapabilityExchange);
MAKE_END_REASON(EndedByCallForwarded);
MAKE_END_REASON(EndedBySecurityDenial);
MAKE_END_REASON(EndedByLocalBusy);
MAKE_END_REASON(EndedByLocalCongestion);
MAKE_END_REASON(EndedByRemoteBusy);
MAKE_END_REASON(EndedByRemoteCongestion);
MAKE_END_REASON(EndedByUnreachable);
MAKE_END_REASON(EndedByNoEndPoint);
MAKE_END_REASON(EndedByHostOffline);
MAKE_END_REASON(EndedByTemporaryFailure);
MAKE_END_REASON(EndedByQ931Cause);
MAKE_END_REASON(EndedByDurationLimit);
MAKE_END_REASON(EndedByInvalidConferenceID);
case H323Connection::NumCallEndReasons: return "CallStillActive";
default: return "UnlistedCallEndReason";
}
#undef MAKE_END_REASON
}
static int cleaningCount()
{
Lock lock(s_mutex);
return s_connCount - s_chanCount;
}
static bool cleaningBusy()
{
int maxc = s_maxCleaning;
return (maxc > 0) && (cleaningCount() > maxc);
}
class H323Process : public PProcess
{
PCLASSINFO(H323Process, PProcess)
H323Process()
: PProcess(
s_cfg.getValue("general","vendor","Null Team"),
s_cfg.getValue("general","product","YATE"),
(unsigned short)s_cfg.getIntValue("general","major",YATE_MAJOR),
(unsigned short)s_cfg.getIntValue("general","minor",YATE_MINOR),
(PProcess::CodeStatus)s_cfg.getIntValue("general","status",dict_str2code,PProcess::ReleaseCode),
(unsigned short)s_cfg.getIntValue("general","build",YATE_BUILD)
)
{ Resume(); }
public:
void Main()
{ }
};
class YateGkRegThread;
class YateGatekeeperServer;
class YateH323EndPoint;
class YateH323Chan;
class DtmfMethods
{
public:
enum Method {
H323,
Rfc2833,
Inband,
MethodCount
};
inline DtmfMethods()
{ setDefault(); }
inline void set(int _0 = MethodCount, int _1 = MethodCount, int _2 = MethodCount) {
m_methods[0] = _0;
m_methods[1] = _1;
m_methods[2] = _2;
}
inline void setDefault()
{ set(Rfc2833,H323,Inband); }
// Replace all methods from comma separated list
// If no method is set use other or setDefEmpty (reset to default)
// Return false if methods contain unknown methods
bool set(const String& methods, const DtmfMethods* other, bool setDefEmpty = true,
bool intersectOther = false);
// Intersect with other methods
void intersect(const DtmfMethods& other);
// Retrieve a method from deperecated parameters
// Reset the method if the parameter is false
// Display a message anyway if warn is not false
// Return true if the parameter was found
bool getDeprecatedDtmfMethod(const NamedList& list, const char* param, int method, bool* warn);
// Reset a method
void reset(int method);
// Build a string list from methods
void buildMethods(String& buf, const char* sep = ",");
bool hasMethod(int method) const;
inline void printMethods(DebugEnabler* enabler, int level, const String& str) {
String tmp;
buildMethods(tmp);
Debug(enabler,level,"Built DTMF methods '%s' from '%s'",tmp.safe(),str.safe());
}
inline int operator[](unsigned int index) {
if (index < MethodCount)
return m_methods[index];
return MethodCount;
}
inline DtmfMethods& operator=(const DtmfMethods& other) {
for (int i = 0; i < MethodCount; i++)
m_methods[i] = other.m_methods[i];
return *this;
}
static const TokenDict s_methodName[];
protected:
int m_methods[MethodCount];
};
class H323Driver : public Driver
{
public:
enum Relays {
Stop = Private,
};
H323Driver();
virtual ~H323Driver();
virtual void initialize();
virtual bool hasLine(const String& line) const;
virtual bool msgRoute(Message& msg);
virtual bool msgExecute(Message& msg, String& dest);
virtual void msgTimer(Message& msg);
virtual bool received(Message &msg, int id);
virtual void statusParams(String& str);
void cleanup();
YateH323EndPoint* findEndpoint(const String& ep);
// Safely add an endpoint to the list
void addEndPoint(YateH323EndPoint* ep);
// Safely remove an endpoint from list
void removeEndPoint(YateH323EndPoint* ep);
// Create and initialize an endpoint
bool initEndpoint(const String& name, const NamedList* params, bool fromConfig);
bool commandComplete(Message& msg, const String& partLine, const String& partWord);
void msgStatus(Message& msg);
private:
bool handleEngineStop(Message& msg);
Mutex m_epMutex;
ObjList m_endpoints;
};
H323Process* s_process = 0;
static H323Driver hplugin;
static String s_statusCmd = "status";
class YateGatekeeperCall : public H323GatekeeperCall
{
PCLASSINFO(YateGatekeeperCall, H323GatekeeperCall);
public:
YateGatekeeperCall(
YateGatekeeperServer& server,
const OpalGloballyUniqueID& callIdentifier, /// Unique call identifier
Direction direction
);
virtual H323GatekeeperRequest::Response OnAdmission(
H323GatekeeperARQ& request
);
};
class YateGatekeeperServer : public H323GatekeeperServer
{
PCLASSINFO(YateGatekeeperServer, H323GatekeeperServer);
public:
YateGatekeeperServer(YateH323EndPoint& ep);
BOOL Init();
H323GatekeeperRequest::Response OnRegistration(
H323GatekeeperRRQ& request);
H323GatekeeperRequest::Response OnUnregistration(
H323GatekeeperURQ& request);
H323GatekeeperCall* CreateCall(const OpalGloballyUniqueID& id,H323GatekeeperCall::Direction dir);
BOOL TranslateAliasAddressToSignalAddress(const H225_AliasAddress& alias,H323TransportAddress& address);
virtual BOOL GetUsersPassword(const PString& alias,PString& password) const;
private:
YateH323EndPoint& m_endpoint;
};
class YateH323AudioSource : public DataSource, public PIndirectChannel
{
PCLASSINFO(YateH323AudioSource, PIndirectChannel)
YCLASS(YateH323AudioSource, DataSource)
public:
YateH323AudioSource()
: m_exit(false)
{ Debug(&hplugin,DebugAll,"YateH323AudioSource::YateH323AudioSource() [%p]",this); }
~YateH323AudioSource();
virtual BOOL Close();
virtual BOOL IsOpen() const;
virtual BOOL Write(const void *buf, PINDEX len);
private:
PAdaptiveDelay writeDelay;
DataBlock m_data;
bool m_exit;
};
class YateH323AudioConsumer : public DataConsumer, public Mutex, public PIndirectChannel
{
PCLASSINFO(YateH323AudioConsumer, PIndirectChannel)
YCLASS(YateH323AudioConsumer, DataConsumer)
public:
YateH323AudioConsumer()
: Mutex(false,"YateH323AudioConsumer"), m_exit(false)
{ Debug(&hplugin,DebugAll,"YateH323AudioConsumer::YateH323AudioConsumer() [%p]",this); }
~YateH323AudioConsumer();
virtual BOOL Close();
virtual BOOL IsOpen() const;
virtual BOOL Read(void *buf, PINDEX len);
virtual unsigned long Consume(const DataBlock &data, unsigned long tStamp, unsigned long flags);
private:
PAdaptiveDelay readDelay;
DataBlock m_buffer;
bool m_exit;
};
class YateH323_ExternalRTPChannel;
class YateH323EndPoint : public String, public Mutex, public H323EndPoint
{
PCLASSINFO(YateH323EndPoint, H323EndPoint)
friend class YateGkRegThread;
friend class YateH323Connection; // Change connections counter
public:
enum GkMode {
ByAddr,
ByName,
Discover,
Unregister
};
YateH323EndPoint(const NamedList* params = 0, const char* name = 0);
~YateH323EndPoint();
// Make an outgoing call
H323Connection* yateMakeCall(const PString& remoteParty, PString& token, void* userData);
virtual H323Connection* CreateConnection(unsigned callReference, void* userData,
H323Transport* transport, H323SignalPDU* setupPDU);
virtual H235Authenticators CreateAuthenticators();
bool Init(bool reg, const NamedList* params = 0);
bool startGkClient(int mode, int retry = 0, const char* name = "");
void stopGkClient(bool notify = true, const char* reason = 0, bool waitGk = true);
void checkGkClient();
void logout(const char* reason = "Unregistered", bool waitGk = true);
protected:
virtual void OnRegistrationReject();
bool initInternal(bool reg, const NamedList* params);
void initTimeout(PTimeInterval& interval, const String& name,
const NamedList& params, long minVal, long maxVal = 600000);
void setCodecs();
bool internalGkClient(YateGkRegThread* thread, int mode, const PString& name);
void internalGkNotify(bool registered, const char* reason = 0, const char* error = 0);
void stopListener();
bool removeGk(bool wait = true);
bool checkListener(const NamedList* params, bool& changed);
// Check if a thread is valid
bool validThread(YateGkRegThread* thread);
// Start using the gatekeeper. Return false if wait period expired
bool startUsingGk(bool changing);
inline void stopUsingGk()
{ m_gkInUse = false; }
YateGatekeeperServer* m_gkServer;
YateGkRegThread* m_thread;
bool m_retry; // Keep calling internalGkClient()
Mutex m_mutex; // Protect listener, client data, authenticators,
// gatekeeper changes and connections counter
unsigned int m_connCount; // Number of connections
ObjList m_authMethods; // Authenticators to use
bool m_authUseAll; // Use all authenticators created in base class
// Listener
bool m_listening; // Listener for incoming calls started
String m_listenAddr; // Listener address
int m_listenPort; // Listener port
// Client
bool m_client; // Client to gatekeeper
bool m_registered; // Registered flag used to notify
bool m_gkInUse; // We are currently setting/removing/using the gatekeeper
String m_gkAddr; // Gatekeeper address
int m_gkMode; // Gatekeeper mode
};
class YateH323Connection : public H323Connection, public DebugEnabler
{
PCLASSINFO(YateH323Connection, H323Connection)
friend class YateH323Chan;
public:
YateH323Connection(YateH323EndPoint& endpoint, H323Transport* transport, unsigned callReference, void* userdata);
~YateH323Connection();
virtual H323Connection::AnswerCallResponse OnAnswerCall(const PString& caller,
const H323SignalPDU& signalPDU, H323SignalPDU& connectPDU);
virtual H323Connection::CallEndReason SendSignalSetup(const PString& alias, const H323TransportAddress& address);
virtual void OnEstablished();
virtual void OnCleared();
virtual BOOL OnAlerting(const H323SignalPDU& alertingPDU, const PString& user);
virtual BOOL OnReceivedProgress(const H323SignalPDU& pdu);
virtual BOOL OnReceivedCapabilitySet(const H323Capabilities& remoteCaps,
const H245_MultiplexCapability* muxCap, H245_TerminalCapabilitySetReject& reject);
virtual void OnUserInputTone(char tone, unsigned duration, unsigned logicalChannel, unsigned rtpTimestamp);
virtual void OnUserInputString(const PString& value);
virtual BOOL OpenAudioChannel(BOOL isEncoding, unsigned bufferSize,
H323AudioCodec &codec);
virtual void OnSetLocalCapabilities();
#ifdef NEED_RTP_QOS_PARAM
virtual H323Channel* CreateRealTimeLogicalChannel(const H323Capability& capability,H323Channel::Directions dir,unsigned sessionID,const H245_H2250LogicalChannelParameters* param,RTP_QOS* rtpqos = NULL);
#else
virtual H323Channel* CreateRealTimeLogicalChannel(const H323Capability& capability,H323Channel::Directions dir,unsigned sessionID,const H245_H2250LogicalChannelParameters* param);
#endif
virtual BOOL OnStartLogicalChannel(H323Channel& channel);
virtual BOOL OnCreateLogicalChannel(const H323Capability& capability, H323Channel::Directions dir, unsigned& errorCode);
virtual BOOL OpenLogicalChannel(const H323Capability& capability, unsigned sessionID, H323Channel::Directions dir);
virtual void CleanUpOnCallEnd();
BOOL startExternalRTP(const char* remoteIP, WORD remotePort, H323Channel::Directions dir, YateH323_ExternalRTPChannel* chan);
void stoppedExternal(H323Channel::Directions dir);
void setRemoteAddress(const char* remoteIP, WORD remotePort);
void cleanups(bool closeChans = true, bool dropChan = true);
void setCallerID(const char* number, const char* name);
void rtpExecuted(Message& msg);
void rtpForward(Message& msg, bool init = false);
void updateFormats(const Message& msg);
bool adjustCapabilities();
void answerCall(AnswerCallResponse response, bool autoEarly = false);
static BOOL decodeCapability(const H323Capability& capability, const char** dataFormat, int* payload = 0, String* capabName = 0);
unsigned int fixQ931Cause() const;
inline bool hasRemoteAddress() const
{ return m_passtrough && (m_remotePort > 0); }
inline bool nativeRtp() const
{ return m_nativeRtp; }
inline void rtpLocal()
{ m_passtrough = false; }
inline bool rtpStarted() const
{ return m_rtpStarted; }
inline const String& rtpId() const
{ return m_rtpid; }
inline int dtmfPayload() const
{ return m_dtmfPayload; }
private:
void setEpConn(bool created);
// Retrieve RTP DTMF payload from local/remote caps. Return negative if not found
int rtpDtmfPayload(bool local);
String m_chanId;
YateH323Chan* m_chan;
Mutex* m_mutex;
bool m_externalRtp;
bool m_nativeRtp;
bool m_passtrough;
bool m_lockFormats;
String m_formats;
String m_rtpid;
String m_rtpAddr;
int m_rtpPort;
String m_remoteFormats;
String m_remoteAddr;
int m_remotePort;
bool m_needMedia;
bool m_rtpStarted;
int m_dtmfPayload;
};
// this part has been inspired (more or less) from chan_h323 of project asterisk, credits to Jeremy McNamara for chan_h323 and to Mark Spencer for asterisk.
class YateH323_ExternalRTPChannel : public H323_ExternalRTPChannel
{
PCLASSINFO(YateH323_ExternalRTPChannel, H323_ExternalRTPChannel);
public:
/* Create a new channel. */
YateH323_ExternalRTPChannel(
YateH323Connection& connection,
const H323Capability& capability,
Directions direction,
unsigned sessionID,
const PIPSocket::Address& ip,
WORD dataPort);
/* Destructor */
~YateH323_ExternalRTPChannel();
virtual BOOL Start();
virtual BOOL OnReceivedAckPDU(const H245_H2250LogicalChannelAckParameters& param);
virtual BOOL OnSendingPDU(H245_H2250LogicalChannelParameters& param);
virtual BOOL OnReceivedPDU(const H245_H2250LogicalChannelParameters& param,unsigned& errorCode);
virtual void OnSendOpenAck(H245_H2250LogicalChannelAckParameters& param);
private:
YateH323Connection* m_conn;
};
class YateH323Chan : public Channel
{
friend class YateH323Connection;
public:
YateH323Chan(YateH323Connection* conn,Message* msg,const char* addr);
~YateH323Chan();
PChannel* openAudioChannel(BOOL isEncoding);
bool stopDataLinks();
void hangup(bool dropChan = true, bool clearCall = true);
void finish();
virtual void zeroRefs();
virtual void destroyed();
virtual void disconnected(bool final, const char *reason);
virtual bool msgProgress(Message& msg);
virtual bool msgRinging(Message& msg);
virtual bool msgAnswered(Message& msg);
virtual bool msgTone(Message& msg, const char* tone);
virtual bool msgText(Message& msg, const char* text);
virtual bool callRouted(Message& msg);
virtual void callAccept(Message& msg);
virtual void callRejected(const char* error, const char* reason, const Message* msg);
virtual bool setDebug(Message& msg);
void setAddress(const char* addr);
inline void setTarget(const char* targetid)
{ m_targetid = targetid; }
protected:
virtual void endDisconnect(const Message& msg, bool handled);
private:
// Send tone(s) using method
bool sendTone(Message& msg, const char* tone, int meth, bool& retVal);
YateH323Connection* m_conn;
H323Connection::CallEndReason m_reason;
bool m_hungup;
DtmfMethods m_dtmfMethods;
bool m_honorDtmfDetect;
};
class YateGkRegThread : public PThread
{
PCLASSINFO(YateGkRegThread, PThread);
public:
YateGkRegThread(YateH323EndPoint* endpoint, int mode, int retry = 0, const char* name = "")
: PThread(256000),
m_orphan(false), m_ep(endpoint), m_mode(mode), m_retry(retry), m_name(name) {
Lock lck(s_mutexCount);
s_count++;
}
~YateGkRegThread() {
Lock lck(s_mutexCount);
s_count--;
}
void Main();
inline bool orphan() const
{ return m_orphan; }
inline void setOrphan()
{ m_orphan = true; }
static unsigned int s_count;
static Mutex s_mutexCount;
protected:
bool m_orphan;
YateH323EndPoint* m_ep;
int m_mode;
int m_retry;
PString m_name;
};
class YateCallThread : public PThread
{
PCLASSINFO(YateCallThread, PThread);
public:
YateCallThread(YateH323EndPoint* ep, const char* remoteParty, void* userData, int& status)
: PThread(256000),
m_ep(ep), m_userData(userData), m_remoteParty(remoteParty), m_status(status)
{ }
virtual void Main();
static bool makeCall(YateH323EndPoint* ep, const char* remoteParty, void* userData, bool newThread = false);
protected:
YateH323EndPoint* m_ep;
void* m_userData;
PString m_remoteParty;
int& m_status;
};
class UserHandler : public MessageHandler
{
public:
UserHandler()
: MessageHandler("user.login",140,hplugin.name())
{ }
virtual bool received(Message &msg);
};
// start of fake capabilities code
class BaseG7231Capab : public H323AudioCapability
{
PCLASSINFO(BaseG7231Capab, H323AudioCapability);
public:
BaseG7231Capab(const char* fname, bool annexA = true)
: H323AudioCapability(7,4), m_name(fname), m_aa(annexA)
{ }
virtual PObject* Clone() const
// default copy constructor - take care!
{ return new BaseG7231Capab(*this); }
virtual unsigned GetSubType() const
{ return H245_AudioCapability::e_g7231; }
virtual PString GetFormatName() const
{ return m_name; }
virtual H323Codec* CreateCodec(H323Codec::Direction direction) const
{ return 0; }
virtual Comparison Compare(const PObject& obj) const
{
Comparison res = H323AudioCapability::Compare(obj);
if (res != EqualTo)
return res;
bool aa = static_cast<const BaseG7231Capab&>(obj).m_aa;
if (aa && !m_aa)
return LessThan;
if (m_aa && !aa)
return GreaterThan;
return EqualTo;
}
virtual BOOL OnSendingPDU(H245_AudioCapability& pdu, unsigned packetSize) const
{
pdu.SetTag(GetSubType());
H245_AudioCapability_g7231& g7231 = pdu;
g7231.m_maxAl_sduAudioFrames = packetSize;
g7231.m_silenceSuppression = m_aa;
return TRUE;
}
virtual BOOL OnReceivedPDU(const H245_AudioCapability& pdu, unsigned& packetSize)
{
if (pdu.GetTag() != H245_AudioCapability::e_g7231)
return FALSE;
const H245_AudioCapability_g7231& g7231 = pdu;
packetSize = g7231.m_maxAl_sduAudioFrames;
m_aa = (g7231.m_silenceSuppression != 0);
return TRUE;
}
protected:
const char* m_name;
bool m_aa;
};
class BaseG729Capab : public H323AudioCapability
{
PCLASSINFO(BaseG729Capab, H323AudioCapability);
public:
BaseG729Capab(const char* fname, unsigned type = H245_AudioCapability::e_g729)
: H323AudioCapability(24,6), m_name(fname), m_type(type)
{ }
virtual PObject* Clone() const
// default copy constructor - take care!
{ return new BaseG729Capab(*this); }
virtual unsigned GetSubType() const
{ return m_type; }
virtual PString GetFormatName() const
{ return m_name; }
virtual H323Codec* CreateCodec(H323Codec::Direction direction) const
{ return 0; }
protected:
const char* m_name;
unsigned m_type;
};
unsigned int YateGkRegThread::s_count = 0;
Mutex YateGkRegThread::s_mutexCount(false,"H323GkThreads");
static DtmfMethods s_dtmfMethods;
static bool s_honorDtmfDetect = true;
// Deprecated dtmf params warn
static bool s_warnDtmfInbandCfg = true;
static bool s_warnDtmfInbandCallExecute = true;
const TokenDict DtmfMethods::s_methodName[] = {
{ "h323", H323},
{ "rfc2833", Rfc2833},
{ "inband", Inband},
{ 0, 0 },
};
// Replace all methods from comma separated list
// If no method is set use other or setDefEmpty (reset to default)
bool DtmfMethods::set(const String& methods, const DtmfMethods* other, bool setDefEmpty,
bool intersectOther)
{
set();
bool found = false;
bool ok = true;
ObjList* m = methods.split(',');
int i = 0;
for (ObjList* o = m->skipNull(); o && i < MethodCount; o = o->skipNext()) {
String* s = static_cast<String*>(o->get());
int meth = lookup(s->trimBlanks(),s_methodName,MethodCount);
if (meth != MethodCount) {
m_methods[i++] = meth;
found = true;
}
else if (*s)
ok = false;
}
TelEngine::destruct(m);
if (!found) {
if (other) {
*this = *other;
intersectOther = false;
}
else if (setDefEmpty)
setDefault();
}
if (intersectOther && other)
intersect(*other);
return ok;
}
// Intersect with other methods
void DtmfMethods::intersect(const DtmfMethods& other)
{
for (int i = 0; i < MethodCount; i++)
if (m_methods[i] != MethodCount && !other.hasMethod(m_methods[i]))
m_methods[i] = MethodCount;
}
// Retrieve a method from deperecated parameters
// Reset the method if the parameter is false
// Display a message anyway if warn is not false
bool DtmfMethods::getDeprecatedDtmfMethod(const NamedList& list, const char* param,
int method, bool* warn)
{
String* p = list.getParam(param);
if (!p)
return false;
if (!p->toBoolean())
reset(method);
if (warn && *warn) {
*warn = false;
Debug(&hplugin,DebugConf,"Deprecated '%s' in '%s'. Use 'dtmfmethods' instead!",param,list.c_str());
}
return true;
}
// Reset a method
void DtmfMethods::reset(int method)
{
for (int i = 0; i < MethodCount; i++)
if (m_methods[i] == method) {
m_methods[i] = MethodCount;
break;
}
}
// Build a string list from methods
void DtmfMethods::buildMethods(String& buf, const char* sep)
{
for (int i = 0; i < MethodCount; i++)
buf.append(lookup(m_methods[i],s_methodName),sep);
}
bool DtmfMethods::hasMethod(int method) const
{
for (int i = 0; i < MethodCount; i++)
if (m_methods[i] == method)
return true;
return false;
}
// Get a number of thread idle intervals from a time period
static inline unsigned int threadIdleIntervals(u_int64_t periodUs)
{
u_int64_t us = TelEngine::Thread::idleUsec();
return (unsigned int)((periodUs + us - 1) / us);
}
// Emit an alarm when refusing a new call but not more often than every 10s
static void congestedWarn(const char* msg)
{
static uint64_t s_alarmTime = 0;
if (s_alarmTime > Time::now())
Debug(&hplugin,DebugWarn,"%s",msg);
else {
Alarm(&hplugin,"performance",DebugWarn,"%s",msg);
s_alarmTime = Time::now() + 10000000;
}
}
// shameless adaptation from the G711 capability declaration
#define DEFINE_YATE_CAPAB(cls,base,param,name) \
class cls : public base { \
public: \
cls() : base(name,param) { } \
}; \
H323_REGISTER_CAPABILITY(cls,name) \
DEFINE_YATE_CAPAB(YateG7231_5,BaseG7231Capab,false,OPAL_G7231_5k3"{sw}")
DEFINE_YATE_CAPAB(YateG7231_6,BaseG7231Capab,false,OPAL_G7231_6k3"{sw}")
DEFINE_YATE_CAPAB(YateG7231A5,BaseG7231Capab,true,OPAL_G7231A_5k3"{sw}")
DEFINE_YATE_CAPAB(YateG7231A6,BaseG7231Capab,true,OPAL_G7231A_6k3"{sw}")
DEFINE_YATE_CAPAB(YateG729,BaseG729Capab,H245_AudioCapability::e_g729,OPAL_G729"{sw}")
DEFINE_YATE_CAPAB(YateG729A,BaseG729Capab,H245_AudioCapability::e_g729AnnexA,OPAL_G729A"{sw}")
DEFINE_YATE_CAPAB(YateG729B,BaseG729Capab,H245_AudioCapability::e_g729wAnnexB,OPAL_G729B"{sw}")
DEFINE_YATE_CAPAB(YateG729AB,BaseG729Capab,H245_AudioCapability::e_g729AnnexAwAnnexB,OPAL_G729AB"{sw}")
// end of fake capabilities code
#ifndef DISABLE_CAPS_DUMP
#ifdef USE_CAPABILITY_FACTORY
static void ListRegisteredCaps(int level)
{
PFactory<H323Capability>::KeyList_T list = PFactory<H323Capability>::GetKeyList();
#if (OPENH323_NUMVERSION >= 12000)
for (PFactory<H323Capability>::KeyList_T::const_iterator find = list.begin(); find != list.end(); ++find)
Debug(level,"Registed capability: '%s'",find->c_str());
#else
for (std::vector<PString>::const_iterator find = list.begin(); find != list.end(); ++find)
Debug(level,"Registed capability: '%s'",(const char*)*find);
#endif
}
#else
// This class is used just to find out if a capability is registered
class FakeH323CapabilityRegistration : public H323CapabilityRegistration
{
PCLASSINFO(FakeH323CapabilityRegistration,H323CapabilityRegistration);
public:
FakeH323CapabilityRegistration()
: H323CapabilityRegistration("[fake]")
{ }
static void ListRegistered(int level);
static bool IsRegistered(const PString& name);
virtual H323Capability* Create(H323EndPoint& ep) const
{ return 0; }
};
void FakeH323CapabilityRegistration::ListRegistered(int level)
{
PWaitAndSignal mutex(H323CapabilityRegistration::GetMutex());
H323CapabilityRegistration* find = registeredCapabilitiesListHead;
for (; find; find = static_cast<FakeH323CapabilityRegistration*>(find)->link)
Debug(level,"Registed capability: '%s'",(const char*)*find);
}
bool FakeH323CapabilityRegistration::IsRegistered(const PString& name)
{
PWaitAndSignal mutex(H323CapabilityRegistration::GetMutex());
H323CapabilityRegistration* find = registeredCapabilitiesListHead;
for (; find; find = static_cast<FakeH323CapabilityRegistration*>(find)->link)
if (*find == name)
return true;
return false;
}
#endif
#endif // DISABLE_CAPS_DUMP
YateGatekeeperServer::YateGatekeeperServer(YateH323EndPoint& ep)
: H323GatekeeperServer(ep), m_endpoint(ep)
{
Debug(&hplugin,DebugAll,"YateGatekeeperServer::YateGatekeeperServer() [%p]",this);
}
BOOL YateGatekeeperServer::Init()
{
SetGatekeeperIdentifier("YATE gatekeeper");
H323TransportAddressArray interfaces;
const char* addr = 0;
int i;
// NOTE: no need to protect s_cfg: this is called from driver initialize()
for (i = 1; (addr = s_cfg.getValue("gk",("interface" + String(i)).c_str())); i++) {
const char* name = s_cfg.getValue("gk","name","YateGatekeeper");
int port = s_cfg.getIntValue("gk","port",1719);
H323TransportUDP* trans = new H323TransportUDP(m_endpoint,PIPSocket::Address(addr),port,0);
if (AddListener(new H323GatekeeperListener(m_endpoint,*this,name,trans)))
Debug(&hplugin,DebugAll,"Started Gk listener on %s:%d",addr,port);
else
Alarm(&hplugin,"config",DebugCrit,"Can't start the Gk listener for address: %s",addr);
}
i = s_cfg.getIntValue("gk","ttl",600);
if (i > 0) {
// adjust time to live between 1 minute and 1 day
if (i < 60)
i = 60;
if (i > 86400)
i = 86400;
SetTimeToLive(i);
}
disengageOnHearbeatFail = s_cfg.getBoolValue("gk","heartbeatdrop",true);
canOnlyAnswerRegisteredEP = canOnlyCallRegisteredEP = s_cfg.getBoolValue("gk","registeredonly",false);
return TRUE;
}
YateH323EndPoint::YateH323EndPoint(const NamedList* params, const char* name)
: String(name), Mutex(false,"H323Endpoint"),
m_gkServer(0), m_thread(0), m_retry(false), m_mutex(true,"H323Ep"),
m_connCount(0), m_authUseAll(true), m_listening(false), m_listenPort(0),
m_client(false), m_registered(false), m_gkInUse(false), m_gkMode(Unregister)
{
Debug(&hplugin,DebugAll,"YateH323EndPoint::YateH323EndPoint(%p,\"%s\") [%p]",
params,name,this);
if (params && params->getBoolValue("gw",false))
terminalType = e_GatewayOnly;
// TODO: check if the following methods can be called on subsequent init
// Move them to init if so
setCodecs();
AddAllUserInputCapabilities(0,1);
}
YateH323EndPoint::~YateH323EndPoint()
{
Debug(&hplugin,DebugAll,"YateH323EndPoint::~YateH323EndPoint(\"%s\") [%p]",c_str(),this);
hplugin.removeEndPoint(this);
stopListener();
ClearAllCalls(H323Connection::EndedByTemporaryFailure, true);
if (m_gkServer)
delete m_gkServer;
stopGkClient(true,"Unregistered",false);
removeGk(false);
if (m_thread)
Debug(DebugFail,"Destroying YateH323EndPoint '%s' still having a YateGkRegThread %p [%p]",
safe(),m_thread,this);
}
H323Connection* YateH323EndPoint::yateMakeCall(const PString& remoteParty,
PString& token, void* userData)
{
// Sync with gatekeeper changing flag
if (!startUsingGk(false)) {
congestedWarn("Refusing new outgoing H.323 call, gatekeeper busy");
return 0;
}
token = PString::Empty();
H323Connection* conn = InternalMakeCall(PString::Empty(),PString::Empty(),
UINT_MAX,remoteParty,NULL,token,userData);
if (conn != NULL)
conn->Unlock();
stopUsingGk();
return conn;
}
H323Connection* YateH323EndPoint::CreateConnection(unsigned callReference,
void* userData, H323Transport* transport, H323SignalPDU* setupPDU)
{
// check if there aren't too many connections assigned to the cleaner thread
if (cleaningBusy()) {
congestedWarn("Refusing new H.323 call, too many cleaning up");
return 0;
}
if (!hplugin.canAccept(userData == 0)) {
congestedWarn("Refusing new H.323 call, full or exiting");
return 0;
}
// Incoming call, sync with gatekeeper changing flag
if (!userData && !startUsingGk(false)) {
congestedWarn("Refusing new incoming H.323 call, gatekeeper busy");
return 0;
}
Lock mylock(this);
YateH323Connection* conn = new YateH323Connection(*this,transport,callReference,userData);
mylock.drop();
if (!userData)
stopUsingGk();
return conn;
}
H235Authenticators YateH323EndPoint::CreateAuthenticators()
{
H235Authenticators e = H323EndPoint::CreateAuthenticators();
Lock lck(m_mutex);
ObjList* o = m_authMethods.skipNull();
if (!o)
return e;
// Move authenticators to our list
H235Authenticators ret;
e.AllowDeleteObjects(false);
for (; o; o = o->skipNext())
for (PINDEX i = 0; i < e.GetSize(); i++)
if (o->get()->toString() == e[i].GetName()) {
ret.Append(e.RemoveAt(i));
break;
}
while (m_authUseAll && e.GetSize())
ret.Append(e.RemoveAt(0));
e.AllowDeleteObjects(true);
#ifdef DEBUG
String tmp;
for (PINDEX i = 0; i < ret.GetSize(); i++)
tmp.append(ret[i].GetName(),",");
Debug(&hplugin,DebugAll,"Endpoint(%s) created authenticators '%s' [%p]",
safe(),tmp.safe(),this);
#endif
return ret;
}
bool YateH323EndPoint::Init(bool reg, const NamedList* params)
{
bool ok = false;
bool started = startUsingGk(true);
if (started) {
ok = initInternal(reg,params);
stopUsingGk();
}
else if (m_client && reg && !m_registered)
internalGkNotify(false,"Gatekeeper busy");
if (!ok)
Alarm(&hplugin,"config",DebugWarn,"Endpoint(%s) failed to init%s [%p]",safe(),
started ? "" : ": gatekeeper busy",this);
return ok;
}
void YateH323EndPoint::OnRegistrationReject()
{
Lock lck(m_mutex);
m_retry = false;
Debug(&hplugin,DebugNote,"Endpoint(%s) registration rejected [%p]",
safe(),this);
internalGkNotify(false,"Registration failed","noauth");
}
void YateH323EndPoint::initTimeout(PTimeInterval& interval, const String& name,
const NamedList& params, long minVal, long maxVal)
{
long int msec = params.getIntValue(name);
if (msec <= 0)
return;
if (msec < minVal)
msec = minVal;
else if (msec > maxVal)
msec = maxVal;
interval = msec;
}
bool YateH323EndPoint::initInternal(bool reg, const NamedList* params)
{
Lock lck(m_mutex);
DDebug(&hplugin,DebugAll,"Endpoint(%s)::initInternal(%u,%p) [%p]",
safe(),reg,params,this);
DisableDetectInBandDTMF(!(params && params->getBoolValue("dtmfinband")));
DisableFastStart(params && !params->getBoolValue("faststart",true));
DisableH245Tunneling(params && !params->getBoolValue("h245tunneling",true));
DisableH245inSetup(!(params && params->getBoolValue("h245insetup")));
SetSilenceDetectionMode(static_cast<H323AudioCodec::SilenceDetectionMode>
(params ? params->getIntValue("silencedetect",dict_silence,H323AudioCodec::NoSilenceDetection)
: H323AudioCodec::NoSilenceDetection));
if (params) {
initTimeout(controlChannelStartTimeout,YSTRING("timeout_control"),*params,10000);
initTimeout(signallingChannelCallTimeout,YSTRING("timeout_answer"),*params,5000);
initTimeout(capabilityExchangeTimeout,YSTRING("timeout_capabilities"),*params,1000,120000);
}
// Init authenticators
m_authMethods.clear();
m_authUseAll = false;
String meths = params ? (*params)["authmethods"] : String::empty();
meths.trimBlanks();
if (meths && meths != "*") {
ObjList* list = meths.split(',',false);
ObjList* o = list->skipNull();
while (o) {
String* s = static_cast<String*>(o->get());
s->trimBlanks();
o = o->skipNext();
if (s->null())
continue;
if (*s != "*")
m_authMethods.append(new String(*s));
else
m_authUseAll = (o == 0);
}
TelEngine::destruct(list);
}
#ifdef DEBUG
String tmpAuth;
tmpAuth.append(m_authMethods,",");
Debug(&hplugin,DebugAll,"Endpoint(%s) authmethods=%s useall=%s [%p]",
safe(),tmpAuth.safe(),String::boolText(m_authUseAll),this);
#endif
// Login ?
if (((!params) || params->getBoolValue("ep",true)) && reg) {
bool listenChanged = false;
if (!checkListener(params,listenChanged))
return false;
// Setup endpoint
PString username("yate");
if (params) {
username = params->getValue("username",(const char*)username);
username = params->getValue("alias",(const char*)username);
}
const char* server = params ? params->getValue("server") : 0;
bool client = params && params->getBoolValue("gkclient",server != 0);
if (m_client != client) {
m_client = client;
if (!m_client) {
stopGkClient(true,"Unregistered",false);
removeGk(false);
}
}
if (m_client) {
// adjust time to live between 1 minute and 1 day
int ttl = 300;
if (params) {
ttl = params->getIntValue("interval",ttl,0,86400);
// "gkttl" is deprecated
ttl = params->getIntValue("gkttl",ttl,0,86400);
}
if (ttl > 0)
registrationTimeToLive.SetInterval(0,ttl >= 60 ? ttl : 60);
PString pwd;
String d = server;
String a;
int gkPort = 0;
if (params) {
pwd = params->getValue("password");
d = params->getValue("gkip",server);
a = params->getValue("gkname");
gkPort = params->getIntValue("gkport");
}
String dummy;
String* serverAddr = &dummy;
int mode = Discover;
if (d) {
mode = ByAddr;
serverAddr = &d;
// Fix port
int pos = d.find(':');
if (pos >= 0) {
if (d.substr(pos + 1).toInteger() <= 0) {
d = d.substr(0,pos);
if (gkPort > 0)
d << ":" << gkPort;
}
}
else if (gkPort > 0)
d << ":" << gkPort;
}
else if (a) {
mode = ByName;
serverAddr = &a;
}
bool doReg = !IsRegisteredWithGatekeeper();
bool authChanged = (username != GetLocalUserName()) || (pwd != GetGatekeeperPassword());
bool serverChanged = (mode != m_gkMode) || (*serverAddr != m_gkAddr);
if (doReg || listenChanged || authChanged || serverChanged) {
stopGkClient(false,0,false);
removeGk(false);
Debug(&hplugin,DebugAll,"Endpoint(%s) registering [%p]",safe(),this);
SetLocalUserName(username);
SetGatekeeperPassword(pwd);
int retry = params ? params->getIntValue("gkretry",60) : 60;
if ((retry > 0) && (retry < 10))
retry = 10;
startGkClient(mode,retry,serverAddr->safe());
}
else
internalGkNotify(true,"Already registered");
}
else
SetLocalUserName(username);
}
else if (m_client && !reg)
logout("Unregistered",false);
// only the first, nameless endpoint can be a gatekeeper
// No need to protect s_cfg: null endpoint is called from module initialize
if ((!m_gkServer) && null() && s_cfg.getBoolValue("gk","server",false)) {
m_gkServer = new YateGatekeeperServer(*this);
m_gkServer->Init();
}
return true;
}
void YateH323EndPoint::setCodecs()
{
#ifndef DISABLE_CAPS_DUMP
if (null()) {
// NOTE: the method is called for null() from driver initialize()
// No need to protect s_cfg
int dump = s_cfg.getIntValue("general","dumpcodecs");
if (dump > 0)
#ifdef USE_CAPABILITY_FACTORY
ListRegisteredCaps(dump);
#else
FakeH323CapabilityRegistration::ListRegistered(dump);
#endif
}
#endif
// Safely make a copy of codecs section
s_cfgMutex.lock();
NamedList* csect = s_cfg.getSection("codecs");
if (!null()) {
// fall back to global codec definitions if [codecs NAME] does not exist
NamedList* tmp = s_cfg.getSection(String("codecs ") + c_str());
if (tmp)
csect = tmp;
}
NamedList codecs("");
if (csect)
codecs = *csect;
s_cfgMutex.unlock();
bool defcodecs = codecs.getBoolValue("default",true);
const char** f = h323_formats;
String added;
String failed;
for (; *f; f += 2) {
bool ok = false;
bool fake = false;
String tmp(codecs.getValue(f[1]));
if ((tmp == "fake") || (tmp == "pretend")) {
ok = true;
fake = true;
}
else
ok = tmp.toBoolean(defcodecs);
if (ok) {
tmp = f[0];
tmp += "*{sw}";
PINDEX init = GetCapabilities().GetSize();
AddAllCapabilities(0, 0, tmp.c_str());
PINDEX num = GetCapabilities().GetSize() - init;
if (fake && !num) {
// failed to add so pretend we support it in hardware
tmp = f[0];
tmp += "*{hw}";
AddAllCapabilities(0, 0, tmp.c_str());
num = GetCapabilities().GetSize() - init;
}
if (num)
added.append(String((int)num)," ") << ": " << tmp;
else
failed.append("'"," ") << tmp << "'";
}
}
if (added)
Debug(&hplugin,DebugAll,"Endpoint(%s) added capabilities %s [%p]",
safe(),added.safe(),this);
// warn if codecs were disabled by default
if (failed)
Debug(&hplugin,defcodecs ? DebugInfo : DebugWarn,
"Endpoint(%s) failed to add capabilities %s [%p]",safe(),failed.safe(),this);
}
// Start a new PThread that performs GK discovery
bool YateH323EndPoint::startGkClient(int mode, int retry, const char* name)
{
XDebug(&hplugin,DebugAll,"YateH323EndPoint::startGkClient(%d,%d,%s) [%p]",mode,retry,name,this);
int retries = 10;
hplugin.lock();
while (m_thread) {
hplugin.unlock();
if (!--retries) {
Debug(&hplugin,DebugCrit,
"Endpoint(%s) old Gk client thread not finished [%p]",safe(),this);
return false;
}
Thread::msleep(25);
hplugin.lock();
}
m_retry = true;
m_thread = new YateGkRegThread(this,mode,retry,name);
hplugin.unlock();
m_thread->SetThreadName("Yate H323GkClient");
m_thread->SetAutoDelete();
m_thread->Resume();
Lock lck(m_mutex);
m_gkMode = mode;
m_gkAddr = name;
return true;
}
void YateH323EndPoint::stopGkClient(bool notify, const char* reason, bool waitGk)
{
#ifdef XDEBUG
Debugger debug(DebugAll,"YateH323EndPoint::stopGkClient","(%s) [%p]",safe(),this);
#endif
hplugin.lock();
if (m_thread) {
if (m_retry) {
m_retry = false;
unsigned int n = threadIdleIntervals(s_waitGkClient);
for (unsigned int i = 0; i < n; i++) {
if (!m_thread)
break;
hplugin.unlock();
TelEngine::Thread::idle();
hplugin.lock();
}
}
if (m_thread) {
Debug(&hplugin,DebugCrit,"Endpoint(%s) abandoning old Gk client thread (%p) [%p]",
safe(),m_thread,this);
m_thread->setOrphan();
m_thread = 0;
hplugin.unlock();
removeGk(waitGk);
hplugin.lock();
}
}
hplugin.unlock();
if (notify)
internalGkNotify(false,reason);
}
bool YateH323EndPoint::internalGkClient(YateGkRegThread* thread, int mode, const PString& name)
{
if (!(m_retry && validThread(thread)))
return true;
DDebug(&hplugin,DebugAll,"Endpoint(%s)::internalGkClient(%p,%d,%s) [%p]",
safe(),thread,mode,(const char*)name,this);
String reason;
bool reg = (mode != Unregister);
if (reg && !startUsingGk(true)) {
if (m_retry && validThread(thread))
internalGkNotify(false,"Gatekeeper busy");
return false;
}
bool ret = false;
bool terminated = false;
switch (mode) {
case ByAddr:
ret = SetGatekeeper(name,new H323TransportUDP(*this));
if (!(m_retry && validThread(thread))) {
ret = terminated = true;
break;
}
if (ret)
Debug(&hplugin,DebugCall,"Connected '%s' to GK addr '%s'",
safe(),(const char*)name);
else
reason << "Failed to connect '" << safe() <<
"' to GK addr '" << (const char*)name << "'";
break;
case ByName:
ret = LocateGatekeeper(name);
if (!(m_retry && validThread(thread))) {
ret = terminated = true;
break;
}
if (ret)
Debug(&hplugin,DebugCall,"Connected '%s' to GK name '%s'",
safe(),(const char*)name);
else
reason << "Failed to connect '" << safe() <<
"' to GK name '" << (const char*)name << "'";
break;
case Discover:
ret = DiscoverGatekeeper(new H323TransportUDP(*this));
if (!(m_retry && validThread(thread))) {
ret = terminated = true;
break;
}
if (ret)
Debug(&hplugin,DebugCall,"Connected '%s' to discovered GK",safe());
else
reason << "Failed to discover a GK in '" << safe() << "'";
break;
case Unregister:
if (validThread(thread)) {
removeGk();
stopListener();
}
if (validThread(thread)) {
Debug(&hplugin,DebugCall,"Removed the GK in '%s'",safe());
internalGkNotify(false,"Unregistered");
}
else
terminated = true;
ret = true;
}
if (reg)
stopUsingGk();
if (reg && !terminated) {
if (ret)
internalGkNotify(true);
else {
if (reason)
Debug(&hplugin,DebugWarn,"%s",reason.c_str());
if (m_retry)
internalGkNotify(false,reason);
else
ret = true;
}
}
DDebug(&hplugin,DebugAll,"Endpoint(%s)::internalGkClient(%p,%d,%s) exiting with %u [%p]",
safe(),thread,mode,(const char*)name,ret,this);
return ret;
}
void YateH323EndPoint::internalGkNotify(bool registered, const char* reason, const char* error)
{
if (((m_registered == registered) && !reason) || null())
return;
m_registered = registered;
DDebug(&hplugin,DebugAll,"Endpoint(%s) notifying reg=%u reason=%s error=%s [%p]",
safe(),m_registered,reason,error,this);
Message* m = new Message("user.notify");
m->addParam("account",*this);
m->addParam("protocol","h323");
m->addParam("registered",String::boolText(registered));
m->addParam("error",error,false);
m->addParam("reason",reason,false);
Engine::enqueue(m);
}
void YateH323EndPoint::checkGkClient()
{
if (!m_thread && m_mutex.lock(50000)) {
if (!m_gkInUse)
internalGkNotify(IsRegisteredWithGatekeeper());
m_mutex.unlock();
}
}
void YateH323EndPoint::logout(const char* reason, bool waitGk)
{
if (!m_client)
return;
Lock lck(m_mutex);
stopListener();
if (m_registered || IsRegisteredWithGatekeeper()) {
stopGkClient(false,0,waitGk);
startGkClient(Unregister);
}
else
stopGkClient(true,reason,waitGk);
}
void YateH323EndPoint::stopListener()
{
Lock lck(m_mutex);
DDebug(&hplugin,DebugAll,"Endpoint(%s)::stopListener [%p]",safe(),this);
RemoveListener(0);
m_listening = false;
}
bool YateH323EndPoint::removeGk(bool wait)
{
if (!gatekeeper)
return true;
DDebug(&hplugin,DebugAll,"Endpoint(%s)::removeGk [%p]",safe(),this);
if (wait && !startUsingGk(true))
return false;
RemoveGatekeeper();
if (wait)
stopUsingGk();
return true;
}
bool YateH323EndPoint::checkListener(const NamedList* params, bool& changed)
{
changed = false;
// Setup the listener if we don't have one or bind address changed
int port = 1720;
String a;
if (params) {
port = params->getIntValue("port",port);
a = params->getValue("addr");
}
if (m_listening && m_listenAddr == a && m_listenPort == port)
return true;
// Remove old listener
stopListener();
m_listenAddr = a;
m_listenPort = port;
unsigned int retries = 5;
int minPort = 1000;
int maxPort = 65535;
if (params) {
retries = params->getIntValue("bind_retry_count",retries,0,10);
minPort = params->getIntValue("bind_minport",minPort,1,65535);
maxPort = params->getIntValue("bind_maxport",maxPort,1,65535);
}
DDebug(&hplugin,DebugAll,"Endpoint(%s) starting listener addr=%s port=%d [%p]",
safe(),m_listenAddr.safe(),m_listenPort,this);
PIPSocket::Address addr = INADDR_ANY;
if (m_listenAddr)
addr = m_listenAddr.c_str();
port = m_listenPort;
H323ListenerTCP* listener = new H323ListenerTCP(*this,addr,port);
m_listening = StartListener(listener);
if (!m_listening) {
delete listener;
if (retries) {
if (maxPort > minPort) {
int diff = maxPort - minPort;
if (diff < (int)retries)
retries = diff;
}
else {
maxPort = minPort;
retries = 1;
}
}
int level = DebugCrit;
String extra;
if (retries) {
level = DebugWarn;
extra << "retry=" << retries;
extra << " ports [" << minPort << "-" << maxPort << "] ";
}
Debug(&hplugin,level,
"Endpoint(%s) unable to start H323 Listener on %s:%d %s[%p]",
safe(),(const char*)addr.AsString(),m_listenPort,extra.safe(),this);
for (unsigned int i = 0; !m_listening && i < retries; i++) {
port = minPort;
if (minPort < maxPort)
port += Random::random() % (maxPort - minPort);
listener = new H323ListenerTCP(*this,addr,port);
m_listening = StartListener(listener);
if (!m_listening)
delete listener;
}
}
if (m_listening) {
changed = true;
Debug(&hplugin,DebugAll,"Endpoint(%s) listener started on %s:%d [%p]",
safe(),(const char*)addr.AsString(),port,this);
return true;
}
if (retries)
Alarm(&hplugin,"config",DebugCrit,"Endpoint(%s) unable to start H323 Listener on %s [%p]",
safe(),(const char*)addr.AsString(),this);
String reason = "Cannot listen on ";
reason << m_listenAddr << ":" << m_listenPort;
stopGkClient(false);
internalGkNotify(false,reason);
return false;
}
// Start using the gatekeeper
// Return false if wait period expired
bool YateH323EndPoint::startUsingGk(bool changing)
{
// Changing gatekeeper: wait for in use flag to be false and no more connections
// Not changing (making a call): wait for in use flag to be false
m_mutex.lock();
bool ok = false;
if ((changing && (m_gkInUse || m_connCount)) || (!changing && m_gkInUse)) {
unsigned int n = threadIdleIntervals(changing ? s_waitGkUsageChanging : s_waitGkUsageCall);
for (unsigned int i = 0; i < n; i++) {
if (!m_gkInUse && (!changing || (changing && !m_connCount))) {
ok = true;
break;
}
m_mutex.unlock();
Thread::idle();
m_mutex.lock();
if (Engine::exiting() || Thread::check(false))
break;
}
}
else
ok = true;
if (ok)
m_gkInUse = true;
m_mutex.unlock();
return ok;
}
// Check if a thread is valid
bool YateH323EndPoint::validThread(YateGkRegThread* thread)
{
return thread && m_thread == thread && !thread->orphan();
}
void YateGkRegThread::Main()
{
if (!m_ep)
return;
// Avoid sleeping a large period of time: we might be requested to terminate
unsigned int n = 0;
unsigned int ms = 0;
if (m_retry > 0) {
ms = 50;
n = (unsigned int)(m_retry * 1000) / ms;
}
String epName = m_ep->safe();
Debug(&hplugin,DebugAll,
"Endpoint(%s) client thread (%p) starting mode=%d name=%s [%p]",
epName.safe(),this,m_mode,(const char*)m_name,m_ep);
while (!orphan() && m_ep->m_retry && !m_ep->internalGkClient(this,m_mode,m_name) && ms) {
for (unsigned int i = 0; i < n; i++) {
if (orphan() || !m_ep->m_retry)
break;
Thread::msleep(ms);
}
}
hplugin.lock();
bool ok = (!orphan() && m_ep->m_thread == this);
if (ok) {
m_ep->m_thread = 0;
m_ep->m_retry = false;
}
hplugin.unlock();
Debug(&hplugin,ok ? DebugAll : DebugCrit,
"Endpoint(%s) client thread (%p) finished [%p]",
epName.safe(),this,m_ep);
m_ep = 0;
}
// make a call either normally or in a proxy PWlib thread
bool YateCallThread::makeCall(YateH323EndPoint* ep, const char* remoteParty, void* userData, bool newThread)
{
// check if there aren't too many connections assigned to the cleaner thread
if (cleaningBusy()) {
congestedWarn("Refusing new outgoing H.323 call, too many cleaning up");
return false;
}
if (!newThread) {
PString token;
return ep->yateMakeCall(remoteParty,token,userData) != 0;
}
int status = 0;
YateCallThread* call = new YateCallThread(ep,remoteParty,userData,status);
call->SetThreadName("Yate H323Call");
call->SetNoAutoDelete();
call->Resume();
call->WaitForTermination();
delete call;
return status > 0;
}
// the actual method that does the job in the proxy thread
void YateCallThread::Main()
{
PString token;
if (m_ep->yateMakeCall(m_remoteParty,token,m_userData))
m_status = 1;
else
m_status = -1;
}
YateH323Connection::YateH323Connection(YateH323EndPoint& endpoint,
H323Transport* transport, unsigned callReference, void* userdata)
: H323Connection(endpoint,callReference), m_chan(0), m_mutex(0),
m_externalRtp(s_externalRtp), m_nativeRtp(false),
m_passtrough(false), m_lockFormats(false),
m_rtpPort(0), m_remotePort(0), m_needMedia(true),
m_rtpStarted(false), m_dtmfPayload(-1)
{
Debug(&hplugin,DebugAll,"YateH323Connection::YateH323Connection(%p,%u,%p) [%p]",
&endpoint,callReference,userdata,this);
s_mutex.lock();
s_connCount++;
s_mutex.unlock();
setEpConn(true);
m_needMedia = s_needMedia;
// outgoing calls get the "call.execute" message as user data
Message* msg = static_cast<Message*>(userdata);
m_chan = new YateH323Chan(this,msg,
((transport && !userdata) ? (const char*)transport->GetRemoteAddress() : 0));
m_chan->initChan();
m_chanId = m_chan->id();
m_mutex = m_chan->mutex();
debugCopy(m_chan);
debugName(m_chanId);
if (!msg) {
m_passtrough = s_passtrough;
return;
}
setCallerID(msg->getValue("caller"),msg->getValue("callername"));
rtpForward(*msg,s_passtrough);
updateFormats(*msg);
m_needMedia = msg->getBoolValue("needmedia",m_needMedia);
CallEndpoint* ch = YOBJECT(CallEndpoint,msg->userData());
if (ch && ch->connect(m_chan,msg->getValue("reason"))) {
m_chan->callConnect(*msg);
m_chan->setTarget(msg->getValue("id"));
msg->setParam("peerid",m_chan->id());
msg->setParam("targetid",m_chan->id());
m_chan->deref();
}
}
// Called by the cleaner thread after CleanUpOnCallEnd() and OnCleared()
YateH323Connection::~YateH323Connection()
{
Debug(this,DebugAll,"YateH323Connection::~YateH323Connection() [%p]",this);
s_mutex.lock();
s_connCount--;
s_mutex.unlock();
setEpConn(false);
YateH323Chan* tmp = m_chan;
m_chan = 0;
if (tmp)
tmp->finish();
cleanups();
debugName(0);
}
// Called by the cleaner thread before OnCleared() and the destructor
void YateH323Connection::CleanUpOnCallEnd()
{
Debug(this,DebugAll,"YateH323Connection::CleanUpOnCallEnd() [%p]",this);
if (m_chan)
m_chan->stopDataLinks();
H323Connection::CleanUpOnCallEnd();
}
void YateH323Connection::cleanups(bool closeChans, bool dropChan)
{
if (dropChan)
m_chan = 0;
if (closeChans && Lock()) {
CloseAllLogicalChannels(true);
CloseAllLogicalChannels(false);
Unlock();
}
}
H323Connection::AnswerCallResponse YateH323Connection::OnAnswerCall(const PString &caller,
const H323SignalPDU &setupPDU, H323SignalPDU &connectPDU)
{
Debug(this,DebugInfo,"YateH323Connection::OnAnswerCall caller='%s' chan=%p [%p]",
(const char *)caller,m_chan,this);
TelEngine::Lock lock(m_mutex);
if (!(m_chan && m_chan->alive()))
return H323Connection::AnswerCallDenied;
if (!hplugin.canRoute()) {
Debug(this,DebugWarn,"Not answering H.323 call, full or exiting");
YateH323Chan* tmp = m_chan;
m_chan = 0;
tmp->hangup(false,false);
tmp->deref();
return H323Connection::AnswerCallDenied;
}
Message *m = m_chan->message("call.preroute",false,true);
lock.drop();
const YateH323EndPoint& ep = static_cast<const YateH323EndPoint&>(GetEndPoint());
if (ep.c_str())
m->setParam("in_line",ep.c_str());
s_cfgMutex.lock();
const char *s = s_cfg.getValue("incoming","context");
if (s)
m->setParam("context",s);
s_cfgMutex.unlock();
m->setParam("callername",caller);
s = GetRemotePartyNumber();
Debug(this,DebugInfo,"GetRemotePartyNumber()='%s'",s);
m->setParam("caller",s ? s : (const char *)("h323/"+caller));
const Q931& q931 = setupPDU.GetQ931();
const H225_Setup_UUIE& setup = setupPDU.m_h323_uu_pdu.m_h323_message_body;
const H225_ArrayOf_AliasAddress& adr = setup.m_destinationAddress;
for (int i = 0; i<adr.GetSize(); i++)
Debug(this,DebugAll,"adr[%d]='%s'",i,(const char *)H323GetAliasAddressString(adr[i]));
String called;
if (adr.GetSize() > 0)
called = (const char *)H323GetAliasAddressString(adr[0]);
if (called)
Debug(this,DebugInfo,"Called number (alias) is '%s'",called.c_str());
else {
PString cal;
if (q931.GetCalledPartyNumber(cal)) {
called=(const char *)cal;
Debug(this,DebugInfo,"Called-Party-Number (IE) is '%s'",called.c_str());
}
}
if (called.null()) {
Debug(this,DebugMild,"No called number present!");
s_cfgMutex.lock();
called = s_cfg.getValue("incoming","called");
s_cfgMutex.unlock();
}
if (called)
m->setParam("called",called);
#if 0
s = GetRemotePartyAddress();
Debug(this,DebugInfo,"GetRemotePartyAddress()='%s'",s);
if (s)
m->setParam("calledname",s);
#endif
if (hasRemoteAddress()) {
m->addParam("rtp_forward","possible");
m->addParam("rtp_addr",m_remoteAddr);
m->addParam("rtp_port",String(m_remotePort));
}
else if (m_passtrough) {
Debug(this,DebugNote,"Disabling RTP forward because of slow start mode [%p]",this);
m_passtrough = false;
}
if (m_remoteFormats)
m->addParam("formats",m_remoteFormats);
if (m_chan->startRouter(m))
return H323Connection::AnswerCallDeferred;
Debug(&hplugin,DebugWarn,"Error starting H.323 routing thread! [%p]",this);
return H323Connection::AnswerCallDenied;
}
void YateH323Connection::rtpExecuted(Message& msg)
{
Debug(this,DebugAll,"YateH323Connection::rtpExecuted(%p) [%p]",
&msg,this);
m_needMedia = msg.getBoolValue("needmedia",m_needMedia);
if (!m_passtrough)
return;
String tmp = msg.getValue("rtp_forward");
m_passtrough = (tmp == "accepted");
if (m_passtrough)
Debug(this,DebugInfo,"H323 Peer accepted RTP forward");
}
void YateH323Connection::rtpForward(Message& msg, bool init)
{
Debug(this,DebugAll,"YateH323Connection::rtpForward(%p,%d) [%p]",
&msg,init,this);
String tmp = msg.getValue("rtp_forward");
if (!((init || m_passtrough) && tmp))
return;
m_passtrough = tmp.toBoolean();
if (!m_passtrough)
return;
int port = msg.getIntValue("rtp_port");
String addr(msg.getValue("rtp_addr"));
if (port && addr) {
m_rtpAddr = addr;
m_rtpPort = port;
m_formats = msg.getValue("formats");
msg.setParam("rtp_forward","accepted");
Debug(this,DebugInfo,"Accepted RTP forward %s:%d formats '%s'",
addr.c_str(),port,m_formats.safe());
}
else {
m_passtrough = false;
Debug(this,DebugInfo,"Disabling RTP forward [%p]",this);
}
}
// Update the formats when RTP is proxied
void YateH323Connection::updateFormats(const Message& msg)
{
// when doing RTP forwarding formats are altered in rtpForward()
if (m_passtrough || m_lockFormats)
return;
m_lockFormats = msg.getBoolValue("lock_formats");
// only audio is currently supported
const char* formats = msg.getValue("formats");
if (!formats)
return;
if (m_formats != formats) {
Debug(this,DebugNote,"Formats changed to '%s'",formats);
m_formats = formats;
// send changed capability set only if another was already sent
if (adjustCapabilities() && capabilityExchangeProcedure->HasSentCapabilities())
SendCapabilitySet(FALSE);
}
}
// Adjust local capabilities to not exceed the format list
bool YateH323Connection::adjustCapabilities()
{
if (m_formats.null())
return false;
// remote has a list of supported codecs - remove unsupported capabilities
bool nocodecs = true;
bool changed = false;
if (!Lock())
return false;
for (int i = 0; i < localCapabilities.GetSize(); i++) {
const char* format = 0;
String fname;
decodeCapability(localCapabilities[i],&format,0,&fname);
if (format) {
if (m_formats.find(format) < 0) {
Debug(this,DebugAll,"Removing capability '%s' (%s) not in remote '%s'",
fname.c_str(),format,m_formats.c_str());
changed = true;
// also remove any matching fast start channels
for (PINDEX idx = 0; idx < fastStartChannels.GetSize(); idx++) {
if (fastStartChannels[idx].GetCapability() == localCapabilities[i]) {
Debug(this,DebugInfo,"Removing fast start channel %s '%s' (%s)",
lookup(fastStartChannels[idx].GetDirection(),dict_h323_dir,"?"),
fname.c_str(),format);
fastStartChannels.RemoveAt(idx--);
}
}
localCapabilities.Remove(fname.c_str());
i--;
}
else
nocodecs = false;
}
}
Unlock();
if (nocodecs) {
Debug(DebugWarn,"No codecs remaining for H323 connection [%p]",this);
if (m_needMedia) {
changed = false;
ClearCall(EndedByCapabilityExchange);
}
}
return changed;
}
void YateH323Connection::answerCall(AnswerCallResponse response, bool autoEarly)
{
bool media = false;
if (hasRemoteAddress() && m_rtpPort)
media = true;
else if (autoEarly) {
TelEngine::Lock lock(m_mutex);
if (m_chan && m_chan->alive() && m_chan->getPeer() && m_chan->getPeer()->getSource())
media = true;
}
// modify responses to indicate we have early media (remote ringing)
if (media) {
switch (response) {
case AnswerCallPending:
response = AnswerCallAlertWithMedia;
break;
case AnswerCallDeferred:
response = AnswerCallDeferredWithMedia;
break;
default:
break;
}
}
AnsweringCall(response);
}
H323Connection::CallEndReason YateH323Connection::SendSignalSetup(const PString& alias, const H323TransportAddress& address)
{
if (m_chan && m_chan->address().null())
m_chan->setAddress(address);
return H323Connection::SendSignalSetup(alias,address);
}
void YateH323Connection::OnEstablished()
{
TelEngine::Lock lock(m_mutex);
Debug(this,DebugInfo,"YateH323Connection::OnEstablished() [%p]",this);
if (!m_chan)
return;
if (m_chan->address().null())
m_chan->setAddress(GetControlChannel().GetRemoteAddress());
if (HadAnsweredCall()) {
m_chan->status("connected");
return;
}
m_chan->status("answered");
Message *m = m_chan->message("call.answered",false,true);
lock.drop();
if (m_passtrough) {
if (m_remotePort) {
m->addParam("rtp_forward","yes");
m->addParam("rtp_addr",m_remoteAddr);
m->addParam("rtp_port",String(m_remotePort));
m->addParam("formats",m_remoteFormats);
}
else {
Debug(this,DebugWarn,"H323 RTP passtrough with no remote address! [%p]",this);
if (m_needMedia)
ClearCall(EndedByCapabilityExchange);
}
}
Engine::enqueue(m);
if (!capabilityExchangeProcedure->HasReceivedCapabilities())
capabilityExchangeProcedure->Start(TRUE);
}
// Called by the cleaner thread between CleanUpOnCallEnd() and the destructor
void YateH323Connection::OnCleared()
{
int reason = GetCallEndReason();
unsigned int q931 = fixQ931Cause();
const char* rtext = CallEndReasonText(reason);
const char* error = lookup(q931,q931_errors);
if (!error)
error = lookup(reason,dict_errors);
Debug(this,DebugInfo,"YateH323Connection::OnCleared() error: '%s' reason: %s (%d) [%p]",
error,rtext,reason,this);
TelEngine::Lock lock(m_mutex);
if (m_chan && m_chan->ref()) {
YateH323Chan* tmp = m_chan;
m_chan = 0;
lock.drop();
Channel::paramMutex().lock();
if (q931)
tmp->parameters().setParam("cause_q931",String(q931));
Channel::paramMutex().unlock();
tmp->disconnect(error ? error : rtext,tmp->parameters());
tmp->finish();
tmp->deref();
}
}
BOOL YateH323Connection::OnAlerting(const H323SignalPDU &alertingPDU, const PString &user)
{
Debug(this,DebugInfo,"YateH323Connection::OnAlerting '%s' [%p]",(const char *)user,this);
TelEngine::Lock lock(m_mutex);
if (!m_chan)
return FALSE;
m_chan->status("ringing");
Message *m = m_chan->message("call.ringing",false,true);
lock.drop();
if (hasRemoteAddress()) {
m->addParam("rtp_forward","yes");
m->addParam("rtp_addr",m_remoteAddr);
m->addParam("rtp_port",String(m_remotePort));
m->addParam("formats",m_remoteFormats);
}
Engine::enqueue(m);
return TRUE;
}
BOOL YateH323Connection::OnReceivedProgress(const H323SignalPDU& pdu)
{
Debug(this,DebugInfo,"YateH323Connection::OnReceivedProgress [%p]",this);
if (!H323Connection::OnReceivedProgress(pdu))
return FALSE;
TelEngine::Lock lock(m_mutex);
if (!m_chan)
return FALSE;
m_chan->status("progressing");
Message *m = m_chan->message("call.progress",false,true);
lock.drop();
if (hasRemoteAddress()) {
m->addParam("rtp_forward","yes");
m->addParam("rtp_addr",m_remoteAddr);
m->addParam("rtp_port",String(m_remotePort));
m->addParam("formats",m_remoteFormats);
}
Engine::enqueue(m);
return TRUE;
}
BOOL YateH323Connection::OnReceivedCapabilitySet(const H323Capabilities& remoteCaps,
const H245_MultiplexCapability* muxCap, H245_TerminalCapabilitySetReject& reject)
{
DDebug(this,DebugInfo,"YateH323Connection::OnReceivedCapabilitySet [%p]",this);
bool ok = H323Connection::OnReceivedCapabilitySet(remoteCaps,muxCap,reject);
int payload = rtpDtmfPayload(false);
if (m_dtmfPayload != payload) {
if (m_rtpStarted) {
// TODO: Update external rtp event payload when implemented
if (payload > 0)
Debug(this,DebugInfo,"Unable to change event payload, disabling RFC 2833 [%p]",this);
m_dtmfPayload = -3;
}
else
m_dtmfPayload = payload;
}
return ok;
}
void YateH323Connection::OnUserInputTone(char tone, unsigned duration, unsigned logicalChannel, unsigned rtpTimestamp)
{
Debug(this,DebugInfo,"YateH323Connection::OnUserInputTone '%c' duration=%u [%p]",tone,duration,this);
TelEngine::Lock lock(m_mutex);
if (!m_chan)
return;
Message *m = m_chan->message("chan.dtmf",false,true);
lock.drop();
char buf[2];
buf[0] = tone;
buf[1] = 0;
m->addParam("text",buf);
m->addParam("duration",String(duration));
m->addParam("detected","h323");
m_chan->dtmfEnqueue(m);
}
void YateH323Connection::OnUserInputString(const PString &value)
{
Debug(this,DebugInfo,"YateH323Connection::OnUserInputString '%s' [%p]",(const char *)value,this);
TelEngine::Lock lock(m_mutex);
if (!m_chan)
return;
String text((const char *)value);
const char *type = text.startSkip("MSG",false) ? "chan.text" : "chan.dtmf";
Message *m = m_chan->message(type,false,true);
lock.drop();
m->addParam("text",text);
Engine::enqueue(m);
}
BOOL YateH323Connection::OpenAudioChannel(BOOL isEncoding, unsigned bufferSize,
H323AudioCodec &codec)
{
Debug(this,DebugInfo,"YateH323Connection::OpenAudioChannel chan=%p [%p]",m_chan,this);
if (!m_nativeRtp) {
Debug(DebugCrit,"YateH323Connection::OpenAudioChannel for non-native RTP in [%p]",this);
if (m_needMedia)
ClearCall(EndedByCapabilityExchange);
return FALSE;
}
PChannel* achan = 0;
TelEngine::Lock lock(m_mutex);
if (m_chan && m_chan->alive())
achan = m_chan->openAudioChannel(isEncoding);
lock.drop();
return achan && codec.AttachChannel(achan,false);
}
#ifdef NEED_RTP_QOS_PARAM
H323Channel* YateH323Connection::CreateRealTimeLogicalChannel(const H323Capability& capability,H323Channel::Directions dir,unsigned sessionID,const H245_H2250LogicalChannelParameters* param,RTP_QOS* rtpqos)
#else
H323Channel* YateH323Connection::CreateRealTimeLogicalChannel(const H323Capability& capability,H323Channel::Directions dir,unsigned sessionID,const H245_H2250LogicalChannelParameters* param)
#endif
{
Debug(this,DebugAll,"H323Connection::CreateRealTimeLogicalChannel%s%s [%p]",
m_externalRtp ? " external" : "",m_passtrough ? " passtrough" : "",this);
if (m_externalRtp || m_passtrough) {
const char* sdir = lookup(dir,dict_h323_dir);
const char *format = 0;
decodeCapability(capability,&format);
Debug(this,DebugAll,"Capability '%s' format '%s' session %u %s",
(const char *)capability.GetFormatName(),format,sessionID,sdir);
// disallow codecs not supported by remote receiver
if (m_passtrough && !(m_formats.null() || (m_formats.find(format) >= 0))) {
Debug(this,DebugMild,"Refusing to create '%s' not in remote '%s'",format,m_formats.c_str());
return 0;
}
if (dir == H323Channel::IsReceiver) {
if (format && (m_remoteFormats.find(format) < 0)) {
TelEngine::Lock lck(s_cfgMutex);
if (s_cfg.getBoolValue("codecs",format,true))
m_remoteFormats.append(format,",");
}
}
PIPSocket::Address externalIpAddress;
GetControlChannel().GetLocalAddress().GetIpAddress(externalIpAddress);
Debug(this,DebugAll,"Logical control channel address '%s'",
(const char *)externalIpAddress.AsString());
WORD externalPort = 0;
if (!m_passtrough) {
TelEngine::Lock lock(m_mutex);
if (m_chan && m_chan->alive()) {
Message m("chan.rtp");
m.userData(m_chan);
lock.drop();
m.addParam("localip",externalIpAddress.AsString());
if (sdir)
m.addParam("direction",sdir);
if (Engine::dispatch(m)) {
m_rtpid = m.getValue("rtpid");
externalPort = m.getIntValue("localport");
}
}
else {
Debug(this,DebugNote,"Not creating logical channel for a dead channel [%p]",this);
return 0;
}
}
if (externalPort || m_passtrough) {
m_nativeRtp = false;
if (!externalPort) {
externalPort = m_rtpPort;
externalIpAddress = PString(m_rtpAddr.safe());
}
return new YateH323_ExternalRTPChannel(*this, capability, dir, sessionID, externalIpAddress, externalPort);
}
if (s_fallbackRtp)
Debug(this,DebugWarn,"YateH323Connection falling back to native RTP [%p]",this);
else {
Debug(this,DebugWarn,"YateH323Connection RTP failed but not falling back! [%p]",this);
return 0;
}
}
m_nativeRtp = true;
#ifdef NEED_RTP_QOS_PARAM
return H323Connection::CreateRealTimeLogicalChannel(capability,dir,sessionID,param,rtpqos);
#else
return H323Connection::CreateRealTimeLogicalChannel(capability,dir,sessionID,param);
#endif
}
void YateH323Connection::OnSetLocalCapabilities()
{
Debug(this,DebugAll,"YateH323Connection::OnSetLocalCapabilities()%s%s [%p]",
m_externalRtp ? " external" : "",m_passtrough ? " passtrough" : "",this);
H323Connection::OnSetLocalCapabilities();
adjustCapabilities();
}
BOOL YateH323Connection::OnStartLogicalChannel(H323Channel & channel)
{
DDebug(this,DebugInfo,"YateH323Connection::OnStartLogicalChannel(%p) [%p]",&channel,this);
if (!(m_chan && m_chan->alive()))
return FALSE;
return m_nativeRtp ? H323Connection::OnStartLogicalChannel(channel) : TRUE;
}
BOOL YateH323Connection::OnCreateLogicalChannel(const H323Capability& capability, H323Channel::Directions dir, unsigned& errorCode)
{
DDebug(this,DebugInfo,"YateH323Connection::OnCreateLogicalChannel('%s',%s) [%p]",
(const char *)capability.GetFormatName(),lookup(dir,dict_h323_dir),this);
return H323Connection::OnCreateLogicalChannel(capability,dir,errorCode);
}
BOOL YateH323Connection::OpenLogicalChannel(const H323Capability& capability, unsigned sessionID, H323Channel::Directions dir)
{
DDebug(this,DebugInfo,"YateH323Connection::OpenLogicalChannel('%s',%u,%s) [%p]",
(const char *)capability.GetFormatName(),sessionID,lookup(dir,dict_h323_dir),this);
if (!(m_chan && m_chan->alive()))
return FALSE;
return H323Connection::OpenLogicalChannel(capability,sessionID,dir);
}
BOOL YateH323Connection::decodeCapability(const H323Capability& capability, const char** dataFormat, int* payload, String* capabName)
{
String fname((const char *)capability.GetFormatName());
// turn capability name into format name
if (fname.endsWith("{sw}",false))
fname = fname.substr(0,fname.length()-4);
if (fname.endsWith("{hw}",false))
fname = fname.substr(0,fname.length()-4);
OpalMediaFormat oformat(fname, FALSE);
int pload = oformat.GetPayloadType();
const char *format = 0;
const char** f = h323_formats;
for (; *f; f += 2) {
if (fname.startsWith(*f,false)) {
format = f[1];
break;
}
}
DDebug(&hplugin,DebugAll,"capability '%s' format '%s' payload %d",fname.c_str(),format,pload);
if (format) {
if (capabName)
*capabName = fname;
if (dataFormat)
*dataFormat = format;
if (payload)
*payload = pload;
return TRUE;
}
return FALSE;
}
void YateH323Connection::setRemoteAddress(const char* remoteIP, WORD remotePort)
{
if (!m_remotePort) {
Debug(this,DebugInfo,"Got remote RTP address %s:%u [%p]",
remoteIP,remotePort,this);
m_remotePort = remotePort;
m_remoteAddr = remoteIP;
}
}
BOOL YateH323Connection::startExternalRTP(const char* remoteIP, WORD remotePort, H323Channel::Directions dir, YateH323_ExternalRTPChannel* chan)
{
const char* sdir = lookup(dir,dict_h323_dir);
Debug(this,DebugAll,"YateH323Connection::startExternalRTP(\"%s\",%u,%s,%p) [%p]",
remoteIP,remotePort,sdir,chan,this);
int payload = 128;
const char *format = 0;
decodeCapability(chan->GetCapability(),&format,&payload);
if (format && m_formats && (m_formats.find(format) < 0)) {
Debug(this,DebugNote,"Refusing RTP '%s' payload %d, not in '%s'",
format,payload,m_formats.c_str());
return FALSE;
}
if (m_passtrough && m_rtpPort) {
setRemoteAddress(remoteIP,remotePort);
Debug(this,DebugInfo,"Passing RTP to %s:%d",m_rtpAddr.c_str(),m_rtpPort);
const PIPSocket::Address ip(m_rtpAddr.safe());
WORD dataPort = m_rtpPort;
chan->SetExternalAddress(H323TransportAddress(ip, dataPort), H323TransportAddress(ip, dataPort+1));
stoppedExternal(dir);
return TRUE;
}
if (!m_externalRtp)
return FALSE;
if (m_dtmfPayload < 0)
m_dtmfPayload = rtpDtmfPayload(true);
Message m("chan.rtp");
if (m_rtpid)
m.setParam("rtpid",m_rtpid);
if (sdir)
m.addParam("direction",sdir);
m.addParam("remoteip",remoteIP);
m.addParam("remoteport",String(remotePort));
if (format)
m.addParam("format",format);
if ((payload >= 0) && (payload < 127))
m.addParam("payload",String(payload));
if (m_dtmfPayload > 0)
m.addParam("evpayload",String(m_dtmfPayload));
TelEngine::Lock lock(m_mutex);
if (!(m_chan && m_chan->alive() && m_chan->driver()))
return FALSE;
m.userData(m_chan);
lock.drop();
if (Engine::dispatch(m)) {
m_rtpid = m.getValue("rtpid");
m_rtpStarted = true;
return TRUE;
}
return FALSE;
}
void YateH323Connection::stoppedExternal(H323Channel::Directions dir)
{
Debug(this,DebugInfo,"YateH323Connection::stoppedExternal(%s) chan=%p [%p]",
lookup(dir,dict_h323_dir),m_chan,this);
TelEngine::Lock lock(m_mutex);
if (!m_chan)
return;
switch (dir) {
case H323Channel::IsReceiver:
m_chan->setSource();
break;
case H323Channel::IsTransmitter:
m_chan->setConsumer();
break;
case H323Channel::IsBidirectional:
m_chan->setSource();
m_chan->setConsumer();
default:
break;
}
}
void YateH323Connection::setEpConn(bool created)
{
YateH323EndPoint* ep = static_cast<YateH323EndPoint*>(&endpoint);
TelEngine::Lock lck(ep->m_mutex);
if (created)
ep->m_connCount++;
else
ep->m_connCount--;
}
// Retrieve RTP DTMF payload from local/remote caps
int YateH323Connection::rtpDtmfPayload(bool local)
{
int payload = -1;
const H323Capabilities& caps = local ? GetLocalCapabilities() : GetRemoteCapabilities();
// NOTE: RFC2833 capability subtype is not set to H323_UserInputCapability::SignalToneRFC2833 in the library
// It is set to 10000
H323Capability* cap = caps.FindCapability(H323Capability::e_UserInput,10000);
if (cap) {
payload = cap->GetPayloadType();
if (payload < 96 || payload > 127)
payload = -2;
}
XDebug(this,DebugNote,"rtpDtmfPayload(%u) %d [%p]",local,payload,this);
return payload;
}
// Return a proper Q.931 / Q.850 cause code, zero if unknown / unsupported
unsigned int YateH323Connection::fixQ931Cause() const
{
unsigned int q931 = GetQ931Cause();
if (1 <= q931 && q931 <= 127)
return q931;
// let's guess...
switch (GetCallEndReason()) {
case EndedByNoAnswer:
return Q931::NoAnswer;
default:
return 0;
}
}
YateH323_ExternalRTPChannel::YateH323_ExternalRTPChannel(
YateH323Connection& connection,
const H323Capability& capability,
Directions direction,
unsigned sessionID,
const PIPSocket::Address& ip,
WORD dataPort)
: H323_ExternalRTPChannel(connection, capability, direction, sessionID, ip, dataPort),
m_conn(&connection)
{
DDebug(m_conn,DebugAll,"YateH323_ExternalRTPChannel::YateH323_ExternalRTPChannel %s addr=%s:%u [%p]",
lookup(GetDirection(),dict_h323_dir), (const char *)ip.AsString(), dataPort,this);
SetExternalAddress(H323TransportAddress(ip, dataPort), H323TransportAddress(ip, dataPort+1));
}
YateH323_ExternalRTPChannel::~YateH323_ExternalRTPChannel()
{
DDebug(m_conn,DebugInfo,"YateH323_ExternalRTPChannel::~YateH323_ExternalRTPChannel %s%s [%p]",
lookup(GetDirection(),dict_h323_dir),(isRunning ? " running" : ""),this);
if (isRunning) {
isRunning = FALSE;
if (m_conn)
m_conn->stoppedExternal(GetDirection());
}
}
BOOL YateH323_ExternalRTPChannel::Start()
{
DDebug(m_conn,DebugAll,"YateH323_ExternalRTPChannel::Start() [%p]",this);
if (!(m_conn && H323_ExternalRTPChannel::Start()))
return FALSE;
PIPSocket::Address remoteIpAddress;
WORD remotePort;
GetRemoteAddress(remoteIpAddress,remotePort);
Debug(&hplugin,DebugInfo,"External RTP address %s:%u",(const char *)remoteIpAddress.AsString(),remotePort);
return isRunning = m_conn->startExternalRTP((const char *)remoteIpAddress.AsString(), remotePort, GetDirection(), this);
}
BOOL YateH323_ExternalRTPChannel::OnReceivedPDU(
const H245_H2250LogicalChannelParameters& param,
unsigned& errorCode)
{
Debug(m_conn,DebugAll,"YateH323_ExternalRTPChannel::OnReceivedPDU [%p]",this);
if (!H323_ExternalRTPChannel::OnReceivedPDU(param,errorCode))
return FALSE;
if (!m_conn || m_conn->hasRemoteAddress())
return TRUE;
PIPSocket::Address remoteIpAddress;
WORD remotePort;
GetRemoteAddress(remoteIpAddress,remotePort);
Debug(&hplugin,DebugAll,"Remote RTP address %s:%u",(const char *)remoteIpAddress.AsString(),remotePort);
m_conn->setRemoteAddress((const char *)remoteIpAddress.AsString(), remotePort);
return TRUE;
}
BOOL YateH323_ExternalRTPChannel::OnSendingPDU(H245_H2250LogicalChannelParameters& param)
{
Debug(m_conn,DebugAll,"YateH323_ExternalRTPChannel::OnSendingPDU [%p]",this);
return H323_ExternalRTPChannel::OnSendingPDU(param);
}
BOOL YateH323_ExternalRTPChannel::OnReceivedAckPDU(const H245_H2250LogicalChannelAckParameters& param)
{
Debug(m_conn,DebugAll,"YateH323_ExternalRTPChannel::OnReceivedAckPDU [%p]",this);
return H323_ExternalRTPChannel::OnReceivedAckPDU(param);
}
void YateH323_ExternalRTPChannel::OnSendOpenAck(H245_H2250LogicalChannelAckParameters& param)
{
Debug(m_conn,DebugAll,"YateH323_ExternalRTPChannel::OnSendOpenAck [%p]",this);
H323_ExternalRTPChannel::OnSendOpenAck(param);
}
YateH323AudioSource::~YateH323AudioSource()
{
DDebug(&hplugin,DebugAll,"YateH323AudioSource::~YateH323AudioSource() [%p]",this);
m_exit = true;
// Delay actual destruction until the mutex is released
lock();
m_data.clear(false);
unlock();
}
YateH323AudioConsumer::~YateH323AudioConsumer()
{
DDebug(&hplugin,DebugAll,"YateH323AudioConsumer::~YateH323AudioConsumer() [%p]",this);
m_exit = true;
// Delay actual destruction until the mutex is released
check();
}
BOOL YateH323AudioConsumer::Close()
{
DDebug(&hplugin,DebugAll,"YateH323AudioConsumer::Close() [%p]",this);
m_exit = true;
return true;
}
BOOL YateH323AudioConsumer::IsOpen() const
{
return !m_exit;
}
unsigned long YateH323AudioConsumer::Consume(const DataBlock &data, unsigned long tStamp, unsigned long flags)
{
if (m_exit)
return 0;
Lock lock(this);
if ((m_buffer.length() + data.length()) <= (480*5)) {
m_buffer += data;
return invalidStamp();
}
#ifdef DEBUG
else
Debug(&hplugin,DebugAll,"Consumer skipped %u bytes, buffer is full [%p]",data.length(),this);
#endif
return 0;
}
BOOL YateH323AudioConsumer::Read(void *buf, PINDEX len)
{
readDelay.Delay(len/16);
while (!m_exit) {
Lock lock(this);
if (!getConnSource()) {
::memset(buf,0,len);
break;
}
if (len >= (int)m_buffer.length()) {
lock.drop();
Thread::yield();
if (m_exit || Engine::exiting())
return false;
continue;
}
if (len > 0) {
::memcpy(buf,m_buffer.data(),len);
m_buffer.cut(-len);
XDebug(&hplugin,DebugAll,"Consumer pulled %d bytes from buffer [%p]",len,this);
break;
}
else {
len = 0;
Thread::yield();
}
}
lastReadCount = len;
return (len != 0);
}
BOOL YateH323AudioSource::Close()
{
DDebug(&hplugin,DebugAll,"YateH323AudioSource::Close() [%p]",this);
m_exit = true;
return true;
}
BOOL YateH323AudioSource::IsOpen() const
{
return !m_exit;
}
BOOL YateH323AudioSource::Write(const void *buf, PINDEX len)
{
if (!m_exit) {
m_data.assign((void *)buf,len,false);
Forward(m_data);
m_data.clear(false);
writeDelay.Delay(len/16);
}
lastWriteCount = len;
return true;
}
BOOL YateGatekeeperServer::GetUsersPassword(const PString& alias, PString& password) const
{
Message m("user.auth");
m.addParam("protocol","h323");
m.addParam("username",alias);
m.addParam("endpoint",m_endpoint);
m.addParam("gatekeeper",GetGatekeeperIdentifier());
if (!Engine::dispatch(m))
return FALSE;
// as usual empty password means authenticated
password = m.retValue().c_str();
return TRUE;
}
H323GatekeeperCall* YateGatekeeperServer::CreateCall(const OpalGloballyUniqueID& id,
H323GatekeeperCall::Direction dir)
{
return new YateGatekeeperCall(*this, id, dir);
}
H323GatekeeperRequest::Response YateGatekeeperServer::OnRegistration(H323GatekeeperRRQ& request)
{
int i = H323GatekeeperServer::OnRegistration(request);
if (i == H323GatekeeperRequest::Confirm) {
PString alias,r;
String ips;
for (int j = 0; j < request.rrq.m_terminalAlias.GetSize(); j++) {
alias = H323GetAliasAddressString(request.rrq.m_terminalAlias[j]);
r = H323GetAliasAddressE164(request.rrq.m_terminalAlias[j]);
H225_TransportAddress_ipAddress ip;
for (int k = 0; k < request.rrq.m_callSignalAddress.GetSize(); k++) {
ip = request.rrq.m_callSignalAddress[k];
// search for the first address that is not localhost (127.*)
if (ip.m_ip[0] != 127)
break;
}
ips = "h323/";
if (!alias.IsEmpty())
ips << (const char*)alias << "@";
ips << ip.m_ip[0] << "." << ip.m_ip[1] << "." << ip.m_ip[2] << "." << ip.m_ip[3] << ":" << (int)ip.m_port;
Message m("user.register");
m.addParam("username",alias);
m.addParam("driver","h323");
m.addParam("data",ips);
ips = GetTimeToLive();
m.addParam("expires",ips);
if (Engine::dispatch(m))
return H323GatekeeperRequest::Confirm;
}
return H323GatekeeperRequest::Reject;
}
return (H323Transaction::Response)i;
}
H323GatekeeperRequest::Response YateGatekeeperServer::OnUnregistration(H323GatekeeperURQ& request)
{
/* We use just the first alias since is the one we need */
int i = H323GatekeeperServer::OnUnregistration(request);
if (i == H323GatekeeperRequest::Confirm) {
for (int j = 0; j < request.urq.m_endpointAlias.GetSize(); j++) {
PString alias = H323GetAliasAddressString(request.urq.m_endpointAlias[j]);
if (alias.IsEmpty())
return H323GatekeeperRequest::Reject;
Message m("user.unregister");
m.addParam("username",alias);
if (Engine::dispatch(m))
return H323GatekeeperRequest::Confirm;
}
}
return (H323Transaction::Response)i;
}
BOOL YateGatekeeperServer::TranslateAliasAddressToSignalAddress(const H225_AliasAddress& alias,H323TransportAddress& address)
{
PString aliasString = H323GetAliasAddressString(alias);
Message m("call.route");
m.addParam("called",aliasString);
Engine::dispatch(m);
String s = m.retValue();
if (s) {
/**
* Here we have 2 cases, first is handle when the call have to be send
* to endpoint (if the call is to another yate channel, or is h323
* proxied), or if has to be send to another gatekeeper we find out
* from the driver parameter
*/
if ((m.getParam("driver")) && (*(m.getParam("driver")) == "h323")) {
s >> "/";
address = s.c_str();
}
else {
s.clear();
s_cfgMutex.lock();
s << "ip$" << s_cfg.getValue("gk","interface1") << ":" << s_cfg.getIntValue("ep","port",1720);
s_cfgMutex.unlock();
address = s.c_str();
}
return TRUE;
}
return FALSE;
}
YateGatekeeperCall::YateGatekeeperCall(YateGatekeeperServer& gk,
const OpalGloballyUniqueID& id,
Direction dir)
: H323GatekeeperCall(gk, id, dir)
{
}
H323GatekeeperRequest::Response YateGatekeeperCall::OnAdmission(H323GatekeeperARQ & info)
{
/* for (int i = 0; i < info.arq.m_srcInfo.GetSize(); i++) {
PString alias = H323GetAliasAddressString(info.arq.m_srcInfo[i]);
PString d = H323GetAliasAddressString(info.arq.m_destinationInfo[0]);
Debug(DebugInfo,"aliasul in m_srcInfo %s si m_destinationInfo %s",(const char *)alias,(const char *)d);
}
return H323GatekeeperCall::OnAdmission(info);*/
#ifdef TEST_TOKEN
info.acf.IncludeOptionalField(H225_AdmissionConfirm::e_tokens);
info.acf.m_tokens.SetSize(1);
info.acf.m_tokens[0].m_tokenOID = "1.2.36.76840296.1";
info.acf.m_tokens[0].IncludeOptionalField(H235_ClearToken::e_nonStandard);
info.acf.m_tokens[0].m_nonStandard.m_nonStandardIdentifier = "1.2.36.76840296.1.1";
info.acf.m_tokens[0].m_nonStandard.m_data = "SnfYt0jUuZ4lVQv8umRYaH2JltXDRW6IuYcnASVU";
#endif
#ifdef TEST_SLOW_ARQ
if (info.IsFastResponseRequired()) {
if (YateH323GatekeeperCall::OnAdmission(info) == H323GatekeeperRequest::Reject)
return H323GatekeeperRequest::Reject;
return H323GatekeeperRequest::InProgress(5000); // 5 seconds maximum
}
PTimeInterval delay = 500+PRandom::Number()%3500; // Take from 0.5 to 4 seconds
PTRACE(3, "RAS\tTest ARQ delay " << delay);
PThread::Sleep(delay);
return H323GatekeeperRequest::Confirm;
#else
return H323GatekeeperCall::OnAdmission(info);
#endif
}
void YateH323Connection::setCallerID(const char* number, const char* name)
{
if (!number && isE164(name)) {
number = name;
name = 0;
}
if (!(name || number))
return;
if (isE164(number)) {
String display;
if (!name) {
TelEngine::Lock lck(s_cfgMutex);
display << number << " [" << s_cfg.getValue("ep","ident","yate") << "]";
}
else if (isE164(name))
display << number << " [" << name << "]";
else
display = name;
Debug(this,DebugInfo,"Setting H.323 caller: number='%s' name='%s'",number,display.c_str());
SetLocalPartyName(number);
localAliasNames.AppendString(display.c_str());
}
else {
String display;
if (number && name)
display << number << " [" << name << "]";
else if (number)
display = number;
else
display = name;
Debug(this,DebugInfo,"Setting H.323 caller: name='%s'",display.c_str());
SetLocalPartyName(display.c_str());
}
}
YateH323Chan::YateH323Chan(YateH323Connection* conn,Message* msg,const char* addr)
: Channel(hplugin,0,(msg != 0)),
m_conn(conn), m_reason(H323Connection::EndedByLocalUser),
m_hungup(false),
m_honorDtmfDetect(s_honorDtmfDetect)
{
s_mutex.lock();
s_chanCount++;
s_mutex.unlock();
setAddress(addr);
Debug(this,DebugAll,"YateH323Chan::YateH323Chan(%p,%s) %s [%p]",
conn,addr,direction(),this);
setMaxcall(msg);
if (msg)
setMaxPDD(*msg);
Message* s = message("chan.startup",msg);
s_cfgMutex.lock();
m_dtmfMethods = s_dtmfMethods;
s_cfgMutex.unlock();
if (msg) {
String* meths = msg->getParam("odtmfmethods");
if (meths) {
DtmfMethods old = m_dtmfMethods;
m_dtmfMethods.set(*meths,&old);
}
else
m_dtmfMethods.getDeprecatedDtmfMethod(*msg,"dtmfinband",DtmfMethods::Inband,&s_warnDtmfInbandCallExecute);
s->copyParams(*msg,"caller,callername,called,billid,callto,username");
m_honorDtmfDetect = msg->getBoolValue(YSTRING("ohonor_dtmf_detect"),m_honorDtmfDetect);
}
Engine::enqueue(s);
}
YateH323Chan::~YateH323Chan()
{
Debug(this,DebugAll,"YateH323Chan::~YateH323Chan() %s %s [%p]",
m_status.c_str(),id().c_str(),this);
s_mutex.lock();
s_chanCount--;
s_mutex.unlock();
if (m_conn)
Debug(this,DebugFail,"Still having a connection %p [%p]",m_conn,this);
}
void YateH323Chan::zeroRefs()
{
DDebug(this,DebugAll,"YateH323Chan::zeroRefs() conn=%p [%p]",m_conn,this);
if (m_conn && m_conn->nativeRtp() && stopDataLinks()) {
DDebug(this,DebugInfo,"YateH323Chan postpones destruction (native RTP) [%p]",this);
// let the OpenH323 cleaner thread to do the cleanups so we don't have
// to block until the native data threads terminate
dropChan();
hangup(false);
cleanup();
return;
}
Channel::zeroRefs();
}
void YateH323Chan::destroyed()
{
DDebug(this,DebugAll,"YateH323Chan::destroyed() [%p]",this);
dropChan();
stopDataLinks();
if (m_conn)
m_conn->cleanups();
hangup();
Channel::destroyed();
}
void YateH323Chan::finish()
{
DDebug(this,DebugAll,"YateH323Chan::finish() [%p]",this);
m_conn = 0;
if (m_hungup)
Channel::zeroRefs();
else {
hangup();
disconnect();
}
}
void YateH323Chan::hangup(bool dropChan, bool clearCall)
{
DDebug(this,DebugAll,"YateH323Chan::hangup() [%p]",this);
if (m_hungup)
return;
m_hungup = true;
Message *m = message("chan.hangup");
YateH323Connection* tmp = m_conn;
m_conn = 0;
if (clearCall && tmp) {
const char* err = 0;
H323Connection::CallEndReason reason = tmp->GetCallEndReason();
if (reason == H323Connection::NumCallEndReasons)
reason = m_reason;
else
err = lookup(tmp->fixQ931Cause(),q931_errors);
if (!err)
err = lookup(reason,dict_errors);
const char* txt = CallEndReasonText(reason);
if (err)
m->setParam("error",err);
if (txt)
m->setParam("reason",txt);
tmp->cleanups(false,dropChan);
tmp->ClearCall(reason);
}
Engine::enqueue(m);
}
void YateH323Chan::disconnected(bool final, const char *reason)
{
Debugger debug("YateH323Chan::disconnected()"," '%s' [%p]",reason,this);
m_reason = (H323Connection::CallEndReason)lookup(reason,dict_errors,H323Connection::EndedByLocalUser);
Channel::disconnected(final,reason);
if (!final)
return;
stopDataLinks();
if (m_conn)
m_conn->ClearCall(m_reason);
}
void YateH323Chan::endDisconnect(const Message& msg, bool handled)
{
const String* p = msg.getParam(YSTRING("reason"));
if (!TelEngine::null(p))
m_reason = (H323Connection::CallEndReason)p->toInteger(dict_errors,m_reason);
#if (OPENH323_NUMVERSION >= 11704)
p = msg.getParam(YSTRING("cause_q931"));
if (m_conn && !TelEngine::null(p)) {
int i = p->toInteger(q931_errors);
if (i > 0)
m_conn->SetQ931Cause(i);
}
#endif
}
// Send tone(s) using method
bool YateH323Chan::sendTone(Message& msg, const char* tone, int meth, bool& retVal)
{
if (!(m_conn && tone))
return false;
bool ok = false;
if (meth == DtmfMethods::H323) {
const char* t = tone;
while (*t)
m_conn->SendUserInputTone(*t++);
retVal = true;
ok = true;
}
else if (meth == DtmfMethods::Rfc2833) {
ok = m_conn->rtpStarted() && m_conn->rtpId() && m_conn->dtmfPayload() > 0;
if (ok)
msg.setParam("targetid",m_conn->rtpId());
}
else if (meth == DtmfMethods::Inband) {
ok = dtmfInband(tone);
retVal = ok;
}
XDebug(this,ok ? DebugAll : DebugNote,"sendTone(%s) meth=%s (%d) ok=%u [%p]",
tone,lookup(meth,DtmfMethods::s_methodName),meth,ok,this);
return ok;
}
// Set the signalling address
void YateH323Chan::setAddress(const char* addr)
{
m_address = addr;
m_address.startSkip("ip$",false);
filterDebug(m_address);
}
// Shut down the data transfers so OpenH323 can stop its related threads
bool YateH323Chan::stopDataLinks()
{
DDebug(this,DebugAll,"YateH323Chan::stopDataLinks() [%p]",this);
Lock lock(m_mutex);
bool pending = false;
YateH323AudioSource* s = YOBJECT(YateH323AudioSource,getSource());
if (s) {
s->Close();
pending = true;
}
YateH323AudioConsumer* c = YOBJECT(YateH323AudioConsumer,getConsumer());
if (c) {
c->Close();
pending = true;
}
DDebug(this,DebugAll,"YateH323Chan::stopDataLinks() returning %s [%p]",
String::boolText(pending),this);
return pending;
}
PChannel* YateH323Chan::openAudioChannel(BOOL isEncoding)
{
if (isEncoding) {
// data going TO h.323
YateH323AudioConsumer* cons = static_cast<YateH323AudioConsumer*>(getConsumer());
if (!cons) {
setConsumer(cons = new YateH323AudioConsumer);
cons->deref();
}
return cons;
}
else {
// data coming FROM h.323
YateH323AudioSource* src = static_cast<YateH323AudioSource*>(getSource());
if (!src) {
setSource(src = new YateH323AudioSource);
src->deref();
}
return src;
}
return 0;
}
bool YateH323Chan::callRouted(Message& msg)
{
Channel::callRouted(msg);
if (m_conn) {
// try to disable RTP forwarding earliest possible
if (!msg.getBoolValue("rtp_forward"))
m_conn->rtpLocal();
String s(msg.retValue());
if (s.startSkip("h323/",false) && s && msg.getBoolValue("redirect") && m_conn->Lock()) {
Debug(this,DebugAll,"YateH323Chan redirecting to '%s' [%p]",s.c_str(),this);
m_conn->TransferCall(s.safe());
m_conn->Unlock();
return false;
}
m_conn->updateFormats(msg);
return true;
}
return false;
}
void YateH323Chan::callAccept(Message& msg)
{
String* meths = msg.getParam(YSTRING("idtmfmethods"));
if (meths) {
DtmfMethods old = m_dtmfMethods;
m_dtmfMethods.set(*meths,&old);
}
m_honorDtmfDetect = msg.getBoolValue(YSTRING("ihonor_dtmf_detect"),m_honorDtmfDetect);
Channel::callAccept(msg);
if (m_conn) {
m_conn->rtpExecuted(msg);
m_conn->updateFormats(msg);
m_conn->answerCall(H323Connection::AnswerCallDeferred);
}
}
void YateH323Chan::callRejected(const char* error, const char* reason, const Message* msg)
{
Channel::callRejected(error,reason,msg);
stopDataLinks();
if (m_conn)
m_conn->ClearCall((H323Connection::CallEndReason)lookup(error,dict_errors,H323Connection::EndedByLocalUser));
}
bool YateH323Chan::msgProgress(Message& msg)
{
Channel::msgProgress(msg);
if (!m_conn)
return false;
if (msg.getParam("rtp_forward"))
m_conn->rtpForward(msg);
m_conn->updateFormats(msg);
m_conn->answerCall(H323Connection::AnswerCallDeferred,msg.getBoolValue("earlymedia",true));
return true;
}
bool YateH323Chan::msgRinging(Message& msg)
{
Channel::msgRinging(msg);
if (!m_conn)
return false;
if (msg.getParam("rtp_forward"))
m_conn->rtpForward(msg);
m_conn->updateFormats(msg);
m_conn->answerCall(H323Connection::AnswerCallPending,msg.getBoolValue("earlymedia",true));
return true;
}
bool YateH323Chan::msgAnswered(Message& msg)
{
Channel::msgAnswered(msg);
if (!m_conn)
return false;
m_conn->rtpForward(msg);
m_conn->updateFormats(msg);
m_conn->answerCall(H323Connection::AnswerCallNow);
return true;
}
bool YateH323Chan::msgTone(Message& msg, const char* tone)
{
if (!(tone && m_conn))
return false;
DtmfMethods methods = m_dtmfMethods;
const String* param = msg.getParam(YSTRING("methods"));
if (param) {
bool intersect = !msg.getBoolValue(YSTRING("methods_override"));
methods.set(*param,&m_dtmfMethods,true,intersect);
}
bool retVal = false;
bool ok = false;
if (msg.getBoolValue(YSTRING("honor_dtmf_detect"),m_honorDtmfDetect)) {
const String& detected = msg[YSTRING("detected")];
int meth = lookup(detected,DtmfMethods::s_methodName,DtmfMethods::MethodCount);
if (meth != DtmfMethods::MethodCount && methods.hasMethod(meth)) {
ok = sendTone(msg,tone,meth,retVal);
methods.reset(meth);
}
}
for (int i = 0; !ok && i < DtmfMethods::MethodCount; i++) {
int meth = methods[i];
if (meth != DtmfMethods::MethodCount)
ok = sendTone(msg,tone,meth,retVal);
}
if (!ok && debugAt(DebugNote)) {
String tmp;
methods.buildMethods(tmp);
Debug(this,DebugNote,"Failed to send tones '%s' methods=%s [%p]",tone,tmp.c_str(),this);
}
return retVal;
}
bool YateH323Chan::msgText(Message& msg, const char* text)
{
if (text && m_conn) {
Debug(this,DebugInfo,"Text '%s' for %s [%p]",text,id().c_str(),this);
m_conn->SendUserInputIndicationString(text);
return true;
}
return false;
}
bool YateH323Chan::setDebug(Message& msg)
{
if (!Channel::setDebug(msg))
return false;
Lock lock(m_mutex);
if (m_conn)
m_conn->debugCopy(this);
return true;
}
bool UserHandler::received(Message &msg)
{
String tmp(msg.getValue("protocol"));
if (tmp != "h323")
return false;
tmp = msg.getValue("account");
tmp.trimBlanks();
if (tmp.null())
return false;
return hplugin.initEndpoint(tmp,&msg,false);
}
H323Driver::H323Driver()
: Driver("h323","varchans"),
m_epMutex(true,"H323:ep")
{
Output("Loaded module H.323 - based on OpenH323-" OPENH323_VERSION);
}
H323Driver::~H323Driver()
{
cleanup();
if (s_process) {
delete s_process;
s_process = 0;
}
}
bool H323Driver::received(Message &msg, int id)
{
if (id == Status) {
const String* target = msg.getParam("module");
if (target && target->startsWith(name(),true) && !target->startsWith(prefix())) {
msgStatus(msg);
return true;
}
}
if (id == Stop)
return handleEngineStop(msg);
bool ok = Driver::received(msg,id);
if (id == Halt) {
// Wait a while for client threads to terminate
int n = threadIdleIntervals(200000);
while (YateGkRegThread::s_count && (--n) >= 0)
Thread::idle();
if (YateGkRegThread::s_count)
Debug(this,DebugFail,"Exiting with %u client threads still running",
YateGkRegThread::s_count);
cleanup();
}
return ok;
};
void H323Driver::cleanup()
{
m_epMutex.lock();
m_endpoints.clear();
m_epMutex.unlock();
if (channels().count()) {
Debug(this,DebugFail,"Still having channels after clearing up all!");
channels().clear();
}
if (s_process) {
PSyncPoint terminationSync;
terminationSync.Signal();
Output("Waiting for OpenH323 to die");
terminationSync.Wait();
}
}
void H323Driver::statusParams(String& str)
{
Driver::statusParams(str);
str.append("cleaning=",",") << cleaningCount();
}
bool H323Driver::hasLine(const String& line) const
{
return line && hplugin.findEndpoint(line);
}
bool H323Driver::msgRoute(Message& msg)
{
if (!s_process)
return false;
String* called = msg.getParam("called");
if (!called || (called->find('@') >= 0))
return false;
return Driver::msgRoute(msg);
}
bool H323Driver::msgExecute(Message& msg, String& dest)
{
if (!s_process)
return false;
if (dest.null())
return false;
if (!msg.userData()) {
Debug(this,DebugWarn,"H.323 call found but no data channel!");
return false;
}
Debug(this,DebugInfo,"Found call to H.323 target='%s'",
dest.c_str());
YateH323EndPoint* ep = hplugin.findEndpoint(msg.getValue("line"));
if (ep) {
if (YateCallThread::makeCall(ep,dest.c_str(),&msg,msg.getBoolValue("pwlibthread",s_pwlibThread)))
return true;
// the only reason a YateH323Connection is not created is congestion
msg.setParam("error","congestion");
return false;
}
// endpoint unknown or not connected to gatekeeper
msg.setParam("error","offline");
return false;
};
void H323Driver::msgTimer(Message& msg)
{
Driver::msgTimer(msg);
if (!s_engineStop) {
Lock lck(m_epMutex);
for (ObjList* l = m_endpoints.skipNull(); l; l = l->skipNext())
static_cast<YateH323EndPoint*>(l->get())->checkGkClient();
}
}
YateH323EndPoint* H323Driver::findEndpoint(const String& ep)
{
Lock lck(m_epMutex);
ObjList* l = m_endpoints.find(ep);
return static_cast<YateH323EndPoint*>(l ? l->get() : 0);
}
// Safely add an endpoint to the list
void H323Driver::addEndPoint(YateH323EndPoint* ep)
{
if (!ep)
return;
Lock lck(m_epMutex);
if (m_endpoints.find(ep))
return;
m_endpoints.append(ep);
Debug(this,DebugAll,"Added ep '%s' %p",ep->c_str(),ep);
}
// Safely remove an endpoint from list
void H323Driver::removeEndPoint(YateH323EndPoint* ep)
{
if (!ep)
return;
Lock lck(m_epMutex);
if (m_endpoints.remove(ep,false))
Debug(this,DebugAll,"Removed ep '%s' %p",ep->c_str(),ep);
}
void H323Driver::initialize()
{
Output("Initializing module H.323");
s_cfgMutex.lock();
s_cfg = Engine::configFile("h323chan");
s_cfg.load();
NamedList* general = s_cfg.getSection("general");
if (general) {
String* dtmfMethods = general->getParam("dtmfmethods");
if (dtmfMethods) {
if (!s_dtmfMethods.set(*dtmfMethods,0))
s_dtmfMethods.printMethods(this,DebugConf,*dtmfMethods);
}
else {
s_dtmfMethods.setDefault();
s_dtmfMethods.getDeprecatedDtmfMethod(*general,"dtmfinband",DtmfMethods::Inband,&s_warnDtmfInbandCfg);
}
}
else
s_dtmfMethods.setDefault();
s_cfgMutex.unlock();
s_honorDtmfDetect = s_cfg.getBoolValue("general","honor_dtmf_detect",true);
s_externalRtp = s_cfg.getBoolValue("general","external_rtp",true);
s_passtrough = s_cfg.getBoolValue("general","forward_rtp",false);
s_fallbackRtp = s_cfg.getBoolValue("general","fallback_rtp",true);
s_needMedia = s_cfg.getBoolValue("general","needmedia",true);
// mantain compatibility with old config files
s_passtrough = s_cfg.getBoolValue("general","passtrough_rtp",s_passtrough);
s_maxCleaning = s_cfg.getIntValue("general","maxcleaning",100);
s_pwlibThread = s_cfg.getBoolValue("general","pwlibthread");
maxRoute(s_cfg.getIntValue("incoming","maxqueue",5));
maxChans(s_cfg.getIntValue("ep","maxconns",maxChans()));
if (!s_process) {
setup();
installRelay(Halt);
s_process = new H323Process;
installRelay(Progress);
installRelay(Route);
installRelay(Status);
installRelay(Stop,"engine.stop");
Engine::install(new UserHandler);
}
int dbg = s_cfg.getIntValue("general","debug");
if (dbg < 0)
dbg = 0;
if (dbg > 10)
dbg = 10;
PTrace::Initialise(dbg,0,PTrace::Blocks | PTrace::Timestamp
| PTrace::Thread | PTrace::FileAndLine);
initEndpoint(String::empty(),s_cfg.getSection("ep"),true);
int n = s_cfg.sections();
for (int i = 0; i < n; i++) {
NamedList* sect = s_cfg.getSection(i);
if (!sect)
continue;
String s(*sect);
if (s.startSkip("ep ",false) && s.trimBlanks())
initEndpoint(s,sect,true);
}
}
// Create and initialize an endpoint
bool H323Driver::initEndpoint(const String& name, const NamedList* params, bool fromConfig)
{
bool reg = true;
if (!fromConfig) {
if (!params)
return false;
const String& oper = (*params)[YSTRING("operation")];
reg = (oper == YSTRING("login")) || (oper == YSTRING("create"));
if (!reg && oper != YSTRING("logout") && oper != YSTRING("delete"))
return false;
// Don't accept login if exiting or logout after first engine.stop
if ((reg && Engine::exiting()) || (!reg && s_engineStop > 1))
return false;
}
Lock lck(m_epMutex);
YateH323EndPoint* ep = findEndpoint(name);
DDebug(this,DebugAll,"initEndpoint(%s,%p,%u) reg=%u found=%p",name.c_str(),params,fromConfig,reg,ep);
if (!ep && (reg || fromConfig)) {
ep = new YateH323EndPoint(params,name);
addEndPoint(ep);
}
lck.drop();
return ep && ep->Init(reg,params);
}
bool H323Driver::commandComplete(Message& msg, const String& partLine, const String& partWord)
{
String cmd = s_statusCmd + " " + name();
String overviewCmd = s_statusCmd + " overview " + name();
if (partLine == cmd || partLine == overviewCmd)
itemComplete(msg.retValue(),"accounts",partWord);
else
return Driver::commandComplete(msg,partLine,partWord);
return false;
}
void H323Driver::msgStatus(Message& msg)
{
String str = msg.getValue("module");
while (str.startSkip(name())) {
str.trimBlanks();
if (str.null())
break;
if (str.startSkip("accounts")) {
msg.retValue().clear();
msg.retValue() << "module=" << name();
msg.retValue() << ",protocol=H323";
msg.retValue() << ",format=Username|Status;";
Lock lck(m_epMutex);
msg.retValue() << "accounts=" << m_endpoints.count();
if (!msg.getBoolValue("details",true)) {
msg.retValue() << "\r\n";
return;
}
for (ObjList* o = m_endpoints.skipNull(); o; o = o->skipNext()) {
YateH323EndPoint* ep = static_cast<YateH323EndPoint*>(o->get());
str.append(ep->c_str(),",") << "=";
str << (const char*)ep->GetLocalUserName() << "|";
str << (ep->IsRegisteredWithGatekeeper() ? "registered" : "not-registered");
}
msg.retValue().append(str,";");
msg.retValue() << "\r\n";
return;
}
}
Driver::msgStatus(msg);
}
bool H323Driver::handleEngineStop(Message& msg)
{
s_engineStop++;
dropAll(msg);
bool noHalt = false;
m_epMutex.lock();
ListIterator iter(m_endpoints);
for (GenObject* gen = 0; (0 != (gen = iter.get()));) {
m_epMutex.unlock();
YateH323EndPoint* ep = static_cast<YateH323EndPoint*>(gen);
ep->logout();
if (ep->IsRegisteredWithGatekeeper())
noHalt = true;
m_epMutex.lock();
}
m_epMutex.unlock();
// Don't stop if still have channels
if (!noHalt) {
Lock mylock(this);
noHalt = (0 != channels().skipNull());
}
// Don't stop if we still have threads
noHalt = noHalt || (0 != YateGkRegThread::s_count);
Debug(this,DebugAll,"Returning %s from %s handler",String::boolText(noHalt),msg.c_str());
return noHalt;
}
}; // anonymous namespace
/* vi: set ts=8 sw=4 sts=4 noet: */