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.3 by root, Fri Apr 6 21:53:56 2007 UTC vs.
Revision 1.18 by root, Mon Aug 13 06:47:07 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
23 24
24use CFPlus; 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}
25 33
26sub sync { 34sub sync {
27 # for debugging 35 # for debugging
28 #CFPlus::DB::Server::req (sync => sub { }); 36 #CFPlus::DB::Server::req (sync => sub { });
29 CFPlus::DB::Server::sync (); 37 CFPlus::DB::Server::sync ();
30} 38}
31 39
40sub exists($$$) {
41 CFPlus::DB::Server::req (exists => @_);
42}
43
32sub get($$$) { 44sub get($$$) {
33 CFPlus::DB::Server::req (get => @_); 45 CFPlus::DB::Server::req (get => @_);
34} 46}
35 47
36sub put($$$$) { 48sub put($$$$) {
37 CFPlus::DB::Server::req (put => @_); 49 CFPlus::DB::Server::req (put => @_);
50}
51
52sub unlink($$) {
53 CFPlus::DB::Server::req (unlink => @_);
54}
55
56sub read_file($$) {
57 CFPlus::DB::Server::req (read_file => @_);
58}
59
60sub write_file($$$) {
61 CFPlus::DB::Server::req (write_file => @_);
62}
63
64sub prefetch_file($$$) {
65 CFPlus::DB::Server::req (prefetch_file => @_);
66}
67
68sub logprint($$$) {
69 CFPlus::DB::Server::req (logprint => @_);
38} 70}
39 71
40our $tilemap; 72our $tilemap;
41 73
42sub get_tile_id_sync($) { 74sub get_tile_id_sync($) {
… …
61use strict; 93use strict;
62 94
63use Fcntl; 95use Fcntl;
64use BerkeleyDB; 96use BerkeleyDB;
65 97
66our $DB_HOME = "$Crossfire::VARDIR/cfplus";
67our $DB_ENV; 98our $DB_ENV;
68our $DB_STATE; 99our $DB_STATE;
69our %DB_TABLE; 100our %DB_TABLE;
70 101
71sub open_db { 102sub open_db {
… …
102 -Flags => DB_CREATE | DB_UPGRADE, 133 -Flags => DB_CREATE | DB_UPGRADE,
103 or die "unable to create/open database table $_[0]: $BerkeleyDB::Error" 134 or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"
104 } 135 }
105} 136}
106 137
107our $SYNC_INTERVAL = 6;
108
109our %CB; 138our %CB;
110our $FH; 139our $FH;
111our $ID = "aaa0"; 140our $ID = "aaa0";
112our ($fh_r_watcher, $fh_w_watcher); 141our ($fh_r_watcher, $fh_w_watcher);
113our $sync_timer; 142our $sync_timer;
114our $write_buf; 143our $write_buf;
115our $read_buf; 144our $read_buf;
116 145
146our $SYNC = Event->idle (min => 120, max => 180, parked => 1, cb => sub {
147 CFPlus::DB::Server::req (sync => sub { });
148 $_[0]->w->stop;
149});
150
117sub fh_write { 151sub fh_write {
118 my $len = syswrite $FH, $write_buf; 152 my $len = syswrite $FH, $write_buf;
119 153
120 substr $write_buf, 0, $len, ""; 154 substr $write_buf, 0, $len, "";
121 155
122 undef $fh_w_watcher 156 $fh_w_watcher->stop
123 unless length $write_buf; 157 unless length $write_buf;
124} 158}
125 159
126sub fh_read { 160sub fh_read {
127 my $status = sysread $FH, $read_buf, 16384, length $read_buf; 161 my $status = sysread $FH, $read_buf, 16384, length $read_buf;
… …
163 197
164 my $id = ++$ID; 198 my $id = ++$ID;
165 $write_buf .= pack "N/a*", Storable::freeze [$id, $type, @args]; 199 $write_buf .= pack "N/a*", Storable::freeze [$id, $type, @args];
166 $CB{$id} = $cb; 200 $CB{$id} = $cb;
167 201
168 $fh_w_watcher = AnyEvent->io (fh => $FH, poll => 'w', cb => \&fh_write); 202 $fh_w_watcher->start;
169} 203 $SYNC->start;
170
171sub sync_tick {
172 req "sync", sub { };
173 $sync_timer = AnyEvent->timer (after => $SYNC_INTERVAL, cb => \&sync_tick);
174} 204}
175 205
176sub do_sync { 206sub do_sync {
177 $DB_ENV->txn_checkpoint (0, 0, 0); 207 $DB_ENV->txn_checkpoint (0, 0, 0);
178 () 208 ()
179} 209}
180 210
211sub do_exists {
212 my ($db, $key) = @_;
213
214 utf8::downgrade $key;
215 my $data;
216 (table $db)->db_get ($key, $data) == 0
217 ? length $data
218 : ()
219}
220
181sub do_get { 221sub do_get {
182 my ($db, $key) = @_; 222 my ($db, $key) = @_;
183 223
224 utf8::downgrade $key;
184 my $data; 225 my $data;
185 (table $db)->db_get ($key, $data) == 0 226 (table $db)->db_get ($key, $data) == 0
186 ? $data 227 ? $data
187 : () 228 : ()
188} 229}
189 230
190sub do_put { 231sub do_put {
191 my ($db, $key, $data) = @_; 232 my ($db, $key, $data) = @_;
192 233
234 utf8::downgrade $key;
235 utf8::downgrade $data;
193 (table $db)->db_put ($key => $data) 236 (table $db)->db_put ($key => $data)
194} 237}
195 238
196sub do_table { 239sub do_table {
197 my ($db) = @_; 240 my ($db) = @_;
… …
231 } 274 }
232 275
233 die "maximum number of transaction retries reached - database problems?"; 276 die "maximum number of transaction retries reached - database problems?";
234} 277}
235 278
279sub do_unlink {
280 unlink $_[0];
281}
282
283sub do_read_file {
284 my ($path) = @_;
285
286 utf8::downgrade $path;
287 open my $fh, "<:raw", $path
288 or return;
289 sysread $fh, my $buf, -s $fh;
290
291 $buf
292}
293
294sub do_write_file {
295 my ($path, $data) = @_;
296
297 utf8::downgrade $path;
298 utf8::downgrade $data;
299 open my $fh, ">:raw", $path
300 or return;
301 syswrite $fh, $data;
302 close $fh;
303
304 1
305}
306
307sub do_prefetch_file {
308 my ($path, $size) = @_;
309
310 utf8::downgrade $path;
311 open my $fh, "<:raw", $path
312 or return;
313 sysread $fh, my $buf, $size;
314
315 1
316}
317
318our %LOG_FH;
319
320sub do_logprint {
321 my ($path, $line) = @_;
322
323 $LOG_FH{$path} ||= do {
324 open my $fh, ">>:utf8", $path
325 or warn "Couldn't open logfile $path: $!";
326
327 $fh->autoflush (1);
328
329 $fh
330 };
331
332 my ($sec, $min, $hour, $mday, $mon, $year) = localtime time;
333
334 my $ts = sprintf "%04d-%02d-%02d %02d:%02d:%02d",
335 $year + 1900, $mon + 1, $mday, $hour, $min, $sec;
336
337 print { $LOG_FH{$path} } "$ts $line\n"
338}
339
236sub run { 340sub run {
237 ($FH, my $fh) = CFPlus::socketpipe; 341 ($FH, my $fh) = CFPlus::socketpipe;
238 342
239 my $oldfh = select $FH; $| = 1; select $oldfh; 343 my $oldfh = select $FH; $| = 1; select $oldfh;
240 my $oldfh = select $fh; $| = 1; select $oldfh; 344 my $oldfh = select $fh; $| = 1; select $oldfh;
241 345
242 my $pid = fork; 346 my $pid = fork;
243 347
244 if (defined $pid && !$pid) { 348 if (defined $pid && !$pid) {
349 local $SIG{QUIT};
245 local $SIG{__DIE__}; 350 local $SIG{__DIE__};
351 local $SIG{__WARN__};
246 eval { 352 eval {
247 close $FH; 353 close $FH;
248 354
249 unless (eval { open_db }) { 355 unless (eval { open_db }) {
250 File::Path::rmtree $DB_HOME; 356 eval { File::Path::rmtree $DB_HOME };
251 open_db; 357 open_db;
252 } 358 }
253 359
254 while () { 360 while () {
255 4 == read $fh, my $len, 4 361 4 == read $fh, my $len, 4
… …
284 close $fh; 390 close $fh;
285 CFPlus::fh_nonblocking $FH, 1; 391 CFPlus::fh_nonblocking $FH, 1;
286 392
287 $CB{die} = sub { die shift }; 393 $CB{die} = sub { die shift };
288 394
289 $fh_r_watcher = AnyEvent->io (fh => $FH, poll => 'r', cb => \&fh_read); 395 $fh_r_watcher = Event->io (fd => $FH, poll => 'r', nice => 1, cb => \&fh_read);
396 $fh_w_watcher = Event->io (fd => $FH, poll => 'w', nice => -1, parked => 1, cb => \&fh_write);
397 $SYNC->start;
398}
290 399
291 sync_tick; 400sub stop {
401 close $FH;
292} 402}
293 403
2941; 4041;
295 405
296=back 406=back

Diff Legend

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