/*
* Remove matching entry from the spool.
*/
static void dlr_spool_remove(const Octstr *smsc, const Octstr *ts, const Octstr *dst)
{
Octstr *os, *hash, *dir, *filename;
/* determine target dir and filename via hash */
os = octstr_duplicate(smsc);
octstr_append(os, ts);
hash = our_hash_func(os);
octstr_destroy(os);
/* determine target dir */
dir = octstr_format("%S/%ld", spool_dir, octstr_hash_key(hash) % MAX_DIRS);
/* get msg surrogate filename */
filename = get_msg_filename(dir, hash, dst);
octstr_destroy(dir);
octstr_destroy(hash);
/* if there was no filename, then we didn't find it */
if (filename == NULL) {
return;
}
/* remove the file from the file system */
if (unlink(octstr_get_cstr(filename)) == -1) {
error(errno, "Could not unlink file `%s'.", octstr_get_cstr(filename));
octstr_destroy(filename);
return;
}
counter_decrease(counter);
octstr_destroy(filename);
}
/*
* Find matching entry in our spool and return the dlr_entry.
*/
static struct dlr_entry *dlr_spool_get(const Octstr *smsc, const Octstr *ts, const Octstr *dst)
{
struct dlr_entry *ret = NULL;
Octstr *os, *hash, *dir, *filename = NULL;
Msg *msg;
/* determine target dir and filename via hash */
os = octstr_duplicate(smsc);
octstr_append(os, ts);
hash = our_hash_func(os);
octstr_destroy(os);
/* determine target dir */
dir = octstr_format("%S/%ld", spool_dir, octstr_hash_key(hash) % MAX_DIRS);
/* get content of msg surrogate */
os = get_msg_surrogate(dir, hash, dst, &filename);
octstr_destroy(dir);
octstr_destroy(hash);
/* if there was no content */
if (os == NULL) {
octstr_destroy(filename);
return NULL;
}
/* unpack */
if ((msg = store_msg_unpack(os)) == NULL) {
octstr_destroy(os);
error(0, "Could not unpack DLR message `%s'", octstr_get_cstr(filename));
octstr_destroy(filename);
return ret;
}
octstr_destroy(os);
octstr_destroy(filename);
#define MAP(to, from) \
to = from; \
from = NULL;
/* map values to a struct dlr_entry */
ret = dlr_entry_create();
MAP(ret->smsc, msg->sms.smsc_id);
MAP(ret->timestamp, msg->sms.foreign_id);
MAP(ret->source, msg->sms.sender);
MAP(ret->destination, msg->sms.receiver);
MAP(ret->service, msg->sms.service);
MAP(ret->url, msg->sms.dlr_url);
MAP(ret->boxc_id, msg->sms.boxc_id);
ret->mask = msg->sms.dlr_mask;
msg_destroy(msg);
return ret;
}
int main(int argc, char **argv)
{
Octstr *data, *enc;
gwlib_init();
get_and_set_debugs(argc, argv, NULL);
if (argc < 2)
panic(0, "Syntax: %s <txt>\n", argv[0]);
data = octstr_create(argv[1]);
enc = md5(data);
debug("",0,"MD5:");
octstr_dump(enc, 0);
octstr_destroy(enc);
enc = md5digest(data);
debug("",0,"MD5 (digest):");
octstr_dump(enc, 0);
#ifdef HAVE_LIBSSL
OpenSSL_add_all_digests();
octstr_destroy(enc);
enc = our_hash_func(data);
debug("",0,"SHA1:");
octstr_dump(enc, 0);
octstr_binary_to_hex(enc, 0);
debug("",0,"SHA1 (digest):");
octstr_dump(enc, 0);
#endif
octstr_destroy(data);
octstr_destroy(enc);
gwlib_shutdown();
return 0;
}
/*
* Adds a struct dlr_entry to the spool directory.
*/
static void dlr_spool_add(struct dlr_entry *dlr)
{
Msg *msg;
Octstr *os, *hash, *dir, *filename;
int fd;
size_t wrc;
#define MAP(to, from) \
to = from; \
from = NULL;
/* create a common message structure to contain our values */
msg = msg_create(sms);
msg->sms.sms_type = report_mt;
MAP(msg->sms.smsc_id, dlr->smsc);
MAP(msg->sms.foreign_id, dlr->timestamp);
MAP(msg->sms.sender, dlr->source);
MAP(msg->sms.receiver, dlr->destination);
MAP(msg->sms.service, dlr->service);
MAP(msg->sms.dlr_url, dlr->url);
MAP(msg->sms.boxc_id, dlr->boxc_id);
msg->sms.dlr_mask = dlr->mask;
/* we got all values, destroy the structure now */
dlr_entry_destroy(dlr);
/* create hash value */
os = octstr_duplicate(msg->sms.smsc_id);
octstr_append(os, msg->sms.foreign_id);
hash = our_hash_func(os);
octstr_destroy(os);
/* target directory */
dir = octstr_format("%S/%ld", spool_dir, octstr_hash_key(hash) % MAX_DIRS);
if (mkdir(octstr_get_cstr(dir), S_IRUSR|S_IWUSR|S_IXUSR) == -1 && errno != EEXIST) {
error(errno, "Could not create directory `%s'.", octstr_get_cstr(dir));
octstr_destroy(dir);
octstr_destroy(hash);
return;
}
/*
* Now also add the hex value of the destination.
* This will be the part we look later into while
* DLR resolving.
*/
os = octstr_duplicate(msg->sms.receiver);
octstr_binary_to_hex(os, 0);
octstr_append(hash, os);
octstr_destroy(os);
/* target file */
filename = octstr_format("%S/%S", dir, hash);
octstr_destroy(dir);
octstr_destroy(hash);
if ((fd = open(octstr_get_cstr(filename), O_CREAT|O_EXCL|O_WRONLY, S_IRUSR|S_IWUSR)) == -1) {
error(errno, "Could not open file `%s'.", octstr_get_cstr(filename));
octstr_destroy(filename);
return;
}
/* pack and write content to file */
os = store_msg_pack(msg);
msg_destroy(msg);
for (wrc = 0; wrc < octstr_len(os); ) {
size_t rc = write(fd, octstr_get_cstr(os) + wrc, octstr_len(os) - wrc);
if (rc == -1) {
/* remove file */
error(errno, "Could not write DLR message to `%s'.", octstr_get_cstr(filename));
close(fd);
if (unlink(octstr_get_cstr(filename)) == -1)
error(errno, "Oops, Could not remove failed file `%s'.", octstr_get_cstr(filename));
octstr_destroy(os);
octstr_destroy(filename);
return;
}
wrc += rc;
}
close(fd);
counter_increase(counter);
octstr_destroy(filename);
octstr_destroy(os);
}