Changeset 15727

Timestamp:

2008-05-27T15:45:45+12:00 (16 years ago)

Author:

mdewsnip

Message:

(Adding new DB support) Added a dbutil::get_default_infodb_type() function, and called it from basebuilder if no 'infodbtype' value is specified in the collect.cfg file.

Location:

gsdl/trunk/perllib

Files:

• basebuilder.pm (modified) (1 diff)
• dbutil.pm (modified) (1 diff)

gsdl/trunk/perllib/basebuilder.pm

@@ -101 +101 @@
 
     # get the database type for this collection from the collect.cfg file (may be undefined)
-    $self->{'infodbtype'} = $self->{'collect_cfg'}->{'infodbtype'} || "";
+    $self->{'infodbtype'} = $self->{'collect_cfg'}->{'infodbtype'} || &dbutil::get_default_infodb_type();
 
     # get the list of plugins for this collection

gsdl/trunk/perllib/dbutil.pm

@@ -27 +27 @@
 
 use strict;
+
+
+sub get_default_infodb_type
+{
+    return "gdbm";
+}