| … | |
… | |
| 60 | |
60 | |
| 61 | use strict; |
61 | use strict; |
| 62 | |
62 | |
| 63 | use Fcntl; |
63 | use Fcntl; |
| 64 | use BerkeleyDB; |
64 | use BerkeleyDB; |
|
|
65 | use Config; |
| 65 | |
66 | |
| 66 | our $DB_HOME = "$Crossfire::VARDIR/cfplus"; |
67 | our $DB_HOME = "$Crossfire::VARDIR/cfplus-$BerkeleyDB::db_version-$Config{archname}"; |
| 67 | our $DB_ENV; |
68 | our $DB_ENV; |
| 68 | our $DB_STATE; |
69 | our $DB_STATE; |
| 69 | our %DB_TABLE; |
70 | our %DB_TABLE; |
| 70 | |
71 | |
| 71 | sub open_db { |
72 | sub open_db { |
| … | |
… | |
| 248 | local $SIG{__DIE__}; |
249 | local $SIG{__DIE__}; |
| 249 | eval { |
250 | eval { |
| 250 | close $FH; |
251 | close $FH; |
| 251 | |
252 | |
| 252 | unless (eval { open_db }) { |
253 | unless (eval { open_db }) { |
| 253 | File::Path::rmtree $DB_HOME; |
254 | eval { File::Path::rmtree $DB_HOME }; |
| 254 | open_db; |
255 | open_db; |
| 255 | } |
256 | } |
| 256 | |
257 | |
| 257 | while () { |
258 | while () { |
| 258 | 4 == read $fh, my $len, 4 |
259 | 4 == read $fh, my $len, 4 |
| … | |
… | |
| 292 | $fh_r_watcher = AnyEvent->io (fh => $FH, poll => 'r', cb => \&fh_read); |
293 | $fh_r_watcher = AnyEvent->io (fh => $FH, poll => 'r', cb => \&fh_read); |
| 293 | |
294 | |
| 294 | sync_tick; |
295 | sync_tick; |
| 295 | } |
296 | } |
| 296 | |
297 | |
|
|
298 | sub stop { |
|
|
299 | close $FH; |
|
|
300 | } |
|
|
301 | |
| 297 | 1; |
302 | 1; |
| 298 | |
303 | |
| 299 | =back |
304 | =back |
| 300 | |
305 | |
| 301 | =head1 AUTHOR |
306 | =head1 AUTHOR |
