/* XXX TODO: Messages should round-trip properly between
message2hashref and hashref2message. Currently we lose
zephyr-specific properties stored in the ZNotice_t
*/
CALLER_OWN owl_message *owl_perlconfig_hashref2message(SV *msg)
{
owl_message * m;
HE * ent;
I32 len;
const char *key,*val;
HV * hash;
struct tm tm;
hash = (HV*)SvRV(msg);
m = g_new(owl_message, 1);
owl_message_init(m);
hv_iterinit(hash);
while((ent = hv_iternext(hash))) {
key = hv_iterkey(ent, &len);
val = SvPV_nolen(hv_iterval(hash, ent));
if(!strcmp(key, "type")) {
owl_message_set_type(m, val);
} else if(!strcmp(key, "direction")) {
owl_message_set_direction(m, owl_message_parse_direction(val));
} else if(!strcmp(key, "private")) {
SV * v = hv_iterval(hash, ent);
if(SvTRUE(v)) {
owl_message_set_isprivate(m);
}
} else if (!strcmp(key, "hostname")) {
owl_message_set_hostname(m, val);
} else if (!strcmp(key, "zwriteline")) {
owl_message_set_zwriteline(m, val);
} else if (!strcmp(key, "time")) {
g_free(m->timestr);
m->timestr = g_strdup(val);
strptime(val, "%a %b %d %T %Y", &tm);
m->time = mktime(&tm);
} else {
owl_message_set_attribute(m, key, val);
}
}
if(owl_message_is_type_admin(m)) {
if(!owl_message_get_attribute_value(m, "adminheader"))
owl_message_set_attribute(m, "adminheader", "");
}
return m;
}
int owl_filter_regtest(void) {
int numfailed=0;
owl_message m;
owl_filter *f1, *f2, *f3, *f4, *f5;
owl_dict_create(&g.filters);
g.filterlist = NULL;
owl_message_init(&m);
owl_message_set_type_zephyr(&m);
owl_message_set_direction_in(&m);
owl_message_set_class(&m, "owl");
owl_message_set_instance(&m, "tester");
owl_message_set_sender(&m, "owl-user");
owl_message_set_recipient(&m, "joe");
owl_message_set_attribute(&m, "foo", "bar");
#define TEST_FILTER(f, e) do { \
numtests++; \
numfailed += owl_filter_test_string(f, &m, e); \
} while(0)
TEST_FILTER("true", 1);
TEST_FILTER("false", 0);
TEST_FILTER("( true )", 1);
TEST_FILTER("not false", 1);
TEST_FILTER("( true ) or ( false )", 1);
TEST_FILTER("true and false", 0);
TEST_FILTER("( true or true ) or ( ( false ) )", 1);
TEST_FILTER("class owl", 1);
TEST_FILTER("class ^owl$", 1);
TEST_FILTER("instance test", 1);
TEST_FILTER("instance ^test$", 0);
TEST_FILTER("instance ^tester$", 1);
TEST_FILTER("foo bar", 1);
TEST_FILTER("class owl and instance tester", 1);
TEST_FILTER("type ^zephyr$ and direction ^in$ and ( class ^owl$ or instance ^owl$ )", 1);
/* Order of operations and precedence */
TEST_FILTER("not true or false", 0);
TEST_FILTER("true or true and false", 0);
TEST_FILTER("true and true and false or true", 1);
TEST_FILTER("false and false or true", 1);
TEST_FILTER("true and false or false", 0);
f1 = owl_filter_new_fromstring("f1", "class owl");
owl_global_add_filter(&g, f1);
TEST_FILTER("filter f1", 1);
owl_global_remove_filter(&g, "f1");
/* Test recursion prevention */
FAIL_UNLESS("self reference", (f2 = owl_filter_new_fromstring("test", "filter test")) == NULL);
owl_filter_delete(f2);
/* mutual recursion */
f3 = owl_filter_new_fromstring("f3", "filter f4");
owl_global_add_filter(&g, f3);
FAIL_UNLESS("mutual recursion", (f4 = owl_filter_new_fromstring("f4", "filter f3")) == NULL);
owl_global_remove_filter(&g, "f3");
owl_filter_delete(f4);
/* support referencing a filter several times */
FAIL_UNLESS("DAG", (f5 = owl_filter_new_fromstring("dag", "filter f1 or filter f1")) != NULL);
owl_filter_delete(f5);
return 0;
}
/* XXX TODO: Messages should round-trip properly between
message2hashref and hashref2message. Currently we lose
zephyr-specific properties stored in the ZNotice_t
This has been somewhat addressed, but is still not lossless.
*/
owl_message * owl_perlconfig_hashref2message(SV *msg)
{
owl_message * m;
HE * ent;
I32 count, len;
const char *key,*val;
HV * hash;
struct tm tm;
hash = (HV*)SvRV(msg);
m = owl_malloc(sizeof(owl_message));
owl_message_init(m);
count = hv_iterinit(hash);
while((ent = hv_iternext(hash))) {
key = hv_iterkey(ent, &len);
val = SvPV_nolen(hv_iterval(hash, ent));
if(!strcmp(key, "type")) {
owl_message_set_type(m, val);
} else if(!strcmp(key, "direction")) {
owl_message_set_direction(m, owl_message_parse_direction(val));
} else if(!strcmp(key, "private")) {
SV * v = hv_iterval(hash, ent);
if(SvTRUE(v)) {
owl_message_set_isprivate(m);
}
} else if (!strcmp(key, "hostname")) {
owl_message_set_hostname(m, val);
} else if (!strcmp(key, "zwriteline")) {
owl_message_set_zwriteline(m, val);
} else if (!strcmp(key, "time")) {
m->timestr = owl_strdup(val);
strptime(val, "%a %b %d %T %Y", &tm);
m->time = mktime(&tm);
} else {
owl_message_set_attribute(m, key, val);
}
}
if(owl_message_is_type_admin(m)) {
if(!owl_message_get_attribute_value(m, "adminheader"))
owl_message_set_attribute(m, "adminheader", "");
}
#ifdef HAVE_LIBZEPHYR
if (owl_message_is_type_zephyr(m)) {
ZNotice_t *n = &(m->notice);
n->z_kind = ACKED;
n->z_port = 0;
n->z_auth = ZAUTH_NO;
n->z_checked_auth = 0;
n->z_class = zstr(owl_message_get_class(m));
n->z_class_inst = zstr(owl_message_get_instance(m));
n->z_opcode = zstr(owl_message_get_opcode(m));
n->z_sender = zstr(owl_message_get_sender(m));
n->z_recipient = zstr(owl_message_get_recipient(m));
n->z_default_format = zstr("[zephyr created from perl]");
n->z_multinotice = zstr("[zephyr created from perl]");
n->z_num_other_fields = 0;
n->z_message = owl_sprintf("%s%c%s", owl_message_get_zsig(m), '\0', owl_message_get_body(m));
n->z_message_len = strlen(owl_message_get_zsig(m)) + strlen(owl_message_get_body(m)) + 1;
}
#endif
return m;
}
