5 * p9any - protocol negotiator
8 * S->C: v.2 proto@dom proto@dom proto@dom... NUL
10 * [negotiated proto continues]
13 extern Proto p9sk1, p9sk2, p9cr;
15 static Proto* okproto[] =
22 rolecall(Role *r, char *name, Conv *c)
25 if(strcmp(r->name, name) == 0)
27 werrstr("unknown role");
32 hasnul(void *v, int n)
37 if(n > 0 && c[n-1] == '\0')
55 attr = delattr(copyattr(c->attr), "proto");
57 for(i=0; i<ring.nkey; i++){
59 for(j=0; okproto[j]; j++)
60 if(k->proto == okproto[j]
61 && (dom = strfindattr(k->attr, "dom")) != nil
62 && matchattr(attr, k->attr, k->privattr)){
63 s = estrappend(s, " %s@%s", k->proto->name, dom);
69 werrstr("no valid keys");
73 c->state = "write offer";
74 if(convwrite(c, s, strlen(s)+1) < 0)
79 c->state = "read choice";
80 if(convreadfn(c, hasnul, &s) < 0)
83 m = tokenize(s, tok, nelem(tok));
85 werrstr("bad protocol message");
89 for(i=0; okproto[i]; i++)
90 if(strcmp(okproto[i]->name, tok[0]) == 0)
93 werrstr("bad chosen protocol %q", tok[0]);
97 c->state = "write ok";
98 if(convwrite(c, "OK\0", 3) < 0)
101 c->state = "start choice";
102 attr = addattr(attr, "proto=%q dom=%q", tok[0], tok[1]);
106 c->proto = okproto[i];
108 if(rolecall(c->proto->roles, "server", c) < 0){
109 werrstr("%s: %r", tok[0]);
124 char *s, **f, *tok[20], ok[3], *q, *user, *dom, *choice;
125 int i, n, ret, version;
134 user = strfindattr(c->attr, "user");
135 dom = strfindattr(c->attr, "dom");
138 * if the user is the factotum owner, any key will do.
139 * if not, then if we have a speakfor key,
140 * we will only vouch for the user's local identity.
142 * this logic is duplicated in p9sk1.c
144 attr = delattr(copyattr(c->attr), "role");
145 attr = delattr(attr, "proto");
146 if(strcmp(c->sysuser, owner) == 0)
147 attr = addattr(attr, "role=client");
148 else if(user==nil || strcmp(c->sysuser, user)==0){
149 attr = delattr(attr, "user");
150 attr = addattr(attr, "role=speakfor");
152 werrstr("will not authenticate for %q as %q", c->sysuser, user);
156 c->state = "read offer";
157 if(convreadfn(c, hasnul, &s) < 0)
160 c->state = "look for keys";
161 n = tokenize(s, tok, nelem(tok));
164 if(n > 0 && memcmp(f[0], "v.", 2) == 0){
165 version = atoi(f[0]+2);
167 werrstr("unknown p9any version: %s", f[0]);
174 /* look for keys that don't need confirmation */
176 if((q = strchr(f[i], '@')) == nil)
178 if(dom && strcmp(q+1, dom) != 0)
181 if((k = keylookup("%A proto=%q dom=%q", attr, f[i], q))
182 && strfindattr(k->attr, "confirm") == nil)
187 /* look for any keys at all */
189 if((q = strchr(f[i], '@')) == nil)
191 if(dom && strcmp(q+1, dom) != 0)
194 if(k = keylookup("%A proto=%q dom=%q", attr, f[i], q))
199 /* ask for new keys */
200 c->state = "ask for keys";
202 if((q = strchr(f[i], '@')) == nil)
204 if(dom && strcmp(q+1, dom) != 0)
207 p = protolookup(f[i]);
208 if(p == nil || p->keyprompt == nil){
212 if(k = keyfetch(c, "%A proto=%q dom=%q %s", attr, f[i], q, p->keyprompt))
218 werrstr("unable to find common key");
222 /* f[i] is the chosen protocol, q the chosen domain */
223 attr = addattr(attr, "proto=%q dom=%q", f[i], q);
224 c->state = "write choice";
226 /* have a key: go for it */
227 choice = estrappend(nil, "%q %q", f[i], q);
228 if(convwrite(c, choice, strlen(choice)+1) < 0){
235 c->state = "read ok";
236 if(convread(c, ok, 3) < 0 || memcmp(ok, "OK\0", 3) != 0)
240 c->state = "start choice";
241 c->proto = protolookup(f[i]);
246 if(rolecall(c->proto->roles, "client", c) < 0){
247 werrstr("%s: %r", c->proto->name);
263 "client", p9anyclient,
264 "server", p9anyserver,