Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add a way to log all SQL requests made.

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@58806 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
terry%mozilla.org
2000-01-26 21:47:55 +00:00
parent 4a1da59e9a
commit 0fbb96c5ae
1 changed files with 19 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
mozilla/webtools/bugzilla/globals.pl
View File

@@ -68,10 +68,29 @@ sub ConnectToDatabase {
}
}
my $dosqllog = (-e "data/sqllog") && (-w "data/sqllog");
sub SqlLog {
if ($dosqllog) {
my ($str) = (@_);
open(SQLLOGFID, ">>data/sqllog") || die "Can't write to data/sqllog";
if (flock(SQLLOGFID,2)) { # 2 is magic 'exclusive lock' const.
print SQLLOGFID time2str("%D %H:%M:%S $$", time()) . ": $str\n";
}
flock(SQLLOGFID,8); # '8' is magic 'unlock' const.
close SQLLOGFID;
}
}
sub SendSQL {
my ($str) = (@_);
SqlLog($str);
$::currentquery = $::db->query($str)
|| die "$str: $::db_errstr";
SqlLog("Done");
}
sub MoreSQLData {