server/ext/db-scheduler.ext

#! 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 { } },
);

Revision:	1.3
Committed:	Wed Nov 14 08:09:46 2007 UTC (16 years, 6 months ago) by root
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.2:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	switch from Event to EV
#	Content
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