Changeset 24673 for gs2-extensions/parallel-building

Timestamp:

2011-09-27T12:52:59+13:00 (13 years ago)

Author:

jmt12

Message:

Added switch and code for enabling WAL when accessing SQLite, but it didn't seem to have the desired affect

File:

• gs2-extensions/parallel-building/trunk/src/perllib/dbutil/sqlite.pm (modified) (3 diffs)

gs2-extensions/parallel-building/trunk/src/perllib/dbutil/sqlite.pm

@@ -37 +37 @@
 my $db_fast = 0;
 
+# Set to 1 to enable Write Ahead Logging - which is supposed to allow multiple
+# readers/writers on a SQLite database (overridden by db_fast).
+my $db_wal = 0;
+
 
 # -----------------------------------------------------------------------------
@@ -62 +66 @@
   # the nul device instead. 
   my $nul_device="";
-  if(defined $db_fast && $db_fast == 1) {
+  if($db_fast || $db_wal) {
     if($ENV{'GSDLOS'} =~ m/windows/) {
         $nul_device=">NUL";
@@ -85 +89 @@
     print $infodb_handle "PRAGMA journal_mode=MEMORY;\n";
   }
-  
+  # Allow parallel readers/writers by using a Write Ahead Logger
+  elsif ($db_wal)
+  {
+    print $infodb_handle "PRAGMA journal_mode=WAL;\n";
+  }
+
   # This is very important for efficiency, otherwise each command will be actioned one at a time
   print $infodb_handle "BEGIN TRANSACTION;\n";