1 /*
2 *
3 * Portions Copyright 1998 Sun Microsystems, Inc. All rights reserved.
4 * Use is subject to license terms.
5 *
6 */
7
8 #pragma ident "%Z%%M% %I% %E% SMI"
9
10 /*
11 * Copyright (c) 1993, 1994 Regents of the University of Michigan.
12 * All rights reserved.
13 *
14 * Redistribution and use in source and binary forms are permitted
15 * provided that this notice is preserved and that due credit is given
16 * to the University of Michigan at Ann Arbor. The name of the University
17 * may not be used to endorse or promote products derived from this
18 * software without specific prior written permission. This software
19 * is provided ``as is'' without express or implied warranty.
20 *
21 * searchpref.c: search preferences library routines for LDAP clients
22 * 17 May 1994 by Gordon Good
23 */
24
25 #include <stdio.h>
26 #include <ctype.h>
27 #include <string.h>
28 #include <stdlib.h>
29 #ifdef MACOS
30 #include "macos.h"
31 #else /* MACOS */
32 #ifdef DOS
33 #include <malloc.h>
34 #include "msdos.h"
35 #else /* DOS */
36 #include <sys/types.h>
37 #include <sys/file.h>
38 #ifndef VMS
39 #include <unistd.h>
40 #endif /* VMS */
41 #endif /* DOS */
42 #endif /* MACOS */
43
44 #include "lber.h"
45 #include "ldap.h"
46 #include "ldap-private.h"
47
48 #ifndef NEEDPROTOS
49 int next_line_tokens();
50 void free_strarray();
51 static void free_searchobj();
52 static int read_next_searchobj();
53 #else /* !NEEDPROTOS */
54 int next_line_tokens( char **bufp, ssize_t *blenp, char ***toksp );
55 void free_strarray( char **sap );
56 static void free_searchobj( struct ldap_searchobj *so );
57 static int read_next_searchobj( char **bufp, ssize_t *blenp,
58 struct ldap_searchobj **sop, int soversion );
59 #endif /* !NEEDPROTOS */
60
61
62 static char *sobjoptions[] = {
63 "internal",
64 NULL
65 };
66
67
68 static unsigned int sobjoptvals[] = {
69 LDAP_SEARCHOBJ_OPT_INTERNAL,
70 };
71
72
73 int
ldap_init_searchprefs(char * file,struct ldap_searchobj ** solistp)74 ldap_init_searchprefs( char *file, struct ldap_searchobj **solistp )
75 {
76 FILE *fp;
77 char *buf;
78 ssize_t rlen, len;
79 int rc, eof;
80
81 if (( fp = fopen( file, "r" )) == NULL ) {
82 return( LDAP_SEARCHPREF_ERR_FILE );
83 }
84
85 if ( fseek( fp, 0L, SEEK_END ) != 0 ) { /* move to end to get len */
86 fclose( fp );
87 return( LDAP_SEARCHPREF_ERR_FILE );
88 }
89
90 len = ftell( fp );
91
92 if ( fseek( fp, 0L, SEEK_SET ) != 0 ) { /* back to start of file */
93 fclose( fp );
94 return( LDAP_SEARCHPREF_ERR_FILE );
95 }
96
97 if (( buf = malloc( (size_t)len )) == NULL ) {
98 fclose( fp );
99 return( LDAP_SEARCHPREF_ERR_MEM );
100 }
101
102 rlen = fread( buf, (size_t) 1, (size_t)len, fp );
103 eof = feof( fp );
104 fclose( fp );
105
106 if ( rlen != len && !eof ) { /* error: didn't get the whole file */
107 free( buf );
108 return( LDAP_SEARCHPREF_ERR_FILE );
109 }
110
111 rc = ldap_init_searchprefs_buf( buf, rlen, solistp );
112 free( buf );
113
114 return( rc );
115 }
116
117
118 int
ldap_init_searchprefs_buf(char * buf,ssize_t buflen,struct ldap_searchobj ** solistp)119 ldap_init_searchprefs_buf( char *buf, ssize_t buflen,
120 struct ldap_searchobj **solistp )
121 {
122 int rc, version;
123 char **toks;
124 struct ldap_searchobj *prevso, *so;
125
126 *solistp = prevso = NULLSEARCHOBJ;
127
128 if ( next_line_tokens( &buf, &buflen, &toks ) != 2 ||
129 strcasecmp( toks[ 0 ], "version" ) != 0 ) {
130 free_strarray( toks );
131 return( LDAP_SEARCHPREF_ERR_SYNTAX );
132 }
133 version = atoi( toks[ 1 ] );
134 free_strarray( toks );
135 if ( version != LDAP_SEARCHPREF_VERSION &&
136 version != LDAP_SEARCHPREF_VERSION_ZERO ) {
137 return( LDAP_SEARCHPREF_ERR_VERSION );
138 }
139
140 while ( buflen > 0 && ( rc = read_next_searchobj( &buf, &buflen, &so,
141 version )) == 0 && so != NULLSEARCHOBJ ) {
142 if ( prevso == NULLSEARCHOBJ ) {
143 *solistp = so;
144 } else {
145 prevso->so_next = so;
146 }
147 prevso = so;
148 }
149
150 if ( rc != 0 ) {
151 ldap_free_searchprefs( *solistp );
152 }
153
154 return( rc );
155 }
156
157
158
159 void
ldap_free_searchprefs(struct ldap_searchobj * solist)160 ldap_free_searchprefs( struct ldap_searchobj *solist )
161 {
162 struct ldap_searchobj *so, *nextso;
163
164 if ( solist != NULL ) {
165 for ( so = solist; so != NULL; so = nextso ) {
166 nextso = so->so_next;
167 free_searchobj( so );
168 }
169 }
170 /* XXX XXX need to do some work here */
171 }
172
173
174 static void
free_searchobj(struct ldap_searchobj * so)175 free_searchobj( struct ldap_searchobj *so )
176 {
177 if ( so != NULL ) {
178 if ( so->so_objtypeprompt != NULL ) {
179 free( so->so_objtypeprompt );
180 }
181 if ( so->so_prompt != NULL ) {
182 free( so->so_prompt );
183 }
184 if ( so->so_filterprefix != NULL ) {
185 free( so->so_filterprefix );
186 }
187 if ( so->so_filtertag != NULL ) {
188 free( so->so_filtertag );
189 }
190 if ( so->so_defaultselectattr != NULL ) {
191 free( so->so_defaultselectattr );
192 }
193 if ( so->so_defaultselecttext != NULL ) {
194 free( so->so_defaultselecttext );
195 }
196 if ( so->so_salist != NULL ) {
197 struct ldap_searchattr *sa, *nextsa;
198 for ( sa = so->so_salist; sa != NULL; sa = nextsa ) {
199 nextsa = sa->sa_next;
200 if ( sa->sa_attrlabel != NULL ) {
201 free( sa->sa_attrlabel );
202 }
203 if ( sa->sa_attr != NULL ) {
204 free( sa->sa_attr );
205 }
206 if ( sa->sa_selectattr != NULL ) {
207 free( sa->sa_selectattr );
208 }
209 if ( sa->sa_selecttext != NULL ) {
210 free( sa->sa_selecttext );
211 }
212 free( sa );
213 }
214 }
215 if ( so->so_smlist != NULL ) {
216 struct ldap_searchmatch *sm, *nextsm;
217 for ( sm = so->so_smlist; sm != NULL; sm = nextsm ) {
218 nextsm = sm->sm_next;
219 if ( sm->sm_matchprompt != NULL ) {
220 free( sm->sm_matchprompt );
221 }
222 if ( sm->sm_filter != NULL ) {
223 free( sm->sm_filter );
224 }
225 free( sm );
226 }
227 }
228 free( so );
229 }
230 }
231
232
233
234 struct ldap_searchobj *
ldap_first_searchobj(struct ldap_searchobj * solist)235 ldap_first_searchobj( struct ldap_searchobj *solist )
236 {
237 return( solist );
238 }
239
240
241 struct ldap_searchobj *
ldap_next_searchobj(struct ldap_searchobj * solist,struct ldap_searchobj * so)242 ldap_next_searchobj( struct ldap_searchobj *solist, struct ldap_searchobj *so )
243 {
244 return( so == NULLSEARCHOBJ ? so : so->so_next );
245 }
246
247
248
249 static int
read_next_searchobj(char ** bufp,ssize_t * blenp,struct ldap_searchobj ** sop,int soversion)250 read_next_searchobj( char **bufp, ssize_t *blenp, struct ldap_searchobj **sop,
251 int soversion )
252 {
253 int i, j, tokcnt;
254 char **toks;
255 struct ldap_searchobj *so;
256 struct ldap_searchattr **sa;
257 struct ldap_searchmatch **sm;
258
259 *sop = NULL;
260
261 /*
262 * Object type prompt comes first
263 */
264 if (( tokcnt = next_line_tokens( bufp, blenp, &toks )) != 1 ) {
265 free_strarray( toks );
266 return( tokcnt == 0 ? 0 : LDAP_SEARCHPREF_ERR_SYNTAX );
267 }
268
269 if (( so = (struct ldap_searchobj *)calloc( (size_t) 1,
270 sizeof( struct ldap_searchobj ))) == NULL ) {
271 free_strarray( toks );
272 return( LDAP_SEARCHPREF_ERR_MEM );
273 }
274 so->so_objtypeprompt = toks[ 0 ];
275 free( (char *)toks );
276
277 /*
278 * if this is post-version zero, options come next
279 */
280 if ( soversion > LDAP_SEARCHPREF_VERSION_ZERO ) {
281 if (( tokcnt = next_line_tokens( bufp, blenp, &toks )) < 1 ) {
282 free_strarray( toks );
283 ldap_free_searchprefs( so );
284 return( LDAP_SEARCHPREF_ERR_SYNTAX );
285 }
286 for ( i = 0; toks[ i ] != NULL; ++i ) {
287 for ( j = 0; sobjoptions[ j ] != NULL; ++j ) {
288 if ( strcasecmp( toks[ i ], sobjoptions[ j ] ) == 0 ) {
289 so->so_options |= sobjoptvals[ j ];
290 }
291 }
292 }
293 free_strarray( toks );
294 }
295
296 /*
297 * "Fewer choices" prompt is next
298 */
299 if (( tokcnt = next_line_tokens( bufp, blenp, &toks )) != 1 ) {
300 free_strarray( toks );
301 ldap_free_searchprefs( so );
302 return( LDAP_SEARCHPREF_ERR_SYNTAX );
303 }
304 so->so_prompt = toks[ 0 ];
305 free( (char *)toks );
306
307 /*
308 * Filter prefix for "More Choices" searching is next
309 */
310 if (( tokcnt = next_line_tokens( bufp, blenp, &toks )) != 1 ) {
311 free_strarray( toks );
312 ldap_free_searchprefs( so );
313 return( LDAP_SEARCHPREF_ERR_SYNTAX );
314 }
315 so->so_filterprefix = toks[ 0 ];
316 free( (char *)toks );
317
318 /*
319 * "Fewer Choices" filter tag comes next
320 */
321 if (( tokcnt = next_line_tokens( bufp, blenp, &toks )) != 1 ) {
322 free_strarray( toks );
323 ldap_free_searchprefs( so );
324 return( LDAP_SEARCHPREF_ERR_SYNTAX );
325 }
326 so->so_filtertag = toks[ 0 ];
327 free( (char *)toks );
328
329 /*
330 * Selection (disambiguation) attribute comes next
331 */
332 if (( tokcnt = next_line_tokens( bufp, blenp, &toks )) != 1 ) {
333 free_strarray( toks );
334 ldap_free_searchprefs( so );
335 return( LDAP_SEARCHPREF_ERR_SYNTAX );
336 }
337 so->so_defaultselectattr = toks[ 0 ];
338 free( (char *)toks );
339
340 /*
341 * Label for selection (disambiguation) attribute
342 */
343 if (( tokcnt = next_line_tokens( bufp, blenp, &toks )) != 1 ) {
344 free_strarray( toks );
345 ldap_free_searchprefs( so );
346 return( LDAP_SEARCHPREF_ERR_SYNTAX );
347 }
348 so->so_defaultselecttext = toks[ 0 ];
349 free( (char *)toks );
350
351 /*
352 * Search scope is next
353 */
354 if (( tokcnt = next_line_tokens( bufp, blenp, &toks )) != 1 ) {
355 free_strarray( toks );
356 ldap_free_searchprefs( so );
357 return( LDAP_SEARCHPREF_ERR_SYNTAX );
358 }
359 if ( !strcasecmp(toks[ 0 ], "subtree" )) {
360 so->so_defaultscope = LDAP_SCOPE_SUBTREE;
361 } else if ( !strcasecmp(toks[ 0 ], "onelevel" )) {
362 so->so_defaultscope = LDAP_SCOPE_ONELEVEL;
363 } else if ( !strcasecmp(toks[ 0 ], "base" )) {
364 so->so_defaultscope = LDAP_SCOPE_BASE;
365 } else {
366 ldap_free_searchprefs( so );
367 return( LDAP_SEARCHPREF_ERR_SYNTAX );
368 }
369 free_strarray( toks );
370
371
372 /*
373 * "More Choices" search option list comes next
374 */
375 sa = &( so->so_salist );
376 while (( tokcnt = next_line_tokens( bufp, blenp, &toks )) > 0 ) {
377 if ( tokcnt < 5 ) {
378 free_strarray( toks );
379 ldap_free_searchprefs( so );
380 return( LDAP_SEARCHPREF_ERR_SYNTAX );
381 }
382 if (( *sa = ( struct ldap_searchattr * ) calloc( (size_t) 1,
383 sizeof( struct ldap_searchattr ))) == NULL ) {
384 free_strarray( toks );
385 ldap_free_searchprefs( so );
386 return( LDAP_SEARCHPREF_ERR_MEM );
387 }
388 ( *sa )->sa_attrlabel = toks[ 0 ];
389 ( *sa )->sa_attr = toks[ 1 ];
390 ( *sa )->sa_selectattr = toks[ 3 ];
391 ( *sa )->sa_selecttext = toks[ 4 ];
392 /* Deal with bitmap */
393 ( *sa )->sa_matchtypebitmap = 0;
394 for ( i = (int) strlen( toks[ 2 ] ) - 1, j = 0; i >= 0; i--, j++ ) {
395 if ( toks[ 2 ][ i ] == '1' ) {
396 ( *sa )->sa_matchtypebitmap |= (1 << j);
397 }
398 }
399 free( toks[ 2 ] );
400 free( ( char * ) toks );
401 sa = &(( *sa )->sa_next);
402 }
403 *sa = NULL;
404
405 /*
406 * Match types are last
407 */
408 sm = &( so->so_smlist );
409 while (( tokcnt = next_line_tokens( bufp, blenp, &toks )) > 0 ) {
410 if ( tokcnt < 2 ) {
411 free_strarray( toks );
412 ldap_free_searchprefs( so );
413 return( LDAP_SEARCHPREF_ERR_SYNTAX );
414 }
415 if (( *sm = ( struct ldap_searchmatch * ) calloc( (size_t) 1,
416 sizeof( struct ldap_searchmatch ))) == NULL ) {
417 free_strarray( toks );
418 ldap_free_searchprefs( so );
419 return( LDAP_SEARCHPREF_ERR_MEM );
420 }
421 ( *sm )->sm_matchprompt = toks[ 0 ];
422 ( *sm )->sm_filter = toks[ 1 ];
423 free( ( char * ) toks );
424 sm = &(( *sm )->sm_next );
425 }
426 *sm = NULL;
427
428 *sop = so;
429 return( 0 );
430 }
431