int parse_charset(Octstr *os)
{
Octstr *charset = NULL;
Octstr *number = NULL;
int i, j, cut = 0, ret = 0;
gw_assert(os != NULL);
charset = octstr_duplicate(os);
/* The charset might be in lower case, so... */
octstr_convert_range(charset, 0, octstr_len(charset), toupper);
/*
* The character set is handled in two parts to make things easier.
* The cutting.
*/
if ((cut = octstr_search_char(charset, '_', 0)) > 0) {
number = octstr_copy(charset, cut + 1, (octstr_len(charset) - (cut + 1)));
octstr_truncate(charset, cut);
}
else if ((cut = octstr_search_char(charset, '-', 0)) > 0) {
number = octstr_copy(charset, cut + 1, (octstr_len(charset) - (cut + 1)));
octstr_truncate(charset, cut);
}
/* And table search. */
for (i = 0; character_sets[i].charset != NULL; i++)
if (octstr_str_compare(charset, character_sets[i].charset) == 0) {
for (j = i; octstr_str_compare(charset,
character_sets[j].charset) == 0; j++)
if (octstr_str_compare(number, character_sets[j].nro) == 0) {
ret = character_sets[j].MIBenum;
break;
}
break;
}
/* UTF-8 is the default value */
if (character_sets[i].charset == NULL)
ret = character_sets[i-1].MIBenum;
octstr_destroy(number);
octstr_destroy(charset);
return ret;
}
/*
* Find the appropriate translation
*/
static URLTranslation *find_translation(URLTranslationList *trans,
List *words, Octstr *smsc, Octstr *sender, Octstr *receiver, int *reject)
{
Octstr *keyword;
int i, n;
URLTranslation *t;
List *list;
n = list_len(words);
if (n == 0)
return NULL;
n = 1;
keyword = list_get(words, 0);
keyword = octstr_duplicate(keyword);
octstr_convert_range(keyword, 0, octstr_len(keyword), tolower);
list = get_matching_translations(trans, keyword);
/*
list now contains all translations where the keyword of the sms matches the
pattern defined by the tranlsation's keyword
*/
t = NULL;
for (i = 0; i < list_len(list); ++i) {
t = list_get(list, i);
if (check_allowed_translation(t, smsc, sender, receiver, reject) == 0
&& check_num_args(t, words) == 0)
break;
t = NULL;
}
/* Only return reject if there's only blacklisted smsc's */
if(t != NULL)
*reject = 0;
octstr_destroy(keyword);
list_destroy(list, NULL);
return t;
}
/*
* Create one URLTranslation. Return NULL for failure, pointer to it for OK.
*/
static URLTranslation *create_onetrans(CfgGroup *grp)
{
URLTranslation *ot;
Octstr *aliases, *url, *post_url, *post_xml, *text, *file, *exec;
Octstr *accepted_smsc, *forced_smsc, *default_smsc;
Octstr *grpname, *sendsms_user, *sms_service;
int is_sms_service;
Octstr *accepted_smsc_regex;
Octstr *allowed_prefix_regex;
Octstr *denied_prefix_regex;
Octstr *allowed_receiver_prefix_regex;
Octstr *denied_receiver_prefix_regex;
Octstr *white_list_regex;
Octstr *black_list_regex;
Octstr *keyword_regex;
Octstr *os;
grpname = cfg_get_group_name(grp);
if (grpname == NULL)
return NULL;
sms_service = octstr_imm("sms-service");
sendsms_user = octstr_imm("sendsms-user");
if (octstr_compare(grpname, sms_service) == 0)
is_sms_service = 1;
else if (octstr_compare(grpname, sendsms_user) == 0)
is_sms_service = 0;
else {
octstr_destroy(grpname);
return NULL;
}
octstr_destroy(grpname);
ot = gw_malloc(sizeof(URLTranslation));
ot->keyword = NULL;
ot->aliases = NULL;
ot->pattern = NULL;
ot->prefix = NULL;
ot->suffix = NULL;
ot->faked_sender = NULL;
ot->default_sender = NULL;
ot->split_chars = NULL;
ot->split_suffix = NULL;
ot->footer = NULL;
ot->header = NULL;
ot->name = NULL;
ot->username = NULL;
ot->password = NULL;
ot->omit_empty = 0;
ot->accepted_smsc = NULL;
ot->forced_smsc = NULL;
ot->default_smsc = NULL;
ot->allow_ip = NULL;
ot->deny_ip = NULL;
ot->allowed_prefix = NULL;
ot->denied_prefix = NULL;
ot->allowed_recv_prefix = NULL;
ot->denied_recv_prefix = NULL;
ot->white_list = NULL;
ot->black_list = NULL;
ot->keyword_regex = NULL;
ot->accepted_smsc_regex = NULL;
ot->allowed_prefix_regex = NULL;
ot->denied_prefix_regex = NULL;
ot->allowed_receiver_prefix_regex = NULL;
ot->denied_receiver_prefix_regex = NULL;
ot->white_list_regex = NULL;
ot->black_list_regex = NULL;
if (is_sms_service) {
cfg_get_bool(&ot->catch_all, grp, octstr_imm("catch-all"));
ot->dlr_url = cfg_get(grp, octstr_imm("dlr-url"));
url = cfg_get(grp, octstr_imm("get-url"));
if (url == NULL)
url = cfg_get(grp, octstr_imm("url"));
post_url = cfg_get(grp, octstr_imm("post-url"));
post_xml = cfg_get(grp, octstr_imm("post-xml"));
file = cfg_get(grp, octstr_imm("file"));
text = cfg_get(grp, octstr_imm("text"));
exec = cfg_get(grp, octstr_imm("exec"));
if (url != NULL) {
ot->type = TRANSTYPE_GET_URL;
ot->pattern = url;
} else if (post_url != NULL) {
ot->type = TRANSTYPE_POST_URL;
ot->pattern = post_url;
ot->catch_all = 1;
} else if (post_xml != NULL) {
ot->type = TRANSTYPE_POST_XML;
ot->pattern = post_xml;
ot->catch_all = 1;
} else if (file != NULL) {
ot->type = TRANSTYPE_FILE;
ot->pattern = file;
} else if (text != NULL) {
ot->type = TRANSTYPE_TEXT;
ot->pattern = text;
} else if (exec != NULL) {
ot->type = TRANSTYPE_EXECUTE;
ot->pattern = exec;
} else {
error(0, "Configuration group `sms-service' "
"did not specify get-url, post-url, post-xml, file or text.");
goto error;
}
ot->keyword = cfg_get(grp, octstr_imm("keyword"));
if (ot->keyword == NULL) {
error(0, "Group 'sms-service' must include 'keyword'.");
goto error;
}
octstr_convert_range(ot->keyword, 0, octstr_len(ot->keyword),
tolower);
keyword_regex = cfg_get(grp, octstr_imm("keyword-regex"));
if (keyword_regex != NULL) {
if ((ot->keyword_regex = gw_regex_comp(keyword_regex, REG_EXTENDED)) == NULL)
panic(0, "Could not compile pattern '%s'", octstr_get_cstr(keyword_regex));
octstr_destroy(keyword_regex);
}
ot->name = cfg_get(grp, octstr_imm("name"));
if (ot->name == NULL)
ot->name = octstr_duplicate(ot->keyword);
aliases = cfg_get(grp, octstr_imm("aliases"));
if (aliases == NULL)
ot->aliases = list_create();
else {
long i;
Octstr *os;
ot->aliases = octstr_split(aliases, octstr_imm(";"));
octstr_destroy(aliases);
for (i = 0; i < list_len(ot->aliases); ++i) {
os = list_get(ot->aliases, i);
octstr_convert_range(os, 0, octstr_len(os), tolower);
}
}
accepted_smsc = cfg_get(grp, octstr_imm("accepted-smsc"));
if (accepted_smsc != NULL) {
ot->accepted_smsc = octstr_split(accepted_smsc, octstr_imm(";"));
octstr_destroy(accepted_smsc);
}
accepted_smsc_regex = cfg_get(grp, octstr_imm("accepted-smsc-regex"));
if (accepted_smsc_regex != NULL) {
if ( (ot->accepted_smsc_regex = gw_regex_comp(accepted_smsc_regex, REG_EXTENDED)) == NULL)
panic(0, "Could not compile pattern '%s'", octstr_get_cstr(accepted_smsc_regex));
octstr_destroy(accepted_smsc_regex);
}
cfg_get_bool(&ot->assume_plain_text, grp,
octstr_imm("assume-plain-text"));
cfg_get_bool(&ot->accept_x_kannel_headers, grp,
octstr_imm("accept-x-kannel-headers"));
cfg_get_bool(&ot->strip_keyword, grp, octstr_imm("strip-keyword"));
cfg_get_bool(&ot->send_sender, grp, octstr_imm("send-sender"));
ot->prefix = cfg_get(grp, octstr_imm("prefix"));
ot->suffix = cfg_get(grp, octstr_imm("suffix"));
ot->allowed_recv_prefix = cfg_get(grp, octstr_imm("allowed-receiver-prefix"));
allowed_receiver_prefix_regex = cfg_get(grp, octstr_imm("allowed-receiver-prefix-regex"));
if (allowed_receiver_prefix_regex != NULL) {
if ((ot->allowed_receiver_prefix_regex = gw_regex_comp(allowed_receiver_prefix_regex, REG_EXTENDED)) == NULL)
panic(0, "Could not compile pattern '%s'", octstr_get_cstr(allowed_receiver_prefix_regex));
octstr_destroy(allowed_receiver_prefix_regex);
}
ot->allowed_recv_prefix = cfg_get(grp, octstr_imm("allowed-receiver-prefix"));
ot->denied_recv_prefix = cfg_get(grp, octstr_imm("denied-receiver-prefix"));
denied_receiver_prefix_regex = cfg_get(grp, octstr_imm("denied-receiver-prefix-regex"));
if (denied_receiver_prefix_regex != NULL) {
if ((ot->denied_receiver_prefix_regex = gw_regex_comp(denied_receiver_prefix_regex, REG_EXTENDED)) == NULL)
panic(0, "Could not compile pattern '%s'",octstr_get_cstr(denied_receiver_prefix_regex));
octstr_destroy(denied_receiver_prefix_regex);
}
ot->args = count_occurences(ot->pattern, octstr_imm("%s"));
ot->args += count_occurences(ot->pattern, octstr_imm("%S"));
ot->has_catchall_arg =
(count_occurences(ot->pattern, octstr_imm("%r")) > 0) ||
(count_occurences(ot->pattern, octstr_imm("%a")) > 0);
} else {
ot->type = TRANSTYPE_SENDSMS;
ot->pattern = octstr_create("");
ot->args = 0;
ot->has_catchall_arg = 0;
ot->catch_all = 1;
ot->username = cfg_get(grp, octstr_imm("username"));
ot->password = cfg_get(grp, octstr_imm("password"));
ot->dlr_url = cfg_get(grp, octstr_imm("dlr-url"));
if (ot->password == NULL) {
error(0, "Password required for send-sms user");
goto error;
}
ot->name = cfg_get(grp, octstr_imm("name"));
if (ot->name == NULL)
ot->name = octstr_duplicate(ot->username);
forced_smsc = cfg_get(grp, octstr_imm("forced-smsc"));
default_smsc = cfg_get(grp, octstr_imm("default-smsc"));
if (forced_smsc != NULL) {
if (default_smsc != NULL) {
info(0, "Redundant default-smsc for send-sms user %s",
octstr_get_cstr(ot->username));
}
ot->forced_smsc = forced_smsc;
octstr_destroy(default_smsc);
} else if (default_smsc != NULL)
ot->default_smsc = default_smsc;
ot->deny_ip = cfg_get(grp, octstr_imm("user-deny-ip"));
ot->allow_ip = cfg_get(grp, octstr_imm("user-allow-ip"));
ot->default_sender = cfg_get(grp, octstr_imm("default-sender"));
}
ot->allowed_prefix = cfg_get(grp, octstr_imm("allowed-prefix"));
allowed_prefix_regex = cfg_get(grp, octstr_imm("allowed-prefix-regex"));
if (allowed_prefix_regex != NULL) {
if ((ot->allowed_prefix_regex = gw_regex_comp(allowed_prefix_regex, REG_EXTENDED)) == NULL)
panic(0, "Could not compile pattern '%s'", octstr_get_cstr(allowed_prefix_regex));
octstr_destroy(allowed_prefix_regex);
}
ot->denied_prefix = cfg_get(grp, octstr_imm("denied-prefix"));
denied_prefix_regex = cfg_get(grp, octstr_imm("denied-prefix-regex"));
if (denied_prefix_regex != NULL) {
if ((ot->denied_prefix_regex = gw_regex_comp(denied_prefix_regex, REG_EXTENDED)) == NULL)
panic(0, "Could not compile pattern '%s'", octstr_get_cstr(denied_prefix_regex));
octstr_destroy(denied_prefix_regex);
}
os = cfg_get(grp, octstr_imm("white-list"));
if (os != NULL) {
ot->white_list = numhash_create(octstr_get_cstr(os));
octstr_destroy(os);
}
white_list_regex = cfg_get(grp, octstr_imm("white-list-regex"));
if (white_list_regex != NULL) {
if ((ot->white_list_regex = gw_regex_comp(white_list_regex, REG_EXTENDED)) == NULL)
panic(0, "Could not compile pattern '%s'", octstr_get_cstr(white_list_regex));
octstr_destroy(white_list_regex);
}
os = cfg_get(grp, octstr_imm("black-list"));
if (os != NULL) {
ot->black_list = numhash_create(octstr_get_cstr(os));
octstr_destroy(os);
}
black_list_regex = cfg_get(grp, octstr_imm("black-list-regex"));
if (black_list_regex != NULL) {
if ((ot->black_list_regex = gw_regex_comp(black_list_regex, REG_EXTENDED)) == NULL)
panic(0, "Could not compile pattern '%s'", octstr_get_cstr(black_list_regex));
octstr_destroy(black_list_regex);
}
if (cfg_get_integer(&ot->max_messages, grp,
octstr_imm("max-messages")) == -1)
ot->max_messages = 1;
cfg_get_bool(&ot->concatenation, grp,
octstr_imm("concatenation"));
cfg_get_bool(&ot->omit_empty, grp,
octstr_imm("omit-empty"));
ot->header = cfg_get(grp, octstr_imm("header"));
ot->footer = cfg_get(grp, octstr_imm("footer"));
ot->faked_sender = cfg_get(grp, octstr_imm("faked-sender"));
ot->split_chars = cfg_get(grp, octstr_imm("split-chars"));
ot->split_suffix = cfg_get(grp, octstr_imm("split-suffix"));
if ( (ot->prefix == NULL && ot->suffix != NULL) ||
(ot->prefix != NULL && ot->suffix == NULL) ) {
warning(0, "Service <%s>: suffix and prefix are only used"
" if both are set.", octstr_get_cstr(ot->keyword));
}
if ((ot->prefix != NULL || ot->suffix != NULL) &&
ot->type != TRANSTYPE_GET_URL) {
warning(0, "Service <%s>: suffix and prefix are only used"
" if type is 'get-url'.", octstr_get_cstr(ot->keyword));
}
return ot;
error:
error(0, "Couldn't create a URLTranslation.");
destroy_onetrans(ot);
return NULL;
}
