--- deliantra/Deliantra-Client/DC.pm 2006/04/16 07:25:29 1.37 +++ deliantra/Deliantra-Client/DC.pm 2006/04/17 06:50:26 1.38 @@ -102,10 +102,15 @@ 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"; }