Make evaluation of channel variables consistently case-sensitive.
[asterisk/asterisk.git] / funcs / func_enum.c
index 5f1b01d..4b5fb9f 100644 (file)
@@ -6,6 +6,7 @@
  * Mark Spencer <markster@digium.com>
  * Oleksiy Krivoshey <oleksiyk@gmail.com>
  * Russell Bryant <russelb@clemson.edu>
+ * Brett Bryant <bbryant@digium.com>
  *
  * See http://www.asterisk.org for more information about
  * the Asterisk project. Please do not directly contact
  * \author Mark Spencer <markster@digium.com>
  * \author Oleksiy Krivoshey <oleksiyk@gmail.com>
  * \author Russell Bryant <russelb@clemson.edu>
+ * \author Brett Bryant <bbryant@digium.com>
  *
  * \arg See also AstENUM
+ *
+ * \ingroup functions
  */
 
-#include <stdlib.h>
-#include <stdio.h>
+/*** MODULEINFO
+       <support_level>core</support_level>
+ ***/
 
 #include "asterisk.h"
 
@@ -42,17 +47,115 @@ ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
 #include "asterisk/utils.h"
 #include "asterisk/lock.h"
 #include "asterisk/file.h"
-#include "asterisk/logger.h"
-#include "asterisk/pbx.h"
-#include "asterisk/options.h"
 #include "asterisk/enum.h"
 #include "asterisk/app.h"
 
- static char *synopsis = "Syntax: ENUMLOOKUP(number[|Method-type[|options[|record#[|zone-suffix]]]])\n";
-
-LOCAL_USER_DECL;
-
-static int function_enum(struct ast_channel *chan, char *cmd, char *data,
+/*** DOCUMENTATION
+       <function name="ENUMQUERY" language="en_US">
+               <synopsis>
+                       Initiate an ENUM query.
+               </synopsis>
+               <syntax>
+                       <parameter name="number" required="true" />
+                       <parameter name="method-type">
+                               <para>If no <replaceable>method-type</replaceable> is given, the default will be
+                               <literal>sip</literal>.</para>
+                       </parameter>
+                       <parameter name="zone-suffix">
+                               <para>If no <replaceable>zone-suffix</replaceable> is given, the default will be
+                               <literal>e164.arpa</literal></para>
+                       </parameter>
+               </syntax>
+               <description>
+                       <para>This will do a ENUM lookup of the given phone number.</para>
+               </description>
+       </function>
+       <function name="ENUMRESULT" language="en_US">
+               <synopsis>
+                       Retrieve results from a ENUMQUERY.
+               </synopsis>
+               <syntax>
+                       <parameter name="id" required="true">
+                               <para>The identifier returned by the ENUMQUERY function.</para>
+                       </parameter>
+                       <parameter name="resultnum" required="true">
+                               <para>The number of the result that you want to retrieve.</para>
+                               <para>Results start at <literal>1</literal>. If this argument is specified
+                               as <literal>getnum</literal>, then it will return the total number of results 
+                               that are available or -1 on error.</para>
+                       </parameter>
+               </syntax>
+               <description>
+                       <para>This function will retrieve results from a previous use
+                       of the ENUMQUERY function.</para>
+               </description>
+       </function>     
+       <function name="ENUMLOOKUP" language="en_US">
+               <synopsis>
+                       General or specific querying of NAPTR records for ENUM or ENUM-like DNS pointers.
+               </synopsis>
+               <syntax>
+                       <parameter name="number" required="true" />
+                       <parameter name="method-type">
+                               <para>If no <replaceable>method-type</replaceable> is given, the default will be
+                                <literal>sip</literal>.</para>
+                       </parameter>
+                       <parameter name="options">
+                               <optionlist>
+                                       <option name="c">
+                                               <para>Returns an integer count of the number of NAPTRs of a certain RR type.</para>
+                                               <para>Combination of <literal>c</literal> and Method-type of <literal>ALL</literal> will
+                                               return a count of all NAPTRs for the record or -1 on error.</para>
+                                       </option>
+                                       <option name="u">
+                                               <para>Returns the full URI and does not strip off the URI-scheme.</para>
+                                       </option>
+                                       <option name="s">
+                                               <para>Triggers ISN specific rewriting.</para>
+                                       </option>
+                                       <option name="i">
+                                               <para>Looks for branches into an Infrastructure ENUM tree.</para>
+                                       </option>
+                                       <option name="d">
+                                               <para>for a direct DNS lookup without any flipping of digits.</para>
+                                       </option>
+                               </optionlist>   
+                       </parameter>
+                       <parameter name="record#">
+                               <para>If no <replaceable>record#</replaceable> is given, 
+                               defaults to <literal>1</literal>.</para>
+                       </parameter>
+                       <parameter name="zone-suffix">
+                               <para>If no <replaceable>zone-suffix</replaceable> is given, the default will be
+                               <literal>e164.arpa</literal></para>
+                       </parameter>
+               </syntax>
+               <description>
+                       <para>For more information see <filename>doc/AST.pdf</filename>.</para>
+               </description>
+       </function>
+       <function name="TXTCIDNAME" language="en_US">
+               <synopsis>
+                       TXTCIDNAME looks up a caller name via DNS.
+               </synopsis>
+               <syntax>
+                       <parameter name="number" required="true" />
+                       <parameter name="zone-suffix">
+                               <para>If no <replaceable>zone-suffix</replaceable> is given, the default will be
+                               <literal>e164.arpa</literal></para>
+                       </parameter>
+               </syntax>
+               <description>
+                       <para>This function looks up the given phone number in DNS to retrieve
+                       the caller id name.  The result will either be blank or be the value
+                       found in the TXT record in DNS.</para>
+               </description>
+       </function>
+ ***/
+
+static char *synopsis = "Syntax: ENUMLOOKUP(number[,Method-type[,options[,record#[,zone-suffix]]]])\n";
+
+static int function_enum(struct ast_channel *chan, const char *cmd, char *data,
                         char *buf, size_t len)
 {
        AST_DECLARE_APP_ARGS(args,
@@ -62,154 +165,313 @@ static int function_enum(struct ast_channel *chan, char *cmd, char *data,
                AST_APP_ARG(record);
                AST_APP_ARG(zone);
        );
-       int res = 0;
        char tech[80];
        char dest[256] = "", tmp[2] = "", num[AST_MAX_EXTENSION] = "";
-       struct localuser *u;
        char *s, *p;
+       unsigned int record = 1;
 
        buf[0] = '\0';
 
        if (ast_strlen_zero(data)) {
-               ast_log(LOG_WARNING, synopsis);
+               ast_log(LOG_WARNING, "%s", synopsis);
                return -1;
        }
 
        AST_STANDARD_APP_ARGS(args, data);
 
        if (args.argc < 1) {
-               ast_log(LOG_WARNING, synopsis);
+               ast_log(LOG_WARNING, "%s", synopsis);
                return -1;
        }
 
-       LOCAL_USER_ADD(u);
-
-       ast_copy_string(tech, args.tech ? args.tech : "sip", sizeof(tech));
+       if (args.tech && !ast_strlen_zero(args.tech)) {
+               ast_copy_string(tech,args.tech, sizeof(tech));
+       } else {
+               ast_copy_string(tech,"sip",sizeof(tech));
+       }
 
-       if (!args.zone)
+       if (!args.zone) {
                args.zone = "e164.arpa";
-
-       if (!args.options)
-               args.options = "1";
+       }
+       if (!args.options) {
+               args.options = "";
+       }
+       if (args.record) {
+               record = atoi(args.record) ? atoi(args.record) : record;
+       }
 
        /* strip any '-' signs from number */
        for (s = p = args.number; *s; s++) {
                if (*s != '-') {
                        snprintf(tmp, sizeof(tmp), "%c", *s);
-                       strncat(num, tmp, sizeof(num));
+                       strncat(num, tmp, sizeof(num) - strlen(num) - 1);
                }
 
        }
-
-       res = ast_get_enum(chan, num, dest, sizeof(dest), tech, sizeof(tech), args.zone,
-                          args.options);
+       ast_get_enum(chan, num, dest, sizeof(dest), tech, sizeof(tech), args.zone, args.options, record, NULL);
 
        p = strchr(dest, ':');
-       if (p && strcasecmp(tech, "ALL"))
+       if (p && strcasecmp(tech, "ALL") && !strchr(args.options, 'u')) {
                ast_copy_string(buf, p + 1, len);
-       else
+       } else {
                ast_copy_string(buf, dest, len);
+       }
+       return 0;
+}
 
-       LOCAL_USER_REMOVE(u);
+static unsigned int enum_datastore_id;
 
-       return 0;
+struct enum_result_datastore {
+       struct enum_context *context;
+       unsigned int id;
+};
+
+static void erds_destroy(struct enum_result_datastore *data) 
+{
+       int k;
+
+       for (k = 0; k < data->context->naptr_rrs_count; k++) {
+               ast_free(data->context->naptr_rrs[k].result);
+               ast_free(data->context->naptr_rrs[k].tech);
+       }
+
+       ast_free(data->context->naptr_rrs);
+       ast_free(data->context);
+       ast_free(data);
+}
+
+static void erds_destroy_cb(void *data) 
+{
+       struct enum_result_datastore *erds = data;
+       erds_destroy(erds);
+}
+
+static const struct ast_datastore_info enum_result_datastore_info = {
+       .type = "ENUMQUERY",
+       .destroy = erds_destroy_cb,
+}; 
+
+static int enum_query_read(struct ast_channel *chan, const char *cmd, char *data, char *buf, size_t len)
+{
+       struct enum_result_datastore *erds;
+       struct ast_datastore *datastore;
+       char *parse, tech[128], dest[128];
+       int res = -1;
+
+       AST_DECLARE_APP_ARGS(args,
+               AST_APP_ARG(number);
+               AST_APP_ARG(tech);
+               AST_APP_ARG(zone);
+       );
+
+       if (ast_strlen_zero(data)) {
+               ast_log(LOG_WARNING, "ENUMQUERY requires at least a number as an argument...\n");
+               goto finish;
+       }
+
+       parse = ast_strdupa(data);
+    
+       AST_STANDARD_APP_ARGS(args, parse);
+
+       if (!chan) {
+               ast_log(LOG_ERROR, "ENUMQUERY cannot be used without a channel!\n");
+               goto finish;
+       }
+
+       if (!args.zone)
+               args.zone = "e164.zone";
+
+       ast_copy_string(tech, args.tech ? args.tech : "sip", sizeof(tech));
+
+       if (!(erds = ast_calloc(1, sizeof(*erds))))
+               goto finish;
+
+       if (!(erds->context = ast_calloc(1, sizeof(*erds->context)))) {
+               ast_free(erds);
+               goto finish;
+       }
+
+       erds->id = ast_atomic_fetchadd_int((int *) &enum_datastore_id, 1);
+
+       snprintf(buf, len, "%u", erds->id);
+
+       if (!(datastore = ast_datastore_alloc(&enum_result_datastore_info, buf))) {
+               ast_free(erds->context);
+               ast_free(erds);
+               goto finish;
+       }
+
+       ast_get_enum(chan, args.number, dest, sizeof(dest), tech, sizeof(tech), args.zone, "", 1, &erds->context);
+
+       datastore->data = erds;
+
+       ast_channel_lock(chan);
+       ast_channel_datastore_add(chan, datastore);
+       ast_channel_unlock(chan);
+   
+       res = 0;
+    
+finish:
+
+       return res;
+}
+
+static int enum_result_read(struct ast_channel *chan, const char *cmd, char *data, char *buf, size_t len)
+{
+       struct enum_result_datastore *erds;
+       struct ast_datastore *datastore;
+       char *parse, *p;
+       unsigned int num;
+       int res = -1, k;
+       AST_DECLARE_APP_ARGS(args, 
+               AST_APP_ARG(id);
+               AST_APP_ARG(resultnum);
+       );
+
+       if (ast_strlen_zero(data)) {
+               ast_log(LOG_WARNING, "ENUMRESULT requires two arguments (id and resultnum)\n");
+               goto finish;
+       }
+
+       if (!chan) {
+               ast_log(LOG_ERROR, "ENUMRESULT can not be used without a channel!\n");
+               goto finish;
+       }
+   
+       parse = ast_strdupa(data);
+
+       AST_STANDARD_APP_ARGS(args, parse);
+
+       if (ast_strlen_zero(args.id)) {
+               ast_log(LOG_ERROR, "A result ID must be provided to ENUMRESULT\n");
+               goto finish;
+       }
+
+       if (ast_strlen_zero(args.resultnum)) {
+               ast_log(LOG_ERROR, "A result number must be given to ENUMRESULT!\n");
+               goto finish;
+       }
+
+       ast_channel_lock(chan);
+       datastore = ast_channel_datastore_find(chan, &enum_result_datastore_info, args.id);
+       ast_channel_unlock(chan);
+       if (!datastore) {
+               ast_log(LOG_WARNING, "No ENUM results found for query id!\n");
+               goto finish;
+       }
+
+       erds = datastore->data;
+
+       if (!strcasecmp(args.resultnum, "getnum")) {
+               snprintf(buf, len, "%d", erds->context->naptr_rrs_count);
+               res = 0;
+               goto finish;
+       }
+
+       if (sscanf(args.resultnum, "%30u", &num) != 1) {
+               ast_log(LOG_ERROR, "Invalid value '%s' for resultnum to ENUMRESULT!\n", args.resultnum);
+               goto finish;
+       }
+
+       if (!num || num > erds->context->naptr_rrs_count) {
+               ast_log(LOG_WARNING, "Result number %u is not valid for ENUM query results for ID %s!\n", num, args.id);
+               goto finish;
+       }
+
+       for (k = 0; k < erds->context->naptr_rrs_count; k++) {
+               if (num - 1 != erds->context->naptr_rrs[k].sort_pos)
+                       continue;
+
+               p = strchr(erds->context->naptr_rrs[k].result, ':');
+              
+               if (p && strcasecmp(erds->context->naptr_rrs[k].tech, "ALL"))
+                       ast_copy_string(buf, p + 1, len);
+               else
+                       ast_copy_string(buf, erds->context->naptr_rrs[k].result, len);
+
+               break;
+       }
+
+       res = 0;
+
+finish:
+
+       return res;
 }
 
+static struct ast_custom_function enum_query_function = {
+       .name = "ENUMQUERY",
+       .read = enum_query_read,
+};
+
+static struct ast_custom_function enum_result_function = {
+       .name = "ENUMRESULT",
+       .read = enum_result_read,
+};
+
 static struct ast_custom_function enum_function = {
        .name = "ENUMLOOKUP",
-       .synopsis =
-               "ENUMLOOKUP allows for general or specific querying of NAPTR records"
-               " or counts of NAPTR types for ENUM or ENUM-like DNS pointers",
-       .syntax =
-               "ENUMLOOKUP(number[|Method-type[|options[|record#[|zone-suffix]]]])",
-       .desc =
-               "Option 'c' returns an integer count of the number of NAPTRs of a certain RR type.\n"
-               "Combination of 'c' and Method-type of 'ALL' will return a count of all NAPTRs for the record.\n"
-               "Defaults are: Method-type=sip, no options, record=1, zone-suffix=e164.arpa\n\n"
-               "For more information, see doc/enum.txt",
        .read = function_enum,
 };
 
-static int function_txtcidname(struct ast_channel *chan, char *cmd,
+static int function_txtcidname(struct ast_channel *chan, const char *cmd,
                               char *data, char *buf, size_t len)
 {
-       int res;
-       char tech[80];
-       char txt[256] = "";
-       char dest[80];
-       struct localuser *u;
+       AST_DECLARE_APP_ARGS(args,
+               AST_APP_ARG(number);
+               AST_APP_ARG(zone);
+       );
 
        buf[0] = '\0';
 
-       LOCAL_USER_ADD(u);
-
        if (ast_strlen_zero(data)) {
-               ast_log(LOG_WARNING, "TXTCIDNAME requires an argument (number)\n");
-               LOCAL_USER_REMOVE(u);
+               ast_log(LOG_WARNING, "Syntax: TXTCIDNAME(number[,zone-suffix])\n");
                return -1;
        }
 
-       res = ast_get_txt(chan, data, dest, sizeof(dest), tech, sizeof(tech), txt,
-                         sizeof(txt));
+       AST_STANDARD_APP_ARGS(args, data);
+
+       if (args.argc < 1) {
+               ast_log(LOG_WARNING, "Syntax: TXTCIDNAME(number[,zone-suffix])\n");
+               return -1;
+       }
 
-       if (!ast_strlen_zero(txt))
-               ast_copy_string(buf, txt, len);
+       if (!args.zone) {
+               args.zone = "e164.arpa";
+       }
 
-       LOCAL_USER_REMOVE(u);
+       ast_get_txt(chan, args.number, buf, len, args.zone);
 
        return 0;
 }
 
 static struct ast_custom_function txtcidname_function = {
        .name = "TXTCIDNAME",
-       .synopsis = "TXTCIDNAME looks up a caller name via DNS",
-       .syntax = "TXTCIDNAME(<number>)",
-       .desc =
-               "This function looks up the given phone number in DNS to retrieve\n"
-               "the caller id name.  The result will either be blank or be the value\n"
-               "found in the TXT record in DNS.\n",
        .read = function_txtcidname,
 };
 
-static char *tdesc = "ENUM related dialplan functions";
-
-int unload_module(void)
+static int unload_module(void)
 {
        int res = 0;
 
+       res |= ast_custom_function_unregister(&enum_result_function);
+       res |= ast_custom_function_unregister(&enum_query_function);
        res |= ast_custom_function_unregister(&enum_function);
        res |= ast_custom_function_unregister(&txtcidname_function);
 
-       STANDARD_HANGUP_LOCALUSERS;
-
        return res;
 }
 
-int load_module(void)
+static int load_module(void)
 {
        int res = 0;
 
+       res |= ast_custom_function_register(&enum_result_function);
+       res |= ast_custom_function_register(&enum_query_function);
        res |= ast_custom_function_register(&enum_function);
        res |= ast_custom_function_register(&txtcidname_function);
 
        return res;
 }
 
-char *description(void)
-{
-       return tdesc;
-}
-
-int usecount(void)
-{
-       int res;
-
-       STANDARD_USECOUNT(res);
-
-       return res;
-}
-
-char *key()
-{
-       return ASTERISK_GPL_KEY;
-}
+AST_MODULE_INFO_STANDARD(ASTERISK_GPL_KEY, "ENUM related dialplan functions");