![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to user.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 / dish|
Return to user.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / quipu / dish |
1.1 root 1: /* user.c - */
2:
3: #ifndef lint
4: static char *rcsid = "$Header: /f/osi/quipu/dish/RCS/user.c,v 7.4 90/07/09 14:47:27 mrose Exp $";
5: #endif
6:
7: /*
8: * $Header: /f/osi/quipu/dish/RCS/user.c,v 7.4 90/07/09 14:47:27 mrose Exp $
9: *
10: *
11: * $Log: user.c,v $
12: * Revision 7.4 90/07/09 14:47:27 mrose
13: * sync
14: *
15: * Revision 7.3 90/03/15 11:18:37 mrose
16: * quipu-sync
17: *
18: * Revision 7.2 90/01/11 18:37:47 mrose
19: * real-sync
20: *
21: * Revision 7.1 89/12/19 16:21:07 mrose
22: * sync
23: *
24: * Revision 7.0 89/11/23 22:20:25 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 "quipu/util.h"
41: #include "quipu/read.h"
42: #include "quipu/sequence.h"
43:
44: extern struct dua_sequence * current_sequence;
45: extern struct dua_sequence * top_sequence;
46:
47: #include "isoaddrs.h"
48:
49: #define OPT (!frompipe || rps -> ps_byteno == 0 ? opt : rps)
50: #define RPS (!frompipe || opt -> ps_byteno == 0 ? rps : opt)
51: extern char frompipe;
52: extern PS opt, rps;
53:
54: extern char fred_flag;
55:
56:
57: call_ds (argc,argv)
58: int argc;
59: char ** argv;
60: {
61: extern char bound;
62: extern char * myname;
63: extern char * dsa_address;
64: extern char * isodeversion;
65: extern char * dsapversion;
66: extern char * quipuversion;
67: extern char * dishversion;
68: extern DN fixed_pos;
69: extern DN user_name;
70: extern struct PSAPaddr dsa_bound;
71:
72: fred_flag = FALSE;
73:
74: if (argc > 1 && test_arg (argv[1], "-fred", 4)) {
75: fred_flag = TRUE;
76: argc--, argv++;
77: }
78:
79: if (argc > 1) {
80: if (test_arg (argv[1],"-sequence",1)) {
81: show_sequence (RPS,argv[2]);
82: return;
83: } else if (test_arg (argv[1], "-alias", 1)) {
84: new_alias (argv[2]);
85: return;
86: } else if (test_arg (argv[1], "-version", 1)) {
87: ps_printf (RPS,"ISODE version %s\n",isodeversion);
88: ps_printf (RPS,"DSAP version %s\n",dsapversion);
89: ps_printf (RPS,"QUIPU version %s\n",quipuversion);
90: ps_printf (RPS,"DISH version %s\n",dishversion);
91: return;
92: } else if (test_arg (argv[1], "-user", 1)) {
93: if (fred_flag && user_name)
94: ufn_dn_print_aux (RPS, user_name, NULLDN, 0);
95: else
96: dn_print (RPS, user_name, EDBOUT);
97: ps_print (RPS, "\n");
98: return;
99: } else if (test_arg (argv[1], "-syntax", 2)) {
100: int i;
101: char * syntax2str();
102: for (i=1;i<MAX_AV_SYNTAX;i++) {
103: if (syntax2str(i) == NULLCP)
104: return;
105: ps_printf (RPS, "%s\n",syntax2str(i));
106: }
107: return;
108: } else {
109: Usage (argv[0]);
110: return;
111: }
112: }
113:
114: if (bound) {
115: ps_printf (RPS, "Connected to ");
116: if (strcmp (myname, dsa_address))
117: ps_printf (RPS, "%s at ", myname);
118: ps_printf (RPS, "%s\n", pa2str (&dsa_bound));
119: }
120: else
121: ps_print (RPS,"Not connected to a DSA (cache exists)\n");
122: ps_print (RPS,"Current position: ");
123: if (fred_flag && fixed_pos)
124: ufn_dn_print_aux (RPS, fixed_pos, NULLDN, 0);
125: else
126: ps_print (RPS, "@"), dn_print (RPS, fixed_pos, EDBOUT);
127: ps_print (RPS, "\nUser name: ");
128: if (fred_flag && user_name)
129: ufn_dn_print_aux (RPS, user_name, NULLDN, 0);
130: else
131: ps_print (RPS, "@"), dn_print (RPS, user_name, EDBOUT);
132: ps_print (RPS, "\n");
133: if (current_sequence != NULL_DS)
134: ps_printf (RPS,"Current sequence '%s'\n",current_sequence->ds_name);
135: }
136:
137:
138: /* */
139:
140: static new_alias (cp)
141: char *cp;
142: {
143: int seqno;
144: DN sdn;
145:
146: if ((sdn = str2dn (*cp != '@' ? cp : cp + 1)) == NULLDN) {
147: ps_printf (OPT, "Invalid DN for alias: %s\n", cp);
148: return;
149: }
150:
151: set_sequence ("default");
152: if (seqno = add_sequence (sdn)) {
153: ps_printf (RPS, "%-3d ", seqno);
154: if (fred_flag && sdn)
155: ufn_dn_print_aux (RPS, sdn, NULLDN, 0);
156: else
157: ps_print (RPS, "@"), dn_print (RPS, sdn, EDBOUT);
158: ps_print (RPS, "\n");
159: }
160: }
161:
162: dish_error (ps,error)
163: PS ps;
164: struct DSError * error;
165: {
166: struct access_point * ap;
167: extern char neverefer;
168: extern int chase_flag;
169:
170: if (error->dse_type == DSE_ABANDONED) {
171: ps_print (ps,"(DAP call interrupted - abandon successful)\n");
172: return (0);
173: }
174:
175: if (error->dse_type == DSE_ABANDON_FAILED) {
176: ps_print (ps,"(DAP call interrupted - abandon unsuccessful)\n");
177: return (0);
178: }
179:
180: if (error->dse_type == DSE_INTRERROR) {
181: ps_print (ps,"(DAP call interrupted)\n");
182: return (0);
183: }
184:
185: if ((error->dse_type != DSE_REFERRAL)
186: || ((chase_flag == 0) && neverefer)
187: || (chase_flag == 1)) {
188: ds_error (ps,error);
189: return (0);
190: }
191:
192:
193: if (error->ERR_REFERRAL.DSE_ref_candidates == NULLCONTINUATIONREF) {
194: ps_print (ps,"*** Referral error (but no reference !!!) ***\n");
195: return (0);
196: }
197:
198: for (ap = error->ERR_REFERRAL.DSE_ref_candidates->cr_accesspoints;
199: ap != NULLACCESSPOINT; ap=ap->ap_next) {
200:
201: if (chase_flag != 2) {
202: ps_print (ps,"Referral to ");
203: dn_print (ps,ap->ap_name,EDBOUT);
204:
205: if (yesno (". Chase ? ") == FALSE)
206: continue;
207: } else if (!frompipe) {
208: ps_print (ps,"Referring to ");
209: dn_print (ps,ap->ap_name,EDBOUT);
210: ps_print (ps,"...\n");
211: (void) ps_flush (ps);
212: }
213:
214: if (referral_bind (ap->ap_address) != 0)
215: return (1);
216:
217: if (chase_flag == 2)
218: break; /* only try first - otherwise possible looping */
219: }
220: return (0);
221: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.