switch back to GDBM_File which is included in recent

[webpac] / all2xml.pl

diff --git a/all2xml.pl b/all2xml.pl
index a7e7ade..e87fdbf 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -8,9 +8,9 @@ use XML::Simple;
 use Text::Iconv;
 use Config::IniFiles;
 use Encode;
-#use GDBM_File;
+use GDBM_File;
 use Fcntl;     # for O_RDWR
-use TDB_File;
+#use TDB_File;
 use Carp;
 
 $|=1;
@@ -673,12 +673,12 @@ foreach my $database ($cfg->Sections) {
        # create new lookup file
        my $lookup_file = $cfg -> val($database, 'lookup_newfile'); # optional
        if ($lookup_file) {
-               #tie %lhash, 'GDBM_File', $lookup_file, &GDBM_NEWDB, 0644;
                if (! -e $lookup_file) {
                        open(LOOKUP, "> $lookup_file") || die "can't create $lookup_file': $!";
                        close(LOOKUP);
                }
-               tie %lhash, 'TDB_File', $lookup_file, TDB_CLEAR_IF_FIRST, O_RDWR, 0644;
+               tie %lhash, 'GDBM_File', $lookup_file, &GDBM_NEWDB, 0644;
+               #tie %lhash, 'TDB_File', $lookup_file, TDB_CLEAR_IF_FIRST, O_RDWR, 0644;
                print STDERR "creating lookup file '$lookup_file'\n";
                # delete memory cache for lookup file
                delete $cache->{lhash};
@@ -687,8 +687,8 @@ foreach my $database ($cfg->Sections) {
        # open existing lookup file
        $lookup_file = $cfg -> val($database, 'lookup_open'); # optional
        if ($lookup_file) {
-               #tie %lhash, 'GDBM_File', $lookup_file, &GDBM_READER, 0644;
-               tie %lhash, 'TDB_File', $lookup_file, TDB_DEFAULT, O_RDWR, 0644;
+               tie %lhash, 'GDBM_File', $lookup_file, &GDBM_READER, 0644;
+               #tie %lhash, 'TDB_File', $lookup_file, TDB_DEFAULT, O_RDWR, 0644;
                print STDERR "opening lookup file '$lookup_file'\n";
        }