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

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