Changeset 15711 for gsdl/trunk/perllib/basebuilder.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/basebuilder.pm (modified) (1 diff)

gsdl/trunk/perllib/basebuilder.pm

@@ -342 +342 @@
     }
     else {
-    my $exedir = "$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}";
-    my $exe = &util::get_os_exe ();
-    my $txt2db_exe = &util::filename_cat($exedir, "txt2db$exe");
-
-    if (!-e "$txt2db_exe" || !open (PIPEOUT, "| txt2db$exe \"$infodb_file_path\"")) {
+    $infodb_handle = &dbutil::open_infodb_write_handle($infodb_file_path);
+    if (!defined($infodb_handle))
+    {
         print STDERR "<FatalError name='NoRunText2DB'/>\n</Stage>\n" if $self->{'gli'};
-        die "builder::make_infodatabase - couldn't run $txt2db_exe\n";
-    }
-    $infodb_handle = *PIPEOUT;
+        die "builder::make_infodatabase - couldn't open infodb write handle\n";
+    }
     }