From afdd0f2f0d165670329b1c63bbad2f5aebcf60cf Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org" <>
Date: Thu, 27 Jan 2000 05:47:55 +0000
Subject: Add a way to log all SQL requests made.

---
 globals.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'globals.pl')

diff --git a/globals.pl b/globals.pl
index 6e42aa1c1..1c8b22cd2 100644
--- a/globals.pl
+++ b/globals.pl
@@ -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 {
-- 
cgit v1.2.1