ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/lib/cf.pm
(Generate patch)

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.436 by root, Sun Jun 15 20:32:51 2008 UTC vs.
Revision 1.439 by root, Mon Jul 14 16:42:49 2008 UTC

… …
40use Coro::Timer; 40use Coro::Timer;
41use Coro::Signal; 41use Coro::Signal;
42use Coro::Semaphore; 42use Coro::Semaphore;
43use Coro::AnyEvent; 43use Coro::AnyEvent;
44use Coro::AIO; 44use Coro::AIO;
45use Coro::BDB; 45use Coro::BDB 1.6;
46use Coro::Storable; 46use Coro::Storable;
47use Coro::Util (); 47use Coro::Util ();
48 48
49use JSON::XS 2.01 (); 49use JSON::XS 2.01 ();
50use BDB (); 50use BDB ();
… …
2086 my $f = new_from_file cf::object::thawer $self->{load_path}; 2086 my $f = new_from_file cf::object::thawer $self->{load_path};
2087 $f->skip_block; 2087 $f->skip_block;
2088 $self->_load_objects ($f) 2088 $self->_load_objects ($f)
2089 or return; 2089 or return;
2090 2090
2091 $self->set_object_flag (cf::FLAG_OBJ_ORIGINAL, 1) 2091 $self->post_load_original
2092 if delete $self->{load_original}; 2092 if delete $self->{load_original};
2093 2093
2094 if (my $uniq = $self->uniq_path) { 2094 if (my $uniq = $self->uniq_path) {
2095 utf8::encode $uniq; 2095 utf8::encode $uniq;
2096 unless (aio_stat $uniq) { 2096 unless (aio_stat $uniq) {
… …
3128=cut 3128=cut
3129 3129
3130for ( 3130for (
3131 ["cf::object" => qw(contr pay_amount pay_player map force_find force_add x y 3131 ["cf::object" => qw(contr pay_amount pay_player map force_find force_add x y
3132 insert remove inv nrof name archname title slaying race 3132 insert remove inv nrof name archname title slaying race
3133 decrease split destroy)], 3133 decrease split destroy change_exp)],
3134 ["cf::object::player" => qw(player)], 3134 ["cf::object::player" => qw(player)],
3135 ["cf::player" => qw(peaceful)], 3135 ["cf::player" => qw(peaceful)],
3136 ["cf::map" => qw(trigger)], 3136 ["cf::map" => qw(trigger)],
3137) { 3137) {
3138 no strict 'refs'; 3138 no strict 'refs';
… …
3796 BDB::max_poll_reqs $TICK * 0.1; 3796 BDB::max_poll_reqs $TICK * 0.1;
3797 $AnyEvent::BDB::WATCHER->priority (1); 3797 $AnyEvent::BDB::WATCHER->priority (1);
3798 3798
3799 unless ($DB_ENV) { 3799 unless ($DB_ENV) {
3800 $DB_ENV = BDB::db_env_create; 3800 $DB_ENV = BDB::db_env_create;
3801 $DB_ENV->set_flags (BDB::AUTO_COMMIT | BDB::REGION_INIT | BDB::TXN_NOSYNC 3801 $DB_ENV->set_flags (BDB::AUTO_COMMIT | BDB::REGION_INIT);
3802 | BDB::LOG_AUTOREMOVE, 1); 3802 $DB_ENV->set_flags (&BDB::LOG_AUTOREMOVE ) if BDB::VERSION v0, v4.7;
3803 $DB_ENV->log_set_config (&BDB::LOG_AUTO_REMOVE) if BDB::VERSION v4.7;
3803 $DB_ENV->set_timeout (30, BDB::SET_TXN_TIMEOUT); 3804 $DB_ENV->set_timeout (30, BDB::SET_TXN_TIMEOUT);
3804 $DB_ENV->set_timeout (30, BDB::SET_LOCK_TIMEOUT); 3805 $DB_ENV->set_timeout (30, BDB::SET_LOCK_TIMEOUT);
3805 3806
3806 cf::sync_job { 3807 cf::sync_job {
3807 eval { 3808 eval {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines