… | |
… | |
22 | use Config; |
22 | use Config; |
23 | use BDB; |
23 | use BDB; |
24 | |
24 | |
25 | use CFPlus; |
25 | use CFPlus; |
26 | |
26 | |
27 | our $DB_HOME = "$Deliantra::VARDIR/cfplus-" . BDB::VERSION . "-$Config{archname}"; |
27 | our $DBDIR = "cfplus-" . BDB::VERSION . "-$Config{archname}"; |
|
|
28 | our $DB_HOME = "$Deliantra::VARDIR/$DBDIR"; |
|
|
29 | |
|
|
30 | if (!-e $DB_HOME and -e "$Deliantra::OLDDIR/$DBDIR") { |
|
|
31 | rename "$Deliantra::OLDDIR/$DBDIR", $DB_HOME; |
|
|
32 | print STDERR "INFO: moved old database from $Deliantra::OLDDIR/$DBDIR to $DB_HOME\n"; |
|
|
33 | } |
28 | |
34 | |
29 | our $DB_ENV; |
35 | our $DB_ENV; |
30 | our $DB_STATE; |
36 | our $DB_STATE; |
31 | our %DB_TABLE; |
37 | our %DB_TABLE; |
32 | |
38 | |