provision wal_autocheckpoint to prevent the log file growing to large size

Author: abstractmachines

Source/WebCore/platform/sql/SQLiteDatabase.cpp

@@ -43,6 +43,8 @@
 #include <wtf/Threading.h>
 #include <wtf/text/CString.h>
 #include <wtf/text/MakeString.h>
+#include <wtf/text/StringConcatenateNumbers.h>
+#include <wtf/text/StringToIntegerConversion.h>
 
 #if !USE(SYSTEM_MALLOC)
 #include <bmalloc/BPlatform.h>
@@ -207,7 +209,17 @@ static int walAutomaticTruncationHook(void* context, sqlite3* db, const char* db
 {
     UNUSED_PARAM(context);
 
-    static constexpr int checkpointThreshold = 1000; // matches SQLITE_DEFAULT_WAL_AUTOCHECKPOINT
+    // prevent -wal file from growing indefinitely w automatic checkpointing:
+    // set threshold for number of pages after which checkpoint should be run
+    static constexpr int checkpointThresholdDefault = 1000; // matches SQLITE_DEFAULT_WAL_AUTOCHECKPOINT
+    static int checkpointThreshold = 0;
+
+    // control threshold w/ to checkpoint more frequently if desired
+    if (!checkpointThreshold) {
+        auto envValue = String::fromLatin1(getenv("WPE_WAL_AUTOCHECKPOINT"));
+        checkpointThreshold = parseInteger<int>(envValue).value_or(checkpointThresholdDefault);
+        checkpointThreshold = checkpointThreshold < 0 ? checkpointThresholdDefault : checkpointThreshold;
+    }
 
     if (walPageCount >= checkpointThreshold) {
         int newWalPageCount = 0;

Source/WebKit/NetworkProcess/storage/SQLiteStorageArea.cpp

@@ -195,6 +195,8 @@ bool SQLiteStorageArea::prepareDatabase(ShouldCreateIfNotExists shouldCreateIfNo
     // We will never access the database from different threads simultaneously.
     m_database->disableThreadingChecks();
 
+    m_database->enableAutomaticWALTruncation();
+
     if (!createTableIfNecessary()) {
         m_database = nullptr;
         return false;