/*
* Copyright (C) 2001-2005 FhG FOKUS
* Copyright (C) 2006-2007 iptelorg GmbH
*
* This file is part of Kamailio, a free SIP server.
*
* Kamailio 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
*
* Kamailio 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*/
/** \ingroup DB_API
* @{
*/
#include "db_cmd.h"
#include "../../core/dprint.h"
#include "../../core/mem/mem.h"
#include "../../core/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 commands are created, this takes splitting
* the command initialization 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;
}
/** @} */