From 6af883e17f343b8db399befba0cbec21f4f0cee3 Mon Sep 17 00:00:00 2001 From: Byron Jones Date: Thu, 22 Mar 2012 14:15:12 +0800 Subject: Bug 732440: Add SQL execution timings to buglist.cgi's debug output r=LpSolit, r=LpSolit --- buglist.cgi | 3 +++ 1 file changed, 3 insertions(+) (limited to 'buglist.cgi') diff --git a/buglist.cgi b/buglist.cgi index 98b10a75d..3e7aadf2c 100755 --- a/buglist.cgi +++ b/buglist.cgi @@ -32,6 +32,7 @@ use Bugzilla::Status; use Bugzilla::Token; use Date::Parse; +use Time::HiRes qw(gettimeofday tv_interval); my $cgi = Bugzilla->cgi; my $dbh = Bugzilla->dbh; @@ -792,8 +793,10 @@ $::SIG{TERM} = 'DEFAULT'; $::SIG{PIPE} = 'DEFAULT'; # Execute the query. +my $start_time = [gettimeofday()]; my $buglist_sth = $dbh->prepare($query); $buglist_sth->execute(); +$vars->{query_time} = tv_interval($start_time); ################################################################################ -- cgit v1.2.1