Revision: | 1.1 |
Committed: | Tue Aug 28 02:30:48 2001 UTC (22 years, 10 months ago) by root |
Content type: | text/plain |
Branch: | MAIN |
Log Message: | *** empty log message *** |
# | Content |
---|---|
1 | |
2 | use BerkeleyDB; |
3 | |
4 | if (defined $DB_HOME) { |
5 | |
6 | mkdir $DB_HOME, 0700; |
7 | |
8 | $db_env = new BerkeleyDB::Env |
9 | -Home => $DB_HOME, |
10 | -Cachesize => 1_000_000, |
11 | -ErrFile => \*STDOUT, |
12 | -ErrPrefix => "DATABASE", |
13 | -Verbose => 1, |
14 | -Flags => DB_CREATE|DB_RECOVER|DB_RECOVER_FATAL|DB_INIT_MPOOL|DB_INIT_TXN |
15 | or die "unable to create database home $DB_HOME"; |
16 | } |
17 | |
18 | 1; |