Skip to content
Snippets Groups Projects
func_callerid.c 55.4 KiB
Newer Older
  • Learn to ignore specific revisions
  • 					/* dnid-num-plan */
    
    					snprintf(buf, len, "%d", ast_channel_dialed(chan)->number.plan);
    
    				} else {
    					ast_log(LOG_ERROR, "Unknown callerid data type '%s'.\n", data);
    
    			} else if (!strncasecmp("subaddr", member.subnames[1], 7)) {
    
    				/*
    				 * Accept subaddr[ess]
    				 * dnid-subaddr...
    				 */
    
    				status = party_subaddress_read(buf, len, member.argc - 2, member.subnames + 2,
    
    					&ast_channel_dialed(chan)->subaddress);
    
    				switch (status) {
    				case ID_FIELD_VALID:
    				case ID_FIELD_INVALID:
    					break;
    				default:
    					ast_log(LOG_ERROR, "Unknown callerid data type '%s'.\n", data);
    					break;
    
    			} else {
    				ast_log(LOG_ERROR, "Unknown callerid data type '%s'.\n", data);
    
    		} else if (member.argc == 1 && !strcasecmp("ani2", member.subnames[0])) {
    
    			snprintf(buf, len, "%d", ast_channel_caller(chan)->ani2);
    
    		} else if (!strcasecmp("ani", member.subnames[0])) {
    
    			if (member.argc == 1) {
    				/* Setup as if user had given ani-num instead. */
    				member.argc = 2;
    
    			status = party_id_read(buf, len, member.argc - 1, member.subnames + 1,
    
    				&ast_channel_caller(chan)->ani);
    
    			switch (status) {
    			case ID_FIELD_VALID:
    			case ID_FIELD_INVALID:
    				break;
    			default:
    				ast_log(LOG_ERROR, "Unknown callerid data type '%s'.\n", data);
    				break;
    
    		} else if (!strcasecmp("priv", member.subnames[0])) {
    			status = party_id_read(buf, len, member.argc - 1, member.subnames + 1,
    
    				&ast_channel_caller(chan)->priv);
    			switch (status) {
    			case ID_FIELD_VALID:
    			case ID_FIELD_INVALID:
    				break;
    			default:
    				ast_log(LOG_ERROR, "Unknown callerid data type '%s'.\n", data);
    				break;
    			}
    
    			status = party_id_read(buf, len, member.argc, member.subnames, &ast_channel_caller(chan)->id);
    
    			switch (status) {
    			case ID_FIELD_VALID:
    			case ID_FIELD_INVALID:
    				break;
    			default:
    				ast_log(LOG_ERROR, "Unknown callerid data type '%s'.\n", data);
    				break;
    			}
    
    
    		ast_channel_unlock(chan);
    
    /*!
     * \internal
     * \brief Write new values to the caller-id information struct.
     *
     * \param chan Asterisk channel to update
     * \param cmd Not used
     * \param data Caller-id function datatype string
     * \param value Value to assign to the caller-id information struct.
     *
     * \retval 0 on success.
     * \retval -1 on error.
     */
    static int callerid_write(struct ast_channel *chan, const char *cmd, char *data, const char *value)
    
    	struct ast_party_caller caller;
    	struct ast_party_dialed dialed;
    	enum ID_FIELD_STATUS status;
    	char *val;
    	char *parms;
    
    	struct ast_party_func_args args = { 0, };
    	struct ast_party_members member = { 0, };
    
    
    	if (!value || !chan) {
    
    		return -1;
    
    	parms = ast_strdupa(data);
    	AST_STANDARD_APP_ARGS(args, parms);
    	if (args.argc == 0) {
    		/* Must have at least one argument. */
    		return -1;
    	}
    
    	AST_NONSTANDARD_APP_ARGS(member, args.member, '-');
    	if (member.argc == 0 || ARRAY_LEN(member.subnames) <= member.argc) {
    		/* Too few or too many subnames */
    		return -1;
    	}
    
    	value = ast_skip_blanks(value);
    
    	ast_channel_lock(chan);
    
    	if (member.argc == 1 && !strcasecmp("rdnis", member.subnames[0])) {
    
    		ast_channel_redirecting(chan)->from.number.valid = 1;
    		ast_free(ast_channel_redirecting(chan)->from.number.str);
    		ast_channel_redirecting(chan)->from.number.str = ast_strdup(value);
    
    	} else if (!strcasecmp("dnid", member.subnames[0])) {
    
    		ast_party_dialed_set_init(&dialed, ast_channel_dialed(chan));
    
    		if (member.argc == 1) {
    			/* Setup as if user had given dnid-num instead. */
    			member.argc = 2;
    
    		if (!strncasecmp("num", member.subnames[1], 3)) {
    
    			/*
    			 * Accept num[ber]
    			 * dnid-num...
    			 */
    			if (member.argc == 2) {
    				/* dnid-num */
    				dialed.number.str = ast_strdup(value);
    				ast_trim_blanks(dialed.number.str);
    
    				ast_party_dialed_set(ast_channel_dialed(chan), &dialed);
    
    			} else if (member.argc == 3 && !strcasecmp("plan", member.subnames[2])) {
    
    				/* dnid-num-plan */
    				val = ast_strdupa(value);
    				ast_trim_blanks(val);
    
    				if (('0' <= val[0]) && (val[0] <= '9')) {
    
    					ast_channel_dialed(chan)->number.plan = atoi(val);
    
    				} else {
    					ast_log(LOG_ERROR,
    						"Unknown type-of-number/numbering-plan '%s', value unchanged\n", val);
    				}
    			} else {
    				ast_log(LOG_ERROR, "Unknown callerid data type '%s'.\n", data);
    			}
    
    		} else if (!strncasecmp("subaddr", member.subnames[1], 7)) {
    
    			/*
    			 * Accept subaddr[ess]
    			 * dnid-subaddr...
    			 */
    			status = party_subaddress_write(&dialed.subaddress, member.argc - 2,
    
    			switch (status) {
    			case ID_FIELD_VALID:
    
    				ast_party_dialed_set(ast_channel_dialed(chan), &dialed);
    
    				break;
    			case ID_FIELD_INVALID:
    				break;
    			default:
    				ast_log(LOG_ERROR, "Unknown callerid data type '%s'.\n", data);
    				break;
    			}
    		} else {
    			ast_log(LOG_ERROR, "Unknown callerid data type '%s'.\n", data);
    
    		ast_party_dialed_free(&dialed);
    
    	} else if (member.argc == 1 && !strcasecmp("ani2", member.subnames[0])) {
    
    		val = ast_strdupa(value);
    		ast_trim_blanks(val);
    
    		if (('0' <= val[0]) && (val[0] <= '9')) {
    
    			ast_channel_caller(chan)->ani2 = atoi(val);
    
    			ast_log(LOG_ERROR, "Unknown callerid ani2 '%s', value unchanged\n", val);
    
    	} else if (!strcasecmp("ani", member.subnames[0])) {
    
    		ast_party_caller_set_init(&caller, ast_channel_caller(chan));
    
    		if (member.argc == 1) {
    			/* Setup as if user had given ani-num instead. */
    			member.argc = 2;
    
    		status = party_id_write(&caller.ani, member.argc - 1, member.subnames + 1, value);
    
    		switch (status) {
    		case ID_FIELD_VALID:
    
    			ast_party_caller_set(ast_channel_caller(chan), &caller, NULL);
    
    			break;
    		case ID_FIELD_INVALID:
    			break;
    		default:
    			ast_log(LOG_ERROR, "Unknown callerid data type '%s'.\n", data);
    			break;
    
    		ast_party_caller_free(&caller);
    
    	} else if (!strcasecmp("priv", member.subnames[0])) {
    
    		ast_party_caller_set_init(&caller, ast_channel_caller(chan));
    
    		status = party_id_write(&caller.priv, member.argc - 1, member.subnames + 1, value);
    
    		switch (status) {
    		case ID_FIELD_VALID:
    			ast_party_caller_set(ast_channel_caller(chan), &caller, NULL);
    			break;
    		case ID_FIELD_INVALID:
    			break;
    		default:
    			ast_log(LOG_ERROR, "Unknown callerid data type '%s'.\n", data);
    			break;
    		}
    		ast_party_caller_free(&caller);
    
    	} else {
    
    		ast_party_caller_set_init(&caller, ast_channel_caller(chan));
    
    		status = party_id_write(&caller.id, member.argc, member.subnames, value);
    
    		switch (status) {
    		case ID_FIELD_VALID:
    			ast_channel_set_caller_event(chan, &caller, NULL);
    			break;
    		case ID_FIELD_INVALID:
    			break;
    		default:
    			ast_log(LOG_ERROR, "Unknown callerid data type '%s'.\n", data);
    			break;
    
    		ast_party_caller_free(&caller);
    	}
    	ast_channel_unlock(chan);
    
    	return 0;
    }
    
    /*!
     * \internal
     * \brief Read values from the connected line information struct.
     *
     * \param chan Asterisk channel to read
     * \param cmd Not used
     * \param data Connected line function datatype string
     * \param buf Buffer to fill with read value.
     * \param len Length of the buffer
     *
     * \retval 0 on success.
     * \retval -1 on error.
     */
    static int connectedline_read(struct ast_channel *chan, const char *cmd, char *data, char *buf, size_t len)
    {
    
    	struct ast_party_members member = { 0, };
    
    	char *read_what;
    
    
    	/* Ensure that the buffer is empty */
    	*buf = 0;
    
    	if (!chan) {
    		return -1;
    	}
    
    	read_what = ast_strdupa(data);
    	AST_NONSTANDARD_APP_ARGS(member, read_what, '-');
    	if (member.argc == 0 || ARRAY_LEN(member.subnames) <= member.argc) {
    		/* Too few or too many subnames */
    		return -1;
    	}
    
    	ast_channel_lock(chan);
    
    
    	if (member.argc == 1 && !strcasecmp("source", member.subnames[0])) {
    
    		ast_copy_string(buf, ast_connected_line_source_name(ast_channel_connected(chan)->source), len);
    
    	} else if (!strcasecmp("priv", member.subnames[0])) {
    		status = party_id_read(buf, len, member.argc - 1, member.subnames + 1,
    
    			&ast_channel_connected(chan)->priv);
    		switch (status) {
    		case ID_FIELD_VALID:
    		case ID_FIELD_INVALID:
    			break;
    		default:
    			ast_log(LOG_ERROR, "Unknown connectedline data type '%s'.\n", data);
    			break;
    		}
    
    	} else {
    
    		status = party_id_read(buf, len, member.argc, member.subnames, &ast_channel_connected(chan)->id);
    
    		switch (status) {
    		case ID_FIELD_VALID:
    		case ID_FIELD_INVALID:
    			break;
    		default:
    			ast_log(LOG_ERROR, "Unknown connectedline data type '%s'.\n", data);
    			break;
    
    	}
    
    	ast_channel_unlock(chan);
    
    	return 0;
    }
    
    /*!
     * \internal
     * \brief Write new values to the connected line information struct.
     *
     * \param chan Asterisk channel to update
     * \param cmd Not used
     * \param data Connected line function datatype string
     * \param value Value to assign to the connected line information struct.
     *
     * \retval 0 on success.
     * \retval -1 on error.
     */
    static int connectedline_write(struct ast_channel *chan, const char *cmd, char *data, const char *value)
    {
    	struct ast_party_connected_line connected;
    	char *val;
    	char *parms;
    	void (*set_it)(struct ast_channel *chan, const struct ast_party_connected_line *connected, const struct ast_set_party_connected_line *update);
    
    	struct ast_party_func_args args = { 0, };
    	struct ast_party_members member = { 0, };
    
    	struct ast_flags opts;
    	char *opt_args[CONNECTED_LINE_OPT_ARG_ARRAY_SIZE];
    
    
    	if (!value || !chan) {
    		return -1;
    	}
    
    	parms = ast_strdupa(data);
    	AST_STANDARD_APP_ARGS(args, parms);
    	if (args.argc == 0) {
    		/* Must have at least one argument. */
    		return -1;
    	}
    
    	AST_NONSTANDARD_APP_ARGS(member, args.member, '-');
    	if (member.argc == 0 || ARRAY_LEN(member.subnames) <= member.argc) {
    		/* Too few or too many subnames */
    		return -1;
    	}
    
    	if (ast_app_parse_options(connectedline_opts, &opts, opt_args, args.opts)) {
    		/* General invalid option syntax. */
    		return -1;
    	}
    
    	/* Determine if the update indication inhibit option is present */
    	if (ast_test_flag(&opts, CONNECTED_LINE_OPT_INHIBIT)) {
    		set_it = ast_channel_set_connected_line;
    	} else {
    		set_it = ast_channel_update_connected_line;
    	}
    
    	ast_channel_lock(chan);
    
    	ast_party_connected_line_set_init(&connected, ast_channel_connected(chan));
    
    	ast_channel_unlock(chan);
    
    	value = ast_skip_blanks(value);
    
    
    	if (member.argc == 1 && !strcasecmp("source", member.subnames[0])) {
    
    		int source;
    
    		val = ast_strdupa(value);
    		ast_trim_blanks(val);
    
    		if (('0' <= val[0]) && (val[0] <= '9')) {
    			source = atoi(val);
    		} else {
    			source = ast_connected_line_source_parse(val);
    
    
    		if (source < 0) {
    			ast_log(LOG_ERROR, "Unknown connectedline source '%s', value unchanged\n", val);
    		} else {
    			connected.source = source;
    			set_it(chan, &connected, NULL);
    
    	} else if (!strcasecmp("priv", member.subnames[0])) {
    		status = party_id_write(&connected.priv, member.argc - 1, member.subnames + 1, value);
    
    		switch (status) {
    		case ID_FIELD_VALID:
    			set_it(chan, &connected, NULL);
    			break;
    		case ID_FIELD_INVALID:
    			break;
    		default:
    			ast_log(LOG_ERROR, "Unknown connectedline data type '%s'.\n", data);
    			break;
    		}
    		ast_party_connected_line_free(&connected);
    
    	} else {
    
    		status = party_id_write(&connected.id, member.argc, member.subnames, value);
    
    		switch (status) {
    		case ID_FIELD_VALID:
    			set_it(chan, &connected, NULL);
    			break;
    		case ID_FIELD_INVALID:
    			break;
    		default:
    			ast_log(LOG_ERROR, "Unknown connectedline data type '%s'.\n", data);
    			break;
    
    		ast_party_connected_line_free(&connected);
    	}
    
    	return 0;
    }
    
    /*!
     * \internal
     * \brief Read values from the redirecting information struct.
     *
     * \param chan Asterisk channel to read
     * \param cmd Not used
     * \param data Redirecting function datatype string
     * \param buf Buffer to fill with read value.
     * \param len Length of the buffer
     *
     * \retval 0 on success.
     * \retval -1 on error.
     */
    static int redirecting_read(struct ast_channel *chan, const char *cmd, char *data, char *buf, size_t len)
    {
    
    	struct ast_party_members member = { 0, };
    
    	char *read_what;
    
    	const struct ast_party_redirecting *ast_redirecting;
    
    	enum ID_FIELD_STATUS status;
    
    	/* Ensure that the buffer is empty */
    	*buf = 0;
    
    	if (!chan) {
    		return -1;
    	}
    
    	read_what = ast_strdupa(data);
    	AST_NONSTANDARD_APP_ARGS(member, read_what, '-');
    	if (member.argc == 0 || ARRAY_LEN(member.subnames) <= member.argc) {
    		/* Too few or too many subnames */
    		return -1;
    	}
    
    	ast_channel_lock(chan);
    
    
    	ast_redirecting = ast_channel_redirecting(chan);
    
    	if (!strcasecmp("orig", member.subnames[0])) {
    		if (member.argc == 2 && !strcasecmp("reason", member.subnames[1])) {
    
    			ast_copy_string(buf,
    
    				ast_redirecting_reason_name(&ast_redirecting->orig_reason), len);
    
    			status = party_id_read(buf, len, member.argc - 1, member.subnames + 1,
    
    				&ast_redirecting->orig);
    			switch (status) {
    			case ID_FIELD_VALID:
    			case ID_FIELD_INVALID:
    				break;
    			default:
    				ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    				break;
    			}
    		}
    
    	} else if (!strcasecmp("from", member.subnames[0])) {
    		status = party_id_read(buf, len, member.argc - 1, member.subnames + 1,
    
    			&ast_redirecting->from);
    
    		switch (status) {
    		case ID_FIELD_VALID:
    		case ID_FIELD_INVALID:
    			break;
    		default:
    			ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    			break;
    		}
    
    	} else if (!strcasecmp("to", member.subnames[0])) {
    		status = party_id_read(buf, len, member.argc - 1, member.subnames + 1,
    
    			&ast_redirecting->to);
    
    		switch (status) {
    		case ID_FIELD_VALID:
    		case ID_FIELD_INVALID:
    			break;
    		default:
    			ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    			break;
    		}
    
    	} else if (member.argc == 1 && !strncasecmp("pres", member.subnames[0], 4)) {
    
    		/*
    		 * Accept pres[entation]
    		 * This is the combined from name/number presentation.
    		 */
    		ast_copy_string(buf,
    			ast_named_caller_presentation(
    
    				ast_party_id_presentation(&ast_redirecting->from)), len);
    
    	} else if (member.argc == 1 && !strcasecmp("reason", member.subnames[0])) {
    
    		ast_copy_string(buf, ast_redirecting_reason_name(&ast_redirecting->reason), len);
    
    	} else if (member.argc == 1 && !strcasecmp("count", member.subnames[0])) {
    
    		snprintf(buf, len, "%d", ast_redirecting->count);
    
    	} else if (1 < member.argc && !strcasecmp("priv", member.subnames[0])) {
    		if (!strcasecmp("orig", member.subnames[1])) {
    			status = party_id_read(buf, len, member.argc - 2, member.subnames + 2,
    
    				&ast_redirecting->priv_orig);
    			switch (status) {
    			case ID_FIELD_VALID:
    			case ID_FIELD_INVALID:
    				break;
    			default:
    				ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    				break;
    			}
    
    		} else if (!strcasecmp("from", member.subnames[1])) {
    			status = party_id_read(buf, len, member.argc - 2, member.subnames + 2,
    
    				&ast_redirecting->priv_from);
    			switch (status) {
    			case ID_FIELD_VALID:
    			case ID_FIELD_INVALID:
    				break;
    			default:
    				ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    				break;
    			}
    
    		} else if (!strcasecmp("to", member.subnames[1])) {
    			status = party_id_read(buf, len, member.argc - 2, member.subnames + 2,
    
    				&ast_redirecting->priv_to);
    			switch (status) {
    			case ID_FIELD_VALID:
    			case ID_FIELD_INVALID:
    				break;
    			default:
    				ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    				break;
    			}
    		} else {
    			ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    		}
    
    	} else {
    		ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    	}
    
    	ast_channel_unlock(chan);
    
    	return 0;
    }
    
    /*!
     * \internal
     * \brief Write new values to the redirecting information struct.
     *
     * \param chan Asterisk channel to update
     * \param cmd Not used
     * \param data Redirecting function datatype string
     * \param value Value to assign to the redirecting information struct.
     *
     * \retval 0 on success.
     * \retval -1 on error.
     */
    static int redirecting_write(struct ast_channel *chan, const char *cmd, char *data, const char *value)
    {
    	struct ast_party_redirecting redirecting;
    	enum ID_FIELD_STATUS status;
    	char *val;
    	char *parms;
    	void (*set_it)(struct ast_channel *chan, const struct ast_party_redirecting *redirecting, const struct ast_set_party_redirecting *update);
    
    	struct ast_party_func_args args = { 0, };
    	struct ast_party_members member = { 0, };
    
    	struct ast_flags opts;
    	char *opt_args[REDIRECTING_OPT_ARG_ARRAY_SIZE];
    
    	if (!value || !chan) {
    		return -1;
    	}
    
    	parms = ast_strdupa(data);
    	AST_STANDARD_APP_ARGS(args, parms);
    	if (args.argc == 0) {
    		/* Must have at least one argument. */
    		return -1;
    	}
    
    	AST_NONSTANDARD_APP_ARGS(member, args.member, '-');
    	if (member.argc == 0 || ARRAY_LEN(member.subnames) <= member.argc) {
    		/* Too few or too many subnames */
    		return -1;
    	}
    
    	if (ast_app_parse_options(redirecting_opts, &opts, opt_args, args.opts)) {
    		/* General invalid option syntax. */
    		return -1;
    	}
    
    	/* Determine if the update indication inhibit option is present */
    	if (ast_test_flag(&opts, REDIRECTING_OPT_INHIBIT)) {
    		set_it = ast_channel_set_redirecting;
    	} else {
    		set_it = ast_channel_update_redirecting;
    	}
    
    	ast_channel_lock(chan);
    
    	ast_party_redirecting_set_init(&redirecting, ast_channel_redirecting(chan));
    
    	ast_channel_unlock(chan);
    
    	value = ast_skip_blanks(value);
    
    
    	if (!strcasecmp("orig", member.subnames[0])) {
    		if (member.argc == 2 && !strcasecmp("reason", member.subnames[1])) {
    
    			int reason;
    
    			val = ast_strdupa(value);
    			ast_trim_blanks(val);
    
    			if (('0' <= val[0]) && (val[0] <= '9')) {
    				reason = atoi(val);
    			} else {
    				reason = ast_redirecting_reason_parse(val);
    			}
    
    			if (reason < 0) {
    
    			/* The argument passed into the function does not correspond to a pre-defined
    			 * reason, so we can just set the reason string to what was given and set the
    			 * code to be unknown
    			 */
    
    				ast_log(LOG_WARNING, "Unknown redirecting reason '%s', defaulting to unknown\n", val);
    
    				redirecting.orig_reason.code = AST_REDIRECTING_REASON_UNKNOWN;
    				redirecting.orig_reason.str = val;
    				set_it(chan, &redirecting, NULL);
    
    				redirecting.orig_reason.code = reason;
    				redirecting.orig_reason.str = "";
    
    				set_it(chan, &redirecting, NULL);
    			}
    		} else {
    
    			status = party_id_write(&redirecting.orig, member.argc - 1, member.subnames + 1,
    
    				value);
    			switch (status) {
    			case ID_FIELD_VALID:
    				set_it(chan, &redirecting, NULL);
    				break;
    			case ID_FIELD_INVALID:
    				break;
    			default:
    				ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    				break;
    			}
    			ast_party_redirecting_free(&redirecting);
    		}
    
    	} else if (!strcasecmp("from", member.subnames[0])) {
    		status = party_id_write(&redirecting.from, member.argc - 1, member.subnames + 1,
    
    			value);
    		switch (status) {
    		case ID_FIELD_VALID:
    			set_it(chan, &redirecting, NULL);
    			break;
    		case ID_FIELD_INVALID:
    			break;
    		default:
    			ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    			break;
    		}
    		ast_party_redirecting_free(&redirecting);
    
    	} else if (!strcasecmp("to", member.subnames[0])) {
    		status = party_id_write(&redirecting.to, member.argc - 1, member.subnames + 1, value);
    
    		switch (status) {
    		case ID_FIELD_VALID:
    			set_it(chan, &redirecting, NULL);
    			break;
    		case ID_FIELD_INVALID:
    			break;
    		default:
    			ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    			break;
    		}
    		ast_party_redirecting_free(&redirecting);
    
    	} else if (member.argc == 1 && !strncasecmp("pres", member.subnames[0], 4)) {
    
    		int pres;
    
    		if (('0' <= val[0]) && (val[0] <= '9')) {
    			pres = atoi(val);
    		} else {
    			pres = ast_parse_caller_presentation(val);
    		}
    
    		if (pres < 0) {
    			ast_log(LOG_ERROR,
    				"Unknown redirecting combined presentation '%s', value unchanged\n", val);
    		} else {
    			redirecting.from.name.presentation = pres;
    			redirecting.from.number.presentation = pres;
    			redirecting.to.name.presentation = pres;
    			redirecting.to.number.presentation = pres;
    			set_it(chan, &redirecting, NULL);
    		}
    
    	} else if (member.argc == 1 && !strcasecmp("reason", member.subnames[0])) {
    
    		int reason;
    
    		val = ast_strdupa(value);
    		ast_trim_blanks(val);
    
    		if (('0' <= val[0]) && (val[0] <= '9')) {
    			reason = atoi(val);
    		} else {
    			reason = ast_redirecting_reason_parse(val);
    		}
    
    		if (reason < 0) {
    
    			/* The argument passed into the function does not correspond to a pre-defined
    			 * reason, so we can just set the reason string to what was given and set the
    			 * code to be unknown
    			 */
    			redirecting.reason.code = AST_REDIRECTING_REASON_UNKNOWN;
    			redirecting.reason.str = val;
    			set_it(chan, &redirecting, NULL);
    
    			redirecting.reason.code = reason;
    			redirecting.reason.str = "";
    
    			set_it(chan, &redirecting, NULL);
    
    	} else if (member.argc == 1 && !strcasecmp("count", member.subnames[0])) {
    
    		val = ast_strdupa(value);
    		ast_trim_blanks(val);
    
    		if (('0' <= val[0]) && (val[0] <= '9')) {
    			redirecting.count = atoi(val);
    			set_it(chan, &redirecting, NULL);
    
    			ast_log(LOG_ERROR, "Unknown redirecting count '%s', value unchanged\n", val);
    
    	} else if (1 < member.argc && !strcasecmp("priv", member.subnames[0])) {
    		if (!strcasecmp("orig", member.subnames[1])) {
    			status = party_id_write(&redirecting.priv_orig, member.argc - 2, member.subnames + 2,
    
    				value);
    			switch (status) {
    			case ID_FIELD_VALID:
    				set_it(chan, &redirecting, NULL);
    				break;
    			case ID_FIELD_INVALID:
    				break;
    			default:
    				ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    				break;
    			}
    			ast_party_redirecting_free(&redirecting);
    
    		} else if (!strcasecmp("from", member.subnames[1])) {
    			status = party_id_write(&redirecting.priv_from, member.argc - 2, member.subnames + 2,
    
    				value);
    			switch (status) {
    			case ID_FIELD_VALID:
    				set_it(chan, &redirecting, NULL);
    				break;
    			case ID_FIELD_INVALID:
    				break;
    			default:
    				ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    				break;
    			}
    			ast_party_redirecting_free(&redirecting);
    
    		} else if (!strcasecmp("to", member.subnames[1])) {
    			status = party_id_write(&redirecting.priv_to, member.argc - 2, member.subnames + 2, value);
    
    			switch (status) {
    			case ID_FIELD_VALID:
    				set_it(chan, &redirecting, NULL);
    				break;
    			case ID_FIELD_INVALID:
    				break;
    			default:
    				ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    				break;
    			}
    			ast_party_redirecting_free(&redirecting);
    		} else {
    			ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    		}
    
    		ast_log(LOG_ERROR, "Unknown redirecting data type '%s'.\n", data);
    
    static struct ast_custom_function callerid_function = {
    
    	.read_max = 256,
    
    static struct ast_custom_function connectedline_function = {
    	.name = "CONNECTEDLINE",
    	.read = connectedline_read,
    	.write = connectedline_write,
    };
    
    static struct ast_custom_function redirecting_function = {
    	.name = "REDIRECTING",
    	.read = redirecting_read,
    	.write = redirecting_write,
    };
    
    /*!
     * \internal
     * \brief Unload the function module
     *
     * \retval 0 on success.
     * \retval -1 on error.
     */
    
    static int unload_module(void)
    
    	ast_custom_function_unregister(&callerid_function);
    	ast_custom_function_unregister(&connectedline_function);
    	ast_custom_function_unregister(&redirecting_function);
    	return 0;
    
    /*!
     * \internal
     * \brief Load and initialize the function module.
     *
     * \retval AST_MODULE_LOAD_SUCCESS on success.
     * \retval AST_MODULE_LOAD_DECLINE on error.
     */
    
    static int load_module(void)
    
    	res = ast_custom_function_register(&callerid_function);
    
    	res |= ast_custom_function_register(&connectedline_function);
    	res |= ast_custom_function_register(&redirecting_function);
    
    
    	if (res) {
    		unload_module();
    		return AST_MODULE_LOAD_DECLINE;
    	}
    
    	return AST_MODULE_LOAD_SUCCESS;
    
    /* Do not wrap the following line. */
    AST_MODULE_INFO_STANDARD(ASTERISK_GPL_KEY, "Party ID related dialplan functions (Caller-ID, Connected-line, Redirecting)");