![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to entry_load.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / quipu|
Return to entry_load.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / quipu |
1.1 ! root 1: /* entry_load.c - load bits of the database */ ! 2: ! 3: #ifndef lint ! 4: static char *rcsid = "$Header: /f/osi/quipu/RCS/entry_load.c,v 7.3 90/07/09 14:46:10 mrose Exp $"; ! 5: #endif ! 6: ! 7: /* ! 8: * $Header: /f/osi/quipu/RCS/entry_load.c,v 7.3 90/07/09 14:46:10 mrose Exp $ ! 9: * ! 10: * ! 11: * $Log: entry_load.c,v $ ! 12: * Revision 7.3 90/07/09 14:46:10 mrose ! 13: * sync ! 14: * ! 15: * Revision 7.2 90/04/18 08:49:54 mrose ! 16: * 6.2 ! 17: * ! 18: * Revision 7.1 89/12/19 16:20:34 mrose ! 19: * sync ! 20: * ! 21: * Revision 7.0 89/11/23 22:17:39 mrose ! 22: * Release 6.0 ! 23: * ! 24: */ ! 25: ! 26: /* ! 27: * NOTICE ! 28: * ! 29: * Acquisition, use, and distribution of this module and related ! 30: * materials are subject to the restrictions of a license agreement. ! 31: * Consult the Preface in the User's Manual for the full terms of ! 32: * this agreement. ! 33: * ! 34: */ ! 35: ! 36: #include "config.h" ! 37: #include "quipu/util.h" ! 38: #include "quipu/entry.h" ! 39: #include "quipu/ds_error.h" ! 40: #include "tailor.h" ! 41: #include <sys/stat.h> ! 42: #include <errno.h> ! 43: ! 44: extern char * treedir; ! 45: extern LLog * log_dsap; ! 46: extern int errno; ! 47: struct acl_info * acl_dflt (); ! 48: ! 49: static char filename [LINESIZE]; ! 50: static PS ps; ! 51: ! 52: #define EDBLEN 3 /* length of string "EDB" */ ! 53: ! 54: fileexists (fname) ! 55: char * fname; ! 56: { ! 57: struct stat buf; ! 58: ! 59: if (stat (fname,&buf) != 0) { ! 60: if (errno != ENOENT) ! 61: DLOG (log_dsap,LLOG_DEBUG,("File %s will not stat - %d",fname,errno)); ! 62: return FALSE; ! 63: } ! 64: return TRUE; ! 65: } ! 66: ! 67: static read_mapped_rdn (aps,name,file) ! 68: PS aps; ! 69: char * name; ! 70: char * file; ! 71: { ! 72: FILE * mapfp; ! 73: char *ptr, *newname, *tmp, *getline(); ! 74: extern int parse_line; ! 75: register int i; ! 76: ! 77: if ((mapfp = fopen (file,"r")) == (FILE *)NULL) { ! 78: LLOG(log_dsap,LLOG_EXCEPTIONS,("Can read \"%s\" (%d)",file,errno)); ! 79: return FALSE; ! 80: } ! 81: ! 82: parse_line = 0; ! 83: while ( (ptr = getline(mapfp)) != NULLCP) { ! 84: if ((newname = rindex(ptr,'#')) == NULLCP) { ! 85: LLOG(log_dsap,LLOG_EXCEPTIONS,("Seperator missing in map file \"%s\", line %d",file,parse_line)); ! 86: (void) fclose (mapfp); ! 87: return FALSE; ! 88: } ! 89: tmp = newname; ! 90: *newname++ = 0; ! 91: while (isspace(*--tmp)) ! 92: *tmp = 0; ! 93: ! 94: if (lexequ (name,ptr) == 0) { ! 95: /* got it - replace in ps*/ ! 96: i = strlen (name); ! 97: aps->ps_ptr -= i; ! 98: aps->ps_cnt += i; ! 99: ps_print (aps,SkipSpace(newname)); ! 100: (void) fclose (mapfp); ! 101: return TRUE; ! 102: } ! 103: } ! 104: ! 105: DLOG (log_dsap, LLOG_DEBUG,("%s not found in map file %s",name,file)); ! 106: (void) fclose (mapfp); ! 107: return FALSE; ! 108: } ! 109: ! 110: static write_mapped_rdn (aps,name,file) ! 111: PS aps; ! 112: char * name; ! 113: char * file; ! 114: { ! 115: FILE * mapfp; ! 116: char mapname[LINESIZE]; ! 117: char sname[LINESIZE]; ! 118: char *mptr, *nptr; ! 119: register int i; ! 120: ! 121: if (strlen(name) < MAXFILENAMELEN) ! 122: return FALSE; ! 123: ! 124: /* Make unique name for it */ ! 125: mptr = mapname; ! 126: if ((nptr = index (name,'=')) == NULLCP) ! 127: return FALSE; ! 128: ! 129: for (i=0 ; (*nptr!=0) && (i < MAXFILENAMELEN-6) ; nptr++) ! 130: if (isalpha(*nptr)) ! 131: *mptr++ = *nptr, i++; ! 132: ! 133: (void) strcpy (sname,name); ! 134: (void) strcpy (mptr,"XXXXXX"); ! 135: i = strlen (name); ! 136: nptr = (aps->ps_ptr -= i); ! 137: aps->ps_cnt += i; ! 138: ps_print (aps,mapname); ! 139: *aps->ps_ptr = 0; ! 140: ! 141: if ((aps->ps_base = mktemp (aps->ps_base)) == NULLCP) ! 142: return FALSE; ! 143: ! 144: DLOG(log_dsap,LLOG_DEBUG,("mapped name %s",aps->ps_base)); ! 145: ! 146: if (mkdir (aps->ps_base,0700) != 0) { ! 147: LLOG (log_dsap,LLOG_EXCEPTIONS,("map rdn mkdir failure \"%s\" (%d)",aps->ps_base,errno)); ! 148: return FALSE; ! 149: } ! 150: ! 151: /* write it to map file */ ! 152: if (fileexists(file)) ! 153: mapfp = fopen (file,"a"); ! 154: else { ! 155: int um; ! 156: um = umask (0177); ! 157: mapfp = fopen (file,"w"); ! 158: (void) umask (um); ! 159: } ! 160: ! 161: if (mapfp == (FILE *)NULL) { ! 162: LLOG(log_dsap,LLOG_EXCEPTIONS,("Can't write to \"%s\" (%d)",file,errno)); ! 163: return FALSE; ! 164: } ! 165: ! 166: if (fprintf (mapfp,"%s#%s\n",sname,nptr) == EOF) { ! 167: LLOG(log_dsap,LLOG_EXCEPTIONS,("Can't write to \"%s\" (%d)",file,errno)); ! 168: return FALSE; ! 169: } ! 170: ! 171: if (fclose (mapfp) != 0) { ! 172: LLOG(log_dsap,LLOG_EXCEPTIONS,("Can't close \"%s\" (%d)",file,errno)); ! 173: return FALSE; ! 174: } ! 175: ! 176: return TRUE; ! 177: } ! 178: ! 179: static rdn2filename (aps,rdn,make) ! 180: PS aps; ! 181: RDN rdn; ! 182: char make; ! 183: { ! 184: char *start = aps->ps_ptr; ! 185: char mapbuf [LINESIZE]; ! 186: ! 187: /* look for EDB.map file */ ! 188: *aps->ps_ptr = 0; ! 189: (void) sprintf (mapbuf, "%sEDB.map",aps->ps_base); ! 190: ! 191: rdn_print (aps,rdn,DIROUT); ! 192: *aps->ps_ptr = 0; ! 193: ! 194: if ((fileexists (mapbuf)) && (read_mapped_rdn (aps,start,mapbuf))) ! 195: return OK; ! 196: #ifdef SYS5 ! 197: else if ( strlen(start) > MAXFILENAMELEN ) ! 198: LLOG (log_dsap,LLOG_EXCEPTIONS,("Potential problem with \"%s\" (name too long)",start)); ! 199: #endif ! 200: ! 201: if (fileexists(aps->ps_base)) ! 202: return OK; ! 203: ! 204: if (make) { ! 205: if (write_mapped_rdn (aps,start,mapbuf)) ! 206: return OK; ! 207: if (mkdir (aps->ps_base,0700) != 0) { ! 208: LLOG (log_dsap,LLOG_EXCEPTIONS,("dn2file mkdir failure \"%s\" (%d)",aps->ps_base,errno)); ! 209: return NOTOK; ! 210: } ! 211: return OK; ! 212: } ! 213: ! 214: return NOTOK; ! 215: } ! 216: ! 217: static dn2filename (aps,dn,make) ! 218: PS aps; ! 219: DN dn; ! 220: char make; ! 221: { ! 222: if (treedir != NULLCP) { ! 223: ps_print (aps,isodefile(treedir,0)); ! 224: if (make) { ! 225: *aps->ps_ptr = 0; ! 226: if ((! fileexists (aps->ps_base)) && ! 227: (mkdir (aps->ps_base,0700) != 0)) { ! 228: LLOG (log_dsap,LLOG_EXCEPTIONS,("dn2file mkdir failure \"%s\" (%d)",aps->ps_base,errno)); ! 229: return NOTOK; ! 230: } ! 231: } ! 232: if (*(aps->ps_ptr - 1) != '/') ! 233: ps_print (aps,"/"); ! 234: } else ! 235: ps_print (aps,"./"); ! 236: ! 237: if (dn != NULLDN) { ! 238: if (rdn2filename (aps,dn->dn_rdn,make) == NOTOK) ! 239: return NOTOK; ! 240: if (dn->dn_parent != NULLDN) { ! 241: DN eptr; ! 242: for (eptr = dn->dn_parent; eptr != NULLDN; eptr = eptr->dn_parent) { ! 243: ps_print (aps,"/"); ! 244: if (rdn2filename (aps,eptr->dn_rdn,make) == NOTOK) ! 245: return NOTOK; ! 246: } ! 247: } ! 248: } ! 249: ! 250: return OK; ! 251: ! 252: } ! 253: ! 254: char * dn2edbfile (dn) ! 255: DN dn; ! 256: { ! 257: PS aps; ! 258: static char result [LINESIZE]; ! 259: ! 260: if ((aps = ps_alloc (str_open)) == NULLPS) { ! 261: LLOG (log_dsap, LLOG_EXCEPTIONS, ("dn2dir ps_alloc failed")); ! 262: return NULLCP; ! 263: } ! 264: if (str_setup (aps,result,LINESIZE,1) == NOTOK) { ! 265: LLOG (log_dsap, LLOG_EXCEPTIONS, ("dn2dir ps_alloc failed")); ! 266: return NULLCP; ! 267: } ! 268: ! 269: if (dn2filename (aps,dn,TRUE) != OK) ! 270: return NULLCP; ! 271: ! 272: if (*(aps->ps_ptr - 1) != '/') ! 273: ps_print (aps,"/EDB"); ! 274: else ! 275: ps_print (aps,"EDB"); ! 276: *aps->ps_ptr = 0; ! 277: ! 278: ps_free (aps); ! 279: ! 280: return result; ! 281: } ! 282: ! 283: static file_check (offset,entryptr) ! 284: register int offset; ! 285: register Entry entryptr; ! 286: { ! 287: ps->ps_ptr = filename + offset; ! 288: ps->ps_cnt = LINESIZE - offset; ! 289: ! 290: if (rdn2filename (ps,entryptr->e_name,FALSE) == OK) { ! 291: if (*(ps->ps_ptr - 1) != '/') ! 292: ps_print (ps,"/EDB"); ! 293: else ! 294: ps_print (ps,"EDB"); ! 295: *ps->ps_ptr = 0; ! 296: return (OK); ! 297: } ! 298: return (NOTOK); ! 299: } ! 300: ! 301: static entry_load_kids (entryptr,offset) ! 302: register Entry entryptr; ! 303: register int offset; ! 304: { ! 305: register Entry ptr; ! 306: ! 307: ps->ps_ptr = filename + offset; ! 308: ps->ps_cnt = LINESIZE - offset; ! 309: *ps->ps_ptr = 0; ! 310: ! 311: for ( ptr = entryptr; ptr != NULLENTRY; ptr = ptr->e_sibling) { ! 312: if ((ptr->e_master == NULLAV) && (ptr->e_slave == NULLAV)) { ! 313: ptr->e_leaf = TRUE; ! 314: continue; ! 315: } ! 316: ! 317: if (file_check (offset,ptr) == OK) { ! 318: if ((ptr->e_child = getentry_block (ptr,filename)) == NULLENTRY) ! 319: return (NOTOK); ! 320: ! 321: ptr->e_leaf = FALSE; ! 322: if (entry_load_kids (ptr->e_child,strlen(filename) - EDBLEN) == NOTOK) ! 323: return (NOTOK); ! 324: } else ! 325: LLOG (log_dsap,LLOG_TRACE,("Sibling file %s/EDB NOT found", filename)); ! 326: } ! 327: return (OK); ! 328: ! 329: } ! 330: ! 331: ! 332: Entry subtree_load (parent,dn) ! 333: Entry parent; ! 334: DN dn; ! 335: { ! 336: Entry treetop, temp, old_entry, sibl, find_sibling(); ! 337: ! 338: if ((parent != NULLENTRY) && (parent->e_child != NULLENTRY)) ! 339: if (parent->e_child->e_data != E_TYPE_CONSTRUCTOR) ! 340: return (parent->e_child); ! 341: ! 342: if ((ps = ps_alloc (str_open)) == NULLPS) { ! 343: LLOG (log_dsap, LLOG_EXCEPTIONS, ("file open ps_alloc failed")); ! 344: return (NULLENTRY); ! 345: } ! 346: if (str_setup (ps,filename,LINESIZE,1) == NOTOK) { ! 347: LLOG (log_dsap, LLOG_EXCEPTIONS, ("file open ps_alloc failed")); ! 348: return (NULLENTRY); ! 349: } ! 350: ! 351: (void) dn2filename (ps,dn,FALSE); ! 352: if (*(ps->ps_ptr - 1) != '/') ! 353: ps_print (ps,"/EDB"); ! 354: else ! 355: ps_print (ps,"EDB"); ! 356: *ps->ps_ptr = 0; ! 357: ! 358: if ((parent != NULLENTRY) && (parent->e_child != NULLENTRY)) { ! 359: /* yuk - already got an edb lower in the DIT ... */ ! 360: treetop = getentry_block (parent,filename); ! 361: ! 362: for (temp = treetop; temp != NULLENTRY; temp=temp->e_sibling) { ! 363: temp->e_parent = parent; ! 364: ! 365: if ((old_entry = find_sibling (temp->e_name,parent->e_child)) != NULLENTRY) { ! 366: temp->e_leaf = FALSE; ! 367: temp->e_allchildrenpresent = old_entry->e_allchildrenpresent; ! 368: temp->e_child = old_entry->e_child; ! 369: for (sibl = temp->e_child; sibl != NULLENTRY; sibl=sibl->e_sibling) ! 370: sibl->e_parent = temp; ! 371: if (old_entry->e_edbversion != NULLCP) ! 372: temp->e_edbversion = strdup (old_entry->e_edbversion); ! 373: } ! 374: ! 375: } ! 376: for (temp = parent->e_child; temp != NULLENTRY; temp=old_entry) { ! 377: old_entry = temp->e_sibling; ! 378: entry_free (temp); ! 379: } ! 380: ! 381: parent->e_child = treetop; ! 382: ! 383: ps_free (ps); ! 384: return (treetop); ! 385: } ! 386: ! 387: if (dn == NULLDN) { ! 388: parent = get_default_entry (NULLENTRY); ! 389: parent->e_leaf = FALSE; ! 390: parent->e_acl = acl_alloc(); ! 391: parent->e_acl->ac_child = acl_dflt (); ! 392: parent->e_acl->ac_entry = acl_dflt (); ! 393: parent->e_acl->ac_default = acl_dflt (); ! 394: if ((treetop = getentry_block (parent,filename)) == NULLENTRY) ! 395: return (NULLENTRY); ! 396: } else ! 397: treetop = getentry_block (parent,filename); ! 398: ! 399: parent->e_child = treetop; ! 400: ! 401: if (entry_load_kids (treetop,strlen (filename) - EDBLEN) == NOTOK) ! 402: return (NULLENTRY); ! 403: ! 404: ps_free (ps); ! 405: ! 406: if (dn == NULLDN) ! 407: return (parent); /* be wary of this when calling subtree load... */ ! 408: /* if DN == NULL - you may want the child !!! */ ! 409: else ! 410: return (treetop); ! 411: } ! 412: ! 413: refresh_from_disk(dn) ! 414: DN dn; ! 415: { ! 416: Entry parent; ! 417: Entry child; ! 418: Entry tmp; ! 419: extern Entry database_root; ! 420: ! 421: if ((parent = local_find_entry (dn,FALSE)) == NULLENTRY) ! 422: return (NOTOK); ! 423: ! 424: if (parent->e_data != E_DATA_MASTER) { ! 425: LLOG (log_dsap,LLOG_NOTICE, ("Can only refresh MASTER EDB files")); ! 426: return (NOTOK); ! 427: } ! 428: ! 429: child = parent->e_child; ! 430: parent->e_child = NULLENTRY; ! 431: ! 432: if ((tmp = subtree_load (parent,dn)) == NULLENTRY) ! 433: return (NOTOK); ! 434: ! 435: if (dn == NULLDN) { ! 436: database_root = tmp; ! 437: entry_free (parent); ! 438: } ! 439: directory_free (child); ! 440: ! 441: return (OK); ! 442: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.