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

Comparing deliantra/Deliantra-Client/DC.pm (file contents):
Revision 1.75 by root, Mon May 29 21:10:47 2006 UTC vs.
Revision 1.76 by root, Mon May 29 21:20:15 2006 UTC

… …
70 close CFG; 70 close CFG;
71} 71}
72 72
73mkdir "$Crossfire::VARDIR/cfplus", 0777; 73mkdir "$Crossfire::VARDIR/cfplus", 0777;
74 74
75{
76 use strict;
77
75our $DB_ENV = new BerkeleyDB::Env 78 our $DB_ENV = new BerkeleyDB::Env
76 -Home => "$Crossfire::VARDIR/cfplus", 79 -Home => "$Crossfire::VARDIR/cfplus",
77 -Cachesize => 1_000_000, 80 -Cachesize => 1_000_000,
78 -ErrFile => "$Crossfire::VARDIR/cfplus/errorlog.txt", 81 -ErrFile => "$Crossfire::VARDIR/cfplus/errorlog.txt",
79# -ErrPrefix => "DATABASE", 82# -ErrPrefix => "DATABASE",
80 -Verbose => 1, 83 -Verbose => 1,
81 -Flags => DB_CREATE | DB_RECOVER | DB_INIT_MPOOL | DB_INIT_LOCK | DB_INIT_TXN, 84 -Flags => DB_CREATE | DB_RECOVER | DB_INIT_MPOOL | DB_INIT_LOCK | DB_INIT_TXN,
85 -SetFlags => DB_AUTO_COMMIT | DB_LOG_AUTOREMOVE | DB_TXN_WRITE_NOSYNC,
82 or die "unable to create/open database home $Crossfire::VARDIR/cfplus: $BerkeleyDB::Error"; 86 or die "unable to create/open database home $Crossfire::VARDIR/cfplus: $BerkeleyDB::Error";
87}
83 88
84sub db_table($) { 89sub db_table($) {
85 my ($table) = @_; 90 my ($table) = @_;
86 91
87 $table =~ s/([^a-zA-Z0-9_\-])/sprintf "=%x=", ord $1/ge; 92 $table =~ s/([^a-zA-Z0-9_\-])/sprintf "=%x=", ord $1/ge;
88 93
89 new CFClient::Database 94 new CFClient::Database
90 -Env => $DB_ENV, 95 -Env => $DB_ENV,
91 -Filename => $table, 96 -Filename => $table,
92# -Filename => "database", 97# -Filename => "database",
93# -Subname => $table, 98# -Subname => $table,
94 -Property => DB_CHKSUM, 99 -Property => DB_CHKSUM,
95 -Flags => DB_CREATE | DB_UPGRADE, 100 -Flags => DB_CREATE | DB_UPGRADE,
96 or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"; 101 or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"
97} 102}
98 103
99sub pod_to_pango($) { 104sub pod_to_pango($) {
100 my ($pom) = @_; 105 my ($pom) = @_;
101 106

Diff Legend

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