Add printf format checks to the cache manager
[openafs.git] / src / ptserver / ptuser.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 #include <afsconfig.h>
11 #if defined(UKERNEL)
12 #include "afs/param.h"
13 #else
14 #include <afs/param.h>
15 #endif
16
17
18 #if defined(UKERNEL)
19 #include "afs/sysincludes.h"
20 #include "afs_usrops.h"
21 #include "afsincludes.h"
22 #include "afs/stds.h"
23 #include "rx/rx.h"
24 #include "rx/xdr.h"
25 #include "afs/auth.h"
26 #include "afs/cellconfig.h"
27 #include "afs/afsutil.h"
28 #include "afs/ptclient.h"
29 #include "afs/ptuser.h"
30 #include "afs/pterror.h"
31 #include "afs/com_err.h"
32 #else /* defined(UKERNEL) */
33 #include <afs/stds.h>
34 #include <ctype.h>
35 #include <sys/types.h>
36 #ifdef AFS_NT40_ENV
37 #include <winsock2.h>
38 #else
39 #include <netinet/in.h>
40 #endif
41 #include <stdio.h>
42 #include <string.h>
43 #include <rx/rx.h>
44 #include <rx/xdr.h>
45 #include <afs/auth.h>
46 #include <afs/cellconfig.h>
47 #include <afs/afsutil.h>
48 #include <afs/com_err.h>
49 #include "ptclient.h"
50 #include "ptuser.h"
51 #include "pterror.h"
52 #endif /* defined(UKERNEL) */
53
54
55 struct ubik_client *pruclient = 0;
56 static afs_int32 lastLevel;     /* security level pruclient, if any */
57
58 static char *whoami = "libprot";
59
60 afs_int32
61 pr_Initialize(IN afs_int32 secLevel, IN const char *confDir, IN char *cell)
62 {
63     afs_int32 code;
64     struct rx_connection *serverconns[MAXSERVERS];
65     struct rx_securityClass *sc[3];
66     static struct afsconf_dir *tdir = (struct afsconf_dir *)NULL;       /* only do this once */
67     static char tconfDir[100] = "";
68     static char tcell[64] = "";
69     struct ktc_token ttoken;
70     afs_int32 scIndex;
71     static struct afsconf_cell info;
72     afs_int32 i;
73 #if !defined(UKERNEL)
74     char cellstr[64];
75 #endif
76     afs_int32 gottdir = 0;
77     afs_int32 refresh = 0;
78
79     initialize_PT_error_table();
80     initialize_RXK_error_table();
81     initialize_ACFG_error_table();
82     initialize_KTC_error_table();
83
84 #if defined(UKERNEL)
85     if (!cell) {
86         cell = afs_LclCellName;
87     }
88 #else /* defined(UKERNEL) */
89     if (!cell) {
90         if (!tdir) 
91             tdir = afsconf_Open(confDir);
92         if (!tdir) {
93             if (confDir && strcmp(confDir, ""))
94                 fprintf(stderr,
95                         "%s: Could not open configuration directory: %s.\n",
96                         whoami, confDir);
97             else
98                 fprintf(stderr,
99                         "%s: No configuration directory specified.\n",
100                         whoami);
101             return -1;
102         }
103         gottdir = 1;
104
105         code = afsconf_GetLocalCell(tdir, cellstr, sizeof(cellstr));
106         if (code) {
107             fprintf(stderr,
108                      "libprot: Could not get local cell. [%d]\n", code);
109             return code;
110         }
111         cell = cellstr;
112     }
113 #endif /* defined(UKERNEL) */
114
115     if (tdir == NULL || strcmp(confDir, tconfDir) || strcmp(cell, tcell)) {
116         /*
117          * force re-evaluation.  we either don't have an afsconf_dir,
118          * the directory has changed or the cell has changed.
119          */
120         if (tdir && !gottdir) {
121             afsconf_Close(tdir);
122             tdir = (struct afsconf_dir *)NULL;
123         }
124         pruclient = (struct ubik_client *)NULL;
125         refresh = 1;
126     }
127
128     if (refresh) {
129         strncpy(tconfDir, confDir, sizeof(tconfDir));
130         strncpy(tcell, cell, sizeof(tcell));
131
132 #if defined(UKERNEL)
133         tdir = afs_cdir;
134 #else /* defined(UKERNEL) */
135         if (!gottdir)
136             tdir = afsconf_Open(confDir);
137         if (!tdir) {
138             if (confDir && strcmp(confDir, ""))
139                 fprintf(stderr,
140                         "libprot: Could not open configuration directory: %s.\n",
141                         confDir);
142             else
143                 fprintf(stderr,
144                         "libprot: No configuration directory specified.\n");
145             return -1;
146         }
147 #endif /* defined(UKERNEL) */
148
149         code = afsconf_GetCellInfo(tdir, cell, "afsprot", &info);
150         if (code) {
151             fprintf(stderr, "libprot: Could not locate cell %s in %s/%s\n",
152                     cell, confDir, AFSDIR_CELLSERVDB_FILE);
153             return code;
154         }
155     }
156
157     /* If we already have a client and it is at the security level we
158      * want, don't get a new one. Unless the security level is 2 in
159      * which case we will get one (and re-read the key file).
160      */
161     if (pruclient && (lastLevel == secLevel) && (secLevel != 2)) {
162         return 0;
163     }
164
165     code = rx_Init(0);
166     if (code) {
167         fprintf(stderr, "libprot:  Could not initialize rx.\n");
168         return code;
169     }
170
171     scIndex = secLevel;
172     sc[0] = 0;
173     sc[1] = 0;
174     sc[2] = 0;
175     /* Most callers use secLevel==1, however, the fileserver uses secLevel==2
176      * to force use of the KeyFile.  secLevel == 0 implies -noauth was
177      * specified. */
178     if (secLevel == 2) {
179         code = afsconf_GetLatestKey(tdir, 0, 0);
180         if (code) {
181             afs_com_err(whoami, code, 
182                         "(getting key from local KeyFile)\n");
183             scIndex = 0; /* use noauth */
184         } else {
185             /* If secLevel is two assume we're on a file server and use
186              * ClientAuthSecure if possible. */
187             code = afsconf_ClientAuthSecure(tdir, &sc[2], &scIndex);
188             if (code) {
189                 afs_com_err(whoami, code,
190                             "(calling client secure)\n");
191                 scIndex = 0;    /* use noauth */
192             }
193         }
194         if (scIndex != 2)
195             /* if there was a problem, an unauthenticated conn is returned */
196             sc[scIndex] = sc[2];
197     } else if (secLevel > 0) {
198         struct ktc_principal sname;
199         strcpy(sname.cell, info.name);
200         sname.instance[0] = 0;
201         strcpy(sname.name, "afs");
202         code = ktc_GetToken(&sname, &ttoken, sizeof(ttoken), NULL);
203         if (code) {
204             afs_com_err(whoami, code, "(getting token)");
205             if (secLevel > 1)
206                 return code;
207             scIndex = 0;
208         } else {
209             if (ttoken.kvno >= 0 && ttoken.kvno <= 256)
210                 /* this is a kerberos ticket, set scIndex accordingly */
211                 scIndex = 2;
212             else {
213                 fprintf(stderr,
214                         "%s: funny kvno (%d) in ticket, proceeding\n",
215                         whoami, ttoken.kvno);
216                 scIndex = 2;
217             }
218             sc[2] =
219                 rxkad_NewClientSecurityObject((secLevel > 1) ? rxkad_crypt :
220                                               rxkad_clear, &ttoken.sessionKey,
221                                               ttoken.kvno, ttoken.ticketLen,
222                                               ttoken.ticket);
223         }
224     }
225
226     if (scIndex == 1)
227         return PRBADARG;
228     if ((scIndex == 0) && (sc[0] == 0))
229         sc[0] = rxnull_NewClientSecurityObject();
230     if ((scIndex == 0) && (secLevel != 0))
231         fprintf(stderr,
232                 "%s: Could not get afs tokens, running unauthenticated\n",
233                 whoami);
234
235     memset(serverconns, 0, sizeof(serverconns));        /* terminate list!!! */
236     for (i = 0; i < info.numServers; i++)
237         serverconns[i] =
238             rx_NewConnection(info.hostAddr[i].sin_addr.s_addr,
239                              info.hostAddr[i].sin_port, PRSRV, sc[scIndex],
240                              scIndex);
241
242     code = ubik_ClientInit(serverconns, &pruclient);
243     if (code) {
244         afs_com_err(whoami, code, "ubik client init failed.");
245         return code;
246     }
247     lastLevel = scIndex;
248
249     code = rxs_Release(sc[scIndex]);
250     return code;
251 }
252
253 int
254 pr_End(void)
255 {
256     int code = 0;
257
258     if (pruclient) {
259         code = ubik_ClientDestroy(pruclient);
260         pruclient = 0;
261     }
262     return code;
263 }
264
265
266
267 int
268 pr_CreateUser(char name[PR_MAXNAMELEN], afs_int32 *id)
269 {
270     register afs_int32 code;
271
272     stolower(name);
273     if (*id) {
274         code = ubik_PR_INewEntry(pruclient, 0, name, *id, 0);
275         return code;
276     } else {
277         code = ubik_PR_NewEntry(pruclient, 0, name, 0, 0, id);
278         return code;
279     }
280
281 }
282
283 int 
284 pr_CreateGroup(char name[PR_MAXNAMELEN], char owner[PR_MAXNAMELEN], afs_int32 *id)
285 {
286     register afs_int32 code;
287     afs_int32 oid = 0;
288     afs_int32 flags = 0;
289
290     stolower(name);
291     if (owner) {
292         code = pr_SNameToId(owner, &oid);
293         if (code)
294             return code;
295         if (oid == ANONYMOUSID)
296             return PRNOENT;
297     }
298     flags |= PRGRP;
299     if (*id) {
300         code = ubik_PR_INewEntry(pruclient, 0, name, *id, oid);
301         return code;
302     } else {
303         code = ubik_PR_NewEntry(pruclient, 0, name, flags, oid, id);
304         return code;
305     }
306 }
307
308 int
309 pr_Delete(char *name)
310 {
311     register afs_int32 code;
312     afs_int32 id;
313
314     stolower(name);
315     code = pr_SNameToId(name, &id);
316     if (code)
317         return code;
318     if (id == ANONYMOUSID)
319         return PRNOENT;
320     code = ubik_PR_Delete(pruclient, 0, id);
321     return code;
322 }
323
324 int
325 pr_DeleteByID(afs_int32 id)
326 {
327     register afs_int32 code;
328
329     code = ubik_PR_Delete(pruclient, 0, id);
330     return code;
331 }
332
333 int
334 pr_AddToGroup(char *user, char *group)
335 {
336     register afs_int32 code;
337     namelist lnames;
338     idlist lids;
339
340     lnames.namelist_len = 2;
341     lnames.namelist_val = malloc(2 * PR_MAXNAMELEN);
342     strncpy(lnames.namelist_val[0], user, PR_MAXNAMELEN);
343     strncpy(lnames.namelist_val[1], group, PR_MAXNAMELEN);
344     lids.idlist_val = 0;
345     lids.idlist_len = 0;
346     code = pr_NameToId(&lnames, &lids);
347     if (code)
348         goto done;
349     /* if here, still could be missing an entry */
350     if (lids.idlist_val[0] == ANONYMOUSID
351         || lids.idlist_val[1] == ANONYMOUSID) {
352         code = PRNOENT;
353         goto done;
354     }
355     code =
356         ubik_PR_AddToGroup(pruclient, 0, lids.idlist_val[0],
357                   lids.idlist_val[1]);
358   done:
359     if (lnames.namelist_val)
360         free(lnames.namelist_val);
361
362     xdr_free((xdrproc_t) xdr_idlist, &lids);
363     return code;
364 }
365
366 int
367 pr_RemoveUserFromGroup(char *user, char *group)
368 {
369     register afs_int32 code;
370     namelist lnames;
371     idlist lids;
372
373     lnames.namelist_len = 2;
374     lnames.namelist_val = malloc(2 * PR_MAXNAMELEN);
375     strncpy(lnames.namelist_val[0], user, PR_MAXNAMELEN);
376     strncpy(lnames.namelist_val[1], group, PR_MAXNAMELEN);
377     lids.idlist_val = 0;
378     lids.idlist_len = 0;
379     code = pr_NameToId(&lnames, &lids);
380     if (code)
381         goto done;
382
383     if (lids.idlist_val[0] == ANONYMOUSID
384         || lids.idlist_val[1] == ANONYMOUSID) {
385         code = PRNOENT;
386         goto done;
387     }
388     code =
389         ubik_PR_RemoveFromGroup(pruclient, 0, lids.idlist_val[0],
390                   lids.idlist_val[1]);
391   done:
392     if (lnames.namelist_val)
393         free(lnames.namelist_val);
394
395     xdr_free((xdrproc_t) xdr_idlist, &lids);
396
397     return code;
398 }
399
400 int
401 pr_NameToId(namelist *names, idlist *ids)
402 {
403     register afs_int32 code;
404     register afs_int32 i;
405
406     for (i = 0; i < names->namelist_len; i++)
407         stolower(names->namelist_val[i]);
408     code = ubik_PR_NameToID(pruclient, 0, names, ids);
409     return code;
410 }
411
412 int
413 pr_SNameToId(char name[PR_MAXNAMELEN], afs_int32 *id)
414 {
415     namelist lnames;
416     idlist lids;
417     register afs_int32 code;
418
419     lids.idlist_len = 0;
420     lids.idlist_val = 0;
421     lnames.namelist_len = 1;
422     lnames.namelist_val = malloc(PR_MAXNAMELEN);
423     stolower(name);
424     strncpy(lnames.namelist_val[0], name, PR_MAXNAMELEN);
425     code = ubik_PR_NameToID(pruclient, 0, &lnames, &lids);
426     if (lids.idlist_val) {
427         *id = *lids.idlist_val;
428         xdr_free((xdrproc_t) xdr_idlist, &lids);
429     }
430     if (lnames.namelist_val)
431         free(lnames.namelist_val);
432     return code;
433 }
434
435 int
436 pr_IdToName(idlist *ids, namelist *names)
437 {
438     register afs_int32 code;
439
440     code = ubik_PR_IDToName(pruclient, 0, ids, names);
441     return code;
442 }
443
444 int
445 pr_SIdToName(afs_int32 id, char name[PR_MAXNAMELEN])
446 {
447     namelist lnames;
448     idlist lids;
449     register afs_int32 code;
450
451     lids.idlist_len = 1;
452     lids.idlist_val = malloc(sizeof(afs_int32));
453     *lids.idlist_val = id;
454     lnames.namelist_len = 0;
455     lnames.namelist_val = 0;
456     code = ubik_PR_IDToName(pruclient, 0, &lids, &lnames);
457
458     if (lnames.namelist_val)
459         strncpy(name, lnames.namelist_val[0], PR_MAXNAMELEN);
460
461     if (lids.idlist_val)
462         free(lids.idlist_val);
463
464     xdr_free((xdrproc_t) xdr_namelist, &lnames);
465
466     return code;
467 }
468
469 int
470 pr_GetCPS(afs_int32 id, prlist *CPS)
471 {
472     register afs_int32 code;
473     afs_int32 over;
474
475     over = 0;
476     code = ubik_PR_GetCPS(pruclient, 0, id, CPS, &over);
477     if (code != PRSUCCESS)
478         return code;
479     if (over) {
480         /* do something about this, probably make a new call */
481         /* don't forget there's a hard limit in the interface */
482         fprintf(stderr, "membership list for id %d exceeds display limit\n",
483                 id);
484     }
485     return 0;
486 }
487
488 int
489 pr_GetCPS2(afs_int32 id, afs_int32 host, prlist *CPS)
490 {
491     register afs_int32 code;
492     afs_int32 over;
493
494     over = 0;
495     code = ubik_PR_GetCPS2(pruclient, 0, id, host, CPS, &over);
496     if (code != PRSUCCESS)
497         return code;
498     if (over) {
499         /* do something about this, probably make a new call */
500         /* don't forget there's a hard limit in the interface */
501         fprintf(stderr, "membership list for id %d exceeds display limit\n",
502                 id);
503     }
504     return 0;
505 }
506
507 int
508 pr_GetHostCPS(afs_int32 host, prlist *CPS)
509 {
510     register afs_int32 code;
511     afs_int32 over;
512
513     over = 0;
514     code = ubik_PR_GetHostCPS(pruclient, 0, host, CPS, &over);
515     if (code != PRSUCCESS)
516         return code;
517     if (over) {
518         /* do something about this, probably make a new call */
519         /* don't forget there's a hard limit in the interface */
520         fprintf(stderr,
521                 "membership list for host id %d exceeds display limit\n",
522                 host);
523     }
524     return 0;
525 }
526
527 int
528 pr_ListMembers(char *group, namelist *lnames)
529 {
530     register afs_int32 code;
531     afs_int32 gid;
532
533     code = pr_SNameToId(group, &gid);
534     if (code)
535         return code;
536     if (gid == ANONYMOUSID)
537         return PRNOENT;
538     code = pr_IDListMembers(gid, lnames);
539     return code;
540 }
541
542 int
543 pr_ListOwned(afs_int32 oid, namelist *lnames, afs_int32 *moreP)
544 {
545     register afs_int32 code;
546     prlist alist;
547     idlist *lids;
548
549     alist.prlist_len = 0;
550     alist.prlist_val = 0;
551     code = ubik_PR_ListOwned(pruclient, 0, oid, &alist, moreP);
552     if (code)
553         return code;
554     if (*moreP == 1) {
555         /* Remain backwards compatible when moreP was a T/F bit */
556         fprintf(stderr, "membership list for id %d exceeds display limit\n",
557                 oid);
558         *moreP = 0;
559     }
560     lids = (idlist *) &alist;
561     code = pr_IdToName(lids, lnames);
562
563     xdr_free((xdrproc_t) xdr_prlist, &alist);
564
565     if (code)
566         return code;
567
568     return PRSUCCESS;
569 }
570
571 int
572 pr_IDListMembers(afs_int32 gid, namelist *lnames)
573 {
574     register afs_int32 code;
575     prlist alist;
576     idlist *lids;
577     afs_int32 over;
578
579     alist.prlist_len = 0;
580     alist.prlist_val = 0;
581     code = ubik_PR_ListElements(pruclient, 0, gid, &alist, &over);
582     if (code)
583         return code;
584     if (over) {
585         fprintf(stderr, "membership list for id %d exceeds display limit\n",
586                 gid);
587     }
588     lids = (idlist *) &alist;
589     code = pr_IdToName(lids, lnames);
590
591     xdr_free((xdrproc_t) xdr_prlist, &alist);
592
593     if (code)
594         return code;
595     return PRSUCCESS;
596 }
597
598 int
599 pr_ListEntry(afs_int32 id, struct prcheckentry *aentry)
600 {
601     register afs_int32 code;
602
603     code = ubik_PR_ListEntry(pruclient, 0, id, aentry);
604     return code;
605 }
606
607 afs_int32
608 pr_ListEntries(int flag, afs_int32 startindex, afs_int32 *nentries, struct prlistentries **entries, afs_int32 *nextstartindex)
609 {
610     afs_int32 code;
611     prentries bulkentries;
612
613     *nentries = 0;
614     *entries = NULL;
615     *nextstartindex = -1;
616     bulkentries.prentries_val = 0;
617     bulkentries.prentries_len = 0;
618
619     code =
620         ubik_PR_ListEntries(pruclient, 0, flag, startindex,
621                   &bulkentries, nextstartindex);
622     *nentries = bulkentries.prentries_len;
623     *entries = bulkentries.prentries_val;
624     return code;
625 }
626
627 int
628 pr_CheckEntryByName(char *name, afs_int32 *id, char *owner, char *creator)
629 {
630     /* struct prcheckentry returns other things, which aren't useful to show at this time. */
631     register afs_int32 code;
632     struct prcheckentry aentry;
633
634     code = pr_SNameToId(name, id);
635     if (code)
636         return code;
637     if (*id == ANONYMOUSID)
638         return PRNOENT;
639     code = ubik_PR_ListEntry(pruclient, 0, *id, &aentry);
640     if (code)
641         return code;
642     /* this should be done in one RPC, but I'm lazy. */
643     code = pr_SIdToName(aentry.owner, owner);
644     if (code)
645         return code;
646     code = pr_SIdToName(aentry.creator, creator);
647     if (code)
648         return code;
649     return PRSUCCESS;
650 }
651
652 int
653 pr_CheckEntryById(char *name, afs_int32 id, char *owner, char *creator)
654 {
655     /* struct prcheckentry returns other things, which aren't useful to show at this time. */
656     register afs_int32 code;
657     struct prcheckentry aentry;
658
659     code = pr_SIdToName(id, name);
660     if (code)
661         return code;
662     if (id == ANONYMOUSID)
663         return PRNOENT;
664     code = ubik_PR_ListEntry(pruclient, 0, id, &aentry);
665     if (code)
666         return code;
667     /* this should be done in one RPC, but I'm lazy. */
668     code = pr_SIdToName(aentry.owner, owner);
669     if (code)
670         return code;
671     code = pr_SIdToName(aentry.creator, creator);
672     if (code)
673         return code;
674     return PRSUCCESS;
675 }
676
677 int
678 pr_ChangeEntry(char *oldname, char *newname, afs_int32 *newid, char *newowner)
679 {
680     register afs_int32 code;
681     afs_int32 id;
682     afs_int32 oid = 0;
683
684     code = pr_SNameToId(oldname, &id);
685     if (code)
686         return code;
687     if (id == ANONYMOUSID)
688         return PRNOENT;
689     if (newowner && *newowner) {
690         code = pr_SNameToId(newowner, &oid);
691         if (code)
692             return code;
693         if (oid == ANONYMOUSID)
694             return PRNOENT;
695     }
696     if (newid)
697         code = ubik_PR_ChangeEntry(pruclient, 0, id, newname, oid, *newid);
698     else
699         code = ubik_PR_ChangeEntry(pruclient, 0, id, newname, oid, 0);
700     return code;
701 }
702
703 int
704 pr_IsAMemberOf(char *uname, char *gname, afs_int32 *flag)
705 {
706     register afs_int32 code;
707     namelist lnames;
708     idlist lids;
709
710     stolower(uname);
711     stolower(gname);
712     lnames.namelist_len = 2;
713     lnames.namelist_val = malloc(2 * PR_MAXNAMELEN);
714     strncpy(lnames.namelist_val[0], uname, PR_MAXNAMELEN);
715     strncpy(lnames.namelist_val[1], gname, PR_MAXNAMELEN);
716     lids.idlist_val = 0;
717     lids.idlist_len = 0;
718     code = pr_NameToId(&lnames, &lids);
719     if (code) {
720         if (lnames.namelist_val)
721             free(lnames.namelist_val);
722         xdr_free((xdrproc_t) xdr_idlist, &lids);
723         return code;
724     }
725     code =
726         ubik_PR_IsAMemberOf(pruclient, 0, lids.idlist_val[0],
727                   lids.idlist_val[1], flag);
728     if (lnames.namelist_val)
729         free(lnames.namelist_val);
730     xdr_free((xdrproc_t) xdr_idlist, &lids);
731     return code;
732 }
733
734 int
735 pr_ListMaxUserId(afs_int32 *mid)
736 {
737     register afs_int32 code;
738     afs_int32 gid;
739     code = ubik_PR_ListMax(pruclient, 0, mid, &gid);
740     return code;
741 }
742
743 int
744 pr_SetMaxUserId(afs_int32 mid)
745 {
746     register afs_int32 code;
747     afs_int32 flag = 0;
748     code = ubik_PR_SetMax(pruclient, 0, mid, flag);
749     return code;
750 }
751
752 int
753 pr_ListMaxGroupId(afs_int32 *mid)
754 {
755     register afs_int32 code;
756     afs_int32 id;
757     code = ubik_PR_ListMax(pruclient, 0, &id, mid);
758     return code;
759 }
760
761 int
762 pr_SetMaxGroupId(afs_int32 mid)
763 {
764     register afs_int32 code;
765     afs_int32 flag = 0;
766
767     flag |= PRGRP;
768     code = ubik_PR_SetMax(pruclient, 0, mid, flag);
769     return code;
770 }
771
772 afs_int32
773 pr_SetFieldsEntry(afs_int32 id, afs_int32 mask, afs_int32 flags, afs_int32 ngroups, afs_int32 nusers)
774 {
775     register afs_int32 code;
776
777     code =
778         ubik_PR_SetFieldsEntry(pruclient, 0, id, mask, flags, ngroups,
779                   nusers, 0, 0);
780     return code;
781 }