Changeset 28000

Timestamp:

2013-08-08T12:07:37+12:00 (11 years ago)

Author:

jmt12

Message:

Functions for determining if the plugout supports writing Datestamp and RSS information internally (or if Greenstone should handle writing them itself)

File:

• gs2-extensions/tdb-edit/trunk/src/perllib/dbutil.pm (modified) (2 diffs)

gs2-extensions/tdb-edit/trunk/src/perllib/dbutil.pm

@@ -95 +95 @@
 
 
+## @function test_dynamic_driver_function()
+#
+# Checks to see if a function in a dynamically loaded driver exists
+#
+sub test_dynamic_driver_function
+{
+  my $function_name = shift(@_);
+  my $driver_name = shift(@_);
+  my $package_name = 'dbutil::' . $driver_name;
+  # - try to load the requested infodb type
+  if (!&load_db_driver($package_name))
+  {
+    # - try loading the default GDBM driver
+    print STDERR 'Warning! Using default database driver (GDBM) as failed to load configured database driver: ' . $driver_name . "\n";
+    $package_name = 'dbutil::gdbm';
+    if (!&load_db_driver($package_name))
+    {
+      die("Fatal Error! Failed to load default database driver: dbutil::gdbm\n");
+    }
+  }
+  # - make call to the newly created package
+  no strict;
+  # - lets check that the function we are about to call
+  my $symbol = qualify($function_name, $package_name);
+  return defined &{$symbol};
+}
+## test_dynamic_driver_function() ##
+
+
+## @function
+#
 sub open_infodb_write_handle
 {
@@ -170 +201 @@
     return &dbutil::call_dynamic_driver_function('read_infodb_keys', $infodb_type, $infodb_file_path, $infodb_map, @_);
 }
+
+
+## @function supportDatestamp
+#
+sub supportsDatestamp
+{
+  my $infodb_type = shift(@_);
+  return &dbutil::test_dynamic_driver_function('supportsDatestamp', $infodb_type);
+}
+## supportsDatestamp() ##
+
+
+## @function supportRSS
+#
+sub supportsRSS
+{
+  my $infodb_type = shift(@_);
+  return &dbutil::test_dynamic_driver_function('supportsRSS', $infodb_type);
+}
+## supportsRSS() ##
+
 
 sub write_infodb_entry