From 1ba840fdbba2cb70298bc47a6db33adb7fa21cd2 Mon Sep 17 00:00:00 2001
From: martinlanghoff <martinlanghoff>
Date: Wed, 12 Sep 2007 03:33:00 +0000
Subject: [PATCH] redirect() - log performance profiling info

Many heavy pages end in a redirect. Log their profiling data!

Thanks to Matt Clarkson for spotting the problem.
---
 lib/weblib.php | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lib/weblib.php b/lib/weblib.php
index f11cd752ac4..7f485381659 100644
--- a/lib/weblib.php
+++ b/lib/weblib.php
@@ -5151,6 +5151,14 @@ function redirect($url, $message='', $delay=-1, $adminroot = '') {
     $url = html_entity_decode($encodedurl);
     $surl = addslashes($url);
 
+    $performanceinfo = '';
+    if (defined('MDL_PERF') || (!empty($CFG->perfdebug) and $CFG->perfdebug > 7)) {
+        if (defined('MDL_PERFTOLOG')) {
+            $perf = get_performance_info();
+            error_log("PERF: " . $perf['txt']);
+        }
+    }
+
 /// when no message and header printed yet, try to redirect
     if (empty($message) and !defined('HEADER_PRINTED')) {