Changeset 16176

Timestamp:

2008-06-25 14:13:16 (5 months ago)

Author:

mdewsnip

Message:

Added a close_infodb_write_handle() functions and initial versions for both GDBM and SQLite, in preparation for speeding up SQLite.

Files:

• gsdl/trunk/perllib/basebuilder.pm (modified) (1 diff)
• gsdl/trunk/perllib/dbutil.pm (modified) (3 diffs)

gsdl/trunk/perllib/basebuilder.pm

@@ -402 +402 @@
-    &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, "browselist", $browselist_infodb);
-
-close (
+&dbutil::close_infodb_write_handle($self->{'infodbtype'}, 
-
-    print STDERR "</Stage>\n" if $self->{'gli'};

gsdl/trunk/perllib/dbutil.pm

@@ -29 +29 @@
-
-
+sub close_infodb_write_handle
+{
+    my $infodb_type = shift(@_);
+    my $infodb_handle = shift(@_);
+
+    if ($infodb_type eq "sqlite")
+    {
+        return &close_infodb_write_handle_sqlite($infodb_handle);
+    }
+
+    # Use GDBM if the infodb type is empty or not one of the values above
+    return &close_infodb_write_handle_gdbm($infodb_handle);
+}
+
+
-sub get_default_infodb_type
-{
@@ -103 +118 @@
-#   GDBM IMPLEMENTATION
-# ----------------------------------------------------------------------------------------
+
+sub close_infodb_write_handle_gdbm
+{
+    my $infodb_handle = shift(@_);
+
+    close($infodb_handle);
+}
+
-
-sub get_infodb_file_path_gdbm
@@ -189 +212 @@
-#   SQLITE IMPLEMENTATION
-# ----------------------------------------------------------------------------------------
+
+sub close_infodb_write_handle_sqlite
+{
+    my $infodb_handle = shift(@_);
+
+    close($infodb_handle);
+}
+
-
-sub get_infodb_file_path_sqlite