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.1
Committed:	Tue Feb 13 21:39:39 2007 UTC (19 years, 8 months ago) by root
Branch:	MAIN
CVS Tags:	rel-2_0, rel-2_1, STABLE
Log Message:	forgot to check this in
#	User	Rev	Content
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