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

Timestamp:

2008-05-28T14:08:45+12:00 (16 years ago)

Author:

mdewsnip

Message:

(Adding new DB support) Added stub for read_infodb_file_sqlite().

File:

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

gsdl/trunk/perllib/dbutil.pm

@@ -72 +72 @@
     my $infodb_map = shift(@_);
 
-    &read_infodb_file_gdbm($infodb_file_path, $infodb_map);
+    if ($infodb_type eq "sqlite")
+    {
+    return &read_infodb_file_sqlite($infodb_file_path, $infodb_map);
+    }
+
+    # Use GDBM if the infodb type is empty or not one of the values above
+    return &read_infodb_file_gdbm($infodb_file_path, $infodb_map);
 }
 
@@ -95 +101 @@
 
 # ----------------------------------------------------------------------------------------
-#   GDBM FUNCTIONS
+#   GDBM IMPLEMENTATION
 # ----------------------------------------------------------------------------------------
 
@@ -181 +187 @@
 
 # ----------------------------------------------------------------------------------------
-#   SQLITE FUNCTIONS
+#   SQLITE IMPLEMENTATION
 # ----------------------------------------------------------------------------------------
 
@@ -212 +218 @@
 
 
+sub read_infodb_file_sqlite
+{
+    my $infodb_file_path = shift(@_);
+    my $infodb_map = shift(@_);
+
+    # !! TO IMPLEMENT
+}
+
+
 sub write_infodb_entry_sqlite
 {