lib/krb5/kcm.c

73     krb5_error_code ret = 0;
78 	ret = heim_ipc_init_context(kcm_ipc_name, &kcm_ipc);
80     if (ret)
83     ret = krb5_storage_to_data(request, &request_data);
84     if (ret) {
89     ret = heim_ipc_call(kcm_ipc, &request_data, response_data, NULL);
92     if (ret) {
94 	ret = KRB5_CC_NOSUPP;
97     return ret;
106     krb5_error_code ret;
117     ret  = krb5_store_int8(sp, KCM_PROTOCOL_VERSION_MAJOR);
118     if (ret)
120     ret = krb5_store_int8(sp, KCM_PROTOCOL_VERSION_MINOR);
121     if (ret)
123     ret = krb5_store_int16(sp, opcode);
124     if (ret)
129     if (ret) {
130 	krb5_set_error_message(context, ret,
135     return ret;
174     krb5_error_code ret;
183     ret = kcm_send_request(context, request, &response_data);
184     if (ret)
185 	return ret;
193     ret = krb5_ret_int32(response, &status);
194     if (ret) {
255     krb5_error_code ret;
259     ret = kcm_alloc(context, NULL, id);
260     if (ret)
261 	return ret;
265     ret = krb5_kcm_storage_request(context, KCM_OP_GEN_NEW, &request);
266     if (ret) {
268 	return ret;
271     ret = krb5_kcm_call(context, request, &response, &response_data);
272     if (ret) {
275 	return ret;
278     ret = krb5_ret_stringz(response, &k->name);
279     if (ret)
280 	ret = KRB5_CC_IO;
286     if (ret)
289     return ret;
305     krb5_error_code ret;
309     ret = krb5_kcm_storage_request(context, KCM_OP_INITIALIZE, &request);
310     if (ret)
311 	return ret;
313     ret = krb5_store_stringz(request, k->name);
314     if (ret) {
316 	return ret;
319     ret = krb5_store_principal(request, primary_principal);
320     if (ret) {
322 	return ret;
325     ret = krb5_kcm_call(context, request, NULL, NULL);
332     return ret;
354     krb5_error_code ret;
358     ret = krb5_kcm_storage_request(context, KCM_OP_DESTROY, &request);
359     if (ret)
360 	return ret;
362     ret = krb5_store_stringz(request, k->name);
363     if (ret) {
365 	return ret;
368     ret = krb5_kcm_call(context, request, NULL, NULL);
371     return ret;
387     krb5_error_code ret;
391     ret = krb5_kcm_storage_request(context, KCM_OP_STORE, &request);
392     if (ret)
393 	return ret;
395     ret = krb5_store_stringz(request, k->name);
396     if (ret) {
398 	return ret;
401     ret = krb5_store_creds(request, creds);
402     if (ret) {
404 	return ret;
407     ret = krb5_kcm_call(context, request, NULL, NULL);
410     return ret;
431     krb5_error_code ret;
436     ret = krb5_kcm_storage_request(context, KCM_OP_RETRIEVE, &request);
437     if (ret)
438 	return ret;
440     ret = krb5_store_stringz(request, k->name);
441     if (ret) {
443 	return ret;
446     ret = krb5_store_int32(request, which);
447     if (ret) {
449 	return ret;
452     ret = krb5_store_creds_tag(request, rk_UNCONST(mcred));
453     if (ret) {
455 	return ret;
458     ret = krb5_kcm_call(context, request, &response, &response_data);
459     if (ret) {
461 	return ret;
464     ret = krb5_ret_creds(response, creds);
465     if (ret)
466 	ret = KRB5_CC_IO;
472     return ret;
488     krb5_error_code ret;
493     ret = krb5_kcm_storage_request(context, KCM_OP_GET_PRINCIPAL, &request);
494     if (ret)
495 	return ret;
497     ret = krb5_store_stringz(request, k->name);
498     if (ret) {
500 	return ret;
503     ret = krb5_kcm_call(context, request, &response, &response_data);
504     if (ret) {
506 	return ret;
509     ret = krb5_ret_principal(response, principal);
510     if (ret)
511 	ret = KRB5_CC_IO;
517     return ret;
533     krb5_error_code ret;
539     ret = krb5_kcm_storage_request(context, KCM_OP_GET_CRED_UUID_LIST, &request);
540     if (ret)
541 	return ret;
543     ret = krb5_store_stringz(request, k->name);
544     if (ret) {
546 	return ret;
549     ret = krb5_kcm_call(context, request, &response, &response_data);
551     if (ret)
552 	return ret;
556 	ret = ENOMEM;
557 	krb5_set_error_message(context, ret,
559 	return ret;
569 	    ret = 0;
572 	    ret = EINVAL;
593     if (ret) {
596 	return ret;
618     krb5_error_code ret;
630     ret = krb5_kcm_storage_request(context, KCM_OP_GET_CRED_BY_UUID, &request);
631     if (ret)
632 	return ret;
634     ret = krb5_store_stringz(request, k->name);
635     if (ret) {
637 	return ret;
650     ret = krb5_kcm_call(context, request, &response, &response_data);
652     if (ret == KRB5_CC_END) {
656     ret = krb5_ret_creds(response, creds);
657     if (ret)
658 	ret = KRB5_CC_IO;
663     return ret;
704     krb5_error_code ret;
708     ret = krb5_kcm_storage_request(context, KCM_OP_REMOVE_CRED, &request);
709     if (ret)
710 	return ret;
712     ret = krb5_store_stringz(request, k->name);
713     if (ret) {
715 	return ret;
718     ret = krb5_store_int32(request, which);
719     if (ret) {
721 	return ret;
724     ret = krb5_store_creds_tag(request, cred);
725     if (ret) {
727 	return ret;
730     ret = krb5_kcm_call(context, request, NULL, NULL);
733     return ret;
741     krb5_error_code ret;
745     ret = krb5_kcm_storage_request(context, KCM_OP_SET_FLAGS, &request);
746     if (ret)
747 	return ret;
749     ret = krb5_store_stringz(request, k->name);
750     if (ret) {
752 	return ret;
755     ret = krb5_store_int32(request, flags);
756     if (ret) {
758 	return ret;
761     ret = krb5_kcm_call(context, request, NULL, NULL);
764     return ret;
782     krb5_error_code ret;
791 	ret = ENOMEM;
792 	krb5_set_error_message(context, ret,
797     ret = krb5_kcm_storage_request(context, KCM_OP_GET_CACHE_UUID_LIST, &request);
798     if (ret)
801     ret = krb5_kcm_call(context, request, &response, &response_data);
803     if (ret)
813 	    ret = 0;
816 	    ret = EINVAL;
822 	    ret = ENOMEM;
823 	    krb5_set_error_message(context, ret,
837     if (ret && c) {
843     return ret;
854     krb5_error_code ret;
868     ret = krb5_kcm_storage_request(context, KCM_OP_GET_CACHE_BY_UUID, &request);
869     if (ret)
870 	return ret;
882     ret = krb5_kcm_call(context, request, &response, &response_data);
884     if (ret == KRB5_CC_END)
887     ret = krb5_ret_stringz(response, &name);
891     if (ret == 0) {
892 	ret = _krb5_cc_allocate(context, ops, id);
893 	if (ret == 0)
894 	    ret = kcm_alloc(context, name, id);
898     return ret;
932     krb5_error_code ret;
937     ret = krb5_kcm_storage_request(context, KCM_OP_MOVE_CACHE, &request);
938     if (ret)
939 	return ret;
941     ret = krb5_store_stringz(request, oldk->name);
942     if (ret) {
944 	return ret;
947     ret = krb5_store_stringz(request, newk->name);
948     if (ret) {
950 	return ret;
952     ret = krb5_kcm_call(context, request, NULL, NULL);
955     return ret;
962     krb5_error_code ret;
969     ret = krb5_kcm_storage_request(context, KCM_OP_GET_DEFAULT_CACHE, &request);
970     if (ret)
971 	return ret;
973     ret = krb5_kcm_call(context, request, &response, &response_data);
975     if (ret)
978     ret = krb5_ret_stringz(response, &name);
981     if (ret)
982 	return ret;
1009     krb5_error_code ret;
1013     ret = krb5_kcm_storage_request(context, KCM_OP_SET_DEFAULT_CACHE, &request);
1014     if (ret)
1015 	return ret;
1017     ret = krb5_store_stringz(request, k->name);
1018     if (ret) {
1020 	return ret;
1023     ret = krb5_kcm_call(context, request, NULL, NULL);
1026     return ret;
1040     krb5_error_code ret;
1043     ret = krb5_kcm_storage_request(context, KCM_OP_SET_KDC_OFFSET, &request);
1044     if (ret)
1045 	return ret;
1047     ret = krb5_store_stringz(request, k->name);
1048     if (ret) {
1050 	return ret;
1052     ret = krb5_store_int32(request, kdc_offset);
1053     if (ret) {
1055 	return ret;
1058     ret = krb5_kcm_call(context, request, NULL, NULL);
1061     return ret;
1068     krb5_error_code ret;
1073     ret = krb5_kcm_storage_request(context, KCM_OP_GET_KDC_OFFSET, &request);
1074     if (ret)
1075 	return ret;
1077     ret = krb5_store_stringz(request, k->name);
1078     if (ret) {
1080 	return ret;
1083     ret = krb5_kcm_call(context, request, &response, &response_data);
1085     if (ret)
1086 	return ret;
1088     ret = krb5_ret_int32(response, &offset);
1091     if (ret)
1092 	return ret;
1167     krb5_error_code ret;
1172     ret = kcm_alloc(context, NULL, &id);
1173     if (ret)
1193     krb5_error_code ret;
1196     ret = krb5_kcm_storage_request(context, KCM_OP_NOOP, &request);
1197     if (ret)
1198 	return ret;
1200     ret = krb5_kcm_call(context, request, NULL, NULL);
1203     return ret;
1224     krb5_error_code ret;
1227     ret = krb5_kcm_storage_request(context, KCM_OP_GET_INITIAL_TICKET, &request);
1228     if (ret)
1229 	return ret;
1231     ret = krb5_store_stringz(request, k->name);
1232     if (ret) {
1234 	return ret;
1237     ret = krb5_store_int8(request, (server == NULL) ? 0 : 1);
1238     if (ret) {
1240 	return ret;
1244 	ret = krb5_store_principal(request, server);
1245 	if (ret) {
1247 	    return ret;
1251     ret = krb5_store_keyblock(request, *key);
1252     if (ret) {
1254 	return ret;
1257     ret = krb5_kcm_call(context, request, NULL, NULL);
1260     return ret;
1281     krb5_error_code ret;
1285     ret = krb5_kcm_storage_request(context, KCM_OP_GET_TICKET, &request);
1286     if (ret)
1287 	return ret;
1289     ret = krb5_store_stringz(request, k->name);
1290     if (ret) {
1292 	return ret;
1295     ret = krb5_store_int32(request, flags.i);
1296     if (ret) {
1298 	return ret;
1301     ret = krb5_store_int32(request, enctype);
1302     if (ret) {
1304 	return ret;
1307     ret = krb5_store_principal(request, server);
1308     if (ret) {
1310 	return ret;
1313     ret = krb5_kcm_call(context, request, NULL, NULL);
1316     return ret;