1 files changed, 7 insertions, 0 deletions
diff --git a/globals.pl b/globals.pl
index 702915866..418706070 100644
--- a/globals.pl
+++ b/globals.pl
@@ -89,6 +89,13 @@ sub ConnectToDatabase {
     }
 }
 
+sub ReconnectToShadowDatabase {
+    if (Param("shadowdb")) {
+        SendSQL("USE " . Param("shadowdb"));
+        $::dbwritesallowed = 0;
+    }
+}
+
 my $dosqllog = (-e "data/sqllog") && (-w "data/sqllog");
 
 sub SqlLog {