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.8 by root, Thu Jul 5 10:15:17 2007 UTC vs.
Revision 1.9 by root, Thu Jul 12 17:56:51 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
… …
18use utf8; 18use utf8;
19 19
20use Carp (); 20use Carp ();
21use AnyEvent (); 21use AnyEvent ();
22use Storable (); 22use Storable ();
23use Config;
23 24
24use CFPlus; 25use CFPlus;
26
27our $DB_HOME = "$Crossfire::VARDIR/cfplus-$BerkeleyDB::db_version-$Config{archname}";
28
29sub path_of($) {
30 "$DB_HOME/data-$_[0]"
31}
25 32
26sub sync { 33sub sync {
27 # for debugging 34 # for debugging
28 #CFPlus::DB::Server::req (sync => sub { }); 35 #CFPlus::DB::Server::req (sync => sub { });
29 CFPlus::DB::Server::sync (); 36 CFPlus::DB::Server::sync ();
30} 37}
31 38
39sub exists($$$) {
40 CFPlus::DB::Server::req (exists => @_);
41}
42
32sub get($$$) { 43sub get($$$) {
33 CFPlus::DB::Server::req (get => @_); 44 CFPlus::DB::Server::req (get => @_);
34} 45}
35 46
36sub put($$$$) { 47sub put($$$$) {
37 CFPlus::DB::Server::req (put => @_); 48 CFPlus::DB::Server::req (put => @_);
49}
50
51sub unlink($$) {
52 CFPlus::DB::Server::req (unlink => @_);
53}
54
55sub write_file($$$) {
56 CFPlus::DB::Server::req (write_file => @_);
38} 57}
39 58
40our $tilemap; 59our $tilemap;
41 60
42sub get_tile_id_sync($) { 61sub get_tile_id_sync($) {
… …
60 79
61use strict; 80use strict;
62 81
63use Fcntl; 82use Fcntl;
64use BerkeleyDB; 83use BerkeleyDB;
65use Config;
66 84
67our $DB_HOME = "$Crossfire::VARDIR/cfplus-$BerkeleyDB::db_version-$Config{archname}";
68our $DB_ENV; 85our $DB_ENV;
69our $DB_STATE; 86our $DB_STATE;
70our %DB_TABLE; 87our %DB_TABLE;
71 88
72sub open_db { 89sub open_db {
… …
177sub do_sync { 194sub do_sync {
178 $DB_ENV->txn_checkpoint (0, 0, 0); 195 $DB_ENV->txn_checkpoint (0, 0, 0);
179 () 196 ()
180} 197}
181 198
199sub do_exists {
200 my ($db, $key) = @_;
201
202 utf8::downgrade $key;
203 my $data;
204 (table $db)->db_get ($key, $data) == 0
205 ? length $data
206 : ()
207}
208
182sub do_get { 209sub do_get {
183 my ($db, $key) = @_; 210 my ($db, $key) = @_;
184 211
185 utf8::downgrade $key; 212 utf8::downgrade $key;
186 my $data; 213 my $data;
… …
235 } 262 }
236 263
237 die "maximum number of transaction retries reached - database problems?"; 264 die "maximum number of transaction retries reached - database problems?";
238} 265}
239 266
267sub do_unlink {
268 unlink $_[0];
269}
270
271sub do_write_file {
272 my ($file, $data) = @_;
273
274 utf8::downgrade $file;
275 utf8::downgrade $data;
276 open my $fh, ">:raw", CFPlus::DB::path_of $file
277 or return;
278 print $fh $data;
279 close $fh;
280
281 1
282}
283
240sub run { 284sub run {
241 ($FH, my $fh) = CFPlus::socketpipe; 285 ($FH, my $fh) = CFPlus::socketpipe;
242 286
243 my $oldfh = select $FH; $| = 1; select $oldfh; 287 my $oldfh = select $FH; $| = 1; select $oldfh;
244 my $oldfh = select $fh; $| = 1; select $oldfh; 288 my $oldfh = select $fh; $| = 1; select $oldfh;

Diff Legend

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