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

Timestamp:

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

Author:

mdewsnip

Message:

(Adding new DB support) Creating a new "open_infodb_write_handle()" function in dbutil.pm to remove the last bit of GDBM-specific code from basebuilder.pm.

File:

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

gsdl/trunk/perllib/dbutil.pm

@@ -38 +38 @@
 
 
+sub open_infodb_write_handle
+{
+    my $infodb_file_path = shift(@_);
+
+    return &open_infodb_write_handle_gdbm($infodb_file_path);
+}
+
+
 sub read_infodb_file
 {
@@ -70 +78 @@
     my $infodb_file_name = &util::get_dirsep_tail($collection_name) . $infodb_file_extension;
     return &util::filename_cat($infodb_directory_path, $infodb_file_name);
+}
+
+
+sub open_infodb_write_handle_gdbm
+{
+    my $infodb_file_path = shift(@_);
+
+    my $txt2db_exe = &util::filename_cat("$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}", "txt2db" . &util::get_os_exe());
+    if (!-e "$txt2db_exe" || !open(PIPEOUT, "| $txt2db_exe \"$infodb_file_path\""))
+    {
+    return undef;
+    }
+
+    return *PIPEOUT;
 }