admin/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;
  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             asprintf(&p, "%u/", ent->keys.val[i].salt->type);
  99             strcat(buf, p);
 100             free(p);
 101             append_hex(buf, &ent->keys.val[i].salt->salt);
 102         }else
 103             strcat(buf, "-");
 104     }
 105     strcat(buf, " ");
 106     event2string(&ent->created_by, &p);
 107     strcat(buf, p);
 108     strcat(buf, " ");
 109     free(p);
 110     event2string(ent->modified_by, &p);
 111     strcat(buf, p);
 112     strcat(buf, " ");
 113     free(p);
 114
 115     if(ent->valid_start)
 116         strcat(buf, time2str(*ent->valid_start));
 117     else
 118         strcat(buf, "-");
 119
 120     strcat(buf, " ");
 121     if(ent->valid_end)
 122         strcat(buf, time2str(*ent->valid_end));
 123     else
 124         strcat(buf, "-");
 125
 126     strcat(buf, " ");
 127     if(ent->pw_end)
 128         strcat(buf, time2str(*ent->pw_end));
 129     else
 130         strcat(buf, "-");
 131
 132     strcat(buf, " ");
 133     if(ent->max_life){
 134         asprintf(&p, "%d", *ent->max_life);
 135         strcat(buf, p);
 136         free(p);
 137     }else
 138         strcat(buf, "-");
 139
 140     strcat(buf, " ");
 141     if(ent->max_renew){
 142         asprintf(&p, "%d", *ent->max_renew);
 143         strcat(buf, p);
 144         free(p);
 145     }else
 146         strcat(buf, "-");
 147
 148     strcat(buf, " ");
 149     asprintf(&p, "%d", HDBFlags2int(ent->flags));
 150     strcat(buf, p);
 151     free(p);
 152
 153     *str = strdup(buf);
 154
 155     return 0;
 156 }
 157
 158 krb5_error_code
 159 print_entry(krb5_context context, HDB *db, hdb_entry *entry, void *data)
 160 {
 161     char *p;
 162     hdb_entry2string(entry, &p);
 163     fprintf((FILE*)data, "%s\n", p);
 164     free(p);
 165     return 0;
 166 }
 167
 168
 169 int
 170 dump(int argc, char **argv)
 171 {
 172     HDB *db;
 173     int ret;
 174     FILE *f;
 175
 176     if(argc < 2)
 177         f = stdout;
 178     else
 179         f = fopen(argv[1], "w");
 180
 181
 182     ret = hdb_open(context, &db, database, O_RDONLY, 0600);
 183     if(ret){
 184         krb5_warn(context, ret, "hdb_open");
 185         if(f != stdout)
 186             fclose(f);
 187         return 0;
 188     }
 189
 190     hdb_foreach(context, db, print_entry, f);
 191
 192     if(f != stdout)
 193         fclose(f);
 194     db->close(context, db);
 195     return 0;
 196 }