From 7d54768cf46a7055032525695fa3da6bfa5c7631 Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@lxr.linpro.no>
Date: Fri, 8 Feb 2008 10:35:27 +0100
Subject: Add profiling and cache id notes to mod_perl request for logging
 purposes.

---
 lib/LXRng/ModPerl.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'lib/LXRng/ModPerl.pm')

diff --git a/lib/LXRng/ModPerl.pm b/lib/LXRng/ModPerl.pm
index e5e6f63..1249cb0 100644
--- a/lib/LXRng/ModPerl.pm
+++ b/lib/LXRng/ModPerl.pm
@@ -31,8 +31,15 @@ use Data::Dumper;
 sub handler {
     my ($req) = @_;
 
-    my $query = CGI->new();
-    LXRng::Web->handle($query);
+    my @tstart = times();
+    my $query  = CGI->new();
+    my $qident = LXRng::Web->handle($query);
+    my @tstop  = times();
+
+    $req->notes->add("lxr_prof" =>
+		     sprintf("u:%d, s:%d, cu:%d, cs:%d",
+			     map { 1000*($tstop[$_]-$tstart[$_]) } (0 .. 3)));
+    $req->notes->add("lxr_ident" => $qident);
 
     return Apache2::Const::OK;
 }
-- 
cgit v1.2.3