Changeset 16176

Timestamp:

2008-06-25T14:13:16+12:00 (15 years 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.

Location:

gsdl/trunk/perllib

Files:

• basebuilder.pm (modified) (1 diff)
• dbutil.pm (modified) (3 diffs)

gsdl/trunk/perllib/basebuilder.pm

@@ -402 +402 @@
     &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, "browselist", $browselist_infodb);
 
-    close ($infodb_handle) if !$self->{'debug'};
+    &dbutil::close_infodb_write_handle($self->{'infodbtype'}, $infodb_handle) if !$self->{'debug'};
 
     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