static WSPMachine *machine_create(void) {
WSPMachine *p;
p = gw_malloc(sizeof(WSPMachine));
debug("wap.wsp", 0, "WSP: Created WSPMachine %p", (void *) p);
#define INTEGER(name) p->name = 0;
#define OCTSTR(name) p->name = NULL;
#define HTTPHEADERS(name) p->name = NULL;
#define ADDRTUPLE(name) p->name = NULL;
#define MACHINESLIST(name) p->name = gwlist_create();
#define CAPABILITIES(name) p->name = NULL;
#define COOKIES(name) p->name = gwlist_create();
#define REFERER(name) p->name = NULL;
#define MACHINE(fields) fields
#include "wsp_server_session_machine.def"
p->state = NULL_SESSION;
/* set capabilities to default values (defined in 1.1) */
p->client_SDU_size = 1400;
p->MOR_push = 1;
/* Insert new machine at the _front_, because 1) it's more likely
* to get events than old machines are, so this speeds up the linear
* search, and 2) we want the newest machine to get any method
* invokes that come through before the Connect is established. */
gwlist_insert(session_machines, 0, p);
return p;
}
/* Replace part i in list of body parts. Old one will be deleted */
void mime_entity_replace_part(MIMEEntity *e, int i, MIMEEntity *newpart)
{
MIMEEntity *m;
gw_assert(e != NULL);
gw_assert(i >= 0);
gw_assert(i < gwlist_len(e->multiparts));
m = gwlist_get(e->multiparts, i);
gwlist_delete(e->multiparts, i, 1);
gwlist_insert(e->multiparts, i, mime_entity_duplicate(newpart));
if (m == e->start) e->start = NULL;
mime_entity_destroy(m);
}
int parse_limit(ParseContext *context, long length)
{
long *elem;
gw_assert(context != NULL);
if (context->pos + length > context->limit) {
context->error = 1;
return -1;
}
if (context->limit_stack == NULL)
context->limit_stack = gwlist_create();
elem = gw_malloc(sizeof(*elem));
*elem = context->limit;
gwlist_insert(context->limit_stack, 0, elem);
context->limit = context->pos + length;
return 0;
}
static int oracle_select(void *theconn, const Octstr *sql, List *binds, List **res)
{
List *row;
OCIStmt *stmt;
OCIParam *dparam;
sword status;
ub4 columns;
ub4 i;
struct data_s {
text *data;
ub2 size;
sb2 ind;
ub2 type;
};
struct data_s *data;
struct ora_conn *conn = (struct ora_conn*) theconn;
int binds_len = (binds ? gwlist_len(binds) : 0);
*res = NULL;
/* allocate statement handle */
status = OCIHandleAlloc(conn->envp, (dvoid**)&stmt, OCI_HTYPE_STMT, 0,0);
if (OCI_SUCCESS != status) {
oracle_checkerr(conn->errhp, status);
return -1;
}
/* prepare statement */
status = OCIStmtPrepare(stmt, conn->errhp, (unsigned char*)octstr_get_cstr(sql),
octstr_len(sql), OCI_NTV_SYNTAX, OCI_DEFAULT);
if (OCI_SUCCESS != status) {
oracle_checkerr(conn->errhp, status);
OCIHandleFree(stmt, OCI_HTYPE_STMT);
return -1;
}
/* bind variables */
for (i = 0; i < binds_len; i++) {
OCIBind *bndhp = NULL;
Octstr *bind = gwlist_get(binds, i);
status = OCIBindByPos(stmt, &bndhp,
conn->errhp, (i+1), (dvoid *) octstr_get_cstr(bind),
(sword) octstr_len(bind)+1, SQLT_STR, (dvoid *) 0, (ub2 *)0,
(ub2 *)0, (ub4)0, (ub4 *)0, OCI_DEFAULT);
if (OCI_SUCCESS != status) {
oracle_checkerr(conn->errhp, status);
OCIHandleFree(stmt, OCI_HTYPE_STMT);
return -1;
}
}
/* execute our statement */
status = OCIStmtExecute(conn->svchp, stmt, conn->errhp, 0, 0, NULL, NULL,
OCI_DEFAULT);
if (OCI_SUCCESS != status && OCI_NO_DATA != status) {
oracle_checkerr(conn->errhp, status);
OCIHandleFree(stmt, OCI_HTYPE_STMT);
return -1;
}
/* receive column count */
status = OCIAttrGet(stmt, OCI_HTYPE_STMT, &columns, 0, OCI_ATTR_PARAM_COUNT,
conn->errhp);
if (status != OCI_SUCCESS) {
oracle_checkerr(conn->errhp, status);
OCIHandleFree(stmt, OCI_HTYPE_STMT);
return -1;
}
debug("dbpool.oracle",0,"SQL has %d columns", columns);
/* allocate array of pointers */
debug("dbpool.oracle",0,"alloc size=%ld",sizeof(text*)*columns);
data = gw_malloc(sizeof(struct data_s)*columns);
debug("dbpool.oracle",0,"retrieve data_size");
/* retrieve data size for every column and allocate it */
for (i=0 ; i < columns; i++) {
OCIDefine *defh;
status = OCIParamGet(stmt, OCI_HTYPE_STMT, conn->errhp,
(dvoid**) &dparam, i+1);
if (status != OCI_SUCCESS) {
oracle_checkerr(conn->errhp, status);
columns = i;
for (i = 0; i < columns; i++)
gw_free(data[i].data);
gw_free(data);
OCIHandleFree(stmt, OCI_HTYPE_STMT);
return -1;
}
status = OCIAttrGet(dparam, OCI_DTYPE_PARAM, (dvoid*) &data[i].size,
0, OCI_ATTR_DATA_SIZE, conn->errhp);
if (status != OCI_SUCCESS) {
oracle_checkerr(conn->errhp, status);
columns = i;
for (i = 0; i < columns; i++)
gw_free(data[i].data);
gw_free(data);
OCIHandleFree(stmt, OCI_HTYPE_STMT);
return -1;
}
status = OCIAttrGet(dparam, OCI_DTYPE_PARAM, (dvoid*) &data[i].type,
0, OCI_ATTR_DATA_TYPE, conn->errhp);
if (status != OCI_SUCCESS) {
oracle_checkerr(conn->errhp, status);
columns = i;
for (i = 0; i < columns; i++)
gw_free(data[i].data);
gw_free(data);
OCIHandleFree(stmt, OCI_HTYPE_STMT);
return -1;
}
/* convert all data types to C-Strings except DATE */
if (data[i].type != SQLT_DAT) {
data[i].size++; /* terminating zero */
data[i].type = SQLT_STR;
}
debug("dbpool.oracle",0,"alloc size=%d", data[i].size);
data[i].data = gw_malloc(data[i].size);
/* bind allocated values to statement handle */
status = OCIDefineByPos(stmt, &defh, conn->errhp, i+1, data[i].data,
data[i].size, data[i].type, &data[i].ind,
0, 0, OCI_DEFAULT);
if (status != OCI_SUCCESS) {
oracle_checkerr(conn->errhp, status);
columns = i;
for (i = 0; i <= columns; i++)
gw_free(data[i].data);
gw_free(data);
OCIHandleFree(stmt, OCI_HTYPE_STMT);
return -1;
}
}
*res = gwlist_create();
/* fetch data */
while ((status = OCIStmtFetch(stmt, conn->errhp, 1,
OCI_FETCH_NEXT, OCI_DEFAULT)) == OCI_SUCCESS ||
status == OCI_SUCCESS_WITH_INFO) {
row = gwlist_create();
for (i = 0; i < columns; i++) {
if (data[i].data == NULL || data[i].ind == -1) {
gwlist_insert(row, i, octstr_create(""));
} else {
gwlist_insert(row, i, octstr_create_from_data((const char*)data[i].data, data[i].size));
}
/* debug("dbpool.oracle",0,"inserted value = '%s'",
octstr_get_cstr(gwlist_get(row,i))); */
}
gwlist_append(*res, row);
}
/* ignore OCI_NO_DATA error */
if (status != OCI_NO_DATA) {
List *row;
oracle_checkerr(conn->errhp, status);
for (i = 0; i < columns; i++)
gw_free(data[i].data);
gw_free(data);
while ((row = gwlist_extract_first(*res)) != NULL)
gwlist_destroy(row, octstr_destroy_item);
gwlist_destroy(*res, NULL);
*res = NULL;
OCIHandleFree(stmt, OCI_HTYPE_STMT);
return -1;
}
for (i = 0; i < columns; i++)
gw_free(data[i].data);
gw_free(data);
OCIHandleFree(stmt, OCI_HTYPE_STMT);
return 0;
}
static void sms_to_smsboxes(void *arg)
{
Msg *newmsg, *startmsg, *msg;
long i, len;
int ret = -1;
Boxc *boxc;
gwlist_add_producer(flow_threads);
newmsg = startmsg = msg = NULL;
while(bb_status != BB_DEAD) {
if (newmsg == startmsg) {
/* check if we are in shutdown phase */
if (gwlist_producer_count(smsbox_list) == 0)
break;
if (ret == 0 || ret == -1) {
/* debug("", 0, "time to sleep"); */
gwthread_sleep(60.0);
/* debug("", 0, "wake up list len %ld", gwlist_len(incoming_sms)); */
/* shutdown ? */
if (gwlist_producer_count(smsbox_list) == 0 && gwlist_len(smsbox_list) == 0)
break;
}
startmsg = msg = gwlist_consume(incoming_sms);
/* debug("", 0, "gwlist_consume done 1"); */
newmsg = NULL;
}
else {
newmsg = msg = gwlist_consume(incoming_sms);
/* Back at the first message? */
if (newmsg == startmsg) {
gwlist_insert(incoming_sms, 0, msg);
continue;
}
}
if (msg == NULL)
break;
gw_assert(msg_type(msg) == sms);
/* debug("bb.sms", 0, "sms_boxc_router: handling message (%p vs %p)",
msg, startmsg); */
ret = route_incoming_to_boxc(msg);
if (ret == 1)
startmsg = newmsg = NULL;
else if (ret == -1) {
gwlist_produce(incoming_sms, msg);
}
}
gw_rwlock_rdlock(smsbox_list_rwlock);
len = gwlist_len(smsbox_list);
for (i=0; i < len; i++) {
boxc = gwlist_get(smsbox_list, i);
gwlist_remove_producer(boxc->incoming);
}
gw_rwlock_unlock(smsbox_list_rwlock);
gwlist_remove_producer(flow_threads);
}
int cfg_read(Cfg *cfg)
{
CfgLoc *loc;
CfgLoc *loc_inc;
List *lines;
List *expand;
List *stack;
Octstr *name;
Octstr *value;
Octstr *filename;
CfgGroup *grp;
long equals;
long lineno;
long error_lineno;
loc = loc_inc = NULL;
/*
* expand initial main config file and add it to the recursion
* stack to protect against cycling
*/
if ((lines = expand_file(cfg->filename, 1)) == NULL) {
panic(0, "Failed to load main configuration file `%s'. Aborting!",
octstr_get_cstr(cfg->filename));
}
stack = gwlist_create();
gwlist_insert(stack, 0, octstr_duplicate(cfg->filename));
grp = NULL;
lineno = 0;
error_lineno = 0;
while (error_lineno == 0 && (loc = gwlist_extract_first(lines)) != NULL) {
octstr_strip_blanks(loc->line);
if (octstr_len(loc->line) == 0) {
if (grp != NULL && add_group(cfg, grp) == -1) {
error_lineno = loc->line_no;
destroy_group(grp);
}
grp = NULL;
} else if (octstr_get_char(loc->line, 0) != '#') {
equals = octstr_search_char(loc->line, '=', 0);
if (equals == -1) {
error(0, "An equals sign ('=') is missing on line %ld of file %s.",
loc->line_no, octstr_get_cstr(loc->filename));
error_lineno = loc->line_no;
} else
/*
* check for special config directives, like include or conditional
* directives here
*/
if (octstr_search(loc->line, octstr_imm("include"), 0) != -1) {
filename = octstr_copy(loc->line, equals + 1, octstr_len(loc->line));
parse_value(filename);
/* check if we are cycling */
if (gwlist_search(stack, filename, octstr_item_match) != NULL) {
panic(0, "Recursive include for config file `%s' detected "
"(on line %ld of file %s).",
octstr_get_cstr(filename), loc->line_no,
octstr_get_cstr(loc->filename));
} else {
List *files = gwlist_create();
Octstr *file;
struct stat filestat;
/* check if included file is a directory */
if (lstat(octstr_get_cstr(filename), &filestat) != 0) {
error(errno, "lstat failed: couldn't stat `%s'",
octstr_get_cstr(filename));
panic(0, "Failed to include `%s' "
"(on line %ld of file %s). Aborting!",
octstr_get_cstr(filename), loc->line_no,
octstr_get_cstr(loc->filename));
}
/*
* is a directory, create a list with files of
* this directory and load all as part of the
* whole configuration.
*/
if (S_ISDIR(filestat.st_mode)) {
DIR *dh;
struct dirent *diritem;
debug("gwlib.cfg", 0, "Loading include dir `%s' "
"(on line %ld of file %s).",
octstr_get_cstr(filename), loc->line_no,
octstr_get_cstr(loc->filename));
dh = opendir(octstr_get_cstr(filename));
while ((diritem = readdir(dh))) {
Octstr *fileitem;
fileitem = octstr_duplicate(filename);
octstr_append_cstr(fileitem, "/");
octstr_append_cstr(fileitem, diritem->d_name);
lstat(octstr_get_cstr(fileitem), &filestat);
if (!S_ISDIR(filestat.st_mode)) {
gwlist_insert(files, 0, fileitem);
} else {
octstr_destroy(fileitem);
}
}
closedir(dh);
}
/* is a file, create a list with it */
else {
gwlist_insert(files, 0, octstr_duplicate(filename));
}
/* include files */
while ((file = gwlist_extract_first(files)) != NULL) {
gwlist_insert(stack, 0, octstr_duplicate(file));
debug("gwlib.cfg", 0, "Loading include file `%s' (on line %ld of file %s).",
octstr_get_cstr(file), loc->line_no,
octstr_get_cstr(loc->filename));
/*
* expand the given include file and add it to the current
* processed main while loop
*/
if ((expand = expand_file(file, 0)) != NULL) {
while ((loc_inc = gwlist_extract_first(expand)) != NULL)
gwlist_insert(lines, 0, loc_inc);
} else {
panic(0, "Failed to load whole configuration. Aborting!");
}
gwlist_destroy(expand, NULL);
cfgloc_destroy(loc_inc);
octstr_destroy(file);
}
gwlist_destroy(files, octstr_destroy_item);
}
octstr_destroy(filename);
}
/*
* this is a "normal" line, so process it accodingly
*/
else {
name = octstr_copy(loc->line, 0, equals);
octstr_strip_blanks(name);
value = octstr_copy(loc->line, equals + 1, octstr_len(loc->line));
parse_value(value);
if (grp == NULL)
grp = create_group();
if (grp->configfile != NULL) {
octstr_destroy(grp->configfile);
grp->configfile = NULL;
}
grp->configfile = octstr_duplicate(cfg->filename);
cfg_set(grp, name, value);
octstr_destroy(name);
octstr_destroy(value);
}
}
cfgloc_destroy(loc);
}
if (grp != NULL && add_group(cfg, grp) == -1) {
error_lineno = 1;
destroy_group(grp);
}
gwlist_destroy(lines, NULL);
gwlist_destroy(stack, octstr_destroy_item);
if (error_lineno != 0) {
error(0, "Error found on line %ld of file `%s'.",
error_lineno, octstr_get_cstr(cfg->filename));
return -1;
}
return 0;
}
static List *expand_file(Octstr *file, int forward)
{
Octstr *os;
Octstr *line;
List *lines;
List *expand;
long lineno;
CfgLoc *loc = NULL;
os = octstr_read_file(octstr_get_cstr(file));
if (os == NULL)
return NULL;
lines = octstr_split(os, octstr_imm("\n"));
lineno = 0;
expand = gwlist_create();
while ((line = gwlist_extract_first(lines)) != NULL) {
if (loc == NULL) {
++lineno;
loc = cfgloc_create(file);
loc->line_no = lineno;
loc->line = octstr_create("");
if (forward)
gwlist_append(expand, loc);
else
gwlist_insert(expand, 0, loc);
}
/* check for escape and then add to existing loc */
if (octstr_get_char(line, octstr_len(line) - 1) == '\\') {
octstr_delete(line, octstr_len(line) - 1, 1);
octstr_append(loc->line, line);
/* check for second escape */
if (octstr_get_char(line, octstr_len(line) - 1) == '\\')
loc = NULL;
} else {
octstr_append(loc->line, line);
loc = NULL;
}
octstr_destroy(line);
}
/*
* add newline at each end of included files to avoid
* concatenating different groups by mistake
*/
if (lineno > 0) {
loc = cfgloc_create(file);
loc->line_no = lineno;
loc->line = octstr_create("\n");
if (forward)
gwlist_append(expand, loc);
else
gwlist_insert(expand, 0, loc);
}
gwlist_destroy(lines, octstr_destroy_item);
octstr_destroy(os);
return expand;
}
static int sqlite3_select(void *theconn, const Octstr *sql, List *binds, List **res)
{
sqlite3 *db = theconn;
sqlite3_stmt *stmt;
const char *rem;
List *row;
int status;
int columns;
int i;
int binds_len = (binds ? gwlist_len(binds) : 0);
*res = NULL;
/* prepare statement */
#if SQLITE_VERSION_NUMBER >= 3003009
status = sqlite3_prepare_v2(db, octstr_get_cstr(sql), octstr_len(sql) + 1, &stmt, &rem);
#else
status = sqlite3_prepare(db, octstr_get_cstr(sql), octstr_len(sql) + 1, &stmt, &rem);
#endif
if (SQLITE_OK != status) {
error(0, "SQLite3: %s", sqlite3_errmsg(db));
return -1;
}
/* bind variables */
for (i = 0; i < binds_len; i++) {
Octstr *bind = gwlist_get(binds, i);
status = sqlite3_bind_text(stmt, i + 1, octstr_get_cstr(bind), octstr_len(bind), SQLITE_STATIC);
if (SQLITE_OK != status) {
error(0, "SQLite3: %s", sqlite3_errmsg(db));
sqlite3_finalize(stmt);
return -1;
}
}
/* execute our statement */
*res = gwlist_create();
while ((status = sqlite3_step(stmt)) == SQLITE_ROW) {
columns = sqlite3_data_count(stmt);
debug("dbpool.sqlite3",0,"SQL has %d columns", columns);
row = gwlist_create();
for (i = 0; i < columns; i++) {
if (sqlite3_column_type(stmt, i) == SQLITE_NULL) {
gwlist_insert(row, i, octstr_create(""));
} else {
gwlist_insert(row, i, octstr_create(sqlite3_column_text(stmt, i)));
}
/* debug("dbpool.sqlite3",0,"inserted value = '%s'",
octstr_get_cstr(gwlist_get(row,i))); */
}
gwlist_append(*res, row);
}
if (SQLITE_DONE != status) {
error(0, "SQLite3: %s", sqlite3_errmsg(db));
while ((row = gwlist_extract_first(*res)) != NULL)
gwlist_destroy(row, octstr_destroy_item);
gwlist_destroy(*res, NULL);
*res = NULL;
sqlite3_finalize(stmt);
return -1;
}
sqlite3_finalize(stmt);
return 0;
}
