mirror of
				https://github.com/asterisk/asterisk.git
				synced 2025-10-25 14:06:27 +00:00 
			
		
		
		
	* Updated .gitreview default branch to certified/18.9 * Updated .version to certified/18.9 * Set all extended support modules to be disabled by default * fixed MODULEINFO order introduced by default script on wiki Change-Id: Id12804325c31b1112b6c559fa97c8a6401c051b3
		
			
				
	
	
		
			1454 lines
		
	
	
		
			40 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			1454 lines
		
	
	
		
			40 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
| /*
 | |
|  * Asterisk -- An open source telephony toolkit.
 | |
|  *
 | |
|  * Copyright (C) 2005-2008, Digium, Inc.
 | |
|  *
 | |
|  * Matthew A. Nicholson <mnicholson@digium.com>
 | |
|  * Russell Bryant <russell@digium.com>
 | |
|  *
 | |
|  * See http://www.asterisk.org for more information about
 | |
|  * the Asterisk project. Please do not directly contact
 | |
|  * any of the maintainers of this project for assistance;
 | |
|  * the project provides a web site, mailing lists and IRC
 | |
|  * channels for your use.
 | |
|  *
 | |
|  * This program is free software, distributed under the terms of
 | |
|  * the GNU General Public License Version 2. See the LICENSE file
 | |
|  * at the top of the source tree.
 | |
|  */
 | |
| 
 | |
| /*!
 | |
|  * \file
 | |
|  * \brief SMDI support for Asterisk.
 | |
|  * \author Matthew A. Nicholson <mnicholson@digium.com>
 | |
|  * \author Russell Bryant <russell@digium.com>
 | |
|  *
 | |
|  * Here is a useful mailing list post that describes SMDI protocol details:
 | |
|  * http://lists.digium.com/pipermail/asterisk-dev/2003-June/000884.html
 | |
|  *
 | |
|  * \todo This module currently has its own mailbox monitoring thread.  This should
 | |
|  * be converted to MWI subscriptions and just let the optional global voicemail
 | |
|  * polling thread handle it.
 | |
|  */
 | |
| 
 | |
| /*! \li \ref res_smdi.c uses the configuration file \ref smdi.conf
 | |
|  * \addtogroup configuration_file Configuration Files
 | |
|  */
 | |
| 
 | |
| /*!
 | |
|  * \page smdi.conf smdi.conf
 | |
|  * \verbinclude smdi.conf.sample
 | |
|  */
 | |
| 
 | |
| /*** MODULEINFO
 | |
| 	<defaultenabled>no</defaultenabled>
 | |
| 	<support_level>extended</support_level>
 | |
|  ***/
 | |
| 
 | |
| #include "asterisk.h"
 | |
| 
 | |
| #include <termios.h>
 | |
| #include <sys/time.h>
 | |
| #include <time.h>
 | |
| #include <ctype.h>
 | |
| 
 | |
| #include "asterisk/module.h"
 | |
| #include "asterisk/lock.h"
 | |
| #include "asterisk/utils.h"
 | |
| #define AST_API_MODULE
 | |
| #include "asterisk/smdi.h"
 | |
| #include "asterisk/config.h"
 | |
| #include "asterisk/io.h"
 | |
| #include "asterisk/stringfields.h"
 | |
| #include "asterisk/linkedlists.h"
 | |
| #include "asterisk/app.h"
 | |
| #include "asterisk/mwi.h"
 | |
| #include "asterisk/pbx.h"
 | |
| #include "asterisk/channel.h"
 | |
| 
 | |
| /* Message expiry time in milliseconds */
 | |
| #define SMDI_MSG_EXPIRY_TIME	30000 /* 30 seconds */
 | |
| 
 | |
| /*** DOCUMENTATION
 | |
| 
 | |
| 	<function name="SMDI_MSG_RETRIEVE" language="en_US">
 | |
| 		<synopsis>
 | |
| 			Retrieve an SMDI message.
 | |
| 		</synopsis>
 | |
| 		<syntax>
 | |
| 			<parameter name="smdi port" required="true" />
 | |
| 			<parameter name="search key" required="true" />
 | |
| 			<parameter name="timeout" />
 | |
| 			<parameter name="options">
 | |
| 				<enumlist>
 | |
| 					<enum name="t">
 | |
| 						<para>Instead of searching on the forwarding station, search on the message desk terminal.</para>
 | |
| 					</enum>
 | |
| 					<enum name="n">
 | |
| 						<para>Instead of searching on the forwarding station, search on the message desk number.</para>
 | |
| 					</enum>
 | |
| 				</enumlist>
 | |
| 			</parameter>
 | |
| 		</syntax>
 | |
| 		<description>
 | |
| 			<para>This function is used to retrieve an incoming SMDI message. It returns
 | |
| 			an ID which can be used with the SMDI_MSG() function to access details of
 | |
| 			the message.  Note that this is a destructive function in the sense that
 | |
| 			once an SMDI message is retrieved using this function, it is no longer in
 | |
| 			the global SMDI message queue, and can not be accessed by any other Asterisk
 | |
| 			channels.  The timeout for this function is optional, and the default is
 | |
| 			3 seconds.  When providing a timeout, it should be in milliseconds.
 | |
| 			</para>
 | |
| 			<para>The default search is done on the forwarding station ID. However, if
 | |
| 			you set one of the search key options in the options field, you can change
 | |
| 			this behavior.
 | |
| 			</para>
 | |
| 		</description>
 | |
| 		<see-also>
 | |
| 			<ref type="function">SMDI_MSG</ref>
 | |
| 		</see-also>
 | |
| 	</function>
 | |
| 	<function name="SMDI_MSG" language="en_US">
 | |
| 		<synopsis>
 | |
| 			Retrieve details about an SMDI message.
 | |
| 		</synopsis>
 | |
| 		<syntax>
 | |
| 			<parameter name="message_id" required="true" />
 | |
| 			<parameter name="component" required="true">
 | |
| 				<para>Valid message components are:</para>
 | |
| 				<enumlist>
 | |
| 					<enum name="number">
 | |
| 						<para>The message desk number</para>
 | |
| 					</enum>
 | |
| 					<enum name="terminal">
 | |
| 						<para>The message desk terminal</para>
 | |
| 					</enum>
 | |
| 					<enum name="station">
 | |
| 						<para>The forwarding station</para>
 | |
| 					</enum>
 | |
| 					<enum name="callerid">
 | |
| 						<para>The callerID of the calling party that was forwarded</para>
 | |
| 					</enum>
 | |
| 					<enum name="type">
 | |
| 						<para>The call type.  The value here is the exact character
 | |
| 						that came in on the SMDI link.  Typically, example values
 | |
| 						are:</para>
 | |
| 						<para>Options:</para>
 | |
| 						<enumlist>
 | |
| 							<enum name="D">
 | |
| 								<para>Direct Calls</para>
 | |
| 							</enum>
 | |
| 							<enum name="A">
 | |
| 								<para>Forward All Calls</para>
 | |
| 							</enum>
 | |
| 							<enum name="B">
 | |
| 								<para>Forward Busy Calls</para>
 | |
| 							</enum>
 | |
| 							<enum name="N">
 | |
| 								<para>Forward No Answer Calls</para>
 | |
| 							</enum>
 | |
| 						</enumlist>
 | |
| 					</enum>
 | |
| 				</enumlist>
 | |
| 			</parameter>
 | |
| 		</syntax>
 | |
| 		<description>
 | |
| 			<para>This function is used to access details of an SMDI message that was
 | |
| 			pulled from the incoming SMDI message queue using the SMDI_MSG_RETRIEVE()
 | |
| 			function.</para>
 | |
| 		</description>
 | |
| 		<see-also>
 | |
| 			<ref type="function">SMDI_MSG_RETRIEVE</ref>
 | |
| 		</see-also>
 | |
| 	</function>
 | |
|  ***/
 | |
| 
 | |
| static const char config_file[] = "smdi.conf";
 | |
| 
 | |
| struct ast_smdi_interface {
 | |
| 	char name[SMDI_MAX_FILENAME_LEN];
 | |
| 	struct ao2_container *md_q;
 | |
| 	ast_mutex_t md_q_lock;
 | |
| 	ast_cond_t md_q_cond;
 | |
| 	struct ao2_container *mwi_q;
 | |
| 	ast_mutex_t mwi_q_lock;
 | |
| 	ast_cond_t mwi_q_cond;
 | |
| 	FILE *file;
 | |
| 	int fd;
 | |
| 	pthread_t thread;
 | |
| 	struct termios mode;
 | |
| 	int msdstrip;
 | |
| 	long msg_expiry;
 | |
| };
 | |
| 
 | |
| static AO2_GLOBAL_OBJ_STATIC(smdi_ifaces);
 | |
| 
 | |
| /*! \brief A mapping between an SMDI mailbox ID and an Asterisk mailbox */
 | |
| struct mailbox_mapping {
 | |
| 	/*! This is the current state of the mailbox.  It is simply on or
 | |
| 	 *  off to indicate if there are messages waiting or not. */
 | |
| 	unsigned int cur_state:1;
 | |
| 	/*! A Pointer to the appropriate SMDI interface */
 | |
| 	struct ast_smdi_interface *iface;
 | |
| 	AST_DECLARE_STRING_FIELDS(
 | |
| 		/*! The Name of the mailbox for the SMDI link. */
 | |
| 		AST_STRING_FIELD(smdi);
 | |
| 		/*! The name of the mailbox on the Asterisk side */
 | |
| 		AST_STRING_FIELD(mailbox);
 | |
| 		/*! The name of the voicemail context in use */
 | |
| 		AST_STRING_FIELD(context);
 | |
| 	);
 | |
| 	AST_LIST_ENTRY(mailbox_mapping) entry;
 | |
| };
 | |
| 
 | |
| /*! 10 seconds */
 | |
| #define DEFAULT_POLLING_INTERVAL 10
 | |
| 
 | |
| /*! \brief Data that gets used by the SMDI MWI monitoring thread */
 | |
| static struct {
 | |
| 	/*! The thread ID */
 | |
| 	pthread_t thread;
 | |
| 	ast_mutex_t lock;
 | |
| 	ast_cond_t cond;
 | |
| 	/*! A list of mailboxes that need to be monitored */
 | |
| 	AST_LIST_HEAD_NOLOCK(, mailbox_mapping) mailbox_mappings;
 | |
| 	/*! Polling Interval for checking mailbox status */
 | |
| 	unsigned int polling_interval;
 | |
| 	/*! Set to 1 to tell the polling thread to stop */
 | |
| 	unsigned int stop:1;
 | |
| 	/*! The time that the last poll began */
 | |
| 	struct timeval last_poll;
 | |
| } mwi_monitor = {
 | |
| 	.thread = AST_PTHREADT_NULL,
 | |
| };
 | |
| 
 | |
| static void smdi_interface_destroy(void *obj)
 | |
| {
 | |
| 	struct ast_smdi_interface *iface = obj;
 | |
| 	int mod_unref_defer = 0;
 | |
| 
 | |
| 	if (iface->thread != AST_PTHREADT_NULL && iface->thread != AST_PTHREADT_STOP) {
 | |
| 		pthread_cancel(iface->thread);
 | |
| 		pthread_join(iface->thread, NULL);
 | |
| 		mod_unref_defer = 1;
 | |
| 	}
 | |
| 
 | |
| 	iface->thread = AST_PTHREADT_STOP;
 | |
| 
 | |
| 	if (iface->file) {
 | |
| 		fclose(iface->file);
 | |
| 	}
 | |
| 
 | |
| 	ao2_cleanup(iface->md_q);
 | |
| 	ast_mutex_destroy(&iface->md_q_lock);
 | |
| 	ast_cond_destroy(&iface->md_q_cond);
 | |
| 
 | |
| 	ao2_cleanup(iface->mwi_q);
 | |
| 	ast_mutex_destroy(&iface->mwi_q_lock);
 | |
| 	ast_cond_destroy(&iface->mwi_q_cond);
 | |
| 
 | |
| 	if (mod_unref_defer) {
 | |
| 		ast_module_unref(ast_module_info->self);
 | |
| 	}
 | |
| }
 | |
| 
 | |
| /*!
 | |
|  * \internal
 | |
|  * \brief Push an SMDI message to the back of an interface's message queue.
 | |
|  * \param iface a pointer to the interface to use.
 | |
|  * \param md_msg a pointer to the message to use.
 | |
|  */
 | |
| static void ast_smdi_md_message_push(struct ast_smdi_interface *iface, struct ast_smdi_md_message *md_msg)
 | |
| {
 | |
| 	ast_mutex_lock(&iface->md_q_lock);
 | |
| 	ao2_link(iface->md_q, md_msg);
 | |
| 	ast_cond_broadcast(&iface->md_q_cond);
 | |
| 	ast_mutex_unlock(&iface->md_q_lock);
 | |
| }
 | |
| 
 | |
| /*!
 | |
|  * \internal
 | |
|  * \brief Push an SMDI message to the back of an interface's message queue.
 | |
|  * \param iface a pointer to the interface to use.
 | |
|  * \param mwi_msg a pointer to the message to use.
 | |
|  */
 | |
| static void ast_smdi_mwi_message_push(struct ast_smdi_interface *iface, struct ast_smdi_mwi_message *mwi_msg)
 | |
| {
 | |
| 	ast_mutex_lock(&iface->mwi_q_lock);
 | |
| 	ao2_link(iface->mwi_q, mwi_msg);
 | |
| 	ast_cond_broadcast(&iface->mwi_q_cond);
 | |
| 	ast_mutex_unlock(&iface->mwi_q_lock);
 | |
| }
 | |
| 
 | |
| static int smdi_toggle_mwi(struct ast_smdi_interface *iface, const char *mailbox, int on)
 | |
| {
 | |
| 	FILE *file;
 | |
| 	int i;
 | |
| 
 | |
| 	if (!(file = fopen(iface->name, "w"))) {
 | |
| 		ast_log(LOG_ERROR, "Error opening SMDI interface %s (%s) for writing\n", iface->name, strerror(errno));
 | |
| 		return 1;
 | |
| 	}
 | |
| 
 | |
| 	ao2_wrlock(iface);
 | |
| 
 | |
| 	fprintf(file, "%s:MWI ", on ? "OP" : "RMV");
 | |
| 
 | |
| 	for (i = 0; i < iface->msdstrip; i++)
 | |
| 		fprintf(file, "0");
 | |
| 
 | |
| 	fprintf(file, "%s!\x04", mailbox);
 | |
| 
 | |
| 	fclose(file);
 | |
| 
 | |
| 	ao2_unlock(iface);
 | |
| 	ast_debug(1, "Sent MWI set message for %s on %s\n", mailbox, iface->name);
 | |
| 
 | |
| 	return 0;
 | |
| }
 | |
| 
 | |
| int AST_OPTIONAL_API_NAME(ast_smdi_mwi_set)(struct ast_smdi_interface *iface, const char *mailbox)
 | |
| {
 | |
| 	return smdi_toggle_mwi(iface, mailbox, 1);
 | |
| }
 | |
| 
 | |
| int AST_OPTIONAL_API_NAME(ast_smdi_mwi_unset)(struct ast_smdi_interface *iface, const char *mailbox)
 | |
| {
 | |
| 	return smdi_toggle_mwi(iface, mailbox, 0);
 | |
| }
 | |
| 
 | |
| enum smdi_message_type {
 | |
| 	SMDI_MWI,
 | |
| 	SMDI_MD,
 | |
| };
 | |
| 
 | |
| static inline int lock_msg_q(struct ast_smdi_interface *iface, enum smdi_message_type type)
 | |
| {
 | |
| 	switch (type) {
 | |
| 	case SMDI_MWI:
 | |
| 		return ast_mutex_lock(&iface->mwi_q_lock);
 | |
| 	case SMDI_MD:
 | |
| 		return ast_mutex_lock(&iface->md_q_lock);
 | |
| 	}
 | |
| 
 | |
| 	return -1;
 | |
| }
 | |
| 
 | |
| static inline int unlock_msg_q(struct ast_smdi_interface *iface, enum smdi_message_type type)
 | |
| {
 | |
| 	switch (type) {
 | |
| 	case SMDI_MWI:
 | |
| 		return ast_mutex_unlock(&iface->mwi_q_lock);
 | |
| 	case SMDI_MD:
 | |
| 		return ast_mutex_unlock(&iface->md_q_lock);
 | |
| 	}
 | |
| 
 | |
| 	return -1;
 | |
| }
 | |
| 
 | |
| static inline void *unlink_from_msg_q(struct ast_smdi_interface *iface, enum smdi_message_type type)
 | |
| {
 | |
| 	switch (type) {
 | |
| 	case SMDI_MWI:
 | |
| 		return ao2_callback(iface->mwi_q, OBJ_UNLINK, NULL, NULL);
 | |
| 	case SMDI_MD:
 | |
| 		return ao2_callback(iface->md_q, OBJ_UNLINK, NULL, NULL);
 | |
| 	}
 | |
| 
 | |
| 	return NULL;
 | |
| }
 | |
| 
 | |
| static inline struct timeval msg_timestamp(void *msg, enum smdi_message_type type)
 | |
| {
 | |
| 	struct ast_smdi_md_message *md_msg = msg;
 | |
| 	struct ast_smdi_mwi_message *mwi_msg = msg;
 | |
| 
 | |
| 	switch (type) {
 | |
| 	case SMDI_MWI:
 | |
| 		return mwi_msg->timestamp;
 | |
| 	case SMDI_MD:
 | |
| 		return md_msg->timestamp;
 | |
| 	}
 | |
| 
 | |
| 	return ast_tv(0, 0);
 | |
| }
 | |
| 
 | |
| static void purge_old_messages(struct ast_smdi_interface *iface, enum smdi_message_type type)
 | |
| {
 | |
| 	struct timeval now = ast_tvnow();
 | |
| 	long elapsed = 0;
 | |
| 	void *msg;
 | |
| 
 | |
| 	lock_msg_q(iface, type);
 | |
| 	msg = unlink_from_msg_q(iface, type);
 | |
| 	unlock_msg_q(iface, type);
 | |
| 
 | |
| 	/* purge old messages */
 | |
| 	while (msg) {
 | |
| 		elapsed = ast_tvdiff_ms(now, msg_timestamp(msg, type));
 | |
| 
 | |
| 		if (elapsed > iface->msg_expiry) {
 | |
| 			/* found an expired message */
 | |
| 			ao2_ref(msg, -1);
 | |
| 			ast_log(LOG_NOTICE, "Purged expired message from %s SMDI %s message queue.  "
 | |
| 				"Message was %ld milliseconds too old.\n",
 | |
| 				iface->name, (type == SMDI_MD) ? "MD" : "MWI",
 | |
| 				elapsed - iface->msg_expiry);
 | |
| 
 | |
| 			lock_msg_q(iface, type);
 | |
| 			msg = unlink_from_msg_q(iface, type);
 | |
| 			unlock_msg_q(iface, type);
 | |
| 		} else {
 | |
| 			/* good message, put it back and return */
 | |
| 			switch (type) {
 | |
| 			case SMDI_MD:
 | |
| 				ast_smdi_md_message_push(iface, msg);
 | |
| 				break;
 | |
| 			case SMDI_MWI:
 | |
| 				ast_smdi_mwi_message_push(iface, msg);
 | |
| 				break;
 | |
| 			}
 | |
| 			ao2_ref(msg, -1);
 | |
| 			break;
 | |
| 		}
 | |
| 	}
 | |
| }
 | |
| 
 | |
| static void *smdi_msg_pop(struct ast_smdi_interface *iface, enum smdi_message_type type)
 | |
| {
 | |
| 	void *msg;
 | |
| 
 | |
| 	purge_old_messages(iface, type);
 | |
| 
 | |
| 	lock_msg_q(iface, type);
 | |
| 	msg = unlink_from_msg_q(iface, type);
 | |
| 	unlock_msg_q(iface, type);
 | |
| 
 | |
| 	return msg;
 | |
| }
 | |
| 
 | |
| enum {
 | |
| 	OPT_SEARCH_TERMINAL = (1 << 0),
 | |
| 	OPT_SEARCH_NUMBER   = (1 << 1),
 | |
| };
 | |
| 
 | |
| static void *smdi_msg_find(struct ast_smdi_interface *iface,
 | |
| 	enum smdi_message_type type, const char *search_key, struct ast_flags options)
 | |
| {
 | |
| 	void *msg = NULL;
 | |
| 
 | |
| 	purge_old_messages(iface, type);
 | |
| 
 | |
| 	switch (type) {
 | |
| 	case SMDI_MD:
 | |
| 		if (ast_strlen_zero(search_key)) {
 | |
| 			/* No search key provided (the code from chan_dahdi does this).
 | |
| 			 * Just pop the top message off of the queue. */
 | |
| 
 | |
| 			msg = ao2_callback(iface->md_q, 0, NULL, NULL);
 | |
| 		} else if (ast_test_flag(&options, OPT_SEARCH_TERMINAL)) {
 | |
| 			/* Searching by the message desk terminal */
 | |
| 			struct ast_smdi_md_message md_msg = { .name = "" };
 | |
| 			strncpy(md_msg.mesg_desk_term, search_key, SMDI_MESG_DESK_TERM_LEN);
 | |
| 			msg = ao2_find(iface->md_q, &md_msg, OBJ_SEARCH_OBJECT);
 | |
| 		} else if (ast_test_flag(&options, OPT_SEARCH_NUMBER)) {
 | |
| 			/* Searching by the message desk number */
 | |
| 			struct ast_smdi_md_message md_msg = { .name = "" };
 | |
| 			strncpy(md_msg.mesg_desk_num, search_key, SMDI_MESG_DESK_NUM_LEN);
 | |
| 			msg = ao2_find(iface->md_q, &md_msg, OBJ_SEARCH_OBJECT);
 | |
| 		} else {
 | |
| 			/* Searching by the forwarding station */
 | |
| 			msg = ao2_find(iface->md_q, search_key, OBJ_SEARCH_KEY);
 | |
| 		}
 | |
| 		break;
 | |
| 	case SMDI_MWI:
 | |
| 		if (ast_strlen_zero(search_key)) {
 | |
| 			/* No search key provided (the code from chan_dahdi does this).
 | |
| 			 * Just pop the top message off of the queue. */
 | |
| 
 | |
| 			msg = ao2_callback(iface->mwi_q, 0, NULL, NULL);
 | |
| 		} else {
 | |
| 			msg = ao2_find(iface->mwi_q, search_key, OBJ_SEARCH_KEY);
 | |
| 		}
 | |
| 		break;
 | |
| 	}
 | |
| 
 | |
| 	return msg;
 | |
| }
 | |
| 
 | |
| static void *smdi_message_wait(struct ast_smdi_interface *iface, int timeout,
 | |
| 	enum smdi_message_type type, const char *search_key, struct ast_flags options)
 | |
| {
 | |
| 	struct timeval start;
 | |
| 	long diff = 0;
 | |
| 	void *msg;
 | |
| 	ast_cond_t *cond = NULL;
 | |
| 	ast_mutex_t *lock = NULL;
 | |
| 
 | |
| 	switch (type) {
 | |
| 	case SMDI_MWI:
 | |
| 		cond = &iface->mwi_q_cond;
 | |
| 		lock = &iface->mwi_q_lock;
 | |
| 		break;
 | |
| 	case SMDI_MD:
 | |
| 		cond = &iface->md_q_cond;
 | |
| 		lock = &iface->md_q_lock;
 | |
| 		break;
 | |
| 	}
 | |
| 
 | |
| 	start = ast_tvnow();
 | |
| 
 | |
| 	while (diff < timeout) {
 | |
| 		struct timespec ts = { 0, };
 | |
| 		struct timeval wait;
 | |
| 
 | |
| 		lock_msg_q(iface, type);
 | |
| 
 | |
| 		if ((msg = smdi_msg_find(iface, type, search_key, options))) {
 | |
| 			unlock_msg_q(iface, type);
 | |
| 			return msg;
 | |
| 		}
 | |
| 
 | |
| 		wait = ast_tvadd(start, ast_tv(0, timeout));
 | |
| 		ts.tv_sec = wait.tv_sec;
 | |
| 		ts.tv_nsec = wait.tv_usec * 1000;
 | |
| 
 | |
| 		/* If there were no messages in the queue, then go to sleep until one
 | |
| 		 * arrives. */
 | |
| 
 | |
| 		ast_cond_timedwait(cond, lock, &ts);
 | |
| 
 | |
| 		if ((msg = smdi_msg_find(iface, type, search_key, options))) {
 | |
| 			unlock_msg_q(iface, type);
 | |
| 			return msg;
 | |
| 		}
 | |
| 
 | |
| 		unlock_msg_q(iface, type);
 | |
| 
 | |
| 		/* check timeout */
 | |
| 		diff = ast_tvdiff_ms(ast_tvnow(), start);
 | |
| 	}
 | |
| 
 | |
| 	return NULL;
 | |
| }
 | |
| 
 | |
| struct ast_smdi_md_message * AST_OPTIONAL_API_NAME(ast_smdi_md_message_pop)(struct ast_smdi_interface *iface)
 | |
| {
 | |
| 	return smdi_msg_pop(iface, SMDI_MD);
 | |
| }
 | |
| 
 | |
| struct ast_smdi_md_message * AST_OPTIONAL_API_NAME(ast_smdi_md_message_wait)(struct ast_smdi_interface *iface, int timeout)
 | |
| {
 | |
| 	struct ast_flags options = { 0 };
 | |
| 	return smdi_message_wait(iface, timeout, SMDI_MD, NULL, options);
 | |
| }
 | |
| 
 | |
| struct ast_smdi_mwi_message * AST_OPTIONAL_API_NAME(ast_smdi_mwi_message_pop)(struct ast_smdi_interface *iface)
 | |
| {
 | |
| 	return smdi_msg_pop(iface, SMDI_MWI);
 | |
| }
 | |
| 
 | |
| struct ast_smdi_mwi_message * AST_OPTIONAL_API_NAME(ast_smdi_mwi_message_wait)(struct ast_smdi_interface *iface, int timeout)
 | |
| {
 | |
| 	struct ast_flags options = { 0 };
 | |
| 	return smdi_message_wait(iface, timeout, SMDI_MWI, NULL, options);
 | |
| }
 | |
| 
 | |
| struct ast_smdi_mwi_message * AST_OPTIONAL_API_NAME(ast_smdi_mwi_message_wait_station)(struct ast_smdi_interface *iface, int timeout,
 | |
| 	const char *station)
 | |
| {
 | |
| 	struct ast_flags options = { 0 };
 | |
| 	return smdi_message_wait(iface, timeout, SMDI_MWI, station, options);
 | |
| }
 | |
| 
 | |
| struct ast_smdi_interface * AST_OPTIONAL_API_NAME(ast_smdi_interface_find)(const char *iface_name)
 | |
| {
 | |
| 	struct ao2_container *c;
 | |
| 	struct ast_smdi_interface *iface = NULL;
 | |
| 
 | |
| 	c = ao2_global_obj_ref(smdi_ifaces);
 | |
| 	if (c) {
 | |
| 		iface = ao2_find(c, iface_name, OBJ_SEARCH_KEY);
 | |
| 		ao2_ref(c, -1);
 | |
| 	}
 | |
| 
 | |
| 	return iface;
 | |
| }
 | |
| 
 | |
| /*!
 | |
|  * \internal
 | |
|  * \brief Read an SMDI message.
 | |
|  *
 | |
|  * \param iface_p the SMDI interface to read from.
 | |
|  *
 | |
|  * This function loops and reads from and SMDI interface.  It must be stopped
 | |
|  * using pthread_cancel().
 | |
|  */
 | |
| static void *smdi_read(void *iface_p)
 | |
| {
 | |
| 	struct ast_smdi_interface *iface = iface_p;
 | |
| 	struct ast_smdi_md_message *md_msg;
 | |
| 	struct ast_smdi_mwi_message *mwi_msg;
 | |
| 	char *cp = NULL;
 | |
| 	int i, c;
 | |
| 	int start = 0;
 | |
| 
 | |
| 	/* read an smdi message */
 | |
| 	while ((c = fgetc(iface->file))) {
 | |
| 
 | |
| 		/* check if this is the start of a message */
 | |
| 		if (!start) {
 | |
| 			if (c == 'M') {
 | |
| 				ast_debug(1, "Read an 'M' to start an SMDI message\n");
 | |
| 				start = 1;
 | |
| 			}
 | |
| 			continue;
 | |
| 		}
 | |
| 
 | |
| 		if (c == 'D') { /* MD message */
 | |
| 			start = 0;
 | |
| 
 | |
| 			ast_debug(1, "Read a 'D' ... it's an MD message.\n");
 | |
| 
 | |
| 			md_msg = ao2_alloc(sizeof(*md_msg), NULL);
 | |
| 			if (!md_msg) {
 | |
| 				return NULL;
 | |
| 			}
 | |
| 
 | |
| 			/* read the message desk number */
 | |
| 			for (i = 0; i < sizeof(md_msg->mesg_desk_num) - 1; i++) {
 | |
| 				c = fgetc(iface->file);
 | |
| 				if (c == EOF) {
 | |
| 					ast_log(LOG_ERROR, "Unexpected EOF while reading MD message\n");
 | |
| 					ao2_ref(md_msg, -1);
 | |
| 					return NULL;
 | |
| 				}
 | |
| 				md_msg->mesg_desk_num[i] = (char) c;
 | |
| 				ast_debug(1, "Read a '%c'\n", md_msg->mesg_desk_num[i]);
 | |
| 			}
 | |
| 
 | |
| 			md_msg->mesg_desk_num[sizeof(md_msg->mesg_desk_num) - 1] = '\0';
 | |
| 
 | |
| 			ast_debug(1, "The message desk number is '%s'\n", md_msg->mesg_desk_num);
 | |
| 
 | |
| 			/* read the message desk terminal number */
 | |
| 			for (i = 0; i < sizeof(md_msg->mesg_desk_term) - 1; i++) {
 | |
| 				c = fgetc(iface->file);
 | |
| 				if (c == EOF) {
 | |
| 					ast_log(LOG_ERROR, "Unexpected EOF while reading SMDI message\n");
 | |
| 					ao2_ref(md_msg, -1);
 | |
| 					return NULL;
 | |
| 				}
 | |
| 				md_msg->mesg_desk_term[i] = (char) c;
 | |
| 				ast_debug(1, "Read a '%c'\n", md_msg->mesg_desk_term[i]);
 | |
| 			}
 | |
| 
 | |
| 			md_msg->mesg_desk_term[sizeof(md_msg->mesg_desk_term) - 1] = '\0';
 | |
| 
 | |
| 			ast_debug(1, "The message desk terminal is '%s'\n", md_msg->mesg_desk_term);
 | |
| 
 | |
| 			/* read the message type */
 | |
| 			c = fgetc(iface->file);
 | |
| 			if (c == EOF) {
 | |
| 				ast_log(LOG_ERROR, "Unexpected EOF while reading SMDI message\n");
 | |
| 				ao2_ref(md_msg, -1);
 | |
| 				return NULL;
 | |
| 			}
 | |
| 			md_msg->type = (char) c;
 | |
| 
 | |
| 			ast_debug(1, "Message type is '%c'\n", md_msg->type);
 | |
| 
 | |
| 			/* read the forwarding station number (may be blank) */
 | |
| 			cp = &md_msg->fwd_st[0];
 | |
| 			for (i = 0; i < sizeof(md_msg->fwd_st) - 1; i++) {
 | |
| 				if ((c = fgetc(iface->file)) == ' ') {
 | |
| 					*cp = '\0';
 | |
| 					ast_debug(1, "Read a space, done looking for the forwarding station\n");
 | |
| 					break;
 | |
| 				}
 | |
| 
 | |
| 				/* store c in md_msg->fwd_st */
 | |
| 				if (i >= iface->msdstrip) {
 | |
| 					ast_debug(1, "Read a '%c' and stored it in the forwarding station buffer\n", c);
 | |
| 					*cp++ = c;
 | |
| 				} else {
 | |
| 					ast_debug(1, "Read a '%c', but didn't store it in the fwd station buffer, because of the msdstrip setting (%d < %d)\n", c, i, iface->msdstrip);
 | |
| 				}
 | |
| 			}
 | |
| 
 | |
| 			/* make sure the value is null terminated, even if this truncates it */
 | |
| 			md_msg->fwd_st[sizeof(md_msg->fwd_st) - 1] = '\0';
 | |
| 			cp = NULL;
 | |
| 
 | |
| 			ast_debug(1, "The forwarding station is '%s'\n", md_msg->fwd_st);
 | |
| 
 | |
| 			/* Put the fwd_st in the name field so that we can use ao2_find to look
 | |
| 			 * up a message on this field */
 | |
| 			ast_copy_string(md_msg->name, md_msg->fwd_st, sizeof(md_msg->name));
 | |
| 
 | |
| 			/* read the calling station number (may be blank) */
 | |
| 			cp = &md_msg->calling_st[0];
 | |
| 			for (i = 0; i < sizeof(md_msg->calling_st) - 1; i++) {
 | |
| 				if (!isdigit((c = fgetc(iface->file)))) {
 | |
| 					*cp = '\0';
 | |
| 					ast_debug(1, "Read a '%c', but didn't store it in the calling station buffer because it's not a digit\n", c);
 | |
| 					if (c == ' ') {
 | |
| 						/* Don't break on a space.  We may read the space before the calling station
 | |
| 						 * here if the forwarding station buffer filled up. */
 | |
| 						i--; /* We're still on the same character */
 | |
| 						continue;
 | |
| 					}
 | |
| 					break;
 | |
| 				}
 | |
| 
 | |
| 				/* store c in md_msg->calling_st */
 | |
| 				if (i >= iface->msdstrip) {
 | |
| 					ast_debug(1, "Read a '%c' and stored it in the calling station buffer\n", c);
 | |
| 					*cp++ = c;
 | |
| 				} else {
 | |
| 					ast_debug(1, "Read a '%c', but didn't store it in the calling station buffer, because of the msdstrip setting (%d < %d)\n", c, i, iface->msdstrip);
 | |
| 				}
 | |
| 			}
 | |
| 
 | |
| 			/* make sure the value is null terminated, even if this truncates it */
 | |
| 			md_msg->calling_st[sizeof(md_msg->calling_st) - 1] = '\0';
 | |
| 			cp = NULL;
 | |
| 
 | |
| 			ast_debug(1, "The calling station is '%s'\n", md_msg->calling_st);
 | |
| 
 | |
| 			/* add the message to the message queue */
 | |
| 			md_msg->timestamp = ast_tvnow();
 | |
| 			ast_smdi_md_message_push(iface, md_msg);
 | |
| 			ast_debug(1, "Received SMDI MD message on %s\n", iface->name);
 | |
| 
 | |
| 			ao2_ref(md_msg, -1);
 | |
| 
 | |
| 		} else if (c == 'W') { /* MWI message */
 | |
| 			start = 0;
 | |
| 
 | |
| 			ast_debug(1, "Read a 'W', it's an MWI message. (No more debug coming for MWI messages)\n");
 | |
| 
 | |
| 			mwi_msg = ao2_alloc(sizeof(*mwi_msg), NULL);
 | |
| 			if (!mwi_msg) {
 | |
| 				return NULL;
 | |
| 			}
 | |
| 
 | |
| 			/* discard the 'I' (from 'MWI') */
 | |
| 			fgetc(iface->file);
 | |
| 
 | |
| 			/* read the forwarding station number (may be blank) */
 | |
| 			cp = &mwi_msg->fwd_st[0];
 | |
| 			for (i = 0; i < sizeof(mwi_msg->fwd_st) - 1; i++) {
 | |
| 				if ((c = fgetc(iface->file)) == ' ') {
 | |
| 					*cp = '\0';
 | |
| 					break;
 | |
| 				}
 | |
| 
 | |
| 				/* store c in md_msg->fwd_st */
 | |
| 				if (i >= iface->msdstrip)
 | |
| 					*cp++ = c;
 | |
| 			}
 | |
| 
 | |
| 			/* make sure the station number is null terminated, even if this will truncate it */
 | |
| 			mwi_msg->fwd_st[sizeof(mwi_msg->fwd_st) - 1] = '\0';
 | |
| 			cp = NULL;
 | |
| 
 | |
| 			/* Put the fwd_st in the name field so that we can use ao2_find to look
 | |
| 			 * up a message on this field */
 | |
| 			ast_copy_string(mwi_msg->name, mwi_msg->fwd_st, sizeof(mwi_msg->name));
 | |
| 
 | |
| 			/* read the mwi failure cause */
 | |
| 			for (i = 0; i < sizeof(mwi_msg->cause) - 1; i++) {
 | |
| 				c = fgetc(iface->file);
 | |
| 				if (c == EOF) {
 | |
| 					ast_log(LOG_ERROR, "Unexpected EOF while reading MWI message\n");
 | |
| 					ao2_ref(mwi_msg, -1);
 | |
| 					return NULL;
 | |
| 				}
 | |
| 				mwi_msg->cause[i] = (char) c;
 | |
| 			}
 | |
| 
 | |
| 			mwi_msg->cause[sizeof(mwi_msg->cause) - 1] = '\0';
 | |
| 
 | |
| 			/* add the message to the message queue */
 | |
| 			mwi_msg->timestamp = ast_tvnow();
 | |
| 			ast_smdi_mwi_message_push(iface, mwi_msg);
 | |
| 			ast_debug(1, "Received SMDI MWI message on %s\n", iface->name);
 | |
| 
 | |
| 			ao2_ref(mwi_msg, -1);
 | |
| 		} else {
 | |
| 			ast_log(LOG_ERROR, "Unknown SMDI message type received on %s (M%c).\n", iface->name, c);
 | |
| 			start = 0;
 | |
| 		}
 | |
| 	}
 | |
| 
 | |
| 	ast_log(LOG_ERROR, "Error reading from SMDI interface %s, stopping listener thread\n", iface->name);
 | |
| 	return NULL;
 | |
| }
 | |
| 
 | |
| static void destroy_mailbox_mapping(struct mailbox_mapping *mm)
 | |
| {
 | |
| 	ast_string_field_free_memory(mm);
 | |
| 	ao2_ref(mm->iface, -1);
 | |
| 	ast_free(mm);
 | |
| }
 | |
| 
 | |
| static void destroy_all_mailbox_mappings(void)
 | |
| {
 | |
| 	struct mailbox_mapping *mm;
 | |
| 
 | |
| 	ast_mutex_lock(&mwi_monitor.lock);
 | |
| 	while ((mm = AST_LIST_REMOVE_HEAD(&mwi_monitor.mailbox_mappings, entry)))
 | |
| 		destroy_mailbox_mapping(mm);
 | |
| 	ast_mutex_unlock(&mwi_monitor.lock);
 | |
| }
 | |
| 
 | |
| static void append_mailbox_mapping(struct ast_variable *var, struct ast_smdi_interface *iface)
 | |
| {
 | |
| 	struct mailbox_mapping *mm;
 | |
| 	char *mailbox, *context;
 | |
| 
 | |
| 	if (!(mm = ast_calloc_with_stringfields(1, struct mailbox_mapping, 32)))
 | |
| 		return;
 | |
| 
 | |
| 	ast_string_field_set(mm, smdi, var->name);
 | |
| 
 | |
| 	context = ast_strdupa(var->value);
 | |
| 	mailbox = strsep(&context, "@");
 | |
| 	if (ast_strlen_zero(context))
 | |
| 		context = "default";
 | |
| 
 | |
| 	ast_string_field_set(mm, mailbox, mailbox);
 | |
| 	ast_string_field_set(mm, context, context);
 | |
| 
 | |
| 	mm->iface = ao2_bump(iface);
 | |
| 
 | |
| 	ast_mutex_lock(&mwi_monitor.lock);
 | |
| 	AST_LIST_INSERT_TAIL(&mwi_monitor.mailbox_mappings, mm, entry);
 | |
| 	ast_mutex_unlock(&mwi_monitor.lock);
 | |
| }
 | |
| 
 | |
| /*!
 | |
|  * \note Called with the mwi_monitor.lock locked
 | |
|  */
 | |
| static void poll_mailbox(struct mailbox_mapping *mm)
 | |
| {
 | |
| 	char buf[1024];
 | |
| 	unsigned int state;
 | |
| 
 | |
| 	snprintf(buf, sizeof(buf), "%s@%s", mm->mailbox, mm->context);
 | |
| 
 | |
| 	state = !!ast_app_has_voicemail(mm->mailbox, NULL);
 | |
| 
 | |
| 	if (state != mm->cur_state) {
 | |
| 		if (state)
 | |
| 			ast_smdi_mwi_set(mm->iface, mm->smdi);
 | |
| 		else
 | |
| 			ast_smdi_mwi_unset(mm->iface, mm->smdi);
 | |
| 
 | |
| 		mm->cur_state = state;
 | |
| 	}
 | |
| }
 | |
| 
 | |
| static void *mwi_monitor_handler(void *data)
 | |
| {
 | |
| 	while (!mwi_monitor.stop) {
 | |
| 		struct timespec ts = { 0, };
 | |
| 		struct timeval polltime;
 | |
| 		struct mailbox_mapping *mm;
 | |
| 
 | |
| 		ast_mutex_lock(&mwi_monitor.lock);
 | |
| 
 | |
| 		mwi_monitor.last_poll = ast_tvnow();
 | |
| 
 | |
| 		AST_LIST_TRAVERSE(&mwi_monitor.mailbox_mappings, mm, entry)
 | |
| 			poll_mailbox(mm);
 | |
| 
 | |
| 		/* Sleep up to the configured polling interval.  Allow unload_module()
 | |
| 		 * to signal us to wake up and exit. */
 | |
| 		polltime = ast_tvadd(mwi_monitor.last_poll, ast_tv(mwi_monitor.polling_interval, 0));
 | |
| 		ts.tv_sec = polltime.tv_sec;
 | |
| 		ts.tv_nsec = polltime.tv_usec * 1000;
 | |
| 		ast_cond_timedwait(&mwi_monitor.cond, &mwi_monitor.lock, &ts);
 | |
| 
 | |
| 		ast_mutex_unlock(&mwi_monitor.lock);
 | |
| 	}
 | |
| 
 | |
| 	return NULL;
 | |
| }
 | |
| 
 | |
| static int smdi_mwi_q_cmp_fn(void *obj, void *data, int flags)
 | |
| {
 | |
| 	struct ast_smdi_mwi_message *msg = obj;
 | |
| 	char *str = data;
 | |
| 	return !strcmp(msg->name, str) ? CMP_MATCH | CMP_STOP : 0;
 | |
| }
 | |
| 
 | |
| static int smdi_md_q_cmp_fn(void *obj, void *arg, int flags)
 | |
| {
 | |
| 	const struct ast_smdi_md_message *msg = obj;
 | |
| 	const struct ast_smdi_md_message *search_msg = arg;
 | |
| 	const char *search_key = arg;
 | |
| 	int cmp = 0;
 | |
| 
 | |
| 	switch (flags & OBJ_SEARCH_MASK) {
 | |
| 	case OBJ_SEARCH_OBJECT:
 | |
| 		if (!ast_strlen_zero(search_msg->mesg_desk_num)) {
 | |
| 			cmp = strcmp(msg->mesg_desk_num, search_msg->mesg_desk_num);
 | |
| 		}
 | |
| 		if (!ast_strlen_zero(search_msg->mesg_desk_term)) {
 | |
| 			cmp |= strcmp(msg->mesg_desk_term, search_msg->mesg_desk_term);
 | |
| 		}
 | |
| 		break;
 | |
| 	case OBJ_SEARCH_KEY:
 | |
| 		cmp = strcmp(msg->name, search_key);
 | |
| 		break;
 | |
| 	}
 | |
| 
 | |
| 	if (cmp) {
 | |
| 		return 0;
 | |
| 	}
 | |
| 
 | |
| 	return CMP_MATCH;
 | |
| }
 | |
| 
 | |
| static struct ast_smdi_interface *alloc_smdi_interface(void)
 | |
| {
 | |
| 	struct ast_smdi_interface *iface;
 | |
| 
 | |
| 	if (!(iface = ao2_alloc(sizeof(*iface), smdi_interface_destroy))) {
 | |
| 		return NULL;
 | |
| 	}
 | |
| 
 | |
| 	iface->md_q = ao2_container_alloc_list(AO2_ALLOC_OPT_LOCK_NOLOCK, 0, NULL, smdi_md_q_cmp_fn);
 | |
| 	iface->mwi_q = ao2_container_alloc_list(AO2_ALLOC_OPT_LOCK_NOLOCK, 0, NULL, smdi_mwi_q_cmp_fn);
 | |
| 
 | |
| 	ast_mutex_init(&iface->md_q_lock);
 | |
| 	ast_cond_init(&iface->md_q_cond, NULL);
 | |
| 
 | |
| 	ast_mutex_init(&iface->mwi_q_lock);
 | |
| 	ast_cond_init(&iface->mwi_q_cond, NULL);
 | |
| 
 | |
| 	return iface;
 | |
| }
 | |
| 
 | |
| static int smdi_ifaces_cmp_fn(void *obj, void *data, int flags)
 | |
| {
 | |
| 	struct ast_smdi_interface *iface = obj;
 | |
| 
 | |
| 	char *str = data;
 | |
| 	return !strcmp(iface->name, str) ? CMP_MATCH | CMP_STOP : 0;
 | |
| }
 | |
| 
 | |
| /*!
 | |
|  * \internal
 | |
|  * \brief Load and reload SMDI configuration.
 | |
|  * \param reload this should be 1 if we are reloading and 0 if not.
 | |
|  *
 | |
|  * This function loads/reloads the SMDI configuration and starts and stops
 | |
|  * interfaces accordingly.
 | |
|  *
 | |
|  * \return zero on success, -1 on failure, and 1 if no smdi interfaces were started.
 | |
|  */
 | |
| static int smdi_load(int reload)
 | |
| {
 | |
| 	struct ast_config *conf;
 | |
| 	struct ast_variable *v;
 | |
| 	struct ast_flags config_flags = { reload ? CONFIG_FLAG_FILEUNCHANGED : 0 };
 | |
| 	int res = 0;
 | |
| 	RAII_VAR(struct ao2_container *, new_ifaces, NULL, ao2_cleanup);
 | |
| 	RAII_VAR(struct ao2_container *, old_ifaces, ao2_global_obj_ref(smdi_ifaces), ao2_cleanup);
 | |
| 	struct ast_smdi_interface *mailbox_iface = NULL;
 | |
| 
 | |
| 	/* Config options */
 | |
| 	speed_t baud_rate = B9600;     /* 9600 baud rate */
 | |
| 	tcflag_t paritybit = PARENB;   /* even parity checking */
 | |
| 	tcflag_t charsize = CS7;       /* seven bit characters */
 | |
| 	int stopbits = 0;              /* One stop bit */
 | |
| 
 | |
| 	int msdstrip = 0;              /* strip zero digits */
 | |
| 	long msg_expiry = SMDI_MSG_EXPIRY_TIME;
 | |
| 
 | |
| 	if (!(conf = ast_config_load(config_file, config_flags)) || conf == CONFIG_STATUS_FILEINVALID) {
 | |
| 		if (reload)
 | |
| 			ast_log(LOG_NOTICE, "Unable to reload config %s: SMDI untouched\n", config_file);
 | |
| 		else
 | |
| 			ast_log(LOG_NOTICE, "Unable to load config %s: SMDI disabled\n", config_file);
 | |
| 		return 1;
 | |
| 	} else if (conf == CONFIG_STATUS_FILEUNCHANGED)
 | |
| 		return 0;
 | |
| 
 | |
| 	new_ifaces = ao2_container_alloc_list(AO2_ALLOC_OPT_LOCK_MUTEX, 0, NULL, smdi_ifaces_cmp_fn);
 | |
| 	if (!new_ifaces) {
 | |
| 		ast_config_destroy(conf);
 | |
| 		return -1;
 | |
| 	}
 | |
| 
 | |
| 	for (v = ast_variable_browse(conf, "interfaces"); v; v = v->next) {
 | |
| 		RAII_VAR(struct ast_smdi_interface *, iface, NULL, ao2_cleanup);
 | |
| 
 | |
| 		if (!strcasecmp(v->name, "baudrate")) {
 | |
| 			if (!strcasecmp(v->value, "9600"))
 | |
| 				baud_rate = B9600;
 | |
| 			else if (!strcasecmp(v->value, "4800"))
 | |
| 				baud_rate = B4800;
 | |
| 			else if (!strcasecmp(v->value, "2400"))
 | |
| 				baud_rate = B2400;
 | |
| 			else if (!strcasecmp(v->value, "1200"))
 | |
| 				baud_rate = B1200;
 | |
| 			else {
 | |
| 				ast_log(LOG_NOTICE, "Invalid baud rate '%s' specified in %s (line %d), using default\n", v->value, config_file, v->lineno);
 | |
| 				baud_rate = B9600;
 | |
| 			}
 | |
| 		} else if (!strcasecmp(v->name, "msdstrip")) {
 | |
| 			if (!sscanf(v->value, "%30d", &msdstrip)) {
 | |
| 				ast_log(LOG_NOTICE, "Invalid msdstrip value in %s (line %d), using default\n", config_file, v->lineno);
 | |
| 				msdstrip = 0;
 | |
| 			} else if (0 > msdstrip || msdstrip > 9) {
 | |
| 				ast_log(LOG_NOTICE, "Invalid msdstrip value in %s (line %d), using default\n", config_file, v->lineno);
 | |
| 				msdstrip = 0;
 | |
| 			}
 | |
| 		} else if (!strcasecmp(v->name, "msgexpirytime")) {
 | |
| 			if (!sscanf(v->value, "%30ld", &msg_expiry)) {
 | |
| 				ast_log(LOG_NOTICE, "Invalid msgexpirytime value in %s (line %d), using default\n", config_file, v->lineno);
 | |
| 				msg_expiry = SMDI_MSG_EXPIRY_TIME;
 | |
| 			}
 | |
| 		} else if (!strcasecmp(v->name, "paritybit")) {
 | |
| 			if (!strcasecmp(v->value, "even"))
 | |
| 				paritybit = PARENB;
 | |
| 			else if (!strcasecmp(v->value, "odd"))
 | |
| 				paritybit = PARENB | PARODD;
 | |
| 			else if (!strcasecmp(v->value, "none"))
 | |
| 				paritybit = ~PARENB;
 | |
| 			else {
 | |
| 				ast_log(LOG_NOTICE, "Invalid parity bit setting in %s (line %d), using default\n", config_file, v->lineno);
 | |
| 				paritybit = PARENB;
 | |
| 			}
 | |
| 		} else if (!strcasecmp(v->name, "charsize")) {
 | |
| 			if (!strcasecmp(v->value, "7"))
 | |
| 				charsize = CS7;
 | |
| 			else if (!strcasecmp(v->value, "8"))
 | |
| 				charsize = CS8;
 | |
| 			else {
 | |
| 				ast_log(LOG_NOTICE, "Invalid character size setting in %s (line %d), using default\n", config_file, v->lineno);
 | |
| 				charsize = CS7;
 | |
| 			}
 | |
| 		} else if (!strcasecmp(v->name, "twostopbits")) {
 | |
| 			stopbits = ast_true(v->name);
 | |
| 		} else if (!strcasecmp(v->name, "smdiport")) {
 | |
| 			if (reload && old_ifaces) {
 | |
| 				/* we are reloading, check if we are already
 | |
| 				 * monitoring this interface, if we are we do
 | |
| 				 * not want to start it again.  This also has
 | |
| 				 * the side effect of not updating different
 | |
| 				 * setting for the serial port, but it should
 | |
| 				 * be trivial to rewrite this section so that
 | |
| 				 * options on the port are changed without
 | |
| 				 * restarting the interface.  Or the interface
 | |
| 				 * could be restarted with out emptying the
 | |
| 				 * queue. */
 | |
| 				if ((iface = ao2_find(old_ifaces, v->value, OBJ_SEARCH_KEY))) {
 | |
| 					ast_log(LOG_NOTICE, "SMDI interface %s already running, not restarting\n", iface->name);
 | |
| 					ao2_link(new_ifaces, iface);
 | |
| 					continue;
 | |
| 				}
 | |
| 			}
 | |
| 
 | |
| 			if (!(iface = alloc_smdi_interface()))
 | |
| 				continue;
 | |
| 
 | |
| 			ast_copy_string(iface->name, v->value, sizeof(iface->name));
 | |
| 
 | |
| 			iface->thread = AST_PTHREADT_NULL;
 | |
| 
 | |
| 			if (!(iface->file = fopen(iface->name, "r"))) {
 | |
| 				ast_log(LOG_ERROR, "Error opening SMDI interface %s (%s)\n", iface->name, strerror(errno));
 | |
| 				continue;
 | |
| 			}
 | |
| 
 | |
| 			iface->fd = fileno(iface->file);
 | |
| 
 | |
| 			/* Set the proper attributes for our serial port. */
 | |
| 
 | |
| 			/* get the current attributes from the port */
 | |
| 			if (tcgetattr(iface->fd, &iface->mode)) {
 | |
| 				ast_log(LOG_ERROR, "Error getting attributes of %s (%s)\n", iface->name, strerror(errno));
 | |
| 				continue;
 | |
| 			}
 | |
| 
 | |
| 			/* set the desired speed */
 | |
| 			if (cfsetispeed(&iface->mode, baud_rate) || cfsetospeed(&iface->mode, baud_rate)) {
 | |
| 				ast_log(LOG_ERROR, "Error setting baud rate on %s (%s)\n", iface->name, strerror(errno));
 | |
| 				continue;
 | |
| 			}
 | |
| 
 | |
| 			/* set the stop bits */
 | |
| 			if (stopbits)
 | |
| 				iface->mode.c_cflag = iface->mode.c_cflag | CSTOPB;   /* set two stop bits */
 | |
| 			else
 | |
| 				iface->mode.c_cflag = iface->mode.c_cflag & ~CSTOPB;  /* set one stop bit */
 | |
| 
 | |
| 			/* set the parity */
 | |
| 			iface->mode.c_cflag = (iface->mode.c_cflag & ~PARENB & ~PARODD) | paritybit;
 | |
| 
 | |
| 			/* set the character size */
 | |
| 			iface->mode.c_cflag = (iface->mode.c_cflag & ~CSIZE) | charsize;
 | |
| 
 | |
| 			/* commit the desired attributes */
 | |
| 			if (tcsetattr(iface->fd, TCSAFLUSH, &iface->mode)) {
 | |
| 				ast_log(LOG_ERROR, "Error setting attributes on %s (%s)\n", iface->name, strerror(errno));
 | |
| 				continue;
 | |
| 			}
 | |
| 
 | |
| 			/* set the msdstrip */
 | |
| 			iface->msdstrip = msdstrip;
 | |
| 
 | |
| 			/* set the message expiry time */
 | |
| 			iface->msg_expiry = msg_expiry;
 | |
| 
 | |
| 			/*
 | |
| 			 * start the listener thread
 | |
| 			 *
 | |
| 			 * The listener thread does not actually hold a ref to iface.  When all
 | |
| 			 * external refs go away, the destructor will stop the listener thread
 | |
| 			 * before actually destroying the iface object.
 | |
| 			 */
 | |
| 			ast_verb(3, "Starting SMDI monitor thread for %s\n", iface->name);
 | |
| 			if (ast_pthread_create_background(&iface->thread, NULL, smdi_read, iface)) {
 | |
| 				ast_log(LOG_ERROR, "Error starting SMDI monitor thread for %s\n", iface->name);
 | |
| 				continue;
 | |
| 			}
 | |
| 
 | |
| 			ao2_link(new_ifaces, iface);
 | |
| 			ast_module_ref(ast_module_info->self);
 | |
| 		} else {
 | |
| 			ast_log(LOG_NOTICE, "Ignoring unknown option %s in %s\n", v->name, config_file);
 | |
| 		}
 | |
| 	}
 | |
| 
 | |
| 	destroy_all_mailbox_mappings();
 | |
| 	mwi_monitor.polling_interval = DEFAULT_POLLING_INTERVAL;
 | |
| 
 | |
| 	for (v = ast_variable_browse(conf, "mailboxes"); v; v = v->next) {
 | |
| 		if (!strcasecmp(v->name, "smdiport")) {
 | |
| 			ao2_cleanup(mailbox_iface);
 | |
| 
 | |
| 			if (!(mailbox_iface = ao2_find(new_ifaces, v->value, OBJ_SEARCH_KEY))) {
 | |
| 				ast_log(LOG_NOTICE, "SMDI interface %s not found\n", v->value);
 | |
| 				continue;
 | |
| 			}
 | |
| 		} else if (!strcasecmp(v->name, "pollinginterval")) {
 | |
| 			if (sscanf(v->value, "%30u", &mwi_monitor.polling_interval) != 1) {
 | |
| 				ast_log(LOG_ERROR, "Invalid value for pollinginterval: %s\n", v->value);
 | |
| 				mwi_monitor.polling_interval = DEFAULT_POLLING_INTERVAL;
 | |
| 			}
 | |
| 		} else {
 | |
| 			if (!mailbox_iface) {
 | |
| 				ast_log(LOG_ERROR, "Mailbox mapping ignored, no valid SMDI interface specified in mailboxes section\n");
 | |
| 				continue;
 | |
| 			}
 | |
| 			append_mailbox_mapping(v, mailbox_iface);
 | |
| 		}
 | |
| 	}
 | |
| 	ao2_cleanup(mailbox_iface);
 | |
| 
 | |
| 	ast_config_destroy(conf);
 | |
| 
 | |
| 	ao2_global_obj_replace_unref(smdi_ifaces, new_ifaces);
 | |
| 
 | |
| 	if (!AST_LIST_EMPTY(&mwi_monitor.mailbox_mappings) && mwi_monitor.thread == AST_PTHREADT_NULL
 | |
| 		&& ast_pthread_create_background(&mwi_monitor.thread, NULL, mwi_monitor_handler, NULL)) {
 | |
| 		ast_log(LOG_ERROR, "Failed to start MWI monitoring thread.  This module will not operate.\n");
 | |
| 		return -1;
 | |
| 	}
 | |
| 
 | |
| 	if (!ao2_container_count(new_ifaces)) {
 | |
| 		res = 1;
 | |
| 	}
 | |
| 
 | |
| 	return res;
 | |
| }
 | |
| 
 | |
| struct smdi_msg_datastore {
 | |
| 	unsigned int id;
 | |
| 	struct ast_smdi_interface *iface;
 | |
| 	struct ast_smdi_md_message *md_msg;
 | |
| };
 | |
| 
 | |
| static void smdi_msg_datastore_destroy(void *data)
 | |
| {
 | |
| 	struct smdi_msg_datastore *smd = data;
 | |
| 
 | |
| 	ao2_cleanup(smd->iface);
 | |
| 	ao2_cleanup(smd->md_msg);
 | |
| 
 | |
| 	ast_free(smd);
 | |
| }
 | |
| 
 | |
| static const struct ast_datastore_info smdi_msg_datastore_info = {
 | |
| 	.type = "SMDIMSG",
 | |
| 	.destroy = smdi_msg_datastore_destroy,
 | |
| };
 | |
| 
 | |
| static int smdi_msg_id;
 | |
| 
 | |
| /*! In milliseconds */
 | |
| #define SMDI_RETRIEVE_TIMEOUT_DEFAULT 3000
 | |
| 
 | |
| AST_APP_OPTIONS(smdi_msg_ret_options, BEGIN_OPTIONS
 | |
| 	AST_APP_OPTION('t', OPT_SEARCH_TERMINAL),
 | |
| 	AST_APP_OPTION('n', OPT_SEARCH_NUMBER),
 | |
| END_OPTIONS );
 | |
| 
 | |
| static int smdi_msg_retrieve_read(struct ast_channel *chan, const char *cmd, char *data, char *buf, size_t len)
 | |
| {
 | |
| 	struct ast_module_user *u;
 | |
| 	AST_DECLARE_APP_ARGS(args,
 | |
| 		AST_APP_ARG(port);
 | |
| 		AST_APP_ARG(search_key);
 | |
| 		AST_APP_ARG(timeout);
 | |
| 		AST_APP_ARG(options);
 | |
| 	);
 | |
| 	struct ast_flags options = { 0 };
 | |
| 	unsigned int timeout = SMDI_RETRIEVE_TIMEOUT_DEFAULT;
 | |
| 	int res = -1;
 | |
| 	char *parse = NULL;
 | |
| 	struct smdi_msg_datastore *smd = NULL;
 | |
| 	struct ast_datastore *datastore = NULL;
 | |
| 	struct ast_smdi_interface *iface = NULL;
 | |
| 	struct ast_smdi_md_message *md_msg = NULL;
 | |
| 
 | |
| 	u = ast_module_user_add(chan);
 | |
| 
 | |
| 	if (ast_strlen_zero(data)) {
 | |
| 		ast_log(LOG_ERROR, "SMDI_MSG_RETRIEVE requires an argument\n");
 | |
| 		goto return_error;
 | |
| 	}
 | |
| 
 | |
| 	if (!chan) {
 | |
| 		ast_log(LOG_ERROR, "SMDI_MSG_RETRIEVE must be used with a channel\n");
 | |
| 		goto return_error;
 | |
| 	}
 | |
| 
 | |
| 	ast_autoservice_start(chan);
 | |
| 
 | |
| 	parse = ast_strdupa(data);
 | |
| 	AST_STANDARD_APP_ARGS(args, parse);
 | |
| 
 | |
| 	if (ast_strlen_zero(args.port) || ast_strlen_zero(args.search_key)) {
 | |
| 		ast_log(LOG_ERROR, "Invalid arguments provided to SMDI_MSG_RETRIEVE\n");
 | |
| 		goto return_error;
 | |
| 	}
 | |
| 
 | |
| 	if (!(iface = ast_smdi_interface_find(args.port))) {
 | |
| 		ast_log(LOG_ERROR, "SMDI port '%s' not found\n", args.port);
 | |
| 		goto return_error;
 | |
| 	}
 | |
| 
 | |
| 	if (!ast_strlen_zero(args.options)) {
 | |
| 		ast_app_parse_options(smdi_msg_ret_options, &options, NULL, args.options);
 | |
| 	}
 | |
| 
 | |
| 	if (!ast_strlen_zero(args.timeout)) {
 | |
| 		if (sscanf(args.timeout, "%30u", &timeout) != 1) {
 | |
| 			ast_log(LOG_ERROR, "'%s' is not a valid timeout\n", args.timeout);
 | |
| 			timeout = SMDI_RETRIEVE_TIMEOUT_DEFAULT;
 | |
| 		}
 | |
| 	}
 | |
| 
 | |
| 	if (!(md_msg = smdi_message_wait(iface, timeout, SMDI_MD, args.search_key, options))) {
 | |
| 		ast_log(LOG_WARNING, "No SMDI message retrieved for search key '%s' after "
 | |
| 			"waiting %u ms.\n", args.search_key, timeout);
 | |
| 		goto return_error;
 | |
| 	}
 | |
| 
 | |
| 	if (!(smd = ast_calloc(1, sizeof(*smd))))
 | |
| 		goto return_error;
 | |
| 
 | |
| 	smd->iface = ao2_bump(iface);
 | |
| 	smd->md_msg = ao2_bump(md_msg);
 | |
| 	smd->id = ast_atomic_fetchadd_int((int *) &smdi_msg_id, 1);
 | |
| 	snprintf(buf, len, "%u", smd->id);
 | |
| 
 | |
| 	if (!(datastore = ast_datastore_alloc(&smdi_msg_datastore_info, buf)))
 | |
| 		goto return_error;
 | |
| 
 | |
| 	datastore->data = smd;
 | |
| 
 | |
| 	ast_channel_lock(chan);
 | |
| 	ast_channel_datastore_add(chan, datastore);
 | |
| 	ast_channel_unlock(chan);
 | |
| 
 | |
| 	res = 0;
 | |
| 
 | |
| return_error:
 | |
| 	ao2_cleanup(iface);
 | |
| 	ao2_cleanup(md_msg);
 | |
| 
 | |
| 	if (smd && !datastore)
 | |
| 		smdi_msg_datastore_destroy(smd);
 | |
| 
 | |
| 	if (parse)
 | |
| 		ast_autoservice_stop(chan);
 | |
| 
 | |
| 	ast_module_user_remove(u);
 | |
| 
 | |
| 	return res;
 | |
| }
 | |
| 
 | |
| static int smdi_msg_read(struct ast_channel *chan, const char *cmd, char *data, char *buf, size_t len)
 | |
| {
 | |
| 	struct ast_module_user *u;
 | |
| 	int res = -1;
 | |
| 	AST_DECLARE_APP_ARGS(args,
 | |
| 		AST_APP_ARG(id);
 | |
| 		AST_APP_ARG(component);
 | |
| 	);
 | |
| 	char *parse;
 | |
| 	struct ast_datastore *datastore = NULL;
 | |
| 	struct smdi_msg_datastore *smd = NULL;
 | |
| 
 | |
| 	u = ast_module_user_add(chan);
 | |
| 
 | |
| 	if (!chan) {
 | |
| 		ast_log(LOG_ERROR, "SMDI_MSG can not be called without a channel\n");
 | |
| 		goto return_error;
 | |
| 	}
 | |
| 
 | |
| 	if (ast_strlen_zero(data)) {
 | |
| 		ast_log(LOG_WARNING, "SMDI_MSG requires an argument\n");
 | |
| 		goto return_error;
 | |
| 	}
 | |
| 
 | |
| 	parse = ast_strdupa(data);
 | |
| 	AST_STANDARD_APP_ARGS(args, parse);
 | |
| 
 | |
| 	if (ast_strlen_zero(args.id)) {
 | |
| 		ast_log(LOG_WARNING, "ID must be supplied to SMDI_MSG\n");
 | |
| 		goto return_error;
 | |
| 	}
 | |
| 
 | |
| 	if (ast_strlen_zero(args.component)) {
 | |
| 		ast_log(LOG_WARNING, "ID must be supplied to SMDI_MSG\n");
 | |
| 		goto return_error;
 | |
| 	}
 | |
| 
 | |
| 	ast_channel_lock(chan);
 | |
| 	datastore = ast_channel_datastore_find(chan, &smdi_msg_datastore_info, args.id);
 | |
| 	ast_channel_unlock(chan);
 | |
| 
 | |
| 	if (!datastore) {
 | |
| 		ast_log(LOG_WARNING, "No SMDI message found for message ID '%s'\n", args.id);
 | |
| 		goto return_error;
 | |
| 	}
 | |
| 
 | |
| 	smd = datastore->data;
 | |
| 
 | |
| 	if (!strcasecmp(args.component, "number")) {
 | |
| 		ast_copy_string(buf, smd->md_msg->mesg_desk_num, len);
 | |
| 	} else if (!strcasecmp(args.component, "terminal")) {
 | |
| 		ast_copy_string(buf, smd->md_msg->mesg_desk_term, len);
 | |
| 	} else if (!strcasecmp(args.component, "station")) {
 | |
| 		ast_copy_string(buf, smd->md_msg->fwd_st, len);
 | |
| 	} else if (!strcasecmp(args.component, "callerid")) {
 | |
| 		ast_copy_string(buf, smd->md_msg->calling_st, len);
 | |
| 	} else if (!strcasecmp(args.component, "type")) {
 | |
| 		snprintf(buf, len, "%c", smd->md_msg->type);
 | |
| 	} else {
 | |
| 		ast_log(LOG_ERROR, "'%s' is not a valid message component for SMDI_MSG\n",
 | |
| 			args.component);
 | |
| 		goto return_error;
 | |
| 	}
 | |
| 
 | |
| 	res = 0;
 | |
| 
 | |
| return_error:
 | |
| 	ast_module_user_remove(u);
 | |
| 
 | |
| 	return res;
 | |
| }
 | |
| 
 | |
| static struct ast_custom_function smdi_msg_retrieve_function = {
 | |
| 	.name = "SMDI_MSG_RETRIEVE",
 | |
| 	.read = smdi_msg_retrieve_read,
 | |
| };
 | |
| 
 | |
| static struct ast_custom_function smdi_msg_function = {
 | |
| 	.name = "SMDI_MSG",
 | |
| 	.read = smdi_msg_read,
 | |
| };
 | |
| 
 | |
| static int unload_module(void)
 | |
| {
 | |
| 	ao2_global_obj_release(smdi_ifaces);
 | |
| 
 | |
| 	destroy_all_mailbox_mappings();
 | |
| 
 | |
| 	ast_mutex_lock(&mwi_monitor.lock);
 | |
| 	mwi_monitor.stop = 1;
 | |
| 	ast_cond_signal(&mwi_monitor.cond);
 | |
| 	ast_mutex_unlock(&mwi_monitor.lock);
 | |
| 
 | |
| 	if (mwi_monitor.thread != AST_PTHREADT_NULL) {
 | |
| 		pthread_join(mwi_monitor.thread, NULL);
 | |
| 	}
 | |
| 
 | |
| 	ast_custom_function_unregister(&smdi_msg_retrieve_function);
 | |
| 	ast_custom_function_unregister(&smdi_msg_function);
 | |
| 
 | |
| 	return 0;
 | |
| }
 | |
| 
 | |
| /*!
 | |
|  * \brief Load the module
 | |
|  *
 | |
|  * Module loading including tests for configuration or dependencies.
 | |
|  * This function can return AST_MODULE_LOAD_FAILURE, AST_MODULE_LOAD_DECLINE,
 | |
|  * or AST_MODULE_LOAD_SUCCESS. If a dependency or environment variable fails
 | |
|  * tests return AST_MODULE_LOAD_FAILURE. If the module can not load the
 | |
|  * configuration file or other non-critical problem return
 | |
|  * AST_MODULE_LOAD_DECLINE. On success return AST_MODULE_LOAD_SUCCESS.
 | |
|  */
 | |
| static int load_module(void)
 | |
| {
 | |
| 	int res;
 | |
| 
 | |
| 	ast_mutex_init(&mwi_monitor.lock);
 | |
| 	ast_cond_init(&mwi_monitor.cond, NULL);
 | |
| 
 | |
| 	/* load the config and start the listener threads*/
 | |
| 	res = smdi_load(0);
 | |
| 	if (res < 0) {
 | |
| 		unload_module();
 | |
| 		return AST_MODULE_LOAD_DECLINE;
 | |
| 	} else if (res == 1) {
 | |
| 		ast_log(LOG_NOTICE, "No SMDI interfaces are available to listen on, not starting SMDI listener.\n");
 | |
| 	}
 | |
| 
 | |
| 	ast_custom_function_register(&smdi_msg_retrieve_function);
 | |
| 	ast_custom_function_register(&smdi_msg_function);
 | |
| 
 | |
| 	return AST_MODULE_LOAD_SUCCESS;
 | |
| }
 | |
| 
 | |
| static int reload(void)
 | |
| {
 | |
| 	int res;
 | |
| 
 | |
| 	res = smdi_load(1);
 | |
| 	if (res < 0) {
 | |
| 		return res;
 | |
| 	} else if (res == 1) {
 | |
| 		ast_log(LOG_WARNING, "No SMDI interfaces were specified to listen on, not starting SDMI listener.\n");
 | |
| 	}
 | |
| 	return 0;
 | |
| }
 | |
| 
 | |
| AST_MODULE_INFO(ASTERISK_GPL_KEY, AST_MODFLAG_GLOBAL_SYMBOLS | AST_MODFLAG_LOAD_ORDER, "Simplified Message Desk Interface (SMDI) Resource",
 | |
| 	.support_level = AST_MODULE_SUPPORT_EXTENDED,
 | |
| 	.load = load_module,
 | |
| 	.unload = unload_module,
 | |
| 	.reload = reload,
 | |
| 	.load_pri = AST_MODPRI_CHANNEL_DEPEND,
 | |
| );
 |