3 files changed, 104 insertions, 0 deletions
diff --git a/funcs/func_module.c b/funcs/func_module.c
new file mode 100644
index 000000000..09d27a0d6
--- /dev/null
+++ b/funcs/func_module.c
@@ -0,0 +1,77 @@
+/*
+ * Asterisk -- An open source telephony toolkit.
+ *
+ * Copyright (C) 1999 - 2006, Digium, Inc.
+ *
+ * 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 Simple module check function
+ * \author Olle E. Johansson, Edvina.net
+ */
+#include "asterisk.h"
+
+ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+
+#include "asterisk/module.h"
+#include "asterisk/channel.h"
+#include "asterisk/pbx.h"
+#include "asterisk/logger.h"
+#include "asterisk/utils.h"
+#include "asterisk/app.h"
+#include "asterisk/module.h"
+
+static int ifmodule_read(struct ast_channel *chan, char *cmd, char *data,
+		    char *buf, size_t len)
+{
+	char *ret = "0";
+
+	*buf = '\0';
+
+	if (data)
+		if (ast_module_check(data))
+			ret = "1";
+
+	ast_copy_string(buf, ret, len);
+
+	return 0;
+}
+
+static struct ast_custom_function ifmodule_function = {
+	.name = "IFMODULE",
+	.synopsis = "Checks if an Asterisk module is loaded in memory",
+	.syntax = "IFMODULE(<modulename.so>)",
+	.read = ifmodule_read,
+	.desc = "Checks if a module is loaded. Use the full module name\n"
+		"as shown by the list in \"show modules\". \n"
+		"Returns \"1\" if module exists in memory, otherwise \"0\".\n",
+};
+
+
+static int unload_module(void)
+{
+	return ast_custom_function_unregister(&ifmodule_function);
+}
+
+static int load_module(void)
+{
+	return ast_custom_function_register(&ifmodule_function);
+}
+
+AST_MODULE_INFO_STANDARD(ASTERISK_GPL_KEY, "Checks if Asterisk module is loaded in memory");
diff --git a/include/asterisk/module.h b/include/asterisk/module.h
index 1d00f4504..9d51488d1 100644
--- a/include/asterisk/module.h
+++ b/include/asterisk/module.h
@@ -113,6 +113,13 @@ void ast_update_use_count(void);
 int ast_update_module_list(int (*modentry)(const char *module, const char *description, int usecnt, const char *like),
 			   const char *like);
 
+/*!
+ * \brief Check if module with the name given is loaded
+ * \param name Module name, like "chan_sip.so"
+ * \return 0 if false, 1 if true 
+ */
+int ast_module_check(char *name);
+
 /*! 
  * \brief Add a procedure to be run when modules have been updated.
  * \param updater The function to run when modules have been updated.
diff --git a/main/loader.c b/main/loader.c
index 192cbd894..c0636142a 100644
--- a/main/loader.c
+++ b/main/loader.c
@@ -871,6 +871,26 @@ int ast_update_module_list(int (*modentry)(const char *module, const char *descr
 	return total_mod_loaded;
 }
 
+int ast_module_check(char *name)
+{
+	struct ast_module *cur;
+	int unlock = -1;
+	int res = 0;
+
+	if (ast_strlen_zero(name))
+		return 0;       /* FALSE */
+
+	if (ast_mutex_trylock(&module_list.lock))
+		unlock = 0;
+	AST_LIST_TRAVERSE(&module_list, cur, entry)
+	if (!res && !strcasecmp(name, cur->resource))
+		res = 1;
+	if (unlock)
+		AST_LIST_UNLOCK(&module_list);
+	return res;
+}
+
+
 int ast_loader_register(int (*v)(void))
 {
 	struct loadupdate *tmp;