summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--globals.pl19
1 files changed, 19 insertions, 0 deletions
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 {