Function clone_update_actions_interleave

pengine/clone.c:1183–1257

}

static enum pe_graph_flags
clone_update_actions_interleave(action_t * first, action_t * then, node_t * node,
                                enum pe_action_flags flags, enum pe_action_flags filter,
                                enum pe_ordering type)
{
    gboolean current = FALSE;
    resource_t *first_child = NULL;
    GListPtr gIter = then->rsc->children;
    enum pe_graph_flags changed = pe_graph_none;        /*pe_graph_disable */

    enum action_tasks task = clone_child_action(first);
    const char *first_task = task2text(task);

    /* Fix this - lazy */
    if (strstr(first->uuid, "_stopped_0") || strstr(first->uuid, "_demoted_0")) {
        current = TRUE;
    }

    for (; gIter != NULL; gIter = gIter->next) {
        resource_t *then_child = (resource_t *) gIter->data;

        CRM_ASSERT(then_child != NULL);
        first_child = find_compatible_child(then_child, first->rsc, RSC_ROLE_UNKNOWN, current);
        if (first_child == NULL && current) {
            crm_trace("Ignore");

        } else if (first_child == NULL) {
            crm_debug("No match found for %s (%d / %s / %s)", then_child->id, current, first->uuid,
                      then->uuid);

            /* Me no like this hack - but what else can we do?
             *
             * If there is no-one active or about to be active
             *   on the same node as then_child, then they must
             *   not be allowed to start
             */
            if (type & (pe_order_runnable_left | pe_order_implies_then) /* Mandatory */ ) {
                pe_rsc_info(then->rsc, "Inhibiting %s from being active", then_child->id);
                assign_node(then_child, NULL, TRUE);
            }

        } else {
            action_t *first_action = NULL;
            action_t *then_action = NULL;

            pe_rsc_debug(then->rsc, "Pairing %s with %s", first_child->id, then_child->id);

            first_action = find_first_action(first_child->actions, NULL, first_task, node);
            then_action = find_first_action(then_child->actions, NULL, then->task, node);

            CRM_CHECK(first_action != NULL || is_set(first_child->flags, pe_rsc_orphan),
                      crm_err("No action found for %s in %s (first)", first_task, first_child->id));

            if (then_action == NULL && is_not_set(then_child->flags, pe_rsc_orphan)
                && crm_str_eq(then->task, RSC_STOP, TRUE) == FALSE
                && crm_str_eq(then->task, RSC_DEMOTED, TRUE) == FALSE) {
                crm_err("Internal error: No action found for %s in %s (then)", then->task,
                        then_child->id);