Changeset 21547

Timestamp:

2010-01-20T17:23:51+13:00 (14 years ago)

Author:

mdewsnip

Message:

Changed dbutil.pm to add a new read_infodb_entry() function. This currently has a temporary very slow and naive implementation that just reads the entire file and picks out the one requested value. This will soon be replaced with database-specific versions that will use dbget etc.

File:

• main/trunk/greenstone2/perllib/dbutil.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/dbutil.pm

@@ -178 +178 @@
 
 
+sub read_infodb_entry
+{
+  my $infodb_type = shift(@_);
+  my $infodb_file_path = shift(@_);
+  my $infodb_key = shift(@_);
+
+  # !! TEMPORARY: Slow and naive implementation that just reads the entire file and picks out the one value
+  # !! This will soon be replaced with database-specific versions that will use dbget etc.
+  my $infodb_map = {};
+  &read_infodb_file($infodb_type, $infodb_file_path, $infodb_map);
+  return $infodb_map->{$infodb_key};
+}
+
+
 sub write_infodb_entry
 {