OSF DCE Application Development Guide--Introduction and Style Guide

OSF DCE Application Development Guide—Introduction and Style Guide
if (*status != error_status_ok)
{
print_server_error("server_store_acl()", *status);
return;
}
/********************************************************************/
/* Object ACL creation code... */
/* Now create the object ACL... */
DCE_SVC_DEBUG((smp_svc_handle, smp_s_server, svc_c_debug5,
"Calling server_create_acl()"));
server_create_acl(
sample_acl_mgr_uuid, /* Create an ACL with this */
/* manager type. */
owner_perms, /* Give it these permissions. */
owner, /* Make this the principal name. */
new_obj_acl, /* This will contain new ACL. */
object_acl_uuid, /* This will contain new ACL UUID. */
status);
if (*status != error_status_ok)
{
print_server_error("server_create_acl()", *status);
return;
}
/* Null the data header... */
DCE_SVC_DEBUG((smp_svc_handle, smp_s_server, svc_c_debug4,
"Calling bzero()"));
bzero((char *)&object_data, sizeof object_data);
/* Store the object ACL... */
DCE_SVC_DEBUG((smp_svc_handle, smp_s_server, svc_c_debug5,
"Calling server_store_acl()"));
server_store_acl(
*db_acl, /* The ACL UUID-indexed store. */
*db_object, /* The object UUID-indexed store. */
*db_name, /* The name ("residual")-indexed store. */
new_obj_acl, /* The ACL itself. */
object_acl_uuid, /* The object ACL UUID. */
&object_uuid, /* The object UUID. */
object_name, /* The object name. */
/* (void*) */ &object_data, /* The object contents. */
/* is_container */ 0, /* Is this a container ACL? */
status);
if (*status != error_status_ok)
{
print_server_error("server_store_acl()", *status);
return;
}
/* Finally, free the space we were using... */
DCE_SVC_DEBUG((smp_svc_handle, smp_s_server, svc_c_debug4,
"Calling dce_acl_obj_free_entries()"));
A− 50 Tandem Computers Incorporated 124246