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