From ffbd6c6d814e80ec79440600e1713fe83c888235 Mon Sep 17 00:00:00 2001
From: Robert Sesek <rsesek@bluestatic.org>
Date: Sun, 18 Dec 2005 07:34:10 +0000
Subject: [PATCH] Adding construct_debug_block()

---
 kernel.php | 158 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 158 insertions(+)

diff --git a/kernel.php b/kernel.php
index dbcea04..19bb2fa 100644
--- a/kernel.php
+++ b/kernel.php
@@ -808,6 +808,164 @@ class Shared_Object_Framework
 			}
 		}
 	}
+	
+	// ###################################################################
+	/**
+	* Constructs a debug information box that contains various debugging
+	* information points
+	*
+	* @access	public
+	*
+	* @param	bool	Show template information?
+	*
+	* @return	string	Debugging block
+	*/
+	function construct_debug_block($dotemplates)
+	{
+		$debug = '';
+		
+		if ($this->registry->debug)
+		{
+			// --- START
+			$debug = "\n<ul>";
+			
+			// templates
+			if ($dotemplates)
+			{
+				$optlist = array();
+				$usage = array();
+				foreach ($this->usage AS $name => $count)
+				{
+					if (in_array($name, $this->uncached))
+					{
+						$optlist[] = $name . '[' . $count . ']';
+					}
+					$usage[] = $name . " ($count)";
+				}
+				
+				$sizeof = sizeof($this->uncached);
+				if ($sizeof > 0)
+				{
+					$debug .= "\n\t<li><strong style=\"color: red\">Uncached Template(s):</strong> $sizeof ( " . implode(' &nbsp; ', $optlist) . " )</li>";
+				}
+			}
+			
+			// source control
+			$scinfo = 'Not Under Source Control';
+			$possiblescms = array('cvs', 'svn', 'cvs_information', 'svn_information', 'scm', 'sc_information', 'scm_information');
+			foreach ($possiblescms AS $scm)
+			{
+				if (defined(strtoupper($scm)))
+				{
+					$scinfo = constant(strtoupper($scm));
+					
+					$type = '';					
+					// CVS
+					if (strpos($scinfo, 'RCSfile:') !== false)
+					{
+						$type = 'cvs';
+					}
+					else if (strpos($scinfo, ',v ') !== false)
+					{
+						$type = 'cvs';
+					}
+					// SVN
+					else if (strpos($scinfo, 'URL:') !== false)
+					{
+						$type = 'svn';
+					}
+					else if (strpos($scinfo, 'https://') !== false OR strpos($scinfo, 'http://') !== false)
+					{
+						$type= 'svn';
+					}
+					// not found so just return it
+					// try a SVN ID tag as we can't really tell if we're using it
+					else
+					{
+						$test = preg_replace('#\$' . 'Id: (.+?) (.+?) [0-9]{4}-[0-9]{2}-[0-9]{2} [0-9]{2}:[0-9]{2}:[0-9]{2}(.+?) (.+?) \$#', '\\1 - SVN \\2', $scinfo);
+						if ($test == '$' . 'Id: $')
+						{
+							$scinfo = 'Not Under Source Control';	
+						}
+						else
+						{
+							$scinfo = $test;
+						}
+						break;
+					}
+					
+					if ($type == 'cvs')
+					{
+						$scinfo = preg_replace('#\$' . 'RCSfile: (.+?) \$#', '\\1', $scinfo);
+						$scinfo = preg_replace('#\$' . 'Revision: (.+?) \$#', 'CVS \\1', $scinfo);
+						$scinfo = preg_replace('#\$' . 'Id: (.+?) (.+?) [0-9]{4}/[0-9]{2}/[0-9]{2} [0-9]{2}:[0-9]{2}:[0-9]{2} (.+?) (.+?) \$#', '\\1 - CVS \\2', $scinfo);
+					}
+					else if ($type == 'svn')
+					{
+						$scinfo = preg_replace('#\$' . '(Head)?URL: (.+?) \$#e', "end(explode('/', '\\2'))", $scinfo);
+						$scinfo = preg_replace('#\$' . '(LastModified)?Revision: (.+?) \$#', 'SVN \\2', $scinfo);
+						$scinfo = preg_replace('#\$' . 'Id: (.+?) ([0-9].+?) [0-9]{4}-[0-9]{2}-[0-9]{2} [0-9]{2}:[0-9]{2}:[0-9]{2}(.+?) (.+?) \$#', '\\1 - SVN \\2', $scinfo);
+					}
+					else
+					{
+						$scinfo = 'Not Under Source Control';
+					}
+					break;
+				}
+			}
+			$scinfo = trim($scinfo);			
+			$debug .= "\n\t<li><strong>Source Control:</strong> $scinfo</li>";
+			
+			// query information
+			if (is_object($this->registry->modules['db_mysql']))
+			{
+				$debug .= "\n\t<li><strong>Total Queries:</strong> " . sizeof($this->registry->modules['db_mysql']->history) . " (<a href=\"" . $this->registry->sanitize($_SERVER['REQUEST_URI']) . ((strpos($_SERVER['REQUEST_URI'], '?') !== false) ? '&amp;query=1' : '?query=1') . "\">?</a>)</li>";
+			}
+			
+			// total execution time
+			if (defined('ISSO_MT_START'))
+			{
+				$this->registry->load('functions', 'functions');
+				$debug .= "\n\t<li><strong>Total Execution Time:</strong> " . round($this->registry->modules['functions']->fetch_microtime_diff(ISSO_MT_START), 10) . "</li>";
+			}
+			
+			// debug notices
+			$debug .= "\n\t<li>\n\t\t<select>\n\t\t\t<option>Debug Notices (" . sizeof($this->registry->debuginfo) . ")</option>";
+			foreach ((array)$this->registry->debuginfo AS $msg)
+			{
+				$debug .= "\n\t\t\t<option>--- $msg</option>";
+			}
+			$debug .= "\n\t\t</select>\n\t</li>";
+			
+			// loaded modules
+			$modules = $this->registry->show_modules(true);
+			$debug .= "\n\t<li>\n\t\t<select>\n\t\t\t<option>Loaded Modules (" . sizeof($modules) . ")</option>";
+			foreach ($modules AS $mod)
+			{
+				$debug .= "\n\t\t\t<option>--- $mod</option>";
+			}
+			$debug .= "\n\t\t</select>\n\t</li>";
+			
+			// template usage
+			if ($dotemplates)
+			{
+				$debug .= "\n\t<li>\n\t\t<select>\n\t\t\t<option>Template Usage (" . array_sum($this->usage) . ")</option>";
+				foreach ($usage AS $tpl)
+				{
+					$debug .= "\n\t\t\t<option>--- $tpl</option>";
+				}
+				$debug .= "\n\t\t</select>\n\t</li>";
+			}
+			
+			// --- END
+			$debug .= "\n</ul>";
+			
+			$debug = "\n<hr />\n" . $this->registry->message('Debug Information', $debug, 1, true, false);
+			$template = str_replace('</body>', "\n\n<!-- dev debug -->\n<div align=\"center\">\n$debug\n</div>\n<!-- / dev debug -->\n\n</body>", $template);
+		}
+		
+		return $debug;
+	}
 }
 
 /*=====================================================================*\
-- 
2.43.5