--- deliantra/Deliantra-Client/DC.pm	2006/04/16 07:25:29	1.37
+++ deliantra/Deliantra-Client/DC.pm	2006/04/19 23:37:48	1.41
@@ -23,7 +23,7 @@
 
 use AnyEvent;
 use BerkeleyDB;
-use SDL::OpenGL;
+use CFClient::OpenGL;
 
 our %GL_EXT;
 our $GL_VERSION;
@@ -95,17 +95,22 @@
 our $DB_ENV = new BerkeleyDB::Env
                  -Home => "$Crossfire::VARDIR/pclient",
                  -Cachesize => 1_000_000,
-                 -ErrFile => "/proc/self/fd/2",
-                 -ErrPrefix => "DATABASE",
+                 -ErrFile => "$Crossfire::VARDIR/pclient/errorlog.txt",
+#                 -ErrPrefix => "DATABASE",
                  -Verbose => 1,
-                 -Flags => DB_CREATE | DB_JOINENV | DB_RECOVER_FATAL | DB_INIT_MPOOL | DB_INIT_LOCK | DB_INIT_TXN,
+                 -Flags => DB_CREATE | DB_RECOVER_FATAL | DB_INIT_MPOOL | DB_INIT_LOCK | DB_INIT_TXN,
                     or die "unable to create/open database home $Crossfire::VARDIR/pclient: $BerkeleyDB::Error";
 
 sub db_table($) {
+   my ($table) = @_;
+
+   $table =~ s/([^a-zA-Z0-9_\-])/sprintf "=%x=", ord $1/ge;
+   
    new CFClient::Database
       -Env      => $DB_ENV,
-      -Filename => "database",
-      -Subname  => $_[0],
+      -Filename => $table,
+#      -Filename => "database",
+#      -Subname  => $table,
       -Flags    => DB_CREATE | DB_UPGRADE,
          or die "unable to create/open database table $_[0]: $BerkeleyDB::Error";
 }
@@ -138,7 +143,7 @@
 
 use Scalar::Util;
 
-use SDL::OpenGL;
+use CFClient::OpenGL;
 
 my %TEXTURES;
 
@@ -262,7 +267,9 @@
    $self->{s} = $self->{w} / $tw;
    $self->{t} = $self->{h} / $th;
 
-   $self->{name} ||= (glGenTextures 1)->[0];
+   glGetError;
+
+   $self->{name} ||= glGenTexture;
 
    glBindTexture GL_TEXTURE_2D, $self->{name};
 
@@ -279,7 +286,10 @@
                    $self->{format},
                    $self->{type},
                    $data;
-      glGetError and die;
+      if (my $error = glGetError) {
+         warn sprintf "texture upload error: %x %dx%d i=%x f=%x t=%x\n",
+                      $error, $tw, $th, $self->{internalformat},  $self->{format}, $self->{type};
+      }
    } else {
       glCopyTexImage2D GL_TEXTURE_2D, 0,
                    $self->{internalformat},
@@ -295,7 +305,7 @@
 
    delete $TEXTURES{$self+0};
 
-   glDeleteTextures delete $self->{name}
+   glDeleteTexture delete $self->{name}
       if $self->{name};
 }