![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to add_alias.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 / others / quipu / uips / manage|
Return to add_alias.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / others / quipu / uips / manage |
1.1 root 1: /* add_alias.c - a mutilated add.c*/
2:
3: #ifndef lint
4: static char *rcsid = "$Header: /f/osi/others/quipu/uips/manage/RCS/add_alias.c,v 7.1 90/07/27 08:47:16 mrose Exp $";
5: #endif
6:
7: /*
8: * $Header: /f/osi/others/quipu/uips/manage/RCS/add_alias.c,v 7.1 90/07/27 08:47:16 mrose Exp $
9: *
10: *
11: * $Log: add_alias.c,v $
12: * Revision 7.1 90/07/27 08:47:16 mrose
13: * update
14: *
15: * Revision 7.0 90/06/26 14:52:31 mrose
16: * *** empty log message ***
17: *
18: */
19:
20: /*
21: * NOTICE
22: *
23: * Acquisition, use, and distribution of this module and related
24: * materials are subject to the restrictions of a license agreement.
25: * Consult the Preface in the User's Manual for the full terms of
26: * this agreement.
27: *
28: */
29:
30:
31: #include "quipu/util.h"
32: #include "quipu/dua.h"
33: #include "quipu/add.h"
34: #include "quipu/entry.h"
35: #include "quipu/compare.h"
36: #include "quipu/modify.h"
37:
38: #define ORG_PERSON "thornPerson & quipuObject"
39: /* this should probably go elsewhere !!! */
40:
41: extern DN dn;
42: #define OPT (!frompipe || rps -> ps_byteno == 0 ? opt : rps)
43: #define RPS (!frompipe || opt -> ps_byteno == 0 ? rps : opt)
44: extern char frompipe;
45: extern PS opt;
46: extern PS rps;
47: extern Entry current_entry;
48: static char new_draft;
49:
50: call_add_alias (argc, argv)
51: int argc;
52: char **argv;
53: {
54: DN oj_dn, aoj_dn ;
55: DN save_dn, dnptr, trail ;
56: DN moddn;
57: extern DN str2dn_aux() ;
58: extern DN sequence_dn() ;
59: Entry entry_ptr;
60: FILE *fd;
61: PS tmp ;
62: PS str_ps;
63: char str_buffer[1000];
64: char fname[128];
65: char alias = FALSE ;
66:
67: struct ds_addentry_arg add_arg;
68: struct DSError error;
69: struct DSError compare_error;
70: struct ds_compare_result compare_result;
71: struct ds_compare_arg compare_arg;
72: struct ds_modifyentry_arg mod_arg;
73: struct DSError mod_error;
74: struct entrymod *emnew ;
75:
76: AV_Sequence objClassAVS ;
77: AV_Sequence treeStrAVS ;
78: Attr_Sequence get_attributes();
79:
80: extern int parse_status;
81:
82: int draft_flag = 0;
83: char *home;
84: char objectname[80] ;
85: char aliasobjectname[160] ;
86: char *contact_compare[6] ;
87: char *contact_showentry[6] ;
88: char *contact_modify[1] ;
89:
90: contact_compare[0] = "compare" ;
91: contact_compare[1] = "";
92: contact_compare[2] = "-attribute";
93: contact_compare[4] = "-noprint";
94: contact_compare[5] = "-dontdereferencealias" ;
95: contact_showentry[0] = "showentry";
96: contact_showentry[1] = "-noshow" ;
97: contact_showentry[2] = "-all" ;
98: contact_showentry[3] = "-nokey" ;
99: contact_showentry[4] = "-dontdereferencealias";
100: contact_modify[0] = "modify" ;
101:
102: emnew = em_alloc() ;
103: contact_showentry[5] = (char *) malloc ((unsigned)strlen(argv[2])) ;
104: (void)strcpy(contact_showentry[5], argv[2]) ;
105:
106: contact_compare[3] = (char *) malloc ((unsigned)strlen("objectClass=alias.")) ;
107: (void)strcpy(contact_compare[3], "objectClass=alias") ;
108:
109: if (service_control (OPT, 6, contact_compare, &compare_arg.cma_common) == -1)
110: {
111: ps_print(OPT, "Problems with compare service control flags.\n") ;
112: return ;
113: }
114:
115: if (home = getenv ("HOME"))
116: (void) sprintf (fname, "%s/.dishdraft", home);
117: else
118: (void) strcpy (fname, "./.dishdraft");
119: new_draft = FALSE;
120:
121: if ((argc = service_control (OPT, argc, argv, &add_arg.ada_common)) == -1)
122: return ;
123: if (argc < 3)
124: {
125: ps_printf(OPT, "Not enough arguments.\n") ;
126: Usage (argv[0]) ;
127: return ;
128: }
129: (void)strcpy(objectname, argv[1]) ;
130: (void)strcpy(aliasobjectname, argv[2]) ;
131:
132: /* Turn a sequence number back into a DN */
133: if (*aliasobjectname >= '0' && *aliasobjectname <= '9')
134: {
135: /* First convert the number into a dn */
136: aoj_dn = dn_cpy(sequence_dn(atoi(aliasobjectname))) ;
137: }
138: else
139: {
140: if (*aliasobjectname == '.')
141: {
142: ps_print(OPT, "..@ gives me a headache. Ambiguous. Abort... \n") ;
143: return ;
144: }
145:
146: if (*aliasobjectname == '@')
147: {
148: aoj_dn = dn_cpy(str2dn(aliasobjectname + 1)) ;
149: }
150: else
151: {
152: /*aoj_dn = dn_cpy(dn) ;
153: *dn_append(aoj_dn, dn_cpy(str2dn(aliasobjectname))) ;
154: */
155: save_dn = str2dn_aux(aliasobjectname,&alias) ;
156: if (save_dn != NULLDN)
157: {
158: if (alias)
159: {
160: aoj_dn = dn_cpy(save_dn);
161: }
162: else
163: {
164: if (dn == NULLDN)
165: {
166: aoj_dn = dn_cpy(save_dn) ;
167: }
168: else
169: {
170: aoj_dn = dn_cpy(dn) ;
171: dn_append (aoj_dn,save_dn);
172: }
173: }
174: }
175: dn_free(save_dn) ;
176: }
177: }
178:
179: if (*objectname >= '0' && *objectname <= '9')
180: {
181: /* First convert the number into a dn */
182: oj_dn = dn_cpy(sequence_dn(atoi(objectname))) ;
183: }
184: else
185: {
186: if (*objectname == '.')
187: {
188: ps_print(OPT, "..@ gives me a headache. Ambiguous. Abort... \n") ;
189: return ;
190: }
191:
192: if (*objectname == '@')
193: {
194: oj_dn = dn_cpy(str2dn(objectname + 1)) ;
195: }
196: else
197: {
198: oj_dn = dn_cpy(dn) ;
199: dn_append(oj_dn, dn_cpy(str2dn(objectname))) ;
200: }
201: }
202:
203: save_dn = dn_cpy(dn) ;
204: dn_free(dn) ;
205: dn = dn_cpy(aoj_dn) ;
206: if (!test_move_dn())
207: {
208: ps_print(OPT, "Can't move to ") ;
209: dn_print(OPT, dn, EDBOUT) ;
210: ps_print(OPT, ".\nAborting.\n") ;
211: return ;
212: }
213: compare_arg.cma_object = aoj_dn;
214: if (get_ava (&compare_arg.cma_purported, "objectClass", "alias") != OK)
215: {
216: ps_print(OPT, "Oops, 'objectClass=alias' is a bad attribute!\n") ;
217: ps_print(OPT, "This is very bad...\n") ;
218: return ;
219: }
220:
221: if (rebind () != OK)
222: return ;
223:
224: while (ds_compare (&compare_arg, &compare_error, &compare_result) != DS_OK)
225: {
226: if (dish_error (OPT, &compare_error) == 0)
227: {
228: return ;
229: }
230: compare_arg.cma_object = compare_error.ERR_REFERRAL.DSE_ref_candidates->cr_name;
231: }
232:
233: if ( compare_result.cmr_matched == 1 ) /* if <AOJ> is an alias, abort. */
234: {
235: ps_printf(OPT, "Sorry, %s is an alias.\nAliasing to aliases is illegal.\n", aliasobjectname) ;
236: return ;
237: }
238:
239: /* Now we want to discover the objectClass of our object, and make
240: * sure that this will be OK when we add in the alias. (ie fitting
241: * in with the treeStructure.)
242: */
243:
244: /* stick the aliasobjectname into the cache so we can read
245: * bits of information from it.
246: */
247:
248: call_showentry(6, contact_showentry) ;
249: contact_showentry[5] = (char *) malloc ((unsigned)strlen(argv[2])) ;
250: (void)strcpy(contact_showentry[5], argv[2]) ;
251:
252: if (current_entry == NULLENTRY)
253: {
254: ps_print(OPT, "Can't read ") ;
255: dn_print(OPT, dn, EDBOUT) ;
256: ps_print(OPT, " for objectClass attribute. Aborting.\n") ;
257: return ;
258: }
259: else
260: {
261: /* Find the objectClass attribute to compare with the tree
262: * structure of the node we are going to dangle the alias
263: * from.
264: * While we are at it, find out how many seeAlso attributes
265: * are present, so we can decide whether we need to add
266: * the entire attribute or just another value.
267: */
268:
269: Attr_Sequence eptr ;
270: AttributeType a_t = AttrT_new("objectClass") ;
271: AttributeType a_t2 = AttrT_new("seeAlso") ;
272:
273: emnew->em_type = EM_ADDATTRIBUTE ;
274: for (eptr = current_entry->e_attributes; eptr != NULLATTR; eptr = eptr->attr_link)
275: {
276: if ( AttrT_cmp (eptr->attr_type, a_t) == 0 )
277: {
278: objClassAVS = avs_cpy(eptr->attr_value);
279: }
280: if ( AttrT_cmp (eptr->attr_type, a_t2) == 0 )
281: {
282: emnew->em_type = EM_ADDVALUES ;
283: }
284: }
285: }
286: if (objClassAVS == NULLAV)
287: {
288: ps_print(OPT, "We can't find Object Class.... Aborting.\n") ;
289: return ;
290: }
291: /* We should have got the ObjectClass now, so return to where we were
292: * and move up a level to grab the tree structure */
293:
294: dn_free(dn) ;
295: dn = dn_cpy(oj_dn) ;
296:
297: for (dnptr = dn; dnptr->dn_parent != NULLDN; dnptr = dnptr->dn_parent)
298: trail = dnptr;
299: dn_comp_free (dnptr);
300: trail->dn_parent = NULLDN;
301:
302: contact_showentry[1] = ( char *) malloc ((unsigned)strlen("-noshow") + 1) ;
303: (void)strcpy(contact_showentry[1], "-noshow") ;
304: contact_showentry[2] = ( char *) malloc ((unsigned)strlen("-all") + 1) ;
305: (void)strcpy(contact_showentry[2], "-all") ;
306: contact_showentry[3] = ( char *) malloc ((unsigned)strlen("-nokey") + 1) ;
307: (void)strcpy(contact_showentry[3], "-nokey") ;
308: contact_showentry[4] = ( char *) malloc ((unsigned)strlen("-dontdereferencealias") + 1) ;
309: (void)strcpy(contact_showentry[4], "-dontdereferencealias") ;
310:
311: call_showentry(5, contact_showentry) ;
312:
313: if (current_entry == NULLENTRY)
314: {
315: ps_print(OPT, "Can't read ") ;
316: dn_print(OPT, dn, EDBOUT) ;
317: ps_print(OPT, " for the treeStructure. Aborting.\n") ;
318: return ;
319: }
320: else
321: {
322: Attr_Sequence eptr ;
323: AttributeType a_t = AttrT_new("treeStructure") ;
324:
325: for (eptr = current_entry->e_attributes; eptr != NULLATTR; eptr = eptr->attr_link)
326: {
327: if ( AttrT_cmp (eptr->attr_type, a_t) == 0 )
328: {
329: treeStrAVS = avs_cpy (eptr->attr_value) ;
330: }
331: }
332: }
333:
334: if (treeStrAVS == NULLAV)
335: {
336: ps_print(OPT, "Tree Structure Missing in ") ;
337: dn_print(OPT, dn, EDBOUT) ;
338: ps_print(OPT, ".\nAssuming that the add will be valid.\n") ;
339: }
340: else
341: {
342: if (test_schema(treeStrAVS, objClassAVS) != OK)
343: {
344: ps_print(OPT, "Not allowed to add this alias here.\n") ;
345: ps_print(OPT, "It would break the directory schema to add this alias here.\n") ;
346: return ;
347: }
348: }
349:
350: /* This is where we have to start being rather careful, previously
351: * we have just being reading and checking, but now we start to add
352: * things in, changing in several places. Mistakes => inconsistencies
353: * ie BAD...
354: */
355:
356: /* If we reach here, we should have the appropriate arguments,
357: * one is the new object,
358: * the other is an existing non-alias-entry object.
359: * We now write the information to a draft file, and 'whongo'
360: * the alias into the database.
361: */
362:
363: /* open the draft file for writing... */
364:
365: if ((fd = fopen (fname, "w")) == (FILE *) NULL)
366: {
367: ps_printf (OPT, "Can't open draft entry %s\n", fname);
368: return ;
369: }
370:
371: (void)fprintf(fd, "aliasedObjectName= ") ;
372: if ( ((tmp = ps_alloc (std_open)) != NULLPS) &&
373: (std_setup (tmp, fd) != NOTOK) )
374: {
375: dn_print(tmp, aoj_dn, EDBOUT) ;
376: }
377: else
378: {
379: ps_print(OPT, "Unable to open appropriate ps. Aborting..\n") ;
380: return ;
381: }
382: (void)fprintf(fd, "\nobjectClass= quipuObject & alias & top\n") ;
383: (void) fclose(fd) ;
384:
385: if (move (objectname) != OK)
386: {
387: ps_printf (OPT,"Unknown option %s\n",objectname);
388: return ;
389: }
390:
391: /* now parse the files */
392: if ((fd = fopen (fname, "r")) == (FILE *) NULL) {
393: ps_printf (OPT, "Can't open draft entry %s\n", fname);
394: return ;
395: }
396: entry_ptr = get_default_entry (NULLENTRY);
397: entry_ptr->e_attributes = get_attributes (fd);
398: (void) fclose (fd);
399: if (parse_status != 0)
400: return ;
401:
402: add_arg.ada_object = dn;
403: for (moddn = dn ; moddn->dn_parent != NULLDN; moddn=moddn->dn_parent)
404: ;
405: entry_ptr->e_name = rdn_cpy (moddn->dn_rdn);
406: add_arg.ada_entry = entry_ptr->e_attributes;
407:
408: if (rebind () != OK) {
409: entry_free (entry_ptr);
410: return ;
411: }
412:
413: while (ds_addentry (&add_arg, &error) != DS_OK) {
414: if (dish_error (OPT, &error) == 0) {
415: entry_free (entry_ptr);
416: return ;
417: }
418: add_arg.ada_object = error.ERR_REFERRAL.DSE_ref_candidates->cr_name;
419: }
420: ps_print (RPS, "Added ");
421: dn_print (RPS, dn, EDBOUT);
422: ps_print (RPS, "\n");
423: entry_free (entry_ptr);
424: make_old (fname,draft_flag);
425:
426: /* Now we have to add a "seeAlso=<DN>" attribute to the <AOJ> */
427:
428: if (service_control(OPT, 1, contact_modify, &mod_arg.mea_common) == -1)
429: {
430: ps_printf(OPT, "Add_alias: Badly wrong. Service controls for modify in error...\n") ;
431: return ;
432: }
433:
434: dn_free(dn) ;
435: dn = dn_cpy(save_dn) ;
436: {
437: AV_Sequence new_avs = avs_comp_alloc() ;
438: AttributeValue new_AV = AttrV_alloc() ;
439:
440: if ((str_ps = ps_alloc(str_open)) == NULLPS)
441: {
442: ps_printf(OPT, "Ps alloc for your string failed.\n") ;
443: return ;
444: }
445: if (str_setup (str_ps, str_buffer, 998, 1) == NOTOK)
446: {
447: ps_printf (OPT, "str_setup: %s", ps_error (str_ps -> ps_errno));
448: ps_free (str_ps);
449: return ;
450: }
451: dn_print(str_ps, oj_dn, EDBOUT) ;
452: *str_ps->ps_ptr = 0 ;
453: ps_free(str_ps) ;
454:
455: new_AV = AttrV_cpy(str2AttrV(str_buffer, str2syntax("DN"))) ;
456: new_avs = avs_comp_new(AttrV_cpy(new_AV)) ;
457: emnew->em_what = as_comp_new(AttrT_new("seeAlso"), new_avs, NULLACL_INFO) ;
458: }
459: emnew->em_next = NULLMOD ;
460: mod_arg.mea_object = aoj_dn;
461: mod_arg.mea_changes = emnew ;
462:
463: if (rebind () != OK)
464: return ;
465:
466: /*
467: * If this operation is time-stamped, it may have expired while the user
468: * was editing the entry. Re-calculate the time-stamp. Modify is the only
469: * dish command where this needs to be done.
470: */
471:
472: if ((mod_arg.mea_common.ca_security != (struct security_parms *) 0)
473: && (mod_arg.mea_common.ca_security->sp_time != NULLCP))
474: {
475: char *new_version();
476:
477: free(mod_arg.mea_common.ca_security->sp_time);
478: mod_arg.mea_common.ca_security->sp_time = new_version();
479: }
480:
481: /* If security parameters are present, take this to mean that strong
482: * authentication is required. This disallows 'parms + no signature'
483: * (pointless) and 'signature + no parms' (security risk).
484: */
485: if (mod_arg.mea_common.ca_security != (struct security_parms *) 0)
486: {
487: int encode_DAS_ModifyEntryArgumentData();
488: struct signature *sign_operation();
489: mod_arg.mea_common.ca_sig =
490: sign_operation((caddr_t)&mod_arg,
491: encode_DAS_ModifyEntryArgumentData);
492: }
493:
494: while (ds_modifyentry (&mod_arg, &mod_error) != DS_OK)
495: {
496: if (dish_error (OPT, &mod_error) == 0)
497: {
498: ps_print(OPT, "Unable to modify ") ;
499: dn_print(OPT, aoj_dn, EDBOUT) ;
500: ps_print(OPT, "\n") ;
501: return ;
502: }
503: mod_arg.mea_object = mod_error.ERR_REFERRAL.DSE_ref_candidates->cr_name;
504: }
505: ps_print (RPS, "Modified ");
506: dn_print (RPS, aoj_dn, EDBOUT);
507: ps_print (RPS, "\n");
508: delete_cache (aoj_dn); /* re-cache when next read */
509:
510: dn_free(dn) ;
511: dn = dn_cpy(save_dn) ;
512: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.