int urltrans_add_cfg(URLTranslationList *trans, Cfg *cfg)
{
CfgGroup *grp;
List *list;
list = cfg_get_multi_group(cfg, octstr_imm("sms-service"));
while (list && (grp = gwlist_extract_first(list)) != NULL) {
if (urltrans_add_one(trans, grp) == -1) {
gwlist_destroy(list, NULL);
return -1;
}
}
gwlist_destroy(list, NULL);
list = cfg_get_multi_group(cfg, octstr_imm("sendsms-user"));
while (list && (grp = gwlist_extract_first(list)) != NULL) {
if (urltrans_add_one(trans, grp) == -1) {
gwlist_destroy(list, NULL);
return -1;
}
}
gwlist_destroy(list, NULL);
return 0;
}
void cfg_dump(Cfg *cfg)
{
CfgGroup *grp;
List *list;
List *names;
Octstr *name;
debug("gwlib.cfg", 0, "Dumping Cfg %p", (void *) cfg);
debug("gwlib.cfg", 0, " filename = <%s>",
octstr_get_cstr(cfg->filename));
names = dict_keys(cfg->single_groups);
while ((name = gwlist_extract_first(names)) != NULL) {
grp = cfg_get_single_group(cfg, name);
if (grp != NULL)
grp_dump(grp);
octstr_destroy(name);
}
gwlist_destroy(names, NULL);
names = dict_keys(cfg->multi_groups);
while ((name = gwlist_extract_first(names)) != NULL) {
list = cfg_get_multi_group(cfg, name);
while ((grp = gwlist_extract_first(list)) != NULL)
grp_dump(grp);
gwlist_destroy(list, NULL);
octstr_destroy(name);
}
gwlist_destroy(names, NULL);
debug("gwlib.cfg", 0, "Dump ends.");
}
struct dlr_storage *dlr_init_redis(Cfg *cfg)
{
CfgGroup *grp;
List *grplist;
Octstr *redis_host, *redis_pass, *redis_id;
long redis_port = 0, redis_database = -1, redis_idle_timeout = -1;
Octstr *p = NULL;
long pool_size;
DBConf *db_conf = NULL;
/*
* Check for all mandatory directives that specify the field names
* of the used Redis key
*/
if (!(grp = cfg_get_single_group(cfg, octstr_imm("dlr-db"))))
panic(0, "DLR: Redis: group 'dlr-db' is not specified!");
if (!(redis_id = cfg_get(grp, octstr_imm("id"))))
panic(0, "DLR: Redis: directive 'id' is not specified!");
fields = dlr_db_fields_create(grp);
gw_assert(fields != NULL);
/*
* Escaping special quotes for field/table names
*/
octstr_replace(fields->table, octstr_imm("`"), octstr_imm("``"));
octstr_replace(fields->field_smsc, octstr_imm("`"), octstr_imm("``"));
octstr_replace(fields->field_ts, octstr_imm("`"), octstr_imm("``"));
octstr_replace(fields->field_src, octstr_imm("`"), octstr_imm("``"));
octstr_replace(fields->field_dst, octstr_imm("`"), octstr_imm("``"));
octstr_replace(fields->field_serv, octstr_imm("`"), octstr_imm("``"));
octstr_replace(fields->field_url, octstr_imm("`"), octstr_imm("``"));
octstr_replace(fields->field_mask, octstr_imm("`"), octstr_imm("``"));
octstr_replace(fields->field_status, octstr_imm("`"), octstr_imm("``"));
octstr_replace(fields->field_boxc, octstr_imm("`"), octstr_imm("``"));
/*
* Now grab the required information from the 'redis-connection' group
* with the redis-id we just obtained.
*
* We have to loop through all available Redis connection definitions
* and search for the one we are looking for.
*/
grplist = cfg_get_multi_group(cfg, octstr_imm("redis-connection"));
while (grplist && (grp = gwlist_extract_first(grplist)) != NULL) {
p = cfg_get(grp, octstr_imm("id"));
if (p != NULL && octstr_compare(p, redis_id) == 0) {
goto found;
}
if (p != NULL)
octstr_destroy(p);
}
panic(0, "DLR: Redis: connection settings for id '%s' are not specified!",
octstr_get_cstr(redis_id));
found:
octstr_destroy(p);
gwlist_destroy(grplist, NULL);
if (cfg_get_integer(&pool_size, grp, octstr_imm("max-connections")) == -1 || pool_size == 0)
pool_size = 1;
if (!(redis_host = cfg_get(grp, octstr_imm("host"))))
panic(0, "DLR: Redis: directive 'host' is not specified!");
if (cfg_get_integer(&redis_port, grp, octstr_imm("port")) == -1)
panic(0, "DLR: Redis: directive 'port' is not specified!");
redis_pass = cfg_get(grp, octstr_imm("password"));
cfg_get_integer(&redis_database, grp, octstr_imm("database"));
cfg_get_integer(&redis_idle_timeout, grp, octstr_imm("idle-timeout"));
/*
* Ok, ready to connect to Redis
*/
db_conf = gw_malloc(sizeof(DBConf));
gw_assert(db_conf != NULL);
db_conf->redis = gw_malloc(sizeof(RedisConf));
gw_assert(db_conf->redis != NULL);
db_conf->redis->host = redis_host;
db_conf->redis->port = redis_port;
db_conf->redis->password = redis_pass;
db_conf->redis->database = redis_database;
db_conf->redis->idle_timeout = redis_idle_timeout;
pool = dbpool_create(DBPOOL_REDIS, db_conf, pool_size);
gw_assert(pool != NULL);
/*
* Panic on failure to connect. Should we just try to reconnect?
*/
if (dbpool_conn_count(pool) == 0)
panic(0,"DLR: Redis: database pool has no connections!");
octstr_destroy(redis_id);
return &handles;
}
static Cfg *init_bearerbox(Cfg *cfg)
{
CfgGroup *grp;
Octstr *log, *val;
long loglevel, store_dump_freq, value;
int lf, m;
#ifdef HAVE_LIBSSL
Octstr *ssl_server_cert_file;
Octstr *ssl_server_key_file;
int ssl_enabled = 0;
#endif /* HAVE_LIBSSL */
Octstr *http_proxy_host = NULL;
long http_proxy_port = -1;
int http_proxy_ssl = 0;
List *http_proxy_exceptions = NULL;
Octstr *http_proxy_username = NULL;
Octstr *http_proxy_password = NULL;
Octstr *http_proxy_exceptions_regex = NULL;
/* defaults: use localtime and markers for access-log */
lf = m = 1;
grp = cfg_get_single_group(cfg, octstr_imm("core"));
log = cfg_get(grp, octstr_imm("log-file"));
if (log != NULL) {
if (cfg_get_integer(&loglevel, grp, octstr_imm("log-level")) == -1)
loglevel = 0;
log_open(octstr_get_cstr(log), loglevel, GW_NON_EXCL);
octstr_destroy(log);
}
if ((val = cfg_get(grp, octstr_imm("syslog-level"))) != NULL) {
long level;
Octstr *facility;
if ((facility = cfg_get(grp, octstr_imm("syslog-facility"))) != NULL) {
log_set_syslog_facility(octstr_get_cstr(facility));
octstr_destroy(facility);
}
if (octstr_compare(val, octstr_imm("none")) == 0) {
log_set_syslog(NULL, 0);
} else if (octstr_parse_long(&level, val, 0, 10) > 0) {
log_set_syslog("bearerbox", level);
}
octstr_destroy(val);
} else {
log_set_syslog(NULL, 0);
}
if (check_config(cfg) == -1)
panic(0, "Cannot start with corrupted configuration");
/* determine which timezone we use for access logging */
if ((log = cfg_get(grp, octstr_imm("access-log-time"))) != NULL) {
lf = (octstr_case_compare(log, octstr_imm("gmt")) == 0) ? 0 : 1;
octstr_destroy(log);
}
/* should predefined markers be used, ie. prefixing timestamp */
cfg_get_bool(&m, grp, octstr_imm("access-log-clean"));
/* custom access-log format */
if ((log = cfg_get(grp, octstr_imm("access-log-format"))) != NULL) {
bb_alog_init(log);
octstr_destroy(log);
}
/* open access-log file */
if ((log = cfg_get(grp, octstr_imm("access-log"))) != NULL) {
alog_open(octstr_get_cstr(log), lf, m ? 0 : 1);
octstr_destroy(log);
}
if (cfg_get_integer(&store_dump_freq, grp,
octstr_imm("store-dump-freq")) == -1)
store_dump_freq = -1;
log = cfg_get(grp, octstr_imm("store-file"));
/* initialize the store file */
if (log != NULL) {
warning(0, "'store-file' option deprecated, please use 'store-location' and 'store-type' instead.");
val = octstr_create("file");
} else {
log = cfg_get(grp, octstr_imm("store-location"));
val = cfg_get(grp, octstr_imm("store-type"));
}
if (store_init(val, log, store_dump_freq, msg_pack, msg_unpack_wrapper) == -1)
panic(0, "Could not start with store init failed.");
octstr_destroy(val);
octstr_destroy(log);
cfg_get_integer(&http_proxy_port, grp, octstr_imm("http-proxy-port"));
#ifdef HAVE_LIBSSL
cfg_get_bool(&http_proxy_ssl, grp, octstr_imm("http-proxy-ssl"));
#endif /* HAVE_LIBSSL */
http_proxy_host = cfg_get(grp,
octstr_imm("http-proxy-host"));
http_proxy_username = cfg_get(grp,
octstr_imm("http-proxy-username"));
http_proxy_password = cfg_get(grp,
octstr_imm("http-proxy-password"));
http_proxy_exceptions = cfg_get_list(grp,
octstr_imm("http-proxy-exceptions"));
http_proxy_exceptions_regex = cfg_get(grp,
octstr_imm("http-proxy-exceptions-regex"));
conn_config_ssl (grp);
/*
* Make sure we have "ssl-server-cert-file" and "ssl-server-key-file" specified
* in the core group since we need it to run SSL-enabled internal box
* connections configured via "smsbox-port-ssl = yes" and "wapbox-port-ssl = yes".
* Check only these, because for "admin-port-ssl" and "sendsms-port-ssl" for the
* SSL-enabled HTTP servers are probed within gw/bb_http.c:httpadmin_start()
*/
#ifdef HAVE_LIBSSL
ssl_server_cert_file = cfg_get(grp, octstr_imm("ssl-server-cert-file"));
ssl_server_key_file = cfg_get(grp, octstr_imm("ssl-server-key-file"));
if (ssl_server_cert_file != NULL && ssl_server_key_file != NULL) {
/* we are fine, at least files are specified in the configuration */
} else {
cfg_get_bool(&ssl_enabled, grp, octstr_imm("smsbox-port-ssl"));
cfg_get_bool(&ssl_enabled, grp, octstr_imm("wapbox-port-ssl"));
if (ssl_enabled) {
panic(0, "You MUST specify cert and key files within core group for SSL-enabled inter-box connections!");
}
}
octstr_destroy(ssl_server_cert_file);
octstr_destroy(ssl_server_key_file);
#endif /* HAVE_LIBSSL */
/* if all seems to be OK by the first glimpse, real start-up */
outgoing_sms = gwlist_create();
incoming_sms = gwlist_create();
outgoing_wdp = gwlist_create();
incoming_wdp = gwlist_create();
outgoing_sms_counter = counter_create();
incoming_sms_counter = counter_create();
incoming_dlr_counter = counter_create();
outgoing_dlr_counter = counter_create();
outgoing_wdp_counter = counter_create();
incoming_wdp_counter = counter_create();
status_mutex = mutex_create();
outgoing_sms_load = load_create();
/* add 60,300,-1 entries */
load_add_interval(outgoing_sms_load, 60);
load_add_interval(outgoing_sms_load, 300);
load_add_interval(outgoing_sms_load, -1);
incoming_sms_load = load_create();
/* add 60,300,-1 entries */
load_add_interval(incoming_sms_load, 60);
load_add_interval(incoming_sms_load, 300);
load_add_interval(incoming_sms_load, -1);
incoming_dlr_load = load_create();
/* add 60,300,-1 entries to dlr */
load_add_interval(incoming_dlr_load, 60);
load_add_interval(incoming_dlr_load, 300);
load_add_interval(incoming_dlr_load, -1);
outgoing_dlr_load = load_create();
/* add 60,300,-1 entries to dlr */
load_add_interval(outgoing_dlr_load, 60);
load_add_interval(outgoing_dlr_load, 300);
load_add_interval(outgoing_dlr_load, -1);
setup_signal_handlers();
/* http-admin is REQUIRED */
httpadmin_start(cfg);
if (cfg_get_integer(&max_incoming_sms_qlength, grp,
octstr_imm("maximum-queue-length")) == -1)
max_incoming_sms_qlength = -1;
else {
warning(0, "Option 'maximum-queue-length' is deprecated! Please use"
" 'sms-incoming-queue-limit' instead!");
}
if (max_incoming_sms_qlength == -1 &&
cfg_get_integer(&max_incoming_sms_qlength, grp,
octstr_imm("sms-incoming-queue-limit")) == -1)
max_incoming_sms_qlength = -1;
if (cfg_get_integer(&max_outgoing_sms_qlength, grp,
octstr_imm("sms-outgoing-queue-limit")) == -1)
max_outgoing_sms_qlength = -1;
if (max_outgoing_sms_qlength < 0)
max_outgoing_sms_qlength = DEFAULT_OUTGOING_SMS_QLENGTH;
if (cfg_get_integer(&value, grp, octstr_imm("http-timeout")) == 0)
http_set_client_timeout(value);
#ifndef NO_SMS
{
List *list;
list = cfg_get_multi_group(cfg, octstr_imm("smsc"));
if (list != NULL) {
gwlist_destroy(list, NULL);
if (start_smsc(cfg) == -1) {
panic(0, "Unable to start SMSCs.");
return NULL;
}
}
}
#endif
#ifndef NO_WAP
grp = cfg_get_single_group(cfg, octstr_imm("core"));
val = cfg_get(grp, octstr_imm("wdp-interface-name"));
if (val != NULL && octstr_len(val) > 0)
start_udp(cfg);
octstr_destroy(val);
if (cfg_get_single_group(cfg, octstr_imm("wapbox")) != NULL)
start_wap(cfg);
#endif
if (http_proxy_host != NULL && http_proxy_port > 0) {
http_use_proxy(http_proxy_host, http_proxy_port, http_proxy_ssl,
http_proxy_exceptions, http_proxy_username,
http_proxy_password, http_proxy_exceptions_regex);
}
octstr_destroy(http_proxy_host);
octstr_destroy(http_proxy_username);
octstr_destroy(http_proxy_password);
octstr_destroy(http_proxy_exceptions_regex);
gwlist_destroy(http_proxy_exceptions, octstr_destroy_item);
return cfg;
}
struct dlr_storage *dlr_init_oracle(Cfg *cfg)
{
CfgGroup *grp;
List *grplist;
long pool_size;
DBConf *db_conf = NULL;
Octstr *id, *username, *password, *tnsname;
int found;
if ((grp = cfg_get_single_group(cfg, octstr_imm("dlr-db"))) == NULL)
panic(0, "DLR: ORACLE: group 'dlr-db' is not specified!");
if (!(id = cfg_get(grp, octstr_imm("id"))))
panic(0, "DLR: ORACLE: directive 'id' is not specified!");
/* initialize database fields */
fields = dlr_db_fields_create(grp);
gw_assert(fields != NULL);
grplist = cfg_get_multi_group(cfg, octstr_imm("oracle-connection"));
found = 0;
while (grplist && (grp = gwlist_extract_first(grplist)) != NULL) {
Octstr *p = cfg_get(grp, octstr_imm("id"));
if (p != NULL && octstr_compare(p, id) == 0) {
found = 1;
}
if (p != NULL)
octstr_destroy(p);
if (found == 1)
break;
}
gwlist_destroy(grplist, NULL);
if (found == 0)
panic(0, "DLR: ORACLE: connection settings for id '%s' are not specified!",
octstr_get_cstr(id));
username = cfg_get(grp, octstr_imm("username"));
password = cfg_get(grp, octstr_imm("password"));
tnsname = cfg_get(grp, octstr_imm("tnsname"));
if (cfg_get_integer(&pool_size, grp, octstr_imm("max-connections")) == -1)
pool_size = 1;
if (username == NULL || password == NULL || tnsname == NULL)
panic(0, "DLR: ORACLE: connection settings missing for id '%s', please"
" check you configuration.",octstr_get_cstr(id));
/* ok we are ready to create dbpool */
db_conf = gw_malloc(sizeof(*db_conf));
db_conf->oracle = gw_malloc(sizeof(OracleConf));
db_conf->oracle->username = username;
db_conf->oracle->password = password;
db_conf->oracle->tnsname = tnsname;
pool = dbpool_create(DBPOOL_ORACLE, db_conf, pool_size);
gw_assert(pool != NULL);
if (dbpool_conn_count(pool) == 0)
panic(0, "DLR: ORACLE: Couldnot establish oracle connection(s).");
octstr_destroy(id);
return &handles;
}
/*
* Populates the corresponding smsbox_by_foobar dictionary hash tables
*/
static void init_smsbox_routes(Cfg *cfg)
{
CfgGroup *grp;
List *list, *items;
Octstr *boxc_id, *smsc_ids, *shortcuts;
int i, j;
boxc_id = smsc_ids = shortcuts = NULL;
list = cfg_get_multi_group(cfg, octstr_imm("smsbox-route"));
/* loop multi-group "smsbox-route" */
while (list && (grp = gwlist_extract_first(list)) != NULL) {
if ((boxc_id = cfg_get(grp, octstr_imm("smsbox-id"))) == NULL) {
grp_dump(grp);
panic(0,"'smsbox-route' group without valid 'smsbox-id' directive!");
}
/*
* If smsc-id is given, then any message comming from the specified
* smsc-id in the list will be routed to this smsbox instance.
* If shortcode is given, then any message with receiver number
* matching those will be routed to this smsbox instance.
* If both are given, then only receiver within shortcode originating
* from smsc-id list will be routed to this smsbox instance. So if both
* are present then this is a logical AND operation.
*/
smsc_ids = cfg_get(grp, octstr_imm("smsc-id"));
shortcuts = cfg_get(grp, octstr_imm("shortcode"));
/* consider now the 3 possibilities: */
if (smsc_ids && !shortcuts) {
/* smsc-id only, so all MO traffic */
items = octstr_split(smsc_ids, octstr_imm(";"));
for (i = 0; i < gwlist_len(items); i++) {
Octstr *item = gwlist_get(items, i);
octstr_strip_blanks(item);
debug("bb.boxc",0,"Adding smsbox routing to id <%s> for smsc id <%s>",
octstr_get_cstr(boxc_id), octstr_get_cstr(item));
if (!dict_put_once(smsbox_by_smsc, item, octstr_duplicate(boxc_id)))
panic(0, "Routing for smsc-id <%s> already exists!",
octstr_get_cstr(item));
}
gwlist_destroy(items, octstr_destroy_item);
octstr_destroy(smsc_ids);
}
else if (!smsc_ids && shortcuts) {
/* shortcode only, so these MOs from all smscs */
items = octstr_split(shortcuts, octstr_imm(";"));
for (i = 0; i < gwlist_len(items); i++) {
Octstr *item = gwlist_get(items, i);
octstr_strip_blanks(item);
debug("bb.boxc",0,"Adding smsbox routing to id <%s> for receiver no <%s>",
octstr_get_cstr(boxc_id), octstr_get_cstr(item));
if (!dict_put_once(smsbox_by_receiver, item, octstr_duplicate(boxc_id)))
panic(0, "Routing for receiver no <%s> already exists!",
octstr_get_cstr(item));
}
gwlist_destroy(items, octstr_destroy_item);
octstr_destroy(shortcuts);
}
else if (smsc_ids && shortcuts) {
/* both, so only specified MOs from specified smscs */
items = octstr_split(shortcuts, octstr_imm(";"));
for (i = 0; i < gwlist_len(items); i++) {
List *subitems;
Octstr *item = gwlist_get(items, i);
octstr_strip_blanks(item);
subitems = octstr_split(smsc_ids, octstr_imm(";"));
for (j = 0; j < gwlist_len(subitems); j++) {
Octstr *subitem = gwlist_get(subitems, j);
octstr_strip_blanks(subitem);
debug("bb.boxc",0,"Adding smsbox routing to id <%s> "
"for receiver no <%s> and smsc id <%s>",
octstr_get_cstr(boxc_id), octstr_get_cstr(item),
octstr_get_cstr(subitem));
/* construct the dict key '<shortcode>:<smsc-id>' */
octstr_insert(subitem, item, 0);
octstr_insert_char(subitem, octstr_len(item), ':');
if (!dict_put_once(smsbox_by_smsc_receiver, subitem, octstr_duplicate(boxc_id)))
panic(0, "Routing for receiver:smsc <%s> already exists!",
octstr_get_cstr(subitem));
}
gwlist_destroy(subitems, octstr_destroy_item);
}
gwlist_destroy(items, octstr_destroy_item);
octstr_destroy(shortcuts);
}
octstr_destroy(boxc_id);
}
gwlist_destroy(list, NULL);
}
int smpp_pdu_init(Cfg *cfg)
{
CfgGroup *grp;
List *l;
if (initialized)
return 0;
l = cfg_get_multi_group(cfg, octstr_imm("smpp-tlv"));
tlvs = gwlist_create();
tlvs_by_tag = dict_create(1024, (void(*)(void*))dict_destroy);
tlvs_by_name = dict_create(1024, (void(*)(void*))dict_destroy);
while (l != NULL && (grp = gwlist_extract_first(l)) != NULL) {
struct smpp_tlv *tlv;
Octstr *tmp, *smsc_id;
List *l2;
tlv = gw_malloc(sizeof(*tlv));
if ((tlv->name = cfg_get(grp, octstr_imm("name"))) == NULL) {
error(0, "SMPP: Unable to get name for smpp-tlv.");
smpp_tlv_destroy(tlv);
goto failed;
}
if (cfg_get_integer(&tlv->tag, grp, octstr_imm("tag")) == -1) {
error(0, "SMPP: Unable to get tag for smpp-tlv.");
smpp_tlv_destroy(tlv);
goto failed;
}
if (cfg_get_integer(&tlv->length, grp, octstr_imm("length")) == -1) {
error(0, "SMPP: Unable to get length for smpp-tlv.");
smpp_tlv_destroy(tlv);
goto failed;
}
if ((tmp = cfg_get(grp, octstr_imm("type"))) == NULL) {
error(0, "SMPP: Unable to get type for smpp-tlv.");
smpp_tlv_destroy(tlv);
goto failed;
}
if (octstr_str_case_compare(tmp, "octetstring") == 0)
tlv->type = SMPP_TLV_OCTETS;
else if (octstr_str_case_compare(tmp, "nulterminated") == 0)
tlv->type = SMPP_TLV_NULTERMINATED;
else if (octstr_str_case_compare(tmp, "integer") == 0)
tlv->type = SMPP_TLV_INTEGER;
else {
error(0, "SMPP: Unknown type for smpp-tlv: `%s'", octstr_get_cstr(tmp));
octstr_destroy(tmp);
smpp_tlv_destroy(tlv);
goto failed;
}
octstr_destroy(tmp);
/* put to all TLVs */
gwlist_produce(tlvs, tlv);
smsc_id = cfg_get(grp, octstr_imm("smsc-id"));
if (smsc_id != NULL) {
l2 = octstr_split(smsc_id, octstr_imm(";"));
octstr_destroy(smsc_id);
} else {
l2 = gwlist_create();
gwlist_produce(l2, octstr_create(DEFAULT_SMSC_ID));
}
while(l2 != NULL && (smsc_id = gwlist_extract_first(l2)) != NULL) {
Dict *tmp_dict;
debug("sms.smpp", 0, "adding smpp-tlv for smsc-id=%s", octstr_get_cstr(smsc_id));
tmp_dict = dict_get(tlvs_by_name, smsc_id);
if (tmp_dict == NULL) {
tmp_dict = dict_create(1024, NULL);
dict_put(tlvs_by_name, smsc_id, tmp_dict);
}
/* put into dict */
if (!dict_put_once(tmp_dict, tlv->name, tlv)) {
error(0, "SMPP: Double TLV name %s found.", octstr_get_cstr(tlv->name));
octstr_destroy(smsc_id);
goto failed;
}
tmp_dict = dict_get(tlvs_by_tag, smsc_id);
if (tmp_dict == NULL) {
tmp_dict = dict_create(1024, NULL);
dict_put(tlvs_by_tag, smsc_id, tmp_dict);
}
tmp = octstr_format("%ld", tlv->tag);
if (!dict_put_once(tmp_dict, tmp, tlv)) {
error(0, "SMPP: Double TLV tag %s found.", octstr_get_cstr(tmp));
gwlist_destroy(l2, octstr_destroy_item);
octstr_destroy(tmp);
octstr_destroy(smsc_id);
goto failed;
}
octstr_destroy(tmp);
octstr_destroy(smsc_id);
}
gwlist_destroy(l2, octstr_destroy_item);
}
gwlist_destroy(l, NULL);
initialized = 1;
return 0;
failed:
gwlist_destroy(tlvs, (void(*)(void*))smpp_tlv_destroy);
dict_destroy(tlvs_by_tag);
dict_destroy(tlvs_by_name);
return -1;
}
struct dlr_storage *dlr_init_sqlite3(Cfg *cfg)
{
CfgGroup *grp;
List *grplist;
long pool_size;
DBConf *db_conf = NULL;
Octstr *id, *file;
int found;
if ((grp = cfg_get_single_group(cfg, octstr_imm("dlr-db"))) == NULL)
panic(0, "DLR: SQLite3: group 'dlr-db' is not specified!");
if (!(id = cfg_get(grp, octstr_imm("id"))))
panic(0, "DLR: SQLite3: directive 'id' is not specified!");
/* initialize database fields */
fields = dlr_db_fields_create(grp);
gw_assert(fields != NULL);
grplist = cfg_get_multi_group(cfg, octstr_imm("sqlite3-connection"));
found = 0;
while (grplist && (grp = gwlist_extract_first(grplist)) != NULL) {
Octstr *p = cfg_get(grp, octstr_imm("id"));
if (p != NULL && octstr_compare(p, id) == 0) {
found = 1;
}
if (p != NULL)
octstr_destroy(p);
if (found == 1)
break;
}
gwlist_destroy(grplist, NULL);
if (found == 0)
panic(0, "DLR: SQLite3: connection settings for id '%s' are not specified!",
octstr_get_cstr(id));
file = cfg_get(grp, octstr_imm("database"));
if (cfg_get_integer(&pool_size, grp, octstr_imm("max-connections")) == -1)
pool_size = 1;
if (file == NULL)
panic(0, "DLR: SQLite3: connection settings missing for id '%s', please"
" check you configuration.",octstr_get_cstr(id));
/* ok we are ready to create dbpool */
db_conf = gw_malloc(sizeof(*db_conf));
db_conf->sqlite3 = gw_malloc(sizeof(SQLite3Conf));
db_conf->sqlite3->file = file;
pool = dbpool_create(DBPOOL_SQLITE3, db_conf, pool_size);
gw_assert(pool != NULL);
if (dbpool_conn_count(pool) == 0)
panic(0, "DLR: SQLite3: Could not establish sqlite3 connection(s).");
octstr_destroy(id);
return &handles;
}
struct server_type *sqlbox_init_redis(Cfg* cfg)
{
CfgGroup *grp;
List *grplist;
Octstr *redis_host, *redis_password, *redis_id;
Octstr *p = NULL;
long pool_size, redis_port = 0, redis_database = -1, redis_idle_timeout_secs = -1;
DBConf *db_conf = NULL;
struct server_type *res = NULL;
/*
* check for all mandatory directives that specify the key names
* for the redis storage
*/
if (!(grp = cfg_get_single_group(cfg, octstr_imm("sqlbox"))))
panic(0, "SQLBOX: Redis: group 'sqlbox' is not specified!");
if (!(redis_id = cfg_get(grp, octstr_imm("id"))))
panic(0, "SQLBOX: Redis: directive 'id' is not specified in the 'sqlbox' group!");
/*
* now grap the required information from the 'redis-connection' group
* with the redis-id we just obtained
*
* we have to loop through all available Redis connection definitions
* and search for the one we are looking for
*/
grplist = cfg_get_multi_group(cfg, octstr_imm("redis-connection"));
while (grplist && (grp = (CfgGroup *)gwlist_extract_first(grplist)) != NULL) {
p = cfg_get(grp, octstr_imm("id"));
if (p != NULL && octstr_compare(p, redis_id) == 0) {
goto found;
}
if (p != NULL) octstr_destroy(p);
}
panic(0, "SQLBOX: Redis: connection settings for id '%s' are not specified!",
octstr_get_cstr(redis_id));
found:
octstr_destroy(p);
gwlist_destroy(grplist, NULL);
if (cfg_get_integer(&pool_size, grp, octstr_imm("max-connections")) == -1 || pool_size == 0)
pool_size = 1;
if (!(redis_host = cfg_get(grp, octstr_imm("host"))))
panic(0, "SQLBOX: Redis: directive 'host' is not specified!");
if (cfg_get_integer(&redis_port, grp, octstr_imm("port")) == -1)
panic(0, "SQLBOX: Redis: directive 'port' is not specified!");
redis_password = cfg_get(grp, octstr_imm("password"));
cfg_get_integer(&redis_database, grp, octstr_imm("database"));
cfg_get_integer(&redis_idle_timeout_secs, grp, octstr_imm("idle-timeout-secs"));
/*
* ok, ready to connect to Redis
*/
db_conf = gw_malloc(sizeof(DBConf));
gw_assert(db_conf != NULL);
db_conf->redis = gw_malloc(sizeof(RedisConf));
gw_assert(db_conf->redis != NULL);
db_conf->redis->host = redis_host;
db_conf->redis->port = redis_port;
db_conf->redis->password = redis_password;
db_conf->redis->database = redis_database;
db_conf->redis->idle_timeout_secs = redis_idle_timeout_secs;
pool = dbpool_create(DBPOOL_REDIS, db_conf, pool_size);
gw_assert(pool != NULL);
/*
* XXX should a failing connect throw panic?!
*/
if (dbpool_conn_count(pool) == 0)
panic(0,"SQLBOX: Redis: database pool has no connections!");
octstr_destroy(redis_id);
res = gw_malloc(sizeof(struct server_type));
gw_assert(res != NULL);
res->type = octstr_create("Redis");
res->sql_enter = sqlbox_configure_redis;
res->sql_leave = redis_leave;
res->sql_fetch_msg = redis_fetch_msg;
res->sql_save_msg = redis_save_msg;
return res;
}
SMPPPlugin *smpp_plugin_init(SMPPServer *smpp_server, Octstr *id) {
void *lib;
Octstr *path;
Octstr *tmp = NULL;
char *error_str;
int result = 0;
SMPPPlugin *smpp_plugin = dict_get(smpp_server->plugins, id);
if (smpp_plugin == NULL) {
/* Not loaded yet, load now */
smpp_plugin = smpp_plugin_create();
smpp_plugin->id = octstr_duplicate(id);
CfgGroup *grp = NULL;
List *grplist;
Octstr *p = NULL;
grplist = cfg_get_multi_group(smpp_server->running_configuration, octstr_imm("ksmppd-plugin"));
while (grplist && (grp = gwlist_extract_first(grplist)) != NULL) {
p = cfg_get(grp, octstr_imm("id"));
if (p != NULL && octstr_compare(p, id) == 0) {
goto found;
}
if (p != NULL) octstr_destroy(p);
}
panic(0, "Plugin settings for id '%s' are not specified!",
octstr_get_cstr(id));
found:
octstr_destroy(p);
gwlist_destroy(grplist, NULL);
path = cfg_get(grp, octstr_imm("path"));
if (octstr_len(path)) {
lib = dlopen(octstr_get_cstr(path), RTLD_NOW | RTLD_GLOBAL);
if (!lib) {
error_str = dlerror();
error(0, "Error opening '%s' for plugin '%s' (%s)", octstr_get_cstr(path), octstr_get_cstr(id), error_str);
goto error;
}
error_str = dlerror();
if (error_str != NULL) {
error(0, "DL returned error %s", error_str);
goto error;
}
tmp = cfg_get(grp, octstr_imm("init-function"));
if (octstr_len(tmp)) {
smpp_plugin->init = dlsym(lib, octstr_get_cstr(tmp));
if (!smpp_plugin->init) {
panic(0, "init-function %s unable to load from %s", octstr_get_cstr(tmp), octstr_get_cstr(path));
}
smpp_plugin->args = cfg_get(grp, octstr_imm("args"));
result = smpp_plugin->init(smpp_plugin);
} else {
result = 1;
}
}
error:
octstr_destroy(path);
octstr_destroy(tmp);
if (result) {
debug("ksmppd.vsmsc.init", 0, "Adding plugin with id %s and args %s", octstr_get_cstr(smpp_plugin->id), octstr_get_cstr(smpp_plugin->args));
dict_put(smpp_server->plugins, id, smpp_plugin);
} else {
smpp_plugin_destroy_real(smpp_plugin);
smpp_plugin = NULL;
}
} else {
info(0, "Plugin with id '%s' already initialized", octstr_get_cstr(id));
}
return smpp_plugin;
}
struct server_type *sqlbox_init_mysql(Cfg* cfg)
{
CfgGroup *grp;
List *grplist;
Octstr *mysql_host, *mysql_user, *mysql_pass, *mysql_db, *mysql_id;
Octstr *p = NULL;
long pool_size, mysql_port;
int have_port;
DBConf *db_conf = NULL;
struct server_type *res = NULL;
/*
* check for all mandatory directives that specify the field names
* of the used MySQL table
*/
if (!(grp = cfg_get_single_group(cfg, octstr_imm("sqlbox"))))
panic(0, "SQLBOX: MySQL: group 'sqlbox' is not specified!");
if (!(mysql_id = cfg_get(grp, octstr_imm("id"))))
panic(0, "SQLBOX: MySQL: directive 'id' is not specified!");
/*
* now grap the required information from the 'mysql-connection' group
* with the mysql-id we just obtained
*
* we have to loop through all available MySQL connection definitions
* and search for the one we are looking for
*/
grplist = cfg_get_multi_group(cfg, octstr_imm("mysql-connection"));
while (grplist && (grp = (CfgGroup *)gwlist_extract_first(grplist)) != NULL) {
p = cfg_get(grp, octstr_imm("id"));
if (p != NULL && octstr_compare(p, mysql_id) == 0) {
goto found;
}
if (p != NULL) octstr_destroy(p);
}
panic(0, "SQLBOX: MySQL: connection settings for id '%s' are not specified!",
octstr_get_cstr(mysql_id));
found:
octstr_destroy(p);
gwlist_destroy(grplist, NULL);
if (cfg_get_integer(&pool_size, grp, octstr_imm("max-connections")) == -1 || pool_size == 0)
pool_size = 1;
if (!(mysql_host = cfg_get(grp, octstr_imm("host"))))
panic(0, "SQLBOX: MySQL: directive 'host' is not specified!");
if (!(mysql_user = cfg_get(grp, octstr_imm("username"))))
panic(0, "SQLBOX: MySQL: directive 'username' is not specified!");
if (!(mysql_pass = cfg_get(grp, octstr_imm("password"))))
panic(0, "SQLBOX: MySQL: directive 'password' is not specified!");
if (!(mysql_db = cfg_get(grp, octstr_imm("database"))))
panic(0, "SQLBOX: MySQL: directive 'database' is not specified!");
have_port = (cfg_get_integer(&mysql_port, grp, octstr_imm("port")) != -1);
/*
* ok, ready to connect to MySQL
*/
db_conf = gw_malloc(sizeof(DBConf));
gw_assert(db_conf != NULL);
db_conf->mysql = gw_malloc(sizeof(MySQLConf));
gw_assert(db_conf->mysql != NULL);
db_conf->mysql->host = mysql_host;
db_conf->mysql->username = mysql_user;
db_conf->mysql->password = mysql_pass;
db_conf->mysql->database = mysql_db;
if (have_port) {
db_conf->mysql->port = mysql_port;
}
pool = dbpool_create(DBPOOL_MYSQL, db_conf, pool_size);
gw_assert(pool != NULL);
/*
* XXX should a failing connect throw panic?!
*/
if (dbpool_conn_count(pool) == 0)
panic(0,"SQLBOX: MySQL: database pool has no connections!");
octstr_destroy(mysql_id);
res = gw_malloc(sizeof(struct server_type));
gw_assert(res != NULL);
res->type = octstr_create("MySQL");
res->sql_enter = sqlbox_configure_mysql;
res->sql_leave = mysql_leave;
res->sql_fetch_msg = mysql_fetch_msg;
res->sql_save_msg = mysql_save_msg;
return res;
}
struct dlr_storage *dlr_init_mongodb(Cfg *cfg)
{
CfgGroup *grp;
List *grplist;
Octstr *mongodb_host, *mongodb_user, *mongodb_pass, *mongodb_db, *mongodb_id;
long pool_size;
long mongodb_port = 27017;
DBConf *db_conf = NULL;
int found;
if ((grp = cfg_get_single_group(cfg, octstr_imm("dlr-db"))) == NULL) {
panic(0, "DLR: MongoDB: group 'dlr-db' is not specified!");
}
if (!(mongodb_id = cfg_get(grp, octstr_imm("id")))) {
panic(0, "DLR: MongoDB: directive 'id' is not specified!");
}
/* initialize database fields */
fields = dlr_db_fields_create(grp);
gw_assert(fields != NULL);
grplist = cfg_get_multi_group(cfg, octstr_imm("mongodb-connection"));
found = 0;
while (grplist && (grp = gwlist_extract_first(grplist)) != NULL) {
Octstr *p = cfg_get(grp, octstr_imm("id"));
if (p != NULL && octstr_compare(p, mongodb_id) == 0) {
found = 1;
}
if (p != NULL) {
octstr_destroy(p);
}
if (found == 1) {
break;
}
}
gwlist_destroy(grplist, NULL);
if (found == 0) {
panic(0, "DLR: MongoDB: connection settings for id '%s' are not specified!",
octstr_get_cstr(mongodb_id));
}
if (!(mongodb_host = cfg_get(grp, octstr_imm("host")))) {
panic(0, "DLR: MongoDB: directive 'host' is not specified!");
}
if (!(mongodb_db = cfg_get(grp, octstr_imm("database")))) {
panic(0, "DLR: MongoDB: directive 'database' is not specified!");
}
/* Keep a global reference to the database and table */
mongodb_database = octstr_get_cstr(mongodb_db);
mongodb_table = octstr_get_cstr(fields->table);
mongodb_namespace = (char *)gw_malloc(strlen(mongodb_database) + strlen(mongodb_table) + 2); /* . and \0 */
sprintf(mongodb_namespace, "%s.%s", mongodb_database, mongodb_table);
mongodb_user = cfg_get(grp, octstr_imm("username"));
mongodb_pass = cfg_get(grp, octstr_imm("password"));
cfg_get_integer(&mongodb_port, grp, octstr_imm("port")); /* optional */
if (cfg_get_integer(&pool_size, grp, octstr_imm("max-connections")) == -1) {
pool_size = 1;
}
/* ok we are ready to create dbpool */
db_conf = gw_malloc(sizeof(*db_conf));
gw_assert(db_conf != NULL);
db_conf->mongodb = gw_malloc(sizeof(MongoDBConf));
gw_assert(db_conf->mongodb != NULL);
db_conf->mongodb->host = mongodb_host;
db_conf->mongodb->port = mongodb_port;
db_conf->mongodb->username = mongodb_user;
db_conf->mongodb->password = mongodb_pass;
db_conf->mongodb->database = mongodb_db;
pool = dbpool_create(DBPOOL_MONGODB, db_conf, pool_size);
gw_assert(pool != NULL);
if (dbpool_conn_count(pool) == 0) {
panic(0, "DLR: MongoDB: Could not establish connection(s).");
}
octstr_destroy(mongodb_id);
return &handles;
}
static Cfg *init_bearerbox(Cfg *cfg)
{
CfgGroup *grp;
Octstr *log, *val;
long loglevel;
int lf, m;
#ifdef HAVE_LIBSSL
Octstr *ssl_server_cert_file;
Octstr *ssl_server_key_file;
int ssl_enabled = 0;
#endif /* HAVE_LIBSSL */
/* defaults: use localtime and markers for access-log */
lf = m = 1;
grp = cfg_get_single_group(cfg, octstr_imm("core"));
log = cfg_get(grp, octstr_imm("log-file"));
if (log != NULL) {
if (cfg_get_integer(&loglevel, grp, octstr_imm("log-level")) == -1)
loglevel = 0;
log_open(octstr_get_cstr(log), loglevel, GW_NON_EXCL);
octstr_destroy(log);
}
if (check_config(cfg) == -1)
panic(0, "Cannot start with corrupted configuration");
/* determine which timezone we use for access logging */
if ((log = cfg_get(grp, octstr_imm("access-log-time"))) != NULL) {
lf = (octstr_case_compare(log, octstr_imm("gmt")) == 0) ? 0 : 1;
octstr_destroy(log);
}
/* should predefined markers be used, ie. prefixing timestamp */
cfg_get_bool(&m, grp, octstr_imm("access-log-clean"));
/* custom access-log format */
if ((log = cfg_get(grp, octstr_imm("access-log-format"))) != NULL) {
bb_alog_init(log);
octstr_destroy(log);
}
/* open access-log file */
if ((log = cfg_get(grp, octstr_imm("access-log"))) != NULL) {
alog_open(octstr_get_cstr(log), lf, m ? 0 : 1);
octstr_destroy(log);
}
log = cfg_get(grp, octstr_imm("store-file"));
/* initialize the store file */
if (log != NULL) {
store_init(log);
octstr_destroy(log);
}
conn_config_ssl (grp);
/*
* Make sure we have "ssl-server-cert-file" and "ssl-server-key-file" specified
* in the core group since we need it to run SSL-enabled internal box
* connections configured via "smsbox-port-ssl = yes" and "wapbox-port-ssl = yes".
* Check only these, because for "admin-port-ssl" and "sendsms-port-ssl" for the
* SSL-enabled HTTP servers are probed within gw/bb_http.c:httpadmin_start()
*/
#ifdef HAVE_LIBSSL
ssl_server_cert_file = cfg_get(grp, octstr_imm("ssl-server-cert-file"));
ssl_server_key_file = cfg_get(grp, octstr_imm("ssl-server-key-file"));
if (ssl_server_cert_file != NULL && ssl_server_key_file != NULL) {
/* we are fine, at least files are specified in the configuration */
} else {
cfg_get_bool(&ssl_enabled, grp, octstr_imm("smsbox-port-ssl"));
cfg_get_bool(&ssl_enabled, grp, octstr_imm("wapbox-port-ssl"));
if (ssl_enabled) {
panic(0, "You MUST specify cert and key files within core group for SSL-enabled inter-box connections!");
}
}
octstr_destroy(ssl_server_cert_file);
octstr_destroy(ssl_server_key_file);
#endif /* HAVE_LIBSSL */
/* if all seems to be OK by the first glimpse, real start-up */
outgoing_sms = list_create();
incoming_sms = list_create();
outgoing_wdp = list_create();
incoming_wdp = list_create();
outgoing_sms_counter = counter_create();
incoming_sms_counter = counter_create();
outgoing_wdp_counter = counter_create();
incoming_wdp_counter = counter_create();
status_mutex = mutex_create();
setup_signal_handlers();
/* http-admin is REQUIRED */
httpadmin_start(cfg);
if (cfg_get_integer(&max_incoming_sms_qlength, grp,
octstr_imm("maximum-queue-length")) == -1)
max_incoming_sms_qlength = -1;
else {
warning(0, "Option 'maximum-queue-length' is deprecated! Please use"
" 'sms-incoming-queue-limit' instead!");
}
if (max_incoming_sms_qlength == -1 &&
cfg_get_integer(&max_incoming_sms_qlength, grp,
octstr_imm("sms-incoming-queue-limit")) == -1)
max_incoming_sms_qlength = -1;
#ifndef NO_SMS
{
List *list;
list = cfg_get_multi_group(cfg, octstr_imm("smsc"));
if (list != NULL) {
start_smsc(cfg);
list_destroy(list, NULL);
}
}
#endif
#ifndef NO_WAP
grp = cfg_get_single_group(cfg, octstr_imm("core"));
val = cfg_get(grp, octstr_imm("wdp-interface-name"));
if (val != NULL && octstr_len(val) > 0)
start_udp(cfg);
octstr_destroy(val);
if (cfg_get_single_group(cfg, octstr_imm("wapbox")) != NULL)
start_wap(cfg);
#endif
return cfg;
}
struct dlr_storage *dlr_init_pgsql(Cfg *cfg)
{
CfgGroup *grp;
List *grplist;
Octstr *pgsql_host, *pgsql_user, *pgsql_pass, *pgsql_db, *pgsql_id;
long pgsql_port = 0;
Octstr *p = NULL;
long pool_size;
DBConf *db_conf = NULL;
/*
* check for all mandatory directives that specify the field names
* of the table used
*/
if (!(grp = cfg_get_single_group(cfg, octstr_imm("dlr-db"))))
panic(0, "DLR: PgSQL: group 'dlr-db' is not specified!");
if (!(pgsql_id = cfg_get(grp, octstr_imm("id"))))
panic(0, "DLR: PgSQL: directive 'id' is not specified!");
fields = dlr_db_fields_create(grp);
gw_assert(fields != NULL);
/*
* now grap the required information from the 'pgsql-connection' group
* with the pgsql-id we just obtained
*
* we have to loop through all available PostgreSQL connection definitions
* and search for the one we are looking for
*/
grplist = cfg_get_multi_group(cfg, octstr_imm("pgsql-connection"));
while (grplist && (grp = gwlist_extract_first(grplist)) != NULL) {
p = cfg_get(grp, octstr_imm("id"));
if (p != NULL && octstr_compare(p, pgsql_id) == 0) {
goto found;
}
if (p != NULL)
octstr_destroy(p);
}
panic(0, "DLR: PgSQL: connection settings for id '%s' are not specified!",
octstr_get_cstr(pgsql_id));
found:
octstr_destroy(p);
gwlist_destroy(grplist, NULL);
if (cfg_get_integer(&pool_size, grp, octstr_imm("max-connections")) == -1 || pool_size == 0)
pool_size = 1;
if (!(pgsql_host = cfg_get(grp, octstr_imm("host"))))
panic(0, "DLR: PgSQL: directive 'host' is not specified!");
if (!(pgsql_user = cfg_get(grp, octstr_imm("username"))))
panic(0, "DLR: PgSQL: directive 'username' is not specified!");
if (!(pgsql_pass = cfg_get(grp, octstr_imm("password"))))
panic(0, "DLR: PgSQL: directive 'password' is not specified!");
if (!(pgsql_db = cfg_get(grp, octstr_imm("database"))))
panic(0, "DLR: PgSQL: directive 'database' is not specified!");
cfg_get_integer(&pgsql_port, grp, octstr_imm("port")); /* optional */
/*
* ok, ready to connect to the database
*/
db_conf = gw_malloc(sizeof(DBConf));
gw_assert(db_conf != NULL);
db_conf->pgsql = gw_malloc(sizeof(PgSQLConf));
gw_assert(db_conf->pgsql != NULL);
db_conf->pgsql->host = pgsql_host;
db_conf->pgsql->port = pgsql_port;
db_conf->pgsql->username = pgsql_user;
db_conf->pgsql->password = pgsql_pass;
db_conf->pgsql->database = pgsql_db;
pool = dbpool_create(DBPOOL_PGSQL, db_conf, pool_size);
gw_assert(pool != NULL);
/*
* XXX should a failing connect throw panic?!
*/
if (dbpool_conn_count(pool) == 0)
panic(0,"DLR: PgSQL: database pool has no connections!");
octstr_destroy(pgsql_id);
return &handles;
}
/*
* Read all reloadable configuration directives
*/
static void config_reload(int reload) {
Cfg *cfg;
CfgGroup *grp;
List *groups;
long map_url_max;
Octstr *s;
long i;
long new_value;
int new_bool;
Octstr *http_proxy_host;
Octstr *http_interface_name;
long http_proxy_port;
int http_proxy_ssl = 0;
List *http_proxy_exceptions;
Octstr *http_proxy_username;
Octstr *http_proxy_password;
Octstr *http_proxy_exceptions_regex;
int warn_map_url = 0;
/* XXX TO-DO: if(reload) implement wapbox.suspend/mutex.lock */
if (reload)
debug("config_reload", 0, "Reloading configuration");
/*
* NOTE: we could lstat config file and only reload if it was modified,
* but as we have a include directive, we don't know every file's
* timestamp at this point
*/
cfg = cfg_create(config_filename);
if (cfg_read(cfg) == -1) {
warning(0, "Couldn't %sload configuration from `%s'.",
(reload ? "re" : ""), octstr_get_cstr(config_filename));
return;
}
grp = cfg_get_single_group(cfg, octstr_imm("core"));
http_proxy_host = cfg_get(grp, octstr_imm("http-proxy-host"));
http_proxy_port = -1;
cfg_get_integer(&http_proxy_port, grp, octstr_imm("http-proxy-port"));
#ifdef HAVE_LIBSSL
cfg_get_bool(&http_proxy_ssl, grp, octstr_imm("http-proxy-ssl"));
#endif /* HAVE_LIBSSL */
http_proxy_username = cfg_get(grp, octstr_imm("http-proxy-username"));
http_proxy_password = cfg_get(grp, octstr_imm("http-proxy-password"));
http_proxy_exceptions = cfg_get_list(grp, octstr_imm("http-proxy-exceptions"));
http_proxy_exceptions_regex = cfg_get(grp, octstr_imm("http-proxy-exceptions-regex"));
if (http_proxy_host != NULL && http_proxy_port > 0) {
http_use_proxy(http_proxy_host, http_proxy_port, http_proxy_ssl,
http_proxy_exceptions, http_proxy_username,
http_proxy_password, http_proxy_exceptions_regex);
}
octstr_destroy(http_proxy_host);
octstr_destroy(http_proxy_username);
octstr_destroy(http_proxy_password);
octstr_destroy(http_proxy_exceptions_regex);
gwlist_destroy(http_proxy_exceptions, octstr_destroy_item);
grp = cfg_get_single_group(cfg, octstr_imm("wapbox"));
if (grp == NULL) {
warning(0, "No 'wapbox' group in configuration.");
return;
}
if (cfg_get_integer(&new_value, grp, octstr_imm("log-level")) != -1) {
reload_int(reload, octstr_imm("log level"), &logfilelevel, &new_value);
logfilelevel = new_value;
log_set_log_level(new_value);
}
/* Configure interface name for http requests */
http_interface_name = cfg_get(grp, octstr_imm("http-interface-name"));
if (http_interface_name != NULL) {
http_set_interface(http_interface_name);
octstr_destroy(http_interface_name);
}
/*
* users may define 'smart-errors' to have WML decks returned with
* error information instead of signaling using the HTTP reply codes
*/
cfg_get_bool(&new_bool, grp, octstr_imm("smart-errors"));
reload_bool(reload, octstr_imm("smart error messaging"), &wsp_smart_errors, &new_bool);
/* decide if our XML parser within WML compiler is strict or relaxed */
cfg_get_bool(&new_bool, grp, octstr_imm("wml-strict"));
reload_bool(reload, octstr_imm("XML within WML has to be strict"),
&wml_xml_strict, &new_bool);
if (!wml_xml_strict)
warning(0, "'wml-strict' config directive has been set to no, "
"this may make you vulnerable against XML bogus input.");
if (cfg_get_bool(&new_bool, grp, octstr_imm("concatenation")) == 1)
reload_bool(reload, octstr_imm("concatenation"), &concatenation, &new_bool);
else
concatenation = 1;
if (cfg_get_integer(&new_value, grp, octstr_imm("max-messages")) != -1) {
max_messages = new_value;
reload_int(reload, octstr_imm("max messages"), &max_messages, &new_value);
}
/* configure URL mappings */
map_url_max = -1;
cfg_get_integer(&map_url_max, grp, octstr_imm("map-url-max"));
if (map_url_max > 0)
warn_map_url = 1;
if (reload) { /* clear old map */
wap_map_destroy();
wap_map_user_destroy();
}
if ((device_home = cfg_get(grp, octstr_imm("device-home"))) != NULL) {
wap_map_url_config_device_home(octstr_get_cstr(device_home));
}
if ((s = cfg_get(grp, octstr_imm("map-url"))) != NULL) {
warn_map_url = 1;
wap_map_url_config(octstr_get_cstr(s));
octstr_destroy(s);
}
debug("wap", 0, "map_url_max = %ld", map_url_max);
for (i = 0; i <= map_url_max; i++) {
Octstr *name;
name = octstr_format("map-url-%d", i);
if ((s = cfg_get(grp, name)) != NULL)
wap_map_url_config(octstr_get_cstr(s));
octstr_destroy(name);
}
/* warn the user that he/she should use the new wap-url-map groups */
if (warn_map_url)
warning(0, "'map-url' config directive and related are deprecated, "
"please use wap-url-map group");
/* configure wap-url-map */
groups = cfg_get_multi_group(cfg, octstr_imm("wap-url-map"));
while (groups && (grp = gwlist_extract_first(groups)) != NULL) {
Octstr *name, *url, *map_url, *send_msisdn_query;
Octstr *send_msisdn_header, *send_msisdn_format;
int accept_cookies;
name = cfg_get(grp, octstr_imm("name"));
url = cfg_get(grp, octstr_imm("url"));
map_url = cfg_get(grp, octstr_imm("map-url"));
send_msisdn_query = cfg_get(grp, octstr_imm("send-msisdn-query"));
send_msisdn_header = cfg_get(grp, octstr_imm("send-msisdn-header"));
send_msisdn_format = cfg_get(grp, octstr_imm("send-msisdn-format"));
accept_cookies = -1;
cfg_get_bool(&accept_cookies, grp, octstr_imm("accept-cookies"));
wap_map_add_url(name, url, map_url, send_msisdn_query, send_msisdn_header,
send_msisdn_format, accept_cookies);
info(0, "Added wap-url-map <%s> with url <%s>, map-url <%s>, "
"send-msisdn-query <%s>, send-msisdn-header <%s>, "
"send-msisdn-format <%s>, accept-cookies <%s>",
octstr_get_cstr(name), octstr_get_cstr(url),
octstr_get_cstr(map_url), octstr_get_cstr(send_msisdn_query),
octstr_get_cstr(send_msisdn_header),
octstr_get_cstr(send_msisdn_format), (accept_cookies ? "yes" : "no"));
}
gwlist_destroy(groups, NULL);
/* configure wap-user-map */
groups = cfg_get_multi_group(cfg, octstr_imm("wap-user-map"));
while (groups && (grp = gwlist_extract_first(groups)) != NULL) {
Octstr *name, *user, *pass, *msisdn;
name = cfg_get(grp, octstr_imm("name"));
user = cfg_get(grp, octstr_imm("user"));
pass = cfg_get(grp, octstr_imm("pass"));
msisdn = cfg_get(grp, octstr_imm("msisdn"));
wap_map_add_user(name, user, pass, msisdn);
info(0,"Added wap-user-map <%s> with credentials <%s:%s> "
"and MSISDN <%s>", octstr_get_cstr(name),
octstr_get_cstr(user), octstr_get_cstr(pass),
octstr_get_cstr(msisdn));
}
gwlist_destroy(groups, NULL);
cfg_destroy(cfg);
/* XXX TO-DO: if(reload) implement wapbox.resume/mutex.unlock */
}
struct dlr_storage *dlr_init_sdb(Cfg* cfg)
{
CfgGroup *grp;
List *grplist;
Octstr *sdb_url, *sdb_id;
Octstr *p = NULL;
long pool_size;
DBConf *db_conf = NULL;
/*
* check for all mandatory directives that specify the field names
* of the used table
*/
if (!(grp = cfg_get_single_group(cfg, octstr_imm("dlr-db"))))
panic(0, "DLR: SDB: group 'dlr-db' is not specified!");
if (!(sdb_id = cfg_get(grp, octstr_imm("id"))))
panic(0, "DLR: SDB: directive 'id' is not specified!");
fields = dlr_db_fields_create(grp);
gw_assert(fields != NULL);
/*
* now grap the required information from the 'mysql-connection' group
* with the sdb-id we just obtained
*
* we have to loop through all available SDB connection definitions
* and search for the one we are looking for
*/
grplist = cfg_get_multi_group(cfg, octstr_imm("sdb-connection"));
while (grplist && (grp = gwlist_extract_first(grplist)) != NULL) {
p = cfg_get(grp, octstr_imm("id"));
if (p != NULL && octstr_compare(p, sdb_id) == 0) {
goto found;
}
if (p != NULL) octstr_destroy(p);
}
panic(0, "DLR: SDB: connection settings for id '%s' are not specified!",
octstr_get_cstr(sdb_id));
found:
octstr_destroy(p);
gwlist_destroy(grplist, NULL);
if (cfg_get_integer(&pool_size, grp, octstr_imm("max-connections")) == -1 || pool_size == 0)
pool_size = 1;
if (!(sdb_url = cfg_get(grp, octstr_imm("url"))))
panic(0, "DLR: SDB: directive 'url' is not specified!");
if (octstr_search(sdb_url, octstr_imm("oracle:"), 0) == 0)
sdb_conn_type = SDB_ORACLE;
else if (octstr_search(sdb_url, octstr_imm("mysql:"), 0) == 0) {
warning(0, "DLR[sdb]: Please use native MySQL support, instead of libsdb.");
sdb_conn_type = SDB_MYSQL;
}
else if (octstr_search(sdb_url, octstr_imm("postgres:"), 0) == 0) {
sdb_conn_type = SDB_POSTGRES;
}
else
sdb_conn_type = SDB_OTHER;
/*
* ok, ready to connect
*/
info(0,"Connecting to sdb resource <%s>.", octstr_get_cstr(sdb_url));
db_conf = gw_malloc(sizeof(DBConf));
gw_assert(db_conf != NULL);
db_conf->sdb = gw_malloc(sizeof(SDBConf));
gw_assert(db_conf->sdb != NULL);
db_conf->sdb->url = sdb_url;
pool = dbpool_create(DBPOOL_SDB, db_conf, pool_size);
gw_assert(pool != NULL);
/*
* XXX should a failing connect throw panic?!
*/
if (dbpool_conn_count(pool) == 0)
panic(0,"DLR: SDB: database pool has no connections!");
return &handles;
}
struct server_type *sqlbox_init_oracle(Cfg* cfg)
{
CfgGroup *grp;
List *grplist;
Octstr *oracle_user, *oracle_pass, *oracle_tnsname, *oracle_id;
Octstr *p = NULL;
long pool_size;
DBConf *db_conf = NULL;
struct server_type *res = NULL;
/*
* check for all mandatory directives that specify the field names
* of the used Oracle table
*/
if (!(grp = cfg_get_single_group(cfg, octstr_imm("sqlbox"))))
panic(0, "SQLBOX: Oracle: group 'sqlbox' is not specified!");
if (!(oracle_id = cfg_get(grp, octstr_imm("id"))))
panic(0, "SQLBOX: Oracle: directive 'id' is not specified!");
/*
* now grap the required information from the 'oracle-connection' group
* with the oracle-id we just obtained
*
* we have to loop through all available Oracle connection definitions
* and search for the one we are looking for
*/
grplist = cfg_get_multi_group(cfg, octstr_imm("oracle-connection"));
while (grplist && (grp = (CfgGroup *)gwlist_extract_first(grplist)) != NULL) {
p = cfg_get(grp, octstr_imm("id"));
if (p != NULL && octstr_compare(p, oracle_id) == 0) {
goto found;
}
if (p != NULL) octstr_destroy(p);
}
panic(0, "SQLBOX: Oracle: connection settings for id '%s' are not specified!",
octstr_get_cstr(oracle_id));
found:
octstr_destroy(p);
gwlist_destroy(grplist, NULL);
if (cfg_get_integer(&pool_size, grp, octstr_imm("max-connections")) == -1 || pool_size == 0)
pool_size = 1;
if (!(oracle_user = cfg_get(grp, octstr_imm("username"))))
panic(0, "SQLBOX: Oracle: directive 'username' is not specified!");
if (!(oracle_pass = cfg_get(grp, octstr_imm("password"))))
panic(0, "SQLBOX: Oracle: directive 'password' is not specified!");
if (!(oracle_tnsname = cfg_get(grp, octstr_imm("tnsname"))))
panic(0, "SQLBOX: Oracle: directive 'tnsname' is not specified!");
/*
* ok, ready to connect to Oracle
*/
db_conf = gw_malloc(sizeof(DBConf));
gw_assert(db_conf != NULL);
db_conf->oracle = gw_malloc(sizeof(OracleConf));
gw_assert(db_conf->oracle != NULL);
db_conf->oracle->username = oracle_user;
db_conf->oracle->password = oracle_pass;
db_conf->oracle->tnsname = oracle_tnsname;
pool = dbpool_create(DBPOOL_ORACLE, db_conf, pool_size);
gw_assert(pool != NULL);
/*
* XXX should a failing connect throw panic?!
*/
if (dbpool_conn_count(pool) == 0)
panic(0,"SQLBOX: Oracle: database pool has no connections!");
octstr_destroy(oracle_id);
res = gw_malloc(sizeof(struct server_type));
gw_assert(res != NULL);
res->type = octstr_create("Oracle");
res->sql_enter = sqlbox_configure_oracle;
res->sql_leave = oracle_leave;
res->sql_fetch_msg = oracle_fetch_msg;
res->sql_save_msg = oracle_save_msg;
return res;
}
