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.2
Committed:	Mon Jun 11 21:38:13 2007 UTC (16 years, 11 months ago) by root
Branch:	MAIN
CVS Tags:	rel-2_2, rel-2_3
Changes since 1.1:	+1 -1 lines
Log Message:	port micropather to c++...
#	User	Rev	Content
1	root	1.2	#! perl # mandatory
2	root	1.1
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