5457 lines
152 KiB
C
Executable File
5457 lines
152 KiB
C
Executable File
/*
|
|
* Asterisk -- A telephony toolkit for Linux.
|
|
*
|
|
* Implementation of Session Initiation Protocol
|
|
*
|
|
* Copyright (C) 1999, Mark Spencer
|
|
*
|
|
* Mark Spencer <markster@linux-support.net>
|
|
*
|
|
* This program is free software, distributed under the terms of
|
|
* the GNU General Public License
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
#include <pthread.h>
|
|
#include <string.h>
|
|
#include <asterisk/lock.h>
|
|
#include <asterisk/channel.h>
|
|
#include <asterisk/channel_pvt.h>
|
|
#include <asterisk/config.h>
|
|
#include <asterisk/logger.h>
|
|
#include <asterisk/module.h>
|
|
#include <asterisk/pbx.h>
|
|
#include <asterisk/options.h>
|
|
#include <asterisk/lock.h>
|
|
#include <asterisk/sched.h>
|
|
#include <asterisk/io.h>
|
|
#include <asterisk/rtp.h>
|
|
#include <asterisk/acl.h>
|
|
#include <asterisk/callerid.h>
|
|
#include <asterisk/cli.h>
|
|
#include <asterisk/md5.h>
|
|
#include <asterisk/app.h>
|
|
#include <asterisk/musiconhold.h>
|
|
#include <asterisk/dsp.h>
|
|
#include <asterisk/parking.h>
|
|
#include <sys/socket.h>
|
|
#include <sys/ioctl.h>
|
|
#include <net/if.h>
|
|
#include <errno.h>
|
|
#include <unistd.h>
|
|
#include <stdlib.h>
|
|
#include <fcntl.h>
|
|
#include <netdb.h>
|
|
#include <arpa/inet.h>
|
|
#include <sys/signal.h>
|
|
#include <netinet/ip.h>
|
|
|
|
/* #define VOCAL_DATA_HACK */
|
|
|
|
#define SIPDUMPER
|
|
#define DEFAULT_DEFAULT_EXPIRY 120
|
|
#define DEFAULT_MAX_EXPIRY 3600
|
|
|
|
#define SIP_DTMF_RFC2833 (1 << 0)
|
|
#define SIP_DTMF_INBAND (1 << 1)
|
|
#define SIP_DTMF_INFO (1 << 2)
|
|
|
|
static int max_expiry = DEFAULT_MAX_EXPIRY;
|
|
static int default_expiry = DEFAULT_DEFAULT_EXPIRY;
|
|
|
|
#define DEFAULT_MAXMS 2000 /* Must be faster than 2 seconds by default */
|
|
|
|
#define DEFAULT_MAXMS 2000 /* Must be faster than 2 seconds by default */
|
|
#define DEFAULT_FREQ_OK 60 * 1000 /* How often to check for the host to be up */
|
|
#define DEFAULT_FREQ_NOTOK 10 * 1000 /* How often to check, if the host is down... */
|
|
|
|
#define DEFAULT_RETRANS 1000 /* How frequently to retransmit */
|
|
#define MAX_RETRANS 5 /* Try only 5 times for retransmissions */
|
|
|
|
static char *desc = "Session Initiation Protocol (SIP)";
|
|
static char *type = "sip";
|
|
static char *tdesc = "Session Initiation Protocol (SIP)";
|
|
static char *config = "sip.conf";
|
|
|
|
#define DEFAULT_SIP_PORT 5060 /* From RFC 2543 */
|
|
#define SIP_MAX_PACKET 1500 /* Also from RFC 2543, should sub headers tho */
|
|
|
|
static char context[AST_MAX_EXTENSION] = "default";
|
|
|
|
static char language[MAX_LANGUAGE] = "";
|
|
|
|
static char callerid[AST_MAX_EXTENSION] = "asterisk";
|
|
|
|
static char fromdomain[AST_MAX_EXTENSION] = "";
|
|
|
|
static int usecnt =0;
|
|
static pthread_mutex_t usecnt_lock = AST_MUTEX_INITIALIZER;
|
|
|
|
/* Protect the interface list (of sip_pvt's) */
|
|
static pthread_mutex_t iflock = AST_MUTEX_INITIALIZER;
|
|
|
|
/* Protect the monitoring thread, so only one process can kill or start it, and not
|
|
when it's doing something critical. */
|
|
static pthread_mutex_t netlock = AST_MUTEX_INITIALIZER;
|
|
|
|
static pthread_mutex_t monlock = AST_MUTEX_INITIALIZER;
|
|
|
|
/* This is the thread for the monitor which checks for input on the channels
|
|
which are not currently in use. */
|
|
static pthread_t monitor_thread = 0;
|
|
|
|
static int restart_monitor(void);
|
|
|
|
/* Codecs that we support by default: */
|
|
static int capability = AST_FORMAT_ULAW | AST_FORMAT_ALAW | AST_FORMAT_GSM;
|
|
static int noncodeccapability = AST_RTP_DTMF;
|
|
|
|
static char ourhost[256];
|
|
static struct in_addr __ourip;
|
|
static int ourport;
|
|
|
|
static int sipdebug = 0;
|
|
|
|
static int tos = 0;
|
|
|
|
static int globaldtmfmode = SIP_DTMF_RFC2833;
|
|
|
|
/* Expire slowly */
|
|
static int expiry = 900;
|
|
|
|
static struct sched_context *sched;
|
|
static struct io_context *io;
|
|
/* The private structures of the sip channels are linked for
|
|
selecting outgoing channels */
|
|
|
|
#define SIP_MAX_HEADERS 64
|
|
#define SIP_MAX_LINES 64
|
|
|
|
static struct sip_codec_pref {
|
|
int codec;
|
|
struct sip_codec_pref *next;
|
|
} *prefs;
|
|
|
|
struct sip_request {
|
|
char *rlPart1; /* SIP Method Name or "SIP/2.0" protocol version */
|
|
char *rlPart2; /* The Request URI or Response Status */
|
|
int len;
|
|
int headers; /* SIP Headers */
|
|
char *header[SIP_MAX_HEADERS];
|
|
int lines; /* SDP Content */
|
|
char *line[SIP_MAX_LINES];
|
|
char data[SIP_MAX_PACKET];
|
|
};
|
|
|
|
struct sip_pkt;
|
|
|
|
struct sip_route {
|
|
struct sip_route *next;
|
|
char hop[0];
|
|
};
|
|
|
|
static struct sip_pvt {
|
|
pthread_mutex_t lock; /* Channel private lock */
|
|
char callid[80]; /* Global CallID */
|
|
char randdata[80]; /* Random data */
|
|
unsigned int ocseq; /* Current outgoing seqno */
|
|
unsigned int icseq; /* Current incoming seqno */
|
|
unsigned int callgroup;
|
|
unsigned int pickupgroup;
|
|
int lastinvite; /* Last Cseq of invite */
|
|
int alreadygone; /* Whether or not we've already been destroyed by or peer */
|
|
int needdestroy; /* if we need to be destroyed */
|
|
int capability; /* Special capability */
|
|
int noncodeccapability;
|
|
int outgoing; /* Outgoing or incoming call? */
|
|
int insecure; /* Don't check source port/ip */
|
|
int expiry; /* How long we take to expire */
|
|
int branch; /* One random number */
|
|
int canreinvite; /* Do we support reinvite */
|
|
int progress; /* Have sent 183 message progress */
|
|
int tag; /* Another random number */
|
|
int nat; /* Whether to try to support NAT */
|
|
struct sockaddr_in sa; /* Our peer */
|
|
struct sockaddr_in recv; /* Received as */
|
|
struct in_addr ourip; /* Our IP */
|
|
struct ast_channel *owner; /* Who owns us */
|
|
char exten[AST_MAX_EXTENSION]; /* Extention where to start */
|
|
char refer_to[AST_MAX_EXTENSION]; /* Place to store REFER-TO extension */
|
|
char referred_by[AST_MAX_EXTENSION];/* Place to store REFERRED-BY extension */
|
|
char refer_contact[AST_MAX_EXTENSION];/* Place to store Contact info from a REFER extension */
|
|
struct sip_pvt *refer_call; /* Call we are referring */
|
|
struct sip_route *route; /* Head of linked list of routing steps (fm Record-Route) */
|
|
char remote_party_id[256];
|
|
char context[AST_MAX_EXTENSION];
|
|
char fromdomain[AST_MAX_EXTENSION]; /* Domain to show in the from field */
|
|
char fromuser[AST_MAX_EXTENSION]; /* Domain to show in the user field */
|
|
char language[MAX_LANGUAGE];
|
|
char theirtag[256]; /* Their tag */
|
|
char username[81];
|
|
char peername[81];
|
|
char peersecret[81];
|
|
char callerid[256]; /* Caller*ID */
|
|
char via[256];
|
|
char accountcode[256]; /* Account code */
|
|
char our_contact[256]; /* Our contact header */
|
|
char realm[256]; /* Authorization realm */
|
|
char nonce[256]; /* Authorization nonce */
|
|
int amaflags; /* AMA Flags */
|
|
int pendinginvite; /* Any pending invite */
|
|
int pendingbye; /* Need to send bye after we ack? */
|
|
struct sip_request initreq; /* Initial request */
|
|
|
|
int maxtime; /* Max time for first response */
|
|
int initid; /* Auto-congest ID if appropriate */
|
|
int autokillid; /* Auto-kill ID */
|
|
|
|
int subscribed;
|
|
int stateid;
|
|
int dialogver;
|
|
|
|
int dtmfmode;
|
|
struct ast_dsp *vad;
|
|
|
|
struct sip_peer *peerpoke; /* If this calls is to poke a peer, which one */
|
|
struct sip_registry *registry; /* If this is a REGISTER call, to which registry */
|
|
struct ast_rtp *rtp; /* RTP Session */
|
|
struct sip_pkt *packets; /* Packets scheduled for re-transmission */
|
|
struct sip_pvt *next;
|
|
} *iflist = NULL;
|
|
|
|
struct sip_pkt {
|
|
struct sip_pkt *next; /* Next packet */
|
|
int retrans; /* Retransmission number */
|
|
int seqno; /* Sequence number */
|
|
int resp; /* non-zero if this is a response packet (e.g. 200 OK) */
|
|
struct sip_pvt *owner; /* Owner call */
|
|
int retransid; /* Retransmission ID */
|
|
int packetlen; /* Length of packet */
|
|
char data[0];
|
|
};
|
|
|
|
struct sip_user {
|
|
/* Users who can access various contexts */
|
|
char name[80];
|
|
char secret[80];
|
|
char context[80];
|
|
char callerid[80];
|
|
char methods[80];
|
|
char accountcode[80];
|
|
unsigned int callgroup;
|
|
unsigned int pickupgroup;
|
|
int nat;
|
|
int hascallerid;
|
|
int amaflags;
|
|
int insecure;
|
|
int canreinvite;
|
|
int dtmfmode;
|
|
struct ast_ha *ha;
|
|
struct sip_user *next;
|
|
};
|
|
|
|
struct sip_peer {
|
|
char name[80];
|
|
char secret[80];
|
|
char context[80]; /* JK02: peers need context too to allow parking etc */
|
|
char methods[80];
|
|
char username[80];
|
|
char fromuser[80];
|
|
char fromdomain[80];
|
|
char mailbox[AST_MAX_EXTENSION];
|
|
int lastmsgssent;
|
|
time_t lastmsgcheck;
|
|
int dynamic;
|
|
int expire;
|
|
int expiry;
|
|
int capability;
|
|
int insecure;
|
|
int nat;
|
|
int canreinvite;
|
|
unsigned int callgroup;
|
|
unsigned int pickupgroup;
|
|
int dtmfmode;
|
|
struct sockaddr_in addr;
|
|
struct in_addr mask;
|
|
|
|
/* Qualification */
|
|
struct sip_pvt *call; /* Call pointer */
|
|
int pokeexpire; /* When to expire poke */
|
|
int lastms; /* How long last response took (in ms), or -1 for no response */
|
|
int maxms; /* Max ms we will accept for the host to be up, 0 to not monitor */
|
|
struct timeval ps; /* Ping send time */
|
|
|
|
struct sockaddr_in defaddr;
|
|
struct ast_ha *ha;
|
|
int delme;
|
|
int lastmsg;
|
|
struct sip_peer *next;
|
|
};
|
|
|
|
static struct ast_user_list {
|
|
struct sip_user *users;
|
|
pthread_mutex_t lock;
|
|
} userl = { NULL, AST_MUTEX_INITIALIZER };
|
|
|
|
static struct ast_peer_list {
|
|
struct sip_peer *peers;
|
|
pthread_mutex_t lock;
|
|
} peerl = { NULL, AST_MUTEX_INITIALIZER };
|
|
|
|
|
|
#define REG_STATE_UNREGISTERED 0
|
|
#define REG_STATE_REGSENT 1
|
|
#define REG_STATE_AUTHSENT 2
|
|
#define REG_STATE_REGISTERED 3
|
|
#define REG_STATE_REJECTED 4
|
|
#define REG_STATE_TIMEOUT 5
|
|
#define REG_STATE_NOAUTH 6
|
|
|
|
struct sip_registry {
|
|
pthread_mutex_t lock; /* Channel private lock */
|
|
struct sockaddr_in addr; /* Who we connect to for registration purposes */
|
|
char username[80];
|
|
char hostname[80];
|
|
char secret[80]; /* Password or key name in []'s */
|
|
char contact[80]; /* Contact extension */
|
|
char random[80];
|
|
int expire; /* Sched ID of expiration */
|
|
int timeout; /* sched id of sip_reg_timeout */
|
|
int refresh; /* How often to refresh */
|
|
struct sip_pvt *call; /* create a sip_pvt structure for each outbound "registration call" in progress */
|
|
int regstate;
|
|
int callid_valid; /* 0 means we haven't chosen callid for this registry yet. */
|
|
char callid[80]; /* Global CallID for this registry */
|
|
struct sockaddr_in us; /* Who the server thinks we are */
|
|
struct sip_registry *next;
|
|
};
|
|
|
|
#define REINVITE_INVITE 1
|
|
#define REINVITE_UPDATE 2
|
|
|
|
static int sip_do_register(struct sip_registry *r);
|
|
struct sip_registry *registrations;
|
|
|
|
static int sipsock = -1;
|
|
static int globalnat = 0;
|
|
|
|
static struct sockaddr_in bindaddr;
|
|
|
|
static struct ast_frame *sip_read(struct ast_channel *ast);
|
|
static int transmit_response(struct sip_pvt *p, char *msg, struct sip_request *req);
|
|
static int transmit_response_with_sdp(struct sip_pvt *p, char *msg, struct sip_request *req, int retrans);
|
|
static int transmit_response_with_auth(struct sip_pvt *p, char *msg, struct sip_request *req, char *rand, int reliable);
|
|
static int transmit_request(struct sip_pvt *p, char *msg, int inc, int reliable);
|
|
static int transmit_request_with_auth(struct sip_pvt *p, char *msg, int inc, int reliable);
|
|
static int transmit_invite(struct sip_pvt *p, char *msg, int sendsdp, char *auth, char *vxml_url);
|
|
static int transmit_reinvite_with_sdp(struct sip_pvt *p, struct ast_rtp *rtp);
|
|
static int transmit_info_with_digit(struct sip_pvt *p, char digit);
|
|
static int transmit_message_with_text(struct sip_pvt *p, char *text);
|
|
static int do_proxy_auth(struct sip_pvt *p, struct sip_request *req);
|
|
char *getsipuri(char *header);
|
|
static void free_old_route(struct sip_route *route);
|
|
static int build_reply_digest(struct sip_pvt *p, char *orig_header, char *digest, int digest_len);
|
|
|
|
static int __sip_xmit(struct sip_pvt *p, char *data, int len)
|
|
{
|
|
int res;
|
|
if (p->nat)
|
|
res=sendto(sipsock, data, len, 0, (struct sockaddr *)&p->recv, sizeof(struct sockaddr_in));
|
|
else
|
|
res=sendto(sipsock, data, len, 0, (struct sockaddr *)&p->sa, sizeof(struct sockaddr_in));
|
|
if (res != len) {
|
|
ast_log(LOG_WARNING, "sip_xmit of %p (len %d) to %s returned %d: %s\n", data, len, inet_ntoa(p->sa.sin_addr), res, strerror(errno));
|
|
}
|
|
return res;
|
|
}
|
|
|
|
static void sip_destroy(struct sip_pvt *p);
|
|
|
|
static int retrans_pkt(void *data)
|
|
{
|
|
struct sip_pkt *pkt=data;
|
|
int res = 0;
|
|
ast_pthread_mutex_lock(&pkt->owner->lock);
|
|
if (1 /* !p->owner->needdestroy */) {
|
|
if (pkt->retrans < MAX_RETRANS) {
|
|
pkt->retrans++;
|
|
if (sipdebug) {
|
|
if (pkt->owner->nat)
|
|
ast_verbose("Retransmitting #%d (NAT):\n%s\n to %s:%d\n", pkt->retrans, pkt->data, inet_ntoa(pkt->owner->recv.sin_addr), ntohs(pkt->owner->recv.sin_port));
|
|
else
|
|
ast_verbose("Retransmitting #%d (no NAT):\n%s\n to %s:%d\n", pkt->retrans, pkt->data, inet_ntoa(pkt->owner->sa.sin_addr), ntohs(pkt->owner->sa.sin_port));
|
|
}
|
|
__sip_xmit(pkt->owner, pkt->data, pkt->packetlen);
|
|
res = 1;
|
|
} else {
|
|
ast_log(LOG_WARNING, "Maximum retries exceeded on call %s for seqno %d (%s)\n", pkt->owner->callid, pkt->seqno, pkt->resp ? "Response" : "Request");
|
|
pkt->retransid = -1;
|
|
if (pkt->owner->owner) {
|
|
/* XXX Potential deadlocK?? XXX */
|
|
ast_queue_hangup(pkt->owner->owner, 1);
|
|
} else {
|
|
/* If no owner, destroy now */
|
|
ast_pthread_mutex_unlock(&pkt->owner->lock);
|
|
sip_destroy(pkt->owner);
|
|
pkt = NULL;
|
|
}
|
|
}
|
|
} else {
|
|
/* Don't bother retransmitting. It's about to be killed anyway */
|
|
pkt->retransid = -1;
|
|
if (pkt->owner->owner) {
|
|
/* XXX Potential deadlocK?? XXX */
|
|
ast_queue_hangup(pkt->owner->owner, 1);
|
|
} else {
|
|
/* If no owner, destroy now */
|
|
ast_pthread_mutex_unlock(&pkt->owner->lock);
|
|
sip_destroy(pkt->owner);
|
|
pkt=NULL;
|
|
}
|
|
}
|
|
if (pkt)
|
|
ast_pthread_mutex_unlock(&pkt->owner->lock);
|
|
return res;
|
|
}
|
|
|
|
static int __sip_reliable_xmit(struct sip_pvt *p, int seqno, int resp, char *data, int len)
|
|
{
|
|
struct sip_pkt *pkt;
|
|
pkt = malloc(sizeof(struct sip_pkt) + len);
|
|
if (!pkt)
|
|
return -1;
|
|
memset(pkt, 0, sizeof(struct sip_pkt));
|
|
memcpy(pkt->data, data, len);
|
|
pkt->packetlen = len;
|
|
pkt->next = p->packets;
|
|
pkt->owner = p;
|
|
pkt->seqno = seqno;
|
|
pkt->resp = resp;
|
|
/* Schedule retransmission */
|
|
pkt->retransid = ast_sched_add(sched, 1000, retrans_pkt, pkt);
|
|
pkt->next = p->packets;
|
|
p->packets = pkt;
|
|
__sip_xmit(pkt->owner, pkt->data, pkt->packetlen);
|
|
if (!strncasecmp(pkt->data, "INVITE", 6)) {
|
|
/* Note this is a pending invite */
|
|
p->pendinginvite = seqno;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int __sip_autodestruct(void *data)
|
|
{
|
|
struct sip_pvt *p = data;
|
|
p->autokillid = -1;
|
|
ast_log(LOG_DEBUG, "Auto destroying call '%s'\n", p->callid);
|
|
if (p->owner) {
|
|
ast_log(LOG_WARNING, "Autodestruct on call '%s' with owner in place\n", p->callid);
|
|
ast_queue_hangup(p->owner, 0);
|
|
} else {
|
|
sip_destroy(p);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int sip_scheddestroy(struct sip_pvt *p, int ms)
|
|
{
|
|
if (p->autokillid > -1)
|
|
ast_sched_del(sched, p->autokillid);
|
|
p->autokillid = ast_sched_add(sched, ms, __sip_autodestruct, p);
|
|
return 0;
|
|
}
|
|
|
|
static int sip_cancel_destroy(struct sip_pvt *p)
|
|
{
|
|
if (p->autokillid > -1)
|
|
ast_sched_del(sched, p->autokillid);
|
|
p->autokillid = -1;
|
|
return 0;
|
|
}
|
|
|
|
static int __sip_ack(struct sip_pvt *p, int seqno, int resp)
|
|
{
|
|
struct sip_pkt *cur, *prev = NULL;
|
|
int res = -1;
|
|
int resetinvite = 0;
|
|
cur = p->packets;
|
|
while(cur) {
|
|
if ((cur->seqno == seqno) && (cur->resp == resp)) {
|
|
if (!resp && (seqno == p->pendinginvite)) {
|
|
ast_log(LOG_DEBUG, "Acked pending invite %d\n", p->pendinginvite);
|
|
p->pendinginvite = 0;
|
|
resetinvite = 1;
|
|
}
|
|
/* this is our baby */
|
|
if (prev)
|
|
prev->next = cur->next;
|
|
else
|
|
p->packets = cur->next;
|
|
if (cur->retransid > -1)
|
|
ast_sched_del(sched, cur->retransid);
|
|
free(cur);
|
|
res = 0;
|
|
break;
|
|
}
|
|
prev = cur;
|
|
cur = cur->next;
|
|
}
|
|
ast_log(LOG_DEBUG, "Stopping retransmission on '%s' of %s %d: %s\n", p->callid, resp ? "Response" : "Request", seqno, res ? "Not Found" : "Found");
|
|
return res;
|
|
}
|
|
|
|
static int send_response(struct sip_pvt *p, struct sip_request *req, int reliable, int seqno)
|
|
{
|
|
int res;
|
|
if (sipdebug) {
|
|
if (p->nat)
|
|
ast_verbose("%sTransmitting (NAT):\n%s\n to %s:%d\n", reliable ? "Reliably " : "", req->data, inet_ntoa(p->recv.sin_addr), ntohs(p->recv.sin_port));
|
|
else
|
|
ast_verbose("%sTransmitting (no NAT):\n%s\n to %s:%d\n", reliable ? "Reliably " : "", req->data, inet_ntoa(p->sa.sin_addr), ntohs(p->sa.sin_port));
|
|
}
|
|
if (reliable)
|
|
res = __sip_reliable_xmit(p, seqno, 1, req->data, req->len);
|
|
else
|
|
res = __sip_xmit(p, req->data, req->len);
|
|
if (res > 0)
|
|
res = 0;
|
|
return res;
|
|
}
|
|
|
|
static int send_request(struct sip_pvt *p, struct sip_request *req, int reliable, int seqno)
|
|
{
|
|
int res;
|
|
if (sipdebug) {
|
|
if (p->nat)
|
|
ast_verbose("%sTransmitting:\n%s (NAT) to %s:%d\n", reliable ? "Reliably " : "", req->data, inet_ntoa(p->recv.sin_addr), ntohs(p->recv.sin_port));
|
|
else
|
|
ast_verbose("%sTransmitting:\n%s (no NAT) to %s:%d\n", reliable ? "Reliably " : "", req->data, inet_ntoa(p->sa.sin_addr), ntohs(p->sa.sin_port));
|
|
}
|
|
if (reliable)
|
|
res = __sip_reliable_xmit(p, seqno, 0, req->data, req->len);
|
|
else
|
|
res = __sip_xmit(p, req->data, req->len);
|
|
return res;
|
|
}
|
|
|
|
static char *ditch_braces(char *tmp)
|
|
{
|
|
char *c = tmp;
|
|
char *n;
|
|
c = tmp;
|
|
if ((n = strchr(tmp, '<')) ) {
|
|
c = n + 1;
|
|
while(*c && *c != '>') c++;
|
|
if (*c != '>') {
|
|
ast_log(LOG_WARNING, "No closing brace in '%s'\n", tmp);
|
|
} else {
|
|
*c = '\0';
|
|
}
|
|
return n+1;
|
|
}
|
|
return c;
|
|
}
|
|
|
|
static int sip_sendtext(struct ast_channel *ast, char *text)
|
|
{
|
|
struct sip_pvt *p = ast->pvt->pvt;
|
|
if (sipdebug)
|
|
ast_verbose("Sending text %s on %s\n", text, ast->name);
|
|
if (!p)
|
|
return -1;
|
|
if (!text || !strlen(text))
|
|
return 0;
|
|
if (sipdebug)
|
|
ast_verbose("Really sending text %s on %s\n", text, ast->name);
|
|
transmit_message_with_text(p, text);
|
|
return 0;
|
|
}
|
|
|
|
static int create_addr(struct sip_pvt *r, char *peer)
|
|
{
|
|
struct hostent *hp;
|
|
struct sip_peer *p;
|
|
int found=0;
|
|
r->sa.sin_family = AF_INET;
|
|
ast_pthread_mutex_lock(&peerl.lock);
|
|
p = peerl.peers;
|
|
while(p) {
|
|
if (!strcasecmp(p->name, peer)) {
|
|
found++;
|
|
r->capability = p->capability;
|
|
r->nat = p->nat;
|
|
if (r->rtp) {
|
|
ast_log(LOG_DEBUG, "Setting NAT on RTP to %d\n", r->nat);
|
|
ast_rtp_setnat(r->rtp, r->nat);
|
|
}
|
|
strncpy(r->peername, p->username, sizeof(r->peername)-1);
|
|
strncpy(r->peersecret, p->secret, sizeof(r->peersecret)-1);
|
|
strncpy(r->username, p->username, sizeof(r->username)-1);
|
|
if (strlen(p->fromdomain))
|
|
strncpy(r->fromdomain, p->fromdomain, sizeof(r->fromdomain)-1);
|
|
if (strlen(p->fromuser))
|
|
strncpy(r->fromuser, p->fromuser, sizeof(r->fromuser)-1);
|
|
r->insecure = p->insecure;
|
|
r->canreinvite = p->canreinvite;
|
|
r->maxtime = p->maxms;
|
|
r->callgroup = p->callgroup;
|
|
r->pickupgroup = p->pickupgroup;
|
|
if (p->dtmfmode) {
|
|
r->dtmfmode = p->dtmfmode;
|
|
if (r->dtmfmode & SIP_DTMF_RFC2833)
|
|
r->noncodeccapability |= AST_RTP_DTMF;
|
|
else
|
|
r->noncodeccapability &= ~AST_RTP_DTMF;
|
|
}
|
|
strncpy(r->context, p->context,sizeof(r->context)-1);
|
|
if ((p->addr.sin_addr.s_addr || p->defaddr.sin_addr.s_addr) &&
|
|
(!p->maxms || ((p->lastms > 0) && (p->lastms <= p->maxms)))) {
|
|
if (p->addr.sin_addr.s_addr) {
|
|
r->sa.sin_addr = p->addr.sin_addr;
|
|
r->sa.sin_port = p->addr.sin_port;
|
|
} else {
|
|
r->sa.sin_addr = p->defaddr.sin_addr;
|
|
r->sa.sin_port = p->defaddr.sin_port;
|
|
}
|
|
memcpy(&r->recv, &r->sa, sizeof(r->recv));
|
|
break;
|
|
}
|
|
}
|
|
p = p->next;
|
|
}
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
if (!p && !found) {
|
|
hp = gethostbyname(peer);
|
|
if (hp) {
|
|
memcpy(&r->sa.sin_addr, hp->h_addr, sizeof(r->sa.sin_addr));
|
|
r->sa.sin_port = htons(DEFAULT_SIP_PORT);
|
|
memcpy(&r->recv, &r->sa, sizeof(r->recv));
|
|
return 0;
|
|
} else {
|
|
ast_log(LOG_WARNING, "No such host: %s\n", peer);
|
|
return -1;
|
|
}
|
|
} else if (!p)
|
|
return -1;
|
|
else
|
|
return 0;
|
|
}
|
|
|
|
static int auto_congest(void *nothing)
|
|
{
|
|
struct sip_pvt *p = nothing;
|
|
ast_pthread_mutex_lock(&p->lock);
|
|
p->initid = -1;
|
|
if (p->owner) {
|
|
if (!pthread_mutex_trylock(&p->owner->lock)) {
|
|
ast_log(LOG_NOTICE, "Auto-congesting %s\n", p->owner->name);
|
|
ast_queue_control(p->owner, AST_CONTROL_CONGESTION, 0);
|
|
ast_pthread_mutex_unlock(&p->owner->lock);
|
|
}
|
|
}
|
|
ast_pthread_mutex_unlock(&p->lock);
|
|
return 0;
|
|
}
|
|
|
|
static void sip_prefs_free(void)
|
|
{
|
|
struct sip_codec_pref *cur, *next;
|
|
cur = prefs;
|
|
while(cur) {
|
|
next = cur->next;
|
|
free(cur);
|
|
cur = next;
|
|
}
|
|
prefs = NULL;
|
|
}
|
|
|
|
static void sip_pref_remove(int format)
|
|
{
|
|
struct sip_codec_pref *cur, *prev=NULL;
|
|
cur = prefs;
|
|
while(cur) {
|
|
if (cur->codec == format) {
|
|
if (prev)
|
|
prev->next = cur->next;
|
|
else
|
|
prefs = cur->next;
|
|
free(cur);
|
|
return;
|
|
}
|
|
prev = cur;
|
|
cur = cur->next;
|
|
}
|
|
}
|
|
|
|
static int sip_pref_append(int format)
|
|
{
|
|
struct sip_codec_pref *cur, *tmp;
|
|
sip_pref_remove(format);
|
|
tmp = (struct sip_codec_pref *)malloc(sizeof(struct sip_codec_pref));
|
|
if (!tmp)
|
|
return -1;
|
|
memset(tmp, 0, sizeof(struct sip_codec_pref));
|
|
tmp->codec = format;
|
|
if (prefs) {
|
|
cur = prefs;
|
|
while(cur->next)
|
|
cur = cur->next;
|
|
cur->next = tmp;
|
|
} else
|
|
prefs = tmp;
|
|
return 0;
|
|
}
|
|
|
|
static int sip_codec_choose(int formats)
|
|
{
|
|
struct sip_codec_pref *cur;
|
|
cur = prefs;
|
|
while(cur) {
|
|
if (formats & cur->codec)
|
|
return cur->codec;
|
|
cur = cur->next;
|
|
}
|
|
return ast_best_codec(formats);
|
|
}
|
|
|
|
static int sip_call(struct ast_channel *ast, char *dest, int timeout)
|
|
{
|
|
int res;
|
|
struct sip_pvt *p;
|
|
char *vxml_url = NULL;
|
|
struct varshead *headp;
|
|
struct ast_var_t *current;
|
|
|
|
p = ast->pvt->pvt;
|
|
if ((ast->_state != AST_STATE_DOWN) && (ast->_state != AST_STATE_RESERVED)) {
|
|
ast_log(LOG_WARNING, "sip_call called on %s, neither down nor reserved\n", ast->name);
|
|
return -1;
|
|
}
|
|
|
|
/* Check whether there is a VXML_URL variable */
|
|
headp=&ast->varshead;
|
|
AST_LIST_TRAVERSE(headp,current,entries) {
|
|
if (strcasecmp(ast_var_name(current),"VXML_URL")==0)
|
|
{
|
|
vxml_url = ast_var_value(current);
|
|
break;
|
|
}
|
|
}
|
|
|
|
res = 0;
|
|
p->outgoing = 1;
|
|
transmit_invite(p, "INVITE", 1, NULL, vxml_url);
|
|
if (p->maxtime) {
|
|
/* Initialize auto-congest time */
|
|
p->initid = ast_sched_add(sched, p->maxtime * 2, auto_congest, p);
|
|
}
|
|
return res;
|
|
}
|
|
|
|
static void __sip_destroy(struct sip_pvt *p, int lockowner)
|
|
{
|
|
struct sip_pvt *cur, *prev = NULL;
|
|
struct sip_pkt *cp;
|
|
if (sipdebug)
|
|
ast_log(LOG_DEBUG, "Destorying call '%s'\n", p->callid);
|
|
if (p->stateid > -1)
|
|
ast_extension_state_del(p->stateid, NULL);
|
|
if (p->initid > -1)
|
|
ast_sched_del(sched, p->initid);
|
|
if (p->autokillid > -1)
|
|
ast_sched_del(sched, p->autokillid);
|
|
|
|
if (p->rtp) {
|
|
ast_rtp_destroy(p->rtp);
|
|
}
|
|
if (p->route) {
|
|
free_old_route(p->route);
|
|
p->route = NULL;
|
|
}
|
|
/* Unlink us from the owner if we have one */
|
|
if (p->owner) {
|
|
if (lockowner)
|
|
ast_pthread_mutex_lock(&p->owner->lock);
|
|
ast_log(LOG_DEBUG, "Detaching from %s\n", p->owner->name);
|
|
p->owner->pvt->pvt = NULL;
|
|
if (lockowner)
|
|
ast_pthread_mutex_unlock(&p->owner->lock);
|
|
}
|
|
cur = iflist;
|
|
while(cur) {
|
|
if (cur == p) {
|
|
if (prev)
|
|
prev->next = cur->next;
|
|
else
|
|
iflist = cur->next;
|
|
break;
|
|
}
|
|
prev = cur;
|
|
cur = cur->next;
|
|
}
|
|
if (!cur) {
|
|
ast_log(LOG_WARNING, "%p is not in list?!?! \n", cur);
|
|
} else {
|
|
if (p->initid > -1)
|
|
ast_sched_del(sched, p->initid);
|
|
while((cp = p->packets)) {
|
|
p->packets = p->packets->next;
|
|
if (cp->retransid > -1)
|
|
ast_sched_del(sched, cp->retransid);
|
|
free(cp);
|
|
}
|
|
free(p);
|
|
}
|
|
}
|
|
static void sip_destroy(struct sip_pvt *p)
|
|
{
|
|
ast_pthread_mutex_lock(&iflock);
|
|
__sip_destroy(p, 1);
|
|
ast_pthread_mutex_unlock(&iflock);
|
|
}
|
|
|
|
/* Interface lookup code courtesy Tilghman of DrunkCoder.com. Thanks! */
|
|
|
|
struct my_ifreq {
|
|
char ifrn_name[IFNAMSIZ]; /* Interface name, e.g. "en0". */
|
|
struct sockaddr_in ifru_addr;
|
|
};
|
|
|
|
struct in_addr *lookup_iface(char *iface) {
|
|
int mysock;
|
|
int res;
|
|
static struct my_ifreq ifreq;
|
|
memset(&ifreq, 0, sizeof(ifreq));
|
|
strncpy(ifreq.ifrn_name,iface,sizeof(ifreq.ifrn_name) - 1);
|
|
|
|
mysock = socket(PF_INET,SOCK_DGRAM,IPPROTO_IP);
|
|
res = ioctl(mysock,SIOCGIFADDR,&ifreq);
|
|
|
|
close(mysock);
|
|
if (res < 0) {
|
|
ast_log(LOG_WARNING, "Unable to get IP of %s: %s\n", iface, strerror(errno));
|
|
return &__ourip;
|
|
}
|
|
return( (struct in_addr *) &ifreq.ifru_addr.sin_addr );
|
|
}
|
|
|
|
static struct in_addr *myaddrfor(struct in_addr *them)
|
|
{
|
|
FILE *PROC;
|
|
struct in_addr *temp = NULL;
|
|
unsigned int remote_ip;
|
|
char line[256];
|
|
remote_ip = them->s_addr;
|
|
|
|
PROC = fopen("/proc/net/route","r");
|
|
if (!PROC) {
|
|
/* If /proc/net/route doesn't exist, fall back to the old method */
|
|
return &__ourip;
|
|
}
|
|
/* First line contains headers */
|
|
fgets(line,sizeof(line),PROC);
|
|
|
|
while (!feof(PROC)) {
|
|
char iface[8];
|
|
unsigned int dest, gateway, mask;
|
|
int i,aoffset;
|
|
char *fields[40];
|
|
|
|
fgets(line,sizeof(line),PROC);
|
|
|
|
aoffset = 0;
|
|
for (i=0;i<sizeof(line);i++) {
|
|
char *boffset;
|
|
|
|
fields[aoffset++] = line + i;
|
|
boffset = strchr(line + i,'\t');
|
|
if (boffset == NULL) {
|
|
/* Exit loop */
|
|
break;
|
|
} else {
|
|
*boffset = '\0';
|
|
i = boffset - line;
|
|
}
|
|
}
|
|
|
|
sscanf(fields[0],"%s",iface);
|
|
sscanf(fields[1],"%x",&dest);
|
|
sscanf(fields[2],"%x",&gateway);
|
|
sscanf(fields[7],"%x",&mask);
|
|
#if 0
|
|
printf("Addr: %s %08x Dest: %08x Mask: %08x\n", inet_ntoa(*them), remote_ip, dest, mask);
|
|
#endif
|
|
if (((remote_ip & mask) ^ dest) == 0) {
|
|
if (sipdebug)
|
|
ast_verbose("Interface is %s\n",iface);
|
|
temp = lookup_iface(iface);
|
|
if (sipdebug)
|
|
ast_verbose("IP Address is %s\n",inet_ntoa(*temp));
|
|
break;
|
|
}
|
|
}
|
|
fclose(PROC);
|
|
if (!temp) {
|
|
ast_log(LOG_WARNING, "Couldn't figure out how to get to %s. Using default\n", inet_ntoa(*them));
|
|
temp = &__ourip;
|
|
}
|
|
return temp;
|
|
}
|
|
|
|
static int transmit_response_reliable(struct sip_pvt *p, char *msg, struct sip_request *req);
|
|
|
|
|
|
static int sip_hangup(struct ast_channel *ast)
|
|
{
|
|
struct sip_pvt *p = ast->pvt->pvt;
|
|
int needcancel = 0;
|
|
int needdestroy = 0;
|
|
if (option_debug)
|
|
ast_log(LOG_DEBUG, "sip_hangup(%s)\n", ast->name);
|
|
if (!ast->pvt->pvt) {
|
|
ast_log(LOG_DEBUG, "Asked to hangup channel not connected\n");
|
|
return 0;
|
|
}
|
|
ast_pthread_mutex_lock(&p->lock);
|
|
/* Determine how to disconnect */
|
|
if (p->owner != ast) {
|
|
ast_log(LOG_WARNING, "Huh? We aren't the owner?\n");
|
|
ast_pthread_mutex_unlock(&p->lock);
|
|
return 0;
|
|
}
|
|
if (!ast || (ast->_state != AST_STATE_UP))
|
|
needcancel = 1;
|
|
/* Disconnect */
|
|
p = ast->pvt->pvt;
|
|
if (p->vad) {
|
|
ast_dsp_free(p->vad);
|
|
}
|
|
p->owner = NULL;
|
|
ast->pvt->pvt = NULL;
|
|
|
|
needdestroy = 1;
|
|
/* Start the process if it's not already started */
|
|
if (!p->alreadygone && strlen(p->initreq.data)) {
|
|
if (needcancel) {
|
|
if (p->outgoing) {
|
|
transmit_request_with_auth(p, "CANCEL", p->ocseq, 1);
|
|
/* Actually don't destroy us yet, wait for the 487 on our original
|
|
INVITE, but do set an autodestruct just in case. */
|
|
needdestroy = 0;
|
|
sip_scheddestroy(p, 15000);
|
|
} else
|
|
transmit_response_reliable(p, "403 Forbidden", &p->initreq);
|
|
} else {
|
|
if (!p->pendinginvite) {
|
|
/* Send a hangup */
|
|
transmit_request_with_auth(p, "BYE", 0, 1);
|
|
} else {
|
|
/* Note we will need a BYE when this all settles out
|
|
but we can't send one while we have "INVITE" outstanding. */
|
|
p->pendingbye = 1;
|
|
}
|
|
}
|
|
}
|
|
p->needdestroy = needdestroy;
|
|
ast_pthread_mutex_unlock(&p->lock);
|
|
return 0;
|
|
}
|
|
|
|
static int sip_answer(struct ast_channel *ast)
|
|
{
|
|
int res = 0,fmt;
|
|
char *codec;
|
|
struct sip_pvt *p = ast->pvt->pvt;
|
|
|
|
|
|
if (ast->_state != AST_STATE_UP) {
|
|
|
|
|
|
|
|
codec=pbx_builtin_getvar_helper(p->owner,"SIP_CODEC");
|
|
if (codec) {
|
|
ast_log(LOG_NOTICE, "Changing codec to '%s' for this call because of ${SIP_CODEC) variable\n",codec);
|
|
fmt=ast_getformatbyname(codec);
|
|
if (fmt) {
|
|
p->capability=fmt;
|
|
} else ast_log(LOG_NOTICE, "Ignoring ${SIP_CODEC} variable because of unrecognized codec: %s\n",codec);
|
|
}
|
|
|
|
ast_setstate(ast, AST_STATE_UP);
|
|
if (option_debug)
|
|
ast_log(LOG_DEBUG, "sip_answer(%s)\n", ast->name);
|
|
res = transmit_response_with_sdp(p, "200 OK", &p->initreq, 1);
|
|
}
|
|
return res;
|
|
}
|
|
|
|
static int sip_write(struct ast_channel *ast, struct ast_frame *frame)
|
|
{
|
|
struct sip_pvt *p = ast->pvt->pvt;
|
|
int res = 0;
|
|
if (frame->frametype != AST_FRAME_VOICE) {
|
|
if (frame->frametype == AST_FRAME_IMAGE)
|
|
return 0;
|
|
else {
|
|
ast_log(LOG_WARNING, "Can't send %d type frames with SIP write\n", frame->frametype);
|
|
return 0;
|
|
}
|
|
} else {
|
|
if (!(frame->subclass & ast->nativeformats)) {
|
|
ast_log(LOG_WARNING, "Asked to transmit frame type %d, while native formats is %d (read/write = %d/%d)\n",
|
|
frame->subclass, ast->nativeformats, ast->readformat, ast->writeformat);
|
|
return -1;
|
|
}
|
|
}
|
|
if (p) {
|
|
ast_pthread_mutex_lock(&p->lock);
|
|
if (p->rtp) {
|
|
if ((ast->_state != AST_STATE_UP) && !p->progress && !p->outgoing) {
|
|
transmit_response_with_sdp(p, "183 Session Progress", &p->initreq, 0);
|
|
p->progress = 1;
|
|
}
|
|
res = ast_rtp_write(p->rtp, frame);
|
|
}
|
|
ast_pthread_mutex_unlock(&p->lock);
|
|
}
|
|
return res;
|
|
}
|
|
|
|
static int sip_fixup(struct ast_channel *oldchan, struct ast_channel *newchan)
|
|
{
|
|
struct sip_pvt *p = newchan->pvt->pvt;
|
|
ast_pthread_mutex_lock(&p->lock);
|
|
if (p->owner != oldchan) {
|
|
ast_log(LOG_WARNING, "old channel wasn't %p but was %p\n", oldchan, p->owner);
|
|
ast_pthread_mutex_unlock(&p->lock);
|
|
return -1;
|
|
}
|
|
p->owner = newchan;
|
|
ast_pthread_mutex_unlock(&p->lock);
|
|
return 0;
|
|
}
|
|
|
|
static int sip_senddigit(struct ast_channel *ast, char digit)
|
|
{
|
|
struct sip_pvt *p = ast->pvt->pvt;
|
|
if (p && (p->dtmfmode & SIP_DTMF_INFO)) {
|
|
transmit_info_with_digit(p, digit);
|
|
}
|
|
if (p && p->rtp && (p->dtmfmode & SIP_DTMF_RFC2833)) {
|
|
ast_rtp_senddigit(p->rtp, digit);
|
|
}
|
|
/* If in-band DTMF is desired, send that */
|
|
if (p->dtmfmode & SIP_DTMF_INBAND)
|
|
return -1;
|
|
return 0;
|
|
}
|
|
|
|
static int sip_indicate(struct ast_channel *ast, int condition)
|
|
{
|
|
struct sip_pvt *p = ast->pvt->pvt;
|
|
switch(condition) {
|
|
case AST_CONTROL_RINGING:
|
|
if (ast->_state == AST_STATE_RING) {
|
|
if (!p->progress) {
|
|
transmit_response(p, "180 Ringing", &p->initreq);
|
|
break;
|
|
} else {
|
|
/* Oops, we've sent progress tones. Let Asterisk do it instead */
|
|
}
|
|
}
|
|
return -1;
|
|
case AST_CONTROL_BUSY:
|
|
if (ast->_state != AST_STATE_UP) {
|
|
transmit_response(p, "600 Busy everywhere", &p->initreq);
|
|
p->alreadygone = 1;
|
|
ast_softhangup(ast, AST_SOFTHANGUP_DEV);
|
|
break;
|
|
}
|
|
return -1;
|
|
case AST_CONTROL_CONGESTION:
|
|
if (ast->_state != AST_STATE_UP) {
|
|
transmit_response(p, "486 Busy here", &p->initreq);
|
|
p->alreadygone = 1;
|
|
ast_softhangup(ast, AST_SOFTHANGUP_DEV);
|
|
break;
|
|
}
|
|
return -1;
|
|
case -1:
|
|
return -1;
|
|
default:
|
|
ast_log(LOG_WARNING, "Don't know how to indicate condition %d\n", condition);
|
|
return -1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
|
|
static struct ast_channel *sip_new(struct sip_pvt *i, int state, char *title)
|
|
{
|
|
struct ast_channel *tmp;
|
|
int fmt;
|
|
tmp = ast_channel_alloc(1);
|
|
if (tmp) {
|
|
/* Select our native format based on codec preference until we receive
|
|
something from another device to the contrary. */
|
|
if (i->capability)
|
|
tmp->nativeformats = sip_codec_choose(i->capability);
|
|
else
|
|
tmp->nativeformats = sip_codec_choose(capability);
|
|
fmt = ast_best_codec(tmp->nativeformats);
|
|
if (title)
|
|
snprintf(tmp->name, sizeof(tmp->name), "SIP/%s-%04x", title, rand() & 0xffff);
|
|
else
|
|
snprintf(tmp->name, sizeof(tmp->name), "SIP/%s:%d", inet_ntoa(i->sa.sin_addr), ntohs(i->sa.sin_port));
|
|
tmp->type = type;
|
|
if (i->dtmfmode & SIP_DTMF_INBAND) {
|
|
i->vad = ast_dsp_new();
|
|
ast_dsp_set_features(i->vad, DSP_FEATURE_DTMF_DETECT);
|
|
}
|
|
tmp->fds[0] = ast_rtp_fd(i->rtp);
|
|
ast_setstate(tmp, state);
|
|
if (state == AST_STATE_RING)
|
|
tmp->rings = 1;
|
|
tmp->adsicpe = AST_ADSI_UNAVAILABLE;
|
|
tmp->writeformat = fmt;
|
|
tmp->pvt->rawwriteformat = fmt;
|
|
tmp->readformat = fmt;
|
|
tmp->pvt->rawreadformat = fmt;
|
|
tmp->pvt->pvt = i;
|
|
tmp->pvt->send_text = sip_sendtext;
|
|
tmp->pvt->call = sip_call;
|
|
tmp->pvt->hangup = sip_hangup;
|
|
tmp->pvt->answer = sip_answer;
|
|
tmp->pvt->read = sip_read;
|
|
tmp->pvt->write = sip_write;
|
|
tmp->pvt->indicate = sip_indicate;
|
|
tmp->pvt->fixup = sip_fixup;
|
|
tmp->pvt->send_digit = sip_senddigit;
|
|
tmp->pvt->bridge = ast_rtp_bridge;
|
|
tmp->callgroup = i->callgroup;
|
|
tmp->pickupgroup = i->pickupgroup;
|
|
if (strlen(i->language))
|
|
strncpy(tmp->language, i->language, sizeof(tmp->language)-1);
|
|
i->owner = tmp;
|
|
ast_pthread_mutex_lock(&usecnt_lock);
|
|
usecnt++;
|
|
ast_pthread_mutex_unlock(&usecnt_lock);
|
|
ast_update_use_count();
|
|
strncpy(tmp->context, i->context, sizeof(tmp->context)-1);
|
|
strncpy(tmp->exten, i->exten, sizeof(tmp->exten)-1);
|
|
if (strlen(i->callerid))
|
|
tmp->callerid = strdup(i->callerid);
|
|
tmp->priority = 1;
|
|
if (state != AST_STATE_DOWN) {
|
|
if (ast_pbx_start(tmp)) {
|
|
ast_log(LOG_WARNING, "Unable to start PBX on %s\n", tmp->name);
|
|
ast_hangup(tmp);
|
|
tmp = NULL;
|
|
}
|
|
}
|
|
} else
|
|
ast_log(LOG_WARNING, "Unable to allocate channel structure\n");
|
|
return tmp;
|
|
}
|
|
|
|
static struct cfalias {
|
|
char *fullname;
|
|
char *shortname;
|
|
} aliases[] = {
|
|
{ "Content-Type", "c" },
|
|
{ "Content-Encoding", "e" },
|
|
{ "From", "f" },
|
|
{ "Call-ID", "i" },
|
|
{ "Contact", "m" },
|
|
{ "Content-Length", "l" },
|
|
{ "Subject", "s" },
|
|
{ "To", "t" },
|
|
{ "Via", "v" },
|
|
};
|
|
|
|
static char* get_sdp_by_line(char* line, char *name, int nameLen) {
|
|
if (strncasecmp(line, name, nameLen) == 0 && line[nameLen] == '=') {
|
|
char* r = line + nameLen + 1;
|
|
while (*r && (*r < 33)) ++r;
|
|
return r;
|
|
}
|
|
|
|
return "";
|
|
}
|
|
|
|
static char *get_sdp(struct sip_request *req, char *name) {
|
|
int x;
|
|
int len = strlen(name);
|
|
char *r;
|
|
|
|
for (x=0; x<req->lines; x++) {
|
|
r = get_sdp_by_line(req->line[x], name, len);
|
|
if (r[0] != '\0') return r;
|
|
}
|
|
return "";
|
|
}
|
|
|
|
static void sdpLineNum_iterator_init(int* iterator) {
|
|
*iterator = 0;
|
|
}
|
|
|
|
static char* get_sdp_iterate(int* iterator,
|
|
struct sip_request *req, char *name) {
|
|
int len = strlen(name);
|
|
char *r;
|
|
while (*iterator < req->lines) {
|
|
r = get_sdp_by_line(req->line[(*iterator)++], name, len);
|
|
if (r[0] != '\0') return r;
|
|
}
|
|
return "";
|
|
}
|
|
|
|
static char *__get_header(struct sip_request *req, char *name, int *start)
|
|
{
|
|
int x;
|
|
int len = strlen(name);
|
|
char *r;
|
|
for (x=*start;x<req->headers;x++) {
|
|
if (!strncasecmp(req->header[x], name, len) &&
|
|
(req->header[x][len] == ':')) {
|
|
r = req->header[x] + len + 1;
|
|
while(*r && (*r < 33))
|
|
r++;
|
|
*start = x+1;
|
|
return r;
|
|
}
|
|
}
|
|
/* Try aliases */
|
|
for (x=0;x<sizeof(aliases) / sizeof(aliases[0]); x++)
|
|
if (!strcasecmp(aliases[x].fullname, name))
|
|
return __get_header(req, aliases[x].shortname, start);
|
|
|
|
/* Don't return NULL, so get_header is always a valid pointer */
|
|
return "";
|
|
}
|
|
|
|
static char *get_header(struct sip_request *req, char *name)
|
|
{
|
|
int start = 0;
|
|
return __get_header(req, name, &start);
|
|
}
|
|
|
|
static struct ast_frame *sip_rtp_read(struct sip_pvt *p)
|
|
{
|
|
/* Retrieve audio/etc from channel. Assumes p->lock is already held. */
|
|
struct ast_frame *f;
|
|
static struct ast_frame null_frame = { AST_FRAME_NULL, };
|
|
f = ast_rtp_read(p->rtp);
|
|
/* Don't send RFC2833 if we're not supposed to */
|
|
if (f && (f->frametype == AST_FRAME_DTMF) && !(p->dtmfmode & SIP_DTMF_RFC2833))
|
|
return &null_frame;
|
|
if (p->owner) {
|
|
/* We already hold the channel lock */
|
|
if (f->frametype == AST_FRAME_VOICE) {
|
|
if (f->subclass != p->owner->nativeformats) {
|
|
ast_log(LOG_DEBUG, "Oooh, format changed to %d\n", f->subclass);
|
|
p->owner->nativeformats = f->subclass;
|
|
ast_set_read_format(p->owner, p->owner->readformat);
|
|
ast_set_write_format(p->owner, p->owner->writeformat);
|
|
}
|
|
if (p->dtmfmode & SIP_DTMF_INBAND) {
|
|
f = ast_dsp_process(p->owner,p->vad,f,0);
|
|
}
|
|
}
|
|
}
|
|
return f;
|
|
}
|
|
|
|
static struct ast_frame *sip_read(struct ast_channel *ast)
|
|
{
|
|
struct ast_frame *fr;
|
|
struct sip_pvt *p = ast->pvt->pvt;
|
|
ast_pthread_mutex_lock(&p->lock);
|
|
fr = sip_rtp_read(p);
|
|
ast_pthread_mutex_unlock(&p->lock);
|
|
return fr;
|
|
}
|
|
|
|
static void build_callid(char *callid, int len, struct in_addr ourip)
|
|
{
|
|
int res;
|
|
int val;
|
|
int x;
|
|
for (x=0;x<4;x++) {
|
|
val = rand();
|
|
res = snprintf(callid, len, "%08x", val);
|
|
len -= res;
|
|
callid += res;
|
|
}
|
|
/* It's not important that we really use our right IP here... */
|
|
snprintf(callid, len, "@%s", inet_ntoa(ourip));
|
|
}
|
|
|
|
static struct sip_pvt *sip_alloc(char *callid, struct sockaddr_in *sin, int useglobalnat)
|
|
{
|
|
struct sip_pvt *p;
|
|
|
|
p = malloc(sizeof(struct sip_pvt));
|
|
if (!p)
|
|
return NULL;
|
|
/* Keep track of stuff */
|
|
memset(p, 0, sizeof(struct sip_pvt));
|
|
p->initid = -1;
|
|
p->autokillid = -1;
|
|
p->stateid = -1;
|
|
p->rtp = ast_rtp_new(NULL, NULL);
|
|
p->branch = rand();
|
|
p->tag = rand();
|
|
|
|
/* Start with 101 instead of 1 */
|
|
p->ocseq = 101;
|
|
if (!p->rtp) {
|
|
ast_log(LOG_WARNING, "Unable to create RTP session: %s\n", strerror(errno));
|
|
free(p);
|
|
return NULL;
|
|
}
|
|
ast_rtp_settos(p->rtp, tos);
|
|
if (useglobalnat && sin) {
|
|
/* Setup NAT structure according to global settings if we have an address */
|
|
p->nat = globalnat;
|
|
memcpy(&p->recv, sin, sizeof(p->recv));
|
|
ast_rtp_setnat(p->rtp, p->nat);
|
|
}
|
|
ast_pthread_mutex_init(&p->lock);
|
|
#if 0
|
|
ast_rtp_set_data(p->rtp, p);
|
|
ast_rtp_set_callback(p->rtp, rtpready);
|
|
#endif
|
|
if (sin) {
|
|
memcpy(&p->sa, sin, sizeof(p->sa));
|
|
memcpy(&p->ourip, myaddrfor(&p->sa.sin_addr), sizeof(p->ourip));
|
|
} else {
|
|
memcpy(&p->ourip, &__ourip, sizeof(p->ourip));
|
|
}
|
|
snprintf(p->via, sizeof(p->via), "SIP/2.0/UDP %s:%d;branch=z9hG4bK%08x", inet_ntoa(p->ourip), ourport, p->branch);
|
|
if (!callid)
|
|
build_callid(p->callid, sizeof(p->callid), p->ourip);
|
|
else
|
|
strncpy(p->callid, callid, sizeof(p->callid) - 1);
|
|
/* Assume reinvite OK and via INVITE */
|
|
p->canreinvite = REINVITE_INVITE;
|
|
p->dtmfmode = globaldtmfmode;
|
|
if (p->dtmfmode & SIP_DTMF_RFC2833)
|
|
p->noncodeccapability |= AST_RTP_DTMF;
|
|
strncpy(p->context, context, sizeof(p->context) - 1);
|
|
strncpy(p->fromdomain, fromdomain, sizeof(p->fromdomain) - 1);
|
|
/* Add to list */
|
|
ast_pthread_mutex_lock(&iflock);
|
|
p->next = iflist;
|
|
iflist = p;
|
|
ast_pthread_mutex_unlock(&iflock);
|
|
if (option_debug)
|
|
ast_log(LOG_DEBUG, "Allocating new SIP call for %s\n", callid);
|
|
return p;
|
|
}
|
|
|
|
static struct sip_pvt *find_call(struct sip_request *req, struct sockaddr_in *sin)
|
|
{
|
|
struct sip_pvt *p;
|
|
char *callid;
|
|
callid = get_header(req, "Call-ID");
|
|
if (!strlen(callid)) {
|
|
ast_log(LOG_WARNING, "Call missing call ID from '%s'\n", inet_ntoa(sin->sin_addr));
|
|
return NULL;
|
|
}
|
|
ast_pthread_mutex_lock(&iflock);
|
|
p = iflist;
|
|
while(p) {
|
|
if (!strcmp(p->callid, callid)) {
|
|
/* Found the call */
|
|
#if 0
|
|
if (!p->insecure && ((p->sa.sin_addr.s_addr != sin->sin_addr.s_addr) ||
|
|
(p->sa.sin_port != sin->sin_port))) {
|
|
char orig[80];
|
|
char new[80];
|
|
snprintf(orig, sizeof(orig), "%s:%d", inet_ntoa(p->sa.sin_addr), ntohs(p->sa.sin_port));
|
|
snprintf(new, sizeof(new), "%s:%d", inet_ntoa(sin->sin_addr), ntohs(sin->sin_port));
|
|
ast_log(LOG_WARNING, "Looks like %s is trying to steal call '%s' from %s?\n", new, p->callid, orig);
|
|
ast_pthread_mutex_unlock(&iflock);
|
|
return NULL;
|
|
}
|
|
#endif
|
|
ast_pthread_mutex_lock(&p->lock);
|
|
ast_pthread_mutex_unlock(&iflock);
|
|
return p;
|
|
}
|
|
p = p->next;
|
|
}
|
|
ast_pthread_mutex_unlock(&iflock);
|
|
return sip_alloc(callid, sin, 1);
|
|
}
|
|
|
|
static int sip_register(char *value, int lineno)
|
|
{
|
|
struct sip_registry *reg;
|
|
char copy[256] = "";
|
|
char *username, *hostname, *secret;
|
|
char *porta;
|
|
char *contact;
|
|
char *stringp=NULL;
|
|
|
|
struct hostent *hp;
|
|
if (!value)
|
|
return -1;
|
|
strncpy(copy, value, sizeof(copy)-1);
|
|
stringp=copy;
|
|
username = stringp;
|
|
hostname = strrchr(stringp, '@');
|
|
if (hostname) {
|
|
*hostname = '\0';
|
|
hostname++;
|
|
}
|
|
if (!hostname) {
|
|
ast_log(LOG_WARNING, "Format for registration is user[:secret]@host[:port] at line %d", lineno);
|
|
return -1;
|
|
}
|
|
stringp=username;
|
|
username = strsep(&stringp, ":");
|
|
secret = strsep(&stringp, ":");
|
|
stringp = hostname;
|
|
hostname = strsep(&stringp, "/");
|
|
contact = strsep(&stringp, "/");
|
|
if (!contact || !strlen(contact))
|
|
contact = "s";
|
|
stringp=hostname;
|
|
hostname = strsep(&stringp, ":");
|
|
porta = strsep(&stringp, ":");
|
|
|
|
if (porta && !atoi(porta)) {
|
|
ast_log(LOG_WARNING, "%s is not a valid port number at line %d\n", porta, lineno);
|
|
return -1;
|
|
}
|
|
hp = gethostbyname(hostname);
|
|
if (!hp) {
|
|
ast_log(LOG_WARNING, "Host '%s' not found at line %d\n", hostname, lineno);
|
|
return -1;
|
|
}
|
|
reg = malloc(sizeof(struct sip_registry));
|
|
if (reg) {
|
|
memset(reg, 0, sizeof(struct sip_registry));
|
|
strncpy(reg->contact, contact, sizeof(reg->contact) - 1);
|
|
strncpy(reg->username, username, sizeof(reg->username)-1);
|
|
strncpy(reg->hostname, hostname, sizeof(reg->hostname)-1);
|
|
if (secret)
|
|
strncpy(reg->secret, secret, sizeof(reg->secret)-1);
|
|
reg->expire = -1;
|
|
reg->timeout = -1;
|
|
reg->refresh = default_expiry;
|
|
reg->addr.sin_family = AF_INET;
|
|
memcpy(®->addr.sin_addr, hp->h_addr, sizeof(®->addr.sin_addr));
|
|
reg->addr.sin_port = porta ? htons(atoi(porta)) : htons(DEFAULT_SIP_PORT);
|
|
reg->next = registrations;
|
|
reg->callid_valid = 0;
|
|
registrations = reg;
|
|
} else {
|
|
ast_log(LOG_ERROR, "Out of memory\n");
|
|
return -1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static void parse(struct sip_request *req)
|
|
{
|
|
/* Divide fields by NULL's */
|
|
char *c;
|
|
int f = 0;
|
|
c = req->data;
|
|
|
|
/* First header starts immediately */
|
|
req->header[f] = c;
|
|
while(*c) {
|
|
if (*c == '\n') {
|
|
/* We've got a new header */
|
|
*c = 0;
|
|
|
|
#if 0
|
|
printf("Header: %s (%d)\n", req->header[f], strlen(req->header[f]));
|
|
#endif
|
|
if (!strlen(req->header[f])) {
|
|
/* Line by itself means we're now in content */
|
|
c++;
|
|
break;
|
|
}
|
|
if (f >= SIP_MAX_HEADERS - 1) {
|
|
ast_log(LOG_WARNING, "Too many SIP headers...\n");
|
|
} else
|
|
f++;
|
|
req->header[f] = c + 1;
|
|
} else if (*c == '\r') {
|
|
/* Ignore but eliminate \r's */
|
|
*c = 0;
|
|
}
|
|
c++;
|
|
}
|
|
/* Check for last header */
|
|
if (strlen(req->header[f]))
|
|
f++;
|
|
req->headers = f;
|
|
/* Now we process any mime content */
|
|
f = 0;
|
|
req->line[f] = c;
|
|
while(*c) {
|
|
if (*c == '\n') {
|
|
/* We've got a new line */
|
|
*c = 0;
|
|
#if 0
|
|
printf("Line: %s (%d)\n", req->line[f], strlen(req->line[f]));
|
|
#endif
|
|
if (f >= SIP_MAX_LINES - 1) {
|
|
ast_log(LOG_WARNING, "Too many SDP lines...\n");
|
|
} else
|
|
f++;
|
|
req->line[f] = c + 1;
|
|
} else if (*c == '\r') {
|
|
/* Ignore and eliminate \r's */
|
|
*c = 0;
|
|
}
|
|
c++;
|
|
}
|
|
/* Check for last line */
|
|
if (strlen(req->line[f]))
|
|
f++;
|
|
req->lines = f;
|
|
if (sipdebug)
|
|
ast_verbose("%d headers, %d lines\n", req->headers, req->lines);
|
|
if (*c)
|
|
ast_log(LOG_WARNING, "Odd content, extra stuff left over ('%s')\n", c);
|
|
}
|
|
|
|
static int process_sdp(struct sip_pvt *p, struct sip_request *req)
|
|
{
|
|
char *m;
|
|
char *c;
|
|
char *a;
|
|
char host[258];
|
|
int len = -1;
|
|
int portno;
|
|
int peercapability, peernoncodeccapability;
|
|
struct sockaddr_in sin;
|
|
char *codecs;
|
|
struct hostent *hp;
|
|
int codec;
|
|
int iterator;
|
|
|
|
/* Get codec and RTP info from SDP */
|
|
if (strcasecmp(get_header(req, "Content-Type"), "application/sdp")) {
|
|
ast_log(LOG_NOTICE, "Content is '%s', not 'application/sdp'\n", get_header(req, "Content-Type"));
|
|
return -1;
|
|
}
|
|
m = get_sdp(req, "m");
|
|
c = get_sdp(req, "c");
|
|
if (!strlen(m) || !strlen(c)) {
|
|
ast_log(LOG_WARNING, "Insufficient information for SDP (m = '%s', c = '%s')\n", m, c);
|
|
return -1;
|
|
}
|
|
if (sscanf(c, "IN IP4 %256s", host) != 1) {
|
|
ast_log(LOG_WARNING, "Invalid host in c= line, '%s'\n", c);
|
|
return -1;
|
|
}
|
|
/* XXX This could block for a long time, and block the main thread! XXX */
|
|
hp = gethostbyname(host);
|
|
if (!hp) {
|
|
ast_log(LOG_WARNING, "Unable to lookup host in c= line, '%s'\n", c);
|
|
return -1;
|
|
}
|
|
if ((sscanf(m, "audio %d RTP/AVP %n", &portno, &len) != 1) || (len < 0)) {
|
|
ast_log(LOG_WARNING, "Unable to determine port number for RTP in '%s'\n", m);
|
|
return -1;
|
|
}
|
|
sin.sin_family = AF_INET;
|
|
memcpy(&sin.sin_addr, hp->h_addr, sizeof(sin.sin_addr));
|
|
sin.sin_port = htons(portno);
|
|
if (p->rtp)
|
|
ast_rtp_set_peer(p->rtp, &sin);
|
|
#if 0
|
|
printf("Peer RTP is at port %s:%d\n", inet_ntoa(sin.sin_addr), ntohs(sin.sin_port));
|
|
#endif
|
|
// Scan through the RTP payload types specified in a "m=" line:
|
|
ast_rtp_pt_clear(p->rtp);
|
|
codecs = m + len;
|
|
while(strlen(codecs)) {
|
|
if (sscanf(codecs, "%d%n", &codec, &len) != 1) {
|
|
ast_log(LOG_WARNING, "Error in codec string '%s'\n", codecs);
|
|
return -1;
|
|
}
|
|
ast_rtp_set_m_type(p->rtp, codec);
|
|
codecs += len;
|
|
/* Skip over any whitespace */
|
|
while(*codecs && (*codecs < 33)) codecs++;
|
|
}
|
|
|
|
// Next, scan through each "a=rtpmap:" line, noting each
|
|
// specified RTP payload type (with corresponding MIME subtype):
|
|
sdpLineNum_iterator_init(&iterator);
|
|
while ((a = get_sdp_iterate(&iterator, req, "a"))[0] != '\0') {
|
|
char* mimeSubtype = strdup(a); // ensures we have enough space
|
|
if (sscanf(a, "rtpmap: %u %[^/]/", &codec, mimeSubtype) != 2) continue;
|
|
// Note: should really look at the 'freq' and '#chans' params too
|
|
ast_rtp_set_rtpmap_type(p->rtp, codec, "audio", mimeSubtype);
|
|
free(mimeSubtype);
|
|
}
|
|
|
|
// Now gather all of the codecs that were asked for:
|
|
ast_rtp_get_current_formats(p->rtp,
|
|
&peercapability, &peernoncodeccapability);
|
|
p->capability = capability & peercapability;
|
|
p->noncodeccapability = noncodeccapability & peernoncodeccapability;
|
|
if (sipdebug) {
|
|
ast_verbose("Capabilities: us - %d, them - %d, combined - %d\n",
|
|
capability, peercapability, p->capability);
|
|
ast_verbose("Non-codec capabilities: us - %d, them - %d, combined - %d\n",
|
|
noncodeccapability, peernoncodeccapability,
|
|
p->noncodeccapability);
|
|
}
|
|
if (!p->capability) {
|
|
ast_log(LOG_WARNING, "No compatible codecs!\n");
|
|
return -1;
|
|
}
|
|
if (p->owner) {
|
|
if (!(p->owner->nativeformats & p->capability)) {
|
|
ast_log(LOG_DEBUG, "Oooh, we need to change our formats since our peer supports only %d and not %d\n", p->capability, p->owner->nativeformats);
|
|
p->owner->nativeformats = sip_codec_choose(p->capability);
|
|
ast_set_read_format(p->owner, p->owner->readformat);
|
|
ast_set_write_format(p->owner, p->owner->writeformat);
|
|
}
|
|
if (p->owner->bridge) {
|
|
/* Turn on/off music on hold if we are holding/unholding */
|
|
if (sin.sin_addr.s_addr) {
|
|
ast_moh_stop(p->owner->bridge);
|
|
} else {
|
|
ast_moh_start(p->owner->bridge, NULL);
|
|
}
|
|
}
|
|
}
|
|
return 0;
|
|
|
|
}
|
|
|
|
static int add_header(struct sip_request *req, char *var, char *value)
|
|
{
|
|
if (req->len >= sizeof(req->data) - 4) {
|
|
ast_log(LOG_WARNING, "Out of space, can't add anymore\n");
|
|
return -1;
|
|
}
|
|
if (req->lines) {
|
|
ast_log(LOG_WARNING, "Can't add more headers when lines have been added\n");
|
|
return -1;
|
|
}
|
|
req->header[req->headers] = req->data + req->len;
|
|
snprintf(req->header[req->headers], sizeof(req->data) - req->len - 4, "%s: %s\r\n", var, value);
|
|
req->len += strlen(req->header[req->headers]);
|
|
if (req->headers < SIP_MAX_HEADERS)
|
|
req->headers++;
|
|
else {
|
|
ast_log(LOG_WARNING, "Out of header space\n");
|
|
return -1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int add_blank_header(struct sip_request *req)
|
|
{
|
|
if (req->len >= sizeof(req->data) - 4) {
|
|
ast_log(LOG_WARNING, "Out of space, can't add anymore\n");
|
|
return -1;
|
|
}
|
|
if (req->lines) {
|
|
ast_log(LOG_WARNING, "Can't add more headers when lines have been added\n");
|
|
return -1;
|
|
}
|
|
req->header[req->headers] = req->data + req->len;
|
|
snprintf(req->header[req->headers], sizeof(req->data) - req->len, "\r\n");
|
|
req->len += strlen(req->header[req->headers]);
|
|
if (req->headers < SIP_MAX_HEADERS)
|
|
req->headers++;
|
|
else {
|
|
ast_log(LOG_WARNING, "Out of header space\n");
|
|
return -1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int add_line(struct sip_request *req, char *line)
|
|
{
|
|
if (req->len >= sizeof(req->data) - 4) {
|
|
ast_log(LOG_WARNING, "Out of space, can't add anymore\n");
|
|
return -1;
|
|
}
|
|
if (!req->lines) {
|
|
/* Add extra empty return */
|
|
snprintf(req->data + req->len, sizeof(req->data) - req->len, "\r\n");
|
|
req->len += strlen(req->data + req->len);
|
|
}
|
|
req->line[req->lines] = req->data + req->len;
|
|
snprintf(req->line[req->lines], sizeof(req->data) - req->len, "%s", line);
|
|
req->len += strlen(req->line[req->lines]);
|
|
if (req->lines < SIP_MAX_LINES)
|
|
req->lines++;
|
|
else {
|
|
ast_log(LOG_WARNING, "Out of line space\n");
|
|
return -1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int copy_header(struct sip_request *req, struct sip_request *orig, char *field)
|
|
{
|
|
char *tmp;
|
|
tmp = get_header(orig, field);
|
|
if (strlen(tmp)) {
|
|
/* Add what we're responding to */
|
|
return add_header(req, field, tmp);
|
|
}
|
|
ast_log(LOG_NOTICE, "No field '%s' present to copy\n", field);
|
|
return -1;
|
|
}
|
|
|
|
static int copy_all_header(struct sip_request *req, struct sip_request *orig, char *field)
|
|
{
|
|
char *tmp;
|
|
int start = 0;
|
|
int copied = 0;
|
|
for (;;) {
|
|
tmp = __get_header(orig, field, &start);
|
|
if (strlen(tmp)) {
|
|
/* Add what we're responding to */
|
|
add_header(req, field, tmp);
|
|
copied++;
|
|
} else
|
|
break;
|
|
}
|
|
return copied ? 0 : -1;
|
|
}
|
|
|
|
static int copy_via_headers(struct sip_pvt *p, struct sip_request *req, struct sip_request *orig, char *field)
|
|
{
|
|
char *tmp;
|
|
int start = 0;
|
|
int copied = 0;
|
|
char new[256];
|
|
for (;;) {
|
|
tmp = __get_header(orig, field, &start);
|
|
if (strlen(tmp)) {
|
|
if (!copied && p->nat) {
|
|
/* SLD: FIXME: Nice try, but the received= should not have a port */
|
|
/* SLD: FIXME: See RFC2543 BNF in Section 6.40.5 */
|
|
if (ntohs(p->recv.sin_port) != DEFAULT_SIP_PORT)
|
|
snprintf(new, sizeof(new), "%s;received=%s:%d", tmp, inet_ntoa(p->recv.sin_addr), ntohs(p->recv.sin_port));
|
|
else
|
|
snprintf(new, sizeof(new), "%s;received=%s", tmp, inet_ntoa(p->recv.sin_addr));
|
|
add_header(req, field, new);
|
|
} else {
|
|
/* Add what we're responding to */
|
|
add_header(req, field, tmp);
|
|
}
|
|
copied++;
|
|
} else
|
|
break;
|
|
}
|
|
if (!copied) {
|
|
ast_log(LOG_NOTICE, "No field '%s' present to copy\n", field);
|
|
return -1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/* Add Route: header into request per learned route */
|
|
static void add_route(struct sip_request *req, struct sip_route *route)
|
|
{
|
|
char r[256], *p;
|
|
int n, rem = 255; /* sizeof(r)-1: Room for terminating 0 */
|
|
|
|
if (!route) return;
|
|
|
|
p = r;
|
|
while (route) {
|
|
n = strlen(route->hop);
|
|
if ((n+3)>rem) break;
|
|
if (p != r) {
|
|
*p++ = ',';
|
|
--rem;
|
|
}
|
|
*p++ = '<';
|
|
strcpy(p, route->hop); p += n;
|
|
*p++ = '>';
|
|
rem -= (n+2);
|
|
route = route->next;
|
|
}
|
|
*p = '\0';
|
|
add_header(req, "Route", r);
|
|
}
|
|
|
|
static void set_destination(struct sip_pvt *p, char *uri)
|
|
{
|
|
char *h, *maddr, hostname[256];
|
|
int port, hn;
|
|
struct hostent *hp;
|
|
|
|
/* Parse uri to h (host) and port - uri is already just the part inside the <> */
|
|
/* general form we are expecting is sip[s]:username[:password]@host[:port][;...] */
|
|
|
|
if (sipdebug)
|
|
ast_verbose("set_destination: Parsing <%s> for address/port to send to\n", uri);
|
|
|
|
/* Find and parse hostname */
|
|
h = strchr(uri, '@');
|
|
if (h)
|
|
++h;
|
|
else {
|
|
h = uri;
|
|
if (strncmp(h, "sip:", 4) == 0)
|
|
h += 4;
|
|
else if (strncmp(h, "sips:", 5) == 0)
|
|
h += 5;
|
|
}
|
|
hn = strcspn(h, ":;>");
|
|
if (hn>255) hn=255;
|
|
strncpy(hostname, h, hn); hostname[hn] = '\0';
|
|
h+=hn;
|
|
|
|
/* Is "port" present? if not default to 5060 */
|
|
if (*h == ':') {
|
|
/* Parse port */
|
|
++h;
|
|
port = strtol(h, &h, 10);
|
|
}
|
|
else
|
|
port = 5060;
|
|
|
|
/* Got the hostname:port - but maybe there's a "maddr=" to override address? */
|
|
maddr = strstr(h, "maddr=");
|
|
if (maddr) {
|
|
maddr += 6;
|
|
hn = strspn(maddr, "0123456789.");
|
|
if (hn>255) hn=255;
|
|
strncpy(hostname, maddr, hn); hostname[hn] = '\0';
|
|
}
|
|
|
|
hp = gethostbyname(hostname);
|
|
if (hp == NULL) {
|
|
ast_log(LOG_WARNING, "Can't find address for host '%s'\n", hostname);
|
|
return;
|
|
}
|
|
p->sa.sin_family = AF_INET;
|
|
memcpy(&p->sa.sin_addr, hp->h_addr, sizeof(p->sa.sin_addr));
|
|
p->sa.sin_port = htons(port);
|
|
if (sipdebug)
|
|
ast_verbose("set_destination: set destination to %s, port %d\n", inet_ntoa(p->sa.sin_addr), port);
|
|
}
|
|
|
|
static int init_resp(struct sip_request *req, char *resp, struct sip_request *orig)
|
|
{
|
|
/* Initialize a response */
|
|
if (req->headers || req->len) {
|
|
ast_log(LOG_WARNING, "Request already initialized?!?\n");
|
|
return -1;
|
|
}
|
|
req->header[req->headers] = req->data + req->len;
|
|
snprintf(req->header[req->headers], sizeof(req->data) - req->len, "SIP/2.0 %s\r\n", resp);
|
|
req->len += strlen(req->header[req->headers]);
|
|
if (req->headers < SIP_MAX_HEADERS)
|
|
req->headers++;
|
|
else
|
|
ast_log(LOG_WARNING, "Out of header space\n");
|
|
return 0;
|
|
}
|
|
|
|
static int init_req(struct sip_request *req, char *resp, char *recip)
|
|
{
|
|
/* Initialize a response */
|
|
if (req->headers || req->len) {
|
|
ast_log(LOG_WARNING, "Request already initialized?!?\n");
|
|
return -1;
|
|
}
|
|
req->header[req->headers] = req->data + req->len;
|
|
snprintf(req->header[req->headers], sizeof(req->data) - req->len, "%s %s SIP/2.0\r\n", resp, recip);
|
|
req->len += strlen(req->header[req->headers]);
|
|
if (req->headers < SIP_MAX_HEADERS)
|
|
req->headers++;
|
|
else
|
|
ast_log(LOG_WARNING, "Out of header space\n");
|
|
return 0;
|
|
}
|
|
|
|
static int respprep(struct sip_request *resp, struct sip_pvt *p, char *msg, struct sip_request *req)
|
|
{
|
|
char newto[256] = "", *ot;
|
|
memset(resp, 0, sizeof(*resp));
|
|
init_resp(resp, msg, req);
|
|
copy_via_headers(p, resp, req, "Via");
|
|
if (msg[0] == '2') copy_all_header(resp, req, "Record-Route");
|
|
copy_header(resp, req, "From");
|
|
ot = get_header(req, "To");
|
|
if (!strstr(ot, "tag=")) {
|
|
/* Add the proper tag if we don't have it already. If they have specified
|
|
their tag, use it. Otherwise, use our own tag */
|
|
if (strlen(p->theirtag) && p->outgoing)
|
|
snprintf(newto, sizeof(newto), "%s;tag=%s", ot, p->theirtag);
|
|
else if (p->tag && !p->outgoing)
|
|
snprintf(newto, sizeof(newto), "%s;tag=as%08x", ot, p->tag);
|
|
else
|
|
strncpy(newto, ot, sizeof(newto) - 1);
|
|
ot = newto;
|
|
}
|
|
add_header(resp, "To", ot);
|
|
copy_header(resp, req, "Call-ID");
|
|
copy_header(resp, req, "CSeq");
|
|
add_header(resp, "User-Agent", "Asterisk PBX");
|
|
if (p->expiry) {
|
|
/* For registration responses, we also need expiry and
|
|
contact info */
|
|
char contact[256];
|
|
char tmp[256];
|
|
snprintf(contact, sizeof(contact), "%s;expires=%d", p->our_contact, p->expiry);
|
|
snprintf(tmp, sizeof(tmp), "%d", p->expiry);
|
|
add_header(resp, "Expires", tmp);
|
|
add_header(resp, "Contact", contact);
|
|
} else {
|
|
add_header(resp, "Contact", p->our_contact);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int reqprep(struct sip_request *req, struct sip_pvt *p, char *msg, int seqno)
|
|
{
|
|
struct sip_request *orig = &p->initreq;
|
|
char stripped[80] ="";
|
|
char tmp[80];
|
|
char newto[256];
|
|
char *c, *n;
|
|
char *ot, *of;
|
|
|
|
memset(req, 0, sizeof(struct sip_request));
|
|
|
|
if (!seqno) {
|
|
p->ocseq++;
|
|
seqno = p->ocseq;
|
|
}
|
|
|
|
if (p->outgoing)
|
|
strncpy(stripped, get_header(orig, "To"), sizeof(stripped) - 1);
|
|
else
|
|
strncpy(stripped, get_header(orig, "From"), sizeof(stripped) - 1);
|
|
|
|
c = strchr(stripped, '<');
|
|
if (c)
|
|
c++;
|
|
else
|
|
c = stripped;
|
|
n = strchr(c, '>');
|
|
if (n)
|
|
*n = '\0';
|
|
n = strchr(c, ';');
|
|
if (n)
|
|
*n = '\0';
|
|
|
|
init_req(req, msg, c);
|
|
|
|
snprintf(tmp, sizeof(tmp), "%d %s", seqno, msg);
|
|
|
|
add_header(req, "Via", p->via);
|
|
if (p->route) {
|
|
set_destination(p, p->route->hop);
|
|
add_route(req, p->route->next);
|
|
}
|
|
|
|
ot = get_header(orig, "To");
|
|
of = get_header(orig, "From");
|
|
|
|
/* Add tag *unless* this is a CANCEL, in which case we need to send it exactly
|
|
as our original request, including tag (or presumably lack thereof) */
|
|
if (!strstr(ot, "tag=") && strcasecmp(msg, "CANCEL")) {
|
|
/* Add the proper tag if we don't have it already. If they have specified
|
|
their tag, use it. Otherwise, use our own tag */
|
|
if (p->outgoing && strlen(p->theirtag))
|
|
snprintf(newto, sizeof(newto), "%s;tag=%s", ot, p->theirtag);
|
|
else if (!p->outgoing)
|
|
snprintf(newto, sizeof(newto), "%s;tag=as%08x", ot, p->tag);
|
|
else
|
|
snprintf(newto, sizeof(newto), "%s", ot);
|
|
ot = newto;
|
|
}
|
|
|
|
if (p->outgoing) {
|
|
add_header(req, "From", of);
|
|
add_header(req, "To", ot);
|
|
} else {
|
|
add_header(req, "From", ot);
|
|
add_header(req, "To", of);
|
|
}
|
|
add_header(req, "Contact", p->our_contact);
|
|
copy_header(req, orig, "Call-ID");
|
|
add_header(req, "CSeq", tmp);
|
|
|
|
add_header(req, "User-Agent", "Asterisk PBX");
|
|
return 0;
|
|
}
|
|
|
|
static int __transmit_response(struct sip_pvt *p, char *msg, struct sip_request *req, int reliable)
|
|
{
|
|
struct sip_request resp;
|
|
int seqno = 0;
|
|
if (reliable && (sscanf(get_header(req, "CSeq"), "%i ", &seqno) != 1)) {
|
|
ast_log(LOG_WARNING, "Unable to determine sequence number from '%s'\n", get_header(req, "CSeq"));
|
|
return -1;
|
|
}
|
|
respprep(&resp, p, msg, req);
|
|
add_header(&resp, "Content-Length", "0");
|
|
add_blank_header(&resp);
|
|
return send_response(p, &resp, reliable, seqno);
|
|
}
|
|
|
|
static int transmit_response(struct sip_pvt *p, char *msg, struct sip_request *req)
|
|
{
|
|
return __transmit_response(p, msg, req, 0);
|
|
}
|
|
static int transmit_response_reliable(struct sip_pvt *p, char *msg, struct sip_request *req)
|
|
{
|
|
return __transmit_response(p, msg, req, 1);
|
|
}
|
|
|
|
static void append_date(struct sip_request *req)
|
|
{
|
|
char tmpdat[256];
|
|
struct tm tm;
|
|
time_t t;
|
|
time(&t);
|
|
gmtime_r(&t, &tm);
|
|
strftime(tmpdat, sizeof(tmpdat), "%a, %d %b %Y %T GMT", &tm);
|
|
add_header(req, "Date", tmpdat);
|
|
}
|
|
|
|
static int transmit_response_with_date(struct sip_pvt *p, char *msg, struct sip_request *req)
|
|
{
|
|
struct sip_request resp;
|
|
respprep(&resp, p, msg, req);
|
|
append_date(&resp);
|
|
add_header(&resp, "Content-Length", "0");
|
|
add_blank_header(&resp);
|
|
return send_response(p, &resp, 0, 0);
|
|
}
|
|
|
|
static int transmit_response_with_allow(struct sip_pvt *p, char *msg, struct sip_request *req)
|
|
{
|
|
struct sip_request resp;
|
|
respprep(&resp, p, msg, req);
|
|
add_header(&resp, "Allow", "INVITE, ACK, CANCEL, OPTIONS, BYE, REFER");
|
|
add_header(&resp, "Accept", "application/sdp");
|
|
add_header(&resp, "Content-Length", "0");
|
|
add_blank_header(&resp);
|
|
return send_response(p, &resp, 0, 0);
|
|
}
|
|
|
|
static int transmit_response_with_auth(struct sip_pvt *p, char *msg, struct sip_request *req, char *randdata, int reliable)
|
|
{
|
|
struct sip_request resp;
|
|
char tmp[256];
|
|
int seqno = 0;
|
|
if (reliable && (sscanf(get_header(req, "CSeq"), "%i ", &seqno) != 1)) {
|
|
ast_log(LOG_WARNING, "Unable to determine sequence number from '%s'\n", get_header(req, "CSeq"));
|
|
return -1;
|
|
}
|
|
snprintf(tmp, sizeof(tmp), "Digest realm=\"asterisk\", nonce=\"%s\"", randdata);
|
|
respprep(&resp, p, msg, req);
|
|
add_header(&resp, "Proxy-Authenticate", tmp);
|
|
add_header(&resp, "Content-Length", "0");
|
|
add_blank_header(&resp);
|
|
return send_response(p, &resp, reliable, seqno);
|
|
}
|
|
|
|
static int add_text(struct sip_request *req, char *text)
|
|
{
|
|
/* XXX Convert \n's to \r\n's XXX */
|
|
int len = strlen(text);
|
|
char clen[256];
|
|
snprintf(clen, sizeof(clen), "%d", len);
|
|
add_header(req, "Content-Type", "text/plain");
|
|
add_header(req, "Content-Length", clen);
|
|
add_line(req, text);
|
|
return 0;
|
|
}
|
|
|
|
static int add_digit(struct sip_request *req, char digit)
|
|
{
|
|
char tmp[256];
|
|
int len;
|
|
char clen[256];
|
|
snprintf(tmp, sizeof(tmp), "Signal=%c\r\nDuration=250\r\n", digit);
|
|
len = strlen(tmp);
|
|
snprintf(clen, sizeof(clen), "%d", len);
|
|
add_header(req, "Content-Type", "application/dtmf-relay");
|
|
add_header(req, "Content-Length", clen);
|
|
add_line(req, tmp);
|
|
return 0;
|
|
}
|
|
|
|
static int add_sdp(struct sip_request *resp, struct sip_pvt *p, struct ast_rtp *rtp)
|
|
{
|
|
int len;
|
|
int codec;
|
|
int alreadysent = 0;
|
|
char costr[80];
|
|
struct sockaddr_in sin;
|
|
struct sip_codec_pref *cur;
|
|
char v[256];
|
|
char s[256];
|
|
char o[256];
|
|
char c[256];
|
|
char t[256];
|
|
char m[256];
|
|
char a[1024] = "";
|
|
int x;
|
|
struct sockaddr_in dest;
|
|
/* XXX We break with the "recommendation" and send our IP, in order that our
|
|
peer doesn't have to gethostbyname() us XXX */
|
|
len = 0;
|
|
if (!p->rtp) {
|
|
ast_log(LOG_WARNING, "No way to add SDP without an RTP structure\n");
|
|
return -1;
|
|
}
|
|
ast_rtp_get_us(p->rtp, &sin);
|
|
if (rtp) {
|
|
ast_rtp_get_peer(rtp, &dest);
|
|
} else {
|
|
dest.sin_addr = p->ourip;
|
|
dest.sin_port = sin.sin_port;
|
|
}
|
|
if (sipdebug)
|
|
ast_verbose("We're at %s port %d\n", inet_ntoa(p->ourip), ntohs(sin.sin_port));
|
|
snprintf(v, sizeof(v), "v=0\r\n");
|
|
snprintf(o, sizeof(o), "o=root %d %d IN IP4 %s\r\n", getpid(), getpid(), inet_ntoa(dest.sin_addr));
|
|
snprintf(s, sizeof(s), "s=session\r\n");
|
|
snprintf(c, sizeof(c), "c=IN IP4 %s\r\n", inet_ntoa(dest.sin_addr));
|
|
snprintf(t, sizeof(t), "t=0 0\r\n");
|
|
snprintf(m, sizeof(m), "m=audio %d RTP/AVP", ntohs(dest.sin_port));
|
|
/* Start by sending our preferred codecs */
|
|
cur = prefs;
|
|
while(cur) {
|
|
if (p->capability & cur->codec) {
|
|
if (sipdebug)
|
|
ast_verbose("Answering with preferred capability %d\n", cur->codec);
|
|
codec = ast_rtp_lookup_code(p->rtp, 1, cur->codec);
|
|
if (codec > -1) {
|
|
snprintf(costr, sizeof(costr), " %d", codec);
|
|
strcat(m, costr);
|
|
snprintf(costr, sizeof(costr), "a=rtpmap:%d %s/8000\r\n", codec, ast_rtp_lookup_mime_subtype(1, cur->codec));
|
|
strcat(a, costr);
|
|
}
|
|
}
|
|
alreadysent |= cur->codec;
|
|
cur = cur->next;
|
|
}
|
|
/* Now send any other common codecs, and non-codec formats: */
|
|
for (x = 1; x <= AST_FORMAT_MAX_AUDIO; x <<= 1) {
|
|
if ((p->capability & x) && !(alreadysent & x)) {
|
|
if (sipdebug)
|
|
ast_verbose("Answering with capability %d\n", x);
|
|
codec = ast_rtp_lookup_code(p->rtp, 1, x);
|
|
if (codec > -1) {
|
|
snprintf(costr, sizeof(costr), " %d", codec);
|
|
strcat(m, costr);
|
|
snprintf(costr, sizeof(costr), "a=rtpmap:%d %s/8000\r\n", codec, ast_rtp_lookup_mime_subtype(1, x));
|
|
strcat(a, costr);
|
|
}
|
|
}
|
|
}
|
|
for (x = 1; x <= AST_RTP_MAX; x <<= 1) {
|
|
if (p->noncodeccapability & x) {
|
|
if (sipdebug)
|
|
ast_verbose("Answering with non-codec capability %d\n", x);
|
|
codec = ast_rtp_lookup_code(p->rtp, 0, x);
|
|
if (codec > -1) {
|
|
snprintf(costr, sizeof(costr), " %d", codec);
|
|
strcat(m, costr);
|
|
snprintf(costr, sizeof(costr), "a=rtpmap:%d %s/8000\r\n", codec, ast_rtp_lookup_mime_subtype(0, x));
|
|
strcat(a, costr);
|
|
if (x == AST_RTP_DTMF) {
|
|
/* Indicate we support DTMF... Not sure about 16, but MSN supports it so dang it, we will too... */
|
|
snprintf(costr, sizeof costr, "a=fmtp:%d 0-16\r\n",
|
|
codec);
|
|
strcat(a, costr);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
strcat(m, "\r\n");
|
|
len = strlen(v) + strlen(s) + strlen(o) + strlen(c) + strlen(t) + strlen(m) + strlen(a);
|
|
snprintf(costr, sizeof(costr), "%d", len);
|
|
add_header(resp, "Content-Type", "application/sdp");
|
|
add_header(resp, "Content-Length", costr);
|
|
add_line(resp, v);
|
|
add_line(resp, o);
|
|
add_line(resp, s);
|
|
add_line(resp, c);
|
|
add_line(resp, t);
|
|
add_line(resp, m);
|
|
add_line(resp, a);
|
|
return 0;
|
|
}
|
|
|
|
static void copy_request(struct sip_request *dst,struct sip_request *src)
|
|
{
|
|
long offset;
|
|
int x;
|
|
offset = ((void *)dst) - ((void *)src);
|
|
/* First copy stuff */
|
|
memcpy(dst, src, sizeof(*dst));
|
|
/* Now fix pointer arithmetic */
|
|
for (x=0;x<src->headers;x++)
|
|
dst->header[x] += offset;
|
|
for (x=0;x<src->lines;x++)
|
|
dst->line[x] += offset;
|
|
}
|
|
|
|
static int transmit_response_with_sdp(struct sip_pvt *p, char *msg, struct sip_request *req, int retrans)
|
|
{
|
|
struct sip_request resp;
|
|
int seqno;
|
|
if (sscanf(get_header(req, "CSeq"), "%i ", &seqno) != 1) {
|
|
ast_log(LOG_WARNING, "Unable to get seqno from '%s'\n", get_header(req, "CSeq"));
|
|
return -1;
|
|
}
|
|
respprep(&resp, p, msg, req);
|
|
add_sdp(&resp, p, NULL);
|
|
return send_response(p, &resp, retrans, seqno);
|
|
}
|
|
|
|
static int transmit_reinvite_with_sdp(struct sip_pvt *p, struct ast_rtp *rtp)
|
|
{
|
|
struct sip_request req;
|
|
if (p->canreinvite == REINVITE_UPDATE)
|
|
reqprep(&req, p, "UPDATE", 0);
|
|
else
|
|
reqprep(&req, p, "INVITE", 0);
|
|
add_sdp(&req, p, rtp);
|
|
/* Use this as the basis */
|
|
copy_request(&p->initreq, &req);
|
|
parse(&p->initreq);
|
|
p->lastinvite = p->ocseq;
|
|
p->outgoing = 1;
|
|
return send_request(p, &req, 1, p->ocseq);
|
|
}
|
|
|
|
static void build_contact(struct sip_pvt *p)
|
|
{
|
|
/* Construct Contact: header */
|
|
if (ourport != 5060)
|
|
snprintf(p->our_contact, sizeof(p->our_contact), "<sip:%s@%s:%d>", p->exten, inet_ntoa(p->ourip), ourport);
|
|
else
|
|
snprintf(p->our_contact, sizeof(p->our_contact), "<sip:%s@%s>", p->exten, inet_ntoa(p->ourip));
|
|
}
|
|
|
|
static void initreqprep(struct sip_request *req, struct sip_pvt *p, char *cmd, char *vxml_url)
|
|
{
|
|
char invite[256];
|
|
char from[256];
|
|
char to[256];
|
|
char tmp[80];
|
|
char cid[256];
|
|
char *l = callerid, *n=NULL;
|
|
if (p->owner && p->owner->callerid) {
|
|
strcpy(cid, p->owner->callerid);
|
|
ast_callerid_parse(cid, &n, &l);
|
|
if (l)
|
|
ast_shrink_phone_number(l);
|
|
if (!l || !ast_isphonenumber(l))
|
|
l = callerid;
|
|
}
|
|
if (!n || !strlen(n))
|
|
n = l;
|
|
/* Allow user to be overridden */
|
|
if (strlen(p->fromuser))
|
|
l = p->fromuser;
|
|
|
|
if ((ourport != 5060) && !strlen(p->fromdomain))
|
|
snprintf(from, sizeof(from), "\"%s\" <sip:%s@%s:%d>;tag=as%08x", n, l, strlen(p->fromdomain) ? p->fromdomain : inet_ntoa(p->ourip), ourport, p->tag);
|
|
else
|
|
snprintf(from, sizeof(from), "\"%s\" <sip:%s@%s>;tag=as%08x", n, l, strlen(p->fromdomain) ? p->fromdomain : inet_ntoa(p->ourip), p->tag);
|
|
|
|
if (strlen(p->username)) {
|
|
if (ntohs(p->sa.sin_port) != DEFAULT_SIP_PORT) {
|
|
snprintf(invite, sizeof(invite), "sip:%s@%s:%d",p->username, inet_ntoa(p->sa.sin_addr), ntohs(p->sa.sin_port));
|
|
} else {
|
|
snprintf(invite, sizeof(invite), "sip:%s@%s",p->username, inet_ntoa(p->sa.sin_addr));
|
|
}
|
|
} else if (ntohs(p->sa.sin_port) != DEFAULT_SIP_PORT) {
|
|
snprintf(invite, sizeof(invite), "sip:%s:%d", inet_ntoa(p->sa.sin_addr), ntohs(p->sa.sin_port));
|
|
} else {
|
|
snprintf(invite, sizeof(invite), "sip:%s", inet_ntoa(p->sa.sin_addr));
|
|
}
|
|
/* If there is a VXML URL append it to the SIP URL */
|
|
if (vxml_url)
|
|
{
|
|
snprintf(to, sizeof(to), "<%s>;%s", invite, vxml_url);
|
|
}
|
|
else
|
|
{
|
|
snprintf(to, sizeof(to), "<%s>", invite );
|
|
}
|
|
memset(req, 0, sizeof(struct sip_request));
|
|
init_req(req, cmd, invite);
|
|
snprintf(tmp, sizeof(tmp), "%d %s", ++p->ocseq, cmd);
|
|
|
|
add_header(req, "Via", p->via);
|
|
/* SLD: FIXME?: do Route: here too? I think not cos this is the first request.
|
|
* OTOH, then we won't have anything in p->route anyway */
|
|
add_header(req, "From", from);
|
|
strncpy(p->exten, l, sizeof(p->exten) - 1);
|
|
build_contact(p);
|
|
add_header(req, "To", to);
|
|
add_header(req, "Contact", p->our_contact);
|
|
add_header(req, "Call-ID", p->callid);
|
|
add_header(req, "CSeq", tmp);
|
|
add_header(req, "User-Agent", "Asterisk PBX");
|
|
}
|
|
|
|
static int transmit_invite(struct sip_pvt *p, char *cmd, int sdp, char *auth, char *vxml_url)
|
|
{
|
|
struct sip_request req;
|
|
initreqprep(&req, p, cmd, vxml_url);
|
|
if (auth)
|
|
add_header(&req, "Proxy-Authorization", auth);
|
|
if (sdp) {
|
|
add_sdp(&req, p, NULL);
|
|
} else {
|
|
add_header(&req, "Content-Length", "0");
|
|
add_blank_header(&req);
|
|
}
|
|
if (!p->initreq.headers) {
|
|
/* Use this as the basis */
|
|
copy_request(&p->initreq, &req);
|
|
parse(&p->initreq);
|
|
}
|
|
p->lastinvite = p->ocseq;
|
|
return send_request(p, &req, 1, p->ocseq);
|
|
}
|
|
|
|
static int transmit_state_notify(struct sip_pvt *p, int state, int full)
|
|
{
|
|
char tmp[2000];
|
|
char from[256], to[256];
|
|
char *t, *c, *a;
|
|
char *mfrom, *mto;
|
|
struct sip_request req;
|
|
char clen[20];
|
|
|
|
strncpy(from, get_header(&p->initreq, "From"), sizeof(from)-1);
|
|
|
|
c = ditch_braces(from);
|
|
if (strncmp(c, "sip:", 4)) {
|
|
ast_log(LOG_WARNING, "Huh? Not a SIP header (%s)?\n", c);
|
|
return -1;
|
|
}
|
|
if ((a = strchr(c, ';'))) {
|
|
*a = '\0';
|
|
}
|
|
mfrom = c;
|
|
|
|
reqprep(&req, p, "NOTIFY", 0);
|
|
|
|
if (p->subscribed == 1) {
|
|
strncpy(to, get_header(&p->initreq, "To"), sizeof(to)-1);
|
|
|
|
c = ditch_braces(to);
|
|
if (strncmp(c, "sip:", 4)) {
|
|
ast_log(LOG_WARNING, "Huh? Not a SIP header (%s)?\n", c);
|
|
return -1;
|
|
}
|
|
if ((a = strchr(c, ';'))) {
|
|
*a = '\0';
|
|
}
|
|
mto = c;
|
|
|
|
add_header(&req, "Content-Type", "application/xpidf+xml");
|
|
|
|
if ((state==AST_EXTENSION_UNAVAILABLE) || (state==AST_EXTENSION_BUSY))
|
|
state = 2;
|
|
else if (state==AST_EXTENSION_INUSE)
|
|
state = 1;
|
|
else
|
|
state = 0;
|
|
|
|
t = tmp;
|
|
sprintf(t, "<?xml version=\"1.0\"?>\n");
|
|
t = tmp + strlen(tmp);
|
|
sprintf(t, "<!DOCTYPE presence PUBLIC \"-//IETF//DTD RFCxxxx XPIDF 1.0//EN\" \"xpidf.dtd\">\n");
|
|
t = tmp + strlen(tmp);
|
|
sprintf(t, "<presence>\n");
|
|
t = tmp + strlen(tmp);
|
|
sprintf(t, "<presentity uri=\"%s;method=SUBSCRIBE\" />\n", mfrom);
|
|
t = tmp + strlen(tmp);
|
|
sprintf(t, "<atom id=\"%s\">\n", p->exten);
|
|
t = tmp + strlen(tmp);
|
|
sprintf(t, "<address uri=\"%s;user=ip\" priority=\"0,800000\">\n", mto);
|
|
t = tmp + strlen(tmp);
|
|
sprintf(t, "<status status=\"%s\" />\n", !state ? "open" : (state==1) ? "inuse" : "closed");
|
|
t = tmp + strlen(tmp);
|
|
sprintf(t, "<msnsubstatus substatus=\"%s\" />\n", !state ? "online" : (state==1) ? "onthephone" : "offline");
|
|
t = tmp + strlen(tmp);
|
|
sprintf(t, "</address>\n</atom>\n</presence>\n");
|
|
} else {
|
|
add_header(&req, "Event", "dialog");
|
|
add_header(&req, "Content-Type", "application/dialog-info+xml");
|
|
|
|
t = tmp;
|
|
sprintf(t, "<?xml version=\"1.0\"?>\n");
|
|
t = tmp + strlen(tmp);
|
|
sprintf(t, "<dialog-info xmlns=\"urn:ietf:params:xml:ns:dialog-info\" version=\"%d\" state=\"%s\" entity=\"%s\">\n", p->dialogver++, full ? "full":"partial", mfrom);
|
|
t = tmp + strlen(tmp);
|
|
sprintf(t, "<dialog id=\"%s\">\n", p->exten);
|
|
t = tmp + strlen(tmp);
|
|
sprintf(t, "<state>%s</state>\n", state ? "confirmed" : "terminated");
|
|
t = tmp + strlen(tmp);
|
|
sprintf(t, "</dialog>\n</dialog-info>\n");
|
|
}
|
|
|
|
snprintf(clen, sizeof(clen), "%d", strlen(tmp));
|
|
add_header(&req, "Content-Length", clen);
|
|
add_line(&req, tmp);
|
|
|
|
return send_request(p, &req, 1, p->ocseq);
|
|
}
|
|
|
|
static int transmit_notify(struct sip_pvt *p, int newmsgs, int oldmsgs)
|
|
{
|
|
struct sip_request req;
|
|
char tmp[256];
|
|
char tmp2[256];
|
|
char clen[20];
|
|
initreqprep(&req, p, "NOTIFY", NULL);
|
|
add_header(&req, "Event", "message-summary");
|
|
add_header(&req, "Content-Type", "application/simple-message-summary");
|
|
|
|
snprintf(tmp, sizeof(tmp), "Message-Waiting: %s\n", newmsgs ? "yes" : "no");
|
|
snprintf(tmp2, sizeof(tmp2), "Voicemail: %d/%d\n", newmsgs, oldmsgs);
|
|
snprintf(clen, sizeof(clen), "%d", strlen(tmp) + strlen(tmp2));
|
|
add_header(&req, "Content-Length", clen);
|
|
add_line(&req, tmp);
|
|
add_line(&req, tmp2);
|
|
|
|
if (!p->initreq.headers) {
|
|
/* Use this as the basis */
|
|
copy_request(&p->initreq, &req);
|
|
parse(&p->initreq);
|
|
}
|
|
|
|
return send_request(p, &req, 1, p->ocseq);
|
|
}
|
|
|
|
static int transmit_register(struct sip_registry *r, char *cmd, char *auth);
|
|
|
|
static int sip_reregister(void *data)
|
|
{
|
|
/* if we are here, we know that we need to reregister. */
|
|
struct sip_registry *r=(struct sip_registry *)data;
|
|
r->expire = -1;
|
|
sip_do_register(r);
|
|
return 0;
|
|
}
|
|
|
|
|
|
static int sip_do_register(struct sip_registry *r)
|
|
{
|
|
int res;
|
|
ast_pthread_mutex_lock(&r->lock);
|
|
res=transmit_register(r, "REGISTER", NULL);
|
|
ast_pthread_mutex_unlock(&r->lock);
|
|
return res;
|
|
}
|
|
|
|
static int sip_reg_timeout(void *data)
|
|
{
|
|
/* if we are here, our registration timed out, so we'll just do it over */
|
|
struct sip_registry *r=data;
|
|
struct sip_pvt *p;
|
|
int res;
|
|
ast_pthread_mutex_lock(&r->lock);
|
|
ast_log(LOG_NOTICE, "Registration for '%s@%s' timed out, trying again\n", r->username, inet_ntoa(r->addr.sin_addr));
|
|
if (r->call) {
|
|
/* Unlink us, destroy old call. Locking is not relevent here because all this happens
|
|
in the single SIP manager thread. */
|
|
p = r->call;
|
|
p->registry = NULL;
|
|
r->call = NULL;
|
|
p->needdestroy = 1;
|
|
}
|
|
r->regstate=REG_STATE_UNREGISTERED;
|
|
r->timeout = -1;
|
|
res=transmit_register(r, "REGISTER", NULL);
|
|
ast_pthread_mutex_unlock(&r->lock);
|
|
return 0;
|
|
}
|
|
|
|
static int transmit_register(struct sip_registry *r, char *cmd, char *auth)
|
|
{
|
|
struct sip_request req;
|
|
char from[256];
|
|
char to[256];
|
|
char tmp[80];
|
|
char via[80];
|
|
char addr[80];
|
|
struct sip_pvt *p;
|
|
/* exit if we are already in process with this registrar ?*/
|
|
if ( r == NULL || ((auth==NULL) && (r->regstate==REG_STATE_REGSENT || r->regstate==REG_STATE_AUTHSENT))) {
|
|
ast_log(LOG_NOTICE, "Strange, trying to register when registration already pending\n");
|
|
return 0;
|
|
}
|
|
|
|
if (r->call) {
|
|
if (!auth) {
|
|
ast_log(LOG_WARNING, "Already have a call??\n");
|
|
return 0;
|
|
} else
|
|
p = r->call;
|
|
} else {
|
|
build_callid(r->callid, sizeof(r->callid), __ourip);
|
|
p=sip_alloc( r->callid, &r->addr, 0);
|
|
if (!p) {
|
|
ast_log(LOG_WARNING, "Unable to allocate registration call\n");
|
|
return 0;
|
|
}
|
|
p->outgoing = 1;
|
|
r->call=p;
|
|
p->registry=r;
|
|
strncpy(p->peersecret, r->secret, sizeof(p->peersecret)-1);
|
|
strncpy(p->peername, r->username, sizeof(p->peername)-1);
|
|
strncpy(p->username, r->username, sizeof(p->username)-1);
|
|
strncpy(p->exten, r->contact, sizeof(p->exten) - 1);
|
|
build_contact(p);
|
|
}
|
|
|
|
/* set up a timeout */
|
|
if (auth==NULL) {
|
|
if (r->timeout > -1) {
|
|
ast_log(LOG_WARNING, "Still have a timeout, %d\n", r->timeout);
|
|
ast_sched_del(sched, r->timeout);
|
|
}
|
|
r->timeout = ast_sched_add(sched, 10*1000, sip_reg_timeout, r);
|
|
ast_log(LOG_DEBUG, "Scheduled a timeout # %d\n", r->timeout);
|
|
}
|
|
|
|
snprintf(from, sizeof(from), "<sip:%s@%s>;tag=as%08x", r->username, r->hostname, p->tag);
|
|
snprintf(to, sizeof(to), "<sip:%s@%s>;tag=as%08x", r->username, r->hostname, p->tag);
|
|
|
|
snprintf(addr, sizeof(addr), "sip:%s", inet_ntoa(r->addr.sin_addr));
|
|
|
|
memset(&req, 0, sizeof(req));
|
|
init_req(&req, cmd, addr);
|
|
|
|
snprintf(tmp, sizeof(tmp), "%d %s", ++p->ocseq, cmd);
|
|
|
|
snprintf(via, sizeof(via), "SIP/2.0/UDP %s:%d;branch=z9hG4bK%08x", inet_ntoa(p->ourip), ourport, p->branch);
|
|
add_header(&req, "Via", via);
|
|
add_header(&req, "From", from);
|
|
add_header(&req, "To", to);
|
|
add_header(&req, "Call-ID", p->callid);
|
|
add_header(&req, "CSeq", tmp);
|
|
add_header(&req, "User-Agent", "Asterisk PBX");
|
|
if (auth)
|
|
add_header(&req, "Authorization", auth);
|
|
|
|
snprintf(tmp, sizeof(tmp), "%d", default_expiry);
|
|
add_header(&req, "Expires", tmp);
|
|
add_header(&req, "Contact", p->our_contact);
|
|
add_header(&req, "Event", "registration");
|
|
add_header(&req, "Content-length", "0");
|
|
add_blank_header(&req);
|
|
copy_request(&p->initreq, &req);
|
|
parse(&p->initreq);
|
|
r->regstate=auth?REG_STATE_AUTHSENT:REG_STATE_REGSENT;
|
|
return send_request(p, &req, 1, p->ocseq);
|
|
}
|
|
|
|
static int transmit_message_with_text(struct sip_pvt *p, char *text)
|
|
{
|
|
struct sip_request req;
|
|
reqprep(&req, p, "MESSAGE", 0);
|
|
add_text(&req, text);
|
|
return send_request(p, &req, 1, p->ocseq);
|
|
}
|
|
|
|
static int transmit_info_with_digit(struct sip_pvt *p, char digit)
|
|
{
|
|
struct sip_request req;
|
|
reqprep(&req, p, "INFO", 0);
|
|
add_digit(&req, digit);
|
|
return send_request(p, &req, 1, p->ocseq);
|
|
}
|
|
|
|
static int transmit_request(struct sip_pvt *p, char *msg, int seqno, int reliable)
|
|
{
|
|
struct sip_request resp;
|
|
reqprep(&resp, p, msg, seqno);
|
|
add_header(&resp, "Content-Length", "0");
|
|
add_blank_header(&resp);
|
|
return send_request(p, &resp, reliable, seqno ? seqno : p->ocseq);
|
|
}
|
|
|
|
static int transmit_request_with_auth(struct sip_pvt *p, char *msg, int seqno, int reliable)
|
|
{
|
|
struct sip_request resp;
|
|
reqprep(&resp, p, msg, seqno);
|
|
if (*p->realm)
|
|
{
|
|
char digest[256];
|
|
memset(digest,0,sizeof(digest));
|
|
build_reply_digest(p, msg, digest, sizeof(digest));
|
|
add_header(&resp, "Proxy-Authorization", digest);
|
|
}
|
|
|
|
add_header(&resp, "Content-Length", "0");
|
|
add_blank_header(&resp);
|
|
return send_request(p, &resp, reliable, seqno ? seqno : p->ocseq);
|
|
}
|
|
|
|
static int expire_register(void *data)
|
|
{
|
|
struct sip_peer *p = data;
|
|
memset(&p->addr, 0, sizeof(p->addr));
|
|
p->expire = -1;
|
|
ast_device_state_changed("SIP/%s", p->name);
|
|
return 0;
|
|
}
|
|
|
|
static int sip_poke_peer(struct sip_peer *peer);
|
|
|
|
static int parse_contact(struct sip_pvt *pvt, struct sip_peer *p, struct sip_request *req)
|
|
{
|
|
char contact[80]= "";
|
|
char *expires = get_header(req, "Expires");
|
|
int expiry = atoi(expires);
|
|
char *c, *n, *pt;
|
|
int port;
|
|
struct hostent *hp;
|
|
struct sockaddr_in oldsin;
|
|
if (!strlen(expires)) {
|
|
expires = strstr(get_header(req, "Contact"), "expires=");
|
|
if (expires) {
|
|
if (sscanf(expires + 8, "%d;", &expiry) != 1)
|
|
expiry = default_expiry;
|
|
} else {
|
|
/* Nothing has been specified */
|
|
expiry = default_expiry;
|
|
}
|
|
}
|
|
/* Look for brackets */
|
|
strncpy(contact, get_header(req, "Contact"), sizeof(contact) - 1);
|
|
c = contact;
|
|
|
|
if ((n=strchr(c, '<'))) {
|
|
c = n + 1;
|
|
n = strchr(c, '>');
|
|
/* Lose the part after the > */
|
|
if (n)
|
|
*n = '\0';
|
|
}
|
|
if (!strcasecmp(c, "*") || !expiry) {
|
|
/* This means remove all registrations and return OK */
|
|
memset(&p->addr, 0, sizeof(p->addr));
|
|
if (p->expire > -1)
|
|
ast_sched_del(sched, p->expire);
|
|
p->expire = -1;
|
|
if (option_verbose > 2)
|
|
ast_verbose(VERBOSE_PREFIX_3 "Unregistered SIP '%s'\n", p->username);
|
|
return 0;
|
|
}
|
|
/* Make sure it's a SIP URL */
|
|
if (strncasecmp(c, "sip:", 4)) {
|
|
ast_log(LOG_NOTICE, "'%s' is not a valid SIP contact (missing sip:) trying to use anyway\n", c);
|
|
} else
|
|
c += 4;
|
|
/* Ditch q */
|
|
n = strchr(c, ';');
|
|
if (n)
|
|
*n = '\0';
|
|
/* Grab host */
|
|
n = strchr(c, '@');
|
|
if (!n) {
|
|
n = c;
|
|
c = NULL;
|
|
} else {
|
|
*n = '\0';
|
|
n++;
|
|
}
|
|
pt = strchr(n, ':');
|
|
if (pt) {
|
|
*pt = '\0';
|
|
pt++;
|
|
port = atoi(pt);
|
|
} else
|
|
port = DEFAULT_SIP_PORT;
|
|
memcpy(&oldsin, &p->addr, sizeof(oldsin));
|
|
if (!p->nat) {
|
|
/* XXX This could block for a long time XXX */
|
|
hp = gethostbyname(n);
|
|
if (!hp) {
|
|
ast_log(LOG_WARNING, "Invalid host '%s'\n", n);
|
|
return -1;
|
|
}
|
|
p->addr.sin_family = AF_INET;
|
|
memcpy(&p->addr.sin_addr, hp->h_addr, sizeof(p->addr.sin_addr));
|
|
p->addr.sin_port = htons(port);
|
|
} else {
|
|
/* Don't trust the contact field. Just use what they came to us
|
|
with */
|
|
memcpy(&p->addr, &pvt->recv, sizeof(p->addr));
|
|
}
|
|
if (c)
|
|
strncpy(p->username, c, sizeof(p->username) - 1);
|
|
else
|
|
strcpy(p->username, "");
|
|
if (p->expire > -1)
|
|
ast_sched_del(sched, p->expire);
|
|
if ((expiry < 1) || (expiry > max_expiry))
|
|
expiry = max_expiry;
|
|
p->expire = ast_sched_add(sched, (expiry + 10) * 1000, expire_register, p);
|
|
pvt->expiry = expiry;
|
|
if (inaddrcmp(&p->addr, &oldsin)) {
|
|
sip_poke_peer(p);
|
|
if (option_verbose > 2)
|
|
ast_verbose(VERBOSE_PREFIX_3 "Registered SIP '%s' at %s port %d expires %d\n", p->username, inet_ntoa(p->addr.sin_addr), ntohs(p->addr.sin_port), expiry);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static void free_old_route(struct sip_route *route)
|
|
{
|
|
struct sip_route *next;
|
|
while (route) {
|
|
next = route->next;
|
|
free(route);
|
|
route = next;
|
|
}
|
|
}
|
|
|
|
static void list_route(struct sip_route *route)
|
|
{
|
|
if (!route) {
|
|
ast_verbose("list_route: no route\n");
|
|
return;
|
|
}
|
|
while (route) {
|
|
ast_verbose("list_route: hop: <%s>\n", route->hop);
|
|
route = route->next;
|
|
}
|
|
}
|
|
|
|
static void build_route(struct sip_pvt *p, struct sip_request *req, int backwards)
|
|
{
|
|
struct sip_route *thishop, *head, *tail;
|
|
int start = 0;
|
|
int len;
|
|
char *rr, *contact, *c;
|
|
|
|
if (p->route) {
|
|
free_old_route(p->route);
|
|
p->route = NULL;
|
|
}
|
|
/* We build up head, then assign it to p->route when we're done */
|
|
head = NULL; tail = head;
|
|
/* 1st we pass through all the hops in any Record-Route headers */
|
|
for (;;) {
|
|
/* Each Record-Route header */
|
|
rr = __get_header(req, "Record-Route", &start);
|
|
if (*rr == '\0') break;
|
|
for (;;) {
|
|
/* Each route entry */
|
|
/* Find < */
|
|
rr = strchr(rr, '<');
|
|
if (!rr) break; /* No more hops */
|
|
++rr;
|
|
len = strcspn(rr, ">");
|
|
/* Make a struct route */
|
|
thishop = (struct sip_route *)malloc(sizeof(struct sip_route)+len+1);
|
|
if (thishop) {
|
|
strncpy(thishop->hop, rr, len);
|
|
thishop->hop[len] = '\0';
|
|
ast_log(LOG_DEBUG, "build_route: Record-Route hop: <%s>\n", thishop->hop);
|
|
/* Link in */
|
|
if (backwards) {
|
|
/* Link in at head so they end up in reverse order */
|
|
thishop->next = head;
|
|
head = thishop;
|
|
/* If this was the first then it'll be the tail */
|
|
if (!tail) tail = thishop;
|
|
} else {
|
|
thishop->next = NULL;
|
|
/* Link in at the end */
|
|
if (tail)
|
|
tail->next = thishop;
|
|
else
|
|
head = thishop;
|
|
tail = thishop;
|
|
}
|
|
}
|
|
rr += len+1;
|
|
}
|
|
}
|
|
/* 2nd append the Contact: if there is one */
|
|
/* Can be multiple Contact headers, comma separated values - we just take the first */
|
|
contact = get_header(req, "Contact");
|
|
if (strlen(contact)) {
|
|
ast_log(LOG_DEBUG, "build_route: Contact hop: %s\n", contact);
|
|
/* Look for <: delimited address */
|
|
c = strchr(contact, '<');
|
|
if (c) {
|
|
/* Take to > */
|
|
++c;
|
|
len = strcspn(c, ">");
|
|
} else {
|
|
/* No <> - just take the lot */
|
|
c = contact; len = strlen(contact);
|
|
}
|
|
thishop = (struct sip_route *)malloc(sizeof(struct sip_route)+len+1);
|
|
if (thishop) {
|
|
strncpy(thishop->hop, c, len);
|
|
thishop->hop[len] = '\0';
|
|
thishop->next = NULL;
|
|
/* Goes at the end */
|
|
if (tail)
|
|
tail->next = thishop;
|
|
else
|
|
head = thishop;
|
|
}
|
|
}
|
|
/* Store as new route */
|
|
p->route = head;
|
|
|
|
/* For debugging dump what we ended up with */
|
|
if (sipdebug)
|
|
list_route(p->route);
|
|
}
|
|
|
|
static void md5_hash(char *output, char *input)
|
|
{
|
|
struct MD5Context md5;
|
|
unsigned char digest[16];
|
|
char *ptr;
|
|
int x;
|
|
MD5Init(&md5);
|
|
MD5Update(&md5, input, strlen(input));
|
|
MD5Final(digest, &md5);
|
|
ptr = output;
|
|
for (x=0;x<16;x++)
|
|
ptr += sprintf(ptr, "%2.2x", digest[x]);
|
|
}
|
|
|
|
static int check_auth(struct sip_pvt *p, struct sip_request *req, char *randdata, int randlen, char *username, char *secret, char *method, char *uri, int reliable)
|
|
{
|
|
int res = -1;
|
|
/* Always OK if no secret */
|
|
if (!strlen(secret))
|
|
return 0;
|
|
if (!strlen(randdata) || !strlen(get_header(req, "Proxy-Authorization"))) {
|
|
snprintf(randdata, randlen, "%08x", rand());
|
|
transmit_response_with_auth(p, "407 Proxy Authentication Required", req, randdata, reliable);
|
|
/* Schedule auto destroy in 15 seconds */
|
|
sip_scheddestroy(p, 15000);
|
|
res = 1;
|
|
} else {
|
|
/* Whoever came up with the authentication section of SIP can suck my %&#$&* for not putting
|
|
an example in the spec of just what it is you're doing a hash on. */
|
|
char a1[256];
|
|
char a2[256];
|
|
char a1_hash[256];
|
|
char a2_hash[256];
|
|
char resp[256];
|
|
char resp_hash[256];
|
|
char tmp[256] = "";
|
|
char *c;
|
|
char *response ="";
|
|
char *resp_uri ="";
|
|
|
|
/* Find their response among the mess that we'r sent for comparison */
|
|
strncpy(tmp, get_header(req, "Proxy-Authorization"), sizeof(tmp) - 1);
|
|
c = tmp;
|
|
|
|
while(c) {
|
|
while (*c && (*c < 33)) c++;
|
|
if (!*c)
|
|
break;
|
|
if (!strncasecmp(c, "response=", strlen("response="))) {
|
|
c+= strlen("response=");
|
|
if ((*c == '\"')) {
|
|
response=++c;
|
|
if((c = strchr(c,'\"')))
|
|
*c = '\0';
|
|
|
|
} else {
|
|
response=c;
|
|
if((c = strchr(c,',')))
|
|
*c = '\0';
|
|
}
|
|
|
|
} else if (!strncasecmp(c, "uri=", strlen("uri="))) {
|
|
c+= strlen("uri=");
|
|
if ((*c == '\"')) {
|
|
resp_uri=++c;
|
|
if((c = strchr(c,'\"')))
|
|
*c = '\0';
|
|
} else {
|
|
resp_uri=c;
|
|
if((c = strchr(c,',')))
|
|
*c = '\0';
|
|
}
|
|
|
|
} else
|
|
c = strchr(c, ',');
|
|
if (c)
|
|
c++;
|
|
}
|
|
snprintf(a1, sizeof(a1), "%s:%s:%s", username, "asterisk", secret);
|
|
if(strlen(resp_uri))
|
|
snprintf(a2, sizeof(a2), "%s:%s", method, resp_uri);
|
|
else
|
|
snprintf(a2, sizeof(a2), "%s:%s", method, uri);
|
|
md5_hash(a1_hash, a1);
|
|
md5_hash(a2_hash, a2);
|
|
snprintf(resp, sizeof(resp), "%s:%s:%s", a1_hash, randdata, a2_hash);
|
|
md5_hash(resp_hash, resp);
|
|
|
|
/* resp_hash now has the expected response, compare the two */
|
|
|
|
if (response && !strncasecmp(response, resp_hash, strlen(resp_hash))) {
|
|
/* Auth is OK */
|
|
res = 0;
|
|
}
|
|
/* Assume success ;-) */
|
|
/* Eliminate random data */
|
|
strcpy(randdata, "");
|
|
}
|
|
return res;
|
|
}
|
|
|
|
static int cb_extensionstate(char *context, char* exten, int state, void *data)
|
|
{
|
|
struct sip_pvt *p = data;
|
|
if (state == -1) {
|
|
sip_scheddestroy(p, 15000);
|
|
p->stateid = -1;
|
|
return 0;
|
|
}
|
|
|
|
transmit_state_notify(p, state, 1);
|
|
|
|
if (option_debug)
|
|
ast_verbose(VERBOSE_PREFIX_1 "Extension Changed %s new state %d for Notify User %s\n", exten, state, p->username);
|
|
return 0;
|
|
}
|
|
|
|
static int register_verify(struct sip_pvt *p, struct sockaddr_in *sin, struct sip_request *req, char *uri)
|
|
{
|
|
int res = -1;
|
|
struct sip_peer *peer;
|
|
char tmp[256] = "";
|
|
char *name, *c;
|
|
char *t;
|
|
/* Terminate URI */
|
|
t = uri;
|
|
while(*t && (*t > 32) && (*t != ';'))
|
|
t++;
|
|
*t = '\0';
|
|
|
|
strncpy(tmp, get_header(req, "To"), sizeof(tmp) - 1);
|
|
c = ditch_braces(tmp);
|
|
/* Ditch ;user=phone */
|
|
name = strchr(c, ';');
|
|
if (name)
|
|
*name = '\0';
|
|
|
|
if (!strncmp(c, "sip:", 4)) {
|
|
name = c + 4;
|
|
} else {
|
|
name = c;
|
|
ast_log(LOG_NOTICE, "Invalid to address: '%s' from %s (missing sip:) trying to use anyway...\n", c, inet_ntoa(sin->sin_addr));
|
|
}
|
|
c = strchr(name, '@');
|
|
if (c)
|
|
*c = '\0';
|
|
strncpy(p->exten, name, sizeof(p->exten) - 1);
|
|
build_contact(p);
|
|
ast_pthread_mutex_lock(&peerl.lock);
|
|
peer = peerl.peers;
|
|
while(peer) {
|
|
if (!strcasecmp(peer->name, name) && peer->dynamic) {
|
|
p->nat = peer->nat;
|
|
transmit_response(p, "100 Trying", req);
|
|
if (!(res = check_auth(p, req, p->randdata, sizeof(p->randdata), peer->name, peer->secret, "REGISTER", uri, 0))) {
|
|
sip_cancel_destroy(p);
|
|
if (parse_contact(p, peer, req)) {
|
|
ast_log(LOG_WARNING, "Failed to parse contact info\n");
|
|
} else {
|
|
/* Say OK and ask subsystem to retransmit msg counter */
|
|
transmit_response_with_date(p, "200 OK", req);
|
|
peer->lastmsgssent = -1;
|
|
res = 0;
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
peer = peer->next;
|
|
}
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
if (!res) {
|
|
ast_device_state_changed("SIP/%s", peer->name);
|
|
}
|
|
if (res < 0)
|
|
transmit_response(p, "401 Unauthorized", &p->initreq);
|
|
return res;
|
|
}
|
|
|
|
static int get_destination(struct sip_pvt *p, struct sip_request *oreq)
|
|
{
|
|
char tmp[256] = "", *c, *a;
|
|
struct sip_request *req;
|
|
|
|
req = oreq;
|
|
if (!req)
|
|
req = &p->initreq;
|
|
strncpy(tmp, req->rlPart2, sizeof(tmp) - 1);
|
|
c = ditch_braces(tmp);
|
|
if (strncmp(c, "sip:", 4)) {
|
|
ast_log(LOG_WARNING, "Huh? Not a SIP header (%s)?\n", c);
|
|
return -1;
|
|
}
|
|
c += 4;
|
|
if ((a = strchr(c, '@')) || (a = strchr(c, ';'))) {
|
|
*a = '\0';
|
|
}
|
|
if (sipdebug)
|
|
ast_verbose("Looking for %s in %s\n", c, p->context);
|
|
if (ast_exists_extension(NULL, p->context, c, 1, NULL) ||
|
|
!strcmp(c, ast_pickup_ext())) {
|
|
if (!oreq)
|
|
strncpy(p->exten, c, sizeof(p->exten) - 1);
|
|
return 0;
|
|
}
|
|
|
|
if (ast_canmatch_extension(NULL, p->context, c, 1, NULL) ||
|
|
!strncmp(c, ast_pickup_ext(),strlen(c))) {
|
|
return 1;
|
|
}
|
|
|
|
return -1;
|
|
}
|
|
|
|
static int get_refer_info(struct sip_pvt *p, struct sip_request *oreq)
|
|
{
|
|
char tmp[256] = "", *c, *a;
|
|
char tmp2[256] = "", *c2, *a2;
|
|
char tmp3[256];
|
|
char tmp4[256];
|
|
char tmp5[256] = ""; /* CallID to replace */
|
|
struct sip_request *req;
|
|
struct sip_pvt *p2;
|
|
|
|
req = oreq;
|
|
if (!req)
|
|
req = &p->initreq;
|
|
strncpy(tmp, get_header(req, "Refer-To"), sizeof(tmp) - 1);
|
|
strncpy(tmp2, get_header(req, "Referred-By"), sizeof(tmp2) - 1);
|
|
strncpy(tmp3, get_header(req, "Contact"), sizeof(tmp3) - 1);
|
|
strncpy(tmp4, get_header(req, "Remote-Party-ID"), sizeof(tmp4) - 1);
|
|
|
|
c = ditch_braces(tmp);
|
|
c2 = ditch_braces(tmp2);
|
|
|
|
|
|
if (strncmp(c, "sip:", 4) && strncmp(c2, "sip:", 4)) {
|
|
ast_log(LOG_WARNING, "Huh? Not a SIP header (%s)?\n", c);
|
|
ast_log(LOG_WARNING, "Huh? Not a SIP header (%s)?\n", c2);
|
|
return -1;
|
|
}
|
|
c += 4;
|
|
c2 += 4;
|
|
if ((a = strchr(c, '?'))) {
|
|
/* Search for arguemnts */
|
|
*a = '\0';
|
|
a++;
|
|
if (!strncasecmp(a, "REPLACES=", strlen("REPLACES="))) {
|
|
strncpy(tmp5, a + strlen("REPLACES="), sizeof(tmp5) - 1);
|
|
if ((a = strchr(tmp5, '%'))) {
|
|
/* Yuck! Pingtel converts the '@' to a %40, icky icky! Convert
|
|
back to an '@' */
|
|
if ((a[1] == '4') && (a[2] == '0')) {
|
|
*a = '@';
|
|
memmove(a + 1, a+3, strlen(a + 3));
|
|
}
|
|
}
|
|
if ((a = strchr(tmp5, '%')))
|
|
*a = '\0';
|
|
}
|
|
}
|
|
|
|
if ((a = strchr(c, '@')))
|
|
*a = '\0';
|
|
if ((a = strchr(c, ';')))
|
|
*a = '\0';
|
|
|
|
|
|
if ((a2 = strchr(c2, '@')))
|
|
*a2 = '\0';
|
|
|
|
if ((a2 = strchr(c2, ';')))
|
|
*a2 = '\0';
|
|
|
|
|
|
if (sipdebug) {
|
|
ast_verbose("Looking for %s in %s\n", c, p->context);
|
|
ast_verbose("Looking for %s in %s\n", c2, p->context);
|
|
}
|
|
if (strlen(tmp5)) {
|
|
/* This is a supervised transfer */
|
|
ast_log(LOG_DEBUG,"Assigning Replace-Call-ID Info %s to REPLACE_CALL_ID\n",tmp5);
|
|
|
|
strncpy(p->refer_to, "", sizeof(p->refer_to) - 1);
|
|
strncpy(p->referred_by, "", sizeof(p->referred_by) - 1);
|
|
strncpy(p->refer_contact, "", sizeof(p->refer_contact) - 1);
|
|
strncpy(p->remote_party_id, "", sizeof(p->remote_party_id) - 1);
|
|
p->refer_call = NULL;
|
|
ast_pthread_mutex_lock(&iflock);
|
|
/* Search interfaces and find the match */
|
|
p2 = iflist;
|
|
while(p2) {
|
|
if (!strcmp(p2->callid, tmp5)) {
|
|
/* Go ahead and lock it before returning */
|
|
ast_pthread_mutex_lock(&p2->lock);
|
|
p->refer_call = p2;
|
|
break;
|
|
}
|
|
p2 = p2->next;
|
|
}
|
|
ast_pthread_mutex_unlock(&iflock);
|
|
if (p->refer_call)
|
|
return 0;
|
|
else
|
|
ast_log(LOG_NOTICE, "Supervised transfer requested, but unable to find callid '%s'\n", tmp5);
|
|
} else if (ast_exists_extension(NULL, p->context, c, 1, NULL)) {
|
|
/* This is an unsupervised transfer */
|
|
ast_log(LOG_DEBUG,"Assigning Extension %s to REFER-TO\n", c);
|
|
ast_log(LOG_DEBUG,"Assigning Extension %s to REFERRED-BY\n", c2);
|
|
ast_log(LOG_DEBUG,"Assigning Contact Info %s to REFER_CONTACT\n", tmp3);
|
|
ast_log(LOG_DEBUG,"Assigning Remote-Party-ID Info %s to REMOTE_PARTY_ID\n",tmp4);
|
|
strncpy(p->refer_to, c, sizeof(p->refer_to) - 1);
|
|
strncpy(p->referred_by, c2, sizeof(p->referred_by) - 1);
|
|
strncpy(p->refer_contact, tmp3, sizeof(p->refer_contact) - 1);
|
|
strncpy(p->remote_party_id, tmp4, sizeof(p->remote_party_id) - 1);
|
|
p->refer_call = NULL;
|
|
return 0;
|
|
} else if (ast_canmatch_extension(NULL, p->context, c, 1, NULL)) {
|
|
return 1;
|
|
}
|
|
|
|
return -1;
|
|
}
|
|
|
|
|
|
static int check_via(struct sip_pvt *p, struct sip_request *req)
|
|
{
|
|
char via[256] = "";
|
|
char *c, *pt;
|
|
struct hostent *hp;
|
|
|
|
memset(via, 0, sizeof(via));
|
|
strncpy(via, get_header(req, "Via"), sizeof(via) - 1);
|
|
c = strchr(via, ';');
|
|
if (c)
|
|
*c = '\0';
|
|
c = strchr(via, ' ');
|
|
if (c) {
|
|
*c = '\0';
|
|
c++;
|
|
while(*c && (*c < 33))
|
|
c++;
|
|
if (strcmp(via, "SIP/2.0/UDP")) {
|
|
ast_log(LOG_WARNING, "Don't know how to respond via '%s'\n", via);
|
|
return -1;
|
|
}
|
|
pt = strchr(c, ':');
|
|
if (pt) {
|
|
*pt = '\0';
|
|
pt++;
|
|
}
|
|
hp = gethostbyname(c);
|
|
if (!hp) {
|
|
ast_log(LOG_WARNING, "'%s' is not a valid host\n", c);
|
|
return -1;
|
|
}
|
|
memset(&p->sa, 0, sizeof(p->sa));
|
|
p->sa.sin_family = AF_INET;
|
|
memcpy(&p->sa.sin_addr, hp->h_addr, sizeof(p->sa.sin_addr));
|
|
p->sa.sin_port = htons(pt ? atoi(pt) : DEFAULT_SIP_PORT);
|
|
if (sipdebug) {
|
|
if (p->nat)
|
|
ast_verbose("Sending to %s : %d (NAT)\n", inet_ntoa(p->sa.sin_addr), ntohs(p->sa.sin_port));
|
|
else
|
|
ast_verbose("Sending to %s : %d (non-NAT)\n", inet_ntoa(p->sa.sin_addr), ntohs(p->sa.sin_port));
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int check_user(struct sip_pvt *p, struct sip_request *req, char *cmd, char *uri, int reliable)
|
|
{
|
|
struct sip_user *user;
|
|
struct sip_peer *peer;
|
|
char *of, from[256] = "", *c;
|
|
int res = 0;
|
|
char *t;
|
|
/* Terminate URI */
|
|
t = uri;
|
|
while(*t && (*t > 32) && (*t != ';'))
|
|
t++;
|
|
*t = '\0';
|
|
of = get_header(req, "From");
|
|
strncpy(from, of, sizeof(from) - 1);
|
|
of = ditch_braces(from);
|
|
if (strncmp(of, "sip:", 4)) {
|
|
ast_log(LOG_NOTICE, "From address missing 'sip:', using it anyway\n");
|
|
} else
|
|
of += 4;
|
|
/* Get just the username part */
|
|
if ((c = strchr(of, '@')))
|
|
*c = '\0';
|
|
if ((c = strchr(of, ':')))
|
|
*c = '\0';
|
|
strncpy(p->callerid, of, sizeof(p->callerid) - 1);
|
|
if (!strlen(of))
|
|
return 0;
|
|
ast_pthread_mutex_lock(&userl.lock);
|
|
user = userl.users;
|
|
while(user) {
|
|
if (!strcasecmp(user->name, of)) {
|
|
p->nat = user->nat;
|
|
if (p->rtp) {
|
|
ast_log(LOG_DEBUG, "Setting NAT on RTP to %d\n", p->nat);
|
|
ast_rtp_setnat(p->rtp, p->nat);
|
|
}
|
|
if (!(res = check_auth(p, req, p->randdata, sizeof(p->randdata), user->name, user->secret, cmd, uri, reliable))) {
|
|
sip_cancel_destroy(p);
|
|
if (strlen(user->context))
|
|
strncpy(p->context, user->context, sizeof(p->context) - 1);
|
|
if (strlen(user->callerid) && strlen(p->callerid))
|
|
strncpy(p->callerid, user->callerid, sizeof(p->callerid) - 1);
|
|
strncpy(p->username, user->name, sizeof(p->username) - 1);
|
|
strncpy(p->accountcode, user->accountcode, sizeof(p->accountcode) -1);
|
|
p->canreinvite = user->canreinvite;
|
|
p->amaflags = user->amaflags;
|
|
p->callgroup = user->callgroup;
|
|
p->pickupgroup = user->pickupgroup;
|
|
if (user->dtmfmode) {
|
|
p->dtmfmode = user->dtmfmode;
|
|
if (p->dtmfmode & SIP_DTMF_RFC2833)
|
|
p->noncodeccapability |= AST_RTP_DTMF;
|
|
else
|
|
p->noncodeccapability &= ~AST_RTP_DTMF;
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
user = user->next;
|
|
}
|
|
ast_pthread_mutex_unlock(&userl.lock);
|
|
if (!user) {
|
|
/* If we didn't find a user match, check for peers */
|
|
ast_pthread_mutex_lock(&peerl.lock);
|
|
peer = peerl.peers;
|
|
while(peer) {
|
|
if (!inaddrcmp(&peer->addr, &p->recv)) {
|
|
/* Take the peer */
|
|
p->nat = peer->nat;
|
|
if (p->rtp) {
|
|
ast_log(LOG_DEBUG, "Setting NAT on RTP to %d\n", p->nat);
|
|
ast_rtp_setnat(p->rtp, p->nat);
|
|
}
|
|
p->canreinvite = peer->canreinvite;
|
|
strncpy(p->username, peer->name, sizeof(p->username) - 1);
|
|
if (strlen(peer->context))
|
|
strncpy(p->context, peer->context, sizeof(p->context) - 1);
|
|
p->callgroup = peer->callgroup;
|
|
p->pickupgroup = peer->pickupgroup;
|
|
if (peer->dtmfmode) {
|
|
p->dtmfmode = peer->dtmfmode;
|
|
if (p->dtmfmode & SIP_DTMF_RFC2833)
|
|
p->noncodeccapability |= AST_RTP_DTMF;
|
|
else
|
|
p->noncodeccapability &= ~AST_RTP_DTMF;
|
|
}
|
|
break;
|
|
}
|
|
peer = peer->next;
|
|
}
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
}
|
|
return res;
|
|
}
|
|
|
|
static int get_msg_text(char *buf, int len, struct sip_request *req)
|
|
{
|
|
int x;
|
|
strcpy(buf, "");
|
|
for (x=0;x<req->lines;x++) {
|
|
strncat(buf, req->line[x], len - strlen(buf) - 5);
|
|
strcat(buf, "\n");
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static void receive_message(struct sip_pvt *p, struct sip_request *req)
|
|
{
|
|
char buf[1024];
|
|
struct ast_frame f;
|
|
if (get_msg_text(buf, sizeof(buf), req)) {
|
|
ast_log(LOG_WARNING, "Unable to retrieve text from %s\n", p->callid);
|
|
return;
|
|
}
|
|
if (p->owner) {
|
|
if (sipdebug)
|
|
ast_verbose("Message received: '%s'\n", buf);
|
|
memset(&f, 0, sizeof(f));
|
|
f.frametype = AST_FRAME_TEXT;
|
|
f.subclass = 0;
|
|
f.offset = 0;
|
|
f.data = buf;
|
|
f.datalen = strlen(buf);
|
|
ast_queue_frame(p->owner, &f, 0);
|
|
}
|
|
}
|
|
|
|
static int sip_show_users(int fd, int argc, char *argv[])
|
|
{
|
|
#define FORMAT "%-15.15s %-15.15s %-15.15s %-15.15s %-5.5s\n"
|
|
struct sip_user *user;
|
|
if (argc != 3)
|
|
return RESULT_SHOWUSAGE;
|
|
ast_pthread_mutex_lock(&userl.lock);
|
|
ast_cli(fd, FORMAT, "Username", "Secret", "Authen", "Def.Context", "A/C");
|
|
for(user=userl.users;user;user=user->next) {
|
|
ast_cli(fd, FORMAT, user->name, user->secret, user->methods,
|
|
user->context,
|
|
user->ha ? "Yes" : "No");
|
|
}
|
|
ast_pthread_mutex_unlock(&userl.lock);
|
|
return RESULT_SUCCESS;
|
|
#undef FORMAT
|
|
}
|
|
|
|
static int sip_show_peers(int fd, int argc, char *argv[])
|
|
{
|
|
#define FORMAT2 "%-15.15s %-15.15s %s %-15.15s %-8s %-10s\n"
|
|
#define FORMAT "%-15.15s %-15.15s %s %-15.15s %-8d %-10s\n"
|
|
struct sip_peer *peer;
|
|
char name[256] = "";
|
|
if (argc != 3)
|
|
return RESULT_SHOWUSAGE;
|
|
ast_pthread_mutex_lock(&peerl.lock);
|
|
ast_cli(fd, FORMAT2, "Name/username", "Host", " ", "Mask", "Port", "Status");
|
|
for (peer = peerl.peers;peer;peer = peer->next) {
|
|
char nm[20] = "";
|
|
char status[20];
|
|
strncpy(nm, inet_ntoa(peer->mask), sizeof(nm)-1);
|
|
if (strlen(peer->username))
|
|
snprintf(name, sizeof(name), "%s/%s", peer->name, peer->username);
|
|
else
|
|
strncpy(name, peer->name, sizeof(name) - 1);
|
|
if (peer->maxms) {
|
|
if (peer->lastms < 0)
|
|
strcpy(status, "UNREACHABLE");
|
|
else if (peer->lastms > peer->maxms)
|
|
snprintf(status, sizeof(status), "LAGGED (%d ms)", peer->lastms);
|
|
else if (peer->lastms)
|
|
snprintf(status, sizeof(status), "OK (%d ms)", peer->lastms);
|
|
else
|
|
strcpy(status, "UNKNOWN");
|
|
} else
|
|
strcpy(status, "Unmonitored");
|
|
ast_cli(fd, FORMAT, name,
|
|
peer->addr.sin_addr.s_addr ? inet_ntoa(peer->addr.sin_addr) : "(Unspecified)",
|
|
peer->dynamic ? "(D)" : " ",
|
|
nm,
|
|
ntohs(peer->addr.sin_port), status);
|
|
}
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
return RESULT_SUCCESS;
|
|
#undef FORMAT
|
|
#undef FORMAT2
|
|
}
|
|
|
|
static char *regstate2str(int regstate)
|
|
{
|
|
switch(regstate) {
|
|
case REG_STATE_UNREGISTERED:
|
|
return "Unregistered";
|
|
case REG_STATE_REGSENT:
|
|
return "Request Sent";
|
|
case REG_STATE_AUTHSENT:
|
|
return "Auth. Sent";
|
|
case REG_STATE_REGISTERED:
|
|
return "Registered";
|
|
case REG_STATE_REJECTED:
|
|
return "Rejected";
|
|
case REG_STATE_TIMEOUT:
|
|
return "Timeout";
|
|
case REG_STATE_NOAUTH:
|
|
return "No Authentication";
|
|
default:
|
|
return "Unknown";
|
|
}
|
|
}
|
|
|
|
static int sip_show_registry(int fd, int argc, char *argv[])
|
|
{
|
|
#define FORMAT2 "%-20.20s %-10.10s %8.8s %-20.20s\n"
|
|
#define FORMAT "%-20.20s %-10.10s %8d %-20.20s\n"
|
|
struct sip_registry *reg;
|
|
char host[80];
|
|
if (argc != 3)
|
|
return RESULT_SHOWUSAGE;
|
|
ast_pthread_mutex_lock(&peerl.lock);
|
|
ast_cli(fd, FORMAT2, "Host", "Username", "Refresh", "State");
|
|
for (reg = registrations;reg;reg = reg->next) {
|
|
snprintf(host, sizeof(host), "%s:%d", inet_ntoa(reg->addr.sin_addr), ntohs(reg->addr.sin_port));
|
|
ast_cli(fd, FORMAT, host,
|
|
reg->username, reg->refresh, regstate2str(reg->regstate));
|
|
}
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
return RESULT_SUCCESS;
|
|
#undef FORMAT
|
|
#undef FORMAT2
|
|
}
|
|
|
|
static int sip_show_channels(int fd, int argc, char *argv[])
|
|
{
|
|
#define FORMAT2 "%-15.15s %-10.10s %-11.11s %-11.11s %-7.7s %-6.6s %s\n"
|
|
#define FORMAT "%-15.15s %-10.10s %-11.11s %5.5d/%5.5d %-5.5dms %-4.4dms %d\n"
|
|
struct sip_pvt *cur;
|
|
int numchans = 0;
|
|
if (argc != 3)
|
|
return RESULT_SHOWUSAGE;
|
|
ast_pthread_mutex_lock(&iflock);
|
|
cur = iflist;
|
|
ast_cli(fd, FORMAT2, "Peer", "Username", "Call ID", "Seq (Tx/Rx)", "Lag", "Jitter", "Format");
|
|
while (cur) {
|
|
if (!cur->subscribed) {
|
|
ast_cli(fd, FORMAT, inet_ntoa(cur->sa.sin_addr),
|
|
strlen(cur->username) ? cur->username : "(None)",
|
|
cur->callid,
|
|
cur->ocseq, cur->icseq,
|
|
0,
|
|
0,
|
|
cur->owner ? cur->owner->nativeformats : 0);
|
|
numchans++;
|
|
}
|
|
cur = cur->next;
|
|
}
|
|
ast_pthread_mutex_unlock(&iflock);
|
|
ast_cli(fd, "%d active SIP channel(s)\n", numchans);
|
|
return RESULT_SUCCESS;
|
|
#undef FORMAT
|
|
#undef FORMAT2
|
|
}
|
|
|
|
static char *complete_sipch(char *line, char *word, int pos, int state)
|
|
{
|
|
int which=0;
|
|
struct sip_pvt *cur;
|
|
char *c = NULL;
|
|
ast_pthread_mutex_lock(&iflock);
|
|
cur = iflist;
|
|
while(cur) {
|
|
if (!strncasecmp(word, cur->callid, strlen(word))) {
|
|
if (++which > state) {
|
|
c = strdup(cur->callid);
|
|
break;
|
|
}
|
|
}
|
|
cur = cur->next;
|
|
}
|
|
ast_pthread_mutex_unlock(&iflock);
|
|
return c;
|
|
}
|
|
|
|
static int sip_show_channel(int fd, int argc, char *argv[])
|
|
{
|
|
struct sip_pvt *cur;
|
|
char tmp[256];
|
|
if (argc != 4)
|
|
return RESULT_SHOWUSAGE;
|
|
ast_pthread_mutex_lock(&iflock);
|
|
cur = iflist;
|
|
while(cur) {
|
|
if (!strcasecmp(cur->callid, argv[3])) {
|
|
ast_cli(fd, "Call-ID: %s\n", cur->callid);
|
|
ast_cli(fd, "Codec Capability: %d\n", cur->capability);
|
|
ast_cli(fd, "Non-Codec Capability: %d\n", cur->noncodeccapability);
|
|
ast_cli(fd, "Theoretical Address: %s:%d\n", inet_ntoa(cur->sa.sin_addr), ntohs(cur->sa.sin_port));
|
|
ast_cli(fd, "Received Address: %s:%d\n", inet_ntoa(cur->recv.sin_addr), ntohs(cur->recv.sin_port));
|
|
ast_cli(fd, "NAT Support: %s\n", cur->nat ? "Yes" : "No");
|
|
ast_cli(fd, "Our Tag: %08d\n", cur->tag);
|
|
ast_cli(fd, "Their Tag: %s\n", cur->theirtag);
|
|
strcpy(tmp, "");
|
|
if (cur->dtmfmode & SIP_DTMF_RFC2833)
|
|
strcat(tmp, "rfc2833 ");
|
|
if (cur->dtmfmode & SIP_DTMF_INFO)
|
|
strcat(tmp, "info ");
|
|
if (cur->dtmfmode & SIP_DTMF_INBAND)
|
|
strcat(tmp, "inband ");
|
|
ast_cli(fd, "DTMF Mode: %s\n", tmp);
|
|
break;
|
|
}
|
|
cur = cur->next;
|
|
}
|
|
ast_pthread_mutex_unlock(&iflock);
|
|
if (!cur)
|
|
ast_cli(fd, "No such SIP Call ID '%s'\n", argv[3]);
|
|
return RESULT_SUCCESS;
|
|
}
|
|
|
|
static void receive_info(struct sip_pvt *p, struct sip_request *req)
|
|
{
|
|
char buf[1024] = "";
|
|
struct ast_frame f;
|
|
char *c;
|
|
/* Try getting the "signal=" part */
|
|
if ((c = get_sdp(req, "Signal"))) {
|
|
strncpy(buf, c, sizeof(buf) - 1);
|
|
} else if (get_msg_text(buf, sizeof(buf), req)) {
|
|
/* Normal INFO method */
|
|
ast_log(LOG_WARNING, "Unable to retrieve text from %s\n", p->callid);
|
|
return;
|
|
}
|
|
|
|
if (p->owner) {
|
|
if (strlen(buf)) {
|
|
if (sipdebug)
|
|
ast_verbose("DTMF received: '%c'\n", buf[0]);
|
|
memset(&f, 0, sizeof(f));
|
|
f.frametype = AST_FRAME_DTMF;
|
|
f.subclass = buf[0];
|
|
f.offset = 0;
|
|
f.data = NULL;
|
|
f.datalen = 0;
|
|
ast_queue_frame(p->owner, &f, 0);
|
|
}
|
|
}
|
|
}
|
|
|
|
static int sip_do_debug(int fd, int argc, char *argv[])
|
|
{
|
|
if (argc != 2)
|
|
return RESULT_SHOWUSAGE;
|
|
sipdebug = 1;
|
|
ast_cli(fd, "SIP Debugging Enabled\n");
|
|
return RESULT_SUCCESS;
|
|
}
|
|
|
|
static int sip_no_debug(int fd, int argc, char *argv[])
|
|
{
|
|
if (argc != 3)
|
|
return RESULT_SHOWUSAGE;
|
|
sipdebug = 0;
|
|
ast_cli(fd, "SIP Debugging Disabled\n");
|
|
return RESULT_SUCCESS;
|
|
}
|
|
|
|
static int reply_digest(struct sip_pvt *p, struct sip_request *req, char *header, char *orig_header, char *digest, int digest_len);
|
|
|
|
static int do_register_auth(struct sip_pvt *p, struct sip_request *req) {
|
|
char digest[256];
|
|
memset(digest,0,sizeof(digest));
|
|
if (reply_digest(p,req, "WWW-Authenticate", "REGISTER", digest, sizeof(digest))) {
|
|
/* There's nothing to use for authentication */
|
|
return -1;
|
|
}
|
|
return transmit_register(p->registry,"REGISTER",digest);
|
|
}
|
|
|
|
static int do_proxy_auth(struct sip_pvt *p, struct sip_request *req) {
|
|
char digest[256];
|
|
memset(digest,0,sizeof(digest));
|
|
if (reply_digest(p,req, "Proxy-Authenticate", "INVITE", digest, sizeof(digest) )) {
|
|
/* No way to authenticate */
|
|
return -1;
|
|
}
|
|
return transmit_invite(p,"INVITE",1,digest, NULL);
|
|
}
|
|
|
|
static int reply_digest(struct sip_pvt *p, struct sip_request *req, char *header, char *orig_header, char *digest, int digest_len) {
|
|
|
|
char tmp[256] = "";
|
|
char *realm = "";
|
|
char *nonce = "";
|
|
char *c;
|
|
|
|
|
|
strncpy(tmp, get_header(req, header),sizeof(tmp) - 1);
|
|
if (!strlen(tmp))
|
|
return -1;
|
|
c = tmp;
|
|
c+=strlen("Digest ");
|
|
while (c) {
|
|
while (*c && (*c < 33)) c++;
|
|
if (!*c)
|
|
break;
|
|
if (!strncasecmp(c,"realm=", strlen("realm="))) {
|
|
c+=strlen("realm=");
|
|
if ((*c == '\"')) {
|
|
realm=++c;
|
|
if ((c = strchr(c,'\"')))
|
|
*c = '\0';
|
|
} else {
|
|
realm = c;
|
|
if ((c = strchr(c,',')))
|
|
*c = '\0';
|
|
}
|
|
} else if (!strncasecmp(c, "nonce=", strlen("nonce="))) {
|
|
c+=strlen("nonce=");
|
|
if ((*c == '\"')) {
|
|
nonce=++c;
|
|
if ((c = strchr(c,'\"')))
|
|
*c = '\0';
|
|
} else {
|
|
nonce = c;
|
|
if ((c = strchr(c,',')))
|
|
*c = '\0';
|
|
}
|
|
} else
|
|
c = strchr(c,',');
|
|
if (c)
|
|
c++;
|
|
}
|
|
|
|
/* copy realm and nonce for later authorization of CANCELs and BYEs */
|
|
strncpy(p->realm, realm, sizeof(p->realm)-1);
|
|
strncpy(p->nonce, nonce, sizeof(p->nonce)-1);
|
|
|
|
build_reply_digest(p, orig_header, digest, digest_len);
|
|
return 0;
|
|
}
|
|
|
|
static int build_reply_digest(struct sip_pvt *p, char* orig_header, char* digest, int digest_len)
|
|
{
|
|
char a1[256];
|
|
char a2[256];
|
|
char a1_hash[256];
|
|
char a2_hash[256];
|
|
char resp[256];
|
|
char resp_hash[256];
|
|
char uri[256] = "";
|
|
|
|
snprintf(uri, sizeof(uri), "sip:%s@%s",p->username, inet_ntoa(p->sa.sin_addr));
|
|
|
|
snprintf(a1,sizeof(a1),"%s:%s:%s",p->peername,p->realm,p->peersecret);
|
|
snprintf(a2,sizeof(a2),"%s:%s",orig_header,uri);
|
|
md5_hash(a1_hash,a1);
|
|
md5_hash(a2_hash,a2);
|
|
snprintf(resp,sizeof(resp),"%s:%s:%s",a1_hash,p->nonce,a2_hash);
|
|
md5_hash(resp_hash,resp);
|
|
|
|
snprintf(digest,digest_len,"Digest username=\"%s\", realm=\"%s\", algorithm=\"MD5\", uri=\"%s\", nonce=\"%s\", response=\"%s\"",p->peername,p->realm,uri,p->nonce,resp_hash);
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
|
|
|
|
static char show_users_usage[] =
|
|
"Usage: sip show users\n"
|
|
" Lists all users known to the SIP (Session Initiation Protocol) subsystem.\n";
|
|
|
|
static char show_channels_usage[] =
|
|
"Usage: sip show channels\n"
|
|
" Lists all currently active SIP channels.\n";
|
|
|
|
static char show_channel_usage[] =
|
|
"Usage: sip show channel <channel>\n"
|
|
" Provides detailed status on a given SIP channel.\n";
|
|
|
|
static char show_peers_usage[] =
|
|
"Usage: sip show peers\n"
|
|
" Lists all known SIP peers.\n";
|
|
|
|
static char show_reg_usage[] =
|
|
"Usage: sip show registry\n"
|
|
" Lists all registration requests and status.\n";
|
|
|
|
static char debug_usage[] =
|
|
"Usage: sip debug\n"
|
|
" Enables dumping of SIP packets for debugging purposes\n";
|
|
|
|
static char no_debug_usage[] =
|
|
"Usage: sip no debug\n"
|
|
" Disables dumping of SIP packets for debugging purposes\n";
|
|
|
|
static struct ast_cli_entry cli_show_users =
|
|
{ { "sip", "show", "users", NULL }, sip_show_users, "Show defined SIP users", show_users_usage };
|
|
static struct ast_cli_entry cli_show_channels =
|
|
{ { "sip", "show", "channels", NULL }, sip_show_channels, "Show active SIP channels", show_channels_usage};
|
|
static struct ast_cli_entry cli_show_channel =
|
|
{ { "sip", "show", "channel", NULL }, sip_show_channel, "Show detailed SIP channel info", show_channel_usage, complete_sipch };
|
|
static struct ast_cli_entry cli_show_peers =
|
|
{ { "sip", "show", "peers", NULL }, sip_show_peers, "Show defined SIP peers", show_peers_usage };
|
|
static struct ast_cli_entry cli_show_registry =
|
|
{ { "sip", "show", "registry", NULL }, sip_show_registry, "Show SIP registration status", show_reg_usage };
|
|
static struct ast_cli_entry cli_debug =
|
|
{ { "sip", "debug", NULL }, sip_do_debug, "Enable SIP debugging", debug_usage };
|
|
static struct ast_cli_entry cli_no_debug =
|
|
{ { "sip", "no", "debug", NULL }, sip_no_debug, "Disable SIP debugging", no_debug_usage };
|
|
|
|
|
|
static int sip_poke_peer_s(void *data)
|
|
{
|
|
struct sip_peer *peer = data;
|
|
peer->pokeexpire = -1;
|
|
sip_poke_peer(peer);
|
|
return 0;
|
|
}
|
|
|
|
static void parse_moved_contact(struct sip_pvt *p, struct sip_request *req)
|
|
{
|
|
char tmp[256] = "";
|
|
char *s, *e;
|
|
strncpy(tmp, get_header(req, "Contact"), sizeof(tmp) - 1);
|
|
s = ditch_braces(tmp);
|
|
e = strchr(tmp, '@');
|
|
if (e)
|
|
*e = '\0';
|
|
if (!strncasecmp(s, "sip:", 4))
|
|
s += 4;
|
|
ast_log(LOG_DEBUG, "Found 302 Redirect to extension '%s'\n", s);
|
|
if (p->owner)
|
|
strncpy(p->owner->call_forward, s, sizeof(p->owner->call_forward) - 1);
|
|
}
|
|
|
|
static void handle_response(struct sip_pvt *p, int resp, char *rest, struct sip_request *req)
|
|
{
|
|
char *to;
|
|
char *msg, *c;
|
|
struct ast_channel *owner;
|
|
struct sip_peer *peer;
|
|
int pingtime;
|
|
struct timeval tv;
|
|
int seqno=0;
|
|
c = get_header(req, "Cseq");
|
|
if (sscanf(c, "%d ", &seqno) != 1) {
|
|
ast_log(LOG_WARNING, "Unable to determine sequence number\n");
|
|
}
|
|
msg = strchr(c, ' ');
|
|
if (!msg) msg = ""; else msg++;
|
|
owner = p->owner;
|
|
/* Acknowledge whatever it is destined for */
|
|
__sip_ack(p, seqno, 0);
|
|
if (p->peerpoke) {
|
|
/* We don't really care what the response is, just that it replied back.
|
|
Well, as long as it's not a 100 response... since we might
|
|
need to hang around for something more "difinitive" */
|
|
if (resp != 100) {
|
|
int statechanged = 0;
|
|
peer = p->peerpoke;
|
|
gettimeofday(&tv, NULL);
|
|
pingtime = (tv.tv_sec - peer->ps.tv_sec) * 1000 +
|
|
(tv.tv_usec - peer->ps.tv_usec) / 1000;
|
|
if (pingtime < 1)
|
|
pingtime = 1;
|
|
if ((peer->lastms < 0) || (peer->lastms > peer->maxms)) {
|
|
if (pingtime <= peer->maxms) {
|
|
ast_log(LOG_NOTICE, "Peer '%s' is now REACHABLE!\n", peer->name);
|
|
statechanged = 1;
|
|
}
|
|
} else if ((peer->lastms > 0) && (peer->lastms <= peer->maxms)) {
|
|
if (pingtime > peer->maxms) {
|
|
ast_log(LOG_NOTICE, "Peer '%s' is now TOO LAGGED!\n", peer->name);
|
|
statechanged = 1;
|
|
}
|
|
}
|
|
if (!peer->lastms)
|
|
statechanged = 1;
|
|
peer->lastms = pingtime;
|
|
peer->call = NULL;
|
|
if (statechanged)
|
|
ast_device_state_changed("SIP/%s", peer->name);
|
|
|
|
if (peer->pokeexpire > -1)
|
|
ast_sched_del(sched, peer->pokeexpire);
|
|
if (!strcasecmp(msg, "INVITE"))
|
|
transmit_request(p, "ACK", seqno, 0);
|
|
p->needdestroy = 1;
|
|
/* Try again eventually */
|
|
if ((peer->lastms < 0) || (peer->lastms > peer->maxms))
|
|
peer->pokeexpire = ast_sched_add(sched, DEFAULT_FREQ_NOTOK, sip_poke_peer_s, peer);
|
|
else
|
|
peer->pokeexpire = ast_sched_add(sched, DEFAULT_FREQ_OK, sip_poke_peer_s, peer);
|
|
}
|
|
} else if (p->outgoing) {
|
|
/* Acknowledge sequence number */
|
|
if (p->initid > -1) {
|
|
/* Don't auto congest anymore since we've gotten something useful back */
|
|
ast_sched_del(sched, p->initid);
|
|
p->initid = -1;
|
|
}
|
|
/* Get their tag if we haven't already */
|
|
to = get_header(req, "To");
|
|
to = strstr(to, "tag=");
|
|
if (to) {
|
|
to += 4;
|
|
strncpy(p->theirtag, to, sizeof(p->theirtag) - 1);
|
|
to = strchr(p->theirtag, ';');
|
|
if (to)
|
|
*to = '\0';
|
|
}
|
|
|
|
switch(resp) {
|
|
case 100:
|
|
break;
|
|
case 183: /* We don't really need this since we pass in-band audio anyway */
|
|
{
|
|
/* Send back an empty audio frame to get things moving, (like in the case of
|
|
back-to-back 183's, getting audio */
|
|
if (strlen(get_header(req, "Content-Type")))
|
|
process_sdp(p, req);
|
|
if (p->owner && p->owner->pvt) {
|
|
struct ast_frame af = { AST_FRAME_VOICE, };
|
|
af.subclass = p->owner->pvt->rawreadformat;
|
|
ast_queue_frame(p->owner, &af, 0);
|
|
}
|
|
}
|
|
break;
|
|
case 180:
|
|
if (p->owner) {
|
|
ast_queue_control(p->owner, AST_CONTROL_RINGING, 0);
|
|
if (p->owner->_state != AST_STATE_UP)
|
|
ast_setstate(p->owner, AST_STATE_RINGING);
|
|
}
|
|
break;
|
|
case 200:
|
|
if (!strcasecmp(msg, "NOTIFY")) {
|
|
/* They got the notify, this is the end */
|
|
if (p->owner) {
|
|
ast_log(LOG_WARNING, "Notify answer on an owned channel?\n");
|
|
ast_queue_hangup(p->owner, 0);
|
|
} else {
|
|
if (!p->subscribed) {
|
|
sip_destroy(p);
|
|
p = NULL;
|
|
}
|
|
}
|
|
} else if (!strcasecmp(msg, "INVITE")) {
|
|
if (strlen(get_header(req, "Content-Type")))
|
|
process_sdp(p, req);
|
|
/* Save Record-Route for any later requests we make on this dialogue */
|
|
build_route(p, req, 1);
|
|
if (p->owner) {
|
|
if (p->owner->_state != AST_STATE_UP) {
|
|
ast_setstate(p->owner, AST_STATE_UP);
|
|
ast_queue_control(p->owner, AST_CONTROL_ANSWER, 0);
|
|
}
|
|
}
|
|
transmit_request(p, "ACK", seqno, 0);
|
|
/* Go ahead and send bye at this point */
|
|
if (p->pendingbye) {
|
|
transmit_request(p, "BYE", 0, 1);
|
|
p->needdestroy = 1;
|
|
}
|
|
} else if (!strcasecmp(msg, "REGISTER")) {
|
|
/* char *exp; */
|
|
int expires;
|
|
struct sip_registry *r;
|
|
r=p->registry;
|
|
if (r) {
|
|
r->regstate=REG_STATE_REGISTERED;
|
|
ast_log(LOG_DEBUG, "Registration successful\n");
|
|
if (r->timeout > -1) {
|
|
ast_log(LOG_DEBUG, "Cancelling timeout %d\n", r->timeout);
|
|
ast_sched_del(sched, r->timeout);
|
|
}
|
|
r->timeout=-1;
|
|
r->call = NULL;
|
|
p->registry = NULL;
|
|
p->needdestroy = 1;
|
|
/* set us up for re-registering */
|
|
/* figure out how long we got registered for */
|
|
if (r->expire > -1)
|
|
ast_sched_del(sched, r->expire);
|
|
expires=atoi(get_header(req, "expires"));
|
|
if (!expires) expires=default_expiry;
|
|
r->expire=ast_sched_add(sched, (expires-2)*1000, sip_reregister, r);
|
|
} else
|
|
ast_log(LOG_WARNING, "Got 200 OK on REGISTER that isn't a register\n");
|
|
|
|
}
|
|
break;
|
|
case 401: /* Not authorized on REGISTER */
|
|
if (p->registry && !strcasecmp(msg, "REGISTER")) {
|
|
if (do_register_auth(p, req)) {
|
|
ast_log(LOG_NOTICE, "Failed to authenticate on REGISTER to '%s'\n", get_header(&p->initreq, "From"));
|
|
p->needdestroy = 1;
|
|
}
|
|
} else
|
|
p->needdestroy = 1;
|
|
break;
|
|
case 407:
|
|
if (!strcasecmp(msg, "INVITE")) {
|
|
/* First we ACK */
|
|
transmit_request(p, "ACK", seqno, 0);
|
|
/* Then we AUTH */
|
|
if (do_proxy_auth(p, req)) {
|
|
ast_log(LOG_NOTICE, "Failed to authenticate on INVITE to '%s'\n", get_header(&p->initreq, "From"));
|
|
p->needdestroy = 1;
|
|
}
|
|
} else
|
|
p->needdestroy = 1;
|
|
break;
|
|
default:
|
|
if ((resp >= 300) && (resp < 700)) {
|
|
if (option_verbose > 2)
|
|
ast_verbose(VERBOSE_PREFIX_3 "Got SIP response %d \"%s\" back from %s\n", resp, rest, inet_ntoa(p->sa.sin_addr));
|
|
p->alreadygone = 1;
|
|
if (p->rtp) {
|
|
/* Immediately stop RTP */
|
|
ast_rtp_stop(p->rtp);
|
|
}
|
|
/* XXX Locking issues?? XXX */
|
|
switch(resp) {
|
|
case 302: /* Moved temporarily */
|
|
parse_moved_contact(p, req);
|
|
if (p->owner)
|
|
ast_queue_control(p->owner, AST_CONTROL_BUSY, 0);
|
|
break;
|
|
case 486: /* Busy here */
|
|
case 600: /* Busy everywhere */
|
|
if (p->owner)
|
|
ast_queue_control(p->owner, AST_CONTROL_BUSY, 0);
|
|
break;
|
|
case 480: /* Temporarily Unavailable */
|
|
case 404: /* Not Found */
|
|
case 410: /* Gone */
|
|
case 500: /* Server error */
|
|
case 501: /* Not Implemented */
|
|
if (owner)
|
|
ast_queue_control(p->owner, AST_CONTROL_CONGESTION, 0);
|
|
break;
|
|
default:
|
|
/* Send hangup */
|
|
if (owner)
|
|
ast_queue_hangup(p->owner, 0);
|
|
break;
|
|
}
|
|
/* ACK on invite */
|
|
if (!strcasecmp(msg, "INVITE"))
|
|
transmit_request(p, "ACK", seqno, 0);
|
|
p->alreadygone = 1;
|
|
if (!p->owner)
|
|
p->needdestroy = 1;
|
|
} else
|
|
ast_log(LOG_NOTICE, "Dunno anything about a %d %s response from %s\n", resp, rest, p->owner ? p->owner->name : inet_ntoa(p->sa.sin_addr));
|
|
}
|
|
} else {
|
|
if (sipdebug)
|
|
ast_verbose("Message is %s\n", msg);
|
|
switch(resp) {
|
|
case 200:
|
|
if (!strcasecmp(msg, "INVITE") || !strcasecmp(msg, "REGISTER") )
|
|
transmit_request(p, "ACK", seqno, 0);
|
|
break;
|
|
}
|
|
}
|
|
if (owner)
|
|
ast_pthread_mutex_unlock(&owner->lock);
|
|
if (p)
|
|
ast_pthread_mutex_unlock(&p->lock);
|
|
}
|
|
|
|
static int determine_firstline_parts( struct sip_request *req ) {
|
|
|
|
char *e, *cmd;
|
|
int len;
|
|
|
|
cmd= req->header[0];
|
|
while(*cmd && (*cmd < 33)) {
|
|
cmd++;
|
|
}
|
|
if (!*cmd) {
|
|
return -1;
|
|
}
|
|
e= cmd;
|
|
while(*e && (*e > 32)) {
|
|
e++;
|
|
}
|
|
/* Get the command */
|
|
if (*e) {
|
|
*e = '\0';
|
|
e++;
|
|
}
|
|
req->rlPart1= cmd;
|
|
while( *e && ( *e < 33 ) ) {
|
|
e++;
|
|
}
|
|
if( !*e ) {
|
|
return -1;
|
|
}
|
|
|
|
if ( !strcasecmp(cmd, "SIP/2.0") ) {
|
|
/* We have a response */
|
|
req->rlPart2= e;
|
|
len= strlen( req->rlPart2 );
|
|
if( len < 2 ) { return -1; }
|
|
e+= len - 1;
|
|
while( *e && *e<33 ) {
|
|
e--;
|
|
}
|
|
*(++e)= '\0';
|
|
} else {
|
|
/* We have a request */
|
|
if( *e == '<' ) {
|
|
e++;
|
|
if( !*e ) { return -1; }
|
|
}
|
|
req->rlPart2= e;
|
|
if( ( e= strrchr( req->rlPart2, 'S' ) ) == NULL ) {
|
|
return -1;
|
|
}
|
|
while( isspace( *(--e) ) ) {}
|
|
if( *e == '>' ) {
|
|
*e= '\0';
|
|
} else {
|
|
*(++e)= '\0';
|
|
}
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
static int attempt_transfer(struct sip_pvt *p1, struct sip_pvt *p2)
|
|
{
|
|
if (!p1->owner || !p2->owner) {
|
|
ast_log(LOG_WARNING, "Transfer attempted without dual ownership?\n");
|
|
return -1;
|
|
}
|
|
if (p1->owner->bridge) {
|
|
if (p2->owner->bridge)
|
|
ast_moh_stop(p2->owner->bridge);
|
|
ast_moh_stop(p1->owner->bridge);
|
|
ast_moh_stop(p1->owner);
|
|
ast_moh_stop(p2->owner);
|
|
if (ast_channel_masquerade(p2->owner, p1->owner->bridge)) {
|
|
ast_log(LOG_WARNING, "Failed to masquerade %s into %s\n", p2->owner->name, p1->owner->bridge->name);
|
|
return -1;
|
|
}
|
|
} else if (p2->owner->bridge) {
|
|
ast_moh_stop(p2->owner->bridge);
|
|
ast_moh_stop(p2->owner);
|
|
ast_moh_stop(p1->owner);
|
|
if (ast_channel_masquerade(p1->owner, p2->owner->bridge)) {
|
|
ast_log(LOG_WARNING, "Failed to masquerade %s into %s\n", p1->owner->name, p2->owner->bridge->name);
|
|
return -1;
|
|
}
|
|
} else {
|
|
ast_log(LOG_NOTICE, "Transfer attempted with no bridged calls to transfer\n");
|
|
return -1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int handle_request(struct sip_pvt *p, struct sip_request *req, struct sockaddr_in *sin)
|
|
{
|
|
/* Called with p->lock held, as well as p->owner->lock if appropriate, keeping things
|
|
relatively static */
|
|
struct sip_request resp;
|
|
char *cmd;
|
|
char *cseq;
|
|
char *from;
|
|
char *e;
|
|
struct ast_channel *c=NULL;
|
|
int seqno;
|
|
int len;
|
|
int ignore=0;
|
|
int respid;
|
|
int res;
|
|
int gotdest;
|
|
/* Clear out potential response */
|
|
memset(&resp, 0, sizeof(resp));
|
|
/* Get Method and Cseq */
|
|
cseq = get_header(req, "Cseq");
|
|
cmd = req->header[0];
|
|
/* Must have Cseq */
|
|
if (!strlen(cmd) || !strlen(cseq))
|
|
return -1;
|
|
if (sscanf(cseq, "%i%n", &seqno, &len) != 1) {
|
|
ast_log(LOG_DEBUG, "No seqno in '%s'\n", cmd);
|
|
return -1;
|
|
}
|
|
/* Get the command */
|
|
cseq += len;
|
|
|
|
/* Determine the request URI for sip, sips or tel URIs */
|
|
if( determine_firstline_parts( req ) < 0 ) {
|
|
return -1;
|
|
}
|
|
cmd= req->rlPart1;
|
|
e= req->rlPart2;
|
|
|
|
if (strcasecmp(cmd, "SIP/2.0")) {
|
|
/* Request coming in */
|
|
if (p->icseq && (p->icseq < seqno)) {
|
|
ast_log(LOG_DEBUG, "Ignoring out of order packet %d (expecting %d)\n", seqno, p->icseq);
|
|
return -1;
|
|
} else if (p->icseq && (p->icseq != seqno)) {
|
|
/* ignore means "don't do anything with it" but still have to
|
|
respond appropriately */
|
|
ignore=1;
|
|
}
|
|
if (!strlen(p->theirtag)) {
|
|
from = get_header(req, "From");
|
|
from = strstr(from, "tag=");
|
|
if (from) {
|
|
from += 4;
|
|
strncpy(p->theirtag, from, sizeof(p->theirtag) - 1);
|
|
from = strchr(p->theirtag, ';');
|
|
if (from)
|
|
*from = '\0';
|
|
}
|
|
}
|
|
} else {
|
|
/* Response to our request -- Do some sanity checks */
|
|
if (!p->initreq.headers) {
|
|
ast_log(LOG_DEBUG, "That's odd... Got a response on a call we dont know about.\n");
|
|
p->needdestroy = 1;
|
|
return 0;
|
|
} else if (p->ocseq && (p->ocseq < seqno)) {
|
|
ast_log(LOG_DEBUG, "Ignoring out of order response %d (expecting %d)\n", seqno, p->ocseq);
|
|
return -1;
|
|
} else if (p->ocseq && (p->ocseq != seqno)) {
|
|
/* ignore means "don't do anything with it" but still have to
|
|
respond appropriately */
|
|
ignore=1;
|
|
}
|
|
}
|
|
|
|
if (strcmp(cmd, "SIP/2.0") && (seqno >= p->icseq))
|
|
/* Next should follow monotonically increasing */
|
|
p->icseq = seqno + 1;
|
|
|
|
/* Initialize the context if it hasn't been already */
|
|
if (!strcasecmp(cmd, "OPTIONS")) {
|
|
res = get_destination(p, req);
|
|
build_contact(p);
|
|
/* XXX Should we authenticate OPTIONS? XXX */
|
|
if (!strlen(p->context))
|
|
strncpy(p->context, context, sizeof(p->context) - 1);
|
|
if (res < 0)
|
|
transmit_response_with_allow(p, "404 Not Found", req);
|
|
else if (res > 0)
|
|
transmit_response_with_allow(p, "484 Address Incomplete", req);
|
|
else
|
|
transmit_response_with_allow(p, "200 OK", req);
|
|
} else if (!strcasecmp(cmd, "INVITE")) {
|
|
if (p->outgoing && p->owner && (p->owner->_state != AST_STATE_UP)) {
|
|
/* This is a call to ourself. Send ourselves an error code and stop
|
|
processing immediately, as SIP really has no good mechanism for
|
|
being able to call yourself */
|
|
transmit_response(p, "482 Loop Detected", req);
|
|
/* We do NOT destroy p here, so that our response will be accepted */
|
|
return 0;
|
|
}
|
|
/* Process the SDP portion */
|
|
if (!ignore) {
|
|
/* Use this as the basis */
|
|
if (sipdebug)
|
|
ast_verbose("Using latest request as basis request\n");
|
|
/* This call is no longer outgoing if it ever was */
|
|
p->outgoing = 0;
|
|
copy_request(&p->initreq, req);
|
|
check_via(p, req);
|
|
if (strlen(get_header(req, "Content-Type"))) {
|
|
if (process_sdp(p, req))
|
|
return -1;
|
|
} else {
|
|
p->capability = capability;
|
|
ast_log(LOG_DEBUG, "Hm.... No sdp for the moemnt\n");
|
|
}
|
|
} else if (sipdebug)
|
|
ast_verbose("Ignoring this request\n");
|
|
if (!p->lastinvite) {
|
|
/* Handle authentication if this is our first invite */
|
|
res = check_user(p, req, cmd, e, 1);
|
|
if (res) {
|
|
if (res < 0) {
|
|
ast_log(LOG_NOTICE, "Failed to authenticate user %s\n", get_header(req, "From"));
|
|
p->needdestroy = 1;
|
|
}
|
|
return 0;
|
|
}
|
|
/* Initialize the context if it hasn't been already */
|
|
if (!strlen(p->context))
|
|
strncpy(p->context, context, sizeof(p->context) - 1);
|
|
/* Get destination right away */
|
|
gotdest = get_destination(p, NULL);
|
|
build_contact(p);
|
|
|
|
if (gotdest) {
|
|
if (gotdest < 0)
|
|
transmit_response(p, "404 Not Found", req);
|
|
else
|
|
transmit_response(p, "484 Address Incomplete", req);
|
|
p->needdestroy = 1;
|
|
} else {
|
|
/* If no extension was specified, use the s one */
|
|
if (!strlen(p->exten))
|
|
strncpy(p->exten, "s", sizeof(p->exten) - 1);
|
|
/* Initialize tag */
|
|
p->tag = rand();
|
|
/* First invitation */
|
|
c = sip_new(p, AST_STATE_DOWN, strlen(p->username) ? p->username : NULL);
|
|
/* Save Record-Route for any later requests we make on this dialogue */
|
|
build_route(p, req, 0);
|
|
if (c) {
|
|
/* Pre-lock the call */
|
|
ast_pthread_mutex_lock(&c->lock);
|
|
}
|
|
}
|
|
|
|
} else
|
|
c = p->owner;
|
|
if (!ignore && p)
|
|
p->lastinvite = seqno;
|
|
if (c) {
|
|
switch(c->_state) {
|
|
case AST_STATE_DOWN:
|
|
transmit_response(p, "100 Trying", req);
|
|
ast_setstate(c, AST_STATE_RING);
|
|
if (strcmp(p->exten, ast_pickup_ext())) {
|
|
if (ast_pbx_start(c)) {
|
|
ast_log(LOG_WARNING, "Failed to start PBX :(\n");
|
|
ast_pthread_mutex_unlock(&c->lock);
|
|
ast_hangup(c);
|
|
transmit_response_reliable(p, "503 Unavailable", req);
|
|
c = NULL;
|
|
}
|
|
} else if (ast_pickup_call(c)) {
|
|
ast_log(LOG_WARNING, "Nothing to pick up\n");
|
|
transmit_response_reliable(p, "503 Unavailable", req);
|
|
p->alreadygone = 1;
|
|
ast_pthread_mutex_unlock(&c->lock);
|
|
ast_hangup(c);
|
|
} else {
|
|
ast_pthread_mutex_unlock(&c->lock);
|
|
ast_hangup(c);
|
|
c = NULL;
|
|
}
|
|
break;
|
|
case AST_STATE_RING:
|
|
transmit_response(p, "100 Trying", req);
|
|
break;
|
|
case AST_STATE_RINGING:
|
|
transmit_response(p, "180 Ringing", req);
|
|
break;
|
|
case AST_STATE_UP:
|
|
transmit_response_with_sdp(p, "200 OK", req, 1);
|
|
break;
|
|
default:
|
|
ast_log(LOG_WARNING, "Don't know how to handle INVITE in state %d\n", c->_state);
|
|
transmit_response(p, "100 Trying", req);
|
|
}
|
|
} else {
|
|
if (p && !p->needdestroy) {
|
|
ast_log(LOG_NOTICE, "Unable to create/find channel\n");
|
|
transmit_response_reliable(p, "503 Unavailable", req);
|
|
p->needdestroy = 1;
|
|
}
|
|
}
|
|
} else if (!strcasecmp(cmd, "REFER")) {
|
|
struct ast_channel *transfer_to;
|
|
ast_log(LOG_DEBUG, "We found a REFER!\n");
|
|
if (!strlen(p->context))
|
|
strncpy(p->context, context, sizeof(p->context) - 1);
|
|
res = get_refer_info(p, req);
|
|
if (res < 0)
|
|
transmit_response_with_allow(p, "404 Not Found", req);
|
|
else if (res > 0)
|
|
transmit_response_with_allow(p, "484 Address Incomplete", req);
|
|
else {
|
|
transmit_response(p, "202 Accepted", req);
|
|
if (p->refer_call) {
|
|
ast_log(LOG_DEBUG,"202 Accepted (supervised)\n");
|
|
attempt_transfer(p, p->refer_call);
|
|
ast_pthread_mutex_unlock(&p->refer_call->lock);
|
|
p->refer_call = NULL;
|
|
} else {
|
|
ast_log(LOG_DEBUG,"202 Accepted (blind)\n");
|
|
c = p->owner;
|
|
if (c) {
|
|
transfer_to = c->bridge;
|
|
if (transfer_to)
|
|
ast_async_goto(transfer_to,"", p->refer_to,1, 1);
|
|
}
|
|
}
|
|
/* Always increment on a BYE */
|
|
transmit_request_with_auth(p, "BYE", 0, 1);
|
|
p->alreadygone = 1;
|
|
}
|
|
} else if (!strcasecmp(cmd, "CANCEL")) {
|
|
p->alreadygone = 1;
|
|
if (p->rtp) {
|
|
/* Immediately stop RTP */
|
|
ast_rtp_stop(p->rtp);
|
|
}
|
|
if (p->owner)
|
|
ast_queue_hangup(p->owner, 0);
|
|
transmit_response(p, "200 OK", req);
|
|
transmit_response_reliable(p, "487 Request Terminated", &p->initreq);
|
|
} else if (!strcasecmp(cmd, "BYE")) {
|
|
copy_request(&p->initreq, req);
|
|
p->alreadygone = 1;
|
|
if (p->rtp) {
|
|
/* Immediately stop RTP */
|
|
ast_rtp_stop(p->rtp);
|
|
}
|
|
if (p->owner)
|
|
ast_queue_hangup(p->owner, 0);
|
|
transmit_response(p, "200 OK", req);
|
|
} else if (!strcasecmp(cmd, "MESSAGE")) {
|
|
if (sipdebug)
|
|
ast_verbose("Receiving message!\n");
|
|
receive_message(p, req);
|
|
transmit_response(p, "200 OK", req);
|
|
} else if (!strcasecmp(cmd, "SUBSCRIBE")) {
|
|
if (!ignore) {
|
|
/* Use this as the basis */
|
|
if (sipdebug)
|
|
ast_verbose("Using latest SUBSCRIBE request as basis request\n");
|
|
/* This call is no longer outgoing if it ever was */
|
|
p->outgoing = 0;
|
|
copy_request(&p->initreq, req);
|
|
check_via(p, req);
|
|
} else if (sipdebug)
|
|
ast_verbose("Ignoring this request\n");
|
|
|
|
if (!p->lastinvite) {
|
|
/* Handle authentication if this is our first subscribe */
|
|
res = check_user(p, req, cmd, e, 0);
|
|
if (res) {
|
|
if (res < 0) {
|
|
ast_log(LOG_NOTICE, "Failed to authenticate user %s for SUBSCRIBE\n", get_header(req, "From"));
|
|
sip_destroy(p);
|
|
}
|
|
return 0;
|
|
}
|
|
/* Initialize the context if it hasn't been already */
|
|
if (!strlen(p->context))
|
|
strncpy(p->context, context, sizeof(p->context) - 1);
|
|
/* Get destination right away */
|
|
gotdest = get_destination(p, NULL);
|
|
build_contact(p);
|
|
if (gotdest) {
|
|
if (gotdest < 0)
|
|
transmit_response(p, "404 Not Found", req);
|
|
else
|
|
transmit_response(p, "484 Address Incomplete", req);
|
|
sip_destroy(p);
|
|
p = NULL;
|
|
c = NULL;
|
|
} else {
|
|
/* Initialize tag */
|
|
p->tag = rand();
|
|
if (!strcmp(get_header(req, "Accept"), "application/dialog-info+xml"))
|
|
p->subscribed = 2;
|
|
else
|
|
p->subscribed = 1;
|
|
|
|
p->stateid = ast_extension_state_add(p->context, p->exten, cb_extensionstate, p);
|
|
}
|
|
|
|
} else
|
|
c = p->owner;
|
|
|
|
if (!ignore && p)
|
|
p->lastinvite = seqno;
|
|
if (p) {
|
|
if (!(p->expiry = atoi(get_header(req, "Expires")))) {
|
|
transmit_response(p, "200 OK", req);
|
|
sip_destroy(p);
|
|
return 0;
|
|
}
|
|
// The next line can be removed if the SNOM200 Expires bug is fixed
|
|
if (p->subscribed == 1) {
|
|
if (p->expiry>max_expiry)
|
|
p->expiry = max_expiry;
|
|
}
|
|
transmit_response(p, "200 OK", req);
|
|
sip_scheddestroy(p, (p->expiry+10)*1000);
|
|
transmit_state_notify(p, ast_extension_state(NULL, p->context, p->exten),1);
|
|
}
|
|
} else if (!strcasecmp(cmd, "INFO")) {
|
|
if (sipdebug)
|
|
ast_verbose("Receiving DTMF!\n");
|
|
receive_info(p, req);
|
|
transmit_response(p, "200 OK", req);
|
|
} else if (!strcasecmp(cmd, "REGISTER")) {
|
|
/* Use this as the basis */
|
|
if (sipdebug)
|
|
ast_verbose("Using latest request as basis request\n");
|
|
copy_request(&p->initreq, req);
|
|
check_via(p, req);
|
|
if ((res = register_verify(p, sin, req, e)) < 0)
|
|
ast_log(LOG_NOTICE, "Registration from '%s' failed for '%s'\n", get_header(req, "To"), inet_ntoa(sin->sin_addr));
|
|
if (res < 1) {
|
|
p->needdestroy = 1;
|
|
}
|
|
} else if (!strcasecmp(cmd, "ACK")) {
|
|
/* Uhm, I haven't figured out the point of the ACK yet. Are we
|
|
supposed to retransmit responses until we get an ack?
|
|
Make sure this is on a valid call */
|
|
__sip_ack(p, seqno, 1);
|
|
if (strlen(get_header(req, "Content-Type"))) {
|
|
if (process_sdp(p, req))
|
|
return -1;
|
|
}
|
|
if (!p->lastinvite && !strlen(p->randdata))
|
|
sip_destroy(p);
|
|
} else if (!strcasecmp(cmd, "SIP/2.0")) {
|
|
while(*e && (*e < 33)) e++;
|
|
if (sscanf(e, "%i %n", &respid, &len) != 1) {
|
|
ast_log(LOG_WARNING, "Invalid response: '%s'\n", e);
|
|
} else {
|
|
handle_response(p, respid, e + len, req);
|
|
}
|
|
} else {
|
|
transmit_response_with_allow(p, "405 Method Not Allowed", req);
|
|
ast_log(LOG_NOTICE, "Unknown SIP command '%s' from '%s'\n",
|
|
cmd, inet_ntoa(p->sa.sin_addr));
|
|
/* If this is some new method, and we don't have a call, destory it now */
|
|
if (!p->initreq.headers)
|
|
p->needdestroy = 1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int sipsock_read(int *id, int fd, short events, void *ignore)
|
|
{
|
|
struct sip_request req;
|
|
struct sockaddr_in sin = { 0, };
|
|
struct sip_pvt *p;
|
|
int res;
|
|
int len;
|
|
len = sizeof(sin);
|
|
memset(&req, 0, sizeof(req));
|
|
res = recvfrom(sipsock, req.data, sizeof(req.data) - 1, 0, (struct sockaddr *)&sin, &len);
|
|
if (res < 0) {
|
|
if (errno != ECONNREFUSED)
|
|
ast_log(LOG_WARNING, "Recv error: %s\n", strerror(errno));
|
|
return 1;
|
|
}
|
|
req.data[res] = '\0';
|
|
req.len = res;
|
|
if (sipdebug)
|
|
ast_verbose("Sip read: \n%s\n", req.data);
|
|
parse(&req);
|
|
if (req.headers < 2) {
|
|
/* Must have at least two headers */
|
|
return 1;
|
|
}
|
|
/* Process request, with netlock held */
|
|
ast_pthread_mutex_lock(&netlock);
|
|
p = find_call(&req, &sin);
|
|
if (p) {
|
|
retrylock:
|
|
/* Go ahead and lock the owner if it has one -- we may need it */
|
|
if (p->owner && pthread_mutex_trylock(&p->owner->lock)) {
|
|
ast_log(LOG_DEBUG, "Failed to grab lock, trying again...\n");
|
|
ast_pthread_mutex_unlock(&p->lock);
|
|
/* Sleep infintismly short amount of time */
|
|
usleep(1);
|
|
goto retrylock;
|
|
}
|
|
memcpy(&p->recv, &sin, sizeof(p->recv));
|
|
handle_request(p, &req, &sin);
|
|
if (p->owner)
|
|
ast_pthread_mutex_unlock(&p->owner->lock);
|
|
ast_pthread_mutex_unlock(&p->lock);
|
|
}
|
|
ast_pthread_mutex_unlock(&netlock);
|
|
return 1;
|
|
}
|
|
|
|
static int sip_send_mwi_to_peer(struct sip_peer *peer)
|
|
{
|
|
/* Called with peerl lock, but releases it */
|
|
struct sip_pvt *p;
|
|
char name[256] = "";
|
|
int newmsgs, oldmsgs;
|
|
/* Check for messages */
|
|
ast_app_messagecount(peer->mailbox, &newmsgs, &oldmsgs);
|
|
|
|
time(&peer->lastmsgcheck);
|
|
|
|
/* Return now if it's the same thing we told them last time */
|
|
if (((newmsgs << 8) | (oldmsgs)) == peer->lastmsgssent) {
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
return 0;
|
|
}
|
|
|
|
p = sip_alloc(NULL, NULL, 0);
|
|
if (!p) {
|
|
ast_log(LOG_WARNING, "Unable to build sip pvt data for MWI\n");
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
return -1;
|
|
}
|
|
strncpy(name, peer->name, sizeof(name) - 1);
|
|
peer->lastmsgssent = ((newmsgs << 8) | (oldmsgs));
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
if (create_addr(p, peer->name)) {
|
|
/* Maybe they're not registered, etc. */
|
|
sip_destroy(p);
|
|
return 0;
|
|
}
|
|
/* Recalculate our side, and recalculate Call ID */
|
|
memcpy(&p->ourip, myaddrfor(&p->sa.sin_addr), sizeof(p->ourip));
|
|
snprintf(p->via, sizeof(p->via), "SIP/2.0/UDP %s:%d;branch=z9hG4bK%08x", inet_ntoa(p->ourip), ourport, p->branch);
|
|
build_callid(p->callid, sizeof(p->callid), p->ourip);
|
|
/* Send MWI */
|
|
p->outgoing = 1;
|
|
transmit_notify(p, newmsgs, oldmsgs);
|
|
sip_scheddestroy(p, 15000);
|
|
return 0;
|
|
}
|
|
|
|
static void *do_monitor(void *data)
|
|
{
|
|
int res;
|
|
struct sip_pvt *sip;
|
|
struct sip_peer *peer;
|
|
time_t t;
|
|
/* Add an I/O event to our UDP socket */
|
|
if (sipsock > -1)
|
|
ast_io_add(io, sipsock, sipsock_read, AST_IO_IN, NULL);
|
|
|
|
/* This thread monitors all the frame relay interfaces which are not yet in use
|
|
(and thus do not have a separate thread) indefinitely */
|
|
/* From here on out, we die whenever asked */
|
|
for(;;) {
|
|
/* Check for interfaces needing to be killed */
|
|
ast_pthread_mutex_lock(&iflock);
|
|
restartsearch:
|
|
sip = iflist;
|
|
while(sip) {
|
|
ast_pthread_mutex_lock(&sip->lock);
|
|
if (sip->needdestroy && !sip->packets) {
|
|
ast_pthread_mutex_unlock(&sip->lock);
|
|
__sip_destroy(sip, 1);
|
|
goto restartsearch;
|
|
}
|
|
ast_pthread_mutex_unlock(&sip->lock);
|
|
sip = sip->next;
|
|
}
|
|
ast_pthread_mutex_unlock(&iflock);
|
|
/* Don't let anybody kill us right away. Nobody should lock the interface list
|
|
and wait for the monitor list, but the other way around is okay. */
|
|
ast_pthread_mutex_lock(&monlock);
|
|
/* Lock the network interface */
|
|
ast_pthread_mutex_lock(&netlock);
|
|
/* Okay, now that we know what to do, release the network lock */
|
|
ast_pthread_mutex_unlock(&netlock);
|
|
/* And from now on, we're okay to be killed, so release the monitor lock as well */
|
|
ast_pthread_mutex_unlock(&monlock);
|
|
pthread_testcancel();
|
|
/* Wait for sched or io */
|
|
res = ast_sched_wait(sched);
|
|
if ((res < 0) || (res > 1000))
|
|
res = 1000;
|
|
res = ast_io_wait(io, res);
|
|
ast_pthread_mutex_lock(&monlock);
|
|
if (res >= 0)
|
|
ast_sched_runq(sched);
|
|
ast_pthread_mutex_lock(&peerl.lock);
|
|
peer = peerl.peers;
|
|
time(&t);
|
|
while(peer) {
|
|
if (strlen(peer->mailbox) && (t - peer->lastmsgcheck > 10)) {
|
|
sip_send_mwi_to_peer(peer);
|
|
break;
|
|
}
|
|
peer = peer->next;
|
|
}
|
|
/* Remember, sip_send_mwi_to_peer releases the lock if we've called it */
|
|
if (!peer)
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
ast_pthread_mutex_unlock(&monlock);
|
|
}
|
|
/* Never reached */
|
|
return NULL;
|
|
|
|
}
|
|
|
|
static int restart_monitor(void)
|
|
{
|
|
/* If we're supposed to be stopped -- stay stopped */
|
|
if (monitor_thread == -2)
|
|
return 0;
|
|
if (ast_pthread_mutex_lock(&monlock)) {
|
|
ast_log(LOG_WARNING, "Unable to lock monitor\n");
|
|
return -1;
|
|
}
|
|
if (monitor_thread == pthread_self()) {
|
|
ast_pthread_mutex_unlock(&monlock);
|
|
ast_log(LOG_WARNING, "Cannot kill myself\n");
|
|
return -1;
|
|
}
|
|
if (monitor_thread) {
|
|
/* Wake up the thread */
|
|
pthread_kill(monitor_thread, SIGURG);
|
|
} else {
|
|
/* Start a new monitor */
|
|
if (pthread_create(&monitor_thread, NULL, do_monitor, NULL) < 0) {
|
|
ast_pthread_mutex_unlock(&monlock);
|
|
ast_log(LOG_ERROR, "Unable to start monitor thread.\n");
|
|
return -1;
|
|
}
|
|
}
|
|
ast_pthread_mutex_unlock(&monlock);
|
|
return 0;
|
|
}
|
|
|
|
static int sip_poke_noanswer(void *data)
|
|
{
|
|
struct sip_peer *peer = data;
|
|
|
|
peer->pokeexpire = -1;
|
|
if (peer->lastms > -1)
|
|
ast_log(LOG_NOTICE, "Peer '%s' is now UNREACHABLE!\n", peer->name);
|
|
if (peer->call)
|
|
sip_destroy(peer->call);
|
|
peer->call = NULL;
|
|
peer->lastms = -1;
|
|
ast_device_state_changed("SIP/%s", peer->name);
|
|
/* Try again quickly */
|
|
peer->pokeexpire = ast_sched_add(sched, DEFAULT_FREQ_NOTOK, sip_poke_peer_s, peer);
|
|
return 0;
|
|
}
|
|
|
|
static int sip_poke_peer(struct sip_peer *peer)
|
|
{
|
|
struct sip_pvt *p;
|
|
if (!peer->maxms || !peer->addr.sin_addr.s_addr) {
|
|
/* IF we have no IP, or this isn't to be monitored, return
|
|
imeediately after clearing things out */
|
|
peer->lastms = 0;
|
|
peer->pokeexpire = -1;
|
|
peer->call = NULL;
|
|
return 0;
|
|
}
|
|
if (peer->call > 0) {
|
|
ast_log(LOG_NOTICE, "Still have a call...\n");
|
|
sip_destroy(peer->call);
|
|
}
|
|
p = peer->call = sip_alloc(NULL, NULL, 0);
|
|
if (!peer->call) {
|
|
ast_log(LOG_WARNING, "Unable to allocate call for poking peer '%s'\n", peer->name);
|
|
return -1;
|
|
}
|
|
memcpy(&p->sa, &peer->addr, sizeof(p->sa));
|
|
memcpy(&p->recv, &peer->addr, sizeof(p->sa));
|
|
|
|
/* Recalculate our side, and recalculate Call ID */
|
|
memcpy(&p->ourip, myaddrfor(&p->sa.sin_addr), sizeof(p->ourip));
|
|
snprintf(p->via, sizeof(p->via), "SIP/2.0/UDP %s:%d;branch=z9hG4bK%08x", inet_ntoa(p->ourip), ourport, p->branch);
|
|
build_callid(p->callid, sizeof(p->callid), p->ourip);
|
|
|
|
if (peer->pokeexpire > -1)
|
|
ast_sched_del(sched, peer->pokeexpire);
|
|
p->peerpoke = peer;
|
|
p->outgoing = 1;
|
|
#ifdef VOCAL_DATA_HACK
|
|
strncpy(p->username, "__VOCAL_DATA_SHOULD_READ_THE_SIP_SPEC__", sizeof(p->username));
|
|
transmit_invite(p, "INVITE", 0, NULL, NULL);
|
|
#else
|
|
transmit_invite(p, "OPTIONS", 0, NULL, NULL);
|
|
#endif
|
|
gettimeofday(&peer->ps, NULL);
|
|
peer->pokeexpire = ast_sched_add(sched, DEFAULT_MAXMS * 2, sip_poke_noanswer, peer);
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int sip_devicestate(void *data)
|
|
{
|
|
char *ext, *host;
|
|
char tmp[256] = "";
|
|
char *dest = data;
|
|
|
|
struct hostent *hp;
|
|
struct sip_peer *p;
|
|
int found = 0;
|
|
|
|
int res = AST_DEVICE_INVALID;
|
|
|
|
strncpy(tmp, dest, sizeof(tmp) - 1);
|
|
host = strchr(tmp, '@');
|
|
if (host) {
|
|
*host = '\0';
|
|
host++;
|
|
ext = tmp;
|
|
} else {
|
|
host = tmp;
|
|
ext = NULL;
|
|
}
|
|
|
|
ast_pthread_mutex_lock(&peerl.lock);
|
|
p = peerl.peers;
|
|
while (p) {
|
|
if (!strcasecmp(p->name, host)) {
|
|
found++;
|
|
res = AST_DEVICE_UNAVAILABLE;
|
|
if ((p->addr.sin_addr.s_addr || p->defaddr.sin_addr.s_addr) &&
|
|
(!p->maxms || ((p->lastms > -1) && (p->lastms <= p->maxms)))) {
|
|
/* peer found and valid */
|
|
res = AST_DEVICE_UNKNOWN;
|
|
break;
|
|
}
|
|
}
|
|
p = p->next;
|
|
}
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
if (!p && !found) {
|
|
hp = gethostbyname(host);
|
|
if (hp)
|
|
res = AST_DEVICE_UNKNOWN;
|
|
}
|
|
return res;
|
|
}
|
|
|
|
static struct ast_channel *sip_request(char *type, int format, void *data)
|
|
{
|
|
int oldformat;
|
|
struct sip_pvt *p;
|
|
struct ast_channel *tmpc = NULL;
|
|
char *ext, *host;
|
|
char tmp[256] = "";
|
|
char *dest = data;
|
|
|
|
oldformat = format;
|
|
format &= capability;
|
|
if (!format) {
|
|
ast_log(LOG_NOTICE, "Asked to get a channel of unsupported format %d while capability is %d\n", oldformat, capability);
|
|
return NULL;
|
|
}
|
|
p = sip_alloc(NULL, NULL, 0);
|
|
if (!p) {
|
|
ast_log(LOG_WARNING, "Unable to build sip pvt data for '%s'\n", (char *)data);
|
|
return NULL;
|
|
}
|
|
|
|
strncpy(tmp, dest, sizeof(tmp) - 1);
|
|
host = strchr(tmp, '@');
|
|
if (host) {
|
|
*host = '\0';
|
|
host++;
|
|
ext = tmp;
|
|
} else {
|
|
host = tmp;
|
|
ext = NULL;
|
|
}
|
|
|
|
/* Assign a default capability */
|
|
p->capability = capability;
|
|
|
|
if (create_addr(p, host)) {
|
|
sip_destroy(p);
|
|
return NULL;
|
|
}
|
|
/* Recalculate our side, and recalculate Call ID */
|
|
memcpy(&p->ourip, myaddrfor(&p->sa.sin_addr), sizeof(p->ourip));
|
|
snprintf(p->via, sizeof(p->via), "SIP/2.0/UDP %s:%d;branch=z9hG4bK%08x", inet_ntoa(p->ourip), ourport, p->branch);
|
|
build_callid(p->callid, sizeof(p->callid), p->ourip);
|
|
if (ext)
|
|
strncpy(p->username, ext, sizeof(p->username) - 1);
|
|
#if 0
|
|
printf("Setting up to call extension '%s' at '%s'\n", ext ? ext : "<none>", host);
|
|
#endif
|
|
tmpc = sip_new(p, AST_STATE_DOWN, host);
|
|
if (!tmpc)
|
|
sip_destroy(p);
|
|
restart_monitor();
|
|
return tmpc;
|
|
}
|
|
|
|
static struct sip_user *build_user(char *name, struct ast_variable *v)
|
|
{
|
|
struct sip_user *user;
|
|
int format;
|
|
user = (struct sip_user *)malloc(sizeof(struct sip_user));
|
|
if (user) {
|
|
memset(user, 0, sizeof(struct sip_user));
|
|
strncpy(user->name, name, sizeof(user->name)-1);
|
|
user->canreinvite = REINVITE_INVITE;
|
|
/* JK02: set default context */
|
|
strcpy(user->context, context);
|
|
while(v) {
|
|
if (!strcasecmp(v->name, "context")) {
|
|
strncpy(user->context, v->value, sizeof(user->context));
|
|
} else if (!strcasecmp(v->name, "permit") ||
|
|
!strcasecmp(v->name, "deny")) {
|
|
user->ha = ast_append_ha(v->name, v->value, user->ha);
|
|
} else if (!strcasecmp(v->name, "auth")) {
|
|
strncpy(user->methods, v->value, sizeof(user->methods)-1);
|
|
} else if (!strcasecmp(v->name, "secret")) {
|
|
strncpy(user->secret, v->value, sizeof(user->secret)-1);
|
|
} else if (!strcasecmp(v->name, "dtmfmode")) {
|
|
if (!strcasecmp(v->value, "inband"))
|
|
user->dtmfmode=SIP_DTMF_INBAND;
|
|
else if (!strcasecmp(v->value, "rfc2833"))
|
|
user->dtmfmode = SIP_DTMF_RFC2833;
|
|
else if (!strcasecmp(v->value, "info"))
|
|
user->dtmfmode = SIP_DTMF_INFO;
|
|
else {
|
|
ast_log(LOG_WARNING, "Unknown dtmf mode '%s', using rfc2833\n", v->value);
|
|
user->dtmfmode = SIP_DTMF_RFC2833;
|
|
}
|
|
} else if (!strcasecmp(v->name, "canreinvite")) {
|
|
if (!strcasecmp(v->value, "update"))
|
|
user->canreinvite = REINVITE_UPDATE;
|
|
else
|
|
user->canreinvite = ast_true(v->value);
|
|
} else if (!strcasecmp(v->name, "nat")) {
|
|
user->nat = ast_true(v->value);
|
|
} else if (!strcasecmp(v->name, "callerid")) {
|
|
strncpy(user->callerid, v->value, sizeof(user->callerid)-1);
|
|
user->hascallerid=1;
|
|
} else if (!strcasecmp(v->name, "callgroup")) {
|
|
user->callgroup = ast_get_group(v->value);
|
|
} else if (!strcasecmp(v->name, "pickupgroup")) {
|
|
user->pickupgroup = ast_get_group(v->value);
|
|
} else if (!strcasecmp(v->name, "accountcode")) {
|
|
strncpy(user->accountcode, v->value, sizeof(user->accountcode)-1);
|
|
} else if (!strcasecmp(v->name, "amaflags")) {
|
|
format = ast_cdr_amaflags2int(v->value);
|
|
if (format < 0) {
|
|
ast_log(LOG_WARNING, "Invalid AMA Flags: %s at line %d\n", v->value, v->lineno);
|
|
} else {
|
|
user->amaflags = format;
|
|
}
|
|
} else if (!strcasecmp(v->name, "insecure")) {
|
|
user->insecure = ast_true(v->value);
|
|
} //else if (strcasecmp(v->name,"type"))
|
|
// ast_log(LOG_WARNING, "Ignoring %s\n", v->name);
|
|
v = v->next;
|
|
}
|
|
}
|
|
if (!strlen(user->methods)) {
|
|
if (strlen(user->secret))
|
|
strncpy(user->methods, "md5,plaintext", sizeof(user->methods) - 1);
|
|
}
|
|
return user;
|
|
}
|
|
|
|
static struct sip_peer *build_peer(char *name, struct ast_variable *v)
|
|
{
|
|
struct sip_peer *peer;
|
|
struct sip_peer *prev;
|
|
int maskfound=0;
|
|
int format;
|
|
int found=0;
|
|
prev = NULL;
|
|
ast_pthread_mutex_lock(&peerl.lock);
|
|
peer = peerl.peers;
|
|
while(peer) {
|
|
if (!strcasecmp(peer->name, name)) {
|
|
break;
|
|
}
|
|
prev = peer;
|
|
peer = peer->next;
|
|
}
|
|
if (peer) {
|
|
found++;
|
|
/* Already in the list, remove it and it will be added back (or FREE'd) */
|
|
if (prev) {
|
|
prev->next = peer->next;
|
|
} else {
|
|
peerl.peers = peer->next;
|
|
}
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
} else {
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
peer = malloc(sizeof(struct sip_peer));
|
|
memset(peer, 0, sizeof(struct sip_peer));
|
|
peer->expire = -1;
|
|
peer->pokeexpire = -1;
|
|
peer->lastmsgssent = -1;
|
|
}
|
|
if (peer) {
|
|
if (!found) {
|
|
strncpy(peer->name, name, sizeof(peer->name)-1);
|
|
strncpy(peer->context, context, sizeof(peer->context)-1);
|
|
peer->addr.sin_port = htons(DEFAULT_SIP_PORT);
|
|
peer->expiry = expiry;
|
|
}
|
|
peer->capability = capability;
|
|
/* Assume can reinvite */
|
|
peer->canreinvite = REINVITE_INVITE;
|
|
peer->dtmfmode = 0;
|
|
while(v) {
|
|
if (!strcasecmp(v->name, "secret"))
|
|
strncpy(peer->secret, v->value, sizeof(peer->secret)-1);
|
|
else if (!strcasecmp(v->name, "auth"))
|
|
strncpy(peer->methods, v->value, sizeof(peer->methods)-1);
|
|
else if (!strcasecmp(v->name, "canreinvite")) {
|
|
if (!strcasecmp(v->value, "update"))
|
|
peer->canreinvite = REINVITE_UPDATE;
|
|
else
|
|
peer->canreinvite = ast_true(v->value);
|
|
} else if (!strcasecmp(v->name, "nat"))
|
|
peer->nat = ast_true(v->value);
|
|
else if (!strcasecmp(v->name, "context"))
|
|
strncpy(peer->context, v->value, sizeof(peer->context)-1);
|
|
else if (!strcasecmp(v->name, "fromdomain"))
|
|
strncpy(peer->fromdomain, v->value, sizeof(peer->fromdomain)-1);
|
|
else if (!strcasecmp(v->name, "fromuser"))
|
|
strncpy(peer->fromuser, v->value, sizeof(peer->fromuser)-1);
|
|
else if (!strcasecmp(v->name, "dtmfmode")) {
|
|
if (!strcasecmp(v->value, "inband"))
|
|
peer->dtmfmode=SIP_DTMF_INBAND;
|
|
else if (!strcasecmp(v->value, "rfc2833"))
|
|
peer->dtmfmode = SIP_DTMF_RFC2833;
|
|
else if (!strcasecmp(v->value, "info"))
|
|
peer->dtmfmode = SIP_DTMF_INFO;
|
|
else {
|
|
ast_log(LOG_WARNING, "Unknown dtmf mode '%s', using rfc2833\n", v->value);
|
|
peer->dtmfmode = SIP_DTMF_RFC2833;
|
|
}
|
|
} else if (!strcasecmp(v->name, "host")) {
|
|
if (!strcasecmp(v->value, "dynamic")) {
|
|
/* They'll register with us */
|
|
peer->dynamic = 1;
|
|
if (!found) {
|
|
/* Initialize stuff iff we're not found, otherwise
|
|
we keep going with what we had */
|
|
memset(&peer->addr.sin_addr, 0, 4);
|
|
if (peer->addr.sin_port) {
|
|
/* If we've already got a port, make it the default rather than absolute */
|
|
peer->defaddr.sin_port = peer->addr.sin_port;
|
|
peer->addr.sin_port = 0;
|
|
}
|
|
}
|
|
} else {
|
|
/* Non-dynamic. Make sure we become that way if we're not */
|
|
if (peer->expire > -1)
|
|
ast_sched_del(sched, peer->expire);
|
|
peer->expire = -1;
|
|
peer->dynamic = 0;
|
|
if (ast_get_ip(&peer->addr, v->value)) {
|
|
free(peer);
|
|
return NULL;
|
|
}
|
|
}
|
|
if (!maskfound)
|
|
inet_aton("255.255.255.255", &peer->mask);
|
|
} else if (!strcasecmp(v->name, "defaultip")) {
|
|
if (ast_get_ip(&peer->defaddr, v->value)) {
|
|
free(peer);
|
|
return NULL;
|
|
}
|
|
} else if (!strcasecmp(v->name, "permit") ||
|
|
!strcasecmp(v->name, "deny")) {
|
|
peer->ha = ast_append_ha(v->name, v->value, peer->ha);
|
|
} else if (!strcasecmp(v->name, "mask")) {
|
|
maskfound++;
|
|
inet_aton(v->value, &peer->mask);
|
|
} else if (!strcasecmp(v->name, "port")) {
|
|
if (peer->dynamic)
|
|
peer->defaddr.sin_port = htons(atoi(v->value));
|
|
else
|
|
peer->addr.sin_port = htons(atoi(v->value));
|
|
} else if (!strcasecmp(v->name, "username")) {
|
|
strncpy(peer->username, v->value, sizeof(peer->username)-1);
|
|
} else if (!strcasecmp(v->name, "mailbox")) {
|
|
strncpy(peer->mailbox, v->value, sizeof(peer->mailbox)-1);
|
|
} else if (!strcasecmp(v->name, "allow")) {
|
|
format = ast_getformatbyname(v->value);
|
|
if (format < 1)
|
|
ast_log(LOG_WARNING, "Cannot allow unknown format '%s'\n", v->value);
|
|
else
|
|
peer->capability |= format;
|
|
} else if (!strcasecmp(v->name, "callgroup")) {
|
|
peer->callgroup = ast_get_group(v->value);
|
|
} else if (!strcasecmp(v->name, "pickupgroup")) {
|
|
peer->pickupgroup = ast_get_group(v->value);
|
|
} else if (!strcasecmp(v->name, "disallow")) {
|
|
format = ast_getformatbyname(v->value);
|
|
if (format < 1)
|
|
ast_log(LOG_WARNING, "Cannot disallow unknown format '%s'\n", v->value);
|
|
else
|
|
peer->capability &= ~format;
|
|
} else if (!strcasecmp(v->name, "insecure")) {
|
|
peer->insecure = ast_true(v->value);
|
|
} else if (!strcasecmp(v->name, "qualify")) {
|
|
if (!strcasecmp(v->value, "no")) {
|
|
peer->maxms = 0;
|
|
} else if (!strcasecmp(v->value, "yes")) {
|
|
peer->maxms = DEFAULT_MAXMS;
|
|
} else if (sscanf(v->value, "%d", &peer->maxms) != 1) {
|
|
ast_log(LOG_WARNING, "Qualification of peer '%s' should be 'yes', 'no', or a number of milliseconds at line %d of iax.conf\n", peer->name, v->lineno);
|
|
peer->maxms = 0;
|
|
}
|
|
} //else if (strcasecmp(v->name,"type"))
|
|
// ast_log(LOG_WARNING, "Ignoring %s\n", v->name);
|
|
v=v->next;
|
|
}
|
|
if (!strlen(peer->methods))
|
|
strcpy(peer->methods, "md5,plaintext");
|
|
peer->delme = 0;
|
|
}
|
|
return peer;
|
|
}
|
|
|
|
static int reload_config(void)
|
|
{
|
|
struct ast_config *cfg;
|
|
struct ast_variable *v;
|
|
struct sip_peer *peer;
|
|
struct sip_user *user;
|
|
char *cat;
|
|
char *utype;
|
|
struct hostent *hp;
|
|
int format;
|
|
int oldport = ntohs(bindaddr.sin_port);
|
|
|
|
globaldtmfmode = SIP_DTMF_RFC2833;
|
|
|
|
if (gethostname(ourhost, sizeof(ourhost))) {
|
|
ast_log(LOG_WARNING, "Unable to get hostname, SIP disabled\n");
|
|
return 0;
|
|
}
|
|
cfg = ast_load(config);
|
|
|
|
/* We *must* have a config file otherwise stop immediately */
|
|
if (!cfg) {
|
|
ast_log(LOG_NOTICE, "Unable to load config %s, SIP disabled\n", config);
|
|
return 0;
|
|
}
|
|
|
|
globalnat = 0;
|
|
|
|
sip_prefs_free();
|
|
|
|
memset(&bindaddr, 0, sizeof(bindaddr));
|
|
/* Initialize some reasonable defaults */
|
|
strncpy(context, "default", sizeof(context) - 1);
|
|
strcpy(language, "");
|
|
strcpy(fromdomain, "");
|
|
v = ast_variable_browse(cfg, "general");
|
|
while(v) {
|
|
/* Create the interface list */
|
|
if (!strcasecmp(v->name, "context")) {
|
|
strncpy(context, v->value, sizeof(context)-1);
|
|
} else if (!strcasecmp(v->name, "dtmfmode")) {
|
|
if (!strcasecmp(v->value, "inband"))
|
|
globaldtmfmode=SIP_DTMF_INBAND;
|
|
else if (!strcasecmp(v->value, "rfc2833"))
|
|
globaldtmfmode = SIP_DTMF_RFC2833;
|
|
else if (!strcasecmp(v->value, "info"))
|
|
globaldtmfmode = SIP_DTMF_INFO;
|
|
else {
|
|
ast_log(LOG_WARNING, "Unknown dtmf mode '%s', using rfc2833\n", v->value);
|
|
globaldtmfmode = SIP_DTMF_RFC2833;
|
|
}
|
|
} else if (!strcasecmp(v->name, "language")) {
|
|
strncpy(language, v->value, sizeof(language)-1);
|
|
} else if (!strcasecmp(v->name, "callerid")) {
|
|
strncpy(callerid, v->value, sizeof(callerid)-1);
|
|
} else if (!strcasecmp(v->name, "fromdomain")) {
|
|
strncpy(fromdomain, v->value, sizeof(fromdomain)-1);
|
|
} else if (!strcasecmp(v->name, "nat")) {
|
|
globalnat = ast_true(v->value);
|
|
} else if (!strcasecmp(v->name, "maxexpirey") || !strcasecmp(v->name, "maxexpiry")) {
|
|
max_expiry = atoi(v->value);
|
|
if (max_expiry < 1)
|
|
max_expiry = DEFAULT_MAX_EXPIRY;
|
|
} else if (!strcasecmp(v->name, "defaultexpiry")) {
|
|
default_expiry = atoi(v->value);
|
|
if (default_expiry < 1)
|
|
default_expiry = DEFAULT_DEFAULT_EXPIRY;
|
|
} else if (!strcasecmp(v->name, "bindaddr")) {
|
|
if (!(hp = gethostbyname(v->value))) {
|
|
ast_log(LOG_WARNING, "Invalid address: %s\n", v->value);
|
|
} else {
|
|
memcpy(&bindaddr.sin_addr, hp->h_addr, sizeof(bindaddr.sin_addr));
|
|
}
|
|
} else if (!strcasecmp(v->name, "allow")) {
|
|
format = ast_getformatbyname(v->value);
|
|
if (format < 1)
|
|
ast_log(LOG_WARNING, "Cannot allow unknown format '%s'\n", v->value);
|
|
else {
|
|
capability |= format;
|
|
sip_pref_append(format);
|
|
}
|
|
} else if (!strcasecmp(v->name, "disallow")) {
|
|
format = ast_getformatbyname(v->value);
|
|
if (format < 1)
|
|
ast_log(LOG_WARNING, "Cannot disallow unknown format '%s'\n", v->value);
|
|
else {
|
|
capability &= ~format;
|
|
sip_pref_remove(format);
|
|
}
|
|
} else if (!strcasecmp(v->name, "register")) {
|
|
sip_register(v->value, v->lineno);
|
|
} else if (!strcasecmp(v->name, "tos")) {
|
|
if (sscanf(v->value, "%i", &format) == 1)
|
|
tos = format & 0xff;
|
|
else if (!strcasecmp(v->value, "lowdelay"))
|
|
tos = IPTOS_LOWDELAY;
|
|
else if (!strcasecmp(v->value, "throughput"))
|
|
tos = IPTOS_THROUGHPUT;
|
|
else if (!strcasecmp(v->value, "reliability"))
|
|
tos = IPTOS_RELIABILITY;
|
|
else if (!strcasecmp(v->value, "mincost"))
|
|
tos = IPTOS_MINCOST;
|
|
else if (!strcasecmp(v->value, "none"))
|
|
tos = 0;
|
|
else
|
|
ast_log(LOG_WARNING, "Invalid tos value at line %d, should be 'lowdelay', 'throughput', 'reliability', 'mincost', or 'none'\n", v->lineno);
|
|
} else if (!strcasecmp(v->name, "port")) {
|
|
if (sscanf(v->value, "%i", &ourport) == 1) {
|
|
bindaddr.sin_port = htons(ourport);
|
|
} else {
|
|
ast_log(LOG_WARNING, "Invalid port number '%s' at line %d of %s\n", v->value, v->lineno, config);
|
|
}
|
|
} //else if (strcasecmp(v->name,"type"))
|
|
// ast_log(LOG_WARNING, "Ignoring %s\n", v->name);
|
|
v = v->next;
|
|
}
|
|
|
|
cat = ast_category_browse(cfg, NULL);
|
|
while(cat) {
|
|
if (strcasecmp(cat, "general")) {
|
|
utype = ast_variable_retrieve(cfg, cat, "type");
|
|
if (utype) {
|
|
if (!strcasecmp(utype, "user") || !strcasecmp(utype, "friend")) {
|
|
user = build_user(cat, ast_variable_browse(cfg, cat));
|
|
if (user) {
|
|
ast_pthread_mutex_lock(&userl.lock);
|
|
user->next = userl.users;
|
|
userl.users = user;
|
|
ast_pthread_mutex_unlock(&userl.lock);
|
|
}
|
|
}
|
|
if (!strcasecmp(utype, "peer") || !strcasecmp(utype, "friend")) {
|
|
peer = build_peer(cat, ast_variable_browse(cfg, cat));
|
|
if (peer) {
|
|
ast_pthread_mutex_lock(&peerl.lock);
|
|
peer->next = peerl.peers;
|
|
peerl.peers = peer;
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
}
|
|
} else if (strcasecmp(utype, "user")) {
|
|
ast_log(LOG_WARNING, "Unknown type '%s' for '%s' in %s\n", utype, cat, "sip.conf");
|
|
}
|
|
} else
|
|
ast_log(LOG_WARNING, "Section '%s' lacks type\n", cat);
|
|
}
|
|
cat = ast_category_browse(cfg, cat);
|
|
}
|
|
|
|
if (ntohl(bindaddr.sin_addr.s_addr)) {
|
|
memcpy(&__ourip, &bindaddr, sizeof(__ourip));
|
|
} else {
|
|
hp = gethostbyname(ourhost);
|
|
if (!hp) {
|
|
ast_log(LOG_WARNING, "Unable to get IP address for %s, SIP disabled\n", ourhost);
|
|
return 0;
|
|
}
|
|
memcpy(&__ourip, hp->h_addr, sizeof(__ourip));
|
|
}
|
|
if (!ntohs(bindaddr.sin_port))
|
|
bindaddr.sin_port = ntohs(DEFAULT_SIP_PORT);
|
|
bindaddr.sin_family = AF_INET;
|
|
pthread_mutex_lock(&netlock);
|
|
if ((sipsock > -1) && (ntohs(bindaddr.sin_port) != oldport)) {
|
|
close(sipsock);
|
|
sipsock = -1;
|
|
}
|
|
if (sipsock < 0) {
|
|
sipsock = socket(AF_INET, SOCK_DGRAM, 0);
|
|
if (sipsock < 0) {
|
|
ast_log(LOG_WARNING, "Unable to create SIP socket: %s\n", strerror(errno));
|
|
} else {
|
|
// Allow SIP clients on the same host to access us:
|
|
const int reuseFlag = 1;
|
|
setsockopt(sipsock, SOL_SOCKET, SO_REUSEADDR,
|
|
(const char*)&reuseFlag,
|
|
sizeof reuseFlag);
|
|
|
|
if (bind(sipsock, (struct sockaddr *)&bindaddr, sizeof(bindaddr)) < 0) {
|
|
ast_log(LOG_WARNING, "Failed to bind to %s:%d: %s\n",
|
|
inet_ntoa(bindaddr.sin_addr), ntohs(bindaddr.sin_port),
|
|
strerror(errno));
|
|
close(sipsock);
|
|
sipsock = -1;
|
|
} else if (option_verbose > 1) {
|
|
ast_verbose(VERBOSE_PREFIX_2 "SIP Listening on %s:%d\n",
|
|
inet_ntoa(bindaddr.sin_addr), ntohs(bindaddr.sin_port));
|
|
if (option_verbose > 1)
|
|
ast_verbose(VERBOSE_PREFIX_2 "Using TOS bits %d\n", tos);
|
|
|
|
if (setsockopt(sipsock, SOL_IP, IP_TOS, &tos, sizeof(tos)))
|
|
ast_log(LOG_WARNING, "Unable to set TOS to %d\n", tos);
|
|
|
|
}
|
|
}
|
|
}
|
|
pthread_mutex_unlock(&netlock);
|
|
|
|
ast_destroy(cfg);
|
|
return 0;
|
|
}
|
|
|
|
static struct ast_rtp *sip_get_rtp_peer(struct ast_channel *chan)
|
|
{
|
|
struct sip_pvt *p;
|
|
p = chan->pvt->pvt;
|
|
if (p && p->rtp && p->canreinvite)
|
|
return p->rtp;
|
|
return NULL;
|
|
}
|
|
|
|
static int sip_set_rtp_peer(struct ast_channel *chan, struct ast_rtp *rtp)
|
|
{
|
|
struct sip_pvt *p;
|
|
p = chan->pvt->pvt;
|
|
if (p) {
|
|
transmit_reinvite_with_sdp(p, rtp);
|
|
p->outgoing = 1;
|
|
return 0;
|
|
}
|
|
return -1;
|
|
}
|
|
|
|
static struct ast_rtp_protocol sip_rtp = {
|
|
get_rtp_info: sip_get_rtp_peer,
|
|
set_rtp_peer: sip_set_rtp_peer,
|
|
};
|
|
|
|
int load_module()
|
|
{
|
|
int res;
|
|
struct sip_peer *peer;
|
|
struct sip_registry *reg;
|
|
res = reload_config();
|
|
if (!res) {
|
|
/* Make sure we can register our sip channel type */
|
|
if (ast_channel_register_ex(type, tdesc, capability, sip_request, sip_devicestate)) {
|
|
ast_log(LOG_ERROR, "Unable to register channel class %s\n", type);
|
|
return -1;
|
|
}
|
|
ast_cli_register(&cli_show_users);
|
|
ast_cli_register(&cli_show_channels);
|
|
ast_cli_register(&cli_show_channel);
|
|
ast_cli_register(&cli_show_peers);
|
|
ast_cli_register(&cli_show_registry);
|
|
ast_cli_register(&cli_debug);
|
|
ast_cli_register(&cli_no_debug);
|
|
sip_rtp.type = type;
|
|
ast_rtp_proto_register(&sip_rtp);
|
|
sched = sched_context_create();
|
|
if (!sched) {
|
|
ast_log(LOG_WARNING, "Unable to create schedule context\n");
|
|
}
|
|
io = io_context_create();
|
|
if (!io) {
|
|
ast_log(LOG_WARNING, "Unable to create I/O context\n");
|
|
}
|
|
|
|
ast_pthread_mutex_lock(&peerl.lock);
|
|
for (peer = peerl.peers; peer; peer = peer->next)
|
|
sip_poke_peer(peer);
|
|
|
|
for (reg = registrations; reg; reg = reg->next)
|
|
sip_do_register(reg);
|
|
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
|
|
/* And start the monitor for the first time */
|
|
restart_monitor();
|
|
}
|
|
return res;
|
|
}
|
|
|
|
void delete_users(void)
|
|
{
|
|
struct sip_user *user, *userlast;
|
|
struct sip_peer *peer;
|
|
struct sip_registry *reg, *regl;
|
|
|
|
/* Delete all users */
|
|
ast_pthread_mutex_lock(&userl.lock);
|
|
for (user=userl.users;user;) {
|
|
ast_free_ha(user->ha);
|
|
userlast = user;
|
|
user=user->next;
|
|
free(userlast);
|
|
}
|
|
userl.users=NULL;
|
|
ast_pthread_mutex_unlock(&userl.lock);
|
|
|
|
for (reg = registrations;reg;) {
|
|
regl = reg;
|
|
reg = reg->next;
|
|
if (regl->expire > -1)
|
|
ast_sched_del(sched, regl->expire);
|
|
free(regl);
|
|
}
|
|
registrations = NULL;
|
|
ast_pthread_mutex_lock(&peerl.lock);
|
|
for (peer=peerl.peers;peer;) {
|
|
/* Assume all will be deleted, and we'll find out for sure later */
|
|
peer->delme = 1;
|
|
peer = peer->next;
|
|
}
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
}
|
|
|
|
void prune_peers(void)
|
|
{
|
|
/* Prune peers who still are supposed to be deleted */
|
|
struct sip_peer *peer, *peerlast, *peernext;
|
|
ast_pthread_mutex_lock(&peerl.lock);
|
|
peerlast = NULL;
|
|
for (peer=peerl.peers;peer;) {
|
|
peernext = peer->next;
|
|
if (peer->delme) {
|
|
/* Delete it, it needs to disappear */
|
|
if (peer->call)
|
|
sip_destroy(peer->call);
|
|
if (peer->expire > -1)
|
|
ast_sched_del(sched, peer->expire);
|
|
if (peer->pokeexpire > -1)
|
|
ast_sched_del(sched, peer->pokeexpire);
|
|
free(peer);
|
|
if (peerlast)
|
|
peerlast->next = peernext;
|
|
else
|
|
peerl.peers = peernext;
|
|
} else
|
|
peerlast = peer;
|
|
peer=peernext;
|
|
}
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
}
|
|
|
|
int reload(void)
|
|
{
|
|
struct sip_registry *reg;
|
|
struct sip_peer *peer;
|
|
delete_users();
|
|
reload_config();
|
|
|
|
prune_peers();
|
|
/* And start the monitor for the first time */
|
|
restart_monitor();
|
|
for (reg = registrations; reg; reg = reg->next)
|
|
sip_do_register(reg);
|
|
ast_pthread_mutex_lock(&peerl.lock);
|
|
for (peer = peerl.peers; peer; peer = peer->next)
|
|
sip_poke_peer(peer);
|
|
ast_pthread_mutex_unlock(&peerl.lock);
|
|
return 0;
|
|
}
|
|
|
|
int unload_module()
|
|
{
|
|
struct sip_pvt *p, *pl;
|
|
|
|
/* First, take us out of the channel loop */
|
|
ast_channel_unregister(type);
|
|
if (!ast_pthread_mutex_lock(&iflock)) {
|
|
/* Hangup all interfaces if they have an owner */
|
|
p = iflist;
|
|
while(p) {
|
|
if (p->owner)
|
|
ast_softhangup(p->owner, AST_SOFTHANGUP_APPUNLOAD);
|
|
p = p->next;
|
|
}
|
|
iflist = NULL;
|
|
ast_pthread_mutex_unlock(&iflock);
|
|
} else {
|
|
ast_log(LOG_WARNING, "Unable to lock the monitor\n");
|
|
return -1;
|
|
}
|
|
if (!ast_pthread_mutex_lock(&monlock)) {
|
|
if (monitor_thread) {
|
|
pthread_cancel(monitor_thread);
|
|
pthread_kill(monitor_thread, SIGURG);
|
|
pthread_join(monitor_thread, NULL);
|
|
}
|
|
monitor_thread = -2;
|
|
ast_pthread_mutex_unlock(&monlock);
|
|
} else {
|
|
ast_log(LOG_WARNING, "Unable to lock the monitor\n");
|
|
return -1;
|
|
}
|
|
|
|
if (!ast_pthread_mutex_lock(&iflock)) {
|
|
/* Destroy all the interfaces and free their memory */
|
|
p = iflist;
|
|
while(p) {
|
|
pl = p;
|
|
p = p->next;
|
|
/* Free associated memory */
|
|
free(pl);
|
|
}
|
|
iflist = NULL;
|
|
ast_pthread_mutex_unlock(&iflock);
|
|
} else {
|
|
ast_log(LOG_WARNING, "Unable to lock the monitor\n");
|
|
return -1;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
int usecount()
|
|
{
|
|
int res;
|
|
ast_pthread_mutex_lock(&usecnt_lock);
|
|
res = usecnt;
|
|
ast_pthread_mutex_unlock(&usecnt_lock);
|
|
return res;
|
|
}
|
|
|
|
char *key()
|
|
{
|
|
return ASTERISK_GPL_KEY;
|
|
}
|
|
|
|
char *description()
|
|
{
|
|
return desc;
|
|
}
|
|
|
|
char *getsipuri(char *header)
|
|
{
|
|
char *c, *d, *retval;
|
|
int n;
|
|
|
|
if (!(c=strstr(header, "sip"))) {
|
|
return NULL;
|
|
}
|
|
|
|
if (!(d=strchr(c, '@'))) {
|
|
return NULL;
|
|
}
|
|
|
|
n=d-c;
|
|
|
|
retval=(char *)malloc(n+1);
|
|
strncpy(retval, c, n);
|
|
*(retval+n)='\0';
|
|
|
|
return retval;
|
|
}
|