int
parse_setentry(char *line, size_t len, size_t lineno)
{
DBT key;
DBT val;
char *keyp;
keyp = line;
while (isspace((int)*keyp))
keyp++;
if (*keyp == '\0' || *keyp == '#')
return 1;
val.data = "<set>";
val.size = strlen(val.data) + 1;
/* Check for dups. */
key.data = keyp;
key.size = strlen(keyp) + 1;
xlowercase(key.data, key.data, strlen(key.data) + 1);
if (db->get(db, &key, &val, 0) == 0) {
warnx("%s:%zd: duplicate entry for %s", source, lineno, keyp);
return 0;
}
if (db->put(db, &key, &val, 0) == -1) {
warn("dbput");
return 0;
}
dbputs++;
return 1;
}
int
parse_mapentry(char *line, size_t len, size_t lineno)
{
DBT key;
DBT val;
char *keyp;
char *valp;
keyp = line;
while (isspace((int)*keyp))
keyp++;
if (*keyp == '\0' || *keyp == '#')
return 1;
valp = keyp;
strsep(&valp, " \t:");
if (valp == NULL || valp == keyp)
goto bad;
while (*valp == ':' || isspace((int)*valp))
valp++;
if (*valp == '\0' || *valp == '#')
goto bad;
/* Check for dups. */
key.data = keyp;
key.size = strlen(keyp) + 1;
xlowercase(key.data, key.data, strlen(key.data) + 1);
if (db->get(db, &key, &val, 0) == 0) {
warnx("%s:%zd: duplicate entry for %s", source, lineno, keyp);
return 0;
}
if (type == T_PLAIN) {
if (! make_plain(&val, valp))
goto bad;
}
else if (type == T_ALIASES) {
if (! make_aliases(&val, valp))
goto bad;
}
if (db->put(db, &key, &val, 0) == -1) {
warn("dbput");
return 0;
}
dbputs++;
free(val.data);
return 1;
bad:
warnx("%s:%zd: invalid entry", source, lineno);
return 0;
}
static void
mailaddr_to_username(const struct mailaddr *maddr, char *dst, size_t len)
{
char *tag;
xlowercase(dst, maddr->user, len);
/* gilles+hackers@ -> gilles@ */
if ((tag = strchr(dst, TAG_CHAR)) != NULL)
*tag++ = '\0';
}
static void
lka_expand(struct lka_session *lks, struct rule *rule, struct expandnode *xn)
{
struct forward_req fwreq;
struct envelope ep;
struct expandnode node;
struct mailaddr maddr;
int r;
union lookup lk;
char *tag;
if (xn->depth >= EXPAND_DEPTH) {
log_trace(TRACE_EXPAND, "expand: lka_expand: node too deep.");
lks->error = LKA_PERMFAIL;
return;
}
switch (xn->type) {
case EXPAND_INVALID:
case EXPAND_INCLUDE:
fatalx("lka_expand: unexpected type");
break;
case EXPAND_ADDRESS:
log_trace(TRACE_EXPAND, "expand: lka_expand: address: %s@%s "
"[depth=%d]",
xn->u.mailaddr.user, xn->u.mailaddr.domain, xn->depth);
/* Pass the node through the ruleset */
ep = lks->envelope;
ep.dest = xn->u.mailaddr;
if (xn->parent) /* nodes with parent are forward addresses */
ep.flags |= EF_INTERNAL;
rule = ruleset_match(&ep);
if (rule == NULL || rule->r_decision == R_REJECT) {
lks->error = (errno == EAGAIN) ?
LKA_TEMPFAIL : LKA_PERMFAIL;
break;
}
xn->mapping = rule->r_mapping;
xn->userbase = rule->r_userbase;
if (rule->r_action == A_RELAY || rule->r_action == A_RELAYVIA) {
lka_submit(lks, rule, xn);
}
else if (rule->r_desttype == DEST_VDOM) {
/* expand */
lks->expand.rule = rule;
lks->expand.parent = xn;
lks->expand.alias = 1;
/* temporary replace the mailaddr with a copy where
* we eventually strip the '+'-part before lookup.
*/
maddr = xn->u.mailaddr;
xlowercase(maddr.user, xn->u.mailaddr.user,
sizeof maddr.user);
r = aliases_virtual_get(&lks->expand, &maddr);
if (r == -1) {
lks->error = LKA_TEMPFAIL;
log_trace(TRACE_EXPAND, "expand: lka_expand: "
"error in virtual alias lookup");
}
else if (r == 0) {
lks->error = LKA_PERMFAIL;
log_trace(TRACE_EXPAND, "expand: lka_expand: "
"no aliases for virtual");
}
}
else {
lks->expand.rule = rule;
lks->expand.parent = xn;
lks->expand.alias = 1;
memset(&node, 0, sizeof node);
node.type = EXPAND_USERNAME;
xlowercase(node.u.user, xn->u.mailaddr.user,
sizeof node.u.user);
node.mapping = rule->r_mapping;
node.userbase = rule->r_userbase;
expand_insert(&lks->expand, &node);
}
break;
case EXPAND_USERNAME:
log_trace(TRACE_EXPAND, "expand: lka_expand: username: %s "
"[depth=%d]", xn->u.user, xn->depth);
if (xn->sameuser) {
log_trace(TRACE_EXPAND, "expand: lka_expand: same "
"user, submitting");
lka_submit(lks, rule, xn);
break;
}
/* expand aliases with the given rule */
lks->expand.rule = rule;
lks->expand.parent = xn;
lks->expand.alias = 1;
xn->mapping = rule->r_mapping;
xn->userbase = rule->r_userbase;
if (rule->r_mapping) {
r = aliases_get(&lks->expand, xn->u.user);
if (r == -1) {
log_trace(TRACE_EXPAND, "expand: lka_expand: "
"error in alias lookup");
lks->error = LKA_TEMPFAIL;
}
if (r)
break;
}
/* gilles+hackers@ -> gilles@ */
if ((tag = strchr(xn->u.user, *env->sc_subaddressing_delim)) != NULL)
*tag++ = '\0';
r = table_lookup(rule->r_userbase, NULL, xn->u.user, K_USERINFO, &lk);
if (r == -1) {
log_trace(TRACE_EXPAND, "expand: lka_expand: "
"backend error while searching user");
lks->error = LKA_TEMPFAIL;
break;
}
if (r == 0) {
log_trace(TRACE_EXPAND, "expand: lka_expand: "
"user-part does not match system user");
lks->error = LKA_PERMFAIL;
break;
}
/* no aliases found, query forward file */
lks->rule = rule;
lks->node = xn;
memset(&fwreq, 0, sizeof(fwreq));
fwreq.id = lks->id;
(void)strlcpy(fwreq.user, lk.userinfo.username, sizeof(fwreq.user));
(void)strlcpy(fwreq.directory, lk.userinfo.directory, sizeof(fwreq.directory));
fwreq.uid = lk.userinfo.uid;
fwreq.gid = lk.userinfo.gid;
m_compose(p_parent, IMSG_LKA_OPEN_FORWARD, 0, 0, -1,
&fwreq, sizeof(fwreq));
lks->flags |= F_WAITING;
break;
case EXPAND_FILENAME:
if (rule->r_forwardonly) {
log_trace(TRACE_EXPAND, "expand: filename matched on forward-only rule");
lks->error = LKA_TEMPFAIL;
break;
}
log_trace(TRACE_EXPAND, "expand: lka_expand: filename: %s "
"[depth=%d]", xn->u.buffer, xn->depth);
lka_submit(lks, rule, xn);
break;
case EXPAND_ERROR:
if (rule->r_forwardonly) {
log_trace(TRACE_EXPAND, "expand: error matched on forward-only rule");
lks->error = LKA_TEMPFAIL;
break;
}
log_trace(TRACE_EXPAND, "expand: lka_expand: error: %s "
"[depth=%d]", xn->u.buffer, xn->depth);
if (xn->u.buffer[0] == '4')
lks->error = LKA_TEMPFAIL;
else if (xn->u.buffer[0] == '5')
lks->error = LKA_PERMFAIL;
lks->errormsg = xn->u.buffer;
break;
case EXPAND_FILTER:
if (rule->r_forwardonly) {
log_trace(TRACE_EXPAND, "expand: filter matched on forward-only rule");
lks->error = LKA_TEMPFAIL;
break;
}
log_trace(TRACE_EXPAND, "expand: lka_expand: filter: %s "
"[depth=%d]", xn->u.buffer, xn->depth);
lka_submit(lks, rule, xn);
break;
case EXPAND_MAILDIR:
log_trace(TRACE_EXPAND, "expand: lka_expand: maildir: %s "
"[depth=%d]", xn->u.buffer, xn->depth);
r = table_lookup(rule->r_userbase, NULL,
xn->parent->u.user, K_USERINFO, &lk);
if (r == -1) {
log_trace(TRACE_EXPAND, "expand: lka_expand: maildir: "
"backend error while searching user");
lks->error = LKA_TEMPFAIL;
break;
}
if (r == 0) {
log_trace(TRACE_EXPAND, "expand: lka_expand: maildir: "
"user-part does not match system user");
lks->error = LKA_PERMFAIL;
break;
}
lka_submit(lks, rule, xn);
break;
}
}
