Changeset 15710 for gsdl/trunk/perllib/dbutil.pm

Timestamp:

2008-05-27T12:06:29+12:00 (16 years ago)

Author:

mdewsnip

Message:

(Adding new DB support) Adding new get_infodb_file_path() function to dbutil to abstract away the GDBM endian stuff, and changed basebuilder::make_infodatabase() to use it.

File:

• gsdl/trunk/perllib/dbutil.pm (modified) (2 diffs)

gsdl/trunk/perllib/dbutil.pm

@@ -29 +29 @@
 
 
+sub get_infodb_file_path
+{
+    my $collection_name = shift(@_);
+    my $infodb_directory_path = shift(@_);
+
+    return &get_infodb_file_path_gdbm($collection_name, $infodb_directory_path);
+}
+
+
 sub read_infodb_file
 {
@@ -52 +61 @@
 #   GDBM FUNCTIONS
 # ----------------------------------------------------------------------------------------
+
+sub get_infodb_file_path_gdbm
+{
+    my $collection_name = shift(@_);
+    my $infodb_directory_path = shift(@_);
+
+    my $infodb_file_extension = (&util::is_little_endian() ? ".ldb" : ".bdb");
+    my $infodb_file_name = &util::get_dirsep_tail($collection_name) . $infodb_file_extension;
+    return &util::filename_cat($infodb_directory_path, $infodb_file_name);
+}
+
 
 sub read_infodb_file_gdbm