windows-aklog-cleanup-20080321
[openafs.git] / src / WINNT / aklog / aklog.c
1 /* 
2  *  Copyright (C) 1989,2004 by the Massachusetts Institute of Technology
3  * 
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.
14  */
15
16 /*
17  * Copyright (c) 2007 Secure Endpoints Inc.
18  *
19  * All rights reserved.
20  *
21  * Redistribution and use in source and binary forms, with or without
22  * modification, are permitted provided that the following conditions
23  * are met:
24  *
25  *     * Redistributions of source code must retain the above copyright
26  *       notice, this list of conditions and the following disclaimer.
27  *     * Neither the name of the Secure Endpoints Inc. nor the names of its
28  *       contributors may be used to endorse or promote products derived
29  *       from this software without specific prior written permission.
30  *
31  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
32  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
33  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
34  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
35  * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
36  * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
37  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
38  * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
39  * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
40  * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
41  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
42  */
43
44 #ifndef _WIN64
45 #define HAVE_KRB4
46 #endif
47
48 #include <stdio.h>
49 #include <stdlib.h>
50 #include <string.h>
51 #include <ctype.h>
52 #include <sys/types.h>
53 #include <sys/stat.h>
54 #include <errno.h>
55 #include <afs/stds.h>
56 #ifdef HAVE_KRB4
57 #include <krb.h>
58 #else
59 #define REALM_SZ 64
60 #define ANAME_SZ 64
61 #define INST_SZ  64
62 #define KSUCCESS 0
63
64 #define CREDENTIALS void
65 #endif
66 #include <krb5.h>
67 #include <afs/ptserver.h>
68 #include <afs/ptuser.h>
69
70 #ifdef WIN32
71 #include <windows.h>
72
73 #include <cm_config.h>
74 #include <auth.h>
75 #include <cellconfig.h>
76 #include <pioctl_nt.h>
77 #include <smb_iocons.h>
78
79 #define stat _stat
80 #define lstat stat
81 #define __S_ISTYPE(mode, mask) (((mode) & _S_IFMT) == (mask))
82 #define S_ISDIR(mode)          __S_ISTYPE((mode), _S_IFDIR)
83
84 #define DONT_HAVE_GET_AD_TKT
85 #define MAXSYMLINKS 255
86
87 #ifdef HAVE_KRB4
88 /* Win32 uses get_krb_err_txt_entry(status) instead of krb_err_txt[status],
89 * so we use a bit of indirection like the GNU CVS sources.
90 */
91 #define krb_err_text(status) get_krb_err_txt_entry(status)
92 #endif
93
94 #define DRIVECOLON ':'          /* Drive letter separator */
95 #define BDIR '\\'               /* Other character that divides directories */
96
97 static int 
98 readlink(char *path, char *buf, int buffers)
99 {
100         return -1;
101 }
102
103 char * getcwd(char*, size_t);
104
105 static long 
106 get_cellconfig_callback(void *cellconfig, struct sockaddr_in *addrp, char *namep)
107 {
108         struct afsconf_cell *cc = (struct afsconf_cell *) cellconfig;
109
110         cc->hostAddr[cc->numServers] = *addrp;
111         strcpy(cc->hostName[cc->numServers], namep);
112         cc->numServers++;
113         return 0;
114 }
115
116 #else /* WIN32 */
117 #include <sys/param.h>
118 #include <netdb.h>
119 #include <arpa/inet.h>
120 #include <sys/socket.h>
121 #include <unistd.h>
122
123 #include <afs/param.h>
124 #include <afs/auth.h>
125 #include <afs/cellconfig.h>
126 #include <afs/vice.h>
127 #include <afs/venus.h>
128 #include <afs/ptserver.h>
129
130 #define krb_err_text(status) krb_err_txt[status]
131
132 /* Cheesy test for determining AFS 3.5. */
133 #ifndef AFSCONF_CLIENTNAME
134 #define AFS35
135 #endif
136
137 #ifdef AFS35
138 #include <afs/dirpath.h>
139 #else
140 #define AFSDIR_CLIENT_ETC_DIRPATH AFSCONF_CLIENTNAME
141 #endif
142
143 #endif /* WIN32 */
144
145 #include "linked_list.h"
146
147 #define AFSKEY "afs"
148 #define AFSINST ""
149
150 #define AKLOG_SUCCESS 0
151 #define AKLOG_USAGE 1
152 #define AKLOG_SOMETHINGSWRONG 2
153 #define AKLOG_AFS 3
154 #define AKLOG_KERBEROS 4
155 #define AKLOG_TOKEN 5
156 #define AKLOG_BADPATH 6
157 #define AKLOG_MISC 7
158 #define AKLOG_KFW_NOT_INSTALLED 8
159
160 #ifndef NULL
161 #define NULL 0
162 #endif
163
164 #ifndef TRUE
165 #define TRUE 1
166 #endif
167
168 #ifndef FALSE
169 #define FALSE 0
170 #endif
171
172 #ifndef MAXSYMLINKS
173 #define MAXSYMLINKS 15
174 #endif
175
176 #define DIR '/'                 /* Character that divides directories */
177 #define DIRSTRING "/"           /* String form of above */
178 #define VOLMARKER ':'           /* Character separating cellname from mntpt */
179 #define VOLMARKERSTRING ":"     /* String form of above */
180
181 typedef struct {
182     char cell[BUFSIZ];
183     char realm[REALM_SZ];
184 } cellinfo_t;
185
186
187 struct afsconf_cell ak_cellconfig; /* General information about the cell */
188
189 static char *progname = NULL;   /* Name of this program */
190 static int dflag = FALSE;       /* Give debugging information */
191 static int noprdb = FALSE;      /* Skip resolving name to id? */
192 static int force = FALSE;       /* Bash identical tokens? */
193 static linked_list authedcells; /* List of cells already logged to */
194
195 static int usev5 = TRUE;   /* use kerberos 5? */
196 static int use524 = FALSE;  /* use krb524? */
197 static krb5_context context = 0;
198 static krb5_ccache _krb425_ccache;
199
200 void akexit(int exit_code)
201 {
202     if (_krb425_ccache)
203         krb5_cc_close(context, _krb425_ccache);
204     if (context)
205         krb5_free_context(context);
206     exit(exit_code);
207 }
208
209 long GetLocalCell(struct afsconf_dir **pconfigdir, char *local_cell)
210 {
211     if (!(*pconfigdir = afsconf_Open(AFSDIR_CLIENT_ETC_DIRPATH)))
212     {
213         fprintf(stderr, "%s: can't get afs configuration (afsconf_Open(%s))\n",
214                  progname, AFSDIR_CLIENT_ETC_DIRPATH);
215         akexit(AKLOG_AFS);
216     }
217
218     return afsconf_GetLocalCell(*pconfigdir, local_cell, MAXCELLCHARS);
219 }
220
221 long GetCellInfo(struct afsconf_dir **pconfigdir, char* cell, 
222 struct afsconf_cell **pcellconfig)
223 {
224     return afsconf_GetCellInfo(*pconfigdir, cell, NULL, *pcellconfig);
225 }
226
227 void CloseConf(struct afsconf_dir **pconfigdir)
228 {       
229     (void) afsconf_Close(*pconfigdir);
230 }
231
232 #define ALLOW_REGISTER 1
233 void ViceIDToUsername(char *username, char *realm_of_user, char *realm_of_cell,
234                       char * cell_to_use, CREDENTIALS *c,
235                       int *status, 
236                       struct ktc_principal *aclient, struct ktc_principal *aserver, struct ktc_token *atoken)
237 {
238     static char lastcell[MAXCELLCHARS+1] = { 0 };
239     static char confname[512] = { 0 };
240     char username_copy[BUFSIZ];
241     afs_int32 viceId;                   /* AFS uid of user */
242 #ifdef ALLOW_REGISTER
243     afs_int32 id;
244 #endif /* ALLOW_REGISTER */
245
246     if (confname[0] == '\0') {
247         strncpy(confname, AFSDIR_CLIENT_ETC_DIRPATH, sizeof(confname));
248         confname[sizeof(confname) - 2] = '\0';
249     }
250
251     if (dflag)
252         printf("About to resolve name %s to id\n", username);
253
254     strcpy(lastcell, aserver->cell);
255
256     if (!pr_Initialize (0, confname, aserver->cell)) {
257         char sname[PR_MAXNAMELEN], *at;
258
259         strncpy(sname, username, PR_MAXNAMELEN);
260         sname[PR_MAXNAMELEN-1] = '\0';
261
262         at = strchr(sname, '@');
263         if (at && !stricmp(at+1, realm_of_cell))
264             *at = '\0';
265         *status = pr_SNameToId (sname, &viceId);
266     }
267
268     if (dflag)
269     {
270         if (*status)
271             printf("Error %d\n", *status);
272         else
273             printf("Id %d\n", viceId);
274     }       
275
276     /*
277      * This code is taken from cklog -- it lets people
278      * automatically register with the ptserver in foreign cells
279      */
280
281 #ifdef ALLOW_REGISTER
282     if (*status == 0) {
283         if (viceId != ANONYMOUSID) {
284 #else /* ALLOW_REGISTER */
285             if ((*status == 0) && (viceId != ANONYMOUSID))
286 #endif /* ALLOW_REGISTER */
287             {
288 #ifdef AFS_ID_TO_NAME
289                 strncpy(username_copy, username, BUFSIZ);
290                 snprintf (username, BUFSIZ, "%s (AFS ID %d)", username_copy, (int) viceId);
291 #endif /* AFS_ID_TO_NAME */
292             }
293 #ifdef ALLOW_REGISTER
294         } else if (strcmp(realm_of_user, realm_of_cell) != 0) {
295             int i;
296             if (dflag) {
297                 printf("doing first-time registration of %s "
298                         "at %s\n", username, cell_to_use);
299             }
300             id = 0;
301             strncpy(aclient->name, username, MAXKTCNAMELEN - 1);
302             aclient->name[MAXKTCNAMELEN - 1] = '\0';
303             strcpy(aclient->instance, "");
304             strncpy(aclient->cell, cell_to_use, MAXKTCREALMLEN - 1);
305             aclient->cell[MAXKTCREALMLEN - 1] = '\0';
306
307             for ( i=0; aclient->cell[i]; i++ ) {
308                 if ( islower(aclient->cell[i]) )
309                     aclient->cell[i] = toupper(aclient->cell[i]);
310             }
311
312             if ((*status = ktc_SetToken(aserver, atoken, aclient, 0))) {
313                 printf("%s: unable to set tokens for cell %s "
314                         "(status: %d).\n", progname, cell_to_use, *status);
315                 *status = AKLOG_TOKEN;
316                 return ;
317             }
318
319             /*
320              * In case you're wondering, we don't need to change the
321              * filename here because we're still connecting to the
322              * same cell -- we're just using a different authentication
323              * level
324              */
325
326             if ((*status = pr_Initialize(1L, confname, aserver->cell))) {
327                 printf("Error %d\n", *status);
328                 return;
329             }
330
331             /* copy the name because pr_CreateUser lowercases the realm */
332             strncpy(username_copy, username, BUFSIZ);
333
334             *status = pr_CreateUser(username, &id);
335
336             /* and restore the name to the original state */
337             strncpy(username, username_copy, BUFSIZ);
338
339             if (*status) {
340                 printf("%s: unable to create remote PTS "
341                         "user %s in cell %s (status: %d).\n", progname,
342                         username, cell_to_use, *status);
343             } else {
344                 printf("created cross-cell entry for %s (Id %d) at %s\n",
345                         username, viceId, cell_to_use);
346 #ifdef AFS_ID_TO_NAME
347                 snprintf (username, BUFSIZ, "%s (AFS ID %d)", username_copy, (int) viceId);
348 #endif /* AFS_ID_TO_NAME */
349             }
350         }
351     }
352 #endif /* ALLOW_REGISTER */
353 }
354
355 char *LastComponent(char *str)
356 {
357     char *ret = strrchr(str, DIR);
358
359 #ifdef WIN32
360     if (!ret)
361         ret = strrchr(str, BDIR);
362 #endif
363     return ret;
364 }
365
366 int FirstComponent(char *str)
367 {
368     return (int)(
369 #ifdef WIN32
370                 strchr(str, BDIR) ||
371 #endif
372                 strchr(str, DIR));
373 }
374
375 void CopyPathColon(char *origpath, char *path, char *pathtocheck)
376 {
377 #ifdef WIN32
378     if (origpath[1] == DRIVECOLON)
379     {
380         strncpy(pathtocheck, origpath, 2);
381         strcpy(path, origpath+2);
382     }
383     else
384 #endif
385         strcpy(path, origpath);
386 }
387
388 int BeginsWithDir(char *str, int colon)
389 {
390     return (str[0] == DIR) ||
391 #ifdef WIN32
392         ((str[0] == BDIR) || (colon && str[1] == DRIVECOLON));
393 #else
394     FALSE;
395 #endif
396 }
397
398
399 /* This is a pretty gross hack.  Linking against the Transarc
400 * libraries pulls in some rxkad functions which use des.  (I don't
401 * think they ever get called.)  With Transarc-supplied libraries this
402 * creates a reliance on the symbol des_pcbc_init() which is only in
403 * Transarc's DES libraries (it's an exportability symbol-hiding
404 * thing), which we don't want to use because they don't work with
405 * MIT's krb4 routines.  So export a des_pcbc_init() symbol here so we
406 * don't have to link against Transarc's des library.
407 */
408 int des_pcbc_init()
409 {
410     abort();
411     return 0;   /* avoid warning */
412 }
413
414 #ifdef HAVE_KRB4
415 static int get_cred(char *name, char *inst, char *realm, CREDENTIALS *c)
416 {
417     int status;
418
419     status = krb_get_cred(name, inst, realm, c);
420     if (status != KSUCCESS)
421     {
422 #ifdef DONT_HAVE_GET_AD_TKT
423         KTEXT_ST ticket;
424         status = krb_mk_req(&ticket, name, inst, realm, 0);
425 #else
426         status = get_ad_tkt(name, inst, realm, 255);
427 #endif
428         if (status == KSUCCESS)
429             status = krb_get_cred(name, inst, realm, c);
430     }       
431
432     return (status);
433 }
434 #endif
435
436 static int get_v5cred(krb5_context context, 
437                       char *name, char *inst, char *realm, CREDENTIALS *c,
438                       krb5_creds **creds)
439 {
440     krb5_creds increds;
441     krb5_error_code r;
442     static krb5_principal client_principal = 0;
443
444     if (client_principal) {
445         krb5_free_principal(context, client_principal);
446         client_principal = 0;
447     }
448
449     memset((char *)&increds, 0, sizeof(increds));
450
451     if ((r = krb5_build_principal(context, &increds.server,
452                                   (int)strlen(realm), realm,
453                                   name,
454                                   (inst && strlen(inst)) ? inst : 0,
455                                   0))) {
456         return((int)r);
457     }
458
459     if (!_krb425_ccache) {
460         if ((r = krb5_cc_default(context, &_krb425_ccache)))
461             return ((int)r);
462     }
463     if (!client_principal) {
464         if ((r = krb5_cc_get_principal(context, _krb425_ccache, &client_principal))) {
465             krb5_cc_close(context, _krb425_ccache);
466             return ((int)r);
467         }
468     }
469
470     increds.client = client_principal;
471     increds.times.endtime = 0;
472         /* Ask for DES since that is what V4 understands */
473     increds.keyblock.enctype = ENCTYPE_DES_CBC_CRC;
474
475     r = krb5_get_credentials(context, 0, _krb425_ccache, &increds, creds);
476     if (r) {
477         return((int)r);
478     }
479     /* This requires krb524d to be running with the KDC */
480     if (c != NULL)
481         r = krb5_524_convert_creds(context, *creds, c);
482
483     return((int)r);
484 }
485
486 #ifdef HAVE_KRB4
487 /* There is no header for this function.  It is supposed to be private */
488 int krb_get_admhst(char *h,char *r, int n);
489
490 static char *afs_realm_of_cell(struct afsconf_cell *cellconfig)
491 {
492     char krbhst[MAX_HSTNM];
493     static char krbrlm[REALM_SZ+1];
494
495     if (!cellconfig)
496         return 0;
497
498     strcpy(krbrlm, (char *) krb_realmofhost(cellconfig->hostName[0]));
499
500     if (krb_get_admhst(krbhst, krbrlm, 1) != KSUCCESS)
501     {
502         char *s = krbrlm;
503         char *t = cellconfig->name;
504         int c;
505
506         while (c = *t++)
507         {
508             if (islower(c))
509                 c = toupper(c);
510             *s++ = c;
511         }
512         *s++ = 0;
513     }
514     return krbrlm;
515 }
516 #endif
517
518 /* As of MIT Kerberos 1.6, krb5_get_host_realm() will return the NUL-string 
519  * if there is no domain_realm mapping for the hostname's domain.  This is 
520  * used as a trigger indicating that referrals should be used within the
521  * krb5_get_credentials() call.  However, if the KDC does not support referrals
522  * that will result in a KRB5_ERR_HOST_REALM_UNKNOWN error and we will have
523  * to manually fallback to mapping the domain of the host as a realm name.
524  * Hence, the new fallback parameter.
525  */
526 static char *afs_realm_of_cell5(krb5_context context, struct afsconf_cell *cellconfig, int fallback)
527 {
528     char ** krbrlms = 0;
529     static char krbrlm[REALM_SZ+1];
530     krb5_error_code status;
531
532     if (!cellconfig)
533         return 0;
534
535     if (fallback) {
536         char * p;
537         p = strchr(cellconfig->hostName[0], '.');
538         if (p++)
539             strcpy(krbrlm, p);
540         else
541             strcpy(krbrlm, cellconfig->name);
542         strupr(krbrlm);
543     } else {
544         status = krb5_get_host_realm( context, cellconfig->hostName[0], &krbrlms );
545         if (status == 0 && krbrlms && krbrlms[0]) {
546             strcpy(krbrlm, krbrlms[0]);
547         } else {
548             strcpy(krbrlm, cellconfig->name);
549             strupr(krbrlm);
550         }
551
552         if (krbrlms)
553             krb5_free_host_realm( context, krbrlms );
554     }
555     return krbrlm;
556 }       
557
558 static char *copy_cellinfo(cellinfo_t *cellinfo)
559 {
560     cellinfo_t *new_cellinfo;
561
562     if (new_cellinfo = (cellinfo_t *)malloc(sizeof(cellinfo_t)))
563         memcpy(new_cellinfo, cellinfo, sizeof(cellinfo_t));
564
565     return ((char *)new_cellinfo);
566 }
567
568
569 static char *copy_string(char *string)
570 {
571     char *new_string;
572
573     if (new_string = (char *)calloc(strlen(string) + 1, sizeof(char)))
574         (void) strcpy(new_string, string);
575
576     return (new_string);
577 }       
578
579
580 static int get_cellconfig(char *cell, struct afsconf_cell *cellconfig,
581                                                   char *local_cell)
582 {
583     int status = AKLOG_SUCCESS;
584     struct afsconf_dir *configdir = 0;
585
586     memset(local_cell, 0, sizeof(local_cell));
587     memset(cellconfig, 0, sizeof(*cellconfig));
588
589     if (GetLocalCell(&configdir, local_cell))
590     {
591         fprintf(stderr, "%s: can't determine local cell.\n", progname);
592         akexit(AKLOG_AFS);
593     }
594
595     if ((cell == NULL) || (cell[0] == 0))
596         cell = local_cell;
597
598     if (GetCellInfo(&configdir, cell, &cellconfig))
599     {
600         fprintf(stderr, "%s: Can't get information about cell %s.\n",
601                 progname, cell);
602         status = AKLOG_AFS;
603     }
604
605
606     CloseConf(&configdir);
607
608     return(status);
609 }
610
611 static int get_v5_user_realm(krb5_context context,char *realm)
612 {
613     static krb5_principal client_principal = 0;
614     int i;
615
616     if (!_krb425_ccache)
617         krb5_cc_default(context, &_krb425_ccache);
618     if (!client_principal)
619         krb5_cc_get_principal(context, _krb425_ccache, &client_principal);
620
621     i = krb5_princ_realm(context, client_principal)->length;
622     if (i < REALM_SZ-1) i = REALM_SZ-1;
623     strncpy(realm,krb5_princ_realm(context, client_principal)->data,i);
624     realm[i] = 0;
625     return(KSUCCESS);
626 }
627
628 /*
629 * Log to a cell.  If the cell has already been logged to, return without
630 * doing anything.  Otherwise, log to it and mark that it has been logged
631 * to.  */
632 static int auth_to_cell(krb5_context context, char *cell, char *realm)
633 {
634     int status = AKLOG_SUCCESS;
635     char username[BUFSIZ];        /* To hold client username structure */
636
637     char name[ANAME_SZ];          /* Name of afs key */
638     char instance[INST_SZ];       /* Instance of afs key */
639     char realm_of_user[REALM_SZ]; /* Kerberos realm of user */
640     char realm_of_cell[REALM_SZ]; /* Kerberos realm of cell */
641     char local_cell[MAXCELLCHARS+1];
642     char cell_to_use[MAXCELLCHARS+1]; /* Cell to authenticate to */
643
644     krb5_creds *v5cred = NULL;
645 #ifdef HAVE_KRB4
646     CREDENTIALS c;
647 #endif
648     struct ktc_principal aserver;
649     struct ktc_principal aclient;
650     struct ktc_token atoken, btoken;
651     int i;
652
653     /* try to avoid an expensive call to get_cellconfig */
654     if (cell && ll_string_check(&authedcells, cell))
655     {
656         if (dflag)
657             printf("Already authenticated to %s (or tried to)\n", cell);
658         return(AKLOG_SUCCESS);
659     }
660
661     memset(name, 0, sizeof(name));
662     memset(instance, 0, sizeof(instance));
663     memset(realm_of_user, 0, sizeof(realm_of_user));
664     memset(realm_of_cell, 0, sizeof(realm_of_cell));
665
666     /* NULL or empty cell returns information on local cell */
667     if (status = get_cellconfig(cell, &ak_cellconfig, local_cell))
668         return(status);
669
670     strncpy(cell_to_use, ak_cellconfig.name, MAXCELLCHARS);
671     cell_to_use[MAXCELLCHARS] = 0;
672
673     if (ll_string_check(&authedcells, cell_to_use))
674     {
675         if (dflag)
676             printf("Already authenticated to %s (or tried to)\n", cell_to_use);
677         return(AKLOG_SUCCESS);
678     }
679
680     /*
681      * Record that we have attempted to log to this cell.  We do this
682      * before we try rather than after so that we will not try
683      * and fail repeatedly for one cell.
684      */
685     (void)ll_add_string(&authedcells, cell_to_use);
686
687     if (dflag)
688         printf("Authenticating to cell %s.\n", cell_to_use);
689
690     /* We use the afs.<cellname> convention here... */
691     strcpy(name, AFSKEY);
692     strncpy(instance, cell_to_use, sizeof(instance));
693     instance[sizeof(instance)-1] = '\0';
694
695     /*
696      * Extract the session key from the ticket file and hand-frob an
697      * afs style authenticator.
698      */
699
700     if (usev5) 
701     { /* using krb5 */
702         int retry = 1;
703         int realm_fallback = 0;
704
705         if ( strchr(name,'.') != NULL ) {
706             fprintf(stderr, "%s: Can't support principal names including a dot.\n",
707                     progname);
708             return(AKLOG_MISC);
709         }
710
711       try_v5:
712         if (realm && realm[0])
713             strcpy(realm_of_cell, realm);
714         else
715             strcpy(realm_of_cell,
716                     afs_realm_of_cell5(context, &ak_cellconfig, realm_fallback));
717
718         if (dflag)
719             printf("Getting v5 tickets: %s/%s@%s\n", name, instance, realm_of_cell);
720         status = get_v5cred(context, name, instance, realm_of_cell, 
721 #ifdef HAVE_KRB4
722                             use524 ? &c : NULL, 
723 #else
724                             NULL,
725 #endif
726                             &v5cred);
727
728         if (status == 0 && strcmp(realm_of_cell, "") == 0) {
729             krb5_error_code code;
730             krb5_ticket *ticket;
731
732             code = krb5_decode_ticket(&v5cred->ticket, &ticket);
733
734             if (code != 0) {
735                 fprintf(stderr,
736                          "%s: Couldn't decode ticket to determine realm for "
737                          "cell %s.\n",
738                          progname, cell_to_use);
739             } else {
740                 int len = krb5_princ_realm(context, ticket->server)->length;
741                 /* This really shouldn't happen. */
742                 if (len > REALM_SZ-1)
743                     len = REALM_SZ-1;
744
745                 strncpy(realm_of_cell, krb5_princ_realm(context, ticket->server)->data, len);
746                 realm_of_cell[len] = 0;
747
748                 krb5_free_ticket(context, ticket);
749             }
750         }
751
752         if (status == KRB5_ERR_HOST_REALM_UNKNOWN) {
753             realm_fallback = 1;
754             goto try_v5;
755         } else if (status == KRB5KDC_ERR_S_PRINCIPAL_UNKNOWN) {
756             if (!realm_of_cell[0]) {
757                 realm_fallback = 1;
758                 goto try_v5;
759             }
760             if (dflag)
761                 printf("Getting v5 tickets: %s@%s\n", name, realm_of_cell);
762             status = get_v5cred(context, name, "", realm_of_cell, 
763 #ifdef HAVE_KRB4
764                                 use524 ? &c : NULL, 
765 #else
766                                 NULL,
767 #endif
768                                 &v5cred);
769         }
770         if ( status == KRB5KRB_AP_ERR_MSG_TYPE && retry ) {
771             retry = 0;
772             realm_fallback = 0;
773             goto try_v5;
774         }       
775     }       
776     else 
777     {
778 #ifdef HAVE_KRB4
779         if (realm && realm[0])
780             strcpy(realm_of_cell, realm);
781         else
782             strcpy(realm_of_cell, afs_realm_of_cell(&ak_cellconfig));
783
784         /*
785          * Try to obtain AFS tickets.  Because there are two valid service
786          * names, we will try both, but trying the more specific first.
787          *
788          *      afs.<cell>@<realm>
789          *      afs@<realm>
790          */
791         if (dflag)
792             printf("Getting tickets: %s.%s@%s\n", name, instance, realm_of_cell);
793         status = get_cred(name, instance, realm_of_cell, &c);
794         if (status == KDC_PR_UNKNOWN)
795         {
796             if (dflag)
797                 printf("Getting tickets: %s@%s\n", name, realm_of_cell);
798             status = get_cred(name, "", realm_of_cell, &c);
799         }
800 #else
801         return(AKLOG_MISC);
802 #endif
803     } 
804
805     /* TODO: get k5 error text */
806     if (status != KSUCCESS)
807     {
808         if (dflag)
809             printf("Kerberos error code returned by get_cred: %d\n", status);
810         fprintf(stderr, "%s: Couldn't get %s AFS tickets: %s\n",
811                  progname, cell_to_use, 
812 #ifdef HAVE_KRB4
813                  (usev5)?"":krb_err_text(status)
814 #else
815                  ""
816 #endif
817                  );
818         return(AKLOG_KERBEROS);
819     }
820
821     strncpy(aserver.name, AFSKEY, MAXKTCNAMELEN - 1);
822     strncpy(aserver.instance, AFSINST, MAXKTCNAMELEN - 1);
823     strncpy(aserver.cell, cell_to_use, MAXKTCREALMLEN - 1);
824
825     if (usev5 && !use524) {
826         /* This code inserts the entire K5 ticket into the token
827          * No need to perform a krb524 translation which is
828          * commented out in the code below
829          */
830         char * p;
831         int len;
832         
833         len = min(v5cred->client->data[0].length,MAXKTCNAMELEN - 1);
834         strncpy(username, v5cred->client->data[0].data, len);
835         username[len] = '\0';
836
837         if ( v5cred->client->length > 1 ) {
838             strcat(username, ".");
839             p = username + strlen(username);
840             len = min(v5cred->client->data[1].length,MAXKTCNAMELEN - strlen(username) - 1);
841             strncpy(p, v5cred->client->data[1].data, len);
842             p[len] = '\0';
843         }
844
845         memset(&atoken, '\0', sizeof(atoken));
846         atoken.kvno = RXKAD_TKT_TYPE_KERBEROS_V5;
847         atoken.startTime = v5cred->times.starttime;
848         atoken.endTime = v5cred->times.endtime;
849         memcpy(&atoken.sessionKey, v5cred->keyblock.contents, v5cred->keyblock.length);
850         atoken.ticketLen = v5cred->ticket.length;
851         memcpy(atoken.ticket, v5cred->ticket.data, atoken.ticketLen);
852     } else {
853 #ifdef HAVE_KRB4
854         strcpy (username, c.pname);
855         if (c.pinst[0])
856         {
857             strcat(username, ".");
858             strcat(username, c.pinst);
859         }
860
861         atoken.kvno = c.kvno;
862         atoken.startTime = c.issue_date;
863         /* ticket lifetime is in five-minutes blocks. */
864         atoken.endTime = c.issue_date + ((unsigned char)c.lifetime * 5 * 60);
865
866         memcpy(&atoken.sessionKey, c.session, 8);
867         atoken.ticketLen = c.ticket_st.length;
868         memcpy(atoken.ticket, c.ticket_st.dat, atoken.ticketLen);
869 #else
870         return(AKLOG_MISC);
871 #endif
872     }
873
874     if (!force &&
875          !ktc_GetToken(&aserver, &btoken, sizeof(btoken), &aclient) &&
876          atoken.kvno == btoken.kvno &&
877          atoken.ticketLen == btoken.ticketLen &&
878          !memcmp(&atoken.sessionKey, &btoken.sessionKey, sizeof(atoken.sessionKey)) &&
879          !memcmp(atoken.ticket, btoken.ticket, atoken.ticketLen))
880     {       
881         if (dflag)
882             printf("Identical tokens already exist; skipping.\n");
883         return 0;
884     }
885
886     if (noprdb)
887     {
888         if (dflag)
889             printf("Not resolving name %s to id (-noprdb set)\n", username);
890     }       
891     else    
892     {
893         if (usev5) {
894             if((status = get_v5_user_realm(context, realm_of_user)) != KSUCCESS) {
895                 fprintf(stderr, "%s: Couldn't determine realm of user: %d\n",
896                          progname, status);
897                 return(AKLOG_KERBEROS);
898             }
899         } else {
900 #ifdef HAVE_KRB4
901             if ((status = krb_get_tf_realm(TKT_FILE, realm_of_user)) != KSUCCESS)
902             {
903                 fprintf(stderr, "%s: Couldn't determine realm of user: %s)",
904                          progname, krb_err_text(status));
905                 return(AKLOG_KERBEROS);
906             }
907 #else
908             return(AKLOG_MISC);
909 #endif
910         }
911
912         /* For Khimaira we want to always append the realm to the name */
913         if (1 /* strcmp(realm_of_user, realm_of_cell) */)
914         {
915             strcat(username, "@");
916             strcat(username, realm_of_user);
917         }
918
919         ViceIDToUsername(username, realm_of_user, realm_of_cell, cell_to_use, 
920 #ifdef HAVE_KRB4
921                           &c, 
922 #else
923                           NULL,
924 #endif
925                           &status, &aclient, &aserver, &atoken);
926     }
927
928     if (dflag)
929         printf("Set username to %s\n", username);
930
931     /* Reset the "aclient" structure before we call ktc_SetToken.
932      * This structure was first set by the ktc_GetToken call when
933      * we were comparing whether identical tokens already existed.
934      */
935     strncpy(aclient.name, username, MAXKTCNAMELEN - 1);
936     strcpy(aclient.instance, "");
937     
938     if (usev5 && !use524) {
939         int len = min(v5cred->client->realm.length,MAXKTCNAMELEN - 1);
940         strncpy(aclient.cell, v5cred->client->realm.data, len);
941         aclient.cell[len] = '\0';
942     } 
943 #ifdef HAVE_KRB4
944     else
945         strncpy(aclient.cell, c.realm, MAXKTCREALMLEN - 1);
946 #endif
947
948     for ( i=0; aclient.cell[i]; i++ ) {
949         if ( islower(aclient.cell[i]) )
950             aclient.cell[i] = toupper(aclient.cell[i]);
951     }
952
953     if (dflag)
954         printf("Getting tokens.\n");
955     if (status = ktc_SetToken(&aserver, &atoken, &aclient, 0))
956     {
957         fprintf(stderr,
958                  "%s: unable to obtain tokens for cell %s (status: %d).\n",
959                  progname, cell_to_use, status);
960         status = AKLOG_TOKEN;
961     }
962
963     return(status);
964 }
965
966 static int get_afs_mountpoint(char *file, char *mountpoint, int size)
967 {
968     char our_file[MAXPATHLEN + 1];
969     char *parent_dir;
970     char *last_component;
971     struct ViceIoctl vio;
972     char cellname[BUFSIZ];
973
974     memset(our_file, 0, sizeof(our_file));
975     strcpy(our_file, file);
976
977     if (last_component = LastComponent(our_file))
978     {
979         *last_component++ = 0;
980         parent_dir = our_file;
981     }
982     else
983     {
984         last_component = our_file;
985         parent_dir = ".";
986     }
987
988     memset(cellname, 0, sizeof(cellname));
989
990     vio.in = last_component;
991     vio.in_size = strlen(last_component)+1;
992     vio.out_size = size;
993     vio.out = mountpoint;
994
995     if (!pioctl(parent_dir, VIOC_AFS_STAT_MT_PT, &vio, 0))
996     {
997         if (strchr(mountpoint, VOLMARKER) == NULL)
998         {
999             vio.in = file;
1000             vio.in_size = strlen(file) + 1;
1001             vio.out_size = sizeof(cellname);
1002             vio.out = cellname;
1003
1004             if (!pioctl(file, VIOC_FILE_CELL_NAME, &vio, 1))
1005             {
1006                 strcat(cellname, VOLMARKERSTRING);
1007                 strcat(cellname, mountpoint + 1);
1008                 memset(mountpoint + 1, 0, size - 1);
1009                 strcpy(mountpoint + 1, cellname);
1010             }
1011         }
1012         return(TRUE);
1013     }
1014     else {
1015         return(FALSE);
1016     }
1017 }       
1018
1019 /*
1020 * This routine each time it is called returns the next directory
1021 * down a pathname.  It resolves all symbolic links.  The first time
1022 * it is called, it should be called with the name of the path
1023 * to be descended.  After that, it should be called with the arguemnt
1024 * NULL.
1025 */
1026 static char *next_path(char *origpath)
1027 {
1028     static char path[MAXPATHLEN + 1];
1029     static char pathtocheck[MAXPATHLEN + 1];
1030
1031     int link = FALSE;           /* Is this a symbolic link? */
1032     char linkbuf[MAXPATHLEN + 1];
1033     char tmpbuf[MAXPATHLEN + 1];
1034
1035     static char *last_comp;     /* last component of directory name */
1036     static char *elast_comp;    /* End of last component */
1037     char *t;
1038     int len;
1039
1040     static int symlinkcount = 0;        /* We can't exceed MAXSYMLINKS */
1041
1042     /* If we are given something for origpath, we are initializing only. */
1043     if (origpath)
1044     {
1045         memset(path, 0, sizeof(path));
1046         memset(pathtocheck, 0, sizeof(pathtocheck));
1047         CopyPathColon(origpath, path, pathtocheck);
1048         last_comp = path;
1049         symlinkcount = 0;
1050         return(NULL);
1051     }
1052
1053     /* We were not given origpath; find then next path to check */
1054
1055     /* If we've gotten all the way through already, return NULL */
1056     if (last_comp == NULL)
1057         return(NULL);
1058
1059     do
1060     {
1061         while (BeginsWithDir(last_comp, FALSE))
1062             strncat(pathtocheck, last_comp++, 1);
1063         len = (elast_comp = LastComponent(last_comp))
1064             ? elast_comp - last_comp : strlen(last_comp);
1065         strncat(pathtocheck, last_comp, len);
1066         memset(linkbuf, 0, sizeof(linkbuf));
1067         if (link = (readlink(pathtocheck, linkbuf, sizeof(linkbuf)) > 0))
1068         {
1069             if (++symlinkcount > MAXSYMLINKS)
1070             {
1071                 fprintf(stderr, "%s: %s\n", progname, strerror(ELOOP));
1072                 akexit(AKLOG_BADPATH);
1073             }
1074             memset(tmpbuf, 0, sizeof(tmpbuf));
1075             if (elast_comp)
1076                 strcpy(tmpbuf, elast_comp);
1077             if (BeginsWithDir(linkbuf, FALSE))
1078             {
1079                 /*
1080                 * If this is a symbolic link to an absolute path,
1081                 * replace what we have by the absolute path.
1082                 */
1083                 memset(path, 0, strlen(path));
1084                 memcpy(path, linkbuf, sizeof(linkbuf));
1085                 strcat(path, tmpbuf);
1086                 last_comp = path;
1087                 elast_comp = NULL;
1088                 memset(pathtocheck, 0, sizeof(pathtocheck));
1089             }
1090             else
1091             {
1092                 /*
1093                 * If this is a symbolic link to a relative path,
1094                 * replace only the last component with the link name.
1095                 */
1096                 strncpy(last_comp, linkbuf, strlen(linkbuf) + 1);
1097                 strcat(path, tmpbuf);
1098                 elast_comp = NULL;
1099                 if (t = LastComponent(pathtocheck))
1100                 {
1101                     t++;
1102                     memset(t, 0, strlen(t));
1103                 }
1104                 else
1105                     memset(pathtocheck, 0, sizeof(pathtocheck));
1106             }
1107         }
1108         else
1109             last_comp = elast_comp;
1110     }       
1111     while(link);
1112
1113     return(pathtocheck);
1114 }
1115
1116 /*
1117 * This routine descends through a path to a directory, logging to
1118 * every cell it encounters along the way.
1119 */
1120 static int auth_to_path(krb5_context context, char *path)
1121 {
1122     int status = AKLOG_SUCCESS;
1123     int auth_to_cell_status = AKLOG_SUCCESS;
1124
1125     char *nextpath;
1126     char pathtocheck[MAXPATHLEN + 1];
1127     char mountpoint[MAXPATHLEN + 1];
1128
1129     char *cell;
1130     char *endofcell;
1131
1132     /* Initialize */
1133     if (BeginsWithDir(path, TRUE))
1134         strcpy(pathtocheck, path);
1135     else
1136     {
1137         if (getcwd(pathtocheck, sizeof(pathtocheck)) == NULL)
1138         {
1139             fprintf(stderr, "Unable to find current working directory:\n");
1140             fprintf(stderr, "%s\n", pathtocheck);
1141             fprintf(stderr, "Try an absolute pathname.\n");
1142             akexit(AKLOG_BADPATH);
1143         }
1144         else
1145         {
1146             /* in WIN32, if getcwd returns a root dir (eg: c:\), the returned string
1147             * will already have a trailing slash ('\'). Otherwise, the string will
1148             * end in the last directory name */
1149 #ifdef WIN32    
1150             if(pathtocheck[strlen(pathtocheck) - 1] != BDIR)
1151 #endif  
1152                 strcat(pathtocheck, DIRSTRING);
1153             strcat(pathtocheck, path);
1154         }
1155     }
1156     next_path(pathtocheck);
1157
1158     /* Go on to the next level down the path */
1159     while (nextpath = next_path(NULL))
1160     {
1161         strcpy(pathtocheck, nextpath);
1162         if (dflag)
1163             printf("Checking directory [%s]\n", pathtocheck);
1164         /*
1165         * If this is an afs mountpoint, determine what cell from
1166         * the mountpoint name which is of the form
1167         * #cellname:volumename or %cellname:volumename.
1168         */
1169         if (get_afs_mountpoint(pathtocheck, mountpoint, sizeof(mountpoint)))
1170         {
1171             if(dflag)
1172                 printf("Found mount point [%s]\n", mountpoint);
1173             /* skip over the '#' or '%' */
1174             cell = mountpoint + 1;
1175             if (endofcell = strchr(mountpoint, VOLMARKER))
1176             {
1177                 *endofcell = '\0';
1178                 if (auth_to_cell_status = auth_to_cell(context, cell, NULL))
1179                 {
1180                     if (status == AKLOG_SUCCESS)
1181                         status = auth_to_cell_status;
1182                     else if (status != auth_to_cell_status)
1183                         status = AKLOG_SOMETHINGSWRONG;
1184                 }
1185             }
1186         }
1187         else
1188         {
1189             struct stat st;
1190
1191             if (lstat(pathtocheck, &st) < 0)
1192             {
1193                 /*
1194                 * If we've logged and still can't stat, there's
1195                 * a problem...
1196                 */
1197                 fprintf(stderr, "%s: stat(%s): %s\n", progname,
1198                          pathtocheck, strerror(errno));
1199                 return(AKLOG_BADPATH);
1200             }
1201             else if (!S_ISDIR(st.st_mode))
1202             {
1203                 /* Allow only directories */
1204                 fprintf(stderr, "%s: %s: %s\n", progname, pathtocheck,
1205                          strerror(ENOTDIR));
1206                 return(AKLOG_BADPATH);
1207             }
1208         }
1209     }
1210
1211     return(status);
1212 }
1213
1214 /* Print usage message and exit */
1215 static void usage(void)
1216 {
1217     fprintf(stderr, "\nUsage: %s %s%s%s%s\n", progname,
1218              "[-d] [[-cell | -c] cell [-k krb_realm]] ",
1219              "[[-p | -path] pathname]\n",
1220              "    [-noprdb] [-force]\n",
1221 #ifdef HAVE_KRB4
1222              "    [-5 [-m]| -4]\n"
1223 #else
1224              "    [-5]\n"
1225 #endif
1226              );
1227     fprintf(stderr, "    -d gives debugging information.\n");
1228     fprintf(stderr, "    krb_realm is the kerberos realm of a cell.\n");
1229     fprintf(stderr, "    pathname is the name of a directory to which ");
1230     fprintf(stderr, "you wish to authenticate.\n");
1231     fprintf(stderr, "    -noprdb means don't try to determine AFS ID.\n");
1232 #ifdef HAVE_KRB4
1233     fprintf(stderr, "    -5 or -4 selects whether to use Kerberos v5 or Kerberos v4.\n"
1234                     "       (default is Kerberos v5)\n");
1235     fprintf(stderr, "       -m means use krb524d to convert Kerberos v5 tickets.\n");
1236 #else
1237     fprintf(stderr, "    -5 use Kerberos v5.\n"
1238                     "       (only Kerberos v5 is available)\n");
1239 #endif
1240     fprintf(stderr, "    No commandline arguments means ");
1241     fprintf(stderr, "authenticate to the local cell.\n");
1242     fprintf(stderr, "\n");
1243     akexit(AKLOG_USAGE);
1244 }
1245
1246 void
1247 validate_krb5_availability(void)
1248 {
1249 #ifndef _WIN64
1250 #define KRB5LIB "krb5_32.dll"
1251 #else
1252 #define KRB5LIB "krb5_64.dll"
1253 #endif
1254     HINSTANCE h = LoadLibrary(KRB5LIB);
1255     if (h) 
1256         FreeLibrary(h);
1257     else {
1258         fprintf(stderr, "Kerberos for Windows library %s is not available.\n", KRB5LIB);
1259         akexit(AKLOG_KFW_NOT_INSTALLED);
1260     }
1261 }
1262
1263 void
1264 validate_krb4_availability(void)
1265 {
1266 #ifdef HAVE_KRB4
1267     HINSTANCE h = LoadLibrary("krbv4w32.dll");
1268     if (h) 
1269         FreeLibrary(h);
1270     else {
1271         fprintf(stderr, "Kerberos for Windows library krbv4w32.dll is not available.\n");
1272         akexit(AKLOG_KFW_NOT_INSTALLED);
1273     }
1274 #else
1275     fprintf(stderr, "Kerberos v4 is not available in this build of aklog.\n");
1276     akexit(AKLOG_USAGE);
1277 #endif
1278 }
1279
1280 int main(int argc, char *argv[])
1281 {
1282     int status = AKLOG_SUCCESS;
1283     int i;
1284     int somethingswrong = FALSE;
1285
1286     cellinfo_t cellinfo;
1287
1288     extern char *progname;      /* Name of this program */
1289
1290     extern int dflag;           /* Debug mode */
1291
1292     int cmode = FALSE;          /* Cellname mode */
1293     int pmode = FALSE;          /* Path name mode */
1294
1295     char realm[REALM_SZ];               /* Kerberos realm of afs server */
1296     char cell[BUFSIZ];          /* Cell to which we are authenticating */
1297     char path[MAXPATHLEN + 1];  /* Path length for path mode */
1298
1299     linked_list cells;          /* List of cells to log to */
1300     linked_list paths;          /* List of paths to log to */
1301     ll_node *cur_node;
1302
1303     memset(&cellinfo, 0, sizeof(cellinfo));
1304
1305     memset(realm, 0, sizeof(realm));
1306     memset(cell, 0, sizeof(cell));
1307     memset(path, 0, sizeof(path));
1308
1309     ll_init(&cells);
1310     ll_init(&paths);
1311
1312     /* Store the program name here for error messages */
1313     if (progname = LastComponent(argv[0]))
1314         progname++;
1315     else
1316         progname = argv[0];
1317
1318     /* Initialize list of cells to which we have authenticated */
1319     (void)ll_init(&authedcells);
1320
1321     /* Parse commandline arguments and make list of what to do. */
1322     for (i = 1; i < argc; i++)
1323     {
1324         if (strcmp(argv[i], "-d") == 0)
1325             dflag++;
1326         else if (strcmp(argv[i], "-5") == 0)
1327             usev5++;
1328 #ifdef HAVE_KRB4
1329         else if (strcmp(argv[i], "-m") == 0)
1330             use524++;
1331         else if (strcmp(argv[i], "-4") == 0)
1332             usev5 = 0;
1333 #endif
1334         else if (strcmp(argv[i], "-noprdb") == 0)
1335             noprdb++;
1336         else if (strcmp(argv[i], "-force") == 0)
1337             force++;
1338         else if (((strcmp(argv[i], "-cell") == 0) ||
1339                    (strcmp(argv[i], "-c") == 0)) && !pmode)
1340         {       
1341             if (++i < argc)
1342             {
1343                 cmode++;
1344                 strcpy(cell, argv[i]);
1345             }
1346             else
1347                 usage();
1348         }
1349         else if (((strcmp(argv[i], "-path") == 0) ||
1350                    (strcmp(argv[i], "-p") == 0)) && !cmode)
1351         {       
1352             if (++i < argc)
1353             {
1354                 pmode++;
1355                 strcpy(path, argv[i]);
1356             }
1357             else
1358                 usage();
1359         }
1360         else if (argv[i][0] == '-')
1361             usage();
1362         else if (!pmode && !cmode)
1363         {
1364             if (FirstComponent(argv[i]) || (strcmp(argv[i], ".") == 0) ||
1365                  (strcmp(argv[i], "..") == 0))
1366             {
1367                 pmode++;
1368                 strcpy(path, argv[i]);
1369             }
1370             else
1371             {
1372                 cmode++;
1373                 strcpy(cell, argv[i]);
1374             }
1375         }
1376         else
1377             usage();
1378
1379         if (cmode)
1380         {
1381             if (((i + 1) < argc) && (strcmp(argv[i + 1], "-k") == 0))
1382             {
1383                 i += 2;
1384                 if (i < argc)
1385                     strcpy(realm, argv[i]);
1386                 else
1387                     usage();
1388             }
1389             /* Add this cell to list of cells */
1390             strcpy(cellinfo.cell, cell);
1391             strcpy(cellinfo.realm, realm);
1392             if (cur_node = ll_add_node(&cells, ll_tail))
1393             {
1394                 char *new_cellinfo;
1395                 if (new_cellinfo = copy_cellinfo(&cellinfo))
1396                     ll_add_data(cur_node, new_cellinfo);
1397                 else
1398                 {
1399                     fprintf(stderr, "%s: failure copying cellinfo.\n", progname);
1400                     akexit(AKLOG_MISC);
1401                 }
1402             }
1403             else
1404             {
1405                 fprintf(stderr, "%s: failure adding cell to cells list.\n",
1406                          progname);
1407                 akexit(AKLOG_MISC);
1408             }
1409             memset(&cellinfo, 0, sizeof(cellinfo));
1410             cmode = FALSE;
1411             memset(cell, 0, sizeof(cell));
1412             memset(realm, 0, sizeof(realm));
1413         }
1414         else if (pmode)
1415         {
1416             /* Add this path to list of paths */
1417             if (cur_node = ll_add_node(&paths, ll_tail))
1418             {
1419                 char *new_path;
1420                 if (new_path = copy_string(path))
1421                     ll_add_data(cur_node, new_path);
1422                 else
1423                 {
1424                     fprintf(stderr, "%s: failure copying path name.\n",
1425                              progname);
1426                     akexit(AKLOG_MISC);
1427                 }
1428             }
1429             else
1430             {
1431                 fprintf(stderr, "%s: failure adding path to paths list.\n",
1432                          progname);
1433                 akexit(AKLOG_MISC);
1434             }
1435             pmode = FALSE;
1436             memset(path, 0, sizeof(path));
1437         }
1438     }
1439
1440     if (usev5)
1441         validate_krb5_availability();
1442     else 
1443         validate_krb4_availability();
1444
1445     if(usev5)
1446         krb5_init_context(&context);
1447
1448     /* If nothing was given, log to the local cell. */
1449     if ((cells.nelements + paths.nelements) == 0)
1450         status = auth_to_cell(context, NULL, NULL);
1451     else
1452     {
1453         /* Log to all cells in the cells list first */
1454         for (cur_node = cells.first; cur_node; cur_node = cur_node->next)
1455         {
1456             memcpy(&cellinfo, cur_node->data, sizeof(cellinfo));
1457             if (status = auth_to_cell(context, 
1458                                        cellinfo.cell, cellinfo.realm))
1459                 somethingswrong++;
1460         }       
1461
1462         /* Then, log to all paths in the paths list */
1463         for (cur_node = paths.first; cur_node; cur_node = cur_node->next)
1464         {
1465             if (status = auth_to_path(context, 
1466                                        cur_node->data))
1467                 somethingswrong++;
1468         }
1469
1470         /*
1471         * If only one thing was logged to, we'll return the status
1472         * of the single call.  Otherwise, we'll return a generic
1473         * something failed status.
1474         */
1475         if (somethingswrong && ((cells.nelements + paths.nelements) > 1))
1476             status = AKLOG_SOMETHINGSWRONG;
1477     }       
1478
1479     akexit(status);
1480 }