| 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 |
|
