#! perl # MANDATORY

our $CHECKPOINT_INTERVAL = $cf::CFG{db_checkpoint_interval} || 10;
our $CHECKPOINT_KB       = $cf::CFG{db_checkpoint_kb}       || 512;

Event->timer (
   data     => cf::WF_AUTOCANCEL,
   interval => $CHECKPOINT_INTERVAL,
   after    => 1,
   cb       => sub { BDB::db_env_txn_checkpoint $cf::DB_ENV, 0, 0, 0, sub { } },
);

Event->timer (
   data     => cf::WF_AUTOCANCEL,
   interval => 1,
   after    => 1,
   cb       => sub { BDB::db_env_txn_checkpoint $cf::DB_ENV, $CHECKPOINT_KB, 0, 0, sub { } },
);