/*
 * Devstate application
 * 
 * Since we like the snom leds so much, a little app to
 * light the lights on the snom on demand ....
 *
 * Copyright (C) 2005, Druid Software
 *
 * This program is free software, distributed under the terms of
 * the GNU General Public License
 */

#ifdef HAVE_CONFIG_H
#include "confdefs.h"
#endif

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <stdio.h>

#include "callweaver/lock.h"
#include "callweaver/file.h"
#include "callweaver/logger.h"
#include "callweaver/channel.h"
#include "callweaver/pbx.h"
#include "callweaver/module.h"
#include "callweaver/callweaver_db.h"
#include "callweaver/utils.h"
#include "callweaver/cli.h"
#include "callweaver/manager.h"
#include "callweaver/devicestate.h"


static char type[] = "DS";
static char tdesc[] = "Application for sending device state messages";

static void *devstate_app;
static const char *devstate_name = "DevState";
static const char *devstate_synopsis = "Generate a device state change event given the input parameters";
static const char *devstate_syntax = "DevState(device, state)";
static const char *devstate_descrip = "Generate a device state change event given the input parameters. Returns 0. State values match the callweaver device states. They are 0 = unknown, 1 = not inuse, 2 = inuse, 3 = busy, 4 = invalid, 5 = unavailable, 6 = ringing\n";

static char devstate_cli_usage[] = 
"Usage: DevState device state\n" 
"       Generate a device state change event given the input parameters.\n Mainly used for lighting the LEDs on the snoms.\n";

static int devstate_cli(int fd, int argc, char *argv[]);
static struct cw_cli_entry  cli_dev_state =
        { { "devstate", NULL }, devstate_cli, "Set the device state on one of the \"pseudo devices\".", devstate_cli_usage };

STANDARD_LOCAL_USER;

LOCAL_USER_DECL;


static int devstate_cli(int fd, int argc, char *argv[])
{
    if ((argc != 3) && (argc != 4) && (argc != 5))
        return RESULT_SHOWUSAGE;

    if (cw_db_put("DEVSTATES", argv[1], argv[2]))
    {
        cw_log(LOG_DEBUG, "cw_db_put failed\n");
    }
	cw_device_state_changed("DS/%s", argv[1]);
    
    return RESULT_SUCCESS;
}

static int devstate_exec(struct cw_channel *chan, int argc, char **argv)
{
    struct localuser *u;

    if (argc != 2) {
        cw_log(LOG_ERROR, "Syntax: %s\n", devstate_syntax);
        return -1;
    }

    LOCAL_USER_ADD(u);
    
    if (cw_db_put("DEVSTATES", argv[0], argv[1])) {
        cw_log(LOG_DEBUG, "cw_db_put failed\n");
    }

    cw_device_state_changed("DS/%s", argv[0]);

    LOCAL_USER_REMOVE(u);
    return 0;
}


static int ds_devicestate(void *data)
{
    char *dest = data;
    char stateStr[16];
    if (cw_db_get("DEVSTATES", dest, stateStr, sizeof(stateStr)))
    {
        cw_log(LOG_DEBUG, "ds_devicestate couldnt get state in cwdb\n");
        return 0;
    }
    else
    {
        cw_log(LOG_DEBUG, "ds_devicestate dev=%s returning state %d\n",
               dest, atoi(stateStr));
        return (atoi(stateStr));
    }
}

static struct cw_channel_tech devstate_tech = {
	.type = type,
	.description = tdesc,
	.capabilities = ((CW_FORMAT_MAX_AUDIO << 1) - 1),
	.devicestate = ds_devicestate,
	.requester = NULL,
	.send_digit = NULL,
	.send_text = NULL,
	.call = NULL,
	.hangup = NULL,
	.answer = NULL,
	.read = NULL,
	.write = NULL,
	.bridge = NULL,
	.exception = NULL,
	.indicate = NULL,
	.fixup = NULL,
	.setoption = NULL,
};

static char mandescr_devstate[] = 
"Description: Put a value into cwdb\n"
"Variables: \n"
"	Family: ...\n"
"	Key: ...\n"
"	Value: ...\n";

static int action_devstate(struct mansession *s, struct message *m)
{
        char *devstate = astman_get_header(m, "Devstate");
        char *value = astman_get_header(m, "Value");
	char *id = astman_get_header(m,"ActionID");

	if (!strlen(devstate)) {
		astman_send_error(s, m, "No Devstate specified");
		return 0;
	}
	if (!strlen(value)) {
		astman_send_error(s, m, "No Value specified");
		return 0;
	}

        if (!cw_db_put("DEVSTATES", devstate, value)) {
	    cw_device_state_changed("DS/%s", devstate);
	    cw_cli(s->fd, "Response: Success\r\n");
	} else {
	    cw_log(LOG_DEBUG, "cw_db_put failed\n");
	    cw_cli(s->fd, "Response: Failed\r\n");
	}
	if (id && !cw_strlen_zero(id))
		cw_cli(s->fd, "ActionID: %s\r\n",id);
	cw_cli(s->fd, "\r\n");
	return 0;
}

int load_module(void)
{
    if (cw_channel_register(&devstate_tech)) {
        cw_log(LOG_DEBUG, "Unable to register channel class %s\n", type);
        return -1;
    }
    cw_cli_register(&cli_dev_state);  
    cw_manager_register2( "Devstate", EVENT_FLAG_CALL, action_devstate, "Change a device state", mandescr_devstate );
    devstate_app = cw_register_application(devstate_name, devstate_exec, devstate_synopsis, devstate_syntax, devstate_descrip);
    return 0;
}

int unload_module(void)
{
    int res = 0;
    STANDARD_HANGUP_LOCALUSERS;
    cw_manager_unregister( "Devstate");
    cw_cli_unregister(&cli_dev_state);
    res |= cw_unregister_application(devstate_app);
    cw_channel_unregister(&devstate_tech);    
    return res;
}

char *description(void)
{
    return tdesc;
}

int usecount(void)
{
    int res;
    STANDARD_USECOUNT(res);
    return res;
}