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

Timestamp:

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

Author:

mdewsnip

Message:

(Adding new DB support) Added $infodb_type as first argument to all the dbutil functions.

File:

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

gsdl/trunk/perllib/dbutil.pm

@@ -31 +31 @@
 sub get_infodb_file_path
 {
+    my $infodb_type = shift(@_);
     my $collection_name = shift(@_);
     my $infodb_directory_path = shift(@_);
 
+    if ($infodb_type eq "sqlite")
+    {
+    return &get_infodb_file_path_sqlite($collection_name, $infodb_directory_path);
+    }
+
+    # Use GDBM if the infodb type is empty or not one of the values above
     return &get_infodb_file_path_gdbm($collection_name, $infodb_directory_path);
 }
@@ -40 +47 @@
 sub open_infodb_write_handle
 {
-    my $infodb_file_path = shift(@_);
-
+    my $infodb_type = shift(@_);
+    my $infodb_file_path = shift(@_);
+
+    if ($infodb_type eq "sqlite")
+    {
+    return &open_infodb_write_handle_sqlite($infodb_file_path);
+    }
+
+    # Use GDBM if the infodb type is empty or not one of the values above
     return &open_infodb_write_handle_gdbm($infodb_file_path);
 }
@@ -48 +62 @@
 sub read_infodb_file
 {
+    my $infodb_type = shift(@_);
     my $infodb_file_path = shift(@_);
     my $infodb_map = shift(@_);
@@ -57 +72 @@
 sub write_infodb_entry
 {
+    my $infodb_type = shift(@_);
     my $infodb_handle = shift(@_);
     my $infodb_key = shift(@_);
     my $infodb_map = shift(@_);
 
-    &write_infodb_entry_gdbm($infodb_handle, $infodb_key, $infodb_map);
+    if ($infodb_type eq "sqlite")
+    {
+    return &write_infodb_entry_sqlite($infodb_handle, $infodb_key, $infodb_map);
+    }
+
+    # Use GDBM if the infodb type is empty or not one of the values above
+    return &write_infodb_entry_gdbm($infodb_handle, $infodb_key, $infodb_map);
 }