diff options
| -rwxr-xr-x | buglist.cgi | 6 | ||||
| -rw-r--r-- | globals.pl | 7 |
2 files changed, 10 insertions, 3 deletions
diff --git a/buglist.cgi b/buglist.cgi index be55f22b6..df6d136de 100755 --- a/buglist.cgi +++ b/buglist.cgi @@ -49,9 +49,7 @@ sub sillyness { my $serverpush = 0; -my $useshadow = Param("queryagainstshadowdb"); - -ConnectToDatabase($useshadow); +ConnectToDatabase(); # print "Content-type: text/plain\n\n"; # Handy for debugging. # $::FORM{'debug'} = 1; @@ -875,6 +873,8 @@ query. You will have to start over at the <A HREF="query.cgi">query page</A>. +ReconnectToShadowDatabase(); + my $query = GenerateSQL(\@fields, undef, undef, $::buffer); 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 { |