… | |
… | |
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 = "$Crossfire::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 | |
… | |
… | |
387 | |
393 | |
388 | eval { |
394 | eval { |
389 | Storable::store_fd [die => $error], $fh; |
395 | Storable::store_fd [die => $error], $fh; |
390 | }; |
396 | }; |
391 | |
397 | |
392 | warn $error; |
398 | warn $error |
|
|
399 | if $error; |
393 | |
400 | |
394 | CFPlus::_exit 0; |
401 | CFPlus::_exit 0; |
395 | } |
402 | } |
396 | |
403 | |
397 | close $fh; |
404 | close $fh; |