/* 
 * $Id$ 
 *
 * Copyright (C) 2001-2005 FhG FOKUS
 * Copyright (C) 2006-2007 iptelorg GmbH
 *
 * This file is part of ser, a free SIP server.
 *
 * ser is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version
 *
 * For a license to use the ser software under conditions
 * other than those described here, or to purchase support for this
 * software, please contact iptel.org by e-mail at the following addresses:
 *    info@iptel.org
 *
 * ser is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License 
 * along with this program; if not, write to the Free Software 
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

/** \ingroup DB_API 
 * @{ 
 */

#include "db_cmd.h"

#include "../dprint.h"
#include "../mem/mem.h"
#include "../ut.h"

#include <string.h>
#include <stdarg.h>


db_cmd_t* db_cmd(enum db_cmd_type type, db_ctx_t* ctx, char* table, 
				 db_fld_t* result, db_fld_t* match, db_fld_t* values)
{
	char* fname;
	db_cmd_t* newp;
	db_con_t* con;
	int i, r, j;
	db_drv_func_t func;

	newp = (db_cmd_t*)pkg_malloc(sizeof(db_cmd_t));
	if (newp == NULL) goto err;
	memset(newp, '\0', sizeof(db_cmd_t));
	if (db_gen_init(&newp->gen) < 0) goto err;
	newp->ctx = ctx;

	newp->table.len = strlen(table);
	newp->table.s = (char*)pkg_malloc(newp->table.len + 1);	
	if (newp->table.s == NULL) goto err;
	memcpy(newp->table.s, table, newp->table.len + 1);

	newp->type = type;

	/** FIXME: it is not clear now that this is necessary
	 *         when we have match and value separate arrays */
	if (result) {
		newp->result = db_fld_copy(result);
		if (newp->result == NULL) goto err;
	}

	if (match) {
		newp->match = db_fld_copy(match);
		if (newp->match == NULL) goto err;
	}

	if (values) {
		newp->vals = db_fld_copy(values);
		if (newp->vals == NULL) goto err;
	}

	/* FIXME: This should be redesigned so that we do not need to connect
	 * connections in context before comands are created, this takes splitting
	 * the command initializatio sequence in two steps, one would be creating
	 * all the data structures and the second would be checking corresponding
	 * fields and tables on the server.
	 */
	if (ctx->con_n == 0) {
		ERR("No connections found in context %.*s\n", STR_FMT(&ctx->id));
		goto err;
	}

	for(i = 0; i < ctx->con_n; i++) {
		con = ctx->con[i];

		r = db_drv_func(&func, &con->uri->scheme, "db_fld");
		if (r < 0) goto err;
		if (r > 0) func = NULL;
		db_payload_idx = i;

		if (!DB_FLD_EMPTY(newp->result)) {
			for(j = 0; !DB_FLD_LAST(newp->result[j]); j++) {
				if (func && func(newp->result + j, table) < 0) goto err;
			}
			newp->result_count = j;
		}

		if (!DB_FLD_EMPTY(newp->match)) {
			for(j = 0; !DB_FLD_LAST(newp->match[j]); j++) {
				if (func && func(newp->match + j, table) < 0) goto err;
			}
			newp->match_count = j;
		}

		if (!DB_FLD_EMPTY(newp->vals)) {
			for(j = 0; !DB_FLD_LAST(newp->vals[j]); j++) {
				if (func && func(newp->vals + j, table) < 0) goto err;
			}
			newp->vals_count = j;
		}

		r = db_drv_call(&con->uri->scheme, "db_cmd", newp, i);
		if (r < 0) {
			ERR("db_drv_call(\"db_cmd\") failed\n");
			goto err;
		}
		if (r > 0) {
			ERR("DB driver %.*s does not implement mandatory db_cmd function\n",
				con->uri->scheme.len, ZSW(con->uri->scheme.s));
			goto err;
		}
		if (newp->exec[i] == NULL) {
			/* db_cmd in the db driver did not provide any runtime function, so try to lookup the
			 * default one through the module API
			 */
			switch(type) {
			case DB_PUT: fname = "db_put"; break;
			case DB_DEL: fname = "db_del"; break;
			case DB_GET: fname = "db_get"; break;
			case DB_UPD: fname = "db_upd"; break;
			case DB_SQL: fname = "db_sql"; break;
			default: ERR("db_cmd: Unsupported command type\n"); goto err;
			}

			r = db_drv_func((void*)&(newp->exec[i]), &con->uri->scheme, fname);
			if (r < 0) goto err;
			if (r > 0) {
				ERR("DB driver %.*s does not provide runtime execution function %s\n",
					con->uri->scheme.len, ZSW(con->uri->scheme.s), fname);
				goto err;
			}
		}

		if (type == DB_GET || type == DB_SQL) {
			r = db_drv_func((void*)(&newp->first[i]), &con->uri->scheme, "db_first");
			if (r < 0) goto err;
			if (r > 0) {
				ERR("DB driver %.*s does not implement mandatory db_first function\n",
					con->uri->scheme.len, ZSW(con->uri->scheme.s));
				goto err;
			}
			
			r = db_drv_func((void*)(&newp->next[i]), &con->uri->scheme, "db_next");
			if (r < 0) goto err;
			if (r > 0) {
				ERR("DB driver %.*s does not implement mandatory db_next function\n",
					con->uri->scheme.len, ZSW(con->uri->scheme.s));
				goto err;
			}
		}
	}
    return newp;

 err:
    ERR("db_cmd: Cannot create db_cmd structure\n");
    if (newp) {
		db_gen_free(&newp->gen);
		if (newp->result)  db_fld_free(newp->result);
		if (newp->match)   db_fld_free(newp->match);
		if (newp->vals)    db_fld_free(newp->vals);
		if (newp->table.s) pkg_free(newp->table.s);
		pkg_free(newp);
	}
	return NULL;
}


void db_cmd_free(db_cmd_t* cmd)
{
    if (cmd == NULL) return;
	db_gen_free(&cmd->gen);

	if (cmd->result) db_fld_free(cmd->result);
	if (cmd->match)  db_fld_free(cmd->match);
	if (cmd->vals)   db_fld_free(cmd->vals);
    if (cmd->table.s) pkg_free(cmd->table.s);
    pkg_free(cmd);
}


int db_exec(db_res_t** res, db_cmd_t* cmd)
{
	db_res_t* r = NULL;
	int ret;
	
	if (res) {
		r = db_res(cmd);
		if (r == NULL) return -1;
	}

	/* FIXME */
	db_payload_idx = 0;
	ret = cmd->exec[0](r, cmd);
	if (ret < 0) {
		if (r) db_res_free(r);
		return ret;
	}

	if (res) *res = r;
	return ret;
}


int db_getopt(db_cmd_t* cmd, char* optname, ...)
{
	int i, r;
	db_drv_func_t func;
	db_con_t* con;
	va_list ap;
	
	for(i = 0; i < cmd->ctx->con_n; i++) {
		con = cmd->ctx->con[i];
		
		r = db_drv_func(&func, &con->uri->scheme, "db_getopt");
		if (r < 0) return -1;
		if (r > 0) func = NULL;
		db_payload_idx = i;
		
		va_start(ap, optname);
		if (func && func(cmd, optname, ap) < 0) {
			va_end(ap);
			return -1;
		}
		va_end(ap);
	}
	
	return 0;
}


int db_setopt(db_cmd_t* cmd, char* optname, ...)
{
       int i, r;
       db_drv_func_t func;
       db_con_t* con;
       va_list ap;

       for(i = 0; i < cmd->ctx->con_n; i++) {
               con = cmd->ctx->con[i];

               r = db_drv_func(&func, &con->uri->scheme, "db_setopt");
               if (r < 0) return -1;
               if (r > 0) func = NULL;
               db_payload_idx = i;

               va_start(ap, optname);
               if (func && func(cmd, optname, ap) < 0) {
                       va_end(ap);
                       return -1;
               }
               va_end(ap);
       }

       return 0;
}


/** @} */