// File: adminp.c
// Added in TMI 1.2.1 to accommodate a reorganization of admin structure
//
// Returns 1 if object has admin privilege; 0 otherwise

#define ADMINACCESS "adminaccess"

int adminp( mixed ob_or_str ) {
    if ((stringp(ob_or_str) &&
          (int)master()->query_member_group(ob_or_str, ADMINACCESS)) ||
        (objectp(ob_or_str) &&
          (int)master()->query_member_group(geteuid(ob_or_str), ADMINACCESS)))
        return 1;
    return 0;
}