… | |
… | |
100 | -Verbose => 1, |
100 | -Verbose => 1, |
101 | -Flags => DB_CREATE | DB_JOINENV | DB_RECOVER_FATAL | DB_INIT_MPOOL | DB_INIT_LOCK | DB_INIT_TXN, |
101 | -Flags => DB_CREATE | DB_JOINENV | DB_RECOVER_FATAL | DB_INIT_MPOOL | DB_INIT_LOCK | DB_INIT_TXN, |
102 | or die "unable to create/open database home $Crossfire::VARDIR/pclient: $BerkeleyDB::Error"; |
102 | or die "unable to create/open database home $Crossfire::VARDIR/pclient: $BerkeleyDB::Error"; |
103 | |
103 | |
104 | sub db_table($) { |
104 | sub db_table($) { |
|
|
105 | my ($table) = @_; |
|
|
106 | |
|
|
107 | $table =~ s/([^a-zA-Z0-9_\-])/sprintf "=%x=", ord $1/ge; |
|
|
108 | |
105 | new CFClient::Database |
109 | new CFClient::Database |
106 | -Env => $DB_ENV, |
110 | -Env => $DB_ENV, |
|
|
111 | -Filename => $table, |
107 | -Filename => "database", |
112 | # -Filename => "database", |
108 | -Subname => $_[0], |
113 | # -Subname => $table, |
109 | -Flags => DB_CREATE | DB_UPGRADE, |
114 | -Flags => DB_CREATE | DB_UPGRADE, |
110 | or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"; |
115 | or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"; |
111 | } |
116 | } |
112 | |
117 | |
113 | package CFClient::Database; |
118 | package CFClient::Database; |