Cut down on the number of syncshadowdb processes we fork off.

CGI.pl

@@ -794,7 +794,8 @@ sub PutHeader {
 
 
 sub PutFooter {
-    print PerformSubsts(Param("footerhtml")); 
+    print PerformSubsts(Param("footerhtml"));
+    SyncAnyPendingShadowChanges();
 }
 
 

globals.pl

@@ -96,6 +96,15 @@ sub ReconnectToShadowDatabase {
     }
 }
 
+my $shadowchanges = 0;
+sub SyncAnyPendingShadowChanges {
+    if ($shadowchanges) {
+        system("./syncshadowdb &");
+        $shadowchanges = 0;
+    }
+}
+    
+
 my $dosqllog = (-e "data/sqllog") && (-w "data/sqllog");
 
 sub SqlLog {
@@ -137,7 +146,7 @@ sub SendSQL {
         if ($insertid) {
             SendSQL("SET LAST_INSERT_ID = $insertid");
         }
-        system("./syncshadowdb &");
+        $shadowchanges++;
     }
 }