/*
 * Asterisk -- An open source telephony toolkit.
 *
 * Copyright (C) 2005, Digium, Inc.
 * Copyright (C) 2005, Claude Patry
 *
 * 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 Generate Random Number
 * 
 * \author Claude Patry <cpatry@gmail.com>
 * \author Tilghman Lesher ( http://asterisk.drunkcoder.com/ )
 */

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

#include "asterisk.h"

/* ASTERISK_FILE_VERSION(__FILE__, "$Revision: 7682 $") */

#include "asterisk/channel.h"
#include "asterisk/pbx.h"
#include "asterisk/logger.h"
#include "asterisk/utils.h"
#include "asterisk/app.h"
#ifndef BUILTIN_FUNC
#include "asterisk/module.h"
#endif


STANDARD_LOCAL_USER;

LOCAL_USER_DECL;


static char *acf_rand_exec(struct ast_channel *chan, char *cmd, char *data, char *buffer, size_t buflen)
{
	struct localuser *u;
	char *min=NULL,*max=NULL;
	char *args=NULL;
	int min_int=0, response_int=0;
	int max_int=RAND_MAX;

	LOCAL_USER_ACF_ADD(u);

	if (!(args = ast_strdupa(data))) {
		ast_log(LOG_WARNING, "Memory Error!\n");
		return NULL;
	}

	min = strsep(&args, "|");
	if (!args) {
		char tmp[16];
		snprintf(tmp, sizeof(tmp), "%d", RAND_MAX);
		max = (char *)tmp;
	} else 
		max = args;
	
	if (ast_strlen_zero(min))
		min="0";
	
	if (sscanf(min, "%d", &min_int) == 1) {
		if (sscanf(max, "%d", &max_int) == 1) {
			if ( max_int < min_int ) {
				int tmp = max_int;
				ast_log(LOG_DEBUG, "max<min\n");
				max_int = min_int;
				min_int = tmp;
			}
			response_int=  min_int + (random() % (max_int - min_int + 1));
			ast_log(LOG_DEBUG, "%d was the lucky number in range [%d,%d]\n",response_int,min_int,max_int);
		} else {
			 ast_log(LOG_WARNING, "your maximum(%s) must be an int\n",args);
		}
	} else {
		ast_log(LOG_WARNING, "your minimum(%s) must be an int\n",min);
	}
	snprintf(buffer, buflen, "%d", response_int);

	LOCAL_USER_REMOVE(u);
	return buffer;
}

#ifndef BUILTIN_FUNC
static
#endif
struct ast_custom_function acf_rand = {
	.name = "RAND",
	.synopsis = "Choose a random number in a range",
	.syntax = "RAND([min][,max])",
	.desc =
"Choose a random number between bornes.\n"
"If no min is provided, 0 will be used\n"
"If no max is provided, RAND_MAX will be used (2147483647 on many systems)\n"
"Examples: exten => 73,1,Set(junky=${RAND(1,8)}); \n"
" Will pickup a random number in [1,8], bornes are include.",
	.read = acf_rand_exec,
};


#ifndef BUILTIN_FUNC

static char *tdesc = "Choose a random number";

int unload_module(void)
{
	ast_custom_function_unregister(&acf_rand);

	STANDARD_HANGUP_LOCALUSERS;

	return 0;
}

int load_module(void)
{
	int res;

	res = ast_custom_function_register(&acf_rand);
	return res;
}

char *description(void)
{
       return tdesc;
}

int usecount(void)
{
	int res;

	STANDARD_USECOUNT(res);

	return res;
}

char *key()
{
       return ASTERISK_GPL_KEY;
}

#endif