/* Add a new, or restrict an existing, standard attribute from cnf file */
int
cnf_attribute_access(char *attrname, char *opts)
{
ATTR *a;
privbits flags = 0;
upcasestr(attrname);
if (!good_atr_name(attrname))
return 0;
if (strcasecmp(opts, "none")) {
flags = list_to_privs(attr_privs_set, opts, 0);
if (!flags)
return 0;
}
a = (ATTR *) ptab_find_exact(&ptab_attrib, attrname);
if (a) {
if (AF_Internal(a))
return 0;
} else {
a = (ATTR *) mush_malloc(sizeof(ATTR), "ATTR");
if (!a)
return 0;
AL_NAME(a) = strdup(attrname);
a->data = NULL_CHUNK_REFERENCE;
ptab_insert_one(&ptab_attrib, attrname, a);
}
AL_FLAGS(a) = flags;
AL_CREATOR(a) = GOD;
return 1;
}
/** Add new standard attributes, or change permissions on them.
* \verbatim
* Given the name and permission string for an attribute, add it to
* the attribute table (or modify the permissions if it's already
* there). Permissions may be changed retroactively, which modifies
* permissions on any copies of that attribute set on objects in the
* database. This is the top-level code for @attribute/access.
* \endverbatim
* \param player the enactor.
* \param name the attribute name.
* \param perms a string of attribute permissions, space-separated.
* \param retroactive if true, apply the permissions retroactively.
*/
void
do_attribute_access(dbref player, char *name, char *perms, int retroactive)
{
ATTR *ap, *ap2;
privbits flags = 0;
int i;
int insert = 0;
/* Parse name and perms */
if (!name || !*name) {
notify(player, T("Which attribute do you mean?"));
return;
}
if (strcasecmp(perms, "none")) {
flags = list_to_privs(attr_privs_set, perms, 0);
if (!flags) {
notify(player, T("I don't understand those permissions."));
return;
}
}
upcasestr(name);
/* Is this attribute already in the table? */
ap = (ATTR *) ptab_find_exact(&ptab_attrib, name);
if (ap) {
if (AF_Internal(ap)) {
/* Don't muck with internal attributes */
notify(player, T("That attribute's permissions can not be changed."));
return;
}
} else {
/* Create fresh if the name is ok */
if (!good_atr_name(name)) {
notify(player, T("Invalid attribute name."));
return;
}
insert = 1;
ap = (ATTR *) mush_malloc(sizeof(ATTR), "ATTR");
if (!ap) {
notify(player, T("Critical memory failure - Alert God!"));
do_log(LT_ERR, 0, 0, "do_attribute_access: unable to malloc ATTR");
return;
}
AL_NAME(ap) = strdup(name);
ap->data = NULL_CHUNK_REFERENCE;
}
AL_FLAGS(ap) = flags;
AL_CREATOR(ap) = player;
/* Only insert when it's not already in the table */
if (insert) {
ptab_insert_one(&ptab_attrib, name, ap);
}
/* Ok, now we need to see if there are any attributes of this name
* set on objects in the db. If so, and if we're retroactive, set
* perms/creator
*/
if (retroactive) {
for (i = 0; i < db_top; i++) {
if ((ap2 = atr_get_noparent(i, name))) {
if (AL_FLAGS(ap2) & AF_ROOT)
AL_FLAGS(ap2) = flags | AF_ROOT;
else
AL_FLAGS(ap2) = flags;
AL_CREATOR(ap2) = player;
}
}
}
notify_format(player, T("%s -- Attribute permissions now: %s"), name,
privs_to_string(attr_privs_view, flags));
}
static ATTR *
attr_read(PENNFILE *f)
{
ATTR *a;
char *tmp;
dbref d = GOD;
privbits flags = 0;
a = (ATTR *) mush_malloc(sizeof(ATTR), "ATTR");
if (!a) {
mush_panic("Not enough memory to add attribute in attr_read()!");
return NULL;
}
AL_NAME(a) = NULL;
a->data = NULL_CHUNK_REFERENCE;
AL_FLAGS(a) = 0;
AL_CREATOR(a) = GOD;
a->next = NULL;
db_read_this_labeled_string(f, "name", &tmp);
if (!good_atr_name(tmp)) {
do_rawlog(LT_ERR, "Invalid attribute name '%s' in db.", tmp);
(void) getstring_noalloc(f); /* flags */
(void) getstring_noalloc(f); /* creator */
(void) getstring_noalloc(f); /* data */
free_standard_attr(a, 0);
return NULL;
}
AL_NAME(a) = strdup(tmp);
db_read_this_labeled_string(f, "flags", &tmp);
if (tmp && *tmp && strcasecmp(tmp, "none")) {
flags = list_to_privs(attr_privs_db, tmp, 0);
if (!flags) {
do_rawlog(LT_ERR, "Invalid attribute flags for '%s' in db.", AL_NAME(a));
free((char *) AL_NAME(a));
(void) getstring_noalloc(f); /* creator */
(void) getstring_noalloc(f); /* data */
free_standard_attr(a, 0);
return NULL;
}
}
AL_FLAGS(a) = flags;
db_read_this_labeled_dbref(f, "creator", &d);
AL_CREATOR(a) = d;
db_read_this_labeled_string(f, "data", &tmp);
if (!tmp || !*tmp || !(AL_FLAGS(a) & (AF_ENUM | AF_RLIMIT))) {
a->data = NULL_CHUNK_REFERENCE;
} else if (AL_FLAGS(a) & AF_ENUM) {
/* Store string as it is */
char *t = compress(tmp);
a->data = chunk_create(t, strlen(t), 0);
free(t);
} else if (AL_FLAGS(a) & AF_RLIMIT) {
/* Need to validate regexp */
char *t;
pcre *re;
const char *errptr;
int erroffset;
re = pcre_compile(tmp, PCRE_CASELESS, &errptr, &erroffset, tables);
if (!re) {
do_rawlog(LT_ERR, "Invalid regexp in limit for attribute '%s' in db.",
AL_NAME(a));
free_standard_attr(a, 0);
return NULL;
}
pcre_free(re); /* don't need it, just needed to check it */
t = compress(tmp);
a->data = chunk_create(t, strlen(t), 0);
free(t);
}
return a;
}
