2 * Copyright (C) 1989,2004 by the Massachusetts Institute of Technology
4 * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
5 * distribute this software and its documentation for any purpose and
6 * without fee is hereby granted, provided that the above copyright
7 * notice appear in all copies and that both that copyright notice and
8 * this permission notice appear in supporting documentation, and that
9 * the name of M.I.T. not be used in advertising or publicity pertaining
10 * to distribution of the software without specific, written prior
11 * permission. M.I.T. makes no representations about the suitability of
12 * this software for any purpose. It is provided "as is" without express
13 * or implied warranty.
20 #include <sys/types.h>
26 #include <afs/ptserver.h>
31 #include <cm_config.h>
33 #include <cellconfig.h>
34 #include <pioctl_nt.h>
35 #include <smb_iocons.h>
39 #define __S_ISTYPE(mode, mask) (((mode) & _S_IFMT) == (mask))
40 #define S_ISDIR(mode) __S_ISTYPE((mode), _S_IFDIR)
42 #define DONT_HAVE_GET_AD_TKT
43 #define MAXSYMLINKS 255
45 /* Win32 uses get_krb_err_txt_entry(status) instead of krb_err_txt[status],
46 * so we use a bit of indirection like the GNU CVS sources.
48 #define krb_err_text(status) get_krb_err_txt_entry(status)
50 #define DRIVECOLON ':' /* Drive letter separator */
51 #define BDIR '\\' /* Other character that divides directories */
54 readlink(char *path, char *buf, int buffers)
59 char * getcwd(char*, size_t);
62 get_cellconfig_callback(void *cellconfig, struct sockaddr_in *addrp, char *namep)
64 struct afsconf_cell *cc = (struct afsconf_cell *) cellconfig;
66 cc->hostAddr[cc->numServers] = *addrp;
67 strcpy(cc->hostName[cc->numServers], namep);
73 #include <sys/param.h>
75 #include <arpa/inet.h>
76 #include <sys/socket.h>
79 #include <afs/param.h>
81 #include <afs/cellconfig.h>
83 #include <afs/venus.h>
84 #include <afs/ptserver.h>
86 #define krb_err_text(status) krb_err_txt[status]
88 /* Cheesy test for determining AFS 3.5. */
89 #ifndef AFSCONF_CLIENTNAME
94 #include <afs/dirpath.h>
96 #define AFSDIR_CLIENT_ETC_DIRPATH AFSCONF_CLIENTNAME
101 #include "linked_list.h"
106 #define AKLOG_SUCCESS 0
107 #define AKLOG_USAGE 1
108 #define AKLOG_SOMETHINGSWRONG 2
110 #define AKLOG_KERBEROS 4
111 #define AKLOG_TOKEN 5
112 #define AKLOG_BADPATH 6
128 #define MAXSYMLINKS 15
131 #define DIR '/' /* Character that divides directories */
132 #define DIRSTRING "/" /* String form of above */
133 #define VOLMARKER ':' /* Character separating cellname from mntpt */
134 #define VOLMARKERSTRING ":" /* String form of above */
138 char realm[REALM_SZ];
142 struct afsconf_cell ak_cellconfig; /* General information about the cell */
144 static char *progname = NULL; /* Name of this program */
145 static int dflag = FALSE; /* Give debugging information */
146 static int noprdb = FALSE; /* Skip resolving name to id? */
147 static int force = FALSE; /* Bash identical tokens? */
148 static linked_list authedcells; /* List of cells already logged to */
150 static int usev5 = TRUE; /* use kerberos 5? */
151 static krb5_ccache _krb425_ccache;
153 long GetLocalCell(struct afsconf_dir **pconfigdir, char *local_cell)
155 if (!(*pconfigdir = afsconf_Open(AFSDIR_CLIENT_ETC_DIRPATH)))
157 fprintf(stderr, "%s: can't get afs configuration (afsconf_Open(%s))\n",
158 progname, AFSDIR_CLIENT_ETC_DIRPATH);
162 return afsconf_GetLocalCell(*pconfigdir, local_cell, MAXCELLCHARS);
165 long GetCellInfo(struct afsconf_dir **pconfigdir, char* cell,
166 struct afsconf_cell **pcellconfig)
168 return afsconf_GetCellInfo(*pconfigdir, cell, NULL, *pcellconfig);
171 void CloseConf(struct afsconf_dir **pconfigdir)
173 (void) afsconf_Close(*pconfigdir);
176 #define ALLOW_REGISTER 1
177 void ViceIDToUsername(char *username, char *realm_of_user, char *realm_of_cell,
178 char * cell_to_use, CREDENTIALS *c,
180 struct ktc_principal *aclient, struct ktc_principal *aserver, struct ktc_token *atoken)
182 static char lastcell[MAXCELLCHARS+1] = { 0 };
183 static char confname[512] = { 0 };
184 long viceId; /* AFS uid of user */
185 #ifdef ALLOW_REGISTER
187 #endif /* ALLOW_REGISTER */
189 if (confname[0] == '\0') {
190 strncpy(confname, AFSDIR_CLIENT_ETC_DIRPATH, sizeof(confname));
191 confname[sizeof(confname) - 2] = '\0';
195 printf("About to resolve name %s to id\n", username);
198 * Talk about DUMB! It turns out that there is a bug in
199 * pr_Initialize -- even if you give a different cell name
200 * to it, it still uses a connection to a previous AFS server
201 * if one exists. The way to fix this is to change the
202 * _filename_ argument to pr_Initialize - that forces it to
203 * re-initialize the connection. We do this by adding and
204 * removing a "/" on the end of the configuration directory name.
207 if (lastcell[0] != '\0' && (strcmp(lastcell, aserver->cell) != 0)) {
208 int i = strlen(confname);
209 if (confname[i - 1] == '/') {
210 confname[i - 1] = '\0';
213 confname[i + 1] = '\0';
217 strcpy(lastcell, aserver->cell);
219 if (!pr_Initialize (0, confname, aserver->cell))
220 *status = pr_SNameToId (username, &viceId);
225 printf("Error %d\n", *status);
227 printf("Id %d\n", viceId);
231 * This is a crock, but it is Transarc's crock, so
232 * we have to play along in order to get the
233 * functionality. The way the afs id is stored is
234 * as a string in the username field of the token.
235 * Contrary to what you may think by looking at
236 * the code for tokens, this hack (AFS ID %d) will
237 * not work if you change %d to something else.
241 * This code is taken from cklog -- it lets people
242 * automatically register with the ptserver in foreign cells
245 #ifdef ALLOW_REGISTER
247 if (viceId != ANONYMOUSID) {
248 #else /* ALLOW_REGISTER */
249 if ((*status == 0) && (viceId != ANONYMOUSID))
250 #endif /* ALLOW_REGISTER */
251 sprintf (username, "AFS ID %d", (int) viceId);
252 #ifdef ALLOW_REGISTER
253 } else if (strcmp(realm_of_user, realm_of_cell) != 0) {
255 printf("doing first-time registration of %s "
256 "at %s\n", username, cell_to_use);
259 strncpy(aclient->name, username, MAXKTCNAMELEN - 1);
260 strcpy(aclient->instance, "");
261 strncpy(aclient->cell, c->realm, MAXKTCREALMLEN - 1);
262 if ((*status = ktc_SetToken(aserver, atoken, aclient, 0))) {
263 printf("%s: unable to obtain tokens for cell %s "
264 "(status: %d).\n", progname, cell_to_use, status);
265 *status = AKLOG_TOKEN;
269 * In case you're wondering, we don't need to change the
270 * filename here because we're still connecting to the
271 * same cell -- we're just using a different authentication
275 if ((*status = pr_Initialize(1L, confname, aserver->cell, 0))) {
276 printf("Error %d\n", status);
279 if ((*status = pr_CreateUser(username, &id))) {
280 printf("%s: unable to create remote PTS "
281 "user %s in cell %s (status: %d).\n", progname,
282 username, cell_to_use, *status);
284 printf("created cross-cell entry for %s at %s\n",
285 username, cell_to_use);
286 sprintf(username, "AFS ID %d", (int) id);
290 #endif /* ALLOW_REGISTER */
293 char *LastComponent(char *str)
295 char *ret = strrchr(str, DIR);
299 ret = strrchr(str, BDIR);
304 int FirstComponent(char *str)
313 void CopyPathColon(char *origpath, char *path, char *pathtocheck)
316 if (origpath[1] == DRIVECOLON)
318 strncpy(pathtocheck, origpath, 2);
319 strcpy(path, origpath+2);
323 strcpy(path, origpath);
326 int BeginsWithDir(char *str, int colon)
328 return (str[0] == DIR) ||
330 ((str[0] == BDIR) || (colon && str[1] == DRIVECOLON));
337 /* This is a pretty gross hack. Linking against the Transarc
338 * libraries pulls in some rxkad functions which use des. (I don't
339 * think they ever get called.) With Transarc-supplied libraries this
340 * creates a reliance on the symbol des_pcbc_init() which is only in
341 * Transarc's DES libraries (it's an exportability symbol-hiding
342 * thing), which we don't want to use because they don't work with
343 * MIT's krb4 routines. So export a des_pcbc_init() symbol here so we
344 * don't have to link against Transarc's des library.
351 static int get_cred(char *name, char *inst, char *realm, CREDENTIALS *c)
355 status = krb_get_cred(name, inst, realm, c);
356 if (status != KSUCCESS)
358 #ifdef DONT_HAVE_GET_AD_TKT
360 status = krb_mk_req(&ticket, name, inst, realm, 0);
362 status = get_ad_tkt(name, inst, realm, 255);
364 if (status == KSUCCESS)
365 status = krb_get_cred(name, inst, realm, c);
371 static int get_v5cred(krb5_context context,
372 char *name, char *inst, char *realm, CREDENTIALS *c,
377 static krb5_principal client_principal = 0;
379 memset((char *)&increds, 0, sizeof(increds));
381 if ((r = krb5_build_principal(context, &increds.server,
382 strlen(realm), realm,
384 (inst && strlen(inst)) ? inst : 0,
390 krb5_cc_default(context, &_krb425_ccache);
391 if (!client_principal)
392 krb5_cc_get_principal(context, _krb425_ccache, &client_principal);
394 increds.client = client_principal;
395 increds.times.endtime = 0;
396 /* Ask for DES since that is what V4 understands */
397 increds.keyblock.enctype = ENCTYPE_DES_CBC_CRC;
399 r = krb5_get_credentials(context, 0, _krb425_ccache, &increds, creds);
403 /* This requires krb524d to be running with the KDC */
405 r = krb5_524_convert_creds(context, *creds, c);
409 /* There is no header for this function. It is supposed to be private */
410 int krb_get_admhst(char *h,char *r, int n);
412 static char *afs_realm_of_cell(struct afsconf_cell *cellconfig)
414 char krbhst[MAX_HSTNM];
415 static char krbrlm[REALM_SZ+1];
420 strcpy(krbrlm, (char *) krb_realmofhost(cellconfig->hostName[0]));
422 if (krb_get_admhst(krbhst, krbrlm, 1) != KSUCCESS)
425 char *t = cellconfig->name;
440 static char *afs_realm_of_cell5(krb5_context context, struct afsconf_cell *cellconfig)
443 static char krbrlm[REALM_SZ+1];
444 krb5_error_code status;
449 status = krb5_get_host_realm( context, cellconfig->hostName[0], &krbrlms );
451 if (status == 0 && krbrlms && krbrlms[0]) {
452 strcpy(krbrlm, krbrlms[0]);
454 strcpy(krbrlm, cellconfig->name);
459 krb5_free_host_realm( context, krbrlms );
464 static char *copy_cellinfo(cellinfo_t *cellinfo)
466 cellinfo_t *new_cellinfo;
468 if (new_cellinfo = (cellinfo_t *)malloc(sizeof(cellinfo_t)))
469 memcpy(new_cellinfo, cellinfo, sizeof(cellinfo_t));
471 return ((char *)new_cellinfo);
475 static char *copy_string(char *string)
479 if (new_string = (char *)calloc(strlen(string) + 1, sizeof(char)))
480 (void) strcpy(new_string, string);
486 static int get_cellconfig(char *cell, struct afsconf_cell *cellconfig,
489 int status = AKLOG_SUCCESS;
490 struct afsconf_dir *configdir = 0;
492 memset(local_cell, 0, sizeof(local_cell));
493 memset(cellconfig, 0, sizeof(*cellconfig));
495 if (GetLocalCell(&configdir, local_cell))
497 fprintf(stderr, "%s: can't determine local cell.\n", progname);
501 if ((cell == NULL) || (cell[0] == 0))
504 if (GetCellInfo(&configdir, cell, &cellconfig))
506 fprintf(stderr, "%s: Can't get information about cell %s.\n",
512 CloseConf(&configdir);
517 static int get_v5_user_realm(krb5_context context,char *realm)
519 static krb5_principal client_principal = 0;
523 krb5_cc_default(context, &_krb425_ccache);
524 if (!client_principal)
525 krb5_cc_get_principal(context, _krb425_ccache, &client_principal);
527 i = krb5_princ_realm(context, client_principal)->length;
528 if (i < REALM_SZ-1) i = REALM_SZ-1;
529 strncpy(realm,krb5_princ_realm(context, client_principal)->data,i);
535 * Log to a cell. If the cell has already been logged to, return without
536 * doing anything. Otherwise, log to it and mark that it has been logged
538 static int auth_to_cell(krb5_context context, char *cell, char *realm)
540 int status = AKLOG_SUCCESS;
541 char username[BUFSIZ]; /* To hold client username structure */
543 char name[ANAME_SZ]; /* Name of afs key */
544 char instance[INST_SZ]; /* Instance of afs key */
545 char realm_of_user[REALM_SZ]; /* Kerberos realm of user */
546 char realm_of_cell[REALM_SZ]; /* Kerberos realm of cell */
547 char local_cell[MAXCELLCHARS+1];
548 char cell_to_use[MAXCELLCHARS+1]; /* Cell to authenticate to */
550 krb5_creds *v5cred = NULL;
552 struct ktc_principal aserver;
553 struct ktc_principal aclient;
554 struct ktc_token atoken, btoken;
557 /* try to avoid an expensive call to get_cellconfig */
558 if (cell && ll_string_check(&authedcells, cell))
561 printf("Already authenticated to %s (or tried to)\n", cell);
562 return(AKLOG_SUCCESS);
565 memset(name, 0, sizeof(name));
566 memset(instance, 0, sizeof(instance));
567 memset(realm_of_user, 0, sizeof(realm_of_user));
568 memset(realm_of_cell, 0, sizeof(realm_of_cell));
570 /* NULL or empty cell returns information on local cell */
571 if (status = get_cellconfig(cell, &ak_cellconfig, local_cell))
574 strncpy(cell_to_use, ak_cellconfig.name, MAXCELLCHARS);
575 cell_to_use[MAXCELLCHARS] = 0;
577 if (ll_string_check(&authedcells, cell_to_use))
580 printf("Already authenticated to %s (or tried to)\n", cell_to_use);
581 return(AKLOG_SUCCESS);
585 * Record that we have attempted to log to this cell. We do this
586 * before we try rather than after so that we will not try
587 * and fail repeatedly for one cell.
589 (void)ll_add_string(&authedcells, cell_to_use);
592 printf("Authenticating to cell %s.\n", cell_to_use);
594 if (realm && realm[0])
595 strcpy(realm_of_cell, realm);
597 strcpy(realm_of_cell,
599 afs_realm_of_cell5(context, &ak_cellconfig) :
600 afs_realm_of_cell(&ak_cellconfig));
602 /* We use the afs.<cellname> convention here... */
603 strcpy(name, AFSKEY);
604 strncpy(instance, cell_to_use, sizeof(instance));
605 instance[sizeof(instance)-1] = '\0';
608 * Extract the session key from the ticket file and hand-frob an
609 * afs style authenticator.
618 printf("Getting v5 tickets: %s/%s@%s\n", name, instance, realm_of_cell);
619 status = get_v5cred(context, name, instance, realm_of_cell, NULL, &v5cred);
620 if (status == KRB5KDC_ERR_S_PRINCIPAL_UNKNOWN) {
622 printf("Getting v5 tickets: %s@%s\n", name, realm_of_cell);
623 status = get_v5cred(context, name, "", realm_of_cell, NULL, &v5cred);
625 if ( status == KRB5KRB_AP_ERR_MSG_TYPE && retry ) {
633 * Try to obtain AFS tickets. Because there are two valid service
634 * names, we will try both, but trying the more specific first.
640 printf("Getting tickets: %s.%s@%s\n", name, instance, realm_of_cell);
641 status = get_cred(name, instance, realm_of_cell, &c);
642 if (status == KDC_PR_UNKNOWN)
645 printf("Getting tickets: %s@%s\n", name, realm_of_cell);
646 status = get_cred(name, "", realm_of_cell, &c);
650 /* TODO: get k5 error text */
651 if (status != KSUCCESS)
654 printf("Kerberos error code returned by get_cred: %d\n", status);
655 fprintf(stderr, "%s: Couldn't get %s AFS tickets: %s\n",
656 progname, cell_to_use,
658 krb_err_text(status));
659 return(AKLOG_KERBEROS);
662 strncpy(aserver.name, AFSKEY, MAXKTCNAMELEN - 1);
663 strncpy(aserver.instance, AFSINST, MAXKTCNAMELEN - 1);
664 strncpy(aserver.cell, cell_to_use, MAXKTCREALMLEN - 1);
667 /* This code inserts the entire K5 ticket into the token
668 * No need to perform a krb524 translation which is
669 * commented out in the code below
674 len = min(v5cred->client->data[0].length,MAXKTCNAMELEN - 1);
675 strncpy(username, v5cred->client->data[0].data, len);
676 username[len] = '\0';
678 if ( v5cred->client->length > 1 ) {
679 strcat(username, ".");
680 p = username + strlen(username);
681 len = min(v5cred->client->data[1].length,MAXKTCNAMELEN - strlen(username) - 1);
682 strncpy(p, v5cred->client->data[1].data, len);
686 memset(&atoken, '\0', sizeof(atoken));
687 atoken.kvno = RXKAD_TKT_TYPE_KERBEROS_V5;
688 atoken.startTime = v5cred->times.starttime;
689 atoken.endTime = v5cred->times.endtime;
690 memcpy(&atoken.sessionKey, v5cred->keyblock.contents, v5cred->keyblock.length);
691 atoken.ticketLen = v5cred->ticket.length;
692 memcpy(atoken.ticket, v5cred->ticket.data, atoken.ticketLen);
695 strcpy (username, c.pname);
698 strcat(username, ".");
699 strcat(username, c.pinst);
702 atoken.kvno = c.kvno;
703 atoken.startTime = c.issue_date;
704 /* ticket lifetime is in five-minutes blocks. */
705 atoken.endTime = c.issue_date + ((unsigned char)c.lifetime * 5 * 60);
707 memcpy(&atoken.sessionKey, c.session, 8);
708 atoken.ticketLen = c.ticket_st.length;
709 memcpy(atoken.ticket, c.ticket_st.dat, atoken.ticketLen);
713 !ktc_GetToken(&aserver, &btoken, sizeof(btoken), &aclient) &&
714 atoken.kvno == btoken.kvno &&
715 atoken.ticketLen == btoken.ticketLen &&
716 !memcmp(&atoken.sessionKey, &btoken.sessionKey, sizeof(atoken.sessionKey)) &&
717 !memcmp(atoken.ticket, btoken.ticket, atoken.ticketLen))
720 printf("Identical tokens already exist; skipping.\n");
727 printf("Not resolving name %s to id (-noprdb set)\n", username);
732 if((status = get_v5_user_realm(context, realm_of_user)) != KSUCCESS) {
733 fprintf(stderr, "%s: Couldn't determine realm of user: %d\n",
735 return(AKLOG_KERBEROS);
739 if ((status = krb_get_tf_realm(TKT_FILE, realm_of_user)) != KSUCCESS)
741 fprintf(stderr, "%s: Couldn't determine realm of user: %s)",
742 progname, krb_err_text(status));
743 return(AKLOG_KERBEROS);
747 if (strcmp(realm_of_user, realm_of_cell))
749 strcat(username, "@");
750 strcat(username, realm_of_user);
753 ViceIDToUsername(username, realm_of_user, realm_of_cell, cell_to_use, &c, &status, &aclient, &aserver, &atoken);
757 printf("Set username to %s\n", username);
759 /* Reset the "aclient" structure before we call ktc_SetToken.
760 * This structure was first set by the ktc_GetToken call when
761 * we were comparing whether identical tokens already existed.
763 strncpy(aclient.name, username, MAXKTCNAMELEN - 1);
764 strcpy(aclient.instance, "");
766 int len = min(v5cred->client->realm.length,MAXKTCNAMELEN - 1);
767 strncpy(aclient.cell, v5cred->client->realm.data, len);
768 aclient.cell[len] = '\0';
770 strncpy(aclient.cell, c.realm, MAXKTCREALMLEN - 1);
773 printf("Getting tokens.\n");
774 if (status = ktc_SetToken(&aserver, &atoken, &aclient, 0))
777 "%s: unable to obtain tokens for cell %s (status: %d).\n",
778 progname, cell_to_use, status);
779 status = AKLOG_TOKEN;
785 static int get_afs_mountpoint(char *file, char *mountpoint, int size)
787 char our_file[MAXPATHLEN + 1];
789 char *last_component;
790 struct ViceIoctl vio;
791 char cellname[BUFSIZ];
793 memset(our_file, 0, sizeof(our_file));
794 strcpy(our_file, file);
796 if (last_component = LastComponent(our_file))
798 *last_component++ = 0;
799 parent_dir = our_file;
803 last_component = our_file;
807 memset(cellname, 0, sizeof(cellname));
809 vio.in = last_component;
810 vio.in_size = strlen(last_component)+1;
812 vio.out = mountpoint;
814 if (!pioctl(parent_dir, VIOC_AFS_STAT_MT_PT, &vio, 0))
816 if (strchr(mountpoint, VOLMARKER) == NULL)
819 vio.in_size = strlen(file) + 1;
820 vio.out_size = sizeof(cellname);
823 if (!pioctl(file, VIOC_FILE_CELL_NAME, &vio, 1))
825 strcat(cellname, VOLMARKERSTRING);
826 strcat(cellname, mountpoint + 1);
827 memset(mountpoint + 1, 0, size - 1);
828 strcpy(mountpoint + 1, cellname);
839 * This routine each time it is called returns the next directory
840 * down a pathname. It resolves all symbolic links. The first time
841 * it is called, it should be called with the name of the path
842 * to be descended. After that, it should be called with the arguemnt
845 static char *next_path(char *origpath)
847 static char path[MAXPATHLEN + 1];
848 static char pathtocheck[MAXPATHLEN + 1];
850 int link = FALSE; /* Is this a symbolic link? */
851 char linkbuf[MAXPATHLEN + 1];
852 char tmpbuf[MAXPATHLEN + 1];
854 static char *last_comp; /* last component of directory name */
855 static char *elast_comp; /* End of last component */
859 static int symlinkcount = 0; /* We can't exceed MAXSYMLINKS */
861 /* If we are given something for origpath, we are initializing only. */
864 memset(path, 0, sizeof(path));
865 memset(pathtocheck, 0, sizeof(pathtocheck));
866 CopyPathColon(origpath, path, pathtocheck);
872 /* We were not given origpath; find then next path to check */
874 /* If we've gotten all the way through already, return NULL */
875 if (last_comp == NULL)
880 while (BeginsWithDir(last_comp, FALSE))
881 strncat(pathtocheck, last_comp++, 1);
882 len = (elast_comp = LastComponent(last_comp))
883 ? elast_comp - last_comp : strlen(last_comp);
884 strncat(pathtocheck, last_comp, len);
885 memset(linkbuf, 0, sizeof(linkbuf));
886 if (link = (readlink(pathtocheck, linkbuf, sizeof(linkbuf)) > 0))
888 if (++symlinkcount > MAXSYMLINKS)
890 fprintf(stderr, "%s: %s\n", progname, strerror(ELOOP));
893 memset(tmpbuf, 0, sizeof(tmpbuf));
895 strcpy(tmpbuf, elast_comp);
896 if (BeginsWithDir(linkbuf, FALSE))
899 * If this is a symbolic link to an absolute path,
900 * replace what we have by the absolute path.
902 memset(path, 0, strlen(path));
903 memcpy(path, linkbuf, sizeof(linkbuf));
904 strcat(path, tmpbuf);
907 memset(pathtocheck, 0, sizeof(pathtocheck));
912 * If this is a symbolic link to a relative path,
913 * replace only the last component with the link name.
915 strncpy(last_comp, linkbuf, strlen(linkbuf) + 1);
916 strcat(path, tmpbuf);
918 if (t = LastComponent(pathtocheck))
921 memset(t, 0, strlen(t));
924 memset(pathtocheck, 0, sizeof(pathtocheck));
928 last_comp = elast_comp;
936 * This routine descends through a path to a directory, logging to
937 * every cell it encounters along the way.
939 static int auth_to_path(krb5_context context, char *path)
941 int status = AKLOG_SUCCESS;
942 int auth_to_cell_status = AKLOG_SUCCESS;
945 char pathtocheck[MAXPATHLEN + 1];
946 char mountpoint[MAXPATHLEN + 1];
952 if (BeginsWithDir(path, TRUE))
953 strcpy(pathtocheck, path);
956 if (getcwd(pathtocheck, sizeof(pathtocheck)) == NULL)
958 fprintf(stderr, "Unable to find current working directory:\n");
959 fprintf(stderr, "%s\n", pathtocheck);
960 fprintf(stderr, "Try an absolute pathname.\n");
965 /* in WIN32, if getcwd returns a root dir (eg: c:\), the returned string
966 * will already have a trailing slash ('\'). Otherwise, the string will
967 * end in the last directory name */
969 if(pathtocheck[strlen(pathtocheck) - 1] != BDIR)
971 strcat(pathtocheck, DIRSTRING);
972 strcat(pathtocheck, path);
975 next_path(pathtocheck);
977 /* Go on to the next level down the path */
978 while (nextpath = next_path(NULL))
980 strcpy(pathtocheck, nextpath);
982 printf("Checking directory [%s]\n", pathtocheck);
984 * If this is an afs mountpoint, determine what cell from
985 * the mountpoint name which is of the form
986 * #cellname:volumename or %cellname:volumename.
988 if (get_afs_mountpoint(pathtocheck, mountpoint, sizeof(mountpoint)))
991 printf("Found mount point [%s]\n", mountpoint);
992 /* skip over the '#' or '%' */
993 cell = mountpoint + 1;
994 if (endofcell = strchr(mountpoint, VOLMARKER))
997 if (auth_to_cell_status = auth_to_cell(context, cell, NULL))
999 if (status == AKLOG_SUCCESS)
1000 status = auth_to_cell_status;
1001 else if (status != auth_to_cell_status)
1002 status = AKLOG_SOMETHINGSWRONG;
1010 if (lstat(pathtocheck, &st) < 0)
1013 * If we've logged and still can't stat, there's
1016 fprintf(stderr, "%s: stat(%s): %s\n", progname,
1017 pathtocheck, strerror(errno));
1018 return(AKLOG_BADPATH);
1020 else if (!S_ISDIR(st.st_mode))
1022 /* Allow only directories */
1023 fprintf(stderr, "%s: %s: %s\n", progname, pathtocheck,
1025 return(AKLOG_BADPATH);
1033 /* Print usage message and exit */
1034 static void usage(void)
1036 fprintf(stderr, "\nUsage: %s %s%s%s%s\n", progname,
1037 "[-d] [[-cell | -c] cell [-k krb_realm]] ",
1038 "[[-p | -path] pathname]\n",
1039 " [-noprdb] [-force]\n",
1042 fprintf(stderr, " -d gives debugging information.\n");
1043 fprintf(stderr, " krb_realm is the kerberos realm of a cell.\n");
1044 fprintf(stderr, " pathname is the name of a directory to which ");
1045 fprintf(stderr, "you wish to authenticate.\n");
1046 fprintf(stderr, " -noprdb means don't try to determine AFS ID.\n");
1047 fprintf(stderr, " -5 or -4 selects whether to use Kerberos V or Kerberos IV.\n"
1048 " (default is Kerberos V)\n");
1049 fprintf(stderr, " No commandline arguments means ");
1050 fprintf(stderr, "authenticate to the local cell.\n");
1051 fprintf(stderr, "\n");
1055 int main(int argc, char *argv[])
1057 int status = AKLOG_SUCCESS;
1059 int somethingswrong = FALSE;
1061 cellinfo_t cellinfo;
1063 extern char *progname; /* Name of this program */
1065 extern int dflag; /* Debug mode */
1067 int cmode = FALSE; /* Cellname mode */
1068 int pmode = FALSE; /* Path name mode */
1070 char realm[REALM_SZ]; /* Kerberos realm of afs server */
1071 char cell[BUFSIZ]; /* Cell to which we are authenticating */
1072 char path[MAXPATHLEN + 1]; /* Path length for path mode */
1074 linked_list cells; /* List of cells to log to */
1075 linked_list paths; /* List of paths to log to */
1078 krb5_context context = 0;
1080 memset(&cellinfo, 0, sizeof(cellinfo));
1082 memset(realm, 0, sizeof(realm));
1083 memset(cell, 0, sizeof(cell));
1084 memset(path, 0, sizeof(path));
1089 /* Store the program name here for error messages */
1090 if (progname = LastComponent(argv[0]))
1095 /* Initialize list of cells to which we have authenticated */
1096 (void)ll_init(&authedcells);
1098 /* Parse commandline arguments and make list of what to do. */
1099 for (i = 1; i < argc; i++)
1101 if (strcmp(argv[i], "-d") == 0)
1103 else if (strcmp(argv[i], "-5") == 0)
1105 else if (strcmp(argv[i], "-4") == 0)
1107 else if (strcmp(argv[i], "-noprdb") == 0)
1109 else if (strcmp(argv[i], "-force") == 0)
1111 else if (((strcmp(argv[i], "-cell") == 0) ||
1112 (strcmp(argv[i], "-c") == 0)) && !pmode)
1117 strcpy(cell, argv[i]);
1122 else if (((strcmp(argv[i], "-path") == 0) ||
1123 (strcmp(argv[i], "-p") == 0)) && !cmode)
1128 strcpy(path, argv[i]);
1133 else if (argv[i][0] == '-')
1135 else if (!pmode && !cmode)
1137 if (FirstComponent(argv[i]) || (strcmp(argv[i], ".") == 0) ||
1138 (strcmp(argv[i], "..") == 0))
1141 strcpy(path, argv[i]);
1146 strcpy(cell, argv[i]);
1154 if (((i + 1) < argc) && (strcmp(argv[i + 1], "-k") == 0))
1158 strcpy(realm, argv[i]);
1162 /* Add this cell to list of cells */
1163 strcpy(cellinfo.cell, cell);
1164 strcpy(cellinfo.realm, realm);
1165 if (cur_node = ll_add_node(&cells, ll_tail))
1168 if (new_cellinfo = copy_cellinfo(&cellinfo))
1169 ll_add_data(cur_node, new_cellinfo);
1172 fprintf(stderr, "%s: failure copying cellinfo.\n", progname);
1178 fprintf(stderr, "%s: failure adding cell to cells list.\n",
1182 memset(&cellinfo, 0, sizeof(cellinfo));
1184 memset(cell, 0, sizeof(cell));
1185 memset(realm, 0, sizeof(realm));
1189 /* Add this path to list of paths */
1190 if (cur_node = ll_add_node(&paths, ll_tail))
1193 if (new_path = copy_string(path))
1194 ll_add_data(cur_node, new_path);
1197 fprintf(stderr, "%s: failure copying path name.\n",
1204 fprintf(stderr, "%s: failure adding path to paths list.\n",
1209 memset(path, 0, sizeof(path));
1214 krb5_init_context(&context);
1216 /* If nothing was given, log to the local cell. */
1217 if ((cells.nelements + paths.nelements) == 0)
1218 status = auth_to_cell(context, NULL, NULL);
1221 /* Log to all cells in the cells list first */
1222 for (cur_node = cells.first; cur_node; cur_node = cur_node->next)
1224 memcpy(&cellinfo, cur_node->data, sizeof(cellinfo));
1225 if (status = auth_to_cell(
1227 cellinfo.cell, cellinfo.realm))
1231 /* Then, log to all paths in the paths list */
1232 for (cur_node = paths.first; cur_node; cur_node = cur_node->next)
1234 if (status = auth_to_path(
1241 * If only one thing was logged to, we'll return the status
1242 * of the single call. Otherwise, we'll return a generic
1243 * something failed status.
1245 if (somethingswrong && ((cells.nelements + paths.nelements) > 1))
1246 status = AKLOG_SOMETHINGSWRONG;
1250 krb5_free_context(context);