--- deliantra/Deliantra-Client/DC.pm	2007/04/01 15:08:14	1.139
+++ deliantra/Deliantra-Client/DC.pm	2007/04/06 07:45:33	1.140
@@ -26,7 +26,6 @@
 use utf8;
 
 use AnyEvent ();
-use BerkeleyDB;
 use Pod::POM ();
 use File::Path ();
 use Storable (); # finally
@@ -73,7 +72,7 @@
 
 sub socketpipe() {
    socketpair my $fh1, my $fh2, Socket::AF_UNIX, Socket::SOCK_STREAM, Socket::PF_UNSPEC
-      or die "cannot establish bidiretcional pipe: $!\n";
+      or die "cannot establish bidirectional pipe: $!\n";
 
    ($fh1, $fh2)
 }
@@ -145,33 +144,6 @@
    print $msg, "\n";
 }
 
-package CFPlus::Database;
-
-our @ISA = BerkeleyDB::Btree::;
-
-sub get($$) {
-   my $data;
-
-   $_[0]->db_get ($_[1], $data) == 0
-      ? $data
-      : ()
-}
-
-my %DB_SYNC;
-
-sub put($$$) {
-   my ($db, $key, $data) = @_;
-
-   my $hkey = $db + 0;
-   CFPlus::weaken $db;
-   $DB_SYNC{$hkey} ||= AnyEvent->timer (after => 30, cb => sub {
-      delete $DB_SYNC{$hkey};
-      $db->db_sync if $db;
-   });
-
-   $db->db_put ($key => $data)
-}
-
 package CFPlus;
 
 sub find_rcfile($) {
@@ -256,54 +228,6 @@
    $res
 }
 
-our $DB_ENV;
-our $DB_STATE;
-
-sub db_table($) {
-   my ($table) = @_;
-
-   $table =~ s/([^a-zA-Z0-9_\-])/sprintf "=%x=", ord $1/ge;
-
-   new CFPlus::Database
-      -Env      => $DB_ENV,
-      -Filename => $table,
-#      -Filename => "database",
-#      -Subname  => $table,
-      -Property => DB_CHKSUM,
-      -Flags    => DB_CREATE | DB_UPGRADE,
-         or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"
-}
-
-our $DB_HOME = "$Crossfire::VARDIR/cfplus";
-
-sub open_db {
-   use strict;
-
-   mkdir $DB_HOME, 0777;
-   my $recover = $BerkeleyDB::db_version >= 4.4 
-                 ? eval "DB_REGISTER | DB_RECOVER"
-                 : 0;
-
-   $DB_ENV = new BerkeleyDB::Env
-                    -Home => $DB_HOME,
-                    -Cachesize => 8_000_000,
-                    -ErrFile => "$DB_HOME/errorlog.txt",
-#                 -ErrPrefix => "DATABASE",
-                    -Verbose => 1,
-                    -Flags => DB_CREATE | DB_RECOVER | DB_INIT_MPOOL | DB_INIT_LOCK | DB_INIT_TXN | $recover,
-                    -SetFlags => DB_AUTO_COMMIT | DB_LOG_AUTOREMOVE,
-                       or die "unable to create/open database home $DB_HOME: $BerkeleyDB::Error";
-
-   $DB_STATE = db_table "state";
-
-   1
-}
-
-unless (eval { open_db }) {
-   File::Path::rmtree $DB_HOME;
-   open_db;
-}
-
 package CFPlus::Layout;
 
 $CFPlus::OpenGL::SHUTDOWN_HOOK{"CFPlus::Layout"} = sub {