ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/DB.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/DB.pm (file contents):
Revision 1.2 by root, Fri Apr 6 08:09:43 2007 UTC vs.
Revision 1.15 by root, Mon Aug 6 02:11:45 2007 UTC

1=head1 NAME 1=head1 NAME
2 2
3CFPlus::DB - async. database access for cfplus 3CFPlus::DB - async. database and filesystem access for cfplus
4 4
5=head1 SYNOPSIS 5=head1 SYNOPSIS
6 6
7 use CFPlus::DB; 7 use CFPlus::DB;
8 8
… …
16 16
17use strict; 17use strict;
18use utf8; 18use utf8;
19 19
20use Carp (); 20use Carp ();
21use Storable ();
22use Config;
21use AnyEvent (); 23use Event ();
22use Storable (); # finally 24
25use CFPlus;
26
27our $DB_HOME = "$Crossfire::VARDIR/cfplus-$BerkeleyDB::db_version-$Config{archname}";
28
29sub path_of_res($) {
30 utf8::downgrade $_[0]; # bug in unpack "H*"
31 "$DB_HOME/res-data-" . unpack "H*", $_[0]
32}
23 33
24sub sync { 34sub sync {
25 # for debugging 35 # for debugging
26 #CFPlus::DB::Server::req (sync => sub { }); 36 #CFPlus::DB::Server::req (sync => sub { });
27 CFPlus::DB::Server::sync (); 37 CFPlus::DB::Server::sync ();
28} 38}
29 39
40sub exists($$$) {
41 CFPlus::DB::Server::req (exists => @_);
42}
43
30sub get($$$) { 44sub get($$$) {
31 CFPlus::DB::Server::req (get => @_); 45 CFPlus::DB::Server::req (get => @_);
32} 46}
33 47
34sub put($$$$) { 48sub put($$$$) {
35 CFPlus::DB::Server::req (put => @_); 49 CFPlus::DB::Server::req (put => @_);
50}
51
52sub unlink($$) {
53 CFPlus::DB::Server::req (unlink => @_);
54}
55
56sub write_file($$$) {
57 CFPlus::DB::Server::req (write_file => @_);
58}
59
60sub prefetch_file($$$) {
61 CFPlus::DB::Server::req (prefetch_file => @_);
62}
63
64sub logprint($$$) {
65 CFPlus::DB::Server::req (logprint => @_);
36} 66}
37 67
38our $tilemap; 68our $tilemap;
39 69
40sub get_tile_id_sync($) { 70sub get_tile_id_sync($) {
… …
59use strict; 89use strict;
60 90
61use Fcntl; 91use Fcntl;
62use BerkeleyDB; 92use BerkeleyDB;
63 93
64our $DB_HOME = "$Crossfire::VARDIR/cfplus";
65our $DB_ENV; 94our $DB_ENV;
66our $DB_STATE; 95our $DB_STATE;
67our %DB_TABLE; 96our %DB_TABLE;
68 97
69sub open_db { 98sub open_db {
… …
100 -Flags => DB_CREATE | DB_UPGRADE, 129 -Flags => DB_CREATE | DB_UPGRADE,
101 or die "unable to create/open database table $_[0]: $BerkeleyDB::Error" 130 or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"
102 } 131 }
103} 132}
104 133
105our $SYNC_INTERVAL = 6;
106
107our %CB; 134our %CB;
108our $FH; 135our $FH;
109our $ID = "aaa0"; 136our $ID = "aaa0";
110our ($fh_r_watcher, $fh_w_watcher); 137our ($fh_r_watcher, $fh_w_watcher);
111our $sync_timer; 138our $sync_timer;
112our $write_buf; 139our $write_buf;
113our $read_buf; 140our $read_buf;
114 141
142our $SYNC = Event->idle (min => 5, max => 60, parked => 1, cb => sub {
143 CFPlus::DB::Server::req (sync => sub { });
144 $_[0]->w->stop;
145});
146
115sub fh_write { 147sub fh_write {
116 my $len = syswrite $FH, $write_buf; 148 my $len = syswrite $FH, $write_buf;
117 149
118 substr $write_buf, 0, $len, ""; 150 substr $write_buf, 0, $len, "";
119 151
120 undef $fh_w_watcher 152 $fh_w_watcher->stop
121 unless length $write_buf; 153 unless length $write_buf;
122} 154}
123 155
124sub fh_read { 156sub fh_read {
125 my $status = sysread $FH, $read_buf, 16384, length $read_buf; 157 my $status = sysread $FH, $read_buf, 16384, length $read_buf;
… …
161 193
162 my $id = ++$ID; 194 my $id = ++$ID;
163 $write_buf .= pack "N/a*", Storable::freeze [$id, $type, @args]; 195 $write_buf .= pack "N/a*", Storable::freeze [$id, $type, @args];
164 $CB{$id} = $cb; 196 $CB{$id} = $cb;
165 197
166 $fh_w_watcher = AnyEvent->io (fh => $FH, poll => 'w', cb => \&fh_write); 198 $fh_w_watcher->start;
167} 199 $SYNC->start;
168
169sub sync_tick {
170 req "sync", sub { };
171 $sync_timer = AnyEvent->timer (after => $SYNC_INTERVAL, cb => \&sync_tick);
172} 200}
173 201
174sub do_sync { 202sub do_sync {
175 $DB_ENV->txn_checkpoint (0, 0, 0); 203 $DB_ENV->txn_checkpoint (0, 0, 0);
176 () 204 ()
177} 205}
178 206
207sub do_exists {
208 my ($db, $key) = @_;
209
210 utf8::downgrade $key;
211 my $data;
212 (table $db)->db_get ($key, $data) == 0
213 ? length $data
214 : ()
215}
216
179sub do_get { 217sub do_get {
180 my ($db, $key) = @_; 218 my ($db, $key) = @_;
181 219
220 utf8::downgrade $key;
182 my $data; 221 my $data;
183 (table $db)->db_get ($key, $data) == 0 222 (table $db)->db_get ($key, $data) == 0
184 ? $data 223 ? $data
185 : () 224 : ()
186} 225}
187 226
188sub do_put { 227sub do_put {
189 my ($db, $key, $data) = @_; 228 my ($db, $key, $data) = @_;
190 229
230 utf8::downgrade $key;
231 utf8::downgrade $data;
191 (table $db)->db_put ($key => $data) 232 (table $db)->db_put ($key => $data)
192} 233}
193 234
194sub do_table { 235sub do_table {
195 my ($db) = @_; 236 my ($db) = @_;
… …
229 } 270 }
230 271
231 die "maximum number of transaction retries reached - database problems?"; 272 die "maximum number of transaction retries reached - database problems?";
232} 273}
233 274
275sub do_unlink {
276 unlink $_[0];
277}
278
279sub do_write_file {
280 my ($file, $data) = @_;
281
282 utf8::downgrade $file;
283 utf8::downgrade $data;
284 open my $fh, ">:raw", $file
285 or return;
286 print $fh $data;
287 close $fh;
288
289 1
290}
291
292sub do_prefetch_file {
293 my ($file, $size) = @_;
294
295 utf8::downgrade $file;
296 open my $fh, "<:raw", $file
297 or return;
298 sysread $fh, my $buf, $size;
299
300 1
301}
302
303our %LOG_FH;
304
305sub do_logprint {
306 my ($path, $line) = @_;
307
308 $LOG_FH{$path} ||= do {
309 open my $fh, ">>:utf8", $path
310 or warn "Couldn't open logfile $path: $!";
311
312 $fh->autoflush (1);
313
314 $fh
315 };
316
317 my ($sec, $min, $hour, $mday, $mon, $year) = localtime time;
318
319 my $ts = sprintf "%04d-%02d-%02d %02d:%02d:%02d",
320 $year + 1900, $mon + 1, $mday, $hour, $min, $sec;
321
322 print { $LOG_FH{$path} } "$ts $line\n"
323}
324
234sub run { 325sub run {
235 ($FH, my $fh) = CFPlus::socketpipe; 326 ($FH, my $fh) = CFPlus::socketpipe;
236 327
237 my $oldfh = select $FH; $| = 1; select $oldfh; 328 my $oldfh = select $FH; $| = 1; select $oldfh;
238 my $oldfh = select $fh; $| = 1; select $oldfh; 329 my $oldfh = select $fh; $| = 1; select $oldfh;
239 330
240 my $pid = fork; 331 my $pid = fork;
241 332
242 if (defined $pid && !$pid) { 333 if (defined $pid && !$pid) {
334 local $SIG{QUIT};
243 local $SIG{__DIE__}; 335 local $SIG{__DIE__};
336 local $SIG{__WARN__};
244 eval { 337 eval {
245 close $FH; 338 close $FH;
246 339
247 unless (eval { open_db }) { 340 unless (eval { open_db }) {
248 File::Path::rmtree $DB_HOME; 341 eval { File::Path::rmtree $DB_HOME };
249 open_db; 342 open_db;
250 } 343 }
251 344
252 while () { 345 while () {
253 4 == read $fh, my $len, 4 346 4 == read $fh, my $len, 4
… …
278 371
279 CFPlus::_exit 0; 372 CFPlus::_exit 0;
280 } 373 }
281 374
282 close $fh; 375 close $fh;
283 fcntl $FH, F_SETFL, O_NONBLOCK; 376 CFPlus::fh_nonblocking $FH, 1;
284 377
285 $CB{die} = sub { die shift }; 378 $CB{die} = sub { die shift };
286 379
287 $fh_r_watcher = AnyEvent->io (fh => $FH, poll => 'r', cb => \&fh_read); 380 $fh_r_watcher = Event->io (fd => $FH, poll => 'r', nice => 1, cb => \&fh_read);
381 $fh_w_watcher = Event->io (fd => $FH, poll => 'w', nice => -1, parked => 1, cb => \&fh_write);
382 $SYNC->start;
383}
288 384
289 sync_tick; 385sub stop {
386 close $FH;
290} 387}
291 388
2921; 3891;
293 390
294=back 391=back

Diff Legend

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