OSF DCE Application Development Guide--Introduction and Style Guide

OSF DCE Application Development Guide—Introduction and Style Guide
goto CLEANUP_EXIT;
}
/* Start listening for calls... */
DCE_SVC_DEBUG((smp_svc_handle, smp_s_server, svc_c_debug4,
"Calling rpc_server_listen()"));
rpc_server_listen(rpc_c_listen_max_calls_default, &status);
if (status != error_status_ok)
{
print_server_error("rpc_server_listen()", status);
/* exit(1); */
}
CLEANUP_EXIT:
/********************************************************************/
/* */
/* Cleanup code -- Reached either because the server listen */
/* returned, or because we never got to listen in */
/* the first place due to some runtime error. */
/* */
/* */
/********************************************************************/
/* Close the ACL databases... */
if (databases_open)
{
DCE_SVC_DEBUG((smp_svc_handle, smp_s_server, svc_c_debug5,
"Calling server_acl_mgr_close()"));
server_acl_mgr_close(&db_acl, &db_object, &db_name, &status);
if (status != error_status_ok)
{
print_server_error("server_acl_mgr_close()", status);
}
}
/* Be sure credentials are still valid before we try to */
/* cleanup... */
dce_svc_printf(CLEANUP_MSG);
DCE_SVC_DEBUG((smp_svc_handle, smp_s_server, svc_c_debug5,
"Calling server_renew_identity()"));
server_renew_identity(server_principal_name,
login_context,
(unsigned_char_p_t)KEYTAB,
CLEANUPTIME,
&status);
if (status != error_status_ok)
{
print_server_error("server_renew_identity()", status);
}
A− 18 Tandem Computers Incorporated 124246