Attachment #86670 for bug #133028

View | Details | Raw Unified | Return to bug 133028
Collapse All | Expand All




 */
static int Apol_Search_FC_Index_DB(ClientData clientData, Tcl_Interp *interp, int argc, CONST char *argv[])
{	
#ifndef LIBSEFS
	Tcl_SetResult(interp, "You need to build apol with libsefs to use this feature!", TCL_STATIC);
	return TCL_ERROR;
#else		
	sefs_search_keys_t search_keys;
	CONST char **object_classes = NULL, **types = NULL, **users = NULL,
	    **ranges, **paths = NULL;
	int retval = TCL_ERROR;
	Tcl_Obj *result_obj = Tcl_NewListObj(0, NULL);

#ifndef LIBSEFS
	Tcl_SetResult(interp, "You need to build apol with libsefs to use this feature!", TCL_STATIC);
	return TCL_ERROR;
#else		
	memset(&search_keys, 0, sizeof(search_keys));
	if (argc != 10) {
		Tcl_SetResult(interp, "Need a list of users, list of types, list of object classes, list of ranges, list of paths, user_regex, type_regex, range_regex, and path_regex", TCL_STATIC);

Return to bug 133028

Lines 178-193 Link Here

(-)a/libapol/apol_tcl_fc.c (-4 / +4 lines)
178	*/	178	*/
179	static int Apol_Search_FC_Index_DB(ClientData clientData, Tcl_Interp interp, int argc, CONST char argv[])	179	static int Apol_Search_FC_Index_DB(ClientData clientData, Tcl_Interp interp, int argc, CONST char argv[])
180	{	180	{
		181	#ifndef LIBSEFS
		182	Tcl_SetResult(interp, "You need to build apol with libsefs to use this feature!", TCL_STATIC);
		183	return TCL_ERROR;
		184	#else
181	sefs_search_keys_t search_keys;	185	sefs_search_keys_t search_keys;
182	CONST char object_classes = NULL, types = NULL, **users = NULL,	186	CONST char object_classes = NULL, types = NULL, **users = NULL,
183	ranges, paths = NULL;	187	ranges, paths = NULL;
184	int retval = TCL_ERROR;	188	int retval = TCL_ERROR;
185	Tcl_Obj *result_obj = Tcl_NewListObj(0, NULL);	189	Tcl_Obj *result_obj = Tcl_NewListObj(0, NULL);
186		190
187	#ifndef LIBSEFS
188	Tcl_SetResult(interp, "You need to build apol with libsefs to use this feature!", TCL_STATIC);
189	return TCL_ERROR;
190	#else
191	memset(&search_keys, 0, sizeof(search_keys));	191	memset(&search_keys, 0, sizeof(search_keys));
192	if (argc != 10) {	192	if (argc != 10) {
193	Tcl_SetResult(interp, "Need a list of users, list of types, list of object classes, list of ranges, list of paths, user_regex, type_regex, range_regex, and path_regex", TCL_STATIC);	193	Tcl_SetResult(interp, "Need a list of users, list of types, list of object classes, list of ranges, list of paths, user_regex, type_regex, range_regex, and path_regex", TCL_STATIC);