4a1aafd38c1f456680e520a5920d7aa7d535e070
[openafs.git] / src / ptserver / ptprocs.c
1 /*
2  * Copyright 2000, International Business Machines Corporation and others.
3  * All Rights Reserved.
4  *
5  * This software has been released under the terms of the IBM Public
6  * License.  For details, see the LICENSE file in the top-level source
7  * directory or online at http://www.openafs.org/dl/license10.html
8  */
9
10 /*
11  *                      (3) function addToGroup
12  *
13  *                          1. Eliminate the code that tests for adding groups
14  *                             to groups. This is an error in normal AFS.
15  *                          2. If adding a group to a group call AddToSGEntry
16  *                             to add the id of the group it's a member of.
17  *
18  *                      (4) function Delete
19  *
20  *                          1. Print a messsage if an error is returned from
21  *                             FindByID() and PTDEBUG is defined.
22  *                          2. If removing a group from a group call
23  *                             RemoveFromSGEntry to remove the id of the
24  *                             group it's a member of.
25  *                          3. Remove supergroup continuation records.
26  *
27  *                      (5) function RemoveFromGroup
28  *
29  *                          1. Eliminate the code that tests for adding groups
30  *                             to groups. This is an error in normal AFS.
31  *                          2. If removing a group from a group call
32  *                             RemoveFromSGEntry to remove the id of the
33  *                             group it's a member of.
34  *
35  *                      (6) Add new functions PR_ListSuperGroups and
36  *                          listSuperGroups.
37  *
38  *                      (7) function isAMemberOf
39  *
40  *                          1. Allow groups to be members of groups.
41  *
42  *                      Transarc does not currently use opcodes past 520, but
43  *                      they *could* decide at any time to use more opcodes.
44  *                      If they did, then one part of our local mods,
45  *                      ListSupergroups, would break.  I've therefore
46  *                      renumbered it to 530, and put logic in to enable the
47  *                      old opcode to work (for now).
48  */
49
50 #include <afsconfig.h>
51 #include <afs/param.h>
52 #include <afs/stds.h>
53
54 #include <roken.h>
55 #include <afs/opr.h>
56
57 #include <ctype.h>
58
59 #include <lock.h>
60 #include <afs/afsutil.h>
61 #include <ubik.h>
62 #include <rx/xdr.h>
63 #include <rx/rx.h>
64 #include <rx/rxkad.h>
65 #include <afs/auth.h>
66 #include <afs/cellconfig.h>
67
68 #include "ptserver.h"
69 #include "pterror.h"
70 #include "ptprototypes.h"
71 #include "afs/audit.h"
72
73 extern int restricted;
74 extern struct ubik_dbase *dbase;
75 extern int pr_noAuth;
76 extern int prp_group_default;
77 extern int prp_user_default;
78 extern struct afsconf_dir *prdir;
79
80 static afs_int32 iNewEntry(struct rx_call *call, char aname[], afs_int32 aid,
81                            afs_int32 oid, afs_int32 *cid);
82 static afs_int32 newEntry(struct rx_call *call, char aname[], afs_int32 flag,
83                           afs_int32 oid, afs_int32 *aid, afs_int32 *cid);
84 static afs_int32 whereIsIt(struct rx_call *call, afs_int32 aid, afs_int32 *apos,
85                            afs_int32 *cid);
86 static afs_int32 dumpEntry(struct rx_call *call, afs_int32 apos,
87                            struct prdebugentry *aentry, afs_int32 *cid);
88 static afs_int32 addToGroup(struct rx_call *call, afs_int32 aid, afs_int32 gid,
89                             afs_int32 *cid);
90 static afs_int32 nameToID(struct rx_call *call, namelist *aname, idlist *aid);
91 static afs_int32 idToName(struct rx_call *call, idlist *aid, namelist *aname);
92 static afs_int32 Delete(struct rx_call *call, afs_int32 aid, afs_int32 *cid);
93 static afs_int32 UpdateEntry(struct rx_call *call, afs_int32 aid, char *name,
94                              struct PrUpdateEntry *uentry, afs_int32 *cid);
95 static afs_int32 removeFromGroup(struct rx_call *call, afs_int32 aid,
96                                  afs_int32 gid, afs_int32 *cid);
97 static afs_int32 getCPS(struct rx_call *call, afs_int32 aid, prlist *alist,
98                         afs_int32 *over, afs_int32 *cid);
99 static afs_int32 getCPS2(struct rx_call *call, afs_int32 aid, afs_uint32 ahost,
100                          prlist *alist, afs_int32 *over, afs_int32 *cid);
101 static afs_int32 getHostCPS(struct rx_call *call, afs_uint32 ahost,
102                             prlist *alist, afs_int32 *over);
103 static afs_int32 listMax(struct rx_call *call, afs_int32 *uid, afs_int32 *gid);
104 static afs_int32 setMax(struct rx_call *call, afs_int32 aid, afs_int32 gflag,
105                         afs_int32 *cid);
106 static afs_int32 listEntry(struct rx_call *call, afs_int32 aid,
107                            struct prcheckentry *aentry, afs_int32 *cid);
108 static afs_int32 listEntries(struct rx_call *call, afs_int32 flag,
109                              afs_int32 startindex, prentries *bulkentries,
110                              afs_int32 *nextstartindex, afs_int32 *cid);
111 static afs_int32 put_prentries(struct prentry *tentry, prentries *bulkentries);
112 static afs_int32 changeEntry(struct rx_call *call, afs_int32 aid, char *name,
113                              afs_int32 oid, afs_int32 newid, afs_int32 *cid);
114 static afs_int32 setFieldsEntry(struct rx_call *call, afs_int32 id,
115                                 afs_int32 mask, afs_int32 flags,
116                                 afs_int32 ngroups, afs_int32 nusers,
117                                 afs_int32 spare1, afs_int32 spare2,
118                                 afs_int32 *cid);
119 static afs_int32 listElements(struct rx_call *call, afs_int32 aid,
120                               prlist *alist, afs_int32 *over, afs_int32 *cid);
121 #if defined(SUPERGROUPS)
122 static afs_int32 listSuperGroups(struct rx_call *call, afs_int32 aid,
123                                  prlist *alist, afs_int32 *over,
124                                  afs_int32 *cid);
125 #endif
126 static afs_int32 listOwned(struct rx_call *call, afs_int32 aid, prlist *alist,
127                            afs_int32 *lastP, afs_int32 *cid);
128 static afs_int32 isAMemberOf(struct rx_call *call, afs_int32 uid, afs_int32 gid,
129                              afs_int32 *flag, afs_int32 *cid);
130 static afs_int32 addWildCards(struct ubik_trans *tt, prlist *alist,
131                               afs_uint32 host);
132 static afs_int32 WhoIsThisWithName(struct rx_call *acall,
133                                    struct ubik_trans *at, afs_int32 *aid,
134                                    char *aname);
135
136 /* when we abort, the ubik cachedVersion will be reset, so we'll read in the
137  * header on the next call.
138  * Abort the transaction and return the code.
139  */
140 #define ABORT_WITH(tt,code) return(ubik_AbortTrans(tt),code)
141
142 static int
143 CreateOK(struct ubik_trans *ut, afs_int32 cid, afs_int32 oid, afs_int32 flag,
144          int admin)
145 {
146     if (restricted && !admin)
147         return 0;
148
149     if (flag & PRFOREIGN) {
150         /* Foreign users are recognized by the '@' sign and
151          * not by the PRFOREIGN flag.
152          */
153         return 0;
154     } else if (flag & PRGRP) {
155         /* Allow anonymous group creation only if owner specified
156          * and running noAuth.
157          */
158         if (cid == ANONYMOUSID) {
159             if ((oid == 0) || !pr_noAuth)
160                 return 0;
161         }
162     } else {                    /* creating a user */
163         if (!admin && !pr_noAuth)
164             return 0;
165     }
166     return 1;                   /* OK! */
167 }
168
169 afs_int32
170 WhoIsThis(struct rx_call *acall, struct ubik_trans *at, afs_int32 *aid)
171 {
172     int code = WhoIsThisWithName(acall, at, aid, NULL);
173     if (code == 2 && *aid == ANONYMOUSID)
174         return PRNOENT;
175     return code;
176 }
177
178 static int
179 WritePreamble(struct ubik_trans **tt)
180 {
181     int code;
182
183     code = Initdb();
184     if (code)
185         return code;
186
187     code = ubik_BeginTrans(dbase, UBIK_WRITETRANS, tt);
188     if (code)
189         return code;
190
191     code = ubik_SetLock(*tt, 1, 1, LOCKWRITE);
192     if (code)
193         goto out;
194
195     code = read_DbHeader(*tt);
196
197 out:
198     if (code)
199         ubik_AbortTrans(*tt);
200
201     return code;
202 }
203
204 static int
205 ReadPreamble(struct ubik_trans **tt)
206 {
207     int code;
208
209     code = Initdb();
210     if (code)
211         return code;
212
213     code = ubik_BeginTransReadAny(dbase, UBIK_READTRANS, tt);
214     if (code)
215         return code;
216
217     code = ubik_SetLock(*tt, 1, 1, LOCKREAD);
218     if (code)
219         goto out;
220
221     code = read_DbHeader(*tt);
222
223 out:
224     if (code)
225         ubik_AbortTrans(*tt);
226
227     return code;
228 }
229
230 afs_int32
231 SPR_INewEntry(struct rx_call *call, char aname[], afs_int32 aid, afs_int32 oid)
232 {
233     afs_int32 code;
234     afs_int32 cid = ANONYMOUSID;
235
236     code = iNewEntry(call, aname, aid, oid, &cid);
237     osi_auditU(call, PTS_INewEntEvent, code, AUD_ID, aid, AUD_STR, aname,
238                AUD_ID, oid, AUD_END);
239     ViceLog(5, ("PTS_INewEntry: code %d cid %d aid %d aname %s oid %d\n", code, cid, aid, aname, oid));
240     return code;
241 }
242
243 static afs_int32
244 iNewEntry(struct rx_call *call, char aname[], afs_int32 aid, afs_int32 oid,
245           afs_int32 *cid)
246 {
247     /* used primarily for conversion - not intended to be used as usual means
248      * of entering people into the database. */
249     struct ubik_trans *tt;
250     afs_int32 code;
251     afs_int32 gflag = 0;
252     int admin;
253
254     stolower(aname);
255
256     code = WritePreamble(&tt);
257     if (code)
258         return code;
259
260     code = WhoIsThis(call, tt, cid);
261     if (code)
262         ABORT_WITH(tt, PRPERM);
263     admin = IsAMemberOf(tt, *cid, SYSADMINID);
264
265     /* first verify the id is good */
266     if (aid == 0)
267         ABORT_WITH(tt, PRPERM);
268     if (aid < 0) {
269         gflag |= PRGRP;
270         /* only sysadmin can reuse a group id */
271         if (!admin && !pr_noAuth && (aid != ntohl(cheader.maxGroup) - 1))
272             ABORT_WITH(tt, PRPERM);
273     }
274     if (FindByID(tt, aid))
275         ABORT_WITH(tt, PRIDEXIST);
276
277     /* check a few other things */
278     if (!CreateOK(tt, *cid, oid, gflag, admin))
279         ABORT_WITH(tt, PRPERM);
280
281     code = CreateEntry(tt, aname, &aid, 1, gflag, oid, *cid);
282     if (code != PRSUCCESS)
283         ABORT_WITH(tt, code);
284
285     /* finally, commit transaction */
286     code = ubik_EndTrans(tt);
287     if (code)
288         return code;
289     return PRSUCCESS;
290 }
291
292
293 afs_int32
294 SPR_NewEntry(struct rx_call *call, char aname[], afs_int32 flag, afs_int32 oid,
295              afs_int32 *aid)
296 {
297     afs_int32 code;
298     afs_int32 cid = ANONYMOUSID;
299
300     code = newEntry(call, aname, flag, oid, aid, &cid);
301     osi_auditU(call, PTS_NewEntEvent, code, AUD_ID, *aid, AUD_STR, aname,
302                AUD_ID, oid, AUD_END);
303     ViceLog(5, ("PTS_NewEntry: code %d cid %d aid %d aname %s oid %d\n", code, cid, *aid, aname, oid));
304     return code;
305 }
306
307 static afs_int32
308 newEntry(struct rx_call *call, char aname[], afs_int32 flag, afs_int32 oid,
309          afs_int32 *aid, afs_int32 *cid)
310 {
311     afs_int32 code;
312     struct ubik_trans *tt;
313     int admin;
314     char cname[PR_MAXNAMELEN];
315     stolower(aname);
316
317     code = WritePreamble(&tt);
318     if (code)
319         return code;
320
321     /* this is for cross-cell self registration. It is not added in the
322      * SPR_INewEntry because we want self-registration to only do
323      * automatic id assignment.
324      */
325     code = WhoIsThisWithName(call, tt, cid, cname);
326     if (code != 2) {            /* 2 specifies that this is a foreign cell request */
327         if (code)
328             ABORT_WITH(tt, PRPERM);
329         admin = IsAMemberOf(tt, *cid, SYSADMINID);
330     } else {
331         admin = ((!restricted && !strcmp(aname, cname))) || IsAMemberOf(tt, *cid, SYSADMINID);
332         oid = *cid = SYSADMINID;
333     }
334     if (!CreateOK(tt, *cid, oid, flag, admin))
335         ABORT_WITH(tt, PRPERM);
336
337     code = CreateEntry(tt, aname, aid, 0, flag, oid, *cid);
338     if (code != PRSUCCESS)
339         ABORT_WITH(tt, code);
340
341     code = ubik_EndTrans(tt);
342     if (code)
343         return code;
344     return PRSUCCESS;
345 }
346
347
348
349 afs_int32
350 SPR_WhereIsIt(struct rx_call *call, afs_int32 aid, afs_int32 *apos)
351 {
352     afs_int32 code;
353     afs_int32 cid = ANONYMOUSID;
354
355     code = whereIsIt(call, aid, apos, &cid);
356     osi_auditU(call, PTS_WheIsItEvent, code, AUD_ID, aid, AUD_LONG, *apos,
357                AUD_END);
358     ViceLog(125, ("PTS_WhereIsIt: code %d cid %d aid %d apos %d\n", code, cid, aid, *apos));
359     return code;
360 }
361
362 static afs_int32
363 whereIsIt(struct rx_call *call, afs_int32 aid, afs_int32 *apos, afs_int32 *cid)
364 {
365     afs_int32 code;
366     struct ubik_trans *tt;
367     afs_int32 temp;
368
369     code = ReadPreamble(&tt);
370     if (code)
371         return code;
372
373     code = WhoIsThis(call, tt, cid);
374     if (code)
375         ABORT_WITH(tt, PRPERM);
376
377     temp = FindByID(tt, aid);
378     if (!temp)
379         ABORT_WITH(tt, PRNOENT);
380     *apos = temp;
381     code = ubik_EndTrans(tt);
382     if (code)
383         return code;
384     return PRSUCCESS;
385 }
386
387
388 afs_int32
389 SPR_DumpEntry(struct rx_call *call, afs_int32 apos,
390               struct prdebugentry *aentry)
391 {
392     afs_int32 code;
393     afs_int32 cid = ANONYMOUSID;
394
395     code = dumpEntry(call, apos, aentry, &cid);
396     osi_auditU(call, PTS_DmpEntEvent, code, AUD_LONG, apos, AUD_END);
397     ViceLog(125, ("PTS_DumpEntry: code %d cid %d apos %d\n", code, cid, apos));
398     return code;
399 }
400
401 static afs_int32
402 dumpEntry(struct rx_call *call, afs_int32 apos, struct prdebugentry *aentry,
403           afs_int32 *cid)
404 {
405     afs_int32 code;
406     struct ubik_trans *tt;
407
408     code = ReadPreamble(&tt);
409     if (code)
410         return code;
411
412     code = WhoIsThis(call, tt, cid);
413     if (code)
414         ABORT_WITH(tt, PRPERM);
415     code = pr_ReadEntry(tt, 0, apos, (struct prentry *)aentry);
416     if (code)
417         ABORT_WITH(tt, code);
418
419     if (!AccessOK(tt, *cid, 0, PRP_STATUS_MEM, 0))
420         ABORT_WITH(tt, PRPERM);
421
422     /* Since prdebugentry is in the form of a prentry not a coentry, we will
423      * return the coentry slots in network order where the string is. */
424 #if 0
425     if (aentry->flags & PRCONT) {       /* wrong type, get coentry instead */
426         code = pr_ReadCoEntry(tt, 0, apos, aentry);
427         if (code)
428             ABORT_WITH(tt, code);
429     }
430 #endif
431     code = ubik_EndTrans(tt);
432     if (code)
433         return code;
434     return PRSUCCESS;
435 }
436
437 afs_int32
438 SPR_AddToGroup(struct rx_call *call, afs_int32 aid, afs_int32 gid)
439 {
440     afs_int32 code;
441     afs_int32 cid = ANONYMOUSID;
442
443     code = addToGroup(call, aid, gid, &cid);
444     osi_auditU(call, PTS_AdToGrpEvent, code, AUD_ID, gid, AUD_ID, aid,
445                AUD_END);
446     ViceLog(5, ("PTS_AddToGroup: code %d cid %d gid %d aid %d\n", code, cid, gid, aid));
447     return code;
448 }
449
450 static afs_int32
451 addToGroup(struct rx_call *call, afs_int32 aid, afs_int32 gid, afs_int32 *cid)
452 {
453     afs_int32 code;
454     struct ubik_trans *tt;
455     afs_int32 tempu;
456     afs_int32 tempg;
457     struct prentry tentry;
458     struct prentry uentry;
459
460     if (gid == ANYUSERID || gid == AUTHUSERID)
461         return PRPERM;
462     if (aid == ANONYMOUSID)
463         return PRPERM;
464
465     code = WritePreamble(&tt);
466     if (code)
467         return code;
468
469     code = WhoIsThis(call, tt, cid);
470     if (code)
471         ABORT_WITH(tt, PRPERM);
472     tempu = FindByID(tt, aid);
473     if (!tempu)
474         ABORT_WITH(tt, PRNOENT);
475     memset(&uentry, 0, sizeof(uentry));
476     code = pr_ReadEntry(tt, 0, tempu, &uentry);
477     if (code != 0)
478         ABORT_WITH(tt, code);
479
480 #if !defined(SUPERGROUPS)
481     /* we don't allow groups as members of groups at present */
482     if (uentry.flags & PRGRP)
483         ABORT_WITH(tt, PRNOTUSER);
484 #endif
485
486     tempg = FindByID(tt, gid);
487     if (!tempg)
488         ABORT_WITH(tt, PRNOENT);
489     code = pr_ReadEntry(tt, 0, tempg, &tentry);
490     if (code != 0)
491         ABORT_WITH(tt, code);
492     /* make sure that this is a group */
493     if (!(tentry.flags & PRGRP))
494         ABORT_WITH(tt, PRNOTGROUP);
495     if (!AccessOK(tt, *cid, &tentry, PRP_ADD_MEM, PRP_ADD_ANY))
496         ABORT_WITH(tt, PRPERM);
497
498     code = AddToEntry(tt, &tentry, tempg, aid);
499     if (code != PRSUCCESS)
500         ABORT_WITH(tt, code);
501
502 #if defined(SUPERGROUPS)
503     if (uentry.flags & PRGRP)
504         code = AddToSGEntry(tt, &uentry, tempu, gid);   /* mod group to be in sg */
505     else
506 #endif
507         /* now, modify the user's entry as well */
508         code = AddToEntry(tt, &uentry, tempu, gid);
509     if (code != PRSUCCESS)
510         ABORT_WITH(tt, code);
511     code = ubik_EndTrans(tt);
512     if (code)
513         return code;
514     return PRSUCCESS;
515 }
516
517 afs_int32
518 SPR_NameToID(struct rx_call *call, namelist *aname, idlist *aid)
519 {
520     afs_int32 code;
521
522     code = nameToID(call, aname, aid);
523     osi_auditU(call, PTS_NmToIdEvent, code, AUD_END);
524     ViceLog(125, ("PTS_NameToID: code %d\n", code));
525     return code;
526 }
527
528 static afs_int32
529 nameToID(struct rx_call *call, namelist *aname, idlist *aid)
530 {
531     afs_int32 code;
532     struct ubik_trans *tt;
533     afs_int32 i;
534     int size;
535     int count = 0;
536
537     /* Initialize return struct */
538     aid->idlist_len = 0;
539     aid->idlist_val = NULL;
540
541     size = aname->namelist_len;
542     if (size == 0)
543         return 0;
544     if (size < 0)
545         return PRTOOMANY;
546
547     aid->idlist_val = malloc(size * sizeof(afs_int32));
548     if (!aid->idlist_val)
549         return PRNOMEM;
550
551     code = ReadPreamble(&tt);
552     if (code)
553         return code;
554
555     for (i = 0; i < aname->namelist_len; i++) {
556         char vname[256];
557         char *nameinst, *cell;
558         afs_int32 islocal = 1;
559
560         strncpy(vname, aname->namelist_val[i], sizeof(vname));
561         vname[sizeof(vname)-1] ='\0';
562
563         nameinst = vname;
564         cell = strchr(vname, '@');
565         if (cell) {
566             *cell = '\0';
567             cell++;
568         }
569
570         if (cell && *cell) {
571             code = afsconf_IsLocalRealmMatch(prdir, &islocal, nameinst, NULL, cell);
572             ViceLog(0,
573                     ("PTS_NameToID: afsconf_IsLocalRealmMatch(); code=%d, nameinst=%s, cell=%s\n",
574                      code, nameinst, cell));
575         }
576         if (islocal)
577             code = NameToID(tt, nameinst, &aid->idlist_val[i]);
578         else
579             code = NameToID(tt, aname->namelist_val[i], &aid->idlist_val[i]);
580
581         if (code != PRSUCCESS)
582             aid->idlist_val[i] = ANONYMOUSID;
583         osi_audit(PTS_NmToIdEvent, code, AUD_STR,
584                    aname->namelist_val[i], AUD_ID, aid->idlist_val[i],
585                    AUD_END);
586         ViceLog(125, ("PTS_NameToID: code %d aname %s aid %d\n", code,
587                       aname->namelist_val[i], aid->idlist_val[i]));
588         if (count++ > 50) {
589 #ifndef AFS_PTHREAD_ENV
590             IOMGR_Poll();
591 #endif
592             count = 0;
593         }
594     }
595     aid->idlist_len = aname->namelist_len;
596
597     code = ubik_EndTrans(tt);
598     if (code)
599         return code;
600     return PRSUCCESS;
601 }
602
603 /*
604  * SPR_IDToName
605  * Given an array of ids, find the name for each of them.
606  * The array of ids and names is unlimited.
607  */
608 afs_int32
609 SPR_IDToName(struct rx_call *call, idlist *aid, namelist *aname)
610 {
611     afs_int32 code;
612
613     code = idToName(call, aid, aname);
614     osi_auditU(call, PTS_IdToNmEvent, code, AUD_END);
615     ViceLog(125, ("PTS_IDToName: code %d\n", code));
616     return code;
617 }
618
619 static afs_int32
620 idToName(struct rx_call *call, idlist *aid, namelist *aname)
621 {
622     afs_int32 code;
623     struct ubik_trans *tt;
624     afs_int32 i;
625     int size;
626     int count = 0;
627
628     /* leave this first for rpc stub */
629     size = aid->idlist_len;
630     if (size == 0)
631         return 0;
632     if (size < 0)
633         return PRTOOMANY;
634     aname->namelist_val = malloc(size * PR_MAXNAMELEN);
635     aname->namelist_len = 0;
636     if (aname->namelist_val == 0)
637         return PRNOMEM;
638     if (aid->idlist_len == 0)
639         return 0;
640     if (size == 0)
641         return PRTOOMANY;       /* rxgen will probably handle this */
642
643     code = ReadPreamble(&tt);
644     if (code)
645         return code;
646
647     for (i = 0; i < aid->idlist_len; i++) {
648         code = IDToName(tt, aid->idlist_val[i], aname->namelist_val[i]);
649         if (code != PRSUCCESS)
650             sprintf(aname->namelist_val[i], "%d", aid->idlist_val[i]);
651         osi_audit(PTS_IdToNmEvent, code, AUD_ID, aid->idlist_val[i],
652                   AUD_STR, aname->namelist_val[i], AUD_END);
653         ViceLog(125, ("PTS_idToName: code %d aid %d aname %s\n", code,
654                       aid->idlist_val[i], aname->namelist_val[i]));
655         if (count++ > 50) {
656 #ifndef AFS_PTHREAD_ENV
657             IOMGR_Poll();
658 #endif
659             count = 0;
660         }
661     }
662     aname->namelist_len = aid->idlist_len;
663
664     code = ubik_EndTrans(tt);
665     if (code)
666         return code;
667     return PRSUCCESS;
668 }
669
670 afs_int32
671 SPR_Delete(struct rx_call *call, afs_int32 aid)
672 {
673     afs_int32 code;
674     afs_int32 cid = ANONYMOUSID;
675
676     code = Delete(call, aid, &cid);
677     osi_auditU(call, PTS_DelEvent, code, AUD_ID, aid, AUD_END);
678     ViceLog(5, ("PTS_Delete: code %d cid %d aid %d\n", code, cid, aid));
679     return code;
680 }
681
682 static afs_int32
683 Delete(struct rx_call *call, afs_int32 aid, afs_int32 *cid)
684 {
685     afs_int32 code;
686     struct ubik_trans *tt;
687     struct prentry tentry;
688     afs_int32 loc, nptr;
689     int count;
690
691     if (aid == SYSADMINID || aid == ANYUSERID || aid == AUTHUSERID
692         || aid == ANONYMOUSID)
693         return PRPERM;
694
695     code = WritePreamble(&tt);
696     if (code)
697         return code;
698
699     code = WhoIsThis(call, tt, cid);
700     if (code)
701         ABORT_WITH(tt, PRPERM);
702
703     /* Read in entry to be deleted */
704     loc = FindByID(tt, aid);
705     if (loc == 0)
706         ABORT_WITH(tt, PRNOENT);
707     code = pr_ReadEntry(tt, 0, loc, &tentry);
708     if (code)
709         ABORT_WITH(tt, PRDBFAIL);
710
711     /* Do some access checking */
712     if (tentry.owner != *cid && !IsAMemberOf(tt, *cid, SYSADMINID)
713         && !IsAMemberOf(tt, *cid, tentry.owner) && !pr_noAuth)
714         ABORT_WITH(tt, PRPERM);
715
716     /* Delete each continuation block as a separate transaction so that no one
717      * transaction become to large to complete. */
718     nptr = tentry.next;
719     while (nptr != 0) {
720         struct contentry centry;
721         int i;
722
723         code = pr_ReadCoEntry(tt, 0, nptr, &centry);
724         if (code != 0)
725             ABORT_WITH(tt, PRDBFAIL);
726         for (i = 0; i < COSIZE; i++) {
727             if (centry.entries[i] == PRBADID)
728                 continue;
729             if (centry.entries[i] == 0)
730                 break;
731 #if defined(SUPERGROUPS)
732             if (aid < 0 && centry.entries[i] < 0)       /* Supergroup */
733                 code = RemoveFromSGEntry(tt, aid, centry.entries[i]);
734             else
735 #endif
736                 code = RemoveFromEntry(tt, aid, centry.entries[i]);
737             if (code)
738                 ABORT_WITH(tt, code);
739             tentry.count--;     /* maintain count */
740 #ifndef AFS_PTHREAD_ENV
741             if ((i & 3) == 0)
742                 IOMGR_Poll();
743 #endif
744         }
745         tentry.next = centry.next;      /* thread out this block */
746         code = FreeBlock(tt, nptr);     /* free continuation block */
747         if (code)
748             ABORT_WITH(tt, code);
749         code = pr_WriteEntry(tt, 0, loc, &tentry);      /* update main entry */
750         if (code)
751             ABORT_WITH(tt, code);
752
753         /* end this trans and start a new one */
754         code = ubik_EndTrans(tt);
755         if (code)
756             return code;
757 #ifndef AFS_PTHREAD_ENV
758         IOMGR_Poll();           /* just to keep the connection alive */
759 #endif
760         code = ubik_BeginTrans(dbase, UBIK_WRITETRANS, &tt);
761         if (code)
762             return code;
763         code = ubik_SetLock(tt, 1, 1, LOCKWRITE);
764         if (code)
765             ABORT_WITH(tt, code);
766
767         /* re-read entry to get consistent uptodate info */
768         loc = FindByID(tt, aid);
769         if (loc == 0)
770             ABORT_WITH(tt, PRNOENT);
771         code = pr_ReadEntry(tt, 0, loc, &tentry);
772         if (code)
773             ABORT_WITH(tt, PRDBFAIL);
774
775         nptr = tentry.next;
776     }
777
778 #if defined(SUPERGROUPS)
779     /* Delete each continuation block as a separate transaction
780      * so that no one transaction become too large to complete. */
781     {
782         struct prentryg *tentryg = (struct prentryg *)&tentry;
783         nptr = tentryg->nextsg;
784         while (nptr != 0) {
785             struct contentry centry;
786             int i;
787
788             code = pr_ReadCoEntry(tt, 0, nptr, &centry);
789             if (code != 0)
790                 ABORT_WITH(tt, PRDBFAIL);
791             for (i = 0; i < COSIZE; i++) {
792                 if (centry.entries[i] == PRBADID)
793                     continue;
794                 if (centry.entries[i] == 0)
795                     break;
796                 code = RemoveFromEntry(tt, aid, centry.entries[i]);
797                 if (code)
798                     ABORT_WITH(tt, code);
799                 tentryg->countsg--;     /* maintain count */
800 #ifndef AFS_PTHREAD_ENV
801                 if ((i & 3) == 0)
802                     IOMGR_Poll();
803 #endif
804             }
805             tentryg->nextsg = centry.next;      /* thread out this block */
806             code = FreeBlock(tt, nptr); /* free continuation block */
807             if (code)
808                 ABORT_WITH(tt, code);
809             code = pr_WriteEntry(tt, 0, loc, &tentry);  /* update main entry */
810             if (code)
811                 ABORT_WITH(tt, code);
812
813             /* end this trans and start a new one */
814             code = ubik_EndTrans(tt);
815             if (code)
816                 return code;
817 #ifndef AFS_PTHREAD_ENV
818             IOMGR_Poll();       /* just to keep the connection alive */
819 #endif
820
821             code = ubik_BeginTrans(dbase, UBIK_WRITETRANS, &tt);
822             if (code)
823                 return code;
824             code = ubik_SetLock(tt, 1, 1, LOCKWRITE);
825             if (code)
826                 ABORT_WITH(tt, code);
827
828             /* re-read entry to get consistent uptodate info */
829             loc = FindByID(tt, aid);
830             if (loc == 0)
831                 ABORT_WITH(tt, PRNOENT);
832             code = pr_ReadEntry(tt, 0, loc, &tentry);
833             if (code)
834                 ABORT_WITH(tt, PRDBFAIL);
835
836             nptr = tentryg->nextsg;
837         }
838     }
839
840 #endif /* SUPERGROUPS */
841
842     /* Then move the owned chain, except possibly ourself to the orphan list.
843      * Because this list can be very long and so exceed the size of a ubik
844      * transaction, we start a new transaction every 50 entries. */
845     count = 0;
846     nptr = tentry.owned;
847     while (nptr != 0) {
848         struct prentry nentry;
849
850         code = pr_ReadEntry(tt, 0, nptr, &nentry);
851         if (code)
852             ABORT_WITH(tt, PRDBFAIL);
853         nptr = tentry.owned = nentry.nextOwned; /* thread out */
854
855         if (nentry.id != tentry.id) {   /* don't add us to orphan chain! */
856             code = AddToOrphan(tt, nentry.id);
857             if (code)
858                 ABORT_WITH(tt, code);
859             count++;
860 #ifndef AFS_PTHREAD_ENV
861             if ((count & 3) == 0)
862                 IOMGR_Poll();
863 #endif
864         }
865         if (count < 50)
866             continue;
867         code = pr_WriteEntry(tt, 0, loc, &tentry);      /* update main entry */
868         if (code)
869             ABORT_WITH(tt, code);
870
871         /* end this trans and start a new one */
872         code = ubik_EndTrans(tt);
873         if (code)
874             return code;
875 #ifndef AFS_PTHREAD_ENV
876         IOMGR_Poll();           /* just to keep the connection alive */
877 #endif
878         code = ubik_BeginTrans(dbase, UBIK_WRITETRANS, &tt);
879         if (code)
880             return code;
881         code = ubik_SetLock(tt, 1, 1, LOCKWRITE);
882         if (code)
883             ABORT_WITH(tt, code);
884
885         /* re-read entry to get consistent uptodate info */
886         loc = FindByID(tt, aid);
887         if (loc == 0)
888             ABORT_WITH(tt, PRNOENT);
889         code = pr_ReadEntry(tt, 0, loc, &tentry);
890         if (code)
891             ABORT_WITH(tt, PRDBFAIL);
892
893         nptr = tentry.owned;
894     }
895
896     /* now do what's left of the deletion stuff */
897     code = DeleteEntry(tt, &tentry, loc);
898     if (code != PRSUCCESS)
899         ABORT_WITH(tt, code);
900
901     code = ubik_EndTrans(tt);
902     if (code)
903         return code;
904     return PRSUCCESS;
905 }
906
907 afs_int32
908 SPR_UpdateEntry(struct rx_call *call, afs_int32 aid, char *name,
909                 struct PrUpdateEntry *uentry)
910 {
911     afs_int32 code;
912     afs_int32 cid = ANONYMOUSID;
913
914     code = UpdateEntry(call, aid, name, uentry, &cid);
915     osi_auditU(call, PTS_UpdEntEvent, code, AUD_ID, aid, AUD_STR, name, AUD_END);
916     ViceLog(5, ("PTS_UpdateEntry: code %d cid %d aid %d name %s\n", code, cid, aid, name));
917     return code;
918 }
919
920 afs_int32
921 UpdateEntry(struct rx_call *call, afs_int32 aid, char *name,
922             struct PrUpdateEntry *uentry, afs_int32 *cid)
923 {
924     afs_int32 code;
925     struct ubik_trans *tt;
926     struct prentry tentry;
927     afs_int32 loc;
928     int id = 0;
929
930     if (aid) {
931         id = aid;
932         if (aid == SYSADMINID || aid == ANYUSERID || aid == AUTHUSERID
933             || aid == ANONYMOUSID)
934             return PRPERM;
935     }
936
937     code = WritePreamble(&tt);
938     if (code)
939         return code;
940
941     code = WhoIsThis(call, tt, cid);
942     if (code)
943         ABORT_WITH(tt, PRPERM);
944     code = IsAMemberOf(tt, *cid, SYSADMINID);
945     if (!code && !pr_noAuth)
946         ABORT_WITH(tt, PRPERM);
947
948     /* Read in entry to be deleted */
949     if (id) {
950         loc = FindByID(tt, aid);
951     } else {
952         loc = FindByName(tt, name, &tentry);
953     }
954     if (loc == 0)
955         ABORT_WITH(tt, PRNOENT);
956     code = pr_ReadEntry(tt, 0, loc, &tentry);
957     if (code)
958         ABORT_WITH(tt, PRDBFAIL);
959
960     if (uentry->Mask & PRUPDATE_NAMEHASH) {
961         int tloc;
962         code = RemoveFromNameHash(tt, tentry.name, &tloc);
963         if (code != PRSUCCESS)
964             ABORT_WITH(tt, PRDBFAIL);
965         code = AddToNameHash(tt, tentry.name, loc);
966         if (code)
967             ABORT_WITH(tt, code);
968     }
969
970     if (uentry->Mask & PRUPDATE_IDHASH) {
971         int tloc;
972         if (!id)
973             id = tentry.id;
974         code = RemoveFromIDHash(tt, id, &tloc);
975         if (code != PRSUCCESS)
976             ABORT_WITH(tt, PRDBFAIL);
977         code = AddToIDHash(tt, id, loc);
978         if (code)
979             ABORT_WITH(tt, code);
980     }
981
982     code = ubik_EndTrans(tt);
983     if (code)
984         return code;
985     return PRSUCCESS;
986 }
987
988 afs_int32
989 SPR_RemoveFromGroup(struct rx_call *call, afs_int32 aid, afs_int32 gid)
990 {
991     afs_int32 code;
992     afs_int32 cid = ANONYMOUSID;
993
994     code = removeFromGroup(call, aid, gid, &cid);
995     osi_auditU(call, PTS_RmFmGrpEvent, code, AUD_ID, gid, AUD_ID, aid,
996                AUD_END);
997     ViceLog(5, ("PTS_RemoveFromGroup: code %d cid %d gid %d aid %d\n", code, cid, gid, aid));
998     return code;
999 }
1000
1001 static afs_int32
1002 removeFromGroup(struct rx_call *call, afs_int32 aid, afs_int32 gid,
1003                 afs_int32 *cid)
1004 {
1005     afs_int32 code;
1006     struct ubik_trans *tt;
1007     afs_int32 tempu;
1008     afs_int32 tempg;
1009     struct prentry uentry;
1010     struct prentry gentry;
1011
1012     code = WritePreamble(&tt);
1013     if (code)
1014         return code;
1015
1016     code = WhoIsThis(call, tt, cid);
1017     if (code)
1018         ABORT_WITH(tt, PRPERM);
1019     tempu = FindByID(tt, aid);
1020     if (!tempu)
1021         ABORT_WITH(tt, PRNOENT);
1022     tempg = FindByID(tt, gid);
1023     if (!tempg)
1024         ABORT_WITH(tt, PRNOENT);
1025     memset(&uentry, 0, sizeof(uentry));
1026     memset(&gentry, 0, sizeof(gentry));
1027     code = pr_ReadEntry(tt, 0, tempu, &uentry);
1028     if (code != 0)
1029         ABORT_WITH(tt, code);
1030     code = pr_ReadEntry(tt, 0, tempg, &gentry);
1031     if (code != 0)
1032         ABORT_WITH(tt, code);
1033     if (!(gentry.flags & PRGRP))
1034         ABORT_WITH(tt, PRNOTGROUP);
1035 #if !defined(SUPERGROUPS)
1036     if (uentry.flags & PRGRP)
1037         ABORT_WITH(tt, PRNOTUSER);
1038 #endif
1039     if (!AccessOK(tt, *cid, &gentry, PRP_REMOVE_MEM, 0))
1040         ABORT_WITH(tt, PRPERM);
1041     code = RemoveFromEntry(tt, aid, gid);
1042     if (code != PRSUCCESS)
1043         ABORT_WITH(tt, code);
1044 #if defined(SUPERGROUPS)
1045     if (!(uentry.flags & PRGRP))
1046 #endif
1047         code = RemoveFromEntry(tt, gid, aid);
1048 #if defined(SUPERGROUPS)
1049     else
1050         code = RemoveFromSGEntry(tt, gid, aid);
1051 #endif
1052     if (code != PRSUCCESS)
1053         ABORT_WITH(tt, code);
1054
1055     code = ubik_EndTrans(tt);
1056     if (code)
1057         return code;
1058     return PRSUCCESS;
1059 }
1060
1061
1062 afs_int32
1063 SPR_GetCPS(struct rx_call *call, afs_int32 aid, prlist *alist, afs_int32 *over)
1064 {
1065     afs_int32 code;
1066     afs_int32 cid = ANONYMOUSID;
1067
1068     code = getCPS(call, aid, alist, over, &cid);
1069     osi_auditU(call, PTS_GetCPSEvent, code, AUD_ID, aid, AUD_END);
1070     ViceLog(125, ("PTS_GetCPS: code %d cid %d aid %d\n", code, cid, aid));
1071     return code;
1072 }
1073
1074 static afs_int32
1075 getCPS(struct rx_call *call, afs_int32 aid, prlist *alist, afs_int32 *over,
1076        afs_int32 *cid)
1077 {
1078     afs_int32 code;
1079     struct ubik_trans *tt;
1080     afs_int32 temp;
1081     struct prentry tentry;
1082
1083     *over = 0;
1084     alist->prlist_len = 0;
1085     alist->prlist_val = NULL;
1086
1087     code = ReadPreamble(&tt);
1088     if (code)
1089         return code;
1090
1091     temp = FindByID(tt, aid);
1092     if (!temp)
1093         ABORT_WITH(tt, PRNOENT);
1094     code = pr_ReadEntry(tt, 0, temp, &tentry);
1095     if (code)
1096         ABORT_WITH(tt, code);
1097
1098     /* afs does authenticate now */
1099     code = WhoIsThis(call, tt, cid);
1100     if (code || !AccessOK(tt, *cid, &tentry, PRP_MEMBER_MEM, PRP_MEMBER_ANY))
1101         ABORT_WITH(tt, PRPERM);
1102
1103     code = GetList(tt, &tentry, alist, 1);
1104     if (code != PRSUCCESS)
1105         ABORT_WITH(tt, code);
1106
1107     code = ubik_EndTrans(tt);
1108     return code;
1109 }
1110
1111
1112 int
1113 inCPS(prlist CPS, afs_int32 id)
1114 {
1115     int i;
1116
1117     for (i = (CPS.prlist_len - 1); i >= 0; i--) {
1118         if (CPS.prlist_val[i] == id)
1119             return (1);
1120     }
1121     return (0);
1122 }
1123
1124
1125 afs_int32
1126 SPR_GetCPS2(struct rx_call *call, afs_int32 aid, afs_int32 ahost,
1127             prlist *alist, afs_int32 *over)
1128 {
1129     afs_int32 code;
1130     afs_int32 cid = ANONYMOUSID;
1131
1132     code = getCPS2(call, aid, ahost, alist, over, &cid);
1133     osi_auditU(call, PTS_GetCPS2Event, code, AUD_ID, aid, AUD_HOST, htonl(ahost),
1134                AUD_END);
1135     ViceLog(125, ("PTS_GetCPS2: code %d cid %d aid %d ahost %d\n", code, cid, aid, ahost));
1136     return code;
1137 }
1138
1139 static afs_int32
1140 getCPS2(struct rx_call *call, afs_int32 aid, afs_uint32 ahost, prlist *alist,
1141         afs_int32 *over, afs_int32 *cid)
1142 {
1143     afs_int32 code;
1144     struct ubik_trans *tt;
1145     afs_int32 temp;
1146     struct prentry tentry;
1147     struct prentry host_tentry;
1148     afs_int32 hostid;
1149     int host_list = 0;
1150     struct in_addr iaddr;
1151
1152     *over = 0;
1153     iaddr.s_addr = ntohl(ahost);
1154     alist->prlist_len = 0;
1155     alist->prlist_val = NULL;
1156
1157     code = ReadPreamble(&tt);
1158     if (code)
1159         return code;
1160
1161     if (aid != PRBADID) {
1162         temp = FindByID(tt, aid);
1163         if (!temp)
1164             ABORT_WITH(tt, PRNOENT);
1165         code = pr_ReadEntry(tt, 0, temp, &tentry);
1166         if (code)
1167             ABORT_WITH(tt, code);
1168
1169         /* afs does authenticate now */
1170         code = WhoIsThis(call, tt, cid);
1171         if (code
1172             || !AccessOK(tt, *cid, &tentry, PRP_MEMBER_MEM, PRP_MEMBER_ANY))
1173             ABORT_WITH(tt, PRPERM);
1174     }
1175     code = NameToID(tt, inet_ntoa(iaddr), &hostid);
1176     if (code == PRSUCCESS && hostid != 0) {
1177         temp = FindByID(tt, hostid);
1178         if (temp) {
1179             code = pr_ReadEntry(tt, 0, temp, &host_tentry);
1180             if (code == PRSUCCESS)
1181                 host_list = 1;
1182             else
1183                 fprintf(stderr, "pr_ReadEntry returned %d\n", code);
1184         } else
1185             fprintf(stderr, "FindByID Failed -- Not found\n");
1186     }
1187     if (host_list)
1188         code = GetList2(tt, &tentry, &host_tentry, alist, 1);
1189     else
1190         code = GetList(tt, &tentry, alist, 1);
1191     if (!code)
1192         code = addWildCards(tt, alist, ntohl(ahost));
1193     if (code != PRSUCCESS)
1194         ABORT_WITH(tt, code);
1195
1196     code = ubik_EndTrans(tt);
1197     return code;
1198 }
1199
1200
1201 afs_int32
1202 SPR_GetHostCPS(struct rx_call *call, afs_int32 ahost, prlist *alist,
1203                afs_int32 *over)
1204 {
1205     afs_int32 code;
1206
1207     code = getHostCPS(call, ahost, alist, over);
1208     osi_auditU(call, PTS_GetHCPSEvent, code, AUD_HOST, htonl(ahost), AUD_END);
1209     ViceLog(125, ("PTS_GetHostCPS: code %d ahost %d\n", code, ahost));
1210     return code;
1211 }
1212
1213 afs_int32
1214 getHostCPS(struct rx_call *call, afs_uint32 ahost, prlist *alist,
1215            afs_int32 *over)
1216 {
1217     afs_int32 code, temp;
1218     struct ubik_trans *tt;
1219     struct prentry host_tentry;
1220     afs_int32 hostid;
1221     struct in_addr iaddr;
1222
1223     *over = 0;
1224     iaddr.s_addr = ntohl(ahost);
1225     alist->prlist_len = 0;
1226     alist->prlist_val = NULL;
1227
1228     code = ReadPreamble(&tt);
1229     if (code)
1230         return code;
1231
1232     code = NameToID(tt, inet_ntoa(iaddr), &hostid);
1233     if (code == PRSUCCESS && hostid != 0) {
1234         temp = FindByID(tt, hostid);
1235         if (temp) {
1236             code = pr_ReadEntry(tt, 0, temp, &host_tentry);
1237             if (code == PRSUCCESS) {
1238                 code = GetList(tt, &host_tentry, alist, 0);
1239                 if (code)
1240                     goto bad;
1241             } else
1242                 fprintf(stderr, "pr_ReadEntry returned %d\n", code);
1243         } else
1244             fprintf(stderr, "FindByID Failed -- Not found\n");
1245     }
1246     code = addWildCards(tt, alist, ntohl(ahost));
1247   bad:
1248     if (code != PRSUCCESS)
1249         ABORT_WITH(tt, code);
1250
1251     code = ubik_EndTrans(tt);
1252     return code;
1253 }
1254
1255
1256 afs_int32
1257 SPR_ListMax(struct rx_call *call, afs_int32 *uid, afs_int32 *gid)
1258 {
1259     afs_int32 code;
1260
1261     code = listMax(call, uid, gid);
1262     osi_auditU(call, PTS_LstMaxEvent, code, AUD_END);
1263     ViceLog(125, ("PTS_ListMax: code %d\n", code));
1264     return code;
1265 }
1266
1267 afs_int32
1268 listMax(struct rx_call *call, afs_int32 *uid, afs_int32 *gid)
1269 {
1270     afs_int32 code;
1271     struct ubik_trans *tt;
1272
1273     code = ReadPreamble(&tt);
1274     if (code)
1275         return code;
1276
1277     code = GetMax(tt, uid, gid);
1278     if (code != PRSUCCESS)
1279         ABORT_WITH(tt, code);
1280
1281     code = ubik_EndTrans(tt);
1282     if (code)
1283         return code;
1284     return PRSUCCESS;
1285 }
1286
1287 afs_int32
1288 SPR_SetMax(struct rx_call *call, afs_int32 aid, afs_int32 gflag)
1289 {
1290     afs_int32 code;
1291     afs_int32 cid = ANONYMOUSID;
1292
1293     code = setMax(call, aid, gflag, &cid);
1294     osi_auditU(call, PTS_SetMaxEvent, code, AUD_ID, aid, AUD_LONG, gflag,
1295                AUD_END);
1296     ViceLog(125, ("PTS_SetMax: code %d cid %d aid %d gflag %d\n", code, cid, aid, gflag));
1297     return code;
1298 }
1299
1300 static afs_int32
1301 setMax(struct rx_call *call, afs_int32 aid, afs_int32 gflag, afs_int32 *cid)
1302 {
1303     afs_int32 code;
1304     struct ubik_trans *tt;
1305
1306     code = WritePreamble(&tt);
1307     if (code)
1308         return code;
1309
1310     code = WhoIsThis(call, tt, cid);
1311     if (code)
1312         ABORT_WITH(tt, PRPERM);
1313     if (!AccessOK(tt, *cid, 0, 0, 0))
1314         ABORT_WITH(tt, PRPERM);
1315     if (((gflag & PRGRP) && (aid > 0)) || (!(gflag & PRGRP) && (aid < 0)))
1316         ABORT_WITH(tt, PRBADARG);
1317
1318     code = SetMax(tt, aid, gflag);
1319     if (code != PRSUCCESS)
1320         ABORT_WITH(tt, code);
1321
1322     code = ubik_EndTrans(tt);
1323     if (code)
1324         return code;
1325     return PRSUCCESS;
1326 }
1327
1328 afs_int32
1329 SPR_ListEntry(struct rx_call *call, afs_int32 aid, struct prcheckentry *aentry)
1330 {
1331     afs_int32 code;
1332     afs_int32 cid = ANONYMOUSID;
1333
1334     code = listEntry(call, aid, aentry, &cid);
1335     osi_auditU(call, PTS_LstEntEvent, code, AUD_ID, aid, AUD_END);
1336     ViceLog(125, ("PTS_ListEntry: code %d cid %d aid %d\n", code, cid, aid));
1337     return code;
1338 }
1339
1340 static afs_int32
1341 listEntry(struct rx_call *call, afs_int32 aid, struct prcheckentry *aentry,
1342           afs_int32 *cid)
1343 {
1344     afs_int32 code;
1345     struct ubik_trans *tt;
1346     afs_int32 temp;
1347     struct prentry tentry;
1348
1349     code = ReadPreamble(&tt);
1350     if (code)
1351         return code;
1352
1353     code = WhoIsThis(call, tt, cid);
1354     if (code)
1355         ABORT_WITH(tt, PRPERM);
1356     temp = FindByID(tt, aid);
1357     if (!temp)
1358         ABORT_WITH(tt, PRNOENT);
1359     code = pr_ReadEntry(tt, 0, temp, &tentry);
1360     if (code != 0)
1361         ABORT_WITH(tt, code);
1362     if (!AccessOK(tt, *cid, &tentry, PRP_STATUS_MEM, PRP_STATUS_ANY))
1363         ABORT_WITH(tt, PRPERM);
1364
1365     aentry->flags = tentry.flags >> PRIVATE_SHIFT;
1366     if (aentry->flags == 0) {
1367         if (tentry.flags & PRGRP)
1368             aentry->flags = prp_group_default >> PRIVATE_SHIFT;
1369         else
1370             aentry->flags = prp_user_default >> PRIVATE_SHIFT;
1371     }
1372     aentry->owner = tentry.owner;
1373     aentry->id = tentry.id;
1374     strncpy(aentry->name, tentry.name, PR_MAXNAMELEN);
1375     aentry->creator = tentry.creator;
1376     aentry->ngroups = tentry.ngroups;
1377     aentry->nusers = tentry.nusers;
1378     aentry->count = tentry.count;
1379     memset(aentry->reserved, 0, sizeof(aentry->reserved));
1380     code = ubik_EndTrans(tt);
1381     if (code)
1382         return code;
1383     return PRSUCCESS;
1384 }
1385
1386 afs_int32
1387 SPR_ListEntries(struct rx_call *call, afs_int32 flag, afs_int32 startindex,
1388                 prentries *bulkentries, afs_int32 *nextstartindex)
1389 {
1390     afs_int32 code;
1391     afs_int32 cid = ANONYMOUSID;
1392
1393     code = listEntries(call, flag, startindex, bulkentries, nextstartindex, &cid);
1394     osi_auditU(call, PTS_LstEntsEvent, code, AUD_LONG, flag, AUD_END);
1395     ViceLog(125, ("PTS_ListEntries: code %d cid %d flag %d\n", code, cid, flag));
1396     return code;
1397 }
1398
1399 static afs_int32
1400 listEntries(struct rx_call *call, afs_int32 flag, afs_int32 startindex,
1401             prentries *bulkentries, afs_int32 *nextstartindex, afs_int32 *cid)
1402 {
1403     afs_int32 code;
1404     struct ubik_trans *tt;
1405     afs_int32 i, eof, pos, maxentries, f;
1406     struct prentry tentry;
1407     afs_int32 pollcount = 0;
1408
1409     *nextstartindex = -1;
1410     bulkentries->prentries_val = 0;
1411     bulkentries->prentries_len = 0;
1412
1413     code = ReadPreamble(&tt);
1414     if (code)
1415         return code;
1416
1417     /* Make sure we are an authenticated caller and that we are on the
1418      * SYSADMIN list.
1419      */
1420     code = WhoIsThis(call, tt, cid);
1421     if (code)
1422         ABORT_WITH(tt, PRPERM);
1423     code = IsAMemberOf(tt, *cid, SYSADMINID);
1424     if (!code && !pr_noAuth)
1425         ABORT_WITH(tt, PRPERM);
1426
1427     eof = ntohl(cheader.eofPtr) - sizeof(cheader);
1428     maxentries = eof / sizeof(struct prentry);
1429     for (i = startindex; i < maxentries; i++) {
1430         pos = i * sizeof(struct prentry) + sizeof(cheader);
1431         code = pr_ReadEntry(tt, 0, pos, &tentry);
1432         if (code)
1433             goto done;
1434
1435         if (++pollcount > 50) {
1436 #ifndef AFS_PTHREAD_ENV
1437             IOMGR_Poll();
1438 #endif
1439             pollcount = 0;
1440         }
1441
1442         f = (tentry.flags & PRTYPE);
1443         if (((flag & PRUSERS) && (f == 0)) ||   /* User  entry */
1444             ((flag & PRGROUPS) && (f & PRGRP))) {       /* Group entry */
1445             code = put_prentries(&tentry, bulkentries);
1446             if (code == -1)
1447                 break;          /* Filled return array */
1448             if (code)
1449                 goto done;
1450         }
1451     }
1452     code = 0;
1453     if (i < maxentries)
1454         *nextstartindex = i;
1455
1456   done:
1457     if (code) {
1458         if (bulkentries->prentries_val)
1459             free(bulkentries->prentries_val);
1460         bulkentries->prentries_val = 0;
1461         bulkentries->prentries_len = 0;
1462         ABORT_WITH(tt, code);
1463     } else {
1464         code = ubik_EndTrans(tt);
1465     }
1466     if (code)
1467         return code;
1468     return PRSUCCESS;
1469 }
1470
1471 #define PR_MAXENTRIES 500
1472 static afs_int32
1473 put_prentries(struct prentry *tentry, prentries *bulkentries)
1474 {
1475     struct prlistentries *entry;
1476
1477     if (bulkentries->prentries_val == 0) {
1478         bulkentries->prentries_len = 0;
1479         bulkentries->prentries_val = malloc(PR_MAXENTRIES *
1480                                             sizeof(struct prentry));
1481         if (!bulkentries->prentries_val) {
1482             return (PRNOMEM);
1483         }
1484     }
1485
1486     if (bulkentries->prentries_len >= PR_MAXENTRIES) {
1487         return (-1);
1488     }
1489
1490     entry = (struct prlistentries *)bulkentries->prentries_val;
1491     entry += bulkentries->prentries_len;
1492
1493     entry->flags = tentry->flags >> PRIVATE_SHIFT;
1494     if (entry->flags == 0) {
1495         entry->flags =
1496             ((tentry->
1497               flags & PRGRP) ? prp_group_default : prp_user_default) >>
1498             PRIVATE_SHIFT;
1499     }
1500     entry->owner = tentry->owner;
1501     entry->id = tentry->id;
1502     entry->creator = tentry->creator;
1503     entry->ngroups = tentry->ngroups;
1504     entry->nusers = tentry->nusers;
1505     entry->count = tentry->count;
1506     strncpy(entry->name, tentry->name, PR_MAXNAMELEN);
1507     memset(entry->reserved, 0, sizeof(entry->reserved));
1508     bulkentries->prentries_len++;
1509     return 0;
1510 }
1511
1512 afs_int32
1513 SPR_ChangeEntry(struct rx_call *call, afs_int32 aid, char *name, afs_int32 oid,
1514                 afs_int32 newid)
1515 {
1516     afs_int32 code;
1517     afs_int32 cid = ANONYMOUSID;
1518
1519     code = changeEntry(call, aid, name, oid, newid, &cid);
1520     osi_auditU(call, PTS_ChgEntEvent, code, AUD_ID, aid, AUD_STR, name,
1521                AUD_LONG, oid, AUD_LONG, newid, AUD_END);
1522     ViceLog(5, ("PTS_ChangeEntry: code %d cid %d aid %d name %s oid %d newid %d\n", code, cid, aid, name, oid, newid));
1523     return code;
1524 }
1525
1526 static afs_int32
1527 changeEntry(struct rx_call *call, afs_int32 aid, char *name, afs_int32 oid,
1528             afs_int32 newid, afs_int32 *cid)
1529 {
1530     afs_int32 code;
1531     struct ubik_trans *tt;
1532     afs_int32 pos;
1533
1534     if (!name)
1535         return PRPERM;
1536     stolower(name);
1537
1538     if (aid == ANYUSERID || aid == AUTHUSERID || aid == ANONYMOUSID
1539         || aid == SYSADMINID)
1540         return PRPERM;
1541
1542     code = WritePreamble(&tt);
1543     if (code)
1544         return code;
1545
1546     code = WhoIsThis(call, tt, cid);
1547     if (code)
1548         ABORT_WITH(tt, PRPERM);
1549     pos = FindByID(tt, aid);
1550     if (!pos)
1551         ABORT_WITH(tt, PRNOENT);
1552     /* protection check in changeentry */
1553     code = ChangeEntry(tt, aid, *cid, name, oid, newid);
1554     if (code != PRSUCCESS)
1555         ABORT_WITH(tt, code);
1556
1557     code = ubik_EndTrans(tt);
1558     return code;
1559 }
1560
1561 afs_int32
1562 SPR_SetFieldsEntry(struct rx_call *call,
1563                    afs_int32 id,
1564                    afs_int32 mask, /* specify which fields to update */
1565                    afs_int32 flags, afs_int32 ngroups, afs_int32 nusers,
1566                    afs_int32 spare1, afs_int32 spare2)
1567 {
1568     afs_int32 code;
1569     afs_int32 cid = ANONYMOUSID;
1570
1571     code =
1572         setFieldsEntry(call, id, mask, flags, ngroups, nusers, spare1,
1573                        spare2, &cid);
1574     osi_auditU(call, PTS_SetFldEntEvent, code, AUD_ID, id, AUD_END);
1575     ViceLog(5, ("PTS_SetFieldsEntry: code %d cid %d id %d\n", code, cid, id));
1576     return code;
1577 }
1578
1579 static afs_int32
1580 setFieldsEntry(struct rx_call *call,
1581                afs_int32 id,
1582                afs_int32 mask, /* specify which fields to update */
1583                afs_int32 flags, afs_int32 ngroups, afs_int32 nusers,
1584                afs_int32 spare1, afs_int32 spare2, afs_int32 *cid)
1585 {
1586     afs_int32 code;
1587     struct ubik_trans *tt;
1588     afs_int32 pos;
1589     struct prentry tentry;
1590     afs_int32 tflags;
1591
1592     if (mask == 0)
1593         return 0;               /* no-op */
1594
1595     if (id == ANYUSERID || id == AUTHUSERID || id == ANONYMOUSID)
1596         return PRPERM;
1597
1598     code = WritePreamble(&tt);
1599     if (code)
1600         return code;
1601
1602     code = WhoIsThis(call, tt, cid);
1603     if (code)
1604         ABORT_WITH(tt, PRPERM);
1605     pos = FindByID(tt, id);
1606     if (!pos)
1607         ABORT_WITH(tt, PRNOENT);
1608     code = pr_ReadEntry(tt, 0, pos, &tentry);
1609     if (code)
1610         ABORT_WITH(tt, code);
1611     tflags = tentry.flags;
1612
1613     if (mask & (PR_SF_NGROUPS | PR_SF_NUSERS)) {
1614         if (!AccessOK(tt, *cid, 0, 0, 0))
1615             ABORT_WITH(tt, PRPERM);
1616         if ((tflags & PRQUOTA) == 0) {  /* default if only setting one */
1617             tentry.ngroups = tentry.nusers = 20;
1618         }
1619     } else {
1620         if (!AccessOK(tt, *cid, &tentry, 0, 0))
1621             ABORT_WITH(tt, PRPERM);
1622     }
1623
1624     if (mask & 0xffff) {        /* if setting flag bits */
1625         afs_int32 flagsMask = mask & 0xffff;
1626         tflags &= ~(flagsMask << PRIVATE_SHIFT);
1627         tflags |= (flags & flagsMask) << PRIVATE_SHIFT;
1628         tflags |= PRACCESS;
1629     }
1630
1631     if (mask & PR_SF_NGROUPS) { /* setting group limit */
1632         if (ngroups < 0)
1633             ABORT_WITH(tt, PRBADARG);
1634         tentry.ngroups = ngroups;
1635         tflags |= PRQUOTA;
1636     }
1637
1638     if (mask & PR_SF_NUSERS) {  /* setting foreign user limit */
1639         if (nusers < 0)
1640             ABORT_WITH(tt, PRBADARG);
1641         tentry.nusers = nusers;
1642         tflags |= PRQUOTA;
1643     }
1644     tentry.flags = tflags;
1645
1646     code = pr_WriteEntry(tt, 0, pos, &tentry);
1647     if (code)
1648         ABORT_WITH(tt, code);
1649
1650     code = ubik_EndTrans(tt);
1651     return code;
1652 }
1653
1654 afs_int32
1655 SPR_ListElements(struct rx_call *call, afs_int32 aid, prlist *alist,
1656                  afs_int32 *over)
1657 {
1658     afs_int32 code;
1659     afs_int32 cid = ANONYMOUSID;
1660
1661     code = listElements(call, aid, alist, over, &cid);
1662     osi_auditU(call, PTS_LstEleEvent, code, AUD_ID, aid, AUD_END);
1663     ViceLog(125, ("PTS_ListElements: code %d cid %d aid %d\n", code, cid, aid));
1664     return code;
1665 }
1666
1667 static afs_int32
1668 listElements(struct rx_call *call, afs_int32 aid, prlist *alist,
1669              afs_int32 *over, afs_int32 *cid)
1670 {
1671     afs_int32 code;
1672     struct ubik_trans *tt;
1673     afs_int32 temp;
1674     struct prentry tentry;
1675
1676     *over = 0;
1677     alist->prlist_len = 0;
1678     alist->prlist_val = NULL;
1679
1680     code = ReadPreamble(&tt);
1681     if (code)
1682         return code;
1683
1684     code = WhoIsThis(call, tt, cid);
1685     if (code)
1686         ABORT_WITH(tt, PRPERM);
1687
1688     temp = FindByID(tt, aid);
1689     if (!temp)
1690         ABORT_WITH(tt, PRNOENT);
1691     code = pr_ReadEntry(tt, 0, temp, &tentry);
1692     if (code)
1693         ABORT_WITH(tt, code);
1694     if (!AccessOK(tt, *cid, &tentry, PRP_MEMBER_MEM, PRP_MEMBER_ANY))
1695         ABORT_WITH(tt, PRPERM);
1696
1697     code = GetList(tt, &tentry, alist, 0);
1698     if (code != PRSUCCESS)
1699         ABORT_WITH(tt, code);
1700
1701     code = ubik_EndTrans(tt);
1702     return code;
1703 }
1704
1705
1706 afs_int32
1707 SPR_ListSuperGroups(struct rx_call *call, afs_int32 aid, prlist *alist,
1708                     afs_int32 *over)
1709 {
1710 #if defined(SUPERGROUPS)
1711     afs_int32 code;
1712     afs_int32 cid = ANONYMOUSID;
1713
1714     code = listSuperGroups(call, aid, alist, over, &cid);
1715     osi_auditU(call, PTS_LstSGrps, code, AUD_ID, aid, AUD_END);
1716     ViceLog(125, ("PTS_ListSuperGroups: code %d cid %d aid %d\n", code, cid, aid));
1717     return code;
1718 #else
1719     return RXGEN_OPCODE;
1720 #endif
1721 }
1722
1723 #if defined(SUPERGROUPS)
1724 static afs_int32
1725 listSuperGroups(struct rx_call *call, afs_int32 aid, prlist *alist,
1726                 afs_int32 *over, afs_int32 *cid)
1727 {
1728     afs_int32 code;
1729     struct ubik_trans *tt;
1730     afs_int32 temp;
1731     struct prentry tentry;
1732
1733     alist->prlist_len = 0;
1734     alist->prlist_val = (afs_int32 *) 0;
1735
1736     code = ReadPreamble(&tt);
1737     if (code)
1738         return code;
1739
1740     code = ubik_SetLock(tt, 1, 1, LOCKREAD);
1741     if (code)
1742         ABORT_WITH(tt, code);
1743     code = WhoIsThis(call, tt, cid);
1744     if (code)
1745         ABORT_WITH(tt, PRPERM);
1746
1747     temp = FindByID(tt, aid);
1748     if (!temp)
1749         ABORT_WITH(tt, PRNOENT);
1750     code = pr_ReadEntry(tt, 0, temp, &tentry);
1751     if (code)
1752         ABORT_WITH(tt, code);
1753     if (!AccessOK(tt, *cid, &tentry, PRP_MEMBER_MEM, PRP_MEMBER_ANY))
1754         ABORT_WITH(tt, PRPERM);
1755
1756     code = GetSGList(tt, &tentry, alist);
1757     *over = 0;
1758     if (code == PRTOOMANY)
1759         *over = 1;
1760     else if (code != PRSUCCESS)
1761         ABORT_WITH(tt, code);
1762
1763     code = ubik_EndTrans(tt);
1764
1765     return code;
1766 }
1767
1768 #endif /* SUPERGROUPS */
1769
1770 /*
1771  * SPR_ListOwned
1772  * List the entries owned by this id.  If the id is zero,
1773  * return the orphans list. This will return up to PR_MAXGROUPS
1774  * at a time with the lastP available to get the rest. The
1775  * maximum value is enforced in GetOwnedChain().
1776  */
1777 afs_int32
1778 SPR_ListOwned(struct rx_call *call, afs_int32 aid, prlist *alist,
1779               afs_int32 *lastP)
1780 {
1781     afs_int32 code;
1782     afs_int32 cid = ANONYMOUSID;
1783
1784     code = listOwned(call, aid, alist, lastP, &cid);
1785     osi_auditU(call, PTS_LstOwnEvent, code, AUD_ID, aid, AUD_END);
1786     ViceLog(125, ("PTS_ListOwned: code %d cid %d aid %d\n", code, cid, aid));
1787     return code;
1788 }
1789
1790 afs_int32
1791 listOwned(struct rx_call *call, afs_int32 aid, prlist *alist, afs_int32 *lastP,
1792           afs_int32 *cid)
1793 {
1794     afs_int32 code;
1795     struct ubik_trans *tt;
1796     struct prentry tentry;
1797     afs_int32 head = 0;
1798     afs_int32 start;
1799
1800     alist->prlist_len = 0;
1801     alist->prlist_val = NULL;
1802
1803     if (!lastP)
1804         return PRBADARG;
1805     start = *lastP;
1806     *lastP = 0;
1807
1808     code = ReadPreamble(&tt);
1809     if (code)
1810         return code;
1811
1812     code = WhoIsThis(call, tt, cid);
1813     if (code)
1814         ABORT_WITH(tt, PRPERM);
1815
1816     if (start) {
1817         code = pr_ReadEntry(tt, 0, start, &tentry);
1818         if (!code && (tentry.owner == aid))
1819             head = start;       /* pick up where we left off */
1820     }
1821
1822     if (!head) {
1823         if (aid) {
1824             afs_int32 loc = FindByID(tt, aid);
1825             if (loc == 0)
1826                 ABORT_WITH(tt, PRNOENT);
1827             code = pr_ReadEntry(tt, 0, loc, &tentry);
1828             if (code)
1829                 ABORT_WITH(tt, code);
1830
1831             if (!AccessOK(tt, *cid, &tentry, -1, PRP_OWNED_ANY))
1832                 ABORT_WITH(tt, PRPERM);
1833             head = tentry.owned;
1834         } else {
1835             if (!AccessOK(tt, *cid, 0, 0, 0))
1836                 ABORT_WITH(tt, PRPERM);
1837             head = ntohl(cheader.orphan);
1838         }
1839     }
1840
1841     code = GetOwnedChain(tt, &head, alist);
1842     if (code) {
1843         if (code == PRTOOMANY)
1844             *lastP = head;
1845         else
1846             ABORT_WITH(tt, code);
1847     }
1848
1849     code = ubik_EndTrans(tt);
1850     return code;
1851 }
1852
1853 afs_int32
1854 SPR_IsAMemberOf(struct rx_call *call, afs_int32 uid, afs_int32 gid,
1855                 afs_int32 *flag)
1856 {
1857     afs_int32 code;
1858     afs_int32 cid = ANONYMOUSID;
1859
1860     code = isAMemberOf(call, uid, gid, flag, &cid);
1861     osi_auditU(call, PTS_IsMemOfEvent, code, AUD_LONG, uid, AUD_LONG, gid,
1862                AUD_END);
1863     ViceLog(125, ("PTS_IsAMemberOf: code %d cid %d uid %d gid %d\n", code, cid, uid, gid));
1864     return code;
1865 }
1866
1867 static afs_int32
1868 isAMemberOf(struct rx_call *call, afs_int32 uid, afs_int32 gid, afs_int32 *flag,
1869             afs_int32 *cid)
1870 {
1871     afs_int32 code;
1872     struct ubik_trans *tt;
1873
1874     code = ReadPreamble(&tt);
1875     if (code)
1876         return code;
1877
1878     {
1879         afs_int32 uloc = FindByID(tt, uid);
1880         afs_int32 gloc = FindByID(tt, gid);
1881         struct prentry uentry, gentry;
1882
1883         if (!uloc || !gloc)
1884             ABORT_WITH(tt, PRNOENT);
1885         code = WhoIsThis(call, tt, cid);
1886         if (code)
1887             ABORT_WITH(tt, PRPERM);
1888         code = pr_ReadEntry(tt, 0, uloc, &uentry);
1889         if (code)
1890             ABORT_WITH(tt, code);
1891         code = pr_ReadEntry(tt, 0, gloc, &gentry);
1892         if (code)
1893             ABORT_WITH(tt, code);
1894 #if !defined(SUPERGROUPS)
1895         if ((uentry.flags & PRGRP) || !(gentry.flags & PRGRP))
1896             ABORT_WITH(tt, PRBADARG);
1897 #else
1898         if (!(gentry.flags & PRGRP))
1899             ABORT_WITH(tt, PRBADARG);
1900 #endif
1901         if (!AccessOK(tt, *cid, &uentry, 0, PRP_MEMBER_ANY)
1902             && !AccessOK(tt, *cid, &gentry, PRP_MEMBER_MEM, PRP_MEMBER_ANY))
1903             ABORT_WITH(tt, PRPERM);
1904     }
1905
1906     *flag = IsAMemberOf(tt, uid, gid);
1907     code = ubik_EndTrans(tt);
1908     return code;
1909 }
1910
1911 static afs_int32
1912 addWildCards(struct ubik_trans *tt, prlist *alist, afs_uint32 host)
1913 {
1914     afs_int32 temp;
1915     struct prentry tentry;
1916     prlist wlist;
1917     unsigned wild = htonl(0xffffff00);
1918     struct in_addr iaddr;
1919     afs_int32 hostid;
1920     int size = 0, i, code;
1921     int added = 0;
1922
1923     while ((host = (host & wild))) {
1924         wild = htonl(ntohl(wild) << 8);
1925         iaddr.s_addr = host;
1926         code = NameToID(tt, inet_ntoa(iaddr), &hostid);
1927         if (code == PRSUCCESS && hostid != 0) {
1928             temp = FindByID(tt, hostid);
1929             if (temp) {
1930                 code = pr_ReadEntry(tt, 0, temp, &tentry);
1931                 if (code != PRSUCCESS)
1932                     continue;
1933             } else
1934                 continue;
1935         } else
1936             continue;
1937         wlist.prlist_len = 0;
1938         wlist.prlist_val = NULL;
1939
1940         code = GetList(tt, &tentry, &wlist, 0);
1941         if (code)
1942             return code;
1943         added += wlist.prlist_len;
1944         for (i = 0; i < wlist.prlist_len; i++) {
1945             if (!inCPS(*alist, wlist.prlist_val[i]))
1946                 if ((code = AddToPRList(alist, &size, wlist.prlist_val[i]))) {
1947                     free(wlist.prlist_val);
1948                     return (code);
1949                 }
1950         }
1951         if (wlist.prlist_val)
1952             free(wlist.prlist_val);
1953     }
1954     if (added)
1955         qsort(alist->prlist_val, alist->prlist_len, sizeof(afs_int32), IDCmp);
1956     return 0;
1957 }
1958
1959 static afs_int32
1960 WhoIsThisWithName(struct rx_call *acall, struct ubik_trans *at, afs_int32 *aid,
1961                   char *aname)
1962 {
1963     afs_int32 islocal = 1;
1964     /* aid is set to the identity of the caller, if known, else ANONYMOUSID */
1965     /* returns -1 and sets aid to ANONYMOUSID on any failure */
1966     struct rx_connection *tconn;
1967     afs_int32 code;
1968     char tcell[MAXKTCREALMLEN];
1969     char name[MAXKTCNAMELEN];
1970     char inst[MAXKTCNAMELEN];
1971     int ilen;
1972     char vname[256];
1973
1974     *aid = ANONYMOUSID;
1975     tconn = rx_ConnectionOf(acall);
1976     code = rx_SecurityClassOf(tconn);
1977     if (code == 0)
1978         return 0;
1979     else if (code == 1) {       /* vab class */
1980         goto done;              /* no longer supported */
1981     } else if (code == 2) {     /* kad class */
1982         if ((code = rxkad_GetServerInfo(rx_ConnectionOf(acall), NULL, NULL,
1983                                         name, inst, tcell, NULL)))
1984             goto done;
1985
1986         if (tcell[0]) {
1987             code = afsconf_IsLocalRealmMatch(prdir, &islocal, name, inst, tcell);
1988             if (code)
1989                 goto done;
1990         }
1991         strncpy(vname, name, sizeof(vname));
1992         if ((ilen = strlen(inst))) {
1993             if (strlen(vname) + 1 + ilen >= sizeof(vname))
1994                 goto done;
1995             strcat(vname, ".");
1996             strcat(vname, inst);
1997         }
1998         if (!islocal) {
1999              if (strlen(vname) + strlen(tcell) + 1  >= sizeof(vname))
2000                 goto done;
2001              strcat(vname, "@");
2002              strcat(vname, tcell);
2003              lcstring(vname, vname, sizeof(vname));
2004              code = NameToID(at, vname, aid);
2005              if (aname)
2006                 strcpy(aname, vname);
2007              return 2;
2008         }
2009
2010         if (strcmp(AUTH_SUPERUSER, vname) == 0)
2011             *aid = SYSADMINID;  /* special case for the fileserver */
2012         else {
2013             lcstring(vname, vname, sizeof(vname));
2014             code = NameToID(at, vname, aid);
2015         }
2016     }
2017   done:
2018     if (code && !pr_noAuth)
2019         return -1;
2020     return 0;
2021 }