etc/cnid_dbd/dbif.c

   1 /*
   2  * $Id: dbif.c,v 1.18 2009-12-20 16:04:21 franklahm Exp $
   3  *
   4  * Copyright (C) Joerg Lenneis 2003
   5  * Copyright (C) Frank Lahm 2009
   6  * All Rights Reserved.  See COPYING.
   7  */
   8
   9 #ifdef HAVE_CONFIG_H
  10 #include "config.h"
  11 #endif /* HAVE_CONFIG_H */
  12
  13 #include <stdio.h>
  14 #include <errno.h>
  15 #include <stdlib.h>
  16 #ifdef HAVE_SYS_TYPES_H
  17 #include <sys/types.h>
  18 #endif /* HAVE_SYS_TYPES_H */
  19 #include <string.h>
  20 #include <sys/types.h>
  21 #include <sys/stat.h>
  22 #include <sys/cdefs.h>
  23 #include <unistd.h>
  24 #include <atalk/logger.h>
  25 #include <db.h>
  26 #include "db_param.h"
  27 #include "dbif.h"
  28 #include "pack.h"
  29
  30 #define DB_ERRLOGFILE "db_errlog"
  31
  32 static char *old_dbfiles[] = {"cnid.db", NULL};
  33
  34 /* --------------- */
  35 static int upgrade_required(void)
  36 {
  37     int i;
  38     int found = 0;
  39     struct stat st;
  40
  41     for (i = 0; old_dbfiles[i] != NULL; i++) {
  42         if ( !(stat(old_dbfiles[i], &st) < 0) ) {
  43             found++;
  44             continue;
  45         }
  46         if (errno != ENOENT) {
  47             LOG(log_error, logtype_cnid, "cnid_open: Checking %s gave %s", old_dbfiles[i], strerror(errno));
  48             found++;
  49         }
  50     }
  51     return found;
  52 }
  53
  54 /* --------------- */
  55 int dbif_stamp(DBD *dbd, void *buffer, int size)
  56 {
  57     struct stat st;
  58     int         rc,cwd;
  59
  60     if (size < 8)
  61         return -1;
  62
  63     /* Remember cwd */
  64     if ((cwd = open(".", O_RDONLY)) < 0) {
  65         LOG(log_error, logtype_cnid, "error opening cwd: %s", strerror(errno));
  66         return -1;
  67     }
  68
  69     /* chdir to db_envhome */
  70     if ((chdir(dbd->db_envhome)) != 0) {
  71         LOG(log_error, logtype_cnid, "error chdiring to db_env '%s': %s", dbd->db_envhome, strerror(errno));
  72         return -1;
  73     }
  74
  75     if ((rc = stat(dbd->db_table[DBIF_CNID].name, &st)) < 0) {
  76         LOG(log_error, logtype_cnid, "error stating database %s: %s", dbd->db_table[DBIF_CNID].name, db_strerror(rc));
  77         return -1;
  78     }
  79     memset(buffer, 0, size);
  80     memcpy(buffer, &st.st_ctime, sizeof(st.st_ctime));
  81
  82     if ((fchdir(cwd)) != 0) {
  83         LOG(log_error, logtype_cnid, "error chdiring back: %s", strerror(errno));
  84         return -1;
  85     }
  86
  87     return 0;
  88 }
  89
  90 /* --------------- */
  91 DBD *dbif_init(const char *envhome, const char *filename)
  92 {
  93     DBD *dbd;
  94
  95     if ( NULL == (dbd = calloc(sizeof(DBD), 1)) )
  96         return NULL;
  97
  98     /* filename == NULL means in memory db */
  99     if (filename) {
 100         if (! envhome)
 101             return NULL;
 102
 103         dbd->db_envhome = strdup(envhome);
 104         if (NULL == dbd->db_envhome) {
 105             free(dbd);
 106             return NULL;
 107         }
 108
 109         dbd->db_filename = strdup(filename);
 110         if (NULL == dbd->db_filename) {
 111             free(dbd->db_envhome);
 112             free(dbd);
 113             return NULL;
 114         }
 115     }
 116
 117     dbd->db_table[DBIF_CNID].name        = "cnid2.db";
 118     dbd->db_table[DBIF_IDX_DEVINO].name  = "devino.db";
 119     dbd->db_table[DBIF_IDX_DIDNAME].name = "didname.db";
 120
 121     dbd->db_table[DBIF_CNID].type        = DB_BTREE;
 122     dbd->db_table[DBIF_IDX_DEVINO].type  = DB_BTREE;
 123     dbd->db_table[DBIF_IDX_DIDNAME].type = DB_BTREE;
 124
 125     dbd->db_table[DBIF_CNID].openflags        = DB_CREATE;
 126     dbd->db_table[DBIF_IDX_DEVINO].openflags  = DB_CREATE;
 127     dbd->db_table[DBIF_IDX_DIDNAME].openflags = DB_CREATE;
 128
 129     return dbd;
 130 }
 131
 132 /*
 133    We must open the db_env with an absolute pathname, as `dbd` keeps chdir'ing, which
 134    breaks e.g. bdb logfile-rotation with relative pathnames.
 135    But still we use relative paths with upgrade_required() and the DB_ERRLOGFILE
 136    in order to avoid creating absolute paths by copying. Both have no problem with
 137    a relative path.
 138 */
 139 int dbif_env_open(DBD *dbd, struct db_param *dbp, uint32_t dbenv_oflags)
 140 {
 141     int ret, cwd;
 142     char **logfiles = NULL;
 143     char **file;
 144
 145     /* Remember cwd */
 146     if ((cwd = open(".", O_RDONLY)) < 0) {
 147         LOG(log_error, logtype_cnid, "error opening cwd: %s", strerror(errno));
 148         return -1;
 149     }
 150
 151     /* chdir to db_envhome. makes it easier checking for old db files and creating db_errlog file  */
 152     if ((chdir(dbd->db_envhome)) != 0) {
 153         LOG(log_error, logtype_cnid, "error chdiring to db_env '%s': %s", dbd->db_envhome, strerror(errno));
 154         return -1;
 155     }
 156
 157     /* Refuse to do anything if this is an old version of the CNID database */
 158     if (upgrade_required()) {
 159         LOG(log_error, logtype_cnid, "Found version 1 of the CNID database. Please upgrade to version 2");
 160         return -1;
 161     }
 162
 163     if ((dbd->db_errlog = fopen(DB_ERRLOGFILE, "a")) == NULL)
 164         LOG(log_warning, logtype_cnid, "error creating/opening DB errlogfile: %s", strerror(errno));
 165
 166     if ((fchdir(cwd)) != 0) {
 167         LOG(log_error, logtype_cnid, "error chdiring back: %s", strerror(errno));
 168         return -1;
 169     }
 170
 171     if ((ret = db_env_create(&dbd->db_env, 0))) {
 172         LOG(log_error, logtype_cnid, "error creating DB environment: %s",
 173             db_strerror(ret));
 174         dbd->db_env = NULL;
 175         return -1;
 176     }
 177
 178     if (dbd->db_errlog != NULL) {
 179         dbd->db_env->set_errfile(dbd->db_env, dbd->db_errlog);
 180         dbd->db_env->set_msgfile(dbd->db_env, dbd->db_errlog);
 181     }
 182
 183     if (dbenv_oflags & DB_RECOVER) {
 184         dbd->db_env->set_verbose(dbd->db_env, DB_VERB_RECOVERY, 1);
 185         /* Open the database for recovery using DB_PRIVATE option which is faster */
 186         if ((ret = dbd->db_env->open(dbd->db_env, dbd->db_envhome, dbenv_oflags | DB_PRIVATE, 0))) {
 187             LOG(log_error, logtype_cnid, "error opening DB environment: %s",
 188                 db_strerror(ret));
 189             dbd->db_env->close(dbd->db_env, 0);
 190             dbd->db_env = NULL;
 191             return -1;
 192         }
 193         dbenv_oflags = (dbenv_oflags & ~DB_RECOVER);
 194
 195         if (dbd->db_errlog != NULL)
 196             fflush(dbd->db_errlog);
 197
 198         if ((ret = dbd->db_env->close(dbd->db_env, 0))) {
 199             LOG(log_error, logtype_cnid, "error closing DB environment after recovery: %s",
 200                 db_strerror(ret));
 201             dbd->db_env = NULL;
 202             return -1;
 203         }
 204
 205         if ((ret = db_env_create(&dbd->db_env, 0))) {
 206             LOG(log_error, logtype_cnid, "error creating DB environment after recovery: %s",
 207                 db_strerror(ret));
 208             dbd->db_env = NULL;
 209             return -1;
 210         }
 211     }
 212
 213     if ((ret = dbd->db_env->set_cachesize(dbd->db_env, 0, 1024 * dbp->cachesize, 0))) {
 214         LOG(log_error, logtype_cnid, "error setting DB environment cachesize to %i: %s",
 215             dbp->cachesize, db_strerror(ret));
 216         dbd->db_env->close(dbd->db_env, 0);
 217         dbd->db_env = NULL;
 218         return -1;
 219     }
 220
 221     if (dbd->db_errlog != NULL) {
 222         dbd->db_env->set_errfile(dbd->db_env, dbd->db_errlog);
 223         dbd->db_env->set_msgfile(dbd->db_env, dbd->db_errlog);
 224     }
 225     if ((ret = dbd->db_env->open(dbd->db_env, dbd->db_envhome, dbenv_oflags, 0))) {
 226         LOG(log_error, logtype_cnid, "error opening DB environment after recovery: %s",
 227             db_strerror(ret));
 228         dbd->db_env->close(dbd->db_env, 0);
 229         dbd->db_env = NULL;
 230         return -1;
 231     }
 232
 233     if ((ret = dbd->db_env->set_flags(dbd->db_env, DB_AUTO_COMMIT, 1))) {
 234         LOG(log_error, logtype_cnid, "error setting DB_AUTO_COMMIT flag: %s",
 235             db_strerror(ret));
 236         dbd->db_env->close(dbd->db_env, 0);
 237         dbd->db_env = NULL;
 238         return -1;
 239     }
 240
 241     if (dbp->logfile_autoremove) {
 242         if (dbd->db_env->log_archive(dbd->db_env, &logfiles, 0)) {
 243             LOG(log_error, logtype_cnid, "error getting list of stale logfiles: %s",
 244                 db_strerror(ret));
 245             dbd->db_env->close(dbd->db_env, 0);
 246             dbd->db_env = NULL;
 247             return -1;
 248         }
 249         if (logfiles != NULL) {
 250             /* Remember cwd */
 251             if ((cwd = open(".", O_RDONLY)) < 0) {
 252                 LOG(log_error, logtype_cnid, "error opening cwd: %s", strerror(errno));
 253                 goto logfiles_done;
 254             }
 255             /* chdir to db_envhome */
 256             if ((chdir(dbd->db_envhome)) != 0) {
 257                 LOG(log_error, logtype_cnid, "error chdiring to db_env '%s': %s", dbd->db_envhome, strerror(errno));
 258                 goto logfiles_done;
 259             }
 260
 261             for (file = logfiles; *file != NULL; file++) {
 262                 if (unlink(*file) < 0)
 263                     LOG(log_warning, logtype_cnid, "Error removing stale logfile %s: %s", *file, strerror(errno));
 264             }
 265
 266             /* chdir back */
 267             if ((fchdir(cwd)) != 0) {
 268                 LOG(log_error, logtype_cnid, "error chdiring back: %s", strerror(errno));
 269                 return -1;
 270             }
 271
 272         logfiles_done:
 273             free(logfiles);
 274         }
 275
 276 #if DB_VERSION_MAJOR > 4 || (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR >= 7)
 277         if ((ret = dbd->db_env->log_set_config(dbd->db_env, DB_LOG_AUTO_REMOVE, 1))) {
 278             LOG(log_error, logtype_cnid, "error setting DB_LOG_AUTO_REMOVE flag: %s",
 279             db_strerror(ret));
 280             dbd->db_env->close(dbd->db_env, 0);
 281             dbd->db_env = NULL;
 282             return -1;
 283         }
 284 #else
 285         if ((ret = dbd->db_env->set_flags(dbd->db_env, DB_LOG_AUTOREMOVE, 1))) {
 286             LOG(log_error, logtype_cnid, "error setting DB_LOG_AUTOREMOVE flag: %s",
 287                 db_strerror(ret));
 288             dbd->db_env->close(dbd->db_env, 0);
 289             dbd->db_env = NULL;
 290             return -1;
 291         }
 292 #endif
 293     }
 294
 295     return 0;
 296 }
 297
 298 /* --------------- */
 299 int dbif_open(DBD *dbd, struct db_param *dbp _U_, int reindex)
 300 {
 301     int ret, i, cwd;
 302     u_int32_t count;
 303     struct stat st;
 304     DB *upgrade_db;
 305
 306     /* Try to upgrade if it's a normal on-disk database */
 307     if (dbd->db_envhome) {
 308         /* Remember cwd */
 309         if ((cwd = open(".", O_RDONLY)) < 0) {
 310             LOG(log_error, logtype_cnid, "error opening cwd: %s", strerror(errno));
 311             return -1;
 312         }
 313
 314         /* chdir to db_envhome. makes it easier checking for old db files and creating db_errlog file  */
 315         if ((chdir(dbd->db_envhome)) != 0) {
 316             LOG(log_error, logtype_cnid, "error chdiring to db_env '%s': %s", dbd->db_envhome, strerror(errno));
 317             return -1;
 318         }
 319
 320         if ((stat(dbd->db_filename, &st)) == 0) {
 321             LOG(log_debug, logtype_cnid, "See if we can upgrade the CNID database...");
 322             if ((ret = db_create(&upgrade_db, dbd->db_env, 0))) {
 323                 LOG(log_error, logtype_cnid, "error creating handle for database: %s", db_strerror(ret));
 324                 return -1;
 325             }
 326             if ((ret = upgrade_db->upgrade(upgrade_db, dbd->db_filename, 0))) {
 327                 LOG(log_error, logtype_cnid, "error upgarding database: %s", db_strerror(ret));
 328                 return -1;
 329             }
 330             if ((ret = upgrade_db->close(upgrade_db, 0))) {
 331                 LOG(log_error, logtype_cnid, "error closing database: %s", db_strerror(ret));
 332                 return -1;
 333             }
 334             if ((ret = dbd->db_env->txn_checkpoint(dbd->db_env, 0, 0, DB_FORCE))) {
 335                 LOG(log_error, logtype_cnid, "error forcing checkpoint: %s", db_strerror(ret));
 336                 return -1;
 337             }
 338             LOG(log_debug, logtype_cnid, "Finished CNID database upgrade check");
 339         }
 340
 341         if ((fchdir(cwd)) != 0) {
 342             LOG(log_error, logtype_cnid, "error chdiring back: %s", strerror(errno));
 343             return -1;
 344         }
 345     }
 346
 347     /* Now open databases ... */
 348     for (i = 0; i != DBIF_DB_CNT; i++) {
 349         if ((ret = db_create(&dbd->db_table[i].db, dbd->db_env, 0))) {
 350             LOG(log_error, logtype_cnid, "error creating handle for database %s: %s",
 351                 dbd->db_table[i].name, db_strerror(ret));
 352             return -1;
 353         }
 354
 355         if (dbd->db_table[i].flags) {
 356             if ((ret = dbd->db_table[i].db->set_flags(dbd->db_table[i].db,
 357                                                       dbd->db_table[i].flags))) {
 358                 LOG(log_error, logtype_cnid, "error setting flags for database %s: %s",
 359                     dbd->db_table[i].name, db_strerror(ret));
 360                 return -1;
 361             }
 362         }
 363
 364         if (dbd->db_table[i].db->open(dbd->db_table[i].db,
 365                                       dbd->db_txn,
 366                                       dbd->db_filename,
 367                                       dbd->db_table[i].name,
 368                                       dbd->db_table[i].type,
 369                                       dbd->db_table[i].openflags,
 370                                       0664) < 0) {
 371             LOG(log_error, logtype_cnid, "Cant open database");
 372             return -1;
 373         }
 374         if (dbd->db_errlog != NULL)
 375             dbd->db_table[i].db->set_errfile(dbd->db_table[i].db, dbd->db_errlog);
 376
 377         if (reindex && i > 0) {
 378             LOG(log_info, logtype_cnid, "Truncating CNID index.");
 379             if ((ret = dbd->db_table[i].db->truncate(dbd->db_table[i].db, NULL, &count, 0))) {
 380                 LOG(log_error, logtype_cnid, "error truncating database %s: %s",
 381                     dbd->db_table[i].name, db_strerror(ret));
 382                 return -1;
 383             }
 384         }
 385     }
 386
 387     /* TODO: Implement CNID DB versioning info on new databases. */
 388
 389     /* Associate the secondary with the primary. */
 390     if (reindex)
 391         LOG(log_info, logtype_cnid, "Reindexing did/name index...");
 392     if ((ret = dbd->db_table[0].db->associate(dbd->db_table[DBIF_CNID].db,
 393                                               dbd->db_txn,
 394                                               dbd->db_table[DBIF_IDX_DIDNAME].db,
 395                                               didname,
 396                                               (reindex) ? DB_CREATE : 0))
 397          != 0) {
 398         LOG(log_error, logtype_cnid, "Failed to associate didname database: %s",db_strerror(ret));
 399         return -1;
 400     }
 401     if (reindex)
 402         LOG(log_info, logtype_cnid, "... done.");
 403
 404     if (reindex)
 405         LOG(log_info, logtype_cnid, "Reindexing dev/ino index...");
 406     if ((ret = dbd->db_table[0].db->associate(dbd->db_table[0].db,
 407                                               dbd->db_txn,
 408                                               dbd->db_table[DBIF_IDX_DEVINO].db,
 409                                               devino,
 410                                               (reindex) ? DB_CREATE : 0))
 411         != 0) {
 412         LOG(log_error, logtype_cnid, "Failed to associate devino database: %s",db_strerror(ret));
 413         return -1;
 414     }
 415     if (reindex)
 416         LOG(log_info, logtype_cnid, "... done.");
 417
 418     return 0;
 419 }
 420
 421 /* ------------------------ */
 422 static int dbif_closedb(DBD *dbd)
 423 {
 424     int i;
 425     int ret;
 426     int err = 0;
 427
 428     for (i = DBIF_DB_CNT -1; i >= 0; i--) {
 429         if (dbd->db_table[i].db != NULL && (ret = dbd->db_table[i].db->close(dbd->db_table[i].db, 0))) {
 430             LOG(log_error, logtype_cnid, "error closing database %s: %s", dbd->db_table[i].name, db_strerror(ret));
 431             err++;
 432         }
 433     }
 434     if (err)
 435         return -1;
 436     return 0;
 437 }
 438
 439 /* ------------------------ */
 440 int dbif_close(DBD *dbd)
 441 {
 442     int ret;
 443     int err = 0;
 444
 445     if (dbif_closedb(dbd))
 446         err++;
 447
 448     if (dbd->db_env != NULL && (ret = dbd->db_env->close(dbd->db_env, 0))) {
 449         LOG(log_error, logtype_cnid, "error closing DB environment: %s", db_strerror(ret));
 450         err++;
 451     }
 452     if (dbd->db_errlog != NULL && fclose(dbd->db_errlog) == EOF) {
 453         LOG(log_error, logtype_cnid, "error closing DB logfile: %s", strerror(errno));
 454         err++;
 455     }
 456
 457     free(dbd->db_filename);
 458     free(dbd);
 459     dbd = NULL;
 460
 461     if (err)
 462         return -1;
 463     return 0;
 464 }
 465
 466 /*
 467    In order to support silent database upgrades:
 468    destroy env at cnid_dbd shutdown.
 469  */
 470 int dbif_prep_upgrade(const char *path)
 471 {
 472     int cwd, ret;
 473     DBD *dbd;
 474
 475     LOG(log_debug, logtype_cnid, "Reopening BerkeleyDB environment");
 476
 477     if (NULL == (dbd = dbif_init(path, "cnid2.db")))
 478         return -1;
 479
 480     /* Remember cwd */
 481     if ((cwd = open(".", O_RDONLY)) < 0) {
 482         LOG(log_error, logtype_cnid, "error opening cwd: %s", strerror(errno));
 483         return -1;
 484     }
 485
 486     /* chdir to db_envhome. makes it easier checking for old db files and creating db_errlog file  */
 487     if ((chdir(dbd->db_envhome)) != 0) {
 488         LOG(log_error, logtype_cnid, "error chdiring to db_env '%s': %s", dbd->db_envhome, strerror(errno));
 489         return -1;
 490     }
 491
 492     if ((dbd->db_errlog = fopen(DB_ERRLOGFILE, "a")) == NULL)
 493         LOG(log_warning, logtype_cnid, "error creating/opening DB errlogfile: %s", strerror(errno));
 494
 495     if ((fchdir(cwd)) != 0) {
 496         LOG(log_error, logtype_cnid, "error chdiring back: %s", strerror(errno));
 497         return -1;
 498     }
 499
 500     /* Get db_env handle */
 501     if ((ret = db_env_create(&dbd->db_env, 0))) {
 502         LOG(log_error, logtype_cnid, "error creating DB environment: %s", db_strerror(ret));
 503         dbd->db_env = NULL;
 504         return -1;
 505     }
 506
 507     /* Set logfile */
 508     if (dbd->db_errlog != NULL) {
 509         dbd->db_env->set_errfile(dbd->db_env, dbd->db_errlog);
 510         dbd->db_env->set_msgfile(dbd->db_env, dbd->db_errlog);
 511         dbd->db_env->set_verbose(dbd->db_env, DB_VERB_RECOVERY, 1);
 512     }
 513
 514     /* Open environment with recovery */
 515     if ((ret = dbd->db_env->open(dbd->db_env,
 516                                  dbd->db_envhome,
 517                                  DB_CREATE | DB_INIT_LOG | DB_INIT_MPOOL | DB_INIT_LOCK | DB_INIT_TXN | DB_RECOVER | DB_PRIVATE,
 518                                  0))) {
 519         LOG(log_error, logtype_cnid, "error opening DB environment: %s",
 520             db_strerror(ret));
 521         dbd->db_env->close(dbd->db_env, 0);
 522         dbd->db_env = NULL;
 523         return -1;
 524     }
 525
 526     if (dbd->db_errlog != NULL)
 527         fflush(dbd->db_errlog);
 528
 529     /* Remove logfiles */
 530     if ((ret = dbd->db_env->log_archive(dbd->db_env, NULL, DB_ARCH_REMOVE))) {
 531          LOG(log_error, logtype_cnid, "error removing transaction logfiles: %s", db_strerror(ret));
 532          return -1;
 533     }
 534
 535     if ((ret = dbd->db_env->close(dbd->db_env, 0))) {
 536         LOG(log_error, logtype_cnid, "error closing DB environment after recovery: %s", db_strerror(ret));
 537         dbd->db_env = NULL;
 538         return -1;
 539     }
 540
 541     LOG(log_debug, logtype_cnid, "BerkeleyDB environment recovery done.");
 542
 543     /* Get a new db_env handle and then remove environment */
 544     if ((ret = db_env_create(&dbd->db_env, 0))) {
 545         LOG(log_error, logtype_cnid, "error acquiring db_end handle: %s", db_strerror(ret));
 546         dbd->db_env = NULL;
 547         return -1;
 548     }
 549     if ((ret = dbd->db_env->remove(dbd->db_env, dbd->db_envhome, 0))) {
 550         LOG(log_error, logtype_cnid, "error removing BerkeleyDB environment: %s", db_strerror(ret));
 551         return -1;
 552     }
 553
 554     LOG(log_debug, logtype_cnid, "Removed BerkeleyDB environment.");
 555
 556     return 0;
 557 }
 558
 559 /*
 560  *  The following three functions are wrappers for DB->get(), DB->put() and DB->del().
 561  *  All three return -1 on error. dbif_get()/dbif_del return 1 if the key was found and 0
 562  *  otherwise. dbif_put() returns 0 if key/val was successfully updated and 1 if
 563  *  the DB_NOOVERWRITE flag was specified and the key already exists.
 564  *
 565  *  All return codes other than DB_NOTFOUND and DB_KEYEXIST from the DB->()
 566  *  functions are not expected and therefore error conditions.
 567  */
 568
 569 int dbif_get(DBD *dbd, const int dbi, DBT *key, DBT *val, u_int32_t flags)
 570 {
 571     int ret;
 572
 573     ret = dbd->db_table[dbi].db->get(dbd->db_table[dbi].db,
 574                                      dbd->db_txn,
 575                                      key,
 576                                      val,
 577                                      flags);
 578
 579     if (ret == DB_NOTFOUND)
 580         return 0;
 581     if (ret) {
 582         LOG(log_error, logtype_cnid, "error retrieving value from %s: %s",
 583             dbd->db_table[dbi].name, db_strerror(errno));
 584         return -1;
 585     } else
 586         return 1;
 587 }
 588
 589 /* search by secondary return primary */
 590 int dbif_pget(DBD *dbd, const int dbi, DBT *key, DBT *pkey, DBT *val, u_int32_t flags)
 591 {
 592     int ret;
 593
 594     ret = dbd->db_table[dbi].db->pget(dbd->db_table[dbi].db,
 595                                       dbd->db_txn,
 596                                       key,
 597                                       pkey,
 598                                       val,
 599                                       flags);
 600
 601     if (ret == DB_NOTFOUND || ret == DB_SECONDARY_BAD) {
 602         return 0;
 603     }
 604     if (ret) {
 605         LOG(log_error, logtype_cnid, "error retrieving value from %s: %s",
 606             dbd->db_table[dbi].name, db_strerror(errno));
 607         return -1;
 608    } else
 609         return 1;
 610 }
 611
 612 /* -------------------------- */
 613 int dbif_put(DBD *dbd, const int dbi, DBT *key, DBT *val, u_int32_t flags)
 614 {
 615     int ret;
 616
 617     if (dbif_txn_begin(dbd) < 0) {
 618         LOG(log_error, logtype_cnid, "error setting key/value in %s: %s",
 619             dbd->db_table[dbi].name, db_strerror(errno));
 620         return -1;
 621     }
 622
 623     ret = dbd->db_table[dbi].db->put(dbd->db_table[dbi].db,
 624                                      dbd->db_txn,
 625                                      key,
 626                                      val,
 627                                      flags);
 628
 629     if (ret) {
 630         if ((flags & DB_NOOVERWRITE) && ret == DB_KEYEXIST) {
 631             return 1;
 632         } else {
 633             LOG(log_error, logtype_cnid, "error setting key/value in %s: %s",
 634                 dbd->db_table[dbi].name, db_strerror(errno));
 635             return -1;
 636         }
 637     } else
 638         return 0;
 639 }
 640
 641 int dbif_del(DBD *dbd, const int dbi, DBT *key, u_int32_t flags)
 642 {
 643     int ret;
 644
 645     /* For cooperation with the dbd utility and its usage of a cursor */
 646     if (dbd->db_cur) {
 647         dbd->db_cur->close(dbd->db_cur);
 648         dbd->db_cur = NULL;
 649     }
 650
 651     if (dbif_txn_begin(dbd) < 0) {
 652         LOG(log_error, logtype_cnid, "error deleting key/value from %s: %s",
 653             dbd->db_table[dbi].name, db_strerror(errno));
 654         return -1;
 655     }
 656
 657     ret = dbd->db_table[dbi].db->del(dbd->db_table[dbi].db,
 658                                      dbd->db_txn,
 659                                      key,
 660                                      flags);
 661
 662     if (ret == DB_NOTFOUND || ret == DB_SECONDARY_BAD)
 663         return 0;
 664     if (ret) {
 665         LOG(log_error, logtype_cnid, "error deleting key/value from %s: %s",
 666             dbd->db_table[dbi].name, db_strerror(errno));
 667         return -1;
 668     } else
 669         return 1;
 670 }
 671
 672 int dbif_txn_begin(DBD *dbd)
 673 {
 674     int ret;
 675
 676     /* If we already have an active txn, just return */
 677     if (dbd->db_txn)
 678         return 0;
 679
 680     /* If our DBD has no env, just return (-> in memory db) */
 681     if (dbd->db_env == NULL)
 682         return 0;
 683
 684     ret = dbd->db_env->txn_begin(dbd->db_env, NULL, &dbd->db_txn, 0);
 685
 686     if (ret) {
 687         LOG(log_error, logtype_cnid, "error starting transaction: %s", db_strerror(errno));
 688         return -1;
 689     } else
 690         return 0;
 691 }
 692
 693 int dbif_txn_commit(DBD *dbd)
 694 {
 695     int ret;
 696
 697     if (! dbd->db_txn)
 698         return 0;
 699
 700     /* If our DBD has no env, just return (-> in memory db) */
 701     if (dbd->db_env == NULL)
 702         return 0;
 703
 704     ret = dbd->db_txn->commit(dbd->db_txn, 0);
 705     dbd->db_txn = NULL;
 706
 707     if (ret) {
 708         LOG(log_error, logtype_cnid, "error committing transaction: %s", db_strerror(errno));
 709         return -1;
 710     } else
 711         return 1;
 712 }
 713
 714 int dbif_txn_abort(DBD *dbd)
 715 {
 716     int ret;
 717
 718     if (! dbd->db_txn)
 719         return 0;
 720
 721     /* If our DBD has no env, just return (-> in memory db) */
 722     if (dbd->db_env == NULL)
 723         return 0;
 724
 725     ret = dbd->db_txn->abort(dbd->db_txn);
 726     dbd->db_txn = NULL;
 727
 728     if (ret) {
 729         LOG(log_error, logtype_cnid, "error aborting transaction: %s", db_strerror(errno));
 730         return -1;
 731     } else
 732         return 0;
 733 }
 734
 735 /*
 736    ret = 1 -> commit txn
 737    ret = 0 -> abort txn -> exit!
 738    anything else -> exit!
 739 */
 740 void dbif_txn_close(DBD *dbd, int ret)
 741 {
 742     if (ret == 0) {
 743         if (dbif_txn_abort(dbd) < 0) {
 744             LOG( log_error, logtype_cnid, "Fatal error aborting transaction. Exiting!");
 745             exit(EXIT_FAILURE);
 746         }
 747     } else if (ret == 1) {
 748         ret = dbif_txn_commit(dbd);
 749         if (  ret < 0) {
 750             LOG( log_error, logtype_cnid, "Fatal error committing transaction. Exiting!");
 751             exit(EXIT_FAILURE);
 752         }
 753     } else
 754        exit(EXIT_FAILURE);
 755 }
 756
 757 int dbif_txn_checkpoint(DBD *dbd, u_int32_t kbyte, u_int32_t min, u_int32_t flags)
 758 {
 759     int ret;
 760     ret = dbd->db_env->txn_checkpoint(dbd->db_env, kbyte, min, flags);
 761     if (ret) {
 762         LOG(log_error, logtype_cnid, "error checkpointing transaction susystem: %s", db_strerror(errno));
 763         return -1;
 764     } else
 765         return 0;
 766 }
 767
 768 int dbif_count(DBD *dbd, const int dbi, u_int32_t *count)
 769 {
 770     int ret;
 771     DB_BTREE_STAT *sp;
 772     DB *db = dbd->db_table[dbi].db;
 773
 774     ret = db->stat(db, NULL, &sp, 0);
 775
 776     if (ret) {
 777         LOG(log_error, logtype_cnid, "error getting stat infotmation on database: %s", db_strerror(errno));
 778         return -1;
 779     }
 780
 781     *count = sp->bt_ndata;
 782     free(sp);
 783
 784     return 0;
 785 }
 786
 787 int dbif_copy_rootinfokey(DBD *srcdbd, DBD *destdbd)
 788 {
 789     DBT key, data;
 790     int rc;
 791
 792     memset(&key, 0, sizeof(key));
 793     memset(&data, 0, sizeof(data));
 794
 795     key.data = ROOTINFO_KEY;
 796     key.size = ROOTINFO_KEYLEN;
 797
 798     if ((rc = dbif_get(srcdbd, DBIF_CNID, &key, &data, 0)) <= 0) {
 799         LOG(log_error, logtype_cnid, "dbif_copy_rootinfokey: Error getting rootinfo record");
 800         return -1;
 801     }
 802
 803     memset(&key, 0, sizeof(key));
 804     key.data = ROOTINFO_KEY;
 805     key.size = ROOTINFO_KEYLEN;
 806
 807     if ((rc = dbif_put(destdbd, DBIF_CNID, &key, &data, 0))) {
 808         LOG(log_error, logtype_cnid, "dbif_copy_rootinfokey: Error writing rootinfo key");
 809         return -1;
 810     }
 811
 812     return 0;
 813 }
 814
 815 int dbif_dump(DBD *dbd, int dumpindexes)
 816 {
 817     int rc;
 818     uint32_t max = 0, count = 0, cnid, type, did, lastid;
 819     uint64_t dev, ino;
 820     time_t stamp;
 821     DBC *cur;
 822     DBT key = { 0 }, data = { 0 };
 823     DB *db = dbd->db_table[DBIF_CNID].db;
 824     char *typestring[2] = {"f", "d"};
 825     char timebuf[64];
 826
 827     printf("CNID database dump:\n");
 828
 829     rc = db->cursor(db, NULL, &cur, 0);
 830     if (rc) {
 831         LOG(log_error, logtype_cnid, "Couldn't create cursor: %s", db_strerror(errno));
 832         return -1;
 833     }
 834
 835     cur->c_get(cur, &key, &data, DB_FIRST);
 836     while (rc == 0) {
 837         /* Parse and print data */
 838         memcpy(&cnid, key.data, 4);
 839         cnid = ntohl(cnid);
 840         if (cnid > max)
 841             max = cnid;
 842
 843         /* Rootinfo node ? */
 844         if (cnid == 0) {
 845             memcpy(&stamp, (char *)data.data + 4, sizeof(time_t));
 846             memcpy(&lastid, (char *)data.data + 20, sizeof(cnid_t));
 847             lastid = ntohl(lastid);
 848             strftime(timebuf, sizeof(timebuf), "%b %d %Y %H:%M:%S", localtime(&stamp));
 849             printf("dbd stamp: 0x%08x (%s), next free CNID: %u\n", (unsigned int)stamp, timebuf, lastid + 1);
 850         } else {
 851             /* dev */
 852             memcpy(&dev, (char *)data.data + CNID_DEV_OFS, 8);
 853             dev = ntoh64(dev);
 854             /* ino */
 855             memcpy(&ino, (char *)data.data + CNID_INO_OFS, 8);
 856             ino = ntoh64(ino);
 857             /* type */
 858             memcpy(&type, (char *)data.data + CNID_TYPE_OFS, 4);
 859             type = ntohl(type);
 860             /* did */
 861             memcpy(&did, (char *)data.data + CNID_DID_OFS, 4);
 862             did = ntohl(did);
 863
 864             count++;
 865             printf("id: %10u, did: %10u, type: %s, dev: 0x%llx, ino: 0x%016llx, name: %s\n",
 866                    cnid, did, typestring[type],
 867                    (long long unsigned int)dev, (long long unsigned int)ino,
 868                    (char *)data.data + CNID_NAME_OFS);
 869
 870         }
 871
 872         rc = cur->c_get(cur, &key, &data, DB_NEXT);
 873     }
 874
 875     if (rc != DB_NOTFOUND) {
 876         LOG(log_error, logtype_cnid, "Error iterating over btree: %s", db_strerror(errno));
 877         return -1;
 878     }
 879
 880     rc = cur->c_close(cur);
 881     if (rc) {
 882         LOG(log_error, logtype_cnid, "Couldn't close cursor: %s", db_strerror(errno));
 883         return -1;
 884     }
 885     printf("%u CNIDs in database. Max CNID: %u.\n", count, max);
 886
 887     /* Dump indexes too ? */
 888     if (dumpindexes) {
 889         /* DBIF_IDX_DEVINO */
 890         printf("\ndev/inode index:\n");
 891         count = 0;
 892         db = dbd->db_table[DBIF_IDX_DEVINO].db;
 893         rc = db->cursor(db, NULL, &cur, 0);
 894         if (rc) {
 895             LOG(log_error, logtype_cnid, "Couldn't create cursor: %s", db_strerror(errno));
 896             return -1;
 897         }
 898
 899         cur->c_get(cur, &key, &data, DB_FIRST);
 900         while (rc == 0) {
 901             /* Parse and print data */
 902
 903             /* cnid */
 904             memcpy(&cnid, data.data, CNID_LEN);
 905             cnid = ntohl(cnid);
 906             if (cnid == 0) {
 907                 /* Rootinfo node */
 908             } else {
 909                 /* dev */
 910                 memcpy(&dev, key.data, CNID_DEV_LEN);
 911                 dev = ntoh64(dev);
 912                 /* ino */
 913                 memcpy(&ino, (char *)key.data + CNID_DEV_LEN, CNID_INO_LEN);
 914                 ino = ntoh64(ino);
 915
 916                 printf("id: %10u <== dev: 0x%llx, ino: 0x%016llx\n",
 917                        cnid, (unsigned long long int)dev, (unsigned long long int)ino);
 918                 count++;
 919             }
 920             rc = cur->c_get(cur, &key, &data, DB_NEXT);
 921         }
 922         if (rc != DB_NOTFOUND) {
 923             LOG(log_error, logtype_cnid, "Error iterating over btree: %s", db_strerror(errno));
 924             return -1;
 925         }
 926
 927         rc = cur->c_close(cur);
 928         if (rc) {
 929             LOG(log_error, logtype_cnid, "Couldn't close cursor: %s", db_strerror(errno));
 930             return -1;
 931         }
 932         printf("%u items\n", count);
 933
 934         /* Now dump DBIF_IDX_DIDNAME */
 935         printf("\ndid/name index:\n");
 936         count = 0;
 937         db = dbd->db_table[DBIF_IDX_DIDNAME].db;
 938         rc = db->cursor(db, NULL, &cur, 0);
 939         if (rc) {
 940             LOG(log_error, logtype_cnid, "Couldn't create cursor: %s", db_strerror(errno));
 941             return -1;
 942         }
 943
 944         cur->c_get(cur, &key, &data, DB_FIRST);
 945         while (rc == 0) {
 946             /* Parse and print data */
 947
 948             /* cnid */
 949             memcpy(&cnid, data.data, CNID_LEN);
 950             cnid = ntohl(cnid);
 951             if (cnid == 0) {
 952                 /* Rootinfo node */
 953             } else {
 954                 /* did */
 955                 memcpy(&did, key.data, CNID_LEN);
 956                 did = ntohl(did);
 957
 958                 printf("id: %10u <== did: %10u, name: %s\n", cnid, did, (char *)key.data + CNID_LEN);
 959                 count++;
 960             }
 961             rc = cur->c_get(cur, &key, &data, DB_NEXT);
 962         }
 963         if (rc != DB_NOTFOUND) {
 964             LOG(log_error, logtype_cnid, "Error iterating over btree: %s", db_strerror(errno));
 965             return -1;
 966         }
 967
 968         rc = cur->c_close(cur);
 969         if (rc) {
 970             LOG(log_error, logtype_cnid, "Couldn't close cursor: %s", db_strerror(errno));
 971             return -1;
 972         }
 973         printf("%u items\n", count);
 974     }
 975
 976     return 0;
 977 }
 978
 979 /*
 980    Iterates over dbd, returning cnids.
 981    Uses in-value of cnid to seek to that cnid, then gets next and return that in cnid.
 982    If close=1, close cursor.
 983    Return -1 on error, 0 on EOD (end-of-database), 1 if returning cnid.
 984 */
 985 int dbif_idwalk(DBD *dbd, cnid_t *cnid, int close)
 986 {
 987     int rc;
 988     int flag;
 989     cnid_t id;
 990
 991     static DBT key = { 0 }, data = { 0 };
 992     DB *db = dbd->db_table[DBIF_CNID].db;
 993
 994     if (close && dbd->db_cur) {
 995         dbd->db_cur->close(dbd->db_cur);
 996         dbd->db_cur = NULL;
 997         return 0;
 998     }
 999
1000     /* An dbif_del will have closed our cursor too */
1001     if ( ! dbd->db_cur ) {
1002         if (db->cursor(db, NULL, &dbd->db_cur, 0) != 0) {
1003             LOG(log_error, logtype_cnid, "Couldn't create cursor: %s", db_strerror(errno));
1004             return -1;
1005         }
1006         flag = DB_SET_RANGE;    /* This will seek to next cnid after the one just deleted */
1007         id = htonl(*cnid);
1008         key.data = &id;
1009         key.size = sizeof(cnid_t);
1010     } else
1011         flag = DB_NEXT;
1012
1013     if ((rc = dbd->db_cur->get(dbd->db_cur, &key, &data, flag)) == 0) {
1014         memcpy(cnid, key.data, sizeof(cnid_t));
1015         *cnid = ntohl(*cnid);
1016         return 1;
1017     }
1018
1019     if (rc != DB_NOTFOUND) {
1020         LOG(log_error, logtype_cnid, "Error iterating over btree: %s", db_strerror(errno));
1021         dbd->db_cur->close(dbd->db_cur);
1022         dbd->db_cur = NULL;
1023         return -1;
1024     }
1025
1026     if (dbd->db_cur) {
1027         dbd->db_cur->close(dbd->db_cur);
1028         dbd->db_cur = NULL;
1029     }
1030
1031     return 0;
1032 }