Changeset 18658

Timestamp:

2009-03-11T13:13:31+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:

• GDBMUtils.pm (modified) (1 diff)
• dbutil.pm (modified) (1 diff)
• inexport.pm (modified) (3 diffs)

gsdl/trunk/perllib/GDBMUtils.pm

@@ -197 +197 @@
     my $collection = shift(@_);
 
-    # Find out the database extension
-    my $ext = &util::is_little_endian() ? ".ldb" : ".bdb";
-
-    # Now return the full filename of the database
-
-    return &util::filename_cat($ENV{'GSDLHOME'}, "collect", $collection, "index", "text", $collection.$ext);
+    # Return the full filename of the database
+
+    return &util::filename_cat($ENV{'GSDLHOME'}, "collect", $collection, "index", "text", "$collection.gdb");
   }
 # /** getDatabasePath **/

gsdl/trunk/perllib/dbutil.pm

@@ -348 +348 @@
   my $infodb_directory_path = shift(@_);
 
-  my $infodb_file_extension = (&util::is_little_endian() ? ".ldb" : ".bdb");
+  my $infodb_file_extension = ".gdb";
   my $infodb_file_name = &util::get_dirsep_tail($collection_name) . $infodb_file_extension;
   return &util::filename_cat($infodb_directory_path, $infodb_file_name);

gsdl/trunk/perllib/inexport.pm

@@ -181 +181 @@
     my ($archive_info,$deleted_files_ref,$archivedir,$verbosity,$mode_text) = @_;
 
-    my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb";
-    my $doc_db = "archiveinf-doc$db_ext";
-    my $src_db = "archiveinf-src$db_ext";
+    my $doc_db = "archiveinf-doc.gdb";
+    my $src_db = "archiveinf-src.gdb";
     my $arcinfo_doc_filename = &util::filename_cat ($archivedir, $doc_db);
     my $arcinfo_src_filename = &util::filename_cat ($archivedir, $src_db);
@@ -263 +262 @@
     # deals with it appropriately.
 
-    my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb";
-    my $doc_db = "archiveinf-doc$db_ext";
+    my $doc_db = "archiveinf-doc.gdb";
     my $arcinfo_doc_filename = &util::filename_cat ($archivedir, $doc_db);
 
@@ -296 +294 @@
 
 
-
 1;