1 |
#! perl # MANDATORY |
2 |
|
3 |
our $CHECKPOINT_INTERVAL = $cf::CFG{db_checkpoint_interval} || 10; |
4 |
our $CHECKPOINT_KB = $cf::CFG{db_checkpoint_kb} || 512; |
5 |
|
6 |
Event->timer ( |
7 |
data => cf::WF_AUTOCANCEL, |
8 |
interval => $CHECKPOINT_INTERVAL, |
9 |
after => 1, |
10 |
cb => sub { BDB::db_env_txn_checkpoint $cf::DB_ENV, 0, 0, 0, sub { } }, |
11 |
); |
12 |
|
13 |
Event->timer ( |
14 |
data => cf::WF_AUTOCANCEL, |
15 |
interval => 1, |
16 |
after => 1, |
17 |
cb => sub { BDB::db_env_txn_checkpoint $cf::DB_ENV, $CHECKPOINT_KB, 0, 0, sub { } }, |
18 |
); |
19 |
|