krb5mapcc.c

   1 #include <stdlib.h>
   2 #include <stdio.h>
   3 #include <unistd.h>
   4 #include <errno.h>
   5 #include <ctype.h>
   6 #include <dirent.h>
   7 #include <fcntl.h>
   8 #include <string.h>
   9
  10 int isnumeric(char *str)
  11 {
  12     while(*str) {
  13         if(!isdigit(*str))
  14             return(0);
  15         str++;
  16     }
  17     return(1);
  18 }
  19
  20 char *findcc(int fd)
  21 {
  22     int ret, dlen;
  23     static char retbuf[1024];
  24     char readbuf[1024];
  25     char *p, *p2;
  26
  27     dlen = 0;
  28     p = readbuf;
  29     do {
  30         if(dlen == 1024)
  31             dlen = 0;
  32         ret = read(fd, readbuf + dlen, sizeof(readbuf) - dlen);
  33         if(ret < 0) {
  34             perror("read environ");
  35             return(NULL);
  36         }
  37         dlen += ret;
  38
  39         while((p = memchr(readbuf, 0, dlen)) != NULL) {
  40             if((p2 = strchr(readbuf, '=')) != NULL) {
  41                 *(p2++) = 0;
  42                 if(!strcasecmp(readbuf, "KRB5CCNAME") && !strncasecmp(p2, "FILE:", 5)) {
  43                     if(strlen(p2 + 5) >= sizeof(retbuf)) {
  44                         fprintf(stderr, "really long ccname!\n");
  45                         return(NULL);
  46                     }
  47                     strcpy(retbuf, p2 + 5);
  48                     return(retbuf);
  49                 }
  50             }
  51             p++;
  52             memmove(readbuf, p, dlen -= (p - readbuf));
  53         }
  54     } while(ret != 0);
  55     return(NULL);
  56 }
  57
  58 int main(int argc, char **argv)
  59 {
  60     int fd;
  61     DIR *proc;
  62     struct dirent *de;
  63     char envbuf[1024];
  64     char *p, *cc;
  65
  66     if((proc = opendir("/proc")) == NULL) {
  67         perror("/proc");
  68         exit(1);
  69     }
  70     while((de = readdir(proc)) != NULL) {
  71         if(!isnumeric(de->d_name))
  72             continue;
  73         if(strlen(de->d_name) > 30)
  74             continue;
  75
  76         p = envbuf;
  77         strcpy(p, "/proc/");
  78         p += 6;
  79         strcpy(p, de->d_name);
  80         p += strlen(de->d_name);
  81         *(p++) = '/';
  82         strcpy(p, "environ");
  83
  84         if((fd = open(envbuf, O_RDONLY)) < 0)
  85             continue;
  86         cc = findcc(fd);
  87         close(fd);
  88
  89         if(cc != NULL) {
  90             printf("%s %s\n", de->d_name, cc);
  91         }
  92     }
  93     closedir(proc);
  94     return(0);
  95 }