gistfile1.txt

check_is_admin(#db{user_ctx=#user_ctx{name=Name,roles=Roles}}=Db) ->
    {Admins} = get_admins(Db),
    AdminRoles = [<<"_admin">> | couch_util:get_value(<<"roles">>, Admins, [])],
    AdminNames = couch_util:get_value(<<"names">>, Admins,[]),
    case AdminRoles -- Roles of
        AdminRoles -> % same list, not an admin role
            case AdminNames -- [Name] of
                AdminNames -> % same names, not an admin
                    throw({unauthorized, <<"You are not a db or server admin.">>});
                _ ->
                    ok
            end;
        _ ->
            ok
    end.