Fixed some functions in buglist.cgi that won't work if we're hooked up
to the shadow database. git-svn-id: svn://10.0.0.236/trunk@61258 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
@@ -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);
|
||||
|
||||
|
||||
|
||||
@@ -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 {
|
||||
|
||||
Reference in New Issue
Block a user