![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dsaconfig.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 / tools / dsaconfig|
Return to dsaconfig.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / others / quipu / tools / dsaconfig |
1.1 ! root 1: /* dsaconfig.c - build a database directory for a Level-1 DSA */ ! 2: ! 3: #ifndef lint ! 4: static char *rcsid = "$Header: /f/osi/others/quipu/tools/dsaconfig/RCS/dsaconfig.c,v 7.4 90/07/27 08:44:58 mrose Exp $"; ! 5: #endif ! 6: ! 7: /* ! 8: * $Header: /f/osi/others/quipu/tools/dsaconfig/RCS/dsaconfig.c,v 7.4 90/07/27 08:44:58 mrose Exp $ ! 9: * ! 10: * ! 11: * $Log: dsaconfig.c,v $ ! 12: * Revision 7.4 90/07/27 08:44:58 mrose ! 13: * update ! 14: * ! 15: * Revision 7.3 90/03/22 08:38:31 mrose ! 16: * touch-up ! 17: * ! 18: * Revision 7.2 90/01/11 18:36:09 mrose ! 19: * real-sync ! 20: * ! 21: * Revision 7.1 89/12/06 17:30:24 mrose ! 22: * update ! 23: * ! 24: * Revision 7.0 89/11/23 22:02:38 mrose ! 25: * Release 6.0 ! 26: * ! 27: */ ! 28: ! 29: /* ! 30: * NOTICE ! 31: * ! 32: * Acquisition, use, and distribution of this module and related ! 33: * materials are subject to the restrictions of a license agreement. ! 34: * Consult the Preface in the User's Manual for the full terms of ! 35: * this agreement. ! 36: * ! 37: */ ! 38: ! 39: ! 40: #include <ctype.h> ! 41: #include <errno.h> ! 42: #include <grp.h> ! 43: #include <pwd.h> ! 44: #include <stdio.h> ! 45: #include <varargs.h> ! 46: #include "general.h" ! 47: #include "manifest.h" ! 48: #include "internet.h" ! 49: #include "psap.h" ! 50: #include "tailor.h" ! 51: ! 52: ! 53: #ifdef SYS5 ! 54: struct group *getgrnam (); ! 55: struct passwd *getpwnam (), *getpwuid (); ! 56: #endif ! 57: ! 58: /* DATA */ ! 59: ! 60: static int debug =0; ! 61: ! 62: static int uid = 0; ! 63: static int gid = 0; ! 64: ! 65: static char *myname = "dsaconfig"; ! 66: ! 67: static char *wildlife = NULL; ! 68: static char sedfil[BUFSIZ]; ! 69: ! 70: ! 71: void adios (), advise (); ! 72: char *version (); ! 73: ! 74: ! 75: extern int errno; ! 76: ! 77: extern char *quipuversion; ! 78: ! 79: /* MAIN */ ! 80: ! 81: /* ARGSUSED */ ! 82: ! 83: main (argc, argv, envp) ! 84: int argc; ! 85: char **argv, ! 86: **envp; ! 87: { ! 88: char buffer[BUFSIZ]; ! 89: ! 90: arginit (argv); ! 91: if (access (wildlife, 0x00) != NOTOK) ! 92: adios (NULLCP, "%s already exists, choose a different name", wildlife); ! 93: ! 94: read_config (); ! 95: generate_sed (); ! 96: ! 97: build_root (); ! 98: build_TLC (); ! 99: build_organization (); ! 100: build_unit (); ! 101: ! 102: build_tailor (); ! 103: build_startup (); ! 104: build_nightly (); ! 105: ! 106: build_dsap (); ! 107: build_fred (); ! 108: ! 109: #ifndef SYS5 ! 110: (void) sprintf (buffer, "find %s -exec /etc/chown %d {} \\;", ! 111: wildlife, uid); ! 112: #else ! 113: (void) sprintf (buffer, "find %s -exec chown %d {} \\;", wildlife, uid); ! 114: #endif ! 115: if (debug) ! 116: fprintf (stderr, "%s\n", buffer); ! 117: (void) system (buffer); ! 118: ! 119: (void) sprintf (buffer, "find %s -exec chgrp %d {} \\;", ! 120: wildlife, gid); ! 121: if (debug) ! 122: fprintf (stderr, "%s\n", buffer); ! 123: (void) system (buffer); ! 124: ! 125: (void) unlink (sedfil); ! 126: ! 127: exit (0); ! 128: } ! 129: ! 130: /* CONFIG */ ! 131: ! 132: struct country { ! 133: char *c_code; ! 134: int c_number; ! 135: char *c_name; ! 136: ! 137: char *c_root; ! 138: char *c_master; ! 139: char *c_other; ! 140: ! 141: char *c_phone; ! 142: ! 143: int c_flags; ! 144: #define C_SHORT 0x01 ! 145: }; ! 146: ! 147: struct country *read_country (); ! 148: ! 149: /* */ ! 150: ! 151: struct pair { ! 152: char *p_name; ! 153: char *p_value; ! 154: ! 155: int p_flags; ! 156: #define P_NULL 0x00 ! 157: #define P_OPT 0x01 ! 158: #define P_MBOX 0x02 ! 159: #define P_XXX 0x04 ! 160: #define P_ZAP 0x08 ! 161: #define P_POST 0x10 ! 162: }; ! 163: ! 164: static struct pair pairs[] = { ! 165: "dsa", NULL, /* Spectacled Bear */ ! 166: P_NULL, ! 167: ! 168: "country", NULL, /* US */ ! 169: P_OPT, ! 170: "organization", NULL, /* NYSERNet, Inc. */ ! 171: P_NULL, ! 172: "domain", NULL, /* nyser.net */ ! 173: P_NULL, ! 174: "unit", NULL, /* Research and Development */ ! 175: P_NULL, ! 176: "street", NULL, /* 165 Jordan Road */ ! 177: P_OPT, ! 178: "pob", NULL, /* 1234 */ ! 179: P_OPT, ! 180: "town", NULL, /* Troy */ ! 181: P_NULL, ! 182: "state", NULL, /* New York */ ! 183: P_NULL, ! 184: "zipcode", NULL, /* 12180 */ ! 185: P_NULL, ! 186: "locality", NULL, /* Troy, New York */ ! 187: P_OPT, ! 188: "postaladdress", NULL, /* org $ address */ ! 189: P_OPT | P_POST, ! 190: ! 191: "telephone", NULL, /* +1 518-283-8860 */ ! 192: P_NULL, ! 193: "fax", NULL, /* +1 518-283-8904 */ ! 194: P_OPT, ! 195: ! 196: "description", NULL, /* not-for-profit ... */ ! 197: P_NULL, ! 198: ! 199: "ipaddr", NULL, /* 127.0.0.1 */ ! 200: P_OPT, ! 201: "port", NULL, /* 17003 */ ! 202: P_OPT, ! 203: ! 204: "firstname", NULL, /* Marshall */ ! 205: P_NULL, ! 206: "lastname", NULL, /* Rose */ ! 207: P_NULL, ! 208: "middleinitial", NULL, /* T */ ! 209: P_OPT, ! 210: "middlename", NULL, /* Txxx */ ! 211: P_OPT, ! 212: "mailbox", NULL, /* [email protected] */ ! 213: P_MBOX, ! 214: "title", NULL, /* Senior Scientist */ ! 215: P_NULL, ! 216: "userid", NULL, /* mrose */ ! 217: P_OPT, ! 218: "groupid", NULL, /* whitepages */ ! 219: P_OPT, ! 220: "password", NULL, /* secret */ ! 221: P_NULL, ! 222: "extension", NULL, /* +1 518-283-8860 */ ! 223: P_OPT, ! 224: ! 225: "wildlife", NULL, /* spectacled-bear */ ! 226: P_XXX, ! 227: "bindir", NULL, /* /usr/local/bin/ */ ! 228: P_XXX, ! 229: "sbindir", NULL, /* /usr/etc/ */ ! 230: P_XXX, ! 231: "etcdir", NULL, /* /usr/etc/ */ ! 232: P_XXX, ! 233: "quipuversion", NULL, /* from -lquipu */ ! 234: P_XXX, ! 235: "rootDSA", NULL, /* root upstream */ ! 236: P_XXX, ! 237: "countryDSA", NULL, /* country upstream */ ! 238: P_XXX, ! 239: "otherDSA", NULL, /* hack... */ ! 240: P_XXX, ! 241: "rootDSAaddress", NULL, /* PSAP of root upstream */ ! 242: P_XXX, ! 243: "countryDSAaddress", NULL, /* PSAP of country upstream */ ! 244: P_XXX, ! 245: "otherDSAaddress", NULL, /* PSAP of hack... */ ! 246: P_XXX, ! 247: ! 248: NULL ! 249: }; ! 250: ! 251: struct pair *n2p (); ! 252: ! 253: /* */ ! 254: ! 255: static read_config () { ! 256: int lineno; ! 257: register char *cp, ! 258: *dp; ! 259: char buffer[BUFSIZ], ! 260: file[BUFSIZ], ! 261: line[BUFSIZ], ! 262: *vec[NVEC + 1]; ! 263: FILE *fp; ! 264: register struct country *c; ! 265: register struct pair *p, ! 266: *q; ! 267: register struct hostent *hp; ! 268: struct sockaddr_in in_socket; ! 269: register struct sockaddr_in *isock = &in_socket; ! 270: ! 271: (void) sprintf (file, "%s.dsa", wildlife); ! 272: if ((fp = fopen (file, "r")) == NULL) ! 273: adios (file, "unable to read"); ! 274: ! 275: for (lineno = 1; fgets (buffer, sizeof buffer, fp); lineno++) { ! 276: if (*buffer == '#') ! 277: continue; ! 278: if (cp = index (buffer, '\n')) ! 279: *cp = NULL; ! 280: (void) strcpy (line, buffer); ! 281: ! 282: bzero ((char *) vec, sizeof vec); ! 283: switch (str2vec (buffer, vec)) { ! 284: case 0: ! 285: continue; ! 286: ! 287: case 1: ! 288: for (p = pairs; p -> p_name; p++) ! 289: if (strcmp (p -> p_name, vec[0]) == 0) ! 290: break; ! 291: if (!p -> p_name || (p -> p_flags & P_XXX)) ! 292: adios (NULLCP, "unknown variable \"%s\"", vec[0]); ! 293: continue; ! 294: ! 295: case 2: ! 296: break; ! 297: ! 298: default: ! 299: adios (NULLCP, "syntax error on line %d:\n%s", lineno, line); ! 300: /* NOTREACHED */ ! 301: } ! 302: ! 303: for (p = pairs; p -> p_name; p++) ! 304: if (strcmp (p -> p_name, vec[0]) == 0) ! 305: break; ! 306: if (!p -> p_name || (p -> p_flags & P_XXX)) ! 307: adios (NULLCP, "unknown variable \"%s\"", vec[0]); ! 308: if (p -> p_value) ! 309: adios (NULLCP, "multiple values for \"%s\" starting at line %d", ! 310: p -> p_name, lineno); ! 311: ! 312: if (p -> p_flags & P_MBOX) { ! 313: for (cp = vec[1]; *cp; cp++) ! 314: if (!isascii (*cp) || *cp == '$' || *cp == '&') { ! 315: illegal: ; ! 316: adios (NULLCP, ! 317: "illegal character %c (0%o) in value for \"%s\"", ! 318: *cp, *cp & 0xff, p -> p_name); ! 319: } ! 320: } ! 321: else ! 322: for (cp = vec[1]; *cp; cp++) { ! 323: if (isalpha (*cp) || isdigit (*cp)) ! 324: continue; ! 325: switch (*cp) { ! 326: case 047: /* ' */ ! 327: case '(': ! 328: case ')': ! 329: case '+': ! 330: case ',': ! 331: case '-': ! 332: case '.': ! 333: case '/': ! 334: case ':': ! 335: case '?': ! 336: case ' ': ! 337: continue; ! 338: ! 339: default: ! 340: if ((p -> p_flags & P_POST) && *cp == '$') ! 341: continue; ! 342: goto illegal; ! 343: } ! 344: } ! 345: ! 346: p -> p_value = strdup (vec[1]); ! 347: } ! 348: ! 349: if (ferror (fp) && !feof (fp)) ! 350: adios (file, "error reading"); ! 351: (void) fclose (fp); ! 352: ! 353: for (p = pairs; p -> p_name; p++) ! 354: if (!p -> p_value && !(p -> p_flags & (P_OPT | P_XXX))) ! 355: adios (NULLCP, "missing value for \"%s\"", p -> p_name); ! 356: ! 357: if (n2p ("country", 0) == NULL) ! 358: n2p ("country", 1) -> p_value = strdup ("US"); ! 359: ! 360: if ((c = read_country (cp = n2p ("country", 1) -> p_value)) == NULL) ! 361: adios (NULLCP, "unknown country code \"%s\"", cp); ! 362: n2p ("rootDSA", 1) -> p_value = ! 363: strdup (c -> c_root ? c -> c_root : c -> c_master); ! 364: if (c -> c_root) ! 365: read_psap (c -> c_root, &(n2p ("rootDSAaddress", 1) -> p_value)); ! 366: n2p ("countryDSA", 1) -> p_value = strdup (c -> c_master); ! 367: read_psap (c -> c_master, &(n2p ("countryDSAaddress", 1) -> p_value)); ! 368: if (c -> c_other) { ! 369: n2p ("otherDSA", 1) -> p_value = strdup (c -> c_other); ! 370: read_psap (c -> c_other, &(n2p ("otherDSAaddress", 1) -> p_value)); ! 371: } ! 372: ! 373: if (n2p ("postaladdress", 0) == NULL ! 374: && n2p ("street", 0) == NULL ! 375: && n2p ("pob", 0) == NULL) ! 376: adios (NULLCP, "must specify either \"street\" or \"pob\""); ! 377: ! 378: if ((p = n2p ("locality", 1)) -> p_value == NULL) { ! 379: (void) sprintf (buffer, "%s, %s", n2p ("town", 1) -> p_value, ! 380: n2p ("state", 1) -> p_value); ! 381: ! 382: p -> p_value = strdup (buffer); ! 383: ! 384: if (debug) ! 385: printf ("setting locality to \"%s\"\n", p -> p_value); ! 386: } ! 387: ! 388: if (*(p = n2p ("telephone", 1)) -> p_value != '+') { ! 389: (void) sprintf (buffer, "+%s %s", c -> c_phone, p -> p_value); ! 390: free (p -> p_value); ! 391: p -> p_value = strdup (buffer); ! 392: ! 393: if (debug) ! 394: printf ("setting telephone number to \"%s\"\n", p -> p_value); ! 395: } ! 396: ! 397: if ((p = n2p ("fax", 0)) && *p -> p_value != '+') { ! 398: (void) sprintf (buffer, "+%s %s", c -> c_phone, p -> p_value); ! 399: free (p -> p_value); ! 400: p -> p_value = strdup (buffer); ! 401: ! 402: if (debug) ! 403: printf ("setting fax number to \"%s\"\n", p -> p_value); ! 404: } ! 405: ! 406: if ((p = n2p ("ipaddr", 1)) -> p_value == NULL) { ! 407: if ((hp = gethostbyname (cp = getlocalhost ())) == NULL) ! 408: adios (NULLCP, "%s: unknown host", cp); ! 409: } ! 410: else { ! 411: if ((hp = gethostbystring (p -> p_value)) == NULL) ! 412: adios (NULLCP, "%s: unknown host", p -> p_value); ! 413: } ! 414: bzero ((char *) isock, sizeof *isock); ! 415: isock -> sin_family = hp -> h_addrtype; ! 416: inaddr_copy (hp, isock); ! 417: p -> p_value = strdup (inet_ntoa (isock -> sin_addr)); ! 418: if (debug) ! 419: printf ("setting IP address of DSA to \"%s\"\n", p -> p_value); ! 420: ! 421: if ((p = n2p ("port", 1)) -> p_value == NULL) { ! 422: p -> p_value = strdup ("17003"); ! 423: ! 424: if (debug) ! 425: printf ("setting TCP port of DSA to \"%s\"\n", p -> p_value); ! 426: } ! 427: ! 428: if ((p = n2p ("middlename", 1)) -> p_value ! 429: && (q = n2p ("middleinitial", 1)) -> p_value == NULL) { ! 430: (void) sprintf (buffer, "%c", *p -> p_value); ! 431: p -> p_value = strdup (buffer); ! 432: ! 433: if (debug) ! 434: printf ("setting MiddleInitial to \"%s\"\n", p -> p_value); ! 435: } ! 436: ! 437: uid = getuid (), gid = getgid (); ! 438: if ((p = n2p ("userid", 1)) -> p_value) { ! 439: register struct passwd *pw = getpwnam (p -> p_value); ! 440: ! 441: if (pw == NULL) ! 442: adios (NULLCP, "unknown user name \"%s\"", p -> p_value); ! 443: uid = pw -> pw_uid, gid = pw -> pw_gid; ! 444: } ! 445: else { ! 446: register struct passwd *pw = getpwuid (uid); ! 447: ! 448: if (pw == NULL) ! 449: adios (NULLCP, "unknown user name \"%s\"", p -> p_value); ! 450: p -> p_value = strdup (pw -> pw_name); ! 451: ! 452: if (debug) ! 453: printf ("setting userid to \"%s\"\n", p -> p_value); ! 454: } ! 455: ! 456: if (p = n2p ("groupid", 0)) { ! 457: register struct group *gr = getgrnam (p -> p_value); ! 458: ! 459: if (gr == NULL) ! 460: adios (NULLCP, "unknown group name \"%s\"", p -> p_value); ! 461: gid = gr -> gr_gid; ! 462: } ! 463: ! 464: p = n2p ("extension", 1), q = n2p ("telephone", 1); ! 465: if (cp = p -> p_value) { ! 466: if (*cp == 'X' || *cp == 'x') { ! 467: (void) sprintf (buffer, "%s x%s", q -> p_value, p -> p_value); ! 468: free (p -> p_value); ! 469: p -> p_value = strdup (buffer); ! 470: ! 471: if (debug) ! 472: printf ("setting user's telephone number to \"%s\"\n", ! 473: p -> p_value); ! 474: } ! 475: } ! 476: else { ! 477: p -> p_value = strdup (q -> p_value); ! 478: ! 479: if (debug) ! 480: printf ("setting user telephone number to \"%s\"\n", p -> p_value); ! 481: } ! 482: ! 483: n2p ("wildlife", 1) -> p_value = strdup (wildlife); ! 484: n2p ("bindir", 1) -> p_value = strdup (isodebinpath); ! 485: n2p ("sbindir", 1) -> p_value = strdup (isodesbinpath); ! 486: n2p ("etcdir", 1) -> p_value = strdup (isodetcpath); ! 487: n2p ("quipuversion", 1) -> p_value = strdup (quipuversion); ! 488: ! 489: if (dp = (p = n2p ("postaladdress", 1)) -> p_value) { ! 490: int i; ! 491: ! 492: for (i = 1; cp = index (dp, '$'); dp = cp + 1, i++) { ! 493: *cp = NULL; ! 494: if (strlen (dp) > 30) ! 495: goto too_long; ! 496: *cp = '$'; ! 497: } ! 498: if (strlen (dp) > 30) { ! 499: too_long: ; ! 500: adios (NULLCP, ! 501: "item %d is too long (30 characters maximum): \"%s\"", i, ! 502: dp); ! 503: } ! 504: if (i > 6) ! 505: adios (NULLCP, "too many items (%d) in postalAddress, 6 maximum", ! 506: i); ! 507: } ! 508: else { ! 509: int i; ! 510: ! 511: cp = buffer; ! 512: ! 513: (void) sprintf (cp, "%s $ ", n2p ("organization", 1) -> p_value); ! 514: if ((i = strlen (cp)) > 30 + 3) { ! 515: advise (NULLCP, ! 516: "your organization name is longer than 30 characters!"); ! 517: postal_problem: ; ! 518: adios (NULLCP, ! 519: "You must explicitly define the postalAddress attribute in the\n\ ! 520: configuration file for your Level-1 DSA.\n\ ! 521: \n\ ! 522: The format is:\n\ ! 523: \n\ ! 524: postaladdress \"item1 $ item2 $ ... $ itemN\"\n\ ! 525: \n\ ! 526: where each item is <= 30 characters in length and there are no\n\ ! 527: more than six items. Refer to the Administrator's Guide for more\n\ ! 528: information.\n\ ! 529: "); ! 530: } ! 531: cp += i; ! 532: ! 533: if (q = n2p ("pob", 0)) { ! 534: (void) sprintf (cp, "POB %s $ ", q -> p_value); ! 535: if ((i = strlen (cp)) > 30 + 3) { ! 536: advise (NULLCP, "your POB is longer than 26 characters!"); ! 537: goto postal_problem; ! 538: } ! 539: cp += i; ! 540: } ! 541: else ! 542: if (q = n2p ("street", 0)) { ! 543: (void) sprintf (cp, "%s $ ", q -> p_value); ! 544: if ((i = strlen (cp)) > 30 + 3) { ! 545: advise (NULLCP, ! 546: "your street address is longer than 30 characters!"); ! 547: goto postal_problem; ! 548: } ! 549: cp += i; ! 550: ! 551: q -> p_flags |= P_ZAP; ! 552: } ! 553: ! 554: (void) sprintf (cp, "%s, %s %s $ ", ! 555: n2p ("town", 1) -> p_value, ! 556: n2p ("state", 1) -> p_value, ! 557: n2p ("zipcode", 1) -> p_value); ! 558: if ((i = strlen (cp)) > 30 + 3) { ! 559: advise (NULLCP, ! 560: "your town/state/zipcode is longer than 30 characters!"); ! 561: goto postal_problem; ! 562: } ! 563: cp += i; ! 564: ! 565: if ((c -> c_flags & C_SHORT) || (i = strlen (dp = c -> c_name)) > 30) ! 566: i = strlen (dp = c -> c_code); ! 567: (void) strcpy (cp, dp); ! 568: cp += i; ! 569: ! 570: p -> p_value = strdup (buffer); ! 571: } ! 572: } ! 573: ! 574: /* */ ! 575: ! 576: static struct country *read_country (code) ! 577: char *code; ! 578: { ! 579: int vecp; ! 580: register char *cp, ! 581: *dp; ! 582: char d, ! 583: *ep, ! 584: buffer[BUFSIZ + 1], ! 585: file[BUFSIZ], ! 586: *vec[NVEC + NSLACK + 1]; ! 587: FILE *fp; ! 588: static struct country cs; ! 589: register struct country *c = NULL; ! 590: ! 591: (void) strcpy (file, "iso3166"); ! 592: if ((fp = fopen (file, "r")) == NULL) ! 593: adios (file, "unable to open"); ! 594: ! 595: ep = (dp = buffer) + sizeof buffer; ! 596: while (fgets (dp, ep - dp, fp)) { ! 597: if (*buffer == '#') ! 598: continue; ! 599: if (cp = index (buffer, '\n')) { ! 600: *cp = NULL; ! 601: if ((d = getc (fp)) != EOF) ! 602: (void) ungetc (d, fp); ! 603: switch (d) { ! 604: case '#': ! 605: case '\n': ! 606: case EOF: ! 607: break; ! 608: ! 609: default: ! 610: *cp++ = ' '; ! 611: if ((dp = cp) + 1 >= ep) { ! 612: *ep = NULL; ! 613: adios (NULLCP, ! 614: "virtual line too long in %s: \"%s\"", ! 615: file, cp); ! 616: } ! 617: continue; ! 618: } ! 619: } ! 620: ! 621: dp = buffer; ! 622: switch (vecp = str2vec (buffer, vec)) { ! 623: case 7: /* standard entry */ ! 624: case 8: ! 625: if (strcmp (vec[0], code)) ! 626: continue; ! 627: c = &cs; ! 628: bzero ((char *) c, sizeof *c); ! 629: c -> c_code = strdup (vec[0]); ! 630: if (sscanf (vec[1], "%d", &c -> c_number) != 1) ! 631: adios (NULLCP, ! 632: "malformed ISO3166 number for country %s in %s", ! 633: code, file); ! 634: c -> c_number = atoi (vec[1]); ! 635: c -> c_name = strdup (vec[2]); ! 636: if (strcmp (vec[3], "NULL")) ! 637: c -> c_root = strdup (vec[3]); ! 638: if (strcmp (vec[4], "NULL")) ! 639: c -> c_master = strdup (vec[4]); ! 640: else ! 641: adios (NULLCP, "no masterDSA known for country %s in %s", ! 642: code,file); ! 643: if (strcmp (vec[5], "NULL")) ! 644: c -> c_other = strdup (vec[5]); ! 645: c -> c_phone = strdup (vec[6]); ! 646: if (vecp == 8) { ! 647: char *bp; ! 648: ! 649: if (strncmp (cp = vec[7], "0x", 2) == 0) ! 650: cp += 2, bp = "%x"; ! 651: else ! 652: if (*cp == '0') ! 653: cp += 1, bp = "%o"; ! 654: else ! 655: bp = "%d"; ! 656: if (sscanf (cp, bp, &c -> c_flags) != 1) ! 657: adios (NULLCP, ! 658: "malformed entry for country %s in %s", ! 659: code, file); ! 660: } ! 661: break; ! 662: ! 663: default: ! 664: continue; ! 665: } ! 666: break; ! 667: } ! 668: ! 669: (void) fclose (fp); ! 670: ! 671: return c; ! 672: } ! 673: ! 674: /* */ ! 675: ! 676: static read_psap (dsa, addr) ! 677: char *dsa, ! 678: **addr; ! 679: { ! 680: int i; ! 681: register char *cp, ! 682: *dp; ! 683: char buffer[BUFSIZ], ! 684: stuff[BUFSIZ]; ! 685: FILE *fp; ! 686: ! 687: if ((fp = fopen (cp = isodefile ("dsaptailor", 0), "r")) == NULL) ! 688: adios (cp, "unable to open"); ! 689: ! 690: while (fgets (buffer, sizeof buffer, fp)) { ! 691: if (lexnequ (buffer, "dsa_address", sizeof "dsa_address" - 1) ! 692: || (cp = index (buffer, '"')) == NULL ! 693: || lexnequ (++cp, dsa + 3, i = strlen (dsa + 3)) ! 694: || *(cp += i ) != '"') ! 695: continue; ! 696: for (cp++; isspace (*cp); cp++) ! 697: continue; ! 698: if (*cp == NULL) { ! 699: malformed: ; ! 700: adios (NULLCP, "malformed entry in dsaptailor for DSA %s", dsa); ! 701: } ! 702: for (dp = stuff; *cp; *dp++ = *cp++) { ! 703: switch (*cp) { ! 704: case '\n': ! 705: break; ! 706: ! 707: case '\'': ! 708: *dp++ = '\\'; ! 709: /* and fall... */ ! 710: case '\\': ! 711: *dp++ = '\\'; ! 712: continue; ! 713: ! 714: default: ! 715: continue; ! 716: } ! 717: break; ! 718: } ! 719: *dp = NULL; ! 720: if (*cp != '\n') ! 721: goto malformed; ! 722: *addr = strdup (stuff); ! 723: goto hit; ! 724: } ! 725: adios (NULLCP, "unable to find presentationAddress for DSA %s", dsa); ! 726: ! 727: hit: ; ! 728: (void) fclose (fp); ! 729: } ! 730: ! 731: /* */ ! 732: ! 733: generate_sed () { ! 734: FILE *fp; ! 735: register struct pair *p; ! 736: ! 737: (void) sprintf (sedfil, "/tmp/%sXXXXXX", myname); ! 738: (void) unlink (mktemp (sedfil)); ! 739: ! 740: if ((fp = fopen (sedfil, "w")) == NULL) ! 741: adios (sedfil, "unable to create"); ! 742: ! 743: for (p = pairs; p -> p_name; p++) ! 744: if (!(p -> p_flags & P_MBOX) && p -> p_value) ! 745: fprintf (fp, "s!@(%s)!%s!\n", p -> p_name, p -> p_value); ! 746: ! 747: if (ferror (fp)) ! 748: adios (sedfil, "error writing"); ! 749: (void) fclose (fp); ! 750: } ! 751: ! 752: /* */ ! 753: ! 754: static struct pair *n2p (name, any) ! 755: char *name; ! 756: int any; ! 757: { ! 758: register struct pair *p; ! 759: ! 760: for (p = pairs; p -> p_name; p++) ! 761: if (strcmp (p -> p_name, name) == 0) ! 762: return (any || (p -> p_value && !(p -> p_flags & P_ZAP)) ? p ! 763: : NULL); ! 764: ! 765: adios (NULLCP, "internal error -- unable to find \"%s\"", name); ! 766: /* NOTREACHED */ ! 767: } ! 768: ! 769: /* */ ! 770: ! 771: static munge (fp, entries) ! 772: FILE *fp; ! 773: char *entries[]; ! 774: { ! 775: register char c, ! 776: *bp, ! 777: *cp, ! 778: *dp, ! 779: **pp; ! 780: char buffer[BUFSIZ]; ! 781: register struct pair *p; ! 782: ! 783: ! 784: for (pp = entries; cp = *pp; pp++) { ! 785: bp = buffer; ! 786: ! 787: while (c = *cp++) { ! 788: if (c != '@' || *cp != '(') { ! 789: *bp++ = c; ! 790: continue; ! 791: } ! 792: if ((dp = index (++cp, ')')) == NULL) ! 793: adios (NULLCP, "internal error -- you lose big"); ! 794: *dp = NULL; ! 795: ! 796: if ((p = n2p (cp, 0)) == NULL) { ! 797: bp = buffer; ! 798: goto no_match; ! 799: } ! 800: (void) strcpy (bp, p -> p_value); ! 801: bp += strlen (bp); ! 802: ! 803: cp = ++dp; ! 804: } ! 805: ! 806: *bp = NULL; ! 807: fprintf (fp, "%s\n", buffer); ! 808: no_match: ; ! 809: } ! 810: } ! 811: ! 812: /* EDB */ ! 813: ! 814: static build_root () { ! 815: if (debug) ! 816: fprintf (stderr, "mkdir %s\n", wildlife); ! 817: if (mkdir (wildlife, 0700) == NOTOK) ! 818: adios (wildlife, "unable to create directory"); ! 819: ! 820: make_file ("root.edb", "EDB", 0600, 0); ! 821: } ! 822: ! 823: /* */ ! 824: ! 825: static char *c_TLC[] = { ! 826: "o=@(organization)", ! 827: "masterDSA= c=@(country)@cn=@(dsa)#", ! 828: "acl= others # read # entry", ! 829: "acl= group # c=@(country)@o=@(organization)@cn=Manager # write # entry", ! 830: "acl= others # read # default", ! 831: "acl= group # c=@(country)@o=@(organization)@cn=Manager # write # default", ! 832: "acl= others # compare # attributes # accessControlList$userPassword", ! 833: "acl= group # c=@(country)@o=@(organization)@cn=Manager # write # attributes # accessControlList$userPassword", ! 834: "o= @(organization)", ! 835: "streetAddress= @(street)", ! 836: "postOfficeBox= @(pob)", ! 837: "physicalDeliveryOfficeName= @(town)", ! 838: "stateOrProvinceName= @(state)", ! 839: "postalCode= @(zipcode)", ! 840: "postalAddress= @(postaladdress)", ! 841: "telephoneNumber= @(telephone)", ! 842: "facsimileTelephoneNumber= @(fax)", ! 843: "localityName= @(locality)", ! 844: "description= @(description)", ! 845: "associatedDomain= @(domain)", ! 846: "treeStructure= quipuNonLeafObject & organizationalUnit", ! 847: "treeStructure= quipuDSA & alias & organizationalRole", ! 848: "treeStructure= domainRelatedObject", ! 849: "objectClass= top & quipuObject & quipuNonLeafObject", ! 850: "objectClass= domainRelatedObject", ! 851: "objectClass= organization", ! 852: "", ! 853: ! 854: "cn=@(dsa)", ! 855: "acl= others # read # entry", ! 856: "acl= group # c=@(country)@o=@(organization)@cn=Manager # write # entry", ! 857: "acl= others # read # default", ! 858: "acl= group # c=@(country)@o=@(organization)@cn=Manager # write # default", ! 859: "acl= others # compare # attributes # accessControlList$userPassword", ! 860: "acl= group # c=@(country)@o=@(organization)@cn=Manager # write # attributes # accessControlList$userPassword", ! 861: "cn= @(dsa)", ! 862: "eDBinfo= # @(rootDSA) #", ! 863: "eDBinfo= c=@(country) # @(countryDSA) #", ! 864: "eDBinfo= c=@(country)@o=@(organization) # # @(countryDSA)", ! 865: "eDBinfo= c=@(country)@o=@(organization) # # @(rootDSA)", ! 866: "eDBinfo= c=@(country)@o=@(organization) # # @(otherDSA)", ! 867: "presentationAddress= '0101'H/Internet=@(ipaddr)+@(port)", ! 868: "manager= c=@(country)@o=@(organization)@cn=Manager#", ! 869: "manager= c=@(country)@cn=Manager#", ! 870: "userPassword= @(wildlife)", ! 871: "quipuVersion= @(quipuversion)", ! 872: "localityName= @(locality)", ! 873: "description= The Endangered @(dsa)", ! 874: "description= Master DSA for @(organization) in the @(country)", ! 875: "objectClass= top & quipuObject", ! 876: "objectClass= applicationEntity & dSA & quipuDSA", ! 877: "supportedApplicationContext= x500DSP & x500DAP & quipuDSP", ! 878: "", ! 879: ! 880: NULL ! 881: }; ! 882: ! 883: ! 884: static build_TLC () { ! 885: char buffer[BUFSIZ]; ! 886: ! 887: (void) sprintf (buffer, "%s/c=%s", wildlife, ! 888: n2p ("country", 1) -> p_value); ! 889: make_edb (buffer, "SLAVE", "0000000000Z", c_TLC); ! 890: } ! 891: ! 892: /* */ ! 893: ! 894: static char *o_I[] = { ! 895: "cn=Manager", ! 896: "acl=", ! 897: "cn= Manager", ! 898: "aliasedObjectName= c=@(country)@o=@(organization)@ou=@(unit)@cn=@(firstname) @(lastname)#", ! 899: "objectClass= top & quipuObject", ! 900: "objectClass= alias", ! 901: "", ! 902: ! 903: "cn=Postmaster", ! 904: "acl=", ! 905: "cn= Postmaster", ! 906: "aliasedObjectName= c=@(country)@o=@(organization)@ou=@(unit)@cn=@(firstname) @(lastname)#", ! 907: "objectClass= top & quipuObject", ! 908: "objectClass= alias", ! 909: "", ! 910: ! 911: "ou=@(unit)", ! 912: "masterDSA= c=@(country)@cn=@(dsa)#", ! 913: "acl= others # read # entry", ! 914: "acl= others # read # default", ! 915: "acl= others # compare # attributes # accessControlList$userPassword", ! 916: "ou= @(unit)", ! 917: "treeStructure= quipuNonLeafObject & organizationalUnit", ! 918: "treeStructure= alias & pilotPerson & organizationalRole", ! 919: "objectClass= top & quipuObject & quipuNonLeafObject", ! 920: "objectClass= organizationalUnit", ! 921: "", ! 922: ! 923: NULL ! 924: }; ! 925: ! 926: ! 927: static build_organization () { ! 928: char buffer[BUFSIZ]; ! 929: ! 930: (void) sprintf (buffer, "%s/c=%s/o=%s", wildlife, ! 931: n2p ("country", 1) -> p_value, ! 932: n2p ("organization", 1) -> p_value); ! 933: make_edb (buffer, "MASTER", version (), o_I); ! 934: } ! 935: ! 936: /* */ ! 937: ! 938: static char *u_J[] = { ! 939: "cn=@(firstname) @(lastname)", ! 940: "acl= self # write # entry", ! 941: "acl= others # read # entry", ! 942: "acl= self # write # default", ! 943: "acl= others # read # default", ! 944: "acl= self # write # attributes # accessControlList$userPassword", ! 945: "acl= others # compare # attributes # accessControlList$userPassword", ! 946: "rfc822Mailbox= @(mailbox)", ! 947: "otherMailbox = internet $ @(mailbox)", ! 948: "title= @(title)", ! 949: "userid= @(userid)", ! 950: "userPassword= @(password)", ! 951: "telephoneNumber= @(extension)", ! 952: "surname= @(lastname)", ! 953: "cn= @(firstname) @(lastname)", ! 954: "cn= @(firstname) @(middleinitial). @(lastname)", ! 955: "cn= @(firstname) @(middlename) @(lastname)", ! 956: "objectClass= top & quipuObject", ! 957: "objectClass= person & thornPerson & pilotPerson", ! 958: "", ! 959: ! 960: NULL ! 961: }; ! 962: ! 963: ! 964: static build_unit () { ! 965: char buffer[BUFSIZ]; ! 966: ! 967: (void) sprintf (buffer, "%s/c=%s/o=%s/ou=%s", wildlife, ! 968: n2p ("country", 1) -> p_value, ! 969: n2p ("organization", 1) -> p_value, ! 970: n2p ("unit", 1) -> p_value); ! 971: make_edb (buffer, "MASTER", version (), u_J); ! 972: } ! 973: ! 974: /* */ ! 975: ! 976: static make_edb (dir, type, date, entries) ! 977: char *dir, ! 978: *type, ! 979: *date; ! 980: char *entries[]; ! 981: { ! 982: char edb[BUFSIZ]; ! 983: FILE *fp; ! 984: ! 985: if (debug) ! 986: fprintf (stderr, "mkdir %s\n", dir); ! 987: if (mkdir (dir, 0700) == NOTOK) ! 988: adios (dir, "unable to create directory"); ! 989: ! 990: (void) sprintf (edb, "%s/EDB", dir); ! 991: if (debug) ! 992: fprintf (stderr, "create %s\n", edb); ! 993: if ((fp = fopen (edb, "w")) == NULL) ! 994: adios (edb, "unable to create"); ! 995: ! 996: fprintf (fp, "%s\n%s\n", type, date); ! 997: munge (fp, entries); ! 998: ! 999: if (ferror (fp)) ! 1000: adios (edb, "error writing"); ! 1001: (void) fclose (fp); ! 1002: ! 1003: (void) chmod (edb, 0600); ! 1004: } ! 1005: ! 1006: /* */ ! 1007: ! 1008: static char *version () { ! 1009: long clock; ! 1010: struct UTCtime ut; ! 1011: static char buffer[BUFSIZ]; ! 1012: ! 1013: (void) time (&clock); ! 1014: tm2ut (gmtime (&clock), &ut); ! 1015: (void) strcpy (buffer, gent2str (&ut)); ! 1016: ! 1017: return buffer; ! 1018: } ! 1019: ! 1020: /* FILES */ ! 1021: ! 1022: static build_tailor () { make_file ("quiputailor", "quiputailor", 0644, 1); } ! 1023: ! 1024: static build_startup () { make_file ("startup.sh", "startup.sh", 0755, 1); } ! 1025: ! 1026: static build_nightly () { make_file ("nightly.sh", "nightly.sh", 0755, 1); } ! 1027: ! 1028: /* */ ! 1029: ! 1030: static make_file (infile, outfile, mode, dosed) ! 1031: char *infile, ! 1032: *outfile; ! 1033: int mode, ! 1034: dosed; ! 1035: { ! 1036: char buffer[BUFSIZ]; ! 1037: ! 1038: if (dosed) ! 1039: (void) sprintf (buffer, "sed -f %s < templates/%s > %s/%s", ! 1040: sedfil, infile, wildlife, outfile); ! 1041: else ! 1042: (void) sprintf (buffer, "cp templates/%s %s/%s", infile, wildlife, ! 1043: outfile); ! 1044: ! 1045: if (debug) ! 1046: fprintf (stderr, "%s\n", buffer); ! 1047: if (system (buffer) != 0) ! 1048: adios (NULLCP, "%s of %s failed", dosed ? "sed" : "cp", infile); ! 1049: ! 1050: (void) sprintf (buffer, "%s/%s", wildlife, outfile); ! 1051: (void) chmod (buffer, mode); ! 1052: } ! 1053: ! 1054: /* SED */ ! 1055: ! 1056: static build_dsap () { fudge_file ("dsaptailor"); } ! 1057: ! 1058: static build_fred () { fudge_file ("fredrc"); fudge_file ("ufnrc"); } ! 1059: ! 1060: /* */ ! 1061: ! 1062: static fudge_file (name) ! 1063: char *name; ! 1064: { ! 1065: char buffer[BUFSIZ], ! 1066: file[BUFSIZ], ! 1067: oldfil[BUFSIZ], ! 1068: tmpfil[BUFSIZ]; ! 1069: ! 1070: (void) strcpy (file, isodefile (name, 0)); ! 1071: ! 1072: (void) sprintf (buffer, "%sXXXXXX", myname); ! 1073: (void) strcpy (tmpfil, isodefile (buffer, 0)); ! 1074: (void) unlink (mktemp (tmpfil)); ! 1075: ! 1076: (void) sprintf (buffer, "sed -f %s < %s > %s", sedfil, file, tmpfil); ! 1077: if (debug) ! 1078: fprintf (stderr, "%s\n", buffer); ! 1079: if (system (buffer) != 0) { ! 1080: (void) unlink (tmpfil); ! 1081: adios (NULLCP, "sed failed"); ! 1082: } ! 1083: ! 1084: (void) sprintf (oldfil, "%s.old", file); ! 1085: if (access (oldfil, 0x00) == NOTOK) ! 1086: (void) rename (file, oldfil); ! 1087: if (rename (tmpfil, file) == NOTOK) ! 1088: adios (file, "unable to rename %s to", tmpfil); ! 1089: } ! 1090: ! 1091: /* ARGINIT */ ! 1092: ! 1093: static arginit (vec) ! 1094: char **vec; ! 1095: { ! 1096: register char *ap; ! 1097: ! 1098: if (myname = rindex (*vec, '/')) ! 1099: myname++; ! 1100: if (myname == NULL || *myname == NULL) ! 1101: myname = *vec; ! 1102: ! 1103: isodetailor (myname, 1); ! 1104: ! 1105: for (vec++; ap = *vec; vec++) { ! 1106: if (*ap == '-') { ! 1107: while (*++ap) ! 1108: switch (*ap) { ! 1109: case 'd': ! 1110: debug++; ! 1111: break; ! 1112: ! 1113: default: ! 1114: adios (NULLCP, "unknown switch -%c", *ap); ! 1115: } ! 1116: continue; ! 1117: } ! 1118: ! 1119: if (wildlife) { ! 1120: usage: ; ! 1121: adios (NULLCP, "usage: %s config-file", myname); ! 1122: } ! 1123: wildlife = ap; ! 1124: } ! 1125: ! 1126: if (!wildlife) ! 1127: goto usage; ! 1128: } ! 1129: ! 1130: /* ERRORS */ ! 1131: ! 1132: #ifndef lint ! 1133: void _advise (); ! 1134: ! 1135: ! 1136: static void adios (va_alist) ! 1137: va_dcl ! 1138: { ! 1139: va_list ap; ! 1140: ! 1141: va_start (ap); ! 1142: ! 1143: _advise (ap); ! 1144: ! 1145: va_end (ap); ! 1146: ! 1147: _exit (1); ! 1148: } ! 1149: #else ! 1150: /* VARARGS */ ! 1151: ! 1152: static void adios (what, fmt) ! 1153: char *what, ! 1154: *fmt; ! 1155: { ! 1156: adios (what, fmt); ! 1157: } ! 1158: #endif ! 1159: ! 1160: ! 1161: #ifndef lint ! 1162: static void advise (va_alist) ! 1163: va_dcl ! 1164: { ! 1165: va_list ap; ! 1166: ! 1167: va_start (ap); ! 1168: ! 1169: _advise (ap); ! 1170: ! 1171: va_end (ap); ! 1172: } ! 1173: ! 1174: ! 1175: static void _advise (ap) ! 1176: va_list ap; ! 1177: { ! 1178: char buffer[BUFSIZ]; ! 1179: ! 1180: asprintf (buffer, ap); ! 1181: ! 1182: (void) fflush (stdout); ! 1183: ! 1184: fprintf (stderr, "%s: ", myname); ! 1185: (void) fputs (buffer, stderr); ! 1186: (void) fputc ('\n', stderr); ! 1187: ! 1188: (void) fflush (stderr); ! 1189: } ! 1190: #else ! 1191: /* VARARGS */ ! 1192: ! 1193: static void advise (what, fmt) ! 1194: char *what, ! 1195: *fmt; ! 1196: { ! 1197: advise (what, fmt); ! 1198: } ! 1199: #endif ! 1200: ! 1201: /* MISCELLANY */ ! 1202: ! 1203: #ifndef lint ! 1204: static char *strdup (s) ! 1205: char *s; ! 1206: { ! 1207: char *p; ! 1208: ! 1209: if ((p = malloc((unsigned) (strlen (s) + 1))) == NULL) ! 1210: adios (NULLCP, "out of memory"); ! 1211: ! 1212: (void) strcpy (p, s); ! 1213: ! 1214: return p; ! 1215: } ! 1216: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.