git.sur5r.net Git - openldap/blob - libraries/libldap/srchpref.c

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