1 |
root |
1.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 |
|
|
|