/*
 * CallWeaver -- An open source telephony toolkit.
 *
 * Copyright (C) 2005, Russell Bryant <russelb@clemson.edu> 
 *
 * func_db.c adapted from the old app_db.c, copyright by the following people 
 * Copyright (C) 2005, Mark Spencer <markster@digium.com>
 * Copyright (C) 2003, Jefferson Noxon <jeff@debian.org>
 *
 * See http://www.callweaver.org for more information about
 * the CallWeaver 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 Functions for interaction with the CallWeaver database
 * 
 */
#ifdef HAVE_CONFIG_H
#include "confdefs.h"
#endif

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <regex.h>

#include "callweaver.h"

CALLWEAVER_FILE_VERSION("$HeadURL$", "$Revision$")

#include "callweaver/channel.h"
#include "callweaver/pbx.h"
#include "callweaver/logger.h"
#include "callweaver/options.h"
#include "callweaver/utils.h"
#include "callweaver/app.h"
#include "callweaver/callweaver_db.h"
#include "callweaver/module.h"


static void *db_exists_function;
static const char *db_exists_func_name = "DB_EXISTS";
static const char *db_exists_func_synopsis = "Check to see if a key exists in the CallWeaver database";
static const char *db_exists_func_syntax = "DB_EXISTS(family/key)";
static const char *db_exists_func_desc =
	"This function will check to see if a key exists in the CallWeaver\n"
	"database. If it exists, the function will return \"1\". If not,\n"
	"it will return \"0\".  Checking for existence of a database key will\n"
	"also set the variable DB_RESULT to the key's value if it exists.\n";


static void *db_function;
static const char *db_func_name = "DB";
static const char *db_func_synopsis = "Read or Write from/to the CallWeaver database";
static const char *db_func_syntax = "DB(family/key)";
static const char *db_func_desc =
	"This function will read or write a value from/to the CallWeaver database.\n"
	"DB(...) will read a value from the database, while DB(...)=value\n"
	"will write a value to the database.  On a read, this function\n"
	"returns the value from the database, or NULL if it does not exist.\n"
	"On a write, this function will always return NULL.  Reading a database value\n"
	"will also set the variable DB_RESULT.\n";


static char *function_db_read(struct opbx_channel *chan, int argc, char **argv, char *buf, size_t len)
{
	char *key;

	if (argc != 1 || !argv[0][0] || !(key = strchr(argv[0], '/'))) {
		opbx_log(LOG_ERROR, "Syntax: %s\n", db_func_syntax);
		return NULL;
	}

	*(key++) = '\0';

	if (opbx_db_get(argv[0], key, buf, len-1)) {
		opbx_log(LOG_DEBUG, "DB: %s/%s not found in database.\n", argv[0], key);
	} else
		pbx_builtin_setvar_helper(chan, "DB_RESULT", buf);
	
	return buf;
}

static void function_db_write(struct opbx_channel *chan, int argc, char **argv, const char *value) 
{
	char *key;

	if (argc != 1 || !argv[0][0] || !(key = strchr(argv[0], '/'))) {
		opbx_log(LOG_ERROR, "Syntax: %s\n", db_func_syntax);
		return;
	}

	*(key++) = '\0';

	if (opbx_db_put(argv[0], key, (char *)value)) {
		opbx_log(LOG_WARNING, "DB: Error writing value to database.\n");
	}
}


static char *function_db_exists(struct opbx_channel *chan, int argc, char **argv, char *buf, size_t len)
{
	char *key;

	if (argc != 1 || !argv[0][0] || !(key = strchr(argv[0], '/'))) {
		opbx_log(LOG_ERROR, "Syntax: %s\n", db_exists_func_syntax);
		return NULL;
	}

	if (len < 2) {
		opbx_log(LOG_ERROR, "Out of space in return buffer\n");
		return NULL;
	}

	*(key++) = '\0';

	if (opbx_db_get(argv[0], key, buf, len-1))
		buf[0] = '0';
	else {
		pbx_builtin_setvar_helper(chan, "DB_RESULT", buf);
		buf[0] = '1';
	}
	buf[1] = '\0';
	
	return buf;
}


static char *tdesc = "database functions";

int unload_module(void)
{
        int res = 0;

        res |= opbx_unregister_function(db_exists_function);
        res |= opbx_unregister_function(db_function);

        return res;
}

int load_module(void)
{
        db_exists_function = opbx_register_function(db_exists_func_name, function_db_exists, NULL, db_exists_func_synopsis, db_exists_func_syntax, db_exists_func_desc);
        db_function = opbx_register_function(db_func_name, function_db_read, function_db_write, db_func_synopsis, db_func_syntax, db_func_desc);

        return 0;
}

char *description(void)
{
	return tdesc;
}

int usecount(void)
{
	return 0;
}

/*
Local Variables:
mode: C
c-file-style: "linux"
indent-tabs-mode: nil
End:
*/