Changeset 18659 for gsdl/trunk/perllib

Timestamp:

2009-03-11T13:13:55+13:00 (15 years ago)

Author:

kjdon

Message:

we now use .gdb as gdbm db file extension instead of ldb/bdb

Location:

gsdl/trunk/perllib

Files:

• plugins/ArchivesInfPlugin.pm (modified) (2 diffs)
• plugins/DirectoryPlugin.pm (modified) (1 diff)
• plugouts/BasePlugout.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm

@@ -25 +25 @@
 
 # plugin which reads through an archives.inf (or GDBM equivalent,
-# archiveinf-doc.{ldb,bdb} file (i.e. the file generated in the
+# archiveinf-doc.gdb file (i.e. the file generated in the
 # archives directory when an import is done), processing each file it
 # finds
@@ -204 +204 @@
     # see if this has a archives information file within it
 ##    my $archive_info_filename = &util::filename_cat($base_dir,$file,"archives.inf");
-    my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb";
-    my $doc_db = "archiveinf-doc$db_ext";
+
+    my $doc_db = "archiveinf-doc.gdb";
     my $archive_info_filename = &util::filename_cat($base_dir,$file,$doc_db);
 

gsdl/trunk/perllib/plugins/DirectoryPlugin.pm

@@ -132 +132 @@
     my $output_dir = $processor->getoutputdir();
 ##  my $archives_inf = &util::filename_cat($output_dir,"archives.inf");
-    my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb";
-    my $doc_db = "archiveinf-doc$db_ext";
+    my $doc_db = "archiveinf-doc.gdb";
         my $archives_inf = &util::filename_cat($output_dir,$doc_db);
 

gsdl/trunk/perllib/plugouts/BasePlugout.pm

@@ -701 +701 @@
 
     my $output_dir = $self->{'output_dir'};
-    my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb";
-
-    my $doc_db = &util::filename_cat($output_dir,"archiveinf-doc$db_ext");
-    my $src_db = &util::filename_cat($output_dir,"archiveinf-src$db_ext");
+
+    my $doc_db = &util::filename_cat($output_dir,"archiveinf-doc.gdb");
+    my $src_db = &util::filename_cat($output_dir,"archiveinf-src.gdb");
 
     my $doc_db_text = "";