kadmin/dump.c

   1 /*
   2  * Copyright (c) 1997 Kungliga Tekniska Högskolan
   3  * (Royal Institute of Technology, Stockholm, Sweden).
   4  * All rights reserved.
   5  *
   6  * Redistribution and use in source and binary forms, with or without
   7  * modification, are permitted provided that the following conditions
   8  * are met:
   9  *
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  *
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  *
  17  * 3. All advertising materials mentioning features or use of this software
  18  *    must display the following acknowledgement:
  19  *      This product includes software developed by Kungliga Tekniska
  20  *      Högskolan and its contributors.
  21  *
  22  * 4. Neither the name of the Institute nor the names of its contributors
  23  *    may be used to endorse or promote products derived from this software
  24  *    without specific prior written permission.
  25  *
  26  * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
  27  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  28  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  29  * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
  30  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  31  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  32  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  33  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  34  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  35  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  36  * SUCH DAMAGE.
  37  */
  38
  39 #include "admin_locl.h"
  40
  41 RCSID("$Id$");
  42
  43 /*
  44    This is the present contents of a dump line. This might change at
  45    any time. Fields are separated by white space.
  46
  47   principal
  48   keyblock
  49         kvno
  50         keys...
  51                 mkvno (unused)
  52                 keytype
  53                 keyvalue
  54                 salt (- means use normal salt)
  55   creation date and principal
  56   modification date and principal
  57   principal valid from date (not used)
  58   principal valid end date (not used)
  59   principal key expires (not used)
  60   max ticket life
  61   max renewable life
  62   flags
  63   */
  64
  65 static void
  66 append_hex(char *str, krb5_data *data)
  67 {
  68     int i;
  69     char *p = calloc(1, data->length * 2 + 1);
  70     for(i = 0; i < data->length; i++)
  71         sprintf(p + 2 * i, "%02x", ((u_char*)data->data)[i]);
  72     strcat(str, p);
  73     free(p);
  74 }
  75
  76 int
  77 hdb_entry2string(hdb_entry *ent, char **str)
  78 {
  79     char *p;
  80     char buf[1024] = "";
  81     int i, j;
  82     krb5_unparse_name(context, ent->principal, &p);
  83     strcat(buf, p);
  84     strcat(buf, " ");
  85     free(p);
  86     asprintf(&p, "%d", ent->kvno);
  87     strcat(buf, p);
  88     free(p);
  89     for(i = 0; i < ent->keys.len; i++){
  90         asprintf(&p, ":%d:%d:",
  91                  ent->keys.val[i].mkvno,
  92                  ent->keys.val[i].key.keytype);
  93         strcat(buf, p);
  94         free(p);
  95         append_hex(buf, &ent->keys.val[i].key.keyvalue);
  96         strcat(buf, ":");
  97         if(ent->keys.val[i].salt)
  98             append_hex(buf, ent->keys.val[i].salt);
  99         else
 100             strcat(buf, "-");
 101     }
 102     strcat(buf, " ");
 103     event2string(&ent->created_by, &p);
 104     strcat(buf, p);
 105     strcat(buf, " ");
 106     free(p);
 107     event2string(ent->modified_by, &p);
 108     strcat(buf, p);
 109     strcat(buf, " ");
 110     free(p);
 111
 112     if(ent->valid_start)
 113         strcat(buf, time2str(*ent->valid_start));
 114     else
 115         strcat(buf, "-");
 116
 117     strcat(buf, " ");
 118     if(ent->valid_end)
 119         strcat(buf, time2str(*ent->valid_end));
 120     else
 121         strcat(buf, "-");
 122
 123     strcat(buf, " ");
 124     if(ent->pw_end)
 125         strcat(buf, time2str(*ent->pw_end));
 126     else
 127         strcat(buf, "-");
 128
 129     strcat(buf, " ");
 130     if(ent->max_life){
 131         asprintf(&p, "%d", *ent->max_life);
 132         strcat(buf, p);
 133         free(p);
 134     }else
 135         strcat(buf, "-");
 136
 137     strcat(buf, " ");
 138     if(ent->max_renew){
 139         asprintf(&p, "%d", *ent->max_renew);
 140         strcat(buf, p);
 141         free(p);
 142     }else
 143         strcat(buf, "-");
 144
 145     strcat(buf, " ");
 146     asprintf(&p, "%d", flags2int(&ent->flags));
 147     strcat(buf, p);
 148     free(p);
 149
 150     *str = strdup(buf);
 151
 152     return 0;
 153 }
 154
 155 krb5_error_code
 156 print_entry(krb5_context context, HDB *db, hdb_entry *entry, void *data)
 157 {
 158     char *p;
 159     hdb_entry2string(entry, &p);
 160     fprintf((FILE*)data, "%s\n", p);
 161     free(p);
 162     return 0;
 163 }
 164
 165
 166 int
 167 dump(int argc, char **argv)
 168 {
 169     HDB *db;
 170     int ret;
 171     FILE *f;
 172
 173     if(argc < 2)
 174         f = stdout;
 175     else
 176         f = fopen(argv[1], "w");
 177
 178
 179     ret = hdb_open(context, &db, database, O_RDONLY, 0600);
 180     if(ret){
 181         krb5_warn(context, ret, "hdb_open");
 182         if(f != stdout)
 183             fclose(f);
 184         return 0;
 185     }
 186
 187     hdb_foreach(context, db, print_entry, f);
 188
 189     if(f != stdout)
 190         fclose(f);
 191     db->close(context, db);
 192     return 0;
 193 }