Author: jskopis Date: Fri Feb 1 19:16:02 2008 New Revision: 7484 Added: freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/ freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/Makefile freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_curl.2008.vcproj freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_curl.vcproj freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_ldap.c freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_ldap.c.bak freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_ldap.so (contents, props changed) Log: Inital import of mod_xml_ldap Added: freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/Makefile ============================================================================== --- (empty file) +++ freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/Makefile Fri Feb 1 19:16:02 2008 @@ -0,0 +1,10 @@ +WANT_LDAP=yes +LDAP=openldap-2.3.19 +LDAP_DIR=$(switch_srcdir)/libs/$(LDAP) +LDAPLA=$(LDAP_DIR)/libraries/libldap_r/libldap_r.la +LIBLBERLA=$(LDAP_DIR)/libraries/liblber/liblber.la +LOCAL_LIBADD=$(LDAPLA) $(LIBLBERLA) +switch_srcdir=../../../.. + +LOCAL_CFLAGS=-DWITH_OPENLDAP -DLDAP_DEPRECATED -I$(LDAP_DIR)/include +include ../../../../build/modmake.rules Added: freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_curl.2008.vcproj ============================================================================== --- (empty file) +++ freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_curl.2008.vcproj Fri Feb 1 19:16:02 2008 @@ -0,0 +1,156 @@ +<?xml version="1.0" encoding="Windows-1252"?> +<VisualStudioProject + ProjectType="Visual C++" + Version="9.00" + Name="mod_xml_curl" + ProjectGUID="{AB91A099-7690-4ECF-8994-E458F4EA1ED4}" + RootNamespace="mod_xml_curl" + Keyword="Win32Proj" + TargetFrameworkVersion="131072" + > + <Platforms> + <Platform + Name="Win32" + /> + </Platforms> + <ToolFiles> + </ToolFiles> + <Configurations> + <Configuration + Name="Debug|Win32" + ConfigurationType="2" + InheritedPropertySheets="..\..\..\..\w32\module_debug.vsprops;..\..\..\..\w32\curl.vsprops" + CharacterSet="2" + > + <Tool + Name="VCPreBuildEventTool" + /> + <Tool + Name="VCCustomBuildTool" + /> + <Tool + Name="VCXMLDataGeneratorTool" + /> + <Tool + Name="VCWebServiceProxyGeneratorTool" + /> + <Tool + Name="VCMIDLTool" + /> + <Tool + Name="VCCLCompilerTool" + AdditionalIncludeDirectories="" + UsePrecompiledHeader="0" + /> + <Tool + Name="VCManagedResourceCompilerTool" + /> + <Tool + Name="VCResourceCompilerTool" + /> + <Tool + Name="VCPreLinkEventTool" + /> + <Tool + Name="VCLinkerTool" + AdditionalLibraryDirectories="" + RandomizedBaseAddress="1" + DataExecutionPrevention="0" + /> + <Tool + Name="VCALinkTool" + /> + <Tool + Name="VCManifestTool" + /> + <Tool + Name="VCXDCMakeTool" + /> + <Tool + Name="VCBscMakeTool" + /> + <Tool + Name="VCFxCopTool" + /> + <Tool + Name="VCAppVerifierTool" + /> + <Tool + Name="VCPostBuildEventTool" + /> + </Configuration> + <Configuration + Name="Release|Win32" + ConfigurationType="2" + InheritedPropertySheets="..\..\..\..\w32\module_release.vsprops;..\..\..\..\w32\curl.vsprops" + CharacterSet="2" + > + <Tool + Name="VCPreBuildEventTool" + /> + <Tool + Name="VCCustomBuildTool" + /> + <Tool + Name="VCXMLDataGeneratorTool" + /> + <Tool + Name="VCWebServiceProxyGeneratorTool" + /> + <Tool + Name="VCMIDLTool" + /> + <Tool + Name="VCCLCompilerTool" + AdditionalIncludeDirectories="" + UsePrecompiledHeader="0" + /> + <Tool + Name="VCManagedResourceCompilerTool" + /> + <Tool + Name="VCResourceCompilerTool" + /> + <Tool + Name="VCPreLinkEventTool" + /> + <Tool + Name="VCLinkerTool" + AdditionalLibraryDirectories="" + RandomizedBaseAddress="1" + DataExecutionPrevention="0" + /> + <Tool + Name="VCALinkTool" + /> + <Tool + Name="VCManifestTool" + /> + <Tool + Name="VCXDCMakeTool" + /> + <Tool + Name="VCBscMakeTool" + /> + <Tool + Name="VCFxCopTool" + /> + <Tool + Name="VCAppVerifierTool" + /> + <Tool + Name="VCPostBuildEventTool" + /> + </Configuration> + </Configurations> + <References> + </References> + <Files> + <File + RelativePath=".\mod_xml_curl.c" + > + </File> + </Files> + <Globals> + </Globals> +</VisualStudioProject> Added: freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_curl.vcproj ============================================================================== --- (empty file) +++ freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_curl.vcproj Fri Feb 1 19:16:02 2008 @@ -0,0 +1,61 @@ +<?xml version="1.0" encoding="Windows-1252"?> +<VisualStudioProject + ProjectType="Visual C++" + Version="8.00" + Name="mod_xml_curl" + ProjectGUID="{AB91A099-7690-4ECF-8994-E458F4EA1ED4}" + RootNamespace="mod_xml_curl" + Keyword="Win32Proj" + > + <Platforms> + <Platform + Name="Win32" + /> + </Platforms> + <ToolFiles> + </ToolFiles> + <Configurations> + <Configuration + Name="Debug|Win32" + ConfigurationType="2" + InheritedPropertySheets="..\..\..\..\w32\module_debug.vsprops;..\..\..\..\w32\curl.vsprops" + CharacterSet="2" + > + <Tool + Name="VCCLCompilerTool" + AdditionalIncludeDirectories="" + UsePrecompiledHeader="0" + /> + <Tool + Name="VCLinkerTool" + AdditionalLibraryDirectories="" + /> + </Configuration> + <Configuration + Name="Release|Win32" + ConfigurationType="2" + InheritedPropertySheets="..\..\..\..\w32\module_release.vsprops;..\..\..\..\w32\curl.vsprops" + CharacterSet="2" + > + <Tool + Name="VCCLCompilerTool" + AdditionalIncludeDirectories="" + UsePrecompiledHeader="0" + /> + <Tool + Name="VCLinkerTool" + AdditionalLibraryDirectories="" + /> + </Configuration> + </Configurations> + <References> + </References> + <Files> + <File + RelativePath=".\mod_xml_curl.c" + > + </File> + </Files> + <Globals> + </Globals> +</VisualStudioProject> Added: freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_ldap.c ============================================================================== --- (empty file) +++ freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_ldap.c Fri Feb 1 19:16:02 2008 @@ -0,0 +1,411 @@ +/* + * FreeSWITCH Modular Media Switching Software Library / Soft-Switch Application + * Copyright (C) 2005/2006, Anthony Minessale II <anthmct@yahoo.com> + * + * Version: MPL 1.1 + * + * The contents of this file are subject to the Mozilla Public License Version + * 1.1 (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * http://www.mozilla.org/MPL/ + * + * Software distributed under the License is distributed on an "AS IS" basis, + * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License + * for the specific language governing rights and limitations under the + * License. + * + * The Original Code is FreeSWITCH Modular Media Switching Software Library / Soft-Switch Application + * + * The Initial Developer of the Original Code is + * Anthony Minessale II <anthmct@yahoo.com> + * Portions created by the Initial Developer are Copyright (C) + * the Initial Developer. All Rights Reserved. + * + * Contributor(s): + * + * Anthony Minessale II <anthmct@yahoo.com> + * Bret McDanel <trixter AT 0xdecafbad.com> + * Justin Cassidy <xachenant@hotmail.com> + * John Skopis <john+fs@skopis.com> + * + * mod_xml_ldap.c -- LDAP XML Gateway + * + */ +#include <switch.h> +#include <stdlib.h> +#include <string.h> +#ifdef MSLDAP +#include <windows.h> +#include <winldap.h> +#include <winber.h> +#define LDAP_OPT_SUCCESS LDAP_SUCCESS +#else +#include <lber.h> +#include <ldap.h> +#endif + +#define XML_LDAP_CONFIG 0 +#define XML_LDAP_DIRECTORY 1 +#define XML_LDAP_DIALPLAN 2 +#define XML_LDAP_PHRASE 3 + +SWITCH_MODULE_LOAD_FUNCTION(mod_xml_ldap_load); +SWITCH_MODULE_SHUTDOWN_FUNCTION(mod_xml_ldap_shutdown); +SWITCH_MODULE_DEFINITION(mod_xml_ldap, mod_xml_ldap_load, mod_xml_ldap_shutdown, NULL); + + +struct xml_binding { + char *bindings; + char *host; + char *ldap_base; + char *binddn; + char *bindpass; + char *queryfmt; +}; + +typedef struct xml_binding xml_binding_t; + +struct ldap_c { + LDAP *ld; + LDAPMessage *msg; + LDAPMessage *entry; + BerElement *berkey; + BerElement *berval; + char *key; + char *val; + char **keyvals; + char **valvals; + +}; + +static switch_status_t xml_ldap_directory_result( void *ldap_connection, xml_binding_t *binding, switch_xml_t *xml, int *off); +static switch_status_t xml_ldap_dialplan_result( void *ldap_connection, xml_binding_t *binding, switch_xml_t *xml, int *off); + + +#define XML_LDAP_SYNTAX "[debug_on|debug_off]" +SWITCH_STANDARD_API(xml_ldap_function) +{ + if (session) { + return SWITCH_STATUS_FALSE; + } + + if (switch_strlen_zero(cmd)) { + goto usage; + } + + if (!strcasecmp(cmd, "debug_on")) { + } else if (!strcasecmp(cmd, "debug_off")) { + } else { + goto usage; + } + + stream->write_function(stream, "OK\n"); + return SWITCH_STATUS_SUCCESS; + +usage: + stream->write_function(stream, "USAGE: %s\n", XML_LDAP_SYNTAX); + return SWITCH_STATUS_SUCCESS; +} + +static switch_status_t xml_ldap_result( void *ldap_connection, xml_binding_t *binding, switch_xml_t *xml, int *off, int qt) +{ + switch_status_t ret; + if (qt == 1 ) ret = xml_ldap_directory_result(ldap_connection, binding, xml , off); + else if (qt == 2 ) ret = xml_ldap_dialplan_result(ldap_connection, binding, xml , off); + return ret; +} + +static switch_status_t xml_ldap_dialplan_result( void *ldap_connection, xml_binding_t *binding, switch_xml_t *xml, int *off) +{ + return SWITCH_STATUS_FALSE; +} + +static switch_status_t xml_ldap_directory_result( void *ldap_connection, xml_binding_t *binding, switch_xml_t *xml, int *off) +{ + struct ldap_c *ldap = ldap_connection; + switch_xml_t asdf = *xml; + switch_xml_t param, variable, params, variables; + int i =0; + int loff = *off; + + for (ldap->entry = ldap_first_entry(ldap->ld,ldap->msg); ldap->entry != NULL; ldap->entry = ldap_next_entry(ldap->ld,ldap->entry)) { + ldap->key = ldap_first_attribute( ldap->ld, ldap->entry, &ldap->berkey ); + do { + ldap->val = ldap_first_attribute( ldap->ld, ldap->entry, &ldap->berval ); + do { + if(strstr(ldap->val,"value") ) { + if(strstr(ldap->val,ldap->key) && strcmp(ldap->val,ldap->key) ) { + if(!strcmp(ldap->key,"param")) { + params = switch_xml_add_child_d(asdf,"params",loff++); + }else if (!strcmp(ldap->key,"variable")) { + variables = switch_xml_add_child_d(asdf,"variables",loff++); + } + + if( (ldap->keyvals = ldap_get_values( ldap->ld, ldap->entry, ldap->key )) && (ldap->valvals = ldap_get_values( ldap->ld, ldap->entry, ldap->val )) ) { + if ( ldap_count_values(ldap->valvals) == ldap_count_values(ldap->keyvals) ) { + for ( i = 0 ; ldap->keyvals[i] != NULL && ldap->valvals[i] != NULL ; i++ ) { + if(!strcmp(ldap->key,"param")) { + param = switch_xml_add_child_d(params,"param",loff++); + switch_xml_set_attr_d(param,"name",ldap->keyvals[i]); + switch_xml_set_attr_d(param,"value",ldap->valvals[i]); + } + else if (!strcmp(ldap->key,"variable")) { + variable = switch_xml_add_child_d(variables,"variable",loff++); + switch_xml_set_attr_d(variable,"name",ldap->keyvals[i]); + switch_xml_set_attr_d(variable,"value",ldap->valvals[i]); + } + } + if ( ldap->keyvals ) ldap_value_free(ldap->keyvals); + if ( ldap->valvals ) ldap_value_free(ldap->valvals); + } + else { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "seems the values %d and %d are not the same??\n",ldap_count_values ( ldap->valvals ), ldap_count_values ( ldap->keyvals )); + } + } + } + } + if (ldap->val) ldap_memfree(ldap->val); + ldap->val = ldap_next_attribute(ldap->ld, ldap->entry,ldap->berval); + } while (ldap->val != NULL); + if (ldap->key) ldap_memfree(ldap->key); + if (ldap->berval) ber_free(ldap->berval,0); + ldap->key = ldap_next_attribute(ldap->ld, ldap->entry, ldap->berkey ); + } while ( ldap->key != NULL ); + if (ldap->berkey) ber_free(ldap->berkey,0); + } + return SWITCH_STATUS_SUCCESS; +} + + +static switch_xml_t xml_ldap_search(const char *section, const char *tag_name, const char *key_name, const char *key_value, switch_event_t *params, void *user_data) +{ + xml_binding_t *binding = (xml_binding_t *) user_data; + switch_event_header_t *hi; + + switch_xml_t xml, sub; + + struct ldap_c ldap_connection; + struct ldap_c *ldap = &ldap_connection; + + int auth_method = LDAP_AUTH_SIMPLE; + int desired_version = LDAP_VERSION3; + int query_type; // see defines on top XML_LDAP_foo + char *dir_exten, *dir_domain; + char *filter = "(objectClass=*)"; + + char *search_base = NULL; + int off = 0; + + + if (!binding) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "no bindings...sorry bud returning now\n"); + return NULL; + } + + if(!strcmp(section,"configuration")) { + query_type = 0; + } + else if (!strcmp(section,"directory")) { + query_type = 1; + } + else if (!strcmp(section,"dialplan")) { + query_type = 2; + } + else if (!strcmp(section,"phrases")) { + query_type = 3; + } + + + if (params) { + if ((hi = params->headers)) { + for (; hi; hi = hi->next) { + switch(query_type) { + case XML_LDAP_CONFIG: + break; + case XML_LDAP_DIRECTORY: + if (!strcmp(hi->name,"user")) dir_exten = strdup(hi->value); + else if (!strcmp(hi->name,"domain")) dir_domain = strdup(hi->value); + break; + case XML_LDAP_DIALPLAN: + break; + case XML_LDAP_PHRASE: + break; + } + } + switch(query_type) { + case XML_LDAP_CONFIG: + break; + case XML_LDAP_DIRECTORY: + if ( dir_exten && dir_domain ) { + xml = switch_xml_new("directory"); + switch_xml_set_attr_d(xml,"type","freeswitch/xml"); + sub = switch_xml_add_child_d(xml,"section",off++); + switch_xml_set_attr_d(sub,"name","directory"); + sub = switch_xml_add_child_d(sub,"domain",off++); + switch_xml_set_attr_d(sub,"name",dir_domain); + sub = switch_xml_add_child_d(sub,"user",off++); + switch_xml_set_attr_d(sub,"id",dir_exten); + + search_base = switch_mprintf(binding->queryfmt,dir_exten,dir_domain,binding->ldap_base); + + free(dir_exten); + dir_exten = NULL; + free(dir_domain); + dir_domain = NULL; + } else { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "something bad happened during the query construction phase likely exten(%s) or domain(%s) is null\n",dir_exten,dir_domain); + goto cleanup; + } + break; + case XML_LDAP_DIALPLAN: + xml = switch_xml_new("document"); + switch_xml_set_attr_d(xml,"type","freeswitch/xml"); + sub = switch_xml_add_child_d(xml,"section",off++); + switch_xml_set_attr_d(sub,"name","dialplan"); + sub = switch_xml_add_child_d(xml,"context",off++); + search_base = switch_mprintf(binding->queryfmt,dir_exten,dir_domain,binding->ldap_base); + break; + case XML_LDAP_PHRASE: + break; + } + } + else { + goto cleanup; + } + } + + + if ((ldap->ld = ldap_init(binding->host, LDAP_PORT)) == NULL) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Unable to connect to ldap server.%s\n", binding->host); + goto cleanup; + } + + if (ldap_set_option(ldap->ld, LDAP_OPT_PROTOCOL_VERSION, &desired_version) != LDAP_OPT_SUCCESS) { + goto cleanup; + } + + if (ldap_bind_s(ldap->ld, binding->binddn, binding->bindpass, auth_method) != LDAP_SUCCESS) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Unable to bind to ldap server %s as %s\n",binding->host, binding->binddn); + goto cleanup; + } + + if (ldap_search_s(ldap->ld, search_base, LDAP_SCOPE_SUBTREE, filter, NULL, 0, &ldap->msg) != LDAP_SUCCESS) { + goto cleanup; + } + + if (ldap_count_entries(ldap->ld, ldap->msg) <= 0) { + goto cleanup; + } + + if ( xml_ldap_result( &ldap_connection, binding, &sub, &off, query_type) != SWITCH_STATUS_SUCCESS ){ + goto cleanup; + } + + cleanup: + if (ldap->msg) ldap_msgfree(ldap->msg); + if (ldap->ld) ldap_unbind_s(ldap->ld); + + switch_safe_free(search_base); + + return xml; +} + + +static switch_status_t do_config(void) +{ + char *cf = "xml_ldap.conf"; + switch_xml_t cfg, xml, bindings_tag, binding_tag, param; + xml_binding_t *binding = NULL; + int x = 0; + + if (!(xml = switch_xml_open_cfg(cf, &cfg, NULL))) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "open of %s failed\n", cf); + return SWITCH_STATUS_TERM; + } + + if (!(bindings_tag = switch_xml_child(cfg, "bindings"))) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Missing <bindings> tag!\n"); + goto done; + } + + for (binding_tag = switch_xml_child(bindings_tag, "binding"); binding_tag; binding_tag = binding_tag->next) { + char *bname = (char *) switch_xml_attr_soft(binding_tag, "name"); + + if (!(binding = malloc(sizeof(*binding)))) { + goto done; + } + memset(binding, 0, sizeof(*binding)); + + + + + for (param = switch_xml_child(binding_tag, "param"); param; param = param->next) { + + + char *var = (char *) switch_xml_attr_soft(param, "name"); + char *val = (char *) switch_xml_attr_soft(param, "value"); + if (!strcasecmp(var, "queryfmt")) { + binding->bindings = (char *) switch_xml_attr_soft(param, "bindings"); + if(val) binding->queryfmt = strdup(val); + } else if (!strcasecmp(var, "base")) { + binding->ldap_base = strdup(val); + } else if (!strcasecmp(var, "binddn")) { + binding->binddn = strdup(val); + } else if (!strcasecmp(var, "bindpass")) { + binding->bindpass = strdup(val); + } else if (!strcasecmp(var, "host")) { + binding->host = strdup(val); + } + } + + if (!binding->ldap_base || !binding->binddn || !binding->bindpass ) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "You must define base binddn bindpass\n"); + continue; + } + + + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_NOTICE, "Binding [%s] XML Fetch Function [%s] [%s]\n", + switch_strlen_zero(bname) ? "N/A" : bname, binding->ldap_base, binding->bindings ? binding->bindings : "all"); + switch_xml_bind_search_function(xml_ldap_search, switch_xml_parse_section_string(bname), binding); + x++; + binding = NULL; + } + + done: + switch_xml_free(xml); + + return SWITCH_STATUS_SUCCESS; +} + + +SWITCH_MODULE_LOAD_FUNCTION(mod_xml_ldap_load) +{ + switch_api_interface_t *xml_ldap_api_interface; + + /* connect my internal structure to the blank pointer passed to me */ + *module_interface = switch_loadable_module_create_module_interface(pool, modname); + + SWITCH_ADD_API(xml_ldap_api_interface, "xml_ldap", "XML LDAP", xml_ldap_function, XML_LDAP_SYNTAX); + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "XML LDAP module loading...\n"); + + if (! (do_config() == SWITCH_STATUS_SUCCESS) ) return SWITCH_STATUS_FALSE; + + /* indicate that the module should continue to be loaded */ + return SWITCH_STATUS_SUCCESS; +} + +SWITCH_MODULE_SHUTDOWN_FUNCTION(mod_xml_ldap_shutdown) +{ + return SWITCH_STATUS_SUCCESS; +} + +/* For Emacs: + * Local Variables: + * mode:c + * indent-tabs-mode:t + * tab-width:4 + * c-basic-offset:4 + * End: + * For VIM: + * vim:set softtabstop=4 shiftwidth=4 tabstop=4 expandtab: + */ Added: freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_ldap.c.bak ============================================================================== --- (empty file) +++ freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_ldap.c.bak Fri Feb 1 19:16:02 2008 @@ -0,0 +1,386 @@ +/* + * FreeSWITCH Modular Media Switching Software Library / Soft-Switch Application + * Copyright (C) 2005/2006, Anthony Minessale II <anthmct@yahoo.com> + * + * Version: MPL 1.1 + * + * The contents of this file are subject to the Mozilla Public License Version + * 1.1 (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * http://www.mozilla.org/MPL/ + * + * Software distributed under the License is distributed on an "AS IS" basis, + * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License + * for the specific language governing rights and limitations under the + * License. + * + * The Original Code is FreeSWITCH Modular Media Switching Software Library / Soft-Switch Application + * + * The Initial Developer of the Original Code is + * Anthony Minessale II <anthmct@yahoo.com> + * Portions created by the Initial Developer are Copyright (C) + * the Initial Developer. All Rights Reserved. + * + * Contributor(s): + * + * Anthony Minessale II <anthmct@yahoo.com> + * Bret McDanel <trixter AT 0xdecafbad.com> + * Justin Cassidy <xachenant@hotmail.com> + * John Skopis <john+fs@skopis.com> + * + * mod_xml_ldap.c -- LDAP XML Gateway + * + */ +#include <switch.h> +#include <stdlib.h> +#include <string.h> +#ifdef MSLDAP +#include <windows.h> +#include <winldap.h> +#include <winber.h> +#define LDAP_OPT_SUCCESS LDAP_SUCCESS +#else +#include <lber.h> +#include <ldap.h> +#endif + +#define LDAP_CONFIG 0 +#define LDAP_DIRECTORY 1 + +SWITCH_MODULE_LOAD_FUNCTION(mod_xml_ldap_load); +SWITCH_MODULE_SHUTDOWN_FUNCTION(mod_xml_ldap_shutdown); +SWITCH_MODULE_DEFINITION(mod_xml_ldap, mod_xml_ldap_load, mod_xml_ldap_shutdown, NULL); + +struct xml_binding { + char *bindings; + char *ldap_base; + char *binddn; + char *bindpass; +}; + + +typedef struct xml_binding xml_binding_t; + +struct ldap_c { + LDAP *ld; + LDAPMessage *msg; + LDAPMessage *entry; + BerElement *berkey; + BerElement *berval; + char *key; + char *val; + char **keyvals; + char **valvals; + +}; + +#define XML_LDAP_SYNTAX "[debug_on|debug_off]" +SWITCH_STANDARD_API(xml_ldap_function) +{ + if (session) { + return SWITCH_STATUS_FALSE; + } + + if (switch_strlen_zero(cmd)) { + goto usage; + } + + if (!strcasecmp(cmd, "debug_on")) { + } else if (!strcasecmp(cmd, "debug_off")) { + } else { + goto usage; + } + + stream->write_function(stream, "OK\n"); + return SWITCH_STATUS_SUCCESS; + +usage: + stream->write_function(stream, "USAGE: %s\n", XML_LDAP_SYNTAX); + return SWITCH_STATUS_SUCCESS; +} + + +static switch_status_t xml_ldap_result( void *ldap_connection, char *xml, int bind) +{ + struct ldap_c *ldap = ldap_connection; + char *tiny_xml = NULL; + char *bigger_xml = NULL; + char *temp_xml = NULL; + char *super_xml = NULL;; + int i = 0, len = 0; + + xml = NULL; + + + + for (ldap->entry = ldap_first_entry(ldap->ld,ldap->msg); ldap->entry != NULL; ldap->entry = ldap_next_entry(ldap->ld,ldap->entry)) { + ldap->key = ldap_first_attribute( ldap->ld, ldap->entry, &ldap->berkey ); + ldap->val = ldap_first_attribute( ldap->ld, ldap->entry, &ldap->berval ); + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "got key %s val %s\n", ldap->key, ldap->val); + do { + if(!strstr(ldap->val, ldap->key) && strstr(ldap->val,"value") ) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, " val %s doesn't match key %s and have name\n",ldap->val,ldap->key); + do { + ldap->val = ldap_next_attribute(ldap->ld, ldap->entry, ldap->berval ); + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "looping on next attr %s\n",ldap->val); + } while ( ldap->val != NULL && !strstr(ldap->val,ldap->key) && strstr(ldap->val,"value") ); + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "reached the end of the loop proceeding\n"); + //} else { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "we are matched up on %s %s",ldap->key,ldap->val); + // guess we found our matching pair param+paramval variable+variablevalue etc + if ( + ( (ldap->keyvals = ldap_get_values( ldap->ld, ldap->entry, ldap->key )) != NULL ) + && + ( (ldap->valvals = ldap_get_values( ldap->ld, ldap->entry, ldap->val )) != NULL ) ) { + if ( ldap_count_values ( ldap->keyvals ) != ldap_count_values ( ldap->valvals ) ) { + for ( i = 0 ; ldap->keyvals[i] != NULL && ldap->valvals[i] != NULL ; i++ ) { + switch(bind) { + case LDAP_DIRECTORY: + if(!strcmp(ldap->key,"param")) { + //put together the params + if ( bigger_xml == NULL ) bigger_xml = switch_mprintf("<param name=\"%s\" value=\"%s\" />",ldap->keyvals[i],ldap->valvals[i]); + else { + tiny_xml = switch_mprintf("<param name=\"%s\" value=\"%s\" />",ldap->keyvals[i],ldap->valvals[i]); + temp_xml = strdup(bigger_xml); + switch_safe_free(bigger_xml); + len = strlen(temp_xml) + strlen(tiny_xml) + 2; + bigger_xml = malloc(len*sizeof(char)); + bigger_xml = memset(bigger_xml, 0, len*sizeof(char)); + bigger_xml = strncpy(bigger_xml,temp_xml,strlen(bigger_xml) - 1); + bigger_xml = strncat(bigger_xml,tiny_xml,strlen(bigger_xml) - strlen(tiny_xml) - 1 ); + switch_safe_free(temp_xml); + switch_safe_free(tiny_xml); + } + } else if (!strcmp(ldap->key,"variable")) { + //handle variable xml bits + if ( bigger_xml == NULL ) bigger_xml = switch_mprintf("<variable name=\"%s\" value=\"%s\" />",ldap->keyvals[i],ldap->valvals[i]); + else { + tiny_xml = switch_mprintf("<param name=\"%s\" value=\"%s\" />",ldap->keyvals[i],ldap->valvals[i]); + temp_xml = strdup(bigger_xml); + switch_safe_free(bigger_xml); + len = strlen(temp_xml) + strlen(tiny_xml) + 2; + bigger_xml = malloc(len*sizeof(char)); + bigger_xml = memset(bigger_xml, 0, len*sizeof(char)); + bigger_xml = strncpy(bigger_xml,temp_xml,strlen(bigger_xml) - 1); + bigger_xml = strncat(bigger_xml,tiny_xml,strlen(bigger_xml) - strlen(tiny_xml) - 1 ); + switch_safe_free(temp_xml); + switch_safe_free(tiny_xml); + } + } + /* no brace here...why oh why do I indent on case */ + } + } /* end of vals for loop */ + switch(bind){ + case LDAP_DIRECTORY: + if( super_xml == NULL ) { + super_xml = strdup(bigger_xml); + switch_safe_free(bigger_xml); + } else { + temp_xml = strdup(super_xml); + switch_safe_free(super_xml); + len = strlen(temp_xml) + strlen(bigger_xml) + 2; + super_xml = malloc(sizeof(char) * len ); + super_xml = memset(super_xml,0,len*sizeof(char)); + super_xml = strncpy(temp_xml,bigger_xml,len*sizeof(char) - 1); + super_xml = strncat(super_xml,bigger_xml,strlen(super_xml) - strlen(bigger_xml) -1); + switch_safe_free(bigger_xml); + } + break; + } + } else { + //something isn't quite right here there is not a val for each key + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "attrib count doesn't match in %s %s",ldap->key,ldap->val); + } + } else { + //no vals let's move right along + } + } + } + ldap->key = ldap_next_attribute(ldap->ld, ldap->entry, ldap->berkey ); + } while ( ldap->key != NULL && ldap->val != NULL ); + } + if (super_xml) { + xml = super_xml; + return SWITCH_STATUS_SUCCESS; + } + return SWITCH_STATUS_FALSE; +} + + +static switch_xml_t xml_ldap_search(const char *section, const char *tag_name, const char *key_name, const char *key_value, const char *params, + void *user_data) +{ + xml_binding_t *binding = (xml_binding_t *) user_data; + switch_xml_t xml_ret; + struct ldap_c ldap_connection; + struct ldap_c *ldap = &ldap_connection; + //switch_uuid_t uuid; + //char uuid_str[SWITCH_UUID_FORMATTED_LENGTH + 1]; + int auth_method = LDAP_AUTH_SIMPLE; + int desired_version = LDAP_VERSION3; + + char *search_base = NULL; + char *xml_str, *xml; + int xml_str_len; + char hostname[256] = ""; + //const char *config_template = "<configuration name=\"%s\" description=\"%s\"></configuration>"; + const char *directory_template = "<document type=\"freeswitch/xml\"><section name=\"directory\"><domain name=\"%s\">%s</domain></section></document>"; + //const char *dialplan_template = "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?><document type=\"freeswitch/xml\"><section name=\"dialplan\" description=\"RE Dial Plan For FreeSwitch\"><context name=\"%s\"></context></section></document>"; + //const char *notfound = "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?><document type=\"freeswitch/xml\"><section name=\"result\"><result status=\"not found\" /></section></document>"; + + gethostname(hostname, sizeof(hostname)); + + if (!binding) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "no bindings...sorry bud returning now\n"); + return NULL; + } + + search_base = switch_mprintf("id%s=%s,tag=%s,section=%s,fshost=%s,%s",switch_str_nil(key_name),switch_str_nil(key_value),switch_str_nil(tag_name),section,hostname,binding->ldap_base); + + if ((ldap->ld = ldap_init("192.168.0.50", LDAP_PORT)) == NULL) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "returning from query because we couldn't connect\n"); + return NULL; + } + + if (ldap_set_option(ldap->ld, LDAP_OPT_PROTOCOL_VERSION, &desired_version) != LDAP_OPT_SUCCESS) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "can't set ldap protocol options\n"); + return NULL; + } + + if (ldap_bind_s(ldap->ld, binding->binddn, binding->bindpass, auth_method) != LDAP_SUCCESS) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "didn't bind successfully\n"); + return NULL; + } + + if (ldap_search_s(ldap->ld, search_base, LDAP_SCOPE_SUBTREE, "(objectClass=*)", NULL, 0, &ldap->msg) != LDAP_SUCCESS) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "search was not conclusive\n"); + return NULL; + } + + if (ldap_count_entries(ldap->ld, ldap->msg) <= 0) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "search returned...just not any results\n"); + return NULL; + } + + if ( xml_ldap_result( &ldap_connection, xml, 1) != SWITCH_STATUS_SUCCESS ){ + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "well aint that a bitch\n"); + return NULL; + } + + if (!xml) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "I wish I had some XML\n"); + return NULL; + } else { + xml_str = switch_mprintf(directory_template,hostname,xml); + xml_str_len = strlen(xml_str); + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "RETURN: %s\n",xml_str); + xml_ret = switch_xml_parse_str(xml_str,xml_str_len); + } + + switch_safe_free(search_base); + return xml_ret; +} + + +static switch_status_t do_config(void) +{ + char *cf = "xml_ldap.conf"; + switch_xml_t cfg, xml, bindings_tag, binding_tag, param; + xml_binding_t *binding = NULL; + int x = 0; + + if (!(xml = switch_xml_open_cfg(cf, &cfg, NULL))) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "open of %s failed\n", cf); + return SWITCH_STATUS_TERM; + } + + if (!(bindings_tag = switch_xml_child(cfg, "bindings"))) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Missing <bindings> tag!\n"); + goto done; + } + + for (binding_tag = switch_xml_child(bindings_tag, "binding"); binding_tag; binding_tag = binding_tag->next) { + char *bname = (char *) switch_xml_attr_soft(binding_tag, "name"); + char *ldap_base; + char *binddn; + char *bindpass; + char *bind_mask; + + + for (param = switch_xml_child(binding_tag, "param"); param; param = param->next) { + char *var = (char *) switch_xml_attr_soft(param, "name"); + char *val = (char *) switch_xml_attr_soft(param, "value"); + if (!strcasecmp(var, "base")) { + bind_mask = (char *) switch_xml_attr_soft(param, "bindings"); + if(val) ldap_base = val; + } else if (!strcasecmp(var, "binddn")) { + binddn = val; + } else if (!strcasecmp(var, "bindpass")) { + bindpass = val; + } + } + + if (!ldap_base || !binddn || !bindpass ) { + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "You must define base binddn bindpass\n"); + continue; + } + + if (!(binding = malloc(sizeof(*binding)))) { + goto done; + } + memset(binding, 0, sizeof(*binding)); + + if(bind_mask) binding->bindings = strdup(bind_mask); + + + binding->ldap_base = strdup(ldap_base); + binding->binddn = strdup(binddn); + binding->bindpass = strdup(bindpass); + + + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_NOTICE, "Binding [%s] XML Fetch Function [%s] [%s]\n", + switch_strlen_zero(bname) ? "N/A" : bname, binding->ldap_base, binding->bindings ? binding->bindings : "all"); + switch_xml_bind_search_function(xml_ldap_search, switch_xml_parse_section_string(bname), binding); + x++; + binding = NULL; + } + + done: + switch_xml_free(xml); + + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "returned from do_config() with status %d\n", SWITCH_STATUS_SUCCESS); + return SWITCH_STATUS_SUCCESS; +} + + +SWITCH_MODULE_LOAD_FUNCTION(mod_xml_ldap_load) +{ + switch_api_interface_t *xml_ldap_api_interface; + + /* connect my internal structure to the blank pointer passed to me */ + *module_interface = switch_loadable_module_create_module_interface(pool, modname); + + SWITCH_ADD_API(xml_ldap_api_interface, "xml_ldap", "XML LDAP", xml_ldap_function, XML_LDAP_SYNTAX); + switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "XML LDAP module loading...\n"); + + if (! (do_config() == SWITCH_STATUS_SUCCESS) ) return SWITCH_STATUS_FALSE; + + /* indicate that the module should continue to be loaded */ + return SWITCH_STATUS_SUCCESS; +} + +SWITCH_MODULE_SHUTDOWN_FUNCTION(mod_xml_ldap_shutdown) +{ + return SWITCH_STATUS_SUCCESS; +} + +/* For Emacs: + * Local Variables: + * mode:c + * indent-tabs-mode:t + * tab-width:4 + * c-basic-offset:4 + * End: + * For VIM: + * vim:set softtabstop=4 shiftwidth=4 tabstop=4 expandtab: + */ Added: freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_ldap.so ============================================================================== --- (empty file) +++ freeswitch/trunk/src/mod/xml_int/mod_xml_ldap/mod_xml_ldap/mod_xml_ldap.so Fri Feb 1 19:16:02 2008 @@ -0,0 +1,129 @@ +#! /bin/sh + +# mod_xml_ldap.so - temporary wrapper script for .libs/mod_xml_ldap.so +# Generated by ltmain.sh - GNU libtool 1.5.22 (1.1220.2.365 2005/12/18 22:14:06) +# +# The mod_xml_ldap.so program cannot be directly executed until all the libtool +# libraries that it depends on are installed. +# +# This wrapper script should never be moved out of the build directory. +# If it is, it will not operate correctly. + +# Sed substitution that helps us do robust quoting. It backslashifies +# metacharacters that are still active within double-quoted strings. +Xsed='/bin/sed -e 1s/^X//' +sed_quote_subst='s/\([\\`\\"$\\\\]\)/\\\1/g' + +# Be Bourne compatible (taken from Autoconf:_AS_BOURNE_COMPATIBLE). +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then + emulate sh + NULLCMD=: + # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in *posix*) set -o posix;; esac +fi + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +relink_command="(cd /usr/local/src/freeswitch/src/mod/xml_int/mod_xml_ldap; { test -z \"\${LIBRARY_PATH+set}\" || unset LIBRARY_PATH || { LIBRARY_PATH=; export LIBRARY_PATH; }; }; { test -z \"\${COMPILER_PATH+set}\" || unset COMPILER_PATH || { COMPILER_PATH=; export COMPILER_PATH; }; }; { test -z \"\${GCC_EXEC_PREFIX+set}\" || unset GCC_EXEC_PREFIX || { GCC_EXEC_PREFIX=; export GCC_EXEC_PREFIX; }; }; { test -z \"\${LD_RUN_PATH+set}\" || unset LD_RUN_PATH || { LD_RUN_PATH=; export LD_RUN_PATH; }; }; { test -z \"\${LD_LIBRARY_PATH+set}\" || unset LD_LIBRARY_PATH || { LD_LIBRARY_PATH=; export LD_LIBRARY_PATH; }; }; PATH=\"/usr/kerberos/sbin:/usr/kerberos/bin:/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin:/root/bin\"; export PATH; gcc -DWITH_OPENLDAP -DLDAP_DEPRECATED -I/usr/local/src/freeswitch/libs/openldap-2.3.19/include -I/usr/local/src/freeswitch/src/include -I/usr/local/src/freeswitch/libs/libteletone/src -fPIC -Werror -g -ggdb -ggdb -O0 -fforce-addr -pipe -Wall -std=c99 -pedantic -D_GNU_SOURCE -o \$progdir/\$file -shared -Wl,-x mod_xml_ldap.o -o \$progdir/\$file -lm -L/usr/local/lib /usr/local/src/freeswitch/.libs/libfreeswitch.so /usr/local/src/freeswitch/libs/apr/.libs/libapr-1.a -luuid -lrt -ldl -lcrypt -lpthread -L/usr/local/src/freeswitch/libs/srtp -lncurses /usr/local/src/freeswitch/libs/openldap-2.3.19/libraries/libldap_r/.libs/libldap_r.a -lresolv -lsasl2 -lssl -lcrypto /usr/local/src/freeswitch/libs/openldap-2.3.19/libraries/liblber/.libs/liblber.a -Wl,--rpath -Wl,/usr/local/src/freeswitch/.libs -Wl,--rpath -Wl,/usr/local/freeswitch/lib ) " + +# This environment variable determines our operation mode. +if test "$libtool_install_magic" = "%%%MAGIC variable%%%"; then + # install mode needs the following variable: + notinst_deplibs=' /usr/local/src/freeswitch/libfreeswitch.la' +else + # When we are sourced in execute mode, $file and $echo are already set. + if test "$libtool_execute_magic" != "%%%MAGIC variable%%%"; then + echo="echo" + file="$0" + # Make sure echo works. + if test "X$1" = X--no-reexec; then + # Discard the --no-reexec flag, and continue. + shift + elif test "X`($echo '\t') 2>/dev/null`" = 'X\t'; then + # Yippee, $echo works! + : + else + # Restart under the correct shell, and then maybe $echo will work. + exec /bin/sh "$0" --no-reexec ${1+"$@"} + fi + fi + + # Find the directory that this script lives in. + thisdir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'` + test "x$thisdir" = "x$file" && thisdir=. + + # Follow symbolic links until we get to the real thisdir. + file=`ls -ld "$file" | /bin/sed -n 's/.*-> //p'` + while test -n "$file"; do + destdir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'` + + # If there was a directory component, then change thisdir. + if test "x$destdir" != "x$file"; then + case "$destdir" in + [\\/]* | [A-Za-z]:[\\/]*) thisdir="$destdir" ;; + *) thisdir="$thisdir/$destdir" ;; + esac + fi + + file=`$echo "X$file" | $Xsed -e 's%^.*/%%'` + file=`ls -ld "$thisdir/$file" | /bin/sed -n 's/.*-> //p'` + done + + # Try to get the absolute directory name. + absdir=`cd "$thisdir" && pwd` + test -n "$absdir" && thisdir="$absdir" + + program=lt-'mod_xml_ldap.so' + progdir="$thisdir/.libs" + + if test ! -f "$progdir/$program" || \ + { file=`ls -1dt "$progdir/$program" "$progdir/../$program" 2>/dev/null | /bin/sed 1q`; \ + test "X$file" != "X$progdir/$program"; }; then + + file="$$-$program" + + if test ! -d "$progdir"; then + mkdir "$progdir" + else + rm -f "$progdir/$file" + fi + + # relink executable if necessary + if test -n "$relink_command"; then + if relink_command_output=`eval $relink_command 2>&1`; then : + else + echo "$relink_command_output" >&2 + rm -f "$progdir/$file" + exit 1 + fi + fi + + mv -f "$progdir/$file" "$progdir/$program" 2>/dev/null || + { rm -f "$progdir/$program"; + mv -f "$progdir/$file" "$progdir/$program"; } + rm -f "$progdir/$file" + fi + + if test -f "$progdir/$program"; then + if test "$libtool_execute_magic" != "%%%MAGIC variable%%%"; then + # Run the actual program with our arguments. + + exec "$progdir/$program" ${1+"$@"} + + $echo "$0: cannot exec $program $*" + exit 1 + fi + else + # The program doesn't exist. + $echo "$0: error: \`$progdir/$program' does not exist" 1>&2 + $echo "This script is just a wrapper for $program." 1>&2 + echo "See the libtool documentation for more information." 1>&2 + exit 1 + fi +fi