crm_xml_debug(output, "[out]");
crm_xml_devel(output, "[out]");
process_pe_message(HA_Message *msg, crm_data_t * xml_data, IPC_Channel *sender){	const char *sys_to = cl_get_string(msg, F_CRM_SYS_TO);	const char *op = cl_get_string(msg, F_CRM_TASK);	const char *ref = cl_get_string(msg, XML_ATTR_REFERENCE);	crm_verbose("Processing %s op (ref=%s)...", op, ref);		if(op == NULL){		/* error */	} else if(strcmp(op, CRM_OP_HELLO) == 0) {		/* ignore */			} else if(safe_str_eq(cl_get_string(msg, F_CRM_MSG_TYPE),			      XML_ATTR_RESPONSE)) {		/* ignore */			} else if(sys_to == NULL || strcmp(sys_to, CRM_SYSTEM_PENGINE) != 0) {		crm_verbose("Bad sys-to %s", crm_str(sys_to));		return FALSE;			} else if(strcmp(op, CRM_OP_PECALC) == 0) {		crm_data_t * output = NULL;		crm_xml_info(xml_data, "[in ]");		output = do_calculations(xml_data);		crm_xml_debug(output, "[out]");		if (send_ipc_reply(sender, msg, output) ==FALSE) {			crm_warn("Answer could not be sent");		}		free_xml(output);	} else if(strcmp(op, CRM_OP_QUIT) == 0) {		crm_warn("Received quit message, terminating");		exit(0);	}		return TRUE;}