--- deliantra/Deliantra-Client/DC.pm	2007/04/01 15:08:14	1.139
+++ deliantra/Deliantra-Client/DC.pm	2007/12/25 19:23:11	1.165
@@ -17,7 +17,7 @@
 use Carp ();
 
 BEGIN {
-   $VERSION = '0.97';
+   $VERSION = '0.9961';
 
    use XSLoader;
    XSLoader::load "CFPlus", $VERSION;
@@ -26,16 +26,11 @@
 use utf8;
 
 use AnyEvent ();
-use BerkeleyDB;
 use Pod::POM ();
 use File::Path ();
 use Storable (); # finally
-
-BEGIN {
-   use Crossfire::Protocol::Base ();
-   *to_json   = \&Crossfire::Protocol::Base::to_json;
-   *from_json = \&Crossfire::Protocol::Base::from_json;
-}
+use Fcntl ();
+use JSON::XS qw(encode_json decode_json);
 
 =item guard { BLOCK }
 
@@ -73,7 +68,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 +140,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($) {
@@ -199,7 +167,7 @@
       utf8::decode $CFG;
       $::CFG = YAML::Load ($CFG);
    } elsif ($CFG =~ /^\{/) {
-      $::CFG = from_json $CFG;
+      $::CFG = decode_json $CFG;
    } else {
       $::CFG = eval $CFG; ## todo comaptibility cruft
    }
@@ -212,7 +180,7 @@
 
    open my $fh, ">:utf8", $file
       or return;
-   print $fh to_json $::CFG;
+   print $fh encode_json $::CFG;
 }
 
 sub http_proxy {
@@ -256,58 +224,26 @@
    $res
 }
 
-our $DB_ENV;
-our $DB_STATE;
+sub fh_nonblocking($$) {
+   my ($fh, $nb) = @_;
 
-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
-}
+   if ($^O eq "MSWin32") {
+      $nb = (! ! $nb) + 0;
+      ioctl $fh, 0x8004667e, \$nb; # FIONBIO
+   } else {
+      fcntl $fh, &Fcntl::F_SETFL, $nb ? &Fcntl::O_NONBLOCK : 0;
+   }
 
-unless (eval { open_db }) {
-   File::Path::rmtree $DB_HOME;
-   open_db;
 }
 
 package CFPlus::Layout;
 
+$CFPlus::OpenGL::INIT_HOOK{"CFPlus::Layout"} = sub {
+   glyph_cache_restore;
+};
+
 $CFPlus::OpenGL::SHUTDOWN_HOOK{"CFPlus::Layout"} = sub {
-   reset_glyph_cache;
+   glyph_cache_backup;
 };
 
 1;