static void format(char *buf, const char *fmt)
{
time_t t;
struct tm tm;
char *p, prefix[1024];
p = prefix;
if (markers) {
time(&t);
if (use_localtime)
tm = gw_localtime(t);
else
tm = gw_gmtime(t);
sprintf(p, "%04d-%02d-%02d %02d:%02d:%02d ",
tm.tm_year + 1900, tm.tm_mon + 1, tm.tm_mday,
tm.tm_hour, tm.tm_min, tm.tm_sec);
} else {
*p = '\0';
}
if (strlen(prefix) + strlen(fmt) > FORMAT_SIZE / 2) {
sprintf(buf, "%s <OUTPUT message too long>\n", prefix);
return;
}
sprintf(buf, "%s%s\n", prefix, fmt);
}
Octstr *date_format_http(unsigned long unixtime)
{
struct tm tm;
char buffer[30];
tm = gw_gmtime((time_t) unixtime);
/* Make sure gmtime gave us a good date. We check this to
* protect the sprintf call below, which might overflow its
* buffer if the field values are bad. */
if (tm.tm_wday < 0 || tm.tm_wday > 6 ||
tm.tm_mday < 0 || tm.tm_mday > 31 ||
tm.tm_mon < 0 || tm.tm_mon > 11 ||
tm.tm_year < 0 ||
tm.tm_hour < 0 || tm.tm_hour > 23 ||
tm.tm_min < 0 || tm.tm_min > 59 ||
tm.tm_sec < 0 || tm.tm_sec > 61) {
warning(0, "Bad date for timestamp %lu, cannot format.",
unixtime);
return NULL;
}
sprintf(buffer, "%s, %02d %s %04d %02d:%02d:%02d GMT",
wkday[tm.tm_wday], tm.tm_mday, monthname[tm.tm_mon],
tm.tm_year + 1900, tm.tm_hour, tm.tm_min, tm.tm_sec);
return octstr_create(buffer);
}
/* buf must be at least TIMESTAMP_MAXLEN bytes long. */
static void make_timestamp(unsigned char *buf, time_t fortime) {
/* Is there a thread-safe version of gmtime? */
struct tm tm = gw_gmtime(fortime);
sprintf(buf, "%02d%02d%02d%02d%02d%02d",
tm.tm_year % 100, tm.tm_mon + 1, tm.tm_mday,
tm.tm_hour, tm.tm_min, tm.tm_sec);
}
Octstr* date_create_iso(time_t unixtime)
{
struct tm tm;
tm = gw_gmtime(unixtime);
return octstr_format("%d-%02d-%02dT%02d:%02d:%02dZ",
tm.tm_year + 1900, tm.tm_mon + 1, tm.tm_mday, tm.tm_hour, tm.tm_min, tm.tm_sec);
}
static void format(char *buf, int level, const char *place, int e,
const char *fmt, int with_timestamp)
{
static char *tab[] = {
"DEBUG: ",
"INFO: ",
"WARNING: ",
"ERROR: ",
"PANIC: ",
"LOG: "
};
static int tab_size = sizeof(tab) / sizeof(tab[0]);
time_t t;
struct tm tm;
char *p, prefix[1024];
long tid, pid;
p = prefix;
if (with_timestamp) {
time(&t);
#if LOG_TIMESTAMP_LOCALTIME
tm = gw_localtime(t);
#else
tm = gw_gmtime(t);
#endif
sprintf(p, "%04d-%02d-%02d %02d:%02d:%02d ",
tm.tm_year + 1900, tm.tm_mon + 1, tm.tm_mday,
tm.tm_hour, tm.tm_min, tm.tm_sec);
p = strchr(p, '\0');
}
gwthread_self_ids(&tid, &pid);
sprintf(p, "[%ld] [%ld] ", pid, tid);
p = strchr(p, '\0');
if (level < 0 || level >= tab_size)
sprintf(p, "UNKNOWN: ");
else
sprintf(p, "%s", tab[level]);
p = strchr(p, '\0');
if (place != NULL && *place != '\0')
sprintf(p, "%s: ", place);
if (strlen(prefix) + strlen(fmt) > FORMAT_SIZE / 2) {
sprintf(buf, "%s <OUTPUT message too long>\n", prefix);
return;
}
if (e == 0)
sprintf(buf, "%s%s\n", prefix, fmt);
else
sprintf(buf, "%s%s\n%sSystem error %d: %s\n",
prefix, fmt, prefix, e, strerror(e));
}
static void status_cb(const Octstr *filename, void *d)
{
struct status *data = d;
struct tm tm;
char id[UUID_STR_LEN + 1];
Octstr *msg_s;
Msg *msg;
msg_s = octstr_read_file(octstr_get_cstr(filename));
msg = store_msg_unpack(msg_s);
octstr_destroy(msg_s);
if (msg == NULL)
return;
/* transform the time value */
#if LOG_TIMESTAMP_LOCALTIME
tm = gw_localtime(msg->sms.time);
#else
tm = gw_gmtime(msg->sms.time);
#endif
if (msg->sms.udhdata)
octstr_binary_to_hex(msg->sms.udhdata, 1);
if (msg->sms.msgdata &&
(msg->sms.coding == DC_8BIT || msg->sms.coding == DC_UCS2 ||
(msg->sms.coding == DC_UNDEF && msg->sms.udhdata)))
octstr_binary_to_hex(msg->sms.msgdata, 1);
uuid_unparse(msg->sms.id, id);
octstr_format_append(data->status, data->format,
id,
(msg->sms.sms_type == mo ? "MO" :
msg->sms.sms_type == mt_push ? "MT-PUSH" :
msg->sms.sms_type == mt_reply ? "MT-REPLY" :
msg->sms.sms_type == report_mo ? "DLR-MO" :
msg->sms.sms_type == report_mt ? "DLR-MT" : ""),
tm.tm_year + 1900, tm.tm_mon + 1, tm.tm_mday,
tm.tm_hour, tm.tm_min, tm.tm_sec,
(msg->sms.sender ? octstr_get_cstr(msg->sms.sender) : ""),
(msg->sms.receiver ? octstr_get_cstr(msg->sms.receiver) : ""),
(msg->sms.smsc_id ? octstr_get_cstr(msg->sms.smsc_id) : ""),
(msg->sms.boxc_id ? octstr_get_cstr(msg->sms.boxc_id) : ""),
(msg->sms.udhdata ? octstr_get_cstr(msg->sms.udhdata) : ""),
(msg->sms.msgdata ? octstr_get_cstr(msg->sms.msgdata) : ""));
msg_destroy(msg);
}
static void status_cb(Msg *msg, void *d)
{
struct status *data = d;
struct tm tm;
char id[UUID_STR_LEN + 1];
if (msg == NULL)
return;
/* transform the time value */
#if LOG_TIMESTAMP_LOCALTIME
tm = gw_localtime(msg->sms.time);
#else
tm = gw_gmtime(msg->sms.time);
#endif
uuid_unparse(msg->sms.id, id);
octstr_format_append(data->status, data->format,
id,
(msg->sms.sms_type == mo ? "MO" :
msg->sms.sms_type == mt_push ? "MT-PUSH" :
msg->sms.sms_type == mt_reply ? "MT-REPLY" :
msg->sms.sms_type == report_mo ? "DLR-MO" :
msg->sms.sms_type == report_mt ? "DLR-MT" : ""),
tm.tm_year + 1900, tm.tm_mon + 1, tm.tm_mday,
tm.tm_hour, tm.tm_min, tm.tm_sec,
(msg->sms.sender ? octstr_get_cstr(msg->sms.sender) : ""),
(msg->sms.receiver ? octstr_get_cstr(msg->sms.receiver) : ""),
(msg->sms.smsc_id ? octstr_get_cstr(msg->sms.smsc_id) : ""),
(msg->sms.boxc_id ? octstr_get_cstr(msg->sms.boxc_id) : ""),
msg->sms.mclass, msg->sms.coding, msg->sms.mwi, msg->sms.compress,
msg->sms.dlr_mask,
(msg->sms.udhdata ? msg->sms.udhdata : octstr_imm("")),
(msg->sms.msgdata ? msg->sms.msgdata : octstr_imm("")));
}
static Octstr *get_pattern(SMSCConn *conn, Msg *msg, const char *message)
{
int nextarg, j;
struct tm tm;
int num_words;
List *word_list;
Octstr *result;
const char *pattern;
Octstr *temp, *text, *udh;
size_t n;
long i;
text = msg->sms.msgdata ? octstr_duplicate(msg->sms.msgdata) : octstr_create("");
udh = msg->sms.udhdata ? octstr_duplicate(msg->sms.udhdata) : octstr_create("");
if ((msg->sms.coding == DC_8BIT || msg->sms.coding == DC_UCS2))
octstr_binary_to_hex(text, 1);
else
octstr_convert_printable(text);
octstr_binary_to_hex(udh, 1);
if (octstr_len(text)) {
word_list = octstr_split_words(text);
num_words = gwlist_len(word_list);
} else {
word_list = gwlist_create();
num_words = 0;
}
result = octstr_create("");
pattern = octstr_get_cstr(custom_log_format);
nextarg = 1;
while(*pattern != '\0') {
n = strcspn(pattern, "%");
octstr_append_data(result, pattern, n);
pattern += n;
gw_assert(*pattern == '%' || *pattern == '\0');
if (*pattern == '\0')
break;
pattern++;
switch (*pattern) {
case 'k':
if (num_words <= 0)
break;
octstr_append(result, gwlist_get(word_list, 0));
break;
case 's':
if (nextarg >= num_words)
break;
octstr_append(result, gwlist_get(word_list, nextarg));
++nextarg;
break;
case 'S':
if (nextarg >= num_words)
break;
temp = gwlist_get(word_list, nextarg);
for (i = 0; i < octstr_len(temp); ++i) {
if (octstr_get_char(temp, i) == '*')
octstr_append_char(result, '~');
else
octstr_append_char(result, octstr_get_char(temp, i));
}
++nextarg;
break;
case 'r':
for (j = nextarg; j < num_words; ++j) {
if (j != nextarg)
octstr_append_char(result, '+');
octstr_append(result, gwlist_get(word_list, j));
}
break;
case 'l':
if (message)
octstr_append_cstr(result, message);
break;
case 'P':
if (msg->sms.receiver)
octstr_append(result, msg->sms.receiver);
break;
case 'p':
if (msg->sms.sender)
octstr_append(result, msg->sms.sender);
break;
case 'a':
for (j = 0; j < num_words; ++j) {
if (j > 0)
octstr_append_char(result, ' ');
octstr_append(result, gwlist_get(word_list, j));
}
break;
case 'b':
if (text)
octstr_append(result, text);
break;
case 'L':
octstr_append_decimal(result, octstr_len(msg->sms.msgdata));
break;
case 't':
tm = gw_gmtime(msg->sms.time);
octstr_format_append(result, "%04d-%02d-%02d %02d:%02d:%02d",
tm.tm_year + 1900,
tm.tm_mon + 1,
tm.tm_mday,
tm.tm_hour,
tm.tm_min,
tm.tm_sec);
break;
case 'T':
if (msg->sms.time != MSG_PARAM_UNDEFINED)
octstr_format_append(result, "%ld", msg->sms.time);
break;
case 'i':
if (conn && smscconn_id(conn))
octstr_append(result, smscconn_id(conn));
else if (conn && smscconn_name(conn))
octstr_append(result, smscconn_name(conn));
else if (msg->sms.smsc_id)
octstr_append(result, msg->sms.smsc_id);
break;
case 'I':
if (!uuid_is_null(msg->sms.id)) {
char id[UUID_STR_LEN + 1];
uuid_unparse(msg->sms.id, id);
octstr_append_cstr(result, id);
}
break;
case 'n':
if (msg->sms.service != NULL)
octstr_append(result, msg->sms.service);
break;
case 'd':
octstr_append_decimal(result, msg->sms.dlr_mask);
break;
case 'c':
octstr_append_decimal(result, msg->sms.coding);
break;
case 'm':
octstr_append_decimal(result, msg->sms.mclass);
break;
case 'C':
octstr_append_decimal(result, msg->sms.compress);
break;
case 'M':
octstr_append_decimal(result, msg->sms.mwi);
break;
case 'u':
if (octstr_len(udh)) {
octstr_append(result, udh);
}
break;
case 'U':
octstr_append_decimal(result, octstr_len(msg->sms.udhdata));
break;
case 'B': /* billing identifier/information */
if (octstr_len(msg->sms.binfo)) {
octstr_append(result, msg->sms.binfo);
}
break;
case 'A': /* account */
if (octstr_len(msg->sms.account)) {
octstr_append(result, msg->sms.account);
}
break;
/* XXX add more here if needed */
case '%':
octstr_format_append(result, "%%");
break;
default:
warning(0, "Unknown escape code (%%%c) within custom-log-format, skipping!", *pattern);
octstr_format_append(result, "%%%c", *pattern);
break;
} /* switch(...) */
pattern++;
} /* for ... */
gwlist_destroy(word_list, octstr_destroy_item);
return result;
}
static Octstr *store_file_status(int status_type)
{
char *frmt;
Octstr *ret, *key;
unsigned long l;
struct tm tm;
Msg *msg;
List *keys;
char id[UUID_STR_LEN + 1];
ret = octstr_create("");
/* set the type based header */
if (status_type == BBSTATUS_HTML) {
octstr_append_cstr(ret, "<table border=1>\n"
"<tr><td>SMS ID</td><td>Type</td><td>Time</td><td>Sender</td><td>Receiver</td>"
"<td>SMSC ID</td><td>BOX ID</td><td>UDH</td><td>Message</td>"
"</tr>\n");
} else if (status_type == BBSTATUS_TEXT) {
octstr_append_cstr(ret, "[SMS ID] [Type] [Time] [Sender] [Receiver] [SMSC ID] [BOX ID] [UDH] [Message]\n");
}
/* if there is no store-file, then don't loop in sms_store */
if (filename == NULL)
goto finish;
keys = dict_keys(sms_dict);
for (l = 0; l < gwlist_len(keys); l++) {
key = gwlist_get(keys, l);
msg = dict_get(sms_dict, key);
if (msg == NULL)
continue;
if (msg_type(msg) == sms) {
if (status_type == BBSTATUS_HTML) {
frmt = "<tr><td>%s</td><td>%s</td>"
"<td>%04d-%02d-%02d %02d:%02d:%02d</td>"
"<td>%s</td><td>%s</td><td>%s</td>"
"<td>%s</td><td>%s</td><td>%s</td></tr>\n";
} else if (status_type == BBSTATUS_XML) {
frmt = "<message>\n\t<id>%s</id>\n\t<type>%s</type>\n\t"
"<time>%04d-%02d-%02d %02d:%02d:%02d</time>\n\t"
"<sender>%s</sender>\n\t"
"<receiver>%s</receiver>\n\t<smsc-id>%s</smsc-id>\n\t"
"<box-id>%s</box-id>\n\t"
"<udh-data>%s</udh-data>\n\t<msg-data>%s</msg-data>\n\t"
"</message>\n";
} else {
frmt = "[%s] [%s] [%04d-%02d-%02d %02d:%02d:%02d] [%s] [%s] [%s] [%s] [%s] [%s]\n";
}
/* transform the time value */
#if LOG_TIMESTAMP_LOCALTIME
tm = gw_localtime(msg->sms.time);
#else
tm = gw_gmtime(msg->sms.time);
#endif
if (msg->sms.udhdata)
octstr_binary_to_hex(msg->sms.udhdata, 1);
if (msg->sms.msgdata &&
(msg->sms.coding == DC_8BIT || msg->sms.coding == DC_UCS2 ||
(msg->sms.coding == DC_UNDEF && msg->sms.udhdata)))
octstr_binary_to_hex(msg->sms.msgdata, 1);
uuid_unparse(msg->sms.id, id);
octstr_format_append(ret, frmt, id,
(msg->sms.sms_type == mo ? "MO" :
msg->sms.sms_type == mt_push ? "MT-PUSH" :
msg->sms.sms_type == mt_reply ? "MT-REPLY" :
msg->sms.sms_type == report_mo ? "DLR-MO" :
msg->sms.sms_type == report_mt ? "DLR-MT" : ""),
tm.tm_year + 1900, tm.tm_mon + 1, tm.tm_mday,
tm.tm_hour, tm.tm_min, tm.tm_sec,
(msg->sms.sender ? octstr_get_cstr(msg->sms.sender) : ""),
(msg->sms.receiver ? octstr_get_cstr(msg->sms.receiver) : ""),
(msg->sms.smsc_id ? octstr_get_cstr(msg->sms.smsc_id) : ""),
(msg->sms.boxc_id ? octstr_get_cstr(msg->sms.boxc_id) : ""),
(msg->sms.udhdata ? octstr_get_cstr(msg->sms.udhdata) : ""),
(msg->sms.msgdata ? octstr_get_cstr(msg->sms.msgdata) : ""));
if (msg->sms.udhdata)
octstr_hex_to_binary(msg->sms.udhdata);
if (msg->sms.msgdata &&
(msg->sms.coding == DC_8BIT || msg->sms.coding == DC_UCS2 ||
(msg->sms.coding == DC_UNDEF && msg->sms.udhdata)))
octstr_hex_to_binary(msg->sms.msgdata);
}
}
gwlist_destroy(keys, octstr_destroy_item);
finish:
/* set the type based footer */
if (status_type == BBSTATUS_HTML) {
octstr_append_cstr(ret,"</table>");
}
return ret;
}
Octstr *urltrans_fill_escape_codes(Octstr *pattern, Msg *request)
{
Octstr *enc;
Octstr *meta_group, *meta_param;
int nextarg, j;
struct tm tm;
int num_words;
List *word_list;
Octstr *result;
long pattern_len;
long pos;
int c;
long i, k;
Octstr *temp;
result = octstr_create("");
if (request->sms.msgdata) {
word_list = octstr_split_words(request->sms.msgdata);
num_words = gwlist_len(word_list);
} else {
word_list = gwlist_create();
num_words = 0;
}
pattern_len = octstr_len(pattern);
nextarg = 1;
pos = 0;
for (;;) {
while (pos < pattern_len) {
c = octstr_get_char(pattern, pos);
if (c == '%' && pos + 1 < pattern_len)
break;
octstr_append_char(result, c);
++pos;
}
if (pos == pattern_len)
break;
switch (octstr_get_char(pattern, pos + 1)) {
case 'a':
for (j = 0; j < num_words; ++j) {
enc = octstr_duplicate(gwlist_get(word_list, j));
octstr_url_encode(enc);
if (j > 0)
octstr_append_char(result, '+');
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'A':
if (request->sms.msgdata) {
enc = octstr_duplicate(request->sms.msgdata);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'b':
enc = octstr_duplicate(request->sms.msgdata);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'B': /* billing identifier/information */
if (octstr_len(request->sms.binfo)) {
enc = octstr_duplicate(request->sms.binfo);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'c':
octstr_append_decimal(result, request->sms.coding);
break;
case 'C':
if (octstr_len(request->sms.charset)) {
octstr_append(result, request->sms.charset);
} else {
switch (request->sms.coding) {
case DC_UNDEF:
case DC_7BIT:
octstr_append(result, octstr_imm("UTF-8"));
break;
case DC_8BIT:
octstr_append(result, octstr_imm("8-BIT"));
break;
case DC_UCS2:
octstr_append(result, octstr_imm("UTF-16BE"));
break;
}
}
break;
case 'd':
enc = octstr_create("");
octstr_append_decimal(enc, request->sms.dlr_mask);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'D': /* meta_data */
if (octstr_len(request->sms.meta_data)) {
enc = octstr_duplicate(request->sms.meta_data);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'f': /* smsc number*/
if (octstr_len(request->sms.smsc_number)) {
enc = octstr_duplicate(request->sms.smsc_number);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'F':
if (request->sms.foreign_id == NULL)
break;
enc = octstr_duplicate(request->sms.foreign_id);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'i':
if (request->sms.smsc_id == NULL)
break;
enc = octstr_duplicate(request->sms.smsc_id);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'I':
if (!uuid_is_null(request->sms.id)) {
char id[UUID_STR_LEN + 1];
uuid_unparse(request->sms.id, id);
octstr_append_cstr(result, id);
}
break;
case 'k':
if (num_words <= 0)
break;
enc = octstr_duplicate(gwlist_get(word_list, 0));
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'm': /* mclass - message class */
enc = octstr_create("");
octstr_append_decimal(enc, request->sms.mclass);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'M': /* mwi - message waiting indicator */
enc = octstr_create("");
octstr_append_decimal(enc, request->sms.mwi);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'n':
if (request->sms.service == NULL)
break;
enc = octstr_duplicate(request->sms.service);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'o': /* account information (may be operator id for aggregators */
if (octstr_len(request->sms.account)) {
enc = octstr_duplicate(request->sms.account);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'O': /* DCS */
{
int dcs;
dcs = fields_to_dcs(request, request->sms.alt_dcs);
octstr_format_append(result, "%02d", dcs);
break;
}
/* NOTE: the sender and receiver is already switched in
* message, so that's why we must use 'sender' when
* we want original receiver and vice versa
*/
case 'P':
enc = octstr_duplicate(request->sms.sender);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'p':
enc = octstr_duplicate(request->sms.receiver);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'q':
if (strncmp(octstr_get_cstr(request->sms.receiver),"00",2)==0) {
enc = octstr_copy(request->sms.receiver, 2,
octstr_len(request->sms.receiver));
octstr_url_encode(enc);
octstr_format_append(result, "%%2B%S", enc);
octstr_destroy(enc);
} else {
enc = octstr_duplicate(request->sms.receiver);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'Q':
if (strncmp(octstr_get_cstr(request->sms.sender), "00", 2) == 0) {
enc = octstr_copy(request->sms.sender, 2,
octstr_len(request->sms.sender));
octstr_url_encode(enc);
octstr_format_append(result, "%%2B%S", enc);
octstr_destroy(enc);
} else {
enc = octstr_duplicate(request->sms.sender);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'r':
for (j = nextarg; j < num_words; ++j) {
enc = octstr_duplicate(gwlist_get(word_list, j));
octstr_url_encode(enc);
if (j != nextarg)
octstr_append_char(result, '+');
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'R': /* dlr_url */
if (octstr_len(request->sms.dlr_url)) {
enc = octstr_duplicate(request->sms.dlr_url);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 's':
if (nextarg >= num_words)
break;
enc = octstr_duplicate(gwlist_get(word_list, nextarg));
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
++nextarg;
break;
case 'S':
if (nextarg >= num_words)
break;
temp = gwlist_get(word_list, nextarg);
for (i = 0; i < octstr_len(temp); ++i) {
if (octstr_get_char(temp, i) == '*')
octstr_append_char(result, '~');
else
octstr_append_char(result, octstr_get_char(temp, i));
}
++nextarg;
break;
case 't':
tm = gw_gmtime(request->sms.time);
octstr_format_append(result, "%04d-%02d-%02d+%02d:%02d:%02d",
tm.tm_year + 1900,
tm.tm_mon + 1,
tm.tm_mday,
tm.tm_hour,
tm.tm_min,
tm.tm_sec);
break;
case 'T':
if (request->sms.time == MSG_PARAM_UNDEFINED)
break;
octstr_format_append(result, "%ld", request->sms.time);
break;
case 'u':
if(octstr_len(request->sms.udhdata)) {
enc = octstr_duplicate(request->sms.udhdata);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'v':
if (request->sms.validity != MSG_PARAM_UNDEFINED) {
octstr_format_append(result, "%ld", (request->sms.validity - time(NULL)) / 60);
}
break;
case 'V':
if (request->sms.deferred != MSG_PARAM_UNDEFINED) {
octstr_format_append(result, "%ld", (request->sms.deferred - time(NULL)) / 60);
}
break;
/*
* This allows to pass meta-data individual parameters into urls.
* The syntax is as follows: %#group#parameter#
* For example: %#smpp#my_param# would be replaced with the value
* 'my_param' from the group 'smpp' coming inside the meta_data field.
*/
case '#':
/* ASCII 0x23 == '#' */
k = octstr_search_char(pattern, 0x23, pos + 2);
if (k >= 0) {
pos += 2;
meta_group = octstr_copy(pattern, pos, (k-pos));
pos = k + 1;
k = octstr_search_char(pattern, 0x23, pos);
if (k >= 0) {
meta_param = octstr_copy(pattern, pos, (k-pos));
pos = k - 1;
if (request->sms.meta_data != NULL) {
enc = meta_data_get_value(request->sms.meta_data,
octstr_get_cstr(meta_group), meta_param);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
octstr_destroy(meta_param);
} else {
pos++;
}
octstr_destroy(meta_group);
}
break;
/* XXX sms.parameters not present in here:
* * pid - will we receive this ?
* * alt-dcs - shouldn't be required unless we want to inform
* which alt-dcs external server should use back
* * compress - if we use compression, probably kannel would
* decompress and reset this to 0. not required
* * rpi - we don't receive these from smsc
* * username, password, dlr-url, account - nonsense to send
*/
case '%':
octstr_format_append(result, "%%");
break;
default:
octstr_format_append(result, "%%%c",
octstr_get_char(pattern, pos + 1));
break;
}
pos += 2;
}
gwlist_destroy(word_list, octstr_destroy_item);
return result;
}
/*
* Trans being NULL means that we are servicing ppg (doing dlr, but this does not
* concern us here).
*/
Octstr *urltrans_get_pattern(URLTranslation *t, Msg *request)
{
Octstr *enc;
int nextarg, j;
struct tm tm;
int num_words;
List *word_list;
Octstr *result, *pattern;
long pattern_len;
long pos;
int c;
long i;
Octstr *temp;
Octstr *url, *reply; /* For and If delivery report */
url = reply = NULL;
if (request->sms.sms_type != report_mo && t->type == TRANSTYPE_SENDSMS)
return octstr_create("");
if (request->sms.msgdata) {
word_list = octstr_split_words(request->sms.msgdata);
num_words = list_len(word_list);
} else {
word_list = list_create();
num_words = 0;
}
result = octstr_create("");
/* check if this is a delivery report message or not */
if (request->sms.sms_type != report_mo) {
pattern = t->pattern;
} else {
/* this is a DLR message */
reply = octstr_duplicate(request->sms.msgdata);
url = octstr_duplicate(request->sms.dlr_url);
pattern = url;
if (octstr_len(pattern) == 0) {
if (t && octstr_len(t->dlr_url)) {
pattern = t->dlr_url;
} else {
list_destroy(word_list, octstr_destroy_item);
return octstr_create("");
}
}
}
pattern_len = octstr_len(pattern);
nextarg = 1;
pos = 0;
for (;;) {
while (pos < pattern_len) {
c = octstr_get_char(pattern, pos);
if (c == '%' && pos + 1 < pattern_len)
break;
octstr_append_char(result, c);
++pos;
}
if (pos == pattern_len)
break;
switch (octstr_get_char(pattern, pos + 1)) {
case 'k':
if (num_words <= 0)
break;
enc = octstr_duplicate(list_get(word_list, 0));
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 's':
if (nextarg >= num_words)
break;
enc = octstr_duplicate(list_get(word_list, nextarg));
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
++nextarg;
break;
case 'S':
if (nextarg >= num_words)
break;
temp = list_get(word_list, nextarg);
for (i = 0; i < octstr_len(temp); ++i) {
if (octstr_get_char(temp, i) == '*')
octstr_append_char(result, '~');
else
octstr_append_char(result, octstr_get_char(temp, i));
}
++nextarg;
break;
case 'r':
for (j = nextarg; j < num_words; ++j) {
enc = octstr_duplicate(list_get(word_list, j));
octstr_url_encode(enc);
if (j != nextarg)
octstr_append_char(result, '+');
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
/* NOTE: the sender and receiver is already switched in
* message, so that's why we must use 'sender' when
* we want original receiver and vice versa
*/
case 'P':
enc = octstr_duplicate(request->sms.sender);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'p':
enc = octstr_duplicate(request->sms.receiver);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'Q':
if (strncmp(octstr_get_cstr(request->sms.sender), "00", 2) == 0) {
enc = octstr_copy(request->sms.sender, 2,
octstr_len(request->sms.sender));
octstr_url_encode(enc);
octstr_format_append(result, "%%2B%S", enc);
octstr_destroy(enc);
} else {
enc = octstr_duplicate(request->sms.sender);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'q':
if (strncmp(octstr_get_cstr(request->sms.receiver),"00",2)==0) {
enc = octstr_copy(request->sms.receiver, 2,
octstr_len(request->sms.receiver));
octstr_url_encode(enc);
octstr_format_append(result, "%%2B%S", enc);
octstr_destroy(enc);
} else {
enc = octstr_duplicate(request->sms.receiver);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'a':
for (j = 0; j < num_words; ++j) {
enc = octstr_duplicate(list_get(word_list, j));
octstr_url_encode(enc);
if (j > 0)
octstr_append_char(result, '+');
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'b':
enc = octstr_duplicate(request->sms.msgdata);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 't':
tm = gw_gmtime(request->sms.time);
octstr_format_append(result, "%04d-%02d-%02d+%02d:%02d:%02d",
tm.tm_year + 1900,
tm.tm_mon + 1,
tm.tm_mday,
tm.tm_hour,
tm.tm_min,
tm.tm_sec);
break;
case 'T':
if (request->sms.time == MSG_PARAM_UNDEFINED)
break;
octstr_format_append(result, "%ld", request->sms.time);
break;
case 'i':
if (request->sms.smsc_id == NULL)
break;
enc = octstr_duplicate(request->sms.smsc_id);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'I':
if (!uuid_is_null(request->sms.id)) {
char id[UUID_STR_LEN + 1];
uuid_unparse(request->sms.id, id);
octstr_append_cstr(result, id);
}
break;
case 'n':
if (request->sms.service == NULL)
break;
enc = octstr_duplicate(request->sms.service);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'd':
enc = octstr_create("");
octstr_append_decimal(enc, request->sms.dlr_mask);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
break;
case 'A':
if (reply) {
enc = octstr_duplicate(reply);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'c':
octstr_append_decimal(result, request->sms.coding);
break;
case 'C':
if(octstr_len(request->sms.charset)) {
octstr_append(result, request->sms.charset);
} else {
switch (request->sms.coding) {
case DC_UNDEF:
case DC_7BIT:
octstr_append(result, octstr_imm("ISO-8859-1"));
break;
case DC_8BIT:
octstr_append(result, octstr_imm("8-BIT"));
break;
case DC_UCS2:
octstr_append(result, octstr_imm("UTF16-BE"));
break;
}
}
break;
case 'u':
if(octstr_len(request->sms.udhdata)) {
enc = octstr_duplicate(request->sms.udhdata);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'B': /* billing identifier/information */
if (octstr_len(request->sms.binfo)) {
enc = octstr_duplicate(request->sms.binfo);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
case 'o': /* account information (may be operator id for aggregators */
if (octstr_len(request->sms.account)) {
enc = octstr_duplicate(request->sms.account);
octstr_url_encode(enc);
octstr_append(result, enc);
octstr_destroy(enc);
}
break;
/* XXX sms.parameters not present in here:
* * pid - will we receive this ?
* * mwi,mclass - will we receive these bits from smsc ?
* * alt-dcs - shouldn't be required unless we want to inform
* which alt-dcs external server should use back
* * compress - if we use compression, probably kannel would
* decompress and reset this to 0. not required
* * validity, deferred, rpi - we don't receive these from smsc
* * username, password, dlr-url, account - nonsense to send
*/
case '%':
octstr_format_append(result, "%%");
break;
default:
octstr_format_append(result, "%%%c",
octstr_get_char(pattern, pos + 1));
break;
}
pos += 2;
}
/*
* this SHOULD be done in smsbox, not here, but well,
* much easier to do here
*/
if (t && (t->type == TRANSTYPE_POST_URL || t->type == TRANSTYPE_POST_XML)
&& t->strip_keyword)
strip_keyword(request);
octstr_destroy(url);
octstr_destroy(reply);
list_destroy(word_list, octstr_destroy_item);
return result;
}
static void PRINTFLIKE(2,0) output(FILE *f, char *buf, va_list args)
{
int i = (int)fileno(f);
// Find the log-file
for (i = 0; i < num_logfiles; ++i)
if (logfiles[i].file == f)
break;
gw_assert(i < num_logfiles); // Make sure we found the log file!
if (rotate_logfile != NEVER && fileno(logfiles[i].file) != stderr) {
int do_rotate = NEVER;
time_t t;
struct tm tm;
time(&t);
#if LOG_TIMESTAMP_LOCALTIME
tm = gw_localtime(t);
#else
tm = gw_gmtime(t);
#endif
if (init_rotate_tm) {
rotate_tm = tm;
init_rotate_tm = 0;
}
do_rotate |= ((rotate_logfile == DAILY ));
do_rotate |= ((rotate_logfile == WEEKLY ) && (tm.tm_wday == 1));
do_rotate |= ((rotate_logfile == MONTHLY) && (tm.tm_mday == 1));
do_rotate &= (rotate_tm.tm_mday != tm.tm_mday);
if (do_rotate) {
char log_start[16];
char new_filename[FILENAME_MAX + 1];
int year, mon, mday;
rotate_tm = tm;
year = tm.tm_year+1900; mon = tm.tm_mon+1; mday = tm.tm_mday-1;
if (mday < 1) {
mon--;
if (mon < 1) {
mon = 12;
year--;
}
mday = 31;
if (mon < 8 && ((mon & 0x01) == 0)) mday = 30;
if (mon > 7 && ((mon & 0x01) == 1)) mday = 30;
if (mon == 2)
mday = (year % 4) ? 28 : 29; // Works until 12/31/2099 ;-)
}
fclose(logfiles[i].file);
sprintf(new_filename, "%s.%04d-%02d-%02d",
logfiles[i].filename, year, mon, mday);
if (rename(logfiles[i].filename, new_filename) == -1)
warning(0, "Log rotate (%s) failed, continuing in current logfile",
logfiles[i].filename);
logfiles[i].file = fopen(logfiles[i].filename, "a");
}
}
vfprintf(f, buf, args);
fflush(f);
}
