1 2277c5d7 2004-03-21 devnull #include "std.h"
2 2277c5d7 2004-03-21 devnull #include "dat.h"
5 2277c5d7 2004-03-21 devnull * key attr=val... - add a key
6 2277c5d7 2004-03-21 devnull * the attr=val pairs are protocol-specific.
7 2277c5d7 2004-03-21 devnull * for example, both of these are valid:
8 2277c5d7 2004-03-21 devnull * key p9sk1 gre cs.bell-labs.com mysecret
9 2277c5d7 2004-03-21 devnull * key p9sk1 gre cs.bell-labs.com 11223344556677 fmt=des7hex
10 2277c5d7 2004-03-21 devnull * delkey ... - delete a key
11 2277c5d7 2004-03-21 devnull * if given, the attr=val pairs are used to narrow the search
12 2277c5d7 2004-03-21 devnull * [maybe should require a password?]
14 2277c5d7 2004-03-21 devnull * debug - toggle debugging
17 2277c5d7 2004-03-21 devnull static char *msg[] = {
19 2277c5d7 2004-03-21 devnull "delkey",
23 2277c5d7 2004-03-21 devnull static int
24 2277c5d7 2004-03-21 devnull classify(char *s)
28 2277c5d7 2004-03-21 devnull for(i=0; i<nelem(msg); i++)
29 2277c5d7 2004-03-21 devnull if(strcmp(msg[i], s) == 0)
30 2277c5d7 2004-03-21 devnull return i;
31 2277c5d7 2004-03-21 devnull return -1;
35 2277c5d7 2004-03-21 devnull ctlwrite(char *a)
38 2277c5d7 2004-03-21 devnull int i, nmatch, ret;
39 2277c5d7 2004-03-21 devnull Attr *attr, **l, **lpriv, **lprotos, *pa, *priv, *protos;
41 2277c5d7 2004-03-21 devnull Proto *proto;
43 2277c5d7 2004-03-21 devnull if(a[0] == '#' || a[0] == '\0')
44 2277c5d7 2004-03-21 devnull return 0;
47 2277c5d7 2004-03-21 devnull * it would be nice to emit a warning of some sort here.
48 2277c5d7 2004-03-21 devnull * we ignore all but the first line of the write. this helps
49 2277c5d7 2004-03-21 devnull * both with things like "echo delkey >/mnt/factotum/ctl"
50 2277c5d7 2004-03-21 devnull * and writes that (incorrectly) contain multiple key lines.
52 2277c5d7 2004-03-21 devnull if(p = strchr(a, '\n')){
53 2277c5d7 2004-03-21 devnull if(p[1] != '\0'){
54 2277c5d7 2004-03-21 devnull werrstr("multiline write not allowed");
55 2277c5d7 2004-03-21 devnull return -1;
57 2277c5d7 2004-03-21 devnull *p = '\0';
60 2277c5d7 2004-03-21 devnull if((p = strchr(a, ' ')) == nil)
63 2277c5d7 2004-03-21 devnull *p++ = '\0';
64 2277c5d7 2004-03-21 devnull switch(classify(a)){
66 2277c5d7 2004-03-21 devnull werrstr("unknown verb");
67 2277c5d7 2004-03-21 devnull return -1;
68 2277c5d7 2004-03-21 devnull case 0: /* key */
69 2277c5d7 2004-03-21 devnull attr = parseattr(p);
70 2277c5d7 2004-03-21 devnull /* separate out proto= attributes */
71 2277c5d7 2004-03-21 devnull lprotos = &protos;
72 2277c5d7 2004-03-21 devnull for(l=&attr; (*l); ){
73 2277c5d7 2004-03-21 devnull if(strcmp((*l)->name, "proto") == 0){
74 2277c5d7 2004-03-21 devnull *lprotos = *l;
75 2277c5d7 2004-03-21 devnull lprotos = &(*l)->next;
76 2277c5d7 2004-03-21 devnull *l = (*l)->next;
78 2277c5d7 2004-03-21 devnull l = &(*l)->next;
80 2277c5d7 2004-03-21 devnull *lprotos = nil;
81 2277c5d7 2004-03-21 devnull if(protos == nil){
82 2277c5d7 2004-03-21 devnull werrstr("key without protos");
83 2277c5d7 2004-03-21 devnull freeattr(attr);
84 2277c5d7 2004-03-21 devnull return -1;
87 2277c5d7 2004-03-21 devnull /* separate out private attributes */
88 2277c5d7 2004-03-21 devnull lpriv = &priv;
89 2277c5d7 2004-03-21 devnull for(l=&attr; (*l); ){
90 2277c5d7 2004-03-21 devnull if((*l)->name[0] == '!'){
91 2277c5d7 2004-03-21 devnull *lpriv = *l;
92 2277c5d7 2004-03-21 devnull lpriv = &(*l)->next;
93 2277c5d7 2004-03-21 devnull *l = (*l)->next;
95 2277c5d7 2004-03-21 devnull l = &(*l)->next;
97 2277c5d7 2004-03-21 devnull *lpriv = nil;
99 2277c5d7 2004-03-21 devnull /* add keys */
100 2277c5d7 2004-03-21 devnull ret = 0;
101 2277c5d7 2004-03-21 devnull for(pa=protos; pa; pa=pa->next){
102 2277c5d7 2004-03-21 devnull if((proto = protolookup(pa->val)) == nil){
103 2277c5d7 2004-03-21 devnull werrstr("unknown proto %s", pa->val);
104 2277c5d7 2004-03-21 devnull ret = -1;
105 2277c5d7 2004-03-21 devnull continue;
107 2277c5d7 2004-03-21 devnull if(proto->checkkey == nil){
108 2277c5d7 2004-03-21 devnull werrstr("proto %s does not accept keys", proto->name);
109 2277c5d7 2004-03-21 devnull ret = -1;
110 2277c5d7 2004-03-21 devnull continue;
112 2277c5d7 2004-03-21 devnull k = emalloc(sizeof(Key));
113 2277c5d7 2004-03-21 devnull k->attr = mkattr(AttrNameval, "proto", proto->name, copyattr(attr));
114 2277c5d7 2004-03-21 devnull k->privattr = copyattr(priv);
115 2277c5d7 2004-03-21 devnull k->ref = 1;
116 2277c5d7 2004-03-21 devnull k->proto = proto;
117 2277c5d7 2004-03-21 devnull if((*proto->checkkey)(k) < 0){
118 2277c5d7 2004-03-21 devnull ret = -1;
119 2277c5d7 2004-03-21 devnull keyclose(k);
120 2277c5d7 2004-03-21 devnull continue;
122 2277c5d7 2004-03-21 devnull keyadd(k);
123 2277c5d7 2004-03-21 devnull keyclose(k);
125 2277c5d7 2004-03-21 devnull freeattr(attr);
126 2277c5d7 2004-03-21 devnull freeattr(priv);
127 2277c5d7 2004-03-21 devnull freeattr(protos);
128 2277c5d7 2004-03-21 devnull return ret;
129 2277c5d7 2004-03-21 devnull case 1: /* delkey */
130 2277c5d7 2004-03-21 devnull nmatch = 0;
131 2277c5d7 2004-03-21 devnull attr = parseattr(p);
132 2277c5d7 2004-03-21 devnull for(pa=attr; pa; pa=pa->next){
133 2277c5d7 2004-03-21 devnull if(pa->type != AttrQuery && pa->name[0]=='!'){
134 2277c5d7 2004-03-21 devnull werrstr("only !private? patterns are allowed for private fields");
135 2277c5d7 2004-03-21 devnull freeattr(attr);
136 2277c5d7 2004-03-21 devnull return -1;
139 2277c5d7 2004-03-21 devnull for(i=0; i<ring.nkey; ){
140 2277c5d7 2004-03-21 devnull if(matchattr(attr, ring.key[i]->attr, ring.key[i]->privattr)){
141 2277c5d7 2004-03-21 devnull nmatch++;
142 2277c5d7 2004-03-21 devnull keyclose(ring.key[i]);
143 2277c5d7 2004-03-21 devnull ring.nkey--;
144 2277c5d7 2004-03-21 devnull memmove(&ring.key[i], &ring.key[i+1], (ring.nkey-i)*sizeof(ring.key[0]));
148 2277c5d7 2004-03-21 devnull freeattr(attr);
149 2277c5d7 2004-03-21 devnull if(nmatch == 0){
150 2277c5d7 2004-03-21 devnull werrstr("found no keys to delete");
151 2277c5d7 2004-03-21 devnull return -1;
153 2277c5d7 2004-03-21 devnull return 0;
154 2277c5d7 2004-03-21 devnull case 2: /* debug */
155 2277c5d7 2004-03-21 devnull debug ^= 1;
156 2277c5d7 2004-03-21 devnull return 0;