/* Called by: zxid_as_call_ses, zxid_az_soap, zxid_idp_soap, zxid_soap_call_body, zxid_sp_deref_art, zxid_sp_soap */
struct zx_root_s* zxid_soap_call_hdr_body(zxid_conf* cf, struct zx_str* url, struct zx_e_Header_s* hdr, struct zx_e_Body_s* body)
{
struct zx_root_s* r;
struct zx_e_Envelope_s* env = zx_NEW_e_Envelope(cf->ctx,0);
env->Header = hdr;
env->Body = body;
zx_add_kid(&env->gg, &body->gg);
if (hdr)
zx_add_kid(&env->gg, &hdr->gg);
r = zxid_soap_call_raw(cf, url, env, 0);
return r;
}
/* Called by: main x9, zxid_call_epr, zxid_discover_epr, zxid_map_identity_token, zxid_nidmap_identity_token */
struct zx_e_Envelope_s* zxid_wsc_call(zxid_conf* cf, zxid_ses* ses, zxid_epr* epr, struct zx_e_Envelope_s* env, char** ret_enve)
{
int i, res;
struct zx_str* code;
struct zx_str* str;
struct zx_str* actor;
struct zx_root_s* root;
struct zx_e_Fault_s* flt;
D_INDENT("wsc_call rq: ");
if (!zxid_wsc_prep(cf, ses, epr, env)) {
D_DEDENT("wsc_call rq: ");
return 0;
}
for (i=0; i < cf->max_soap_retry; ++i) {
if (!zxid_wsc_prep_secmech(cf, ses, epr, env)) {
D_DEDENT("wsc_call rq: ");
return 0;
}
ses->wsc_msgid = zx_str_to_c(cf->ctx, ZX_GET_CONTENT(env->Header->MessageID));
root = zxid_soap_call_raw(cf, ZX_GET_CONTENT(epr->Address), env, ret_enve);
D_DEDENT("wsc_call rq: ");
D_INDENT("wsc_call rs: ");
if (!root || !root->Envelope || !root->Envelope->Body) {
ERR("soap call returned empty or seriously flawed response %p", root);
zxid_set_fault(cf, ses, zxid_mk_fault(cf, 0, TAS3_PEP_RS_PARSE, "e:Server", "Server sent empty or invalid reply. SOAP Envelope or Body can not be found.", 0, 0, 0, 0));
D_DEDENT("wsc_call rs: ");
return 0;
}
flt = root->Envelope->Body->Fault;
if (flt) {
code = ZX_GET_CONTENT(flt->faultcode);
str = ZX_GET_CONTENT(flt->faultstring);
actor = ZX_GET_CONTENT(flt->faultactor);
D("SOAP Fault(%.*s) string(%.*s) actor(%.*s)", code?code->len:1, code?code->s:"?", str?str->len:1, str?str->s:"?", actor?actor->len:1, actor?actor->s:"?");
zxid_set_fault(cf, ses, zxid_mk_fault_zx_str(cf, 0, zx_dup_str(cf->ctx,TAS3_PEP_RS_VAL), code?code:zx_dup_str(cf->ctx,"e:Server"), str));
D_DEDENT("wsc_call rs: ");
return 0;
}
//res = zxid_wsf_analyze_result_headers(cf, ret); // detect, e.g., redirect
res = ZXID_OK;
switch (res) {
case ZXID_OK:
D_DEDENT("wsc_call rs: ");
return root->Envelope; /* Success case */
#if 0
case ZXID_NEW_CRED:
break;
case ZXID_EP_MOVE: // ***
break;
case ZXID_EP_UPDATE:
break;
#endif
case ZXID_REDIR_OK:
D("Redirection requested (e.g. Interaction Service) %d", 0);
D_DEDENT("wsc_call rs: ");
return (void*)ZXID_REDIR_OK;
default:
ERR("Unknown result code: %d", res);
D_DEDENT("wsc_call rs: ");
return 0;
}
}
ERR("Number of soap call retries exhausted max_soap_retry=%d", cf->max_soap_retry);
D_DEDENT("wsc_call rs: ");
return 0;
}
