![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to whois.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 / fred|
Return to whois.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / others / quipu / uips / fred |
1.1 root 1: /* whois.c - fred whois function */
2:
3: #ifndef lint
4: static char *rcsid = "$Header: /f/osi/others/quipu/uips/fred/RCS/whois.c,v 7.14 90/07/27 08:45:10 mrose Exp $";
5: #endif
6:
7: /*
8: * $Header: /f/osi/others/quipu/uips/fred/RCS/whois.c,v 7.14 90/07/27 08:45:10 mrose Exp $
9: *
10: *
11: * $Log: whois.c,v $
12: * Revision 7.14 90/07/27 08:45:10 mrose
13: * update
14: *
15: * Revision 7.13 90/07/09 14:41:21 mrose
16: * sync
17: *
18: * Revision 7.12 90/06/11 21:17:12 mrose
19: * touch-up
20: *
21: * Revision 7.11 90/06/11 10:55:38 mrose
22: * UFN
23: *
24: * Revision 7.10 90/03/23 02:39:29 mrose
25: * network
26: *
27: * Revision 7.9 90/03/15 11:20:45 mrose
28: * quipu-sync
29: *
30: * Revision 7.8 90/03/08 08:05:10 mrose
31: * phone
32: *
33: * Revision 7.7 90/01/16 20:43:45 mrose
34: * last check-out
35: *
36: * Revision 7.6 90/01/11 18:36:41 mrose
37: * real-sync
38: *
39: * Revision 7.5 89/12/18 08:44:23 mrose
40: * typo
41: *
42: * Revision 7.4 89/12/14 18:49:05 mrose
43: * KIS project
44: *
45: * Revision 7.3 89/12/01 10:45:11 mrose
46: * touch-up
47: *
48: * Revision 7.2 89/11/26 15:09:32 mrose
49: * sync
50: *
51: * Revision 7.1 89/11/26 14:25:22 mrose
52: * sync
53: *
54: * Revision 7.0 89/11/23 22:09:06 mrose
55: * Release 6.0
56: *
57: */
58:
59: /*
60: * NOTICE
61: *
62: * Acquisition, use, and distribution of this module and related
63: * materials are subject to the restrictions of a license agreement.
64: * Consult the Preface in the User's Manual for the full terms of
65: * this agreement.
66: *
67: */
68:
69:
70: #include <ctype.h>
71: #include <signal.h>
72: #include "fred.h"
73:
74: /* DATA */
75:
76: struct whois {
77: char *w_input;
78: int w_inputype;
79: #define W_NULL 0x00
80: #define W_HANDLE 0x01
81: #define W_MAILBOX 0x02
82: #define W_NAME 0x03
83:
84: int w_nametype;
85: #define W_COMMONAME 0x01
86: #define W_SURNAME 0x02
87:
88: int w_record; /* same values as ag_record */
89:
90: char *w_title;
91:
92: char *w_area;
93: int w_areatype;
94: char *w_geography;
95:
96: int w_output;
97: #define W_EXPAND 0x01
98: #define W_FULL 0x02
99: #define W_SUMMARY 0x04
100: #define W_SUBDISPLAY 0x08
101: };
102:
103:
104: char *eqstr ();
105:
106: /* */
107:
108: char *whois_help[] = {
109: "whois input-field [record-type] [area-designator] [output-control]",
110: " input-field is one of:",
111: "\tname NAME\t\te.g., surname \"smith\", or fullname \"john smith\"",
112: "\thandle HANDLE\t\te.g., handle @c=US@cn=Manager",
113: "\tmailbox LOCAL@DOMAIN\te.g., mailbox [email protected]",
114: " record-type is one of:",
115: "\tperson or -title NAME\te.g., -title scientist",
116: "\torganization",
117: "\tunit (a division under an organization)",
118: "\trole (a role within an organization)",
119: "\tlocality",
120: "\tdsa (white pages server)",
121: " area-designator is one of:",
122: "\t-org NAME\t\te.g., -org nyser",
123: "\t-unit NAME\t\te.g., -unit engineering",
124: "\t-locality NAME\t\te.g., -locality rensselaer",
125: "\t-area HANDLE\t\te.g., -area \"@c=US@o=NYSERNet Inc.\"",
126: "\t and may be optionally followed by -geo HANDLE, e.g., -geo @c=GB",
127: " output-control is any of:",
128: "\texpand\t - give a detailed listing, followed by children",
129: "\tsubdisplay - give a one-listing listing, followed by children",
130: "\tfull\t - give a detailed listing, even on ambiguous matches",
131: "\tsummary\t - give a one-line listing, even on unique matches",
132:
133: NULL
134: };
135:
136: /* */
137:
138: static int seqno = 0;
139: static char fredseq[10];
140:
141:
142: char *limits ();
143: FILE *capture ();
144:
145: /* WHOIS */
146:
147: int f_whois (vec)
148: char **vec;
149: {
150: if (strcmp (*vec, "whois") == 0)
151: vec++;
152:
153: return (nametype > 1 ? f_ufn (vec) : f_whois_aux (vec));
154: }
155:
156: /* */
157:
158: static int f_whois_aux (vec)
159: char **vec;
160: {
161: int c,
162: didany,
163: multiple,
164: result;
165: register char *bp,
166: *cp,
167: *dp;
168: char buffer[BUFSIZ],
169: onehit[BUFSIZ],
170: orgname[BUFSIZ],
171: *args[NVEC + 1];
172: register struct area_guide *ag;
173: struct whois ws;
174: register struct whois *w = &ws;
175: FILE *fp;
176:
177: bzero ((char *) w, sizeof *w);
178:
179: while (cp = *vec++) {
180: postscan: ;
181:
182: switch (*cp) {
183: case '.':
184: if (w -> w_inputype != W_NULL) {
185: too_many_fields: ;
186: advise (NULLCP,
187: "only one of NAME, HANDLE, or MAILBOX allowed");
188: goto you_really_lose;
189: }
190: if (*++cp == NULL) {
191: advise (NULLCP, "expecting NAME after \".\"");
192: goto you_really_lose;
193: }
194: w -> w_inputype = W_NAME;
195: w -> w_input = cp;
196: break;
197:
198: case '!':
199: if (w -> w_inputype != W_NULL)
200: goto too_many_fields;
201: if (*++cp == NULL) {
202: advise (NULLCP, "expecting HANDLE after \"!\"");
203: goto you_really_lose;
204: }
205: goto got_handle;
206:
207: case '*':
208: if (cp[1] == '*') {
209: cp++;
210: goto name_or_something;
211: }
212: w -> w_output |= W_EXPAND;
213: if (*++cp)
214: goto postscan;
215: break;
216:
217: case '~':
218: w -> w_output &= ~W_EXPAND;
219: if (*++cp)
220: goto postscan;
221: break;
222:
223: case '|':
224: w -> w_output |= W_FULL;
225: if (*++cp)
226: goto postscan;
227: break;
228:
229: case '$':
230: w -> w_output |= W_SUMMARY;
231: if (*++cp)
232: goto postscan;
233: break;
234:
235: case '%':
236: w -> w_output |= W_SUBDISPLAY;
237: if (*++cp)
238: goto postscan;
239: break;
240:
241: case '-':
242: if (test_arg (cp, "-area", 4)) {
243: result = W_NULL;
244:
245: stuff_area: ;
246: if (w -> w_area != NULL) {
247: advise (NULLCP, "only one AREA specification allowed");
248: goto you_really_lose;
249: }
250: if (*vec == NULL) {
251: advise (NULLCP, "expecting %s after \"%s\"",
252: result != W_NULL ? "NAME" : "HANDLE", cp);
253: goto you_really_lose;
254: }
255: if (*(dp = *vec) == '!')
256: result = W_NULL;
257: else {
258: for (; *dp; dp++)
259: if (!isdigit (*dp))
260: break;
261: if (!*dp)
262: result = NULL;
263: }
264: w -> w_area = *vec++, w -> w_areatype = result;
265: break;
266:
267: }
268: if (test_arg (cp, "-expand", 4)) {
269: w -> w_output |= W_EXPAND;
270: break;
271: }
272: if (test_arg (cp, "-full", 4)) {
273: w -> w_output |= W_FULL;
274: break;
275: }
276: if (test_arg (cp, "-geography", 4)) {
277: if (*vec == NULL) {
278: advise (NULLCP,
279: "expecting location after \"-geography\"");
280: goto you_really_lose;
281: }
282: w -> w_geography = *vec++;
283: break;
284: }
285: if (test_arg (cp, "-help", 5))
286: goto print_help;
287: if (test_arg (cp, "-locality", 4)) {
288: result = W_LOCALITY;
289: goto stuff_area;
290: }
291: if (test_arg (cp, "-organization", 4)) {
292: result = W_ORGANIZATION;
293: goto stuff_area;
294: }
295: if (test_arg (cp, "-summary", 4)) {
296: w -> w_output |= W_SUMMARY;
297: break;
298: }
299: if (test_arg (cp, "-subdisplay", 4)) {
300: w -> w_output |= W_SUBDISPLAY;
301: break;
302: }
303: if (test_arg (cp, "-title", 4)) {
304: if (*vec == NULL) {
305: advise (NULLCP,
306: "expecting something after \"-title\"");
307: goto you_really_lose;
308: }
309: w -> w_title = *vec++;
310: break;
311: }
312: if (test_arg (cp, "-unit", 4)) {
313: result = W_UNIT;
314: goto stuff_area;
315: }
316:
317: advise (NULLCP, "unknown switch: %s", cp);
318: you_really_lose: ;
319: if (mail) {
320: fprintf (stdfp, "\n\n");
321: goto print_help;
322: }
323: return NOTOK;
324:
325: case 'd':
326: if (strcmp (cp, "dsa"))
327: goto name_or_something;
328: if (w -> w_record != W_NULL)
329: goto too_many_fields;
330: w -> w_record = W_DSA;
331: break;
332:
333: case 'e':
334: if (strcmp (cp, "expand"))
335: goto name_or_something;
336: w -> w_output |= W_EXPAND;
337: break;
338:
339: case 'f':
340: if (strcmp (cp, "full") == 0) {
341: w -> w_output |= W_FULL;
342: break;
343: }
344: if (strcmp (cp, "fullname") == 0) {
345: w -> w_nametype = W_COMMONAME;
346: goto name;
347: }
348: goto name_or_something;
349:
350: case 'h':
351: if (strcmp (cp, "handle"))
352: goto name_or_something;
353: if (w -> w_inputype != W_NULL)
354: goto too_many_fields;
355: if ((cp = *vec++) == NULL) {
356: advise (NULLCP, "expecting HANDLE after \"handle\"");
357: goto you_really_lose;
358: }
359: got_handle: ;
360: if (!mail && strcmp (cp, "me") == 0) {
361: if (mydn == NULL) {
362: advise (NULLCP,
363: "who are you? use the \"thisis\" command first...");
364: return NOTOK;
365: }
366: cp = mydn;
367: }
368: w -> w_inputype = W_HANDLE;
369: w -> w_input = cp;
370: break;
371:
372: case 'l':
373: if (strcmp (cp, "locality"))
374: goto name_or_something;
375: if (w -> w_record != W_NULL)
376: goto too_many_fields;
377: w -> w_record = W_LOCALITY;
378: break;
379:
380: case 'm':
381: if (strcmp (cp, "mailbox"))
382: goto name_or_something;
383: if (w -> w_inputype != W_NULL)
384: goto too_many_fields;
385: if ((cp = *vec++) == NULL) {
386: advise (NULLCP, "expecting MAILBOX after \"mailbox\"");
387: goto you_really_lose;
388: }
389: w -> w_inputype = W_MAILBOX;
390: w -> w_input = cp;
391: break;
392:
393: case 'n':
394: if (strcmp (cp, "name"))
395: goto name_or_something;
396: name: ;
397: if (w -> w_inputype != W_NULL)
398: goto too_many_fields;
399: if ((cp = *vec++) == NULL) {
400: advise (NULLCP, "expecting NAME after \"%sname\"",
401: w -> w_nametype == W_COMMONAME ? "full"
402: : w -> w_nametype == W_SURNAME ? "sur" : "");
403: goto you_really_lose;
404: }
405: w -> w_inputype = W_NAME;
406: w -> w_input = cp;
407: break;
408:
409: case 'o':
410: if (strcmp (cp, "organization") && strcmp (cp, "org"))
411: goto name_or_something;
412: if (w -> w_record != W_NULL)
413: goto too_many_fields;
414: w -> w_record = W_ORGANIZATION;
415: break;
416:
417: case 'p':
418: if (strcmp (cp, "person"))
419: goto name_or_something;
420: if (w -> w_record != W_NULL)
421: goto too_many_fields;
422: w -> w_record = W_PERSON;
423: break;
424:
425: case 'r':
426: if (strcmp (cp, "role"))
427: goto name_or_something;
428: if (w -> w_record != W_NULL)
429: goto too_many_fields;
430: w -> w_record = W_ROLE;
431: break;
432:
433: case 's':
434: if (strcmp (cp, "subdisplay") == 0) {
435: w -> w_output |= W_SUBDISPLAY;
436: break;
437: }
438: if (strcmp (cp, "summary") == 0) {
439: w -> w_output |= W_SUMMARY;
440: break;
441: }
442: if (strcmp (cp, "surname") == 0) {
443: w -> w_nametype = W_SURNAME;
444: goto name;
445: }
446: goto name_or_something;
447:
448: case 'u':
449: if (strcmp (cp, "unit"))
450: goto name_or_something;
451: if (w -> w_record != W_NULL)
452: goto too_many_fields;
453: w -> w_record = W_UNIT;
454: break;
455:
456: default:
457: name_or_something: ;
458: if (w -> w_inputype != W_NULL)
459: goto too_many_fields;
460: for (dp = cp; *dp; dp++)
461: if (!isdigit (*dp))
462: break;
463: if (!*dp)
464: goto got_handle;
465: if ((dp = index (cp, '@')) == NULL) {
466: w -> w_inputype = W_NAME;
467: w -> w_input = cp;
468: break;
469: }
470: if (index (dp + 1, '@') || index (dp + 1, '=')) {
471: w -> w_inputype = W_HANDLE;
472: w -> w_input = cp;
473: break;
474: }
475: w -> w_inputype = W_MAILBOX;
476: w -> w_input = cp;
477: break;
478: }
479: }
480:
481: if (w -> w_nametype != W_NULL)
482: switch (w -> w_record) {
483: default:
484: advise (NULLCP, "record-type ignored with \"%sname\"",
485: w -> w_nametype == W_COMMONAME ? "full" : "sur");
486: /* and fall... */
487:
488: case W_NULL:
489: w -> w_record = W_PERSON;
490: /* and fall... */
491:
492: case W_PERSON:
493: break;
494: }
495:
496: if (w -> w_input && strcmp (w -> w_input, "*") == 0)
497: w -> w_input = NULL, w -> w_inputype = W_NULL;
498: if (w -> w_title && strcmp (w -> w_title, "*") == 0)
499: w -> w_title = NULL;
500: if ((w -> w_input || w -> w_title)
501: && w -> w_area
502: && strcmp (w -> w_area, "*") == 0)
503: w -> w_area = NULL, w -> w_areatype = W_NULL;
504:
505: if (w -> w_title) {
506: if (w -> w_inputype == W_NULL)
507: w -> w_inputype = W_NAME;
508: if (w -> w_inputype != W_NAME) {
509: advise (NULLCP, "title specification ignored with %s",
510: w -> w_inputype == W_HANDLE ? "HANDLE" : "MAILBOX");
511: w -> w_title = NULL;
512: }
513: else
514: if (w -> w_record == W_NULL)
515: w -> w_record = W_PERSON;
516: }
517:
518: if (w -> w_inputype == W_HANDLE && w -> w_geography) {
519: advise (NULLCP, "geography specification ignored with HANDLE");
520: w -> w_geography = NULL;
521: }
522: if (w -> w_geography)
523: if (w -> w_area == NULL) {
524: w -> w_area = w -> w_geography, w -> w_areatype = W_LOCALITY;
525: w -> w_geography = NULL;
526: }
527: else
528: if (*w -> w_geography == '!')
529: w -> w_geography++;
530:
531: if (w -> w_inputype == W_HANDLE && w -> w_area) {
532: advise (NULLCP, "area specification ignored with HANDLE");
533: w -> w_area = NULL, w -> w_areatype = W_NULL;
534: }
535: if (w -> w_area)
536: if (w -> w_inputype == W_NULL) {
537: if (*w -> w_area != '!') {
538: for (dp = w -> w_area; *dp; dp++)
539: if (!isdigit (*dp))
540: break;
541: w -> w_inputype = *dp ? W_NAME : W_HANDLE,
542: w -> w_input = w -> w_area;
543: }
544: else
545: w -> w_inputype = W_HANDLE, w -> w_input = w -> w_area + 1;
546: w -> w_record = w -> w_areatype;
547: w -> w_area = NULL, w -> w_areatype = W_NULL;
548: }
549: else
550: if (*w -> w_area == '!')
551: w -> w_area++;
552:
553: if (w -> w_inputype == W_NULL) {
554: register char **ap;
555:
556: if (w -> w_record != W_NULL || w -> w_output != W_NULL) {
557: advise (NULLCP, "input-field missing");
558: return NOTOK;
559: }
560:
561: print_help: ;
562: for (ap = whois_help; *ap; ap++)
563: fprintf (stdfp, "%s%s", *ap, EOLN);
564:
565: return OK;
566: }
567: else
568: if (w -> w_inputype == W_NAME && w -> w_nametype == W_NULL)
569: w -> w_nametype = nametype ? W_SURNAME : W_COMMONAME;
570:
571: (void) sprintf (fredseq, "fred%d", seqno++);
572:
573: bp = buffer;
574:
575: if (w -> w_areatype == W_NULL) {
576: if (w -> w_inputype == W_MAILBOX
577: && w -> w_area == NULL
578: && (cp = index (w -> w_input, '@'))
579: && !index (++cp, '*')) {
580: (void) sprintf (bp, "fred -dm2dn %s", cp);
581: bp += strlen (bp);
582:
583: goto multiple_searching;
584: }
585:
586: result = whois_aux (w);
587: if (ifd == NOTOK)
588: return result;
589: goto check_wp;
590: }
591:
592: (void) sprintf (bp,
593: "search %s -norelative -singlelevel -dontdereference -sequence default -types aliasedObjectName -value -nosearchalias ",
594: limits (-1));
595: bp += strlen (bp);
596:
597: for (ag = areas; ag -> ag_record; ag++)
598: if (ag -> ag_record == w -> w_areatype)
599: break;
600: if (w -> w_geography) {
601: (void) sprintf (bp, "\"%s\" ", w -> w_geography);
602: bp += strlen (bp);
603:
604: w -> w_geography = NULL;
605: }
606: else
607: if (ag -> ag_area) {
608: (void) sprintf (bp, "\"%s\" ", ag -> ag_area);
609: bp += strlen (bp);
610: }
611:
612: (void) sprintf (bp, "-filter \"objectClass=%s & %s%s\"",
613: ag -> ag_class, ag -> ag_rdn, eqstr (w -> w_area, 0));
614: bp += strlen (bp);
615:
616: multiple_searching: ;
617: if ((fp = capture (buffer)) == NULL)
618: return NOTOK;
619:
620: if (interrupted) {
621: you_lose: ;
622: (void) fclose (fp);
623: return NOTOK;
624: }
625:
626: w -> w_area = orgname, w -> w_areatype = W_NULL;
627:
628: multiple = 0;
629: while (fgets (buffer, sizeof buffer, fp) && !interrupted) {
630: if ((cp = index (buffer, '\n')) == NULL) {
631: advise (NULLCP, "internal error(1)");
632: goto you_lose;
633: }
634: *cp = NULL;
635:
636: if (!isdigit (*buffer)) {
637: fprintf (stderr, "%s\n", buffer);
638: continue;
639: }
640:
641: if ((cp = index (buffer, ' ')) == NULL) {
642: advise (NULLCP, "internal error(2)");
643: goto you_lose;
644: }
645: *cp++ = NULL;
646: while (*cp == ' ')
647: cp++;
648:
649: if (multiple == 0 && (c = getc (fp)) != EOF) {
650: (void) ungetc (c, fp);
651: multiple = 1;
652: }
653:
654: if (multiple && query && !network)
655: switch (ask ("try %s", cp)) {
656: case NOTOK:
657: continue;
658:
659: case OK:
660: default:
661: break;
662:
663: case DONE:
664: goto out;
665: }
666: else
667: if (verbose) {
668: fprintf (stdfp, "Trying @%s ...\n", cp);
669: (void) fflush (stdfp);
670: }
671:
672: (void) sprintf (orgname, "@%s", cp);
673: (void) whois_aux (w);
674:
675: fprintf (stdfp, EOLN);
676: (void) fflush (stdfp);
677: }
678:
679: out: ;
680: (void) fclose (fp);
681:
682: if (ifd == NOTOK)
683: return OK;
684:
685: check_wp: ;
686: (void) sprintf (buffer, "squid -sequence %s", fredseq);
687:
688: if ((fp = capture (buffer)) == NULL)
689: return NOTOK;
690:
691: didany = 0;
692: while (fgets (buffer, sizeof buffer, fp)) {
693: char disher[BUFSIZ];
694:
695: if ((cp = index (buffer, '\n')) == NULL) {
696: advise (NULLCP, "internal error(3)");
697: goto you_lose;
698: }
699: *cp = NULL;
700:
701: if (strncmp (buffer, "Sequence ", sizeof "Sequence " - 1) == 0)
702: continue;
703:
704: if ((cp = index (buffer, ' ')) == NULL) {
705: advise (NULLCP, "internal error(4)");
706: goto you_lose;
707: }
708: *cp++ = NULL;
709: while (*cp == ' ')
710: cp++;
711:
712: if (!didany++) {
713: fprintf (stdfp, "-------\n\n");
714:
715: if ((c = getc (fp)) != EOF) {
716: (void) ungetc (c, fp);
717: fprintf (stdfp, "Select one of:\n\n");
718: }
719: else
720: fprintf (stdfp, "One entry matched:\n\n");
721:
722: (void) strcpy (onehit, buffer);
723: }
724:
725: (void) sprintf (disher,
726: "showentry \"%s\" -fred -dontdereference -summary",
727: cp);
728: dontpage = 1;
729: (void) dish (disher, 0);
730: dontpage = 0;
731:
732: fprintf (stdfp, " %s\n\n", cp);
733: (void) fflush (stdfp);
734: }
735: (void) fclose (fp);
736:
737: if (!didany) {
738: fprintf (stdfp,
739: "\nenter new \"whois\" command to continue searching (or \"quit\" to abort)\n");
740: return OK;
741: }
742:
743: if (didany == 1) {
744: if (getline ("enter RETURN to use this entry (or \"no\" to look some more): ",
745: buffer) == NOTOK
746: || (str2vec (buffer, args) > 0 && *args[0] != 'y'))
747: return OK;
748: args[0] = onehit;
749: }
750: else
751: if (getline ("enter number (or RETURN to look some more): ", buffer)
752: == NOTOK
753: || str2vec (buffer, args) < 1)
754: return OK;
755:
756: if (sscanf (args[0], "%d", &result) != 1) {
757: advise (NULLCP, "invalid number \"%s\"", args[0]);
758: return OK;
759: }
760:
761: (void) sprintf (buffer, "show -sequence %s %d -types rfc822Mailbox -value",
762: fredseq, result);
763:
764: if ((fp = capture (buffer)) == NULL)
765: return NOTOK;
766:
767: if (fgets (buffer, sizeof buffer, fp) == NULL
768: || (cp = index (buffer, '\n')) == NULL) {
769: advise (NULLCP, "internal error(5)");
770: goto you_lose;
771: }
772: (void) fclose (fp);
773:
774: if (strncmp (buffer, "Invalid sequence number",
775: sizeof "Invalid sequence number" - 1) == 0) {
776: advise (NULLCP, "invalid selection \"%d\"", result);
777: return OK;
778: }
779: if (strncmp (buffer, "No attributes", sizeof "No attributes" - 1) == 0) {
780: advise (NULLCP, "no rfc822Mailbox attribute for this entry!");
781: return OK;
782: }
783: if (strncmp (buffer, "rfc822Mailbox", sizeof "rfc822Mailbox" - 1) == 0) {
784: if ((cp = index (buffer, '-')) == NULL) {
785: advise (NULLCP, "internal error(6)");
786: return NOTOK;
787: }
788: for (cp++; isspace (*cp); cp++)
789: continue;
790: if (verbose)
791: fprintf (stdfp, "using %s\n", cp);
792: result = strlen (cp);
793:
794: if (write (ofd, cp, result) != result)
795: adios ("failed", "write to UA");
796:
797: istat = signal (SIGINT, SIG_IGN);
798: qstat = signal (SIGQUIT, SIG_IGN);
799:
800: if (watch) {
801: fprintf (stderr, "---> %s", cp);
802: (void) fflush (stderr);
803: }
804:
805: usetty = 0;
806:
807: return OK;
808: }
809:
810: advise (NULLCP, "internal error(7): \"%s\"", buffer);
811: return NOTOK;
812: }
813:
814: /* */
815:
816: static whois_aux (w)
817: register struct whois *w;
818: {
819: register char *bp,
820: *cp;
821: char *handle,
822: buffer[BUFSIZ];
823: register struct area_guide *ag;
824:
825: for (ag = areas; ag -> ag_record; ag++)
826: if (ag -> ag_record == w -> w_record)
827: break;
828:
829: bp = buffer;
830: switch (w -> w_inputype) {
831: case W_NULL:
832: default:
833: advise (NULLCP, "internal error(8)");
834: return NOTOK;
835:
836: case W_HANDLE:
837: (void) sprintf (bp, "showentry \"%s\" %s -fred -dontdereference",
838: w -> w_input, limits (0));
839: bp += strlen (bp);
840: goto options;
841:
842: case W_MAILBOX:
843: (void) sprintf (bp, "search %s -fred ", limits (1));
844: bp += strlen (bp);
845:
846: if (w -> w_area) {
847: (void) sprintf (bp, "\"%s\" ", w -> w_area);
848: bp += strlen (bp);
849: }
850:
851: (void) sprintf (bp, "-subtree -filter \"");
852: bp += strlen (bp);
853:
854: cp = w -> w_input;
855: if (*cp == '@')
856: (void) sprintf (bp, "mail=*%s", cp);
857: else
858: if (*(cp + strlen (cp) - 1) == '@' || !index (cp, '@'))
859: (void) sprintf (bp, "mail=%s*", cp);
860: else
861: (void) sprintf (bp, "(mail=%s | otherMailbox=internet$%s)",
862: cp, cp);
863: bp += strlen (bp);
864: break;
865:
866: case W_NAME:
867: if (cp = w -> w_input) {
868: cp += strlen (cp) - 1;
869: if (*cp == '.')
870: *cp = '*';
871: }
872:
873: (void) sprintf (bp, "search %s -%s ", limits (1),
874: kflag ? "show" : "fred");
875: bp += strlen (bp);
876:
877: if (w -> w_area) {
878: (void) sprintf (bp, "\"%s\" -subtree ", w -> w_area);
879: bp += strlen (bp);
880: }
881: else
882: if (w -> w_geography) {
883: (void) sprintf (bp, "\"%s\" ", w -> w_geography);
884: bp += strlen (bp);
885: }
886: else
887: if (ag -> ag_area) {
888: (void) sprintf (bp, "\"%s\" %s ", ag -> ag_area,
889: ag -> ag_search);
890: bp += strlen (bp);
891: }
892: else {
893: (void) sprintf (bp, "-subtree ");
894: bp += strlen (bp);
895: }
896: (void) sprintf (bp, "-filter \"");
897: bp += strlen (bp);
898:
899: handle = eqstr (w -> w_input, 0);
900: switch (w -> w_record) {
901: case W_NULL:
902: case W_PERSON:
903: if (handle) {
904: if (w -> w_title
905: && (w -> w_record == W_NULL
906: || w -> w_nametype == W_SURNAME)) {
907: (void) sprintf (bp, "( ");
908: bp += strlen (bp);
909: }
910: if (w -> w_record == W_NULL) {
911: (void) sprintf (bp, "o%s | ou%s | l%s | ",
912: handle, handle, handle, handle);
913: bp += strlen (bp);
914: }
915:
916: if (w -> w_nametype == W_SURNAME) {
917: if (w -> w_record == W_PERSON && !w -> w_title) {
918: (void) sprintf (bp, "( ");
919: bp += strlen (bp);
920: }
921: (void) sprintf (bp, "surname%s | mail=%s@* ",
922: eqstr (w -> w_input, 1),
923: w -> w_input);
924: bp += strlen (bp);
925: if (w -> w_record == W_PERSON && !w -> w_title) {
926: (void) sprintf (bp, ") ");
927: bp += strlen (bp);
928: }
929: }
930: else {
931: (void) sprintf (bp, "cn%s ", handle);
932: bp += strlen (bp);
933: }
934:
935: if (w -> w_title
936: && (w -> w_record == W_NULL
937: || w -> w_nametype == W_SURNAME)) {
938: (void) sprintf (bp, ") ");
939: bp += strlen (bp);
940: }
941: }
942: if (w -> w_title) {
943: (void) sprintf (bp, "%stitle%s",
944: handle ? "& " : "",
945: eqstr (w -> w_title, 1));
946: bp += strlen (bp);
947: }
948: break;
949:
950: default:
951: if (strcmp (handle, "=*")) {
952: (void) sprintf (bp, "%s%s", ag -> ag_rdn, handle);
953: bp += strlen (bp);
954: }
955: break;
956: }
957: break;
958: }
959:
960: if (w -> w_record == W_PERSON
961: || (w -> w_record != W_NULL && strcmp (handle, "=*"))) {
962: (void) sprintf (bp, " & ");
963: bp += strlen (bp);
964: }
965:
966: if (w -> w_record != W_NULL) {
967: (void) sprintf (bp, "objectClass=%s", ag -> ag_class);
968: bp += strlen (bp);
969: }
970:
971: (void) sprintf (bp, "\"");
972: bp += strlen (bp);
973:
974: options: ;
975: if (w -> w_output & W_EXPAND) {
976: (void) sprintf (bp, " -expand");
977: bp += strlen (bp);
978: }
979: if (w -> w_output & W_FULL) {
980: (void) sprintf (bp, " -full");
981: bp += strlen (bp);
982: }
983: if (w -> w_output & W_SUMMARY) {
984: (void) sprintf (bp, " -summary");
985: bp += strlen (bp);
986: }
987: if (w -> w_output & W_SUBDISPLAY) {
988: (void) sprintf (bp, " -subdisplay");
989: bp += strlen (bp);
990: }
991:
992: (void) sprintf (bp, " -sequence %s", ifd != NOTOK ? fredseq : "default");
993: bp += strlen (bp);
994:
995: return dish (buffer, 0);
996: }
997:
998: /* */
999:
1000: static int test_arg (user, full, minlen)
1001: char *user,
1002: *full;
1003: int minlen;
1004: {
1005: int i;
1006:
1007: if ((i = strlen (user)) < minlen
1008: || i > strlen (full)
1009: || strncmp (user, full, i))
1010: return 0;
1011:
1012: return 1;
1013: }
1014:
1015: /* */
1016:
1017: static char *eqstr (s, exact)
1018: char *s;
1019: int exact;
1020: {
1021: static char buffer[BUFSIZ];
1022:
1023: if (s == NULL)
1024: return NULL;
1025:
1026: if (index (s, '*'))
1027: (void) sprintf (buffer, "=%s", s);
1028: else
1029: if (soundex)
1030: (void) sprintf (buffer, "~=%s", s);
1031: else
1032: if (exact)
1033: (void) sprintf (buffer, "=%s", s);
1034: else
1035: (void) sprintf (buffer, "=*%s*", s);
1036:
1037: return buffer;
1038: }
1039:
1040: /* */
1041:
1042: static char *limits (isearch)
1043: int isearch;
1044: {
1045: register char *bp;
1046: static char buffer[100];
1047:
1048: bp = buffer;
1049:
1050: if (phone) {
1051: (void) strcpy (bp, "-phone ");
1052: bp += strlen (bp);
1053: }
1054:
1055: #ifdef notdef /* don't do this! */
1056: if (isearch) {
1057: (void) strcpy (bp, "-searchalias ");
1058: bp += strlen (bp);
1059: }
1060: #endif
1061:
1062: (void) strcpy (bp, "-nosizelimit ");
1063: bp += strlen (bp);
1064:
1065: if (timelimit > 0)
1066: (void) sprintf (bp, "-timelimit %d", timelimit);
1067: else
1068: (void) strcpy (bp, "-notimelimit");
1069: bp += strlen (bp);
1070:
1071: if (isearch >= 0 && (network || oneshot)) {
1072: (void) strcpy (bp, " -nofredseq");
1073: bp += strlen (bp);
1074: }
1075:
1076: return buffer;
1077: }
1078:
1079: /* */
1080:
1081: static FILE *capture (command)
1082: char *command;
1083: {
1084: int savnet,
1085: savpage;
1086: char tmpfil[BUFSIZ];
1087: FILE *fp,
1088: *savfp;
1089:
1090: (void) sprintf (tmpfil, "/tmp/fredXXXXXX");
1091: (void) unlink (mktemp (tmpfil));
1092:
1093: if ((fp = fopen (tmpfil, "w+")) == NULL) {
1094: advise (tmpfil, "unable to create");
1095: return NULL;
1096: }
1097: (void) unlink (tmpfil);
1098:
1099: savfp = stdfp, stdfp = fp;
1100: savnet = network, network = 0;
1101: savpage = dontpage, dontpage = 1;
1102:
1103: (void) dish (command, 0);
1104:
1105: dontpage = savpage;
1106: network = savnet;
1107: stdfp = savfp;
1108:
1109: rewind (fp);
1110:
1111: return fp;
1112: }
1113:
1114: /* */
1115:
1116: static int f_ufn (vec)
1117: char **vec;
1118: {
1119: register char *dp;
1120: char *cp,
1121: buffer[BUFSIZ];
1122: static int lastq = -1;
1123:
1124: if ((cp = vec[0]) == NULL || strcmp (cp, "-help") == 0) {
1125: help: ;
1126: fprintf (stdfp, "whois name...\n");
1127: fprintf (stdfp, " find something in the white pages\n");
1128:
1129: return OK;
1130: }
1131:
1132: if (*(dp = cp) == '!')
1133: dp++;
1134: for (; *dp; dp++)
1135: if (!isdigit (*dp))
1136: break;
1137: if (!*dp || *dp == '-') { /* a handle, or oldstyle */
1138: oldstyle: ;
1139: (void) strcpy (buffer, cp);
1140: (void) str2vec (buffer, vec);
1141: return f_whois_aux (vec);
1142: }
1143:
1144: if (!index (dp = cp, ','))
1145: while (dp = index (dp, ' '))
1146: if (*++dp == '-')
1147: goto oldstyle;
1148:
1149: (void) sprintf (buffer, "fred -ufn %s", cp);
1150:
1151: if (lastq != area_quantum) {
1152: FILE *fp;
1153:
1154: if (fp = fopen (ufn_file, "w")) {
1155: register struct area_guide *ag;
1156:
1157: for (ag = areas; ag -> ag_record; ag++)
1158: if (ag -> ag_record == W_ORGANIZATION)
1159: break;
1160:
1161: fprintf (fp, "1:\t%s\n", myarea + 1);
1162: if (ag -> ag_record)
1163: fprintf (fp, "\t%s\n", ag -> ag_area + 1);
1164: fprintf (fp, "\t-\n");
1165:
1166: fprintf (fp, "2:");
1167: if (ag -> ag_record)
1168: fprintf (fp, "\t%s\n", ag -> ag_area + 1);
1169: fprintf (fp, "\t%s\n", myarea + 1);
1170: fprintf (fp, "\t-\n");
1171:
1172: fprintf (fp, "3,+:\t-\n");
1173: if (ag -> ag_record)
1174: fprintf (fp, "\t%s\n", ag -> ag_area + 1);
1175: fprintf (fp, "\t%s\n", myarea + 1);
1176:
1177: (void) fclose (fp);
1178:
1179: lastq = area_quantum;
1180: }
1181: }
1182:
1183: return dish (buffer, 0);
1184: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.