| 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 *** |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | root | 1.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; |