Pop-Out
<!---
**
* CF5 Debugging Output
*
* Copyright (c) 2001 Macromedia. All Rights Reserved.
* DO NOT REDISTRIBUTE THIS SOFTWARE IN ANY WAY WITHOUT THE EXPRESSED
* WRITTEN PERMISSION OF MACROMEDIA.
--->
<cfif IsDebugMode()>
<cfsilent>
<cfset startTime = getTickCount()>
<cfscript>
formEncoding = getEncoding("FORM");
urlEncoding = getEncoding("URL");
setEncoding("FORM", formEncoding);
setEncoding("URL", urlEncoding);
</cfscript>
</cfsilent>
<!--- Localized strings --->
<cfset undefined = "">
<!--- Use the debugging service to check options --->
<cftry>
<cfobject action="CREATE" type="JAVA" class="coldfusion.server.ServiceFactory" name="factory">
<cfset cfdebugger = factory.getDebuggingService()>
<cfcatch type="Any"></cfcatch>
</cftry>
<!--- Load the debugging service's event table --->
<cfset qEvents = cfdebugger.getDebugger().getData()>
<!--- Produce the filtered event queries --->
<!--- EVENT: Templates --->
<cftry>
<cfquery dbType="query" name="cfdebug_templates" debug="false">
SELECT template, parent, Sum(endTime - StartTime) AS et
FROM qEvents
WHERE type = 'Template'
GROUP BY template, parent
ORDER BY et DESC
</cfquery>
<!--- added by Aaron Longnion, 2007-03-24, so we can see the order files ran --->
<cfquery name="cfdebug_orderedTemplates" dbtype="query" debug="false">
SELECT
line,
parent,
template
FROM
qEvents
WHERE
type = 'Template'
ORDER BY
starttime DESC
</cfquery>
<cfscript>
if( cfdebug_templates.recordCount eq 1 and len(trim(cfdebug_templates.et)) )
{
querySetCell(cfdebug_templates, "et", "0", 1);
}
</cfscript>
<cfcatch type="Any">
<cfscript>
cfdebug_templates = queryNew('template, parent, et');
</cfscript>
</cfcatch>
</cftry>
<!--- EVENT: SQL Queries --->
<cftry>
<cfquery dbType="query" name="cfdebug_queries" debug="false">
SELECT *, (endTime - startTime) AS executionTime
FROM qEvents
WHERE type = 'SqlQuery'
</cfquery>
<cfscript>
if( cfdebug_queries.recordCount eq 1 and len(trim(cfdebug_queries.executionTime)) )
{
querySetCell(cfdebug_queries, "executionTime", "0", 1);
}
</cfscript>
<cfcatch type="Any">
<cfscript>
cfdebug_queries = queryNew('ATTRIBUTES, BODY, CACHEDQUERY, CATEGORY, DATASOURCE, ENDTIME, EXECUTIONTIME, LINE, MESSAGE, NAME, PARENT, PRIORITY, RESULT, ROWCOUNT, STACKTRACE, STARTTIME, TEMPLATE, TIMESTAMP, TYPE, URL, et');
</cfscript>
</cfcatch>
</cftry>
<!--- EVENT: Object Queries --->
<cftry>
<cfquery dbType="query" name="cfdebug_cfoql" debug="false">
SELECT *, (endTime - startTime) AS executionTime
FROM qEvents
WHERE type = 'ObjectQuery'
</cfquery>
<cfscript>
if( cfdebug_cfoql.recordCount eq 1 and len(trim(cfdebug_cfoql.executionTime)) )
{
querySetCell(cfdebug_cfoql, "executionTime", "0", 1);
}
</cfscript>
<cfcatch type="Any">
<cfscript>
cfdebug_cfoql = queryNew('ATTRIBUTES, BODY, CACHEDQUERY, CATEGORY, DATASOURCE, ENDTIME, EXECUTIONTIME, LINE, MESSAGE, NAME, PARENT, PRIORITY, RESULT, ROWCOUNT, STACKTRACE, STARTTIME, TEMPLATE, TIMESTAMP, TYPE, URL');
</cfscript>
</cfcatch>
</cftry>
<!--- EVENT: Stored Procedures --->
<cftry>
<cfquery dbType="query" name="cfdebug_storedproc" debug="false">
SELECT *, (endTime - startTime) AS executionTime
FROM qEvents
WHERE type = 'StoredProcedure'
</cfquery>
<cfscript>
if( cfdebug_storedproc.recordCount eq 1 and len(trim(cfdebug_storedproc.executionTime)) )
{
querySetCell(cfdebug_storedproc, "executionTime", "0", 1);
}
</cfscript>
<cfcatch type="Any">
<cfscript>
cfdebug_storedproc = queryNew('ATTRIBUTES, BODY, CACHEDQUERY, CATEGORY, DATASOURCE, ENDTIME, EXECUTIONTIME, LINE, MESSAGE, NAME, PARENT, PRIORITY, RESULT, ROWCOUNT, STACKTRACE, STARTTIME, TEMPLATE, TIMESTAMP, TYPE, URL');
</cfscript>
</cfcatch>
</cftry>
<!--- EVENT: Trace Points --->
<cftry>
<cfquery dbType="query" name="cfdebug_trace" debug="false">
SELECT *
FROM qEvents
WHERE type = 'Trace'
</cfquery>
<cfcatch type="Any">
<cfscript>
cfdebug_trace = queryNew('ATTRIBUTES, BODY, CACHEDQUERY, CATEGORY, DATASOURCE, ENDTIME, EXECUTIONTIME, LINE, MESSAGE, NAME, PARENT, PRIORITY, RESULT, ROWCOUNT, STACKTRACE, STARTTIME, TEMPLATE, TIMESTAMP, TYPE, URL');
</cfscript>
</cfcatch>
</cftry>
<!--- EVENT: CFTimer Points --->
<cftry>
<cfquery dbType="query" name="cfdebug_timer" debug="false">
SELECT *
FROM qEvents
WHERE type = 'CFTimer'
</cfquery>
<cfcatch type="Any">
<cfscript>
cfdebug_timer = queryNew('ATTRIBUTES, BODY, CACHEDQUERY, CATEGORY, DATASOURCE, ENDTIME, EXECUTIONTIME, LINE, MESSAGE, NAME, PARENT, PRIORITY, RESULT, ROWCOUNT, STACKTRACE, STARTTIME, TEMPLATE, TIMESTAMP, TYPE, URL');
</cfscript>
</cfcatch>
</cftry>
<!--- EVENT: Locking Warning Points --->
<cftry>
<cfquery dbType="query" name="cfdebug_lock" debug="false">
SELECT *
FROM qEvents
WHERE type = 'LockWarning'
</cfquery>
<cfcatch type="Any">
<cfscript>
cfdebug_lock = queryNew('ATTRIBUTES, BODY, CACHEDQUERY, CATEGORY, DATASOURCE, ENDTIME, EXECUTIONTIME, LINE, MESSAGE, NAME, PARENT, PRIORITY, RESULT, ROWCOUNT, STACKTRACE, STARTTIME, TEMPLATE, TIMESTAMP, TYPE, URL');
</cfscript>
</cfcatch>
</cftry>
<!--- EVENT: Exceptions --->
<cftry>
<cfquery dbType="query" name="cfdebug_ex" debug="false">
SELECT *
FROM qEvents
WHERE type = 'Exception'
</cfquery>
<cfcatch type="Any">
<cfscript>
cfdebug_ex = queryNew('ATTRIBUTES, BODY, CACHEDQUERY, CATEGORY, DATASOURCE, ENDTIME, EXECUTIONTIME, LINE, MESSAGE, NAME, PARENT, PRIORITY, RESULT, ROWCOUNT, STACKTRACE, STARTTIME, TEMPLATE, TIMESTAMP, TYPE, URL');
</cfscript>
</cfcatch>
</cftry>
<!--- Establish Section Display Flags --->
<cfparam name="displayDebug" default="false" type="boolean"><!--- :: display the debug time :: --->
<cfparam name="bGeneral" default="false" type="boolean">
<cfparam name="bFoundExecution" default="false" type="boolean">
<cfparam name="bFoundTemplates" default="false" type="boolean">
<cfparam name="bFoundExceptions" default="false" type="boolean">
<cfparam name="bFoundSQLQueries" default="false" type="boolean">
<cfparam name="bFoundObjectQueries" default="false" type="boolean">
<cfparam name="bFoundStoredProc" default="false" type="boolean">
<cfparam name="bFoundTrace" default="false" type="boolean">
<cfparam name="bFoundTimer" default="false" type="boolean">
<cfparam name="bFoundLocking" default="false" type="boolean">
<cfparam name="bFoundScopeVars" default="false" type="boolean">
<cftry>
<cfscript>
bFoundTemplates = cfdebugger.check("Template");
if( bFoundTemplates )
{ displayDebug=true; }
if ( isDefined("cfdebugger.settings.general") and cfdebugger.settings.general )
{ bGeneral = true; displayDebug=true; }
if (IsDefined("cfdebug_ex") AND cfdebug_ex.recordCount GT 0) { bFoundExceptions = true; displayDebug=true; }
else { bFoundExceptions = false; }
if (IsDefined("cfdebug_queries") AND cfdebug_queries.RecordCount GT 0) { bFoundSQLQueries = true; displayDebug=true; }
else { bFoundSQLQueries = false; }
if (IsDefined("cfdebug_cfoql") AND cfdebug_cfoql.RecordCount GT 0) { bFoundObjectQueries = true; displayDebug=true; }
else { bFoundObjectQueries = false; }
if (IsDefined("cfdebug_storedproc") AND cfdebug_storedproc.RecordCount GT 0) { bFoundStoredProc = true; displayDebug=true; }
else { bFoundStoredProc = false; }
if (IsDefined("cfdebug_trace") AND cfdebug_trace.recordCount GT 0) { bFoundTrace = true; displayDebug=true; }
else { bFoundTrace = false; }
if (IsDefined("cfdebug_timer") AND cfdebug_timer.recordCount GT 0) { bFoundTimer = true; displayDebug=true; }
else { bFoundTimer = false; }
if (IsDefined("cfdebug_lock") AND cfdebug_lock.recordCount GT 0) { bFoundLocking = true; displayDebug=true; }
else { bFoundLocking = false; }
if (IsDefined("cfdebugger") AND cfdebugger.check("Variables")) { bFoundScopeVars = true; displayDebug=true; }
else { bFoundScopeVars = false; }
</cfscript>
<cfcatch type="Any"></cfcatch>
</cftry>
<cfsetting enablecfoutputonly="Yes">
<cfif displayDebug>
<cfoutput>
</td></td></td></th></th></th></tr></tr></tr></table></table></table></a></abbrev></acronym></address></applet></au></b></banner></big></blink></blockquote></bq></caption></center></cite></code></comment></del></dfn></dir></div></div></dl></em></fig></fn></font></form></frame></frameset></h1></h2></h3></h4></h5></h6></head></i></ins></kbd></listing></map></marquee></menu></multicol></nobr></noframes></noscript></note></ol></p></param></person></plaintext></pre></q></s></samp></script></select></small></strike></strong></sub></sup></table></td></textarea></th></title></tr></tt></u></ul></var></wbr></xmp>
<style type="text/css">
.cfdebug
{
color:black;
background-color:white;
font-family:"Times New Roman", Times, serif;
font-size:small;
text-align: left;
}
.cfdebuglge
{
color:black;
background-color:white;
font-family:"Times New Roman", Times, serif;
font-size:medium;
}
a.cfdebuglink {color:blue; background-color:white }
</style>
<table class="cfdebug" bgcolor="white">
<tr>
<td>
</cfoutput>
</cfif>
<cfif bGeneral>
<cfoutput>
<cftry>
<p class="cfdebug"><hr/>
<b class="cfdebuglge"><a name="cfdebug_top">Debugging Information</a></b>
<table class="cfdebug">
<tr>
<td class="cfdebug" nowrap>#server.coldfusion.productname# #server.coldfusion.productlevel#</td>
<td class="cfdebug">#server.coldfusion.productversion#</td>
</tr>
<tr>
<td class="cfdebug" nowrap> Template </td>
<td class="cfdebug">#xmlFormat(CGI.Script_Name)#</td>
</tr>
<tr>
<td class="cfdebug" nowrap> Time Stamp </td>
<td class="cfdebug">#DateFormat(Now())# #TimeFormat(Now())#</td>
</tr>
<tr>
<td class="cfdebug" nowrap> Locale </td>
<td class="cfdebug">#GetLocale()#</td>
</tr>
<tr>
<td class="cfdebug" nowrap> User Agent </td>
<td class="cfdebug">#CGI.HTTP_USER_AGENT#</td>
</tr>
<tr>
<td class="cfdebug" nowrap> Remote IP </td>
<td class="cfdebug">#CGI.REMOTE_ADDR#</td>
</tr>
<tr>
<td class="cfdebug" nowrap> Host Name </td>
<td class="cfdebug">#CGI.REMOTE_HOST#</td>
</tr>
</table>
</p>
<cfcatch type="Any"></cfcatch>
</cftry>
</cfoutput>
</cfif>
<!--- Template Stack and Executions Times --->
<cfif bFoundTemplates>
<!--- Total Execution Time of all top level pages --->
<cfquery dbType="query" name="cfdebug_execution" debug="false">
SELECT (endTime - startTime) AS executionTime
FROM qEvents
WHERE type = 'ExecutionTime'
</cfquery>
<!--- ::
in the case that no execution time is recorded.
we will add a value of -1 so we know that a problem exists but the template continues to run properly.
:: --->
<cfif not cfdebug_execution.recordCount>
<cfscript>
queryAddRow(cfdebug_execution);
querySetCell(cfdebug_execution, "executionTime", "-1");
</cfscript>
</cfif>
<cfquery dbType="query" name="cfdebug_top_level_execution_sum" debug="false">
SELECT sum(endTime - startTime) AS executionTime
FROM qEvents
WHERE type = 'Template' AND parent = ''
</cfquery>
<!--- File not found will not produce any records when looking for top level pages --->
<cfif cfdebug_top_level_execution_sum.recordCount and len(trim(cfdebug_top_level_execution_sum.executionTime[1])) gt 0>
<cfset time_other = Max(cfdebug_execution.executionTime - val(cfdebug_top_level_execution_sum.executionTime), 0)>
<cfoutput>
<style type="text/css">
.template
{ color: black;
font-family: "Times New Roman", Times, serif;
font-weight: normal; }
.template_overage
{ color: red;
background-color: white;
font-family: "Times New Roman", Times, serif;
font-weight: bold; }
</style>
</cfoutput>
<cfif cfdebugger.settings.template_mode EQ "tree">
<cfset a = arrayNew(1)>
<cfloop query="qEvents">
<cfscript>
// in cannot convert the value "" to a boolean for cachedquery column
// SELECT stacktrace will result in Query Of Queries runtime error.
// Failed to get meta_data for columnqEvents.stacktrace .
// Was told I need to define meta data for debugging event table similar to <cfldap>
if( qEvents.type eq "template" ) {
st = structNew();
st.StackTrace = qEvents.stackTrace;
st.template = qEvents.template;
st.startTime = qEvents.starttime;
st.endTime = qEvents.endtime;
st.parent = qEvents.parent;
st.line = qEvents.line;
arrayAppend(a, st);
}
</cfscript>
</cfloop>
<cfset qTree = queryNew("template,templateId,parentId,duration,line")>
<cfloop index="i" from="1" to="#arrayLen(a)#">
<cfset childidList = "">
<cfset parentidList = "">
<cfloop index="x" from="#arrayLen(a[i].stacktrace.tagcontext)#" to="1" step="-1">
<cfscript>
if( a[i].stacktrace.tagcontext[x].id NEQ "CF_INDEX" ) {
// keep appending the line number from the template stack to form a unique id
childIdList = listAppend(childIdList, a[i].stacktrace.tagcontext[x].line);
if( x eq 1 ) {
parentIdList = listAppend(parentIdList, a[i].stacktrace.tagcontext[x].template);
} else {
parentIdList = listAppend(parentIdList, a[i].stacktrace.tagcontext[x].line);
}
}
</cfscript>
</cfloop>
<cfscript>
// template is the last part of the unique id...12,5,17,c:\wwwroot\foo.cfm
// if we don't remove the "CFC[" prefix, then the parentId and childId relationship
// will be all wrong
startToken = "CFC[ ";
endToken = " | ";
thisTemplate = a[i].template;
startTokenIndex = FindNoCase(startToken, thisTemplate, 1);
if( startTokenIndex NEQ 0 ) {
endTokenIndex = FindNoCase(endToken, thisTemplate, startTokenIndex);
thisTemplate = Trim(Mid(thisTemplate,Len(startToken),endTokenIndex-Len(startToken)));
}
childIdList = listAppend(childIdList, thisTemplate);
queryAddRow(qTree);
querySetCell(qTree, "template", a[i].template);
querySetCell(qTree, "templateId", childIdList);
querySetCell(qTree, "parentId", parentIdList);
querySetCell(qTree, "duration", a[i].endtime - a[i].starttime);
querySetCell(qTree, "line", a[i].line);
</cfscript>
</cfloop>
<cfset stTree = structNew()>
<cfloop query="qTree">
<cfscript>
// empty parent assumed to be top level with the exception of application.cfm
if( len(trim(parentId)) eq 0 ){
parentId = 0;
}
stTree[parentId] = structNew();
stTree[parentId].templateId = qTree.templateId;
stTree[parentId].template = qTree.template;
stTree[parentId].duration = qTree.duration;
stTree[parentId].line = qTree.line;
stTree[parentId].children = arrayNew(1);
</cfscript>
</cfloop>
<cfloop query="qTree">
<cfscript>
stTree[templateId] = structNew();
stTree[templateId].templateId = qTree.templateId;
stTree[templateId].template = qTree.template;
stTree[templateId].duration = qTree.duration;
stTree[templateId].line = qTree.line;
stTree[templateId].children = arrayNew(1);
</cfscript>
</cfloop>
<cfloop query="qTree">
<cfscript>
arrayAppend(stTree[parentId].children, stTree[templateId]);
</cfscript>
</cfloop>
<cfquery dbType="query" name="topNodes" debug="false">
SELECT parentId, templateid
FROM qTree
WHERE parentId = ''
</cfquery>
<cfoutput>
<p class="cfdebug"><hr/><b class="cfdebuglge">Execution Time</b></p>
</cfoutput>
<cfoutput query="topNodes">
#drawTree(stTree,-1,topNodes.templateid,cfdebugger.settings.template_highlight_minimum)#
</cfoutput>
<cfoutput><p class="template">
(#time_other# ms) STARTUP, PARSING, COMPILING, LOADING, & SHUTDOWN<br />
(#cfdebug_execution.executionTime# ms) TOTAL EXECUTION TIME<br />
<font color="red"><span class="template_overage">red = over #cfdebugger.settings.template_highlight_minimum# ms execution time</span></font>
</p></cfoutput>
<cfelse>
<cftry>
<!--- added by Aaron Longnion, 2007-03-24, so we can see the order files ran --->
<cfoutput>
<p class="cfdebug"><hr/><b class="cfdebuglge">Ordered Templates (DESC)</b></p>
<table border="1" cellpadding="2" cellspacing="0" class="cfdebug">
<tr>
<td class="cfdebug" align="center"><b>Line</b></td>
<td class="cfdebug" align="center"><b>Template</b></td>
<td class="cfdebug" align="center"><b>Parent</b></td>
</tr>
</cfoutput>
<cfoutput query="cfdebug_orderedTemplates">
<cfif Len(cfdebug_orderedTemplates.Parent)
AND cfdebug_orderedTemplates.Template NEQ cfdebug_orderedTemplates.Parent>
<cfset orderedTemplate = Replace(cfdebug_orderedTemplates.Template, cfdebug_orderedTemplates.Parent, "")>
<cfset orderedTemplate = Replace(orderedTemplate, "from", "")>
<cfelse>
<cfset orderedTemplate = cfdebug_orderedTemplates.Template>
</cfif>
<tr>
<td class="cfdebug" align="center"><b>#cfdebug_orderedTemplates.Line#</b></td>
<td class="cfdebug" align="center"><b>#orderedTemplate#</b></td>
<td class="cfdebug" align="center"><b>#cfdebug_orderedTemplates.Parent#</b></td>
</tr>
</cfoutput>
<cfoutput>
</table>
</cfoutput>
<cfoutput>
<p class="cfdebug"><hr/><b class="cfdebuglge">Execution Time</b></p>
</cfoutput>
<cfquery dbType="query" name="cfdebug_templates_summary" debug="false">
SELECT template, Sum(endTime - startTime) AS totalExecutionTime, count(template) AS instances
FROM qEvents
WHERE type = 'Template'
group by template
order by totalExecutionTime DESC
</cfquery>
<cfoutput>
<table border="1" cellpadding="2" cellspacing="0" class="cfdebug">
<tr>
<td class="cfdebug" align="center"><b>Total Time</b></td>
<td class="cfdebug" align="center"><b>Avg Time</b></td>
<td class="cfdebug" align="center"><b>Count</b></td>
<td class="cfdebug"><b>Template</b></td>
</tr>
</cfoutput>
<cftry>
<cfoutput query="cfdebug_templates_summary">
<cfset templateOutput = template>
<cfset templateAverageTime = Round(totalExecutionTime / instances)>
<cfif template EQ ExpandPath(cgi.script_name)>
<cfset templateOutput =
"<b>" & template & "</b>">
<cfif templateAverageTime GT cfdebugger.settings.template_highlight_minimum>
<cfset templateOutput = "<font color='red'><span class='template_overage'>" & template & "</span></font>">
<cfset templateAverageTime = "<font color='red'><span class='template_overage'>" & templateAverageTime & "</span></font>">
<cfset totalTime = "<font color='red'><span class='template_overage'>" & totalExecutionTime & "</span></font>">
</cfif>
<cfelse>
<cfif templateAverageTime GT cfdebugger.settings.template_highlight_minimum>
<cfset templateOutput = "<font color='red'><span class='template_overage'>" & template & "</span></font>">
<cfset templateAverageTime = "<font color='red'><span class='template_overage'>" & templateAverageTime & "</span></font>">
<cfset totalTime = "<font color='red'><span class='template_overage'>" & totalExecutionTime & "</span></font>">
</cfif>
</cfif>
<tr>
<cfif isDefined("totalTime") and len(trim(totalTime))>
<td align="right" class="cfdebug" nowrap>#totalTime# ms</td>
<cfset totalTime = "">
<cfelse>
<td align="right" class="cfdebug" nowrap>#totalExecutionTime# ms</td>
</cfif>
<td align="right" class="cfdebug" nowrap>#templateAverageTime# ms</td>
<td align="center" class="cfdebug" nowrap>#instances#</td>
<td align="left" class="cfdebug" nowrap>#templateOutput#</td>
</tr>
</cfoutput>
<cfcatch type="Any"></cfcatch>
</cftry>
<cfoutput>
<tr>
<td align="right" class="cfdebug" nowrap><i>#time_other# ms</i></td><td colspan=2> </td>
<td align="left" class="cfdebug"><i>STARTUP, PARSING, COMPILING, LOADING, & SHUTDOWN</i></td>
</tr>
<tr>
<td align="right" class="cfdebug" nowrap><i>#cfdebug_execution.executionTime# ms</i></td><td colspan=2> </td>
<td align="left" class="cfdebug"><i>TOTAL EXECUTION TIME</i></td>
</tr>
</table>
<font color="red"><span class="template_overage">red = over #cfdebugger.settings.template_highlight_minimum# ms average execution time</span></font>
</cfoutput>
<cfcatch type="Any">
<cfoutput><br>[[cfcatch.message=#cfcatch.message#]]<br></cfoutput>
</cfcatch>
</cftry>
</cfif> <!--- template_mode = summary--->
<cfelse>
<p class="cfdebug"><hr/><b class="cfdebuglge">Execution Time</b></p>
<a name="cfdebug_templates">
No top level page was found.
</cfif> <!--- if top level templates are available --->
</cfif>
<!--- CFCS --->
<cfquery dbType="query" name="cfcs" debug="false">
select template, (endTime - startTime) as et, [timestamp]
from qEvents
where type = 'Template'
and template like 'CFC[[ %'
escape '['
group by template, [timestamp], startTime, endTime
</cfquery>
<cfset cfcData = structNew()>
<cfloop query="cfcs">
<cfset tString = replaceNoCase(template, "CFC[ ", "")>
<cfset tString = reReplace(tString, "] from .*", "")>
<cfset theCFC = trim(listFirst(tString, "|"))>
<cfset theMethod = trim(listLast(tString, "|"))>
<!--- remove args --->
<cfset theMethod = trim(reReplaceNoCase(theMethod, "\(.*?\).*", "()"))>
<cfif not structKeyExists(cfcData, theCFC)>
<cfset cfcData[theCFC] = structNew()>
</cfif>
<cfif not structKeyExists(cfcData[theCFC], theMethod)>
<cfset cfcData[theCFC][theMethod] = structNew()>
<cfset cfcData[theCFC][theMethod].count = 0>
<cfset cfcData[theCFC][theMethod].total = 0>
</cfif>
<cfset cfcData[theCFC][theMethod].count = cfcData[theCFC][theMethod].count + 1>
<cfset cfcData[theCFC][theMethod].total = cfcData[theCFC][theMethod].total + et>
</cfloop>
<!--- make averages --->
<cfloop item="cfc" collection="#cfcData#">
<cfloop item="method" collection="#cfcdata[cfc]#">
<cfset cfcdata[cfc][method].average = cfcdata[cfc][method].total / cfcdata[cfc][method].count>
</cfloop>
</cfloop>
<cfoutput>
<p class="cfdebug"><hr/><b class="cfdebuglge">CFC Data</b></p>
<table border="1" cellpadding="2" cellspacing="0" class="cfdebug">
<tr>
<td class="cfdebug" align="center"><b>Total Time</b></td>
<td class="cfdebug" align="center"><b>Avg Time</b></td>
<td class="cfdebug" align="center"><b>Count</b></td>
<td class="cfdebug"><b>CFC</b></td>
<td class="cfdebug"><b>Method</b></td>
</tr>
</cfoutput>
<cfloop item="cfc" collection="#cfcData#">
<cfloop item="method" collection="#cfcdata[cfc]#">
<cfoutput>
<tr>
<td>#cfcdata[cfc][method].total# ms</td>
<td>#numberFormat(cfcdata[cfc][method].average,"00.00")# ms</td>
<td>#cfcdata[cfc][method].count#</td>
<td>#cfc#</td>
<td>#method#</td>
</tr>
</cfoutput>
</cfloop>
</cfloop>
<cfoutput></table></cfoutput>
<!--- Exceptions --->
<cfif bFoundExceptions>
<cftry>
<cfoutput>
<p class="cfdebug"><hr/><b class="cfdebuglge"><a name="cfdebug_exceptions">Exceptions</a></b></p>
<cfloop query="cfdebug_ex">
<div class="cfdebug">#TimeFormat(cfdebug_ex.timestamp, "HH:mm:ss.SSS")# - #cfdebug_ex.name# <cfif FindNoCase("Exception", cfdebug_ex.name) EQ 0>Exception</cfif> - in #cfdebug_ex.template# : line #cfdebug_ex.line#</div>
<cfif IsDefined("cfdebug_ex.message") AND Len(Trim(cfdebug_ex.message)) GT 0>
<pre>
#cfdebug_ex.message#
</pre>
</cfif>
</cfloop>
</cfoutput>
<cfcatch type="Any">
<!--- Error reporting an exception event entry. --->
</cfcatch>
</cftry>
</cfif>
<!--- SQL Queries --->
<cfoutput>
<!--- added by Matt Jones, 2006, so we easily cut and paste SQL, *with* the params where they should be --->
<!--- ** TOOK OUT IN FAVOR of *mine* .. which has the CFQUERYPARAMS INLINE
<cfif bFoundSQLQueries>
<cftry>
<p class="cfdebug"><hr/><b class="cfdebuglge"><a name="cfdebug_sql">SQL Queries</a></b></p>
<cfloop query="cfdebug_queries">
<code><b>#cfdebug_queries.name#</b> (Datasource=#cfdebug_queries.datasource#, Time=#Max(cfdebug_queries.executionTime, 0)#ms<cfif IsDefined("cfdebug_queries.rowcount") AND IsNumeric(cfdebug_queries.rowcount)>, Records=#Max(cfdebug_queries.rowcount, 0)#<cfelseif IsDefined("cfdebug_queries.result.recordCount")>, Records=#cfdebug_queries.result.recordCount#</cfif><cfif cfdebug_queries.cachedquery>, Cached Query</cfif>) in #cfdebug_queries.template# @ #TimeFormat(cfdebug_queries.timestamp, "HH:mm:ss.SSS")#</code><br />
<pre>#htmleditformat(cfdebug_queries.body)#</pre>
<cfif arrayLen(cfdebug_queries.attributes) GT 0>
<code>Query Parameter Value(s) -<br />
<cfloop index="x" from=1 to="#arrayLen(cfdebug_queries.attributes)#">
<cfset thisParam = #cfdebug_queries.attributes[cfdebug_queries.currentRow][x]#>
Parameter ###x#<cfif StructKeyExists(thisParam, "sqlType")>(#thisParam.sqlType#)</cfif> = <cfif StructKeyExists(thisParam, "value")>#htmleditformat(thisParam.value)#</cfif><br />
</cfloop>
</code><br />
</cfif>
</cfloop>
<cfcatch type="Any">
<!--- Error reporting query event --->
</cfcatch>
</cftry>
</cfif>
--->
<cfif bFoundSQLQueries>
<cftry>
<fieldset style="background-color:##FFFFCC"><legend>modified sql debugging</legend>
<p class="cfdebug"><hr/><b class="cfdebuglge"><a name="cfdebug_sql">SQL Queries</a></b></p><BR />
<cfloop query="cfdebug_queries">
<div style="background-color:<cfif cfdebug_queries.cachedquery>##CCFFCC</cfif>">
<code><b>-- #cfdebug_queries.name#</b> (Datasource=#cfdebug_queries.datasource#, Time=#Max(cfdebug_queries.executionTime, 0)#ms<cfif IsDefined("cfdebug_queries.rowcount") AND IsNumeric(cfdebug_queries.rowcount)>, Records=#Max(cfdebug_queries.rowcount, 0)#<cfelseif IsDefined("cfdebug_queries.result.recordCount")>, Records=#cfdebug_queries.result.recordCount#</cfif><cfif cfdebug_queries.cachedquery>, Cached Query</cfif>) in #cfdebug_queries.template# @ #TimeFormat(cfdebug_queries.timestamp, "HH:mm:ss.SSS")#</code><br />
<cfloop index="x" from=1 to="#arrayLen(cfdebug_queries.attributes)#">
<cfscript>
thisParam = cfdebug_queries.attributes[cfdebug_queries.currentRow][x];
if ( ListFindNoCase('CF_SQL_INTEGER,CF_SQL_BIGINT,CF_SQL_DECIMAL,CF_SQL_DOUBLE,CF_SQL_FLOAT,CF_SQL_NUMERIC',thisParam.sqlType) ) {
tmpVal = thisParam.value;
} else if ( thisParam.sqlType IS "CF_SQL_BIT" ) {
if (thisParam.value IS "YES") {
tmpVal = 1;
} else if (thisParam.value IS "NO") {
tmpVal = 0;
} else { // i guess its possible that they might stop using YES and NO for the CF_SQL_BIT bit: if they do just dump it out as is
tmpVal = thisParam.value;
}
} else {
tmpVal = "'#thisParam.value#'";
}
tmpVal = tmpVal & ' /******* Parameter ###x# #IIf(StructKeyExists(thisParam, "sqlType"), DE('(#thisParam.sqlType#)'), DE(''))# = #IIf(StructKeyExists(thisParam, "value"), DE('#htmleditformat(thisParam.value)#'), DE(''))# *******/';
cfdebug_queries.body = Replace(cfdebug_queries.body,'?',tmpVal,'one');
</cfscript>
</cfloop>
<pre>#htmleditformat(cfdebug_queries.body)#</pre>
<cfif arrayLen(cfdebug_queries.attributes) GT 0>
<code>-- Query Parameter Value(s) -<br />
<cfloop index="x" from=1 to="#arrayLen(cfdebug_queries.attributes)#">
<cfset thisParam = #cfdebug_queries.attributes[cfdebug_queries.currentRow][x]#>
-- Parameter ###x#<cfif StructKeyExists(thisParam, "sqlType")>(#thisParam.sqlType#)</cfif> = <cfif StructKeyExists(thisParam, "value")>#htmleditformat(thisParam.value)#</cfif><br />
</cfloop>
</code><br />
</cfif>
</div>
</cfloop>
</fieldset>
<cfcatch type="Any">
<!--- Error reporting query event --->
</cfcatch>
</cftry>
</cfif>
<!--- Stored Procs --->
<cfif bFoundStoredProc>
<cftry>
<p class="cfdebug"><hr/><b class="cfdebuglge"><a name="cfdebug_storedproc">Stored Procedures</a></b></p>
<p class="cfdebug">
<cfloop query="cfdebug_storedproc">
<!--- Output stored procedure details, remember, include result (output params) and attributes (input params) columns --->
<code><b>#cfdebug_storedproc.name#</b> (Datasource=#cfdebug_storedproc.datasource#, Time=#Max(cfdebug_storedproc.executionTime, 0)#ms) in #cfdebug_storedproc.template# @ #TimeFormat(cfdebug_storedproc.timestamp, "HH:mm:ss.SSS")#</code><br />
<table border=0 cellpadding=0 cellspacing=0>
<tr>
<td> </td>
<td>
<table border=1 cellpadding=2 cellspacing=2>
<tr bgcolor="gray"><td colspan="5" align="center"><font color="white">parameters</font></td></tr>
<tr><td><code><i>type</i></code></td><td><code><i>CFSQLType</i></code></td><td><code><i>value</i></code></td><td><code><i>variable</i></code></td><td><code><i>dbVarName</i></code></td></tr>
<cfloop index="x" from=1 to="#arrayLen(cfdebug_storedproc.attributes)#">
<cfset thisParam = #cfdebug_storedproc.attributes[cfdebug_storedproc.currentRow][x]#>
<tr>
<td> <code><cfif StructKeyExists(thisParam, "type")>#thisParam.type#</cfif></code></td>
<td> <code><cfif StructKeyExists(thisParam, "sqlType")>#thisParam.sqlType#</cfif></code></td>
<td> <code><cfif StructKeyExists(thisParam, "value")>#htmleditformat(thisParam.value)#</cfif></code></td>
<td> <code><cfif StructKeyExists(thisParam, "variable")>#thisParam.variable# = #CFDebugSerializable(thisParam.variable)#</cfif></code></td>
<td> <code><cfif StructKeyExists(thisParam, "dbVarName")>#thisParam.dbVarName#</cfif></code></td>
</tr>
</cfloop>
</table>
</td>
</tr>
<tr>
<td> </td>
<td>
<table border=1 cellpadding=2 cellspacing=2>
<tr bgcolor="gray"><td colspan="5" align="center"><font color="white">resultsets</font></td></tr>
<tr><td><code><i>name</i></code></td><td><code><i>resultset</i></code></td></tr>
<cfloop index="x" from=1 to="#arrayLen(cfdebug_storedproc.result)#">
<cfset thisParam = #cfdebug_storedproc.result[cfdebug_storedproc.currentRow][x]#>
<tr>
<td> <code><cfif StructKeyExists(thisParam, "name")>#thisParam.name#</cfif></code></td>
<td> <code><cfif StructKeyExists(thisParam, "resultSet")>#thisParam.resultSet#</cfif></code></td>
</tr>
</cfloop>
</table>
</td>
</tr>
</table>
</cfloop>
</p>
<cfcatch type="Any">
<!--- Error reporting stored proc event --->
</cfcatch>
</cftry>
</cfif>
<!--- :: CFTimer :: --->
<cfif bFoundTimer>
<p class="cfdebug"><hr/><b class="cfdebuglge"><a name="cfdebug_timer">CFTimer Times</a></b></p>
<p class="cfdebug">
<cfloop query="cfdebug_timer">
<cftry>
<img src='#getpageContext().getRequest().getContextPath()#/CFIDE/debug/images/#Replace(cfdebug_timer.priority, " ", "%20")#_16x16.gif' alt="#cfdebug_timer.priority# type">
[#val(cfdebug_timer.endTime) - val(cfdebug_timer.startTime)#ms] <i>#cfdebug_timer.message#</i><br />
<cfcatch type="Any"></cfcatch>
</cftry>
</cfloop>
</p>
</cfif>
<!--- Tracing --->
<cfif bFoundTrace>
<p class="cfdebug"><hr/><b class="cfdebuglge"><a name="cfdebug_trace">Trace Points</a></b></p>
<p class="cfdebug">
<cfset firstTrace=true>
<cfset prevDelta=0>
<cfloop query="cfdebug_trace">
<cfset deltaFromRequest = Val(cfdebug_trace.endTime)>
<cfset deltaFromLast = Val(deltaFromRequest-prevDelta)>
<cftry>
<img src='#getpageContext().getRequest().getContextPath()#/CFIDE/debug/images/#Replace(cfdebug_trace.priority, " ", "%20")#_16x16.gif' alt="#cfdebug_trace.priority# type"> [#TimeFormat(cfdebug_trace.timestamp, "HH:mm:ss.lll")# #cfdebug_trace.template# @ line: #cfdebug_trace.line#] [#deltaFromRequest# ms (<cfif firstTrace>1st trace<cfelse>#deltaFromLast# ms</cfif>)] - <cfif #cfdebug_trace.category# NEQ "">[#cfdebug_trace.category#]</cfif> <cfif #cfdebug_trace.result# NEQ "">[#cfdebug_trace.result#]</cfif> <i>#cfdebug_trace.message#</i><br />
<cfcatch type="Any"></cfcatch>
</cftry>
<cfset prevDelta = deltaFromRequest>
<cfset firstTrace=false>
</cfloop>
</p>
</cfif>
<!--- SCOPE VARIABLES --->
<cfif bFoundScopeVars>
<p class="cfdebug"><hr/><b class="cfdebuglge"><a name="cfdebug_scopevars">Scope Variables</a></b></p>
<cftry>
<cfif IsDefined("APPLICATION") AND IsStruct(APPLICATION) AND StructCount(APPLICATION) GT 0 AND cfdebugger.check("ApplicationVar")>
<pre><b>Application Variables:</b>
#sortedScope(application)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("CGI") AND IsStruct(CGI) AND StructCount(CGI) GT 0 AND cfdebugger.check("CGIVar")>
<pre><b>CGI Variables:</b>
#sortedScope(cgi)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("CLIENT") AND IsStruct(CLIENT) AND StructCount(CLIENT) GT 0 AND cfdebugger.check("ClientVar")>
<pre><b>Client Variables:</b>
#sortedScope(client)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("COOKIE") AND IsStruct(COOKIE) AND StructCount(COOKIE) GT 0 AND cfdebugger.check("CookieVar")>
<pre><b>Cookie Variables:</b>
#sortedScope(cookie)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("FORM") AND IsStruct(FORM) AND StructCount(FORM) GT 0 AND cfdebugger.check("FormVar")>
<pre><b>Form Fields:</b>
#sortedScope(form)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("REQUEST") AND IsStruct(REQUEST) AND StructCount(REQUEST) GT 0 AND cfdebugger.check("RequestVar")>
<pre><b>Request Parameters:</b>
#sortedScope(request)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("SERVER") AND IsStruct(SERVER) AND StructCount(SERVER) GT 0 AND cfdebugger.check("ServerVar")>
<pre><b>Server Variables:</b>
#sortedScope(server)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("SESSION") AND IsStruct(SESSION) AND StructCount(SESSION) GT 0 AND cfdebugger.check("SessionVar")>
<pre><b>Session Variables:</b>
#sortedScope(session)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("URL") AND IsStruct(URL) AND StructCount(URL) GT 0 AND cfdebugger.check("URLVar")>
<pre><b>URL Parameters:</b>
#sortedScope(url)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("Attributes") AND IsStruct(Attributes) AND StructCount(Attributes) GT 0>
<pre><b>Attributes Variables:</b>
#sortedScope(Attributes)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
</cfif>
<cfset duration = getTickCount() - startTime>
<cfif displayDebug>
<font size="-1" class="cfdebug">
<i>Debug Rendering Time: #duration# ms</i>
</font><br />
</td>
</tr>
</table>
</cfif>
</cfoutput>
<cfsetting enablecfoutputonly="No">
</cfif>
<cfscript>
function CFDebugSerializable(variable)
{
var ret = "";
try
{
if(IsSimpleValue(variable))
{
ret = xmlFormat(variable);
}
else
{
if (IsStruct(variable))
{
ret = ("Struct (" & StructCount(variable) & ")");
}
else if(IsArray(variable))
{
ret = ("Array (" & ArrayLen(variable) & ")");
}
else if(IsQuery(variable))
{
ret = ("Query (" & variable.RecordCount & ")");
}
else
{
ret = ("Complex type");
}
}
}
catch("any" ex)
{
ret = "undefined";
}
return ret;
}
// UDF - tree writing
function drawNode(nTree, indent, id, highlightThreshold) {
var templateOuput = "";
if( nTree[id].duration GT highlightThreshold ) {
templateOutput = "<font color='red'><span class='template_overage'>(#nTree[id].duration#ms) " & nTree[id].template & " @ line " & #nTree[id].line# & "</span></font><br>";
} else {
templateOutput = "<span class='template'>(#nTree[id].duration#ms) " & nTree[id].template & " @ line " & #nTree[id].line# & "</span><br>";
}
writeOutput(repeatString(" ·", indent + 1) & " <img src='#getpageContext().getRequest().getContextPath()#/CFIDE/debug/images/arrow.gif' alt='arrow' border='0'><img src='#getpageContext().getRequest().getContextPath()#/CFIDE/debug/images/endDoc.gif' alt='top level' border='0'> " & templateOutput);
return "";
}
function drawTree(tree, indent, id, highlightThreshold) {
var alength = 1;
var i = 1;
var templateOuput = "";
if( structKeyExists(tree, id) )
{
// top level nodes (application.cfm,cgi.script_name,etc) have a -1 parent line number
if(tree[id].line EQ -1) {
if( Tree[id].duration GT highlightThreshold )
{
writeoutput( "<font color='red'><span class='template_overage'><b>(#Tree[id].duration#ms) " & Tree[id].template & "</b></span></font><br>" );
}
else
{
writeoutput( "<span class='template'><b>(#Tree[id].duration#ms) " & Tree[id].template & "</b></span><br>" );
}
} else {
if( Tree[id].duration GT highlightThreshold ) {
templateOutput = "<font color='red'><span class='template_overage'>(#Tree[id].duration#ms) " & Tree[id].template & " @ line " & #Tree[id].line# & "</span></font><br>";
} else {
templateOutput = "<span class='template'>(#Tree[id].duration#ms) " & Tree[id].template & " @ line " & #Tree[id].line# & "</span><br>";
}
writeoutput( repeatString(" ·", indent + 1) & " <img src='#getpageContext().getRequest().getContextPath()#/CFIDE/debug/images/arrow.gif' alt='arrow' border='0'><img src='#getpageContext().getRequest().getContextPath()#/CFIDE/debug/images/parentDoc.gif' alt='top level' border='0'> " & templateOutput );
}
if( isArray( tree[id].children ) and arrayLen( tree[id].children ) ) {
alength = arrayLen( tree[id].children );
for( i = 1; i lte alength; i = i + 1 ) {
if( isArray(tree[id].children[i].children) and arrayLen( tree[id].children[i].children ) gt 0 ) {
drawTree(tree, indent + 1, tree[id].children[i].templateid, highlightThreshold);
} else {
drawNode(tree, indent + 1, tree[id].children[i].templateid, highlightThreshold);
}
}
} else {
// single template, no includes?
//drawNode(tree, indent + 1, tree[id].template, highlightThreshold);
}
}
return "";
}
</cfscript>
<cffunction name="sortedScope" output="false">
<cfargument name="scope">
<cfset retVal="">
<cfset keys = structKeyArray(scope)>
<cfset arraySort(keys,"text")>
<cfloop index="x" from=1 to="#arrayLen(keys)#">
<cfset keyName = keys[x]>
<cfset retVal = retVal & keyName & "=">
<cftry>
<cfset keyValue = CFDebugSerializable(scope[keyname])>
<cfcatch>
<cfset keyValue = "undefined">
</cfcatch>
</cftry>
<cfset retVal = retVal & keyValue & Chr(13) & Chr(10)>
</cfloop>
<cfreturn retVal>
</cffunction>
**
* CF5 Debugging Output
*
* Copyright (c) 2001 Macromedia. All Rights Reserved.
* DO NOT REDISTRIBUTE THIS SOFTWARE IN ANY WAY WITHOUT THE EXPRESSED
* WRITTEN PERMISSION OF MACROMEDIA.
--->
<cfif IsDebugMode()>
<cfsilent>
<cfset startTime = getTickCount()>
<cfscript>
formEncoding = getEncoding("FORM");
urlEncoding = getEncoding("URL");
setEncoding("FORM", formEncoding);
setEncoding("URL", urlEncoding);
</cfscript>
</cfsilent>
<!--- Localized strings --->
<cfset undefined = "">
<!--- Use the debugging service to check options --->
<cftry>
<cfobject action="CREATE" type="JAVA" class="coldfusion.server.ServiceFactory" name="factory">
<cfset cfdebugger = factory.getDebuggingService()>
<cfcatch type="Any"></cfcatch>
</cftry>
<!--- Load the debugging service's event table --->
<cfset qEvents = cfdebugger.getDebugger().getData()>
<!--- Produce the filtered event queries --->
<!--- EVENT: Templates --->
<cftry>
<cfquery dbType="query" name="cfdebug_templates" debug="false">
SELECT template, parent, Sum(endTime - StartTime) AS et
FROM qEvents
WHERE type = 'Template'
GROUP BY template, parent
ORDER BY et DESC
</cfquery>
<!--- added by Aaron Longnion, 2007-03-24, so we can see the order files ran --->
<cfquery name="cfdebug_orderedTemplates" dbtype="query" debug="false">
SELECT
line,
parent,
template
FROM
qEvents
WHERE
type = 'Template'
ORDER BY
starttime DESC
</cfquery>
<cfscript>
if( cfdebug_templates.recordCount eq 1 and len(trim(cfdebug_templates.et)) )
{
querySetCell(cfdebug_templates, "et", "0", 1);
}
</cfscript>
<cfcatch type="Any">
<cfscript>
cfdebug_templates = queryNew('template, parent, et');
</cfscript>
</cfcatch>
</cftry>
<!--- EVENT: SQL Queries --->
<cftry>
<cfquery dbType="query" name="cfdebug_queries" debug="false">
SELECT *, (endTime - startTime) AS executionTime
FROM qEvents
WHERE type = 'SqlQuery'
</cfquery>
<cfscript>
if( cfdebug_queries.recordCount eq 1 and len(trim(cfdebug_queries.executionTime)) )
{
querySetCell(cfdebug_queries, "executionTime", "0", 1);
}
</cfscript>
<cfcatch type="Any">
<cfscript>
cfdebug_queries = queryNew('ATTRIBUTES, BODY, CACHEDQUERY, CATEGORY, DATASOURCE, ENDTIME, EXECUTIONTIME, LINE, MESSAGE, NAME, PARENT, PRIORITY, RESULT, ROWCOUNT, STACKTRACE, STARTTIME, TEMPLATE, TIMESTAMP, TYPE, URL, et');
</cfscript>
</cfcatch>
</cftry>
<!--- EVENT: Object Queries --->
<cftry>
<cfquery dbType="query" name="cfdebug_cfoql" debug="false">
SELECT *, (endTime - startTime) AS executionTime
FROM qEvents
WHERE type = 'ObjectQuery'
</cfquery>
<cfscript>
if( cfdebug_cfoql.recordCount eq 1 and len(trim(cfdebug_cfoql.executionTime)) )
{
querySetCell(cfdebug_cfoql, "executionTime", "0", 1);
}
</cfscript>
<cfcatch type="Any">
<cfscript>
cfdebug_cfoql = queryNew('ATTRIBUTES, BODY, CACHEDQUERY, CATEGORY, DATASOURCE, ENDTIME, EXECUTIONTIME, LINE, MESSAGE, NAME, PARENT, PRIORITY, RESULT, ROWCOUNT, STACKTRACE, STARTTIME, TEMPLATE, TIMESTAMP, TYPE, URL');
</cfscript>
</cfcatch>
</cftry>
<!--- EVENT: Stored Procedures --->
<cftry>
<cfquery dbType="query" name="cfdebug_storedproc" debug="false">
SELECT *, (endTime - startTime) AS executionTime
FROM qEvents
WHERE type = 'StoredProcedure'
</cfquery>
<cfscript>
if( cfdebug_storedproc.recordCount eq 1 and len(trim(cfdebug_storedproc.executionTime)) )
{
querySetCell(cfdebug_storedproc, "executionTime", "0", 1);
}
</cfscript>
<cfcatch type="Any">
<cfscript>
cfdebug_storedproc = queryNew('ATTRIBUTES, BODY, CACHEDQUERY, CATEGORY, DATASOURCE, ENDTIME, EXECUTIONTIME, LINE, MESSAGE, NAME, PARENT, PRIORITY, RESULT, ROWCOUNT, STACKTRACE, STARTTIME, TEMPLATE, TIMESTAMP, TYPE, URL');
</cfscript>
</cfcatch>
</cftry>
<!--- EVENT: Trace Points --->
<cftry>
<cfquery dbType="query" name="cfdebug_trace" debug="false">
SELECT *
FROM qEvents
WHERE type = 'Trace'
</cfquery>
<cfcatch type="Any">
<cfscript>
cfdebug_trace = queryNew('ATTRIBUTES, BODY, CACHEDQUERY, CATEGORY, DATASOURCE, ENDTIME, EXECUTIONTIME, LINE, MESSAGE, NAME, PARENT, PRIORITY, RESULT, ROWCOUNT, STACKTRACE, STARTTIME, TEMPLATE, TIMESTAMP, TYPE, URL');
</cfscript>
</cfcatch>
</cftry>
<!--- EVENT: CFTimer Points --->
<cftry>
<cfquery dbType="query" name="cfdebug_timer" debug="false">
SELECT *
FROM qEvents
WHERE type = 'CFTimer'
</cfquery>
<cfcatch type="Any">
<cfscript>
cfdebug_timer = queryNew('ATTRIBUTES, BODY, CACHEDQUERY, CATEGORY, DATASOURCE, ENDTIME, EXECUTIONTIME, LINE, MESSAGE, NAME, PARENT, PRIORITY, RESULT, ROWCOUNT, STACKTRACE, STARTTIME, TEMPLATE, TIMESTAMP, TYPE, URL');
</cfscript>
</cfcatch>
</cftry>
<!--- EVENT: Locking Warning Points --->
<cftry>
<cfquery dbType="query" name="cfdebug_lock" debug="false">
SELECT *
FROM qEvents
WHERE type = 'LockWarning'
</cfquery>
<cfcatch type="Any">
<cfscript>
cfdebug_lock = queryNew('ATTRIBUTES, BODY, CACHEDQUERY, CATEGORY, DATASOURCE, ENDTIME, EXECUTIONTIME, LINE, MESSAGE, NAME, PARENT, PRIORITY, RESULT, ROWCOUNT, STACKTRACE, STARTTIME, TEMPLATE, TIMESTAMP, TYPE, URL');
</cfscript>
</cfcatch>
</cftry>
<!--- EVENT: Exceptions --->
<cftry>
<cfquery dbType="query" name="cfdebug_ex" debug="false">
SELECT *
FROM qEvents
WHERE type = 'Exception'
</cfquery>
<cfcatch type="Any">
<cfscript>
cfdebug_ex = queryNew('ATTRIBUTES, BODY, CACHEDQUERY, CATEGORY, DATASOURCE, ENDTIME, EXECUTIONTIME, LINE, MESSAGE, NAME, PARENT, PRIORITY, RESULT, ROWCOUNT, STACKTRACE, STARTTIME, TEMPLATE, TIMESTAMP, TYPE, URL');
</cfscript>
</cfcatch>
</cftry>
<!--- Establish Section Display Flags --->
<cfparam name="displayDebug" default="false" type="boolean"><!--- :: display the debug time :: --->
<cfparam name="bGeneral" default="false" type="boolean">
<cfparam name="bFoundExecution" default="false" type="boolean">
<cfparam name="bFoundTemplates" default="false" type="boolean">
<cfparam name="bFoundExceptions" default="false" type="boolean">
<cfparam name="bFoundSQLQueries" default="false" type="boolean">
<cfparam name="bFoundObjectQueries" default="false" type="boolean">
<cfparam name="bFoundStoredProc" default="false" type="boolean">
<cfparam name="bFoundTrace" default="false" type="boolean">
<cfparam name="bFoundTimer" default="false" type="boolean">
<cfparam name="bFoundLocking" default="false" type="boolean">
<cfparam name="bFoundScopeVars" default="false" type="boolean">
<cftry>
<cfscript>
bFoundTemplates = cfdebugger.check("Template");
if( bFoundTemplates )
{ displayDebug=true; }
if ( isDefined("cfdebugger.settings.general") and cfdebugger.settings.general )
{ bGeneral = true; displayDebug=true; }
if (IsDefined("cfdebug_ex") AND cfdebug_ex.recordCount GT 0) { bFoundExceptions = true; displayDebug=true; }
else { bFoundExceptions = false; }
if (IsDefined("cfdebug_queries") AND cfdebug_queries.RecordCount GT 0) { bFoundSQLQueries = true; displayDebug=true; }
else { bFoundSQLQueries = false; }
if (IsDefined("cfdebug_cfoql") AND cfdebug_cfoql.RecordCount GT 0) { bFoundObjectQueries = true; displayDebug=true; }
else { bFoundObjectQueries = false; }
if (IsDefined("cfdebug_storedproc") AND cfdebug_storedproc.RecordCount GT 0) { bFoundStoredProc = true; displayDebug=true; }
else { bFoundStoredProc = false; }
if (IsDefined("cfdebug_trace") AND cfdebug_trace.recordCount GT 0) { bFoundTrace = true; displayDebug=true; }
else { bFoundTrace = false; }
if (IsDefined("cfdebug_timer") AND cfdebug_timer.recordCount GT 0) { bFoundTimer = true; displayDebug=true; }
else { bFoundTimer = false; }
if (IsDefined("cfdebug_lock") AND cfdebug_lock.recordCount GT 0) { bFoundLocking = true; displayDebug=true; }
else { bFoundLocking = false; }
if (IsDefined("cfdebugger") AND cfdebugger.check("Variables")) { bFoundScopeVars = true; displayDebug=true; }
else { bFoundScopeVars = false; }
</cfscript>
<cfcatch type="Any"></cfcatch>
</cftry>
<cfsetting enablecfoutputonly="Yes">
<cfif displayDebug>
<cfoutput>
</td></td></td></th></th></th></tr></tr></tr></table></table></table></a></abbrev></acronym></address></applet></au></b></banner></big></blink></blockquote></bq></caption></center></cite></code></comment></del></dfn></dir></div></div></dl></em></fig></fn></font></form></frame></frameset></h1></h2></h3></h4></h5></h6></head></i></ins></kbd></listing></map></marquee></menu></multicol></nobr></noframes></noscript></note></ol></p></param></person></plaintext></pre></q></s></samp></script></select></small></strike></strong></sub></sup></table></td></textarea></th></title></tr></tt></u></ul></var></wbr></xmp>
<style type="text/css">
.cfdebug
{
color:black;
background-color:white;
font-family:"Times New Roman", Times, serif;
font-size:small;
text-align: left;
}
.cfdebuglge
{
color:black;
background-color:white;
font-family:"Times New Roman", Times, serif;
font-size:medium;
}
a.cfdebuglink {color:blue; background-color:white }
</style>
<table class="cfdebug" bgcolor="white">
<tr>
<td>
</cfoutput>
</cfif>
<cfif bGeneral>
<cfoutput>
<cftry>
<p class="cfdebug"><hr/>
<b class="cfdebuglge"><a name="cfdebug_top">Debugging Information</a></b>
<table class="cfdebug">
<tr>
<td class="cfdebug" nowrap>#server.coldfusion.productname# #server.coldfusion.productlevel#</td>
<td class="cfdebug">#server.coldfusion.productversion#</td>
</tr>
<tr>
<td class="cfdebug" nowrap> Template </td>
<td class="cfdebug">#xmlFormat(CGI.Script_Name)#</td>
</tr>
<tr>
<td class="cfdebug" nowrap> Time Stamp </td>
<td class="cfdebug">#DateFormat(Now())# #TimeFormat(Now())#</td>
</tr>
<tr>
<td class="cfdebug" nowrap> Locale </td>
<td class="cfdebug">#GetLocale()#</td>
</tr>
<tr>
<td class="cfdebug" nowrap> User Agent </td>
<td class="cfdebug">#CGI.HTTP_USER_AGENT#</td>
</tr>
<tr>
<td class="cfdebug" nowrap> Remote IP </td>
<td class="cfdebug">#CGI.REMOTE_ADDR#</td>
</tr>
<tr>
<td class="cfdebug" nowrap> Host Name </td>
<td class="cfdebug">#CGI.REMOTE_HOST#</td>
</tr>
</table>
</p>
<cfcatch type="Any"></cfcatch>
</cftry>
</cfoutput>
</cfif>
<!--- Template Stack and Executions Times --->
<cfif bFoundTemplates>
<!--- Total Execution Time of all top level pages --->
<cfquery dbType="query" name="cfdebug_execution" debug="false">
SELECT (endTime - startTime) AS executionTime
FROM qEvents
WHERE type = 'ExecutionTime'
</cfquery>
<!--- ::
in the case that no execution time is recorded.
we will add a value of -1 so we know that a problem exists but the template continues to run properly.
:: --->
<cfif not cfdebug_execution.recordCount>
<cfscript>
queryAddRow(cfdebug_execution);
querySetCell(cfdebug_execution, "executionTime", "-1");
</cfscript>
</cfif>
<cfquery dbType="query" name="cfdebug_top_level_execution_sum" debug="false">
SELECT sum(endTime - startTime) AS executionTime
FROM qEvents
WHERE type = 'Template' AND parent = ''
</cfquery>
<!--- File not found will not produce any records when looking for top level pages --->
<cfif cfdebug_top_level_execution_sum.recordCount and len(trim(cfdebug_top_level_execution_sum.executionTime[1])) gt 0>
<cfset time_other = Max(cfdebug_execution.executionTime - val(cfdebug_top_level_execution_sum.executionTime), 0)>
<cfoutput>
<style type="text/css">
.template
{ color: black;
font-family: "Times New Roman", Times, serif;
font-weight: normal; }
.template_overage
{ color: red;
background-color: white;
font-family: "Times New Roman", Times, serif;
font-weight: bold; }
</style>
</cfoutput>
<cfif cfdebugger.settings.template_mode EQ "tree">
<cfset a = arrayNew(1)>
<cfloop query="qEvents">
<cfscript>
// in cannot convert the value "" to a boolean for cachedquery column
// SELECT stacktrace will result in Query Of Queries runtime error.
// Failed to get meta_data for columnqEvents.stacktrace .
// Was told I need to define meta data for debugging event table similar to <cfldap>
if( qEvents.type eq "template" ) {
st = structNew();
st.StackTrace = qEvents.stackTrace;
st.template = qEvents.template;
st.startTime = qEvents.starttime;
st.endTime = qEvents.endtime;
st.parent = qEvents.parent;
st.line = qEvents.line;
arrayAppend(a, st);
}
</cfscript>
</cfloop>
<cfset qTree = queryNew("template,templateId,parentId,duration,line")>
<cfloop index="i" from="1" to="#arrayLen(a)#">
<cfset childidList = "">
<cfset parentidList = "">
<cfloop index="x" from="#arrayLen(a[i].stacktrace.tagcontext)#" to="1" step="-1">
<cfscript>
if( a[i].stacktrace.tagcontext[x].id NEQ "CF_INDEX" ) {
// keep appending the line number from the template stack to form a unique id
childIdList = listAppend(childIdList, a[i].stacktrace.tagcontext[x].line);
if( x eq 1 ) {
parentIdList = listAppend(parentIdList, a[i].stacktrace.tagcontext[x].template);
} else {
parentIdList = listAppend(parentIdList, a[i].stacktrace.tagcontext[x].line);
}
}
</cfscript>
</cfloop>
<cfscript>
// template is the last part of the unique id...12,5,17,c:\wwwroot\foo.cfm
// if we don't remove the "CFC[" prefix, then the parentId and childId relationship
// will be all wrong
startToken = "CFC[ ";
endToken = " | ";
thisTemplate = a[i].template;
startTokenIndex = FindNoCase(startToken, thisTemplate, 1);
if( startTokenIndex NEQ 0 ) {
endTokenIndex = FindNoCase(endToken, thisTemplate, startTokenIndex);
thisTemplate = Trim(Mid(thisTemplate,Len(startToken),endTokenIndex-Len(startToken)));
}
childIdList = listAppend(childIdList, thisTemplate);
queryAddRow(qTree);
querySetCell(qTree, "template", a[i].template);
querySetCell(qTree, "templateId", childIdList);
querySetCell(qTree, "parentId", parentIdList);
querySetCell(qTree, "duration", a[i].endtime - a[i].starttime);
querySetCell(qTree, "line", a[i].line);
</cfscript>
</cfloop>
<cfset stTree = structNew()>
<cfloop query="qTree">
<cfscript>
// empty parent assumed to be top level with the exception of application.cfm
if( len(trim(parentId)) eq 0 ){
parentId = 0;
}
stTree[parentId] = structNew();
stTree[parentId].templateId = qTree.templateId;
stTree[parentId].template = qTree.template;
stTree[parentId].duration = qTree.duration;
stTree[parentId].line = qTree.line;
stTree[parentId].children = arrayNew(1);
</cfscript>
</cfloop>
<cfloop query="qTree">
<cfscript>
stTree[templateId] = structNew();
stTree[templateId].templateId = qTree.templateId;
stTree[templateId].template = qTree.template;
stTree[templateId].duration = qTree.duration;
stTree[templateId].line = qTree.line;
stTree[templateId].children = arrayNew(1);
</cfscript>
</cfloop>
<cfloop query="qTree">
<cfscript>
arrayAppend(stTree[parentId].children, stTree[templateId]);
</cfscript>
</cfloop>
<cfquery dbType="query" name="topNodes" debug="false">
SELECT parentId, templateid
FROM qTree
WHERE parentId = ''
</cfquery>
<cfoutput>
<p class="cfdebug"><hr/><b class="cfdebuglge">Execution Time</b></p>
</cfoutput>
<cfoutput query="topNodes">
#drawTree(stTree,-1,topNodes.templateid,cfdebugger.settings.template_highlight_minimum)#
</cfoutput>
<cfoutput><p class="template">
(#time_other# ms) STARTUP, PARSING, COMPILING, LOADING, & SHUTDOWN<br />
(#cfdebug_execution.executionTime# ms) TOTAL EXECUTION TIME<br />
<font color="red"><span class="template_overage">red = over #cfdebugger.settings.template_highlight_minimum# ms execution time</span></font>
</p></cfoutput>
<cfelse>
<cftry>
<!--- added by Aaron Longnion, 2007-03-24, so we can see the order files ran --->
<cfoutput>
<p class="cfdebug"><hr/><b class="cfdebuglge">Ordered Templates (DESC)</b></p>
<table border="1" cellpadding="2" cellspacing="0" class="cfdebug">
<tr>
<td class="cfdebug" align="center"><b>Line</b></td>
<td class="cfdebug" align="center"><b>Template</b></td>
<td class="cfdebug" align="center"><b>Parent</b></td>
</tr>
</cfoutput>
<cfoutput query="cfdebug_orderedTemplates">
<cfif Len(cfdebug_orderedTemplates.Parent)
AND cfdebug_orderedTemplates.Template NEQ cfdebug_orderedTemplates.Parent>
<cfset orderedTemplate = Replace(cfdebug_orderedTemplates.Template, cfdebug_orderedTemplates.Parent, "")>
<cfset orderedTemplate = Replace(orderedTemplate, "from", "")>
<cfelse>
<cfset orderedTemplate = cfdebug_orderedTemplates.Template>
</cfif>
<tr>
<td class="cfdebug" align="center"><b>#cfdebug_orderedTemplates.Line#</b></td>
<td class="cfdebug" align="center"><b>#orderedTemplate#</b></td>
<td class="cfdebug" align="center"><b>#cfdebug_orderedTemplates.Parent#</b></td>
</tr>
</cfoutput>
<cfoutput>
</table>
</cfoutput>
<cfoutput>
<p class="cfdebug"><hr/><b class="cfdebuglge">Execution Time</b></p>
</cfoutput>
<cfquery dbType="query" name="cfdebug_templates_summary" debug="false">
SELECT template, Sum(endTime - startTime) AS totalExecutionTime, count(template) AS instances
FROM qEvents
WHERE type = 'Template'
group by template
order by totalExecutionTime DESC
</cfquery>
<cfoutput>
<table border="1" cellpadding="2" cellspacing="0" class="cfdebug">
<tr>
<td class="cfdebug" align="center"><b>Total Time</b></td>
<td class="cfdebug" align="center"><b>Avg Time</b></td>
<td class="cfdebug" align="center"><b>Count</b></td>
<td class="cfdebug"><b>Template</b></td>
</tr>
</cfoutput>
<cftry>
<cfoutput query="cfdebug_templates_summary">
<cfset templateOutput = template>
<cfset templateAverageTime = Round(totalExecutionTime / instances)>
<cfif template EQ ExpandPath(cgi.script_name)>
<cfset templateOutput =
"<b>" & template & "</b>">
<cfif templateAverageTime GT cfdebugger.settings.template_highlight_minimum>
<cfset templateOutput = "<font color='red'><span class='template_overage'>" & template & "</span></font>">
<cfset templateAverageTime = "<font color='red'><span class='template_overage'>" & templateAverageTime & "</span></font>">
<cfset totalTime = "<font color='red'><span class='template_overage'>" & totalExecutionTime & "</span></font>">
</cfif>
<cfelse>
<cfif templateAverageTime GT cfdebugger.settings.template_highlight_minimum>
<cfset templateOutput = "<font color='red'><span class='template_overage'>" & template & "</span></font>">
<cfset templateAverageTime = "<font color='red'><span class='template_overage'>" & templateAverageTime & "</span></font>">
<cfset totalTime = "<font color='red'><span class='template_overage'>" & totalExecutionTime & "</span></font>">
</cfif>
</cfif>
<tr>
<cfif isDefined("totalTime") and len(trim(totalTime))>
<td align="right" class="cfdebug" nowrap>#totalTime# ms</td>
<cfset totalTime = "">
<cfelse>
<td align="right" class="cfdebug" nowrap>#totalExecutionTime# ms</td>
</cfif>
<td align="right" class="cfdebug" nowrap>#templateAverageTime# ms</td>
<td align="center" class="cfdebug" nowrap>#instances#</td>
<td align="left" class="cfdebug" nowrap>#templateOutput#</td>
</tr>
</cfoutput>
<cfcatch type="Any"></cfcatch>
</cftry>
<cfoutput>
<tr>
<td align="right" class="cfdebug" nowrap><i>#time_other# ms</i></td><td colspan=2> </td>
<td align="left" class="cfdebug"><i>STARTUP, PARSING, COMPILING, LOADING, & SHUTDOWN</i></td>
</tr>
<tr>
<td align="right" class="cfdebug" nowrap><i>#cfdebug_execution.executionTime# ms</i></td><td colspan=2> </td>
<td align="left" class="cfdebug"><i>TOTAL EXECUTION TIME</i></td>
</tr>
</table>
<font color="red"><span class="template_overage">red = over #cfdebugger.settings.template_highlight_minimum# ms average execution time</span></font>
</cfoutput>
<cfcatch type="Any">
<cfoutput><br>[[cfcatch.message=#cfcatch.message#]]<br></cfoutput>
</cfcatch>
</cftry>
</cfif> <!--- template_mode = summary--->
<cfelse>
<p class="cfdebug"><hr/><b class="cfdebuglge">Execution Time</b></p>
<a name="cfdebug_templates">
No top level page was found.
</cfif> <!--- if top level templates are available --->
</cfif>
<!--- CFCS --->
<cfquery dbType="query" name="cfcs" debug="false">
select template, (endTime - startTime) as et, [timestamp]
from qEvents
where type = 'Template'
and template like 'CFC[[ %'
escape '['
group by template, [timestamp], startTime, endTime
</cfquery>
<cfset cfcData = structNew()>
<cfloop query="cfcs">
<cfset tString = replaceNoCase(template, "CFC[ ", "")>
<cfset tString = reReplace(tString, "] from .*", "")>
<cfset theCFC = trim(listFirst(tString, "|"))>
<cfset theMethod = trim(listLast(tString, "|"))>
<!--- remove args --->
<cfset theMethod = trim(reReplaceNoCase(theMethod, "\(.*?\).*", "()"))>
<cfif not structKeyExists(cfcData, theCFC)>
<cfset cfcData[theCFC] = structNew()>
</cfif>
<cfif not structKeyExists(cfcData[theCFC], theMethod)>
<cfset cfcData[theCFC][theMethod] = structNew()>
<cfset cfcData[theCFC][theMethod].count = 0>
<cfset cfcData[theCFC][theMethod].total = 0>
</cfif>
<cfset cfcData[theCFC][theMethod].count = cfcData[theCFC][theMethod].count + 1>
<cfset cfcData[theCFC][theMethod].total = cfcData[theCFC][theMethod].total + et>
</cfloop>
<!--- make averages --->
<cfloop item="cfc" collection="#cfcData#">
<cfloop item="method" collection="#cfcdata[cfc]#">
<cfset cfcdata[cfc][method].average = cfcdata[cfc][method].total / cfcdata[cfc][method].count>
</cfloop>
</cfloop>
<cfoutput>
<p class="cfdebug"><hr/><b class="cfdebuglge">CFC Data</b></p>
<table border="1" cellpadding="2" cellspacing="0" class="cfdebug">
<tr>
<td class="cfdebug" align="center"><b>Total Time</b></td>
<td class="cfdebug" align="center"><b>Avg Time</b></td>
<td class="cfdebug" align="center"><b>Count</b></td>
<td class="cfdebug"><b>CFC</b></td>
<td class="cfdebug"><b>Method</b></td>
</tr>
</cfoutput>
<cfloop item="cfc" collection="#cfcData#">
<cfloop item="method" collection="#cfcdata[cfc]#">
<cfoutput>
<tr>
<td>#cfcdata[cfc][method].total# ms</td>
<td>#numberFormat(cfcdata[cfc][method].average,"00.00")# ms</td>
<td>#cfcdata[cfc][method].count#</td>
<td>#cfc#</td>
<td>#method#</td>
</tr>
</cfoutput>
</cfloop>
</cfloop>
<cfoutput></table></cfoutput>
<!--- Exceptions --->
<cfif bFoundExceptions>
<cftry>
<cfoutput>
<p class="cfdebug"><hr/><b class="cfdebuglge"><a name="cfdebug_exceptions">Exceptions</a></b></p>
<cfloop query="cfdebug_ex">
<div class="cfdebug">#TimeFormat(cfdebug_ex.timestamp, "HH:mm:ss.SSS")# - #cfdebug_ex.name# <cfif FindNoCase("Exception", cfdebug_ex.name) EQ 0>Exception</cfif> - in #cfdebug_ex.template# : line #cfdebug_ex.line#</div>
<cfif IsDefined("cfdebug_ex.message") AND Len(Trim(cfdebug_ex.message)) GT 0>
<pre>
#cfdebug_ex.message#
</pre>
</cfif>
</cfloop>
</cfoutput>
<cfcatch type="Any">
<!--- Error reporting an exception event entry. --->
</cfcatch>
</cftry>
</cfif>
<!--- SQL Queries --->
<cfoutput>
<!--- added by Matt Jones, 2006, so we easily cut and paste SQL, *with* the params where they should be --->
<!--- ** TOOK OUT IN FAVOR of *mine* .. which has the CFQUERYPARAMS INLINE
<cfif bFoundSQLQueries>
<cftry>
<p class="cfdebug"><hr/><b class="cfdebuglge"><a name="cfdebug_sql">SQL Queries</a></b></p>
<cfloop query="cfdebug_queries">
<code><b>#cfdebug_queries.name#</b> (Datasource=#cfdebug_queries.datasource#, Time=#Max(cfdebug_queries.executionTime, 0)#ms<cfif IsDefined("cfdebug_queries.rowcount") AND IsNumeric(cfdebug_queries.rowcount)>, Records=#Max(cfdebug_queries.rowcount, 0)#<cfelseif IsDefined("cfdebug_queries.result.recordCount")>, Records=#cfdebug_queries.result.recordCount#</cfif><cfif cfdebug_queries.cachedquery>, Cached Query</cfif>) in #cfdebug_queries.template# @ #TimeFormat(cfdebug_queries.timestamp, "HH:mm:ss.SSS")#</code><br />
<pre>#htmleditformat(cfdebug_queries.body)#</pre>
<cfif arrayLen(cfdebug_queries.attributes) GT 0>
<code>Query Parameter Value(s) -<br />
<cfloop index="x" from=1 to="#arrayLen(cfdebug_queries.attributes)#">
<cfset thisParam = #cfdebug_queries.attributes[cfdebug_queries.currentRow][x]#>
Parameter ###x#<cfif StructKeyExists(thisParam, "sqlType")>(#thisParam.sqlType#)</cfif> = <cfif StructKeyExists(thisParam, "value")>#htmleditformat(thisParam.value)#</cfif><br />
</cfloop>
</code><br />
</cfif>
</cfloop>
<cfcatch type="Any">
<!--- Error reporting query event --->
</cfcatch>
</cftry>
</cfif>
--->
<cfif bFoundSQLQueries>
<cftry>
<fieldset style="background-color:##FFFFCC"><legend>modified sql debugging</legend>
<p class="cfdebug"><hr/><b class="cfdebuglge"><a name="cfdebug_sql">SQL Queries</a></b></p><BR />
<cfloop query="cfdebug_queries">
<div style="background-color:<cfif cfdebug_queries.cachedquery>##CCFFCC</cfif>">
<code><b>-- #cfdebug_queries.name#</b> (Datasource=#cfdebug_queries.datasource#, Time=#Max(cfdebug_queries.executionTime, 0)#ms<cfif IsDefined("cfdebug_queries.rowcount") AND IsNumeric(cfdebug_queries.rowcount)>, Records=#Max(cfdebug_queries.rowcount, 0)#<cfelseif IsDefined("cfdebug_queries.result.recordCount")>, Records=#cfdebug_queries.result.recordCount#</cfif><cfif cfdebug_queries.cachedquery>, Cached Query</cfif>) in #cfdebug_queries.template# @ #TimeFormat(cfdebug_queries.timestamp, "HH:mm:ss.SSS")#</code><br />
<cfloop index="x" from=1 to="#arrayLen(cfdebug_queries.attributes)#">
<cfscript>
thisParam = cfdebug_queries.attributes[cfdebug_queries.currentRow][x];
if ( ListFindNoCase('CF_SQL_INTEGER,CF_SQL_BIGINT,CF_SQL_DECIMAL,CF_SQL_DOUBLE,CF_SQL_FLOAT,CF_SQL_NUMERIC',thisParam.sqlType) ) {
tmpVal = thisParam.value;
} else if ( thisParam.sqlType IS "CF_SQL_BIT" ) {
if (thisParam.value IS "YES") {
tmpVal = 1;
} else if (thisParam.value IS "NO") {
tmpVal = 0;
} else { // i guess its possible that they might stop using YES and NO for the CF_SQL_BIT bit: if they do just dump it out as is
tmpVal = thisParam.value;
}
} else {
tmpVal = "'#thisParam.value#'";
}
tmpVal = tmpVal & ' /******* Parameter ###x# #IIf(StructKeyExists(thisParam, "sqlType"), DE('(#thisParam.sqlType#)'), DE(''))# = #IIf(StructKeyExists(thisParam, "value"), DE('#htmleditformat(thisParam.value)#'), DE(''))# *******/';
cfdebug_queries.body = Replace(cfdebug_queries.body,'?',tmpVal,'one');
</cfscript>
</cfloop>
<pre>#htmleditformat(cfdebug_queries.body)#</pre>
<cfif arrayLen(cfdebug_queries.attributes) GT 0>
<code>-- Query Parameter Value(s) -<br />
<cfloop index="x" from=1 to="#arrayLen(cfdebug_queries.attributes)#">
<cfset thisParam = #cfdebug_queries.attributes[cfdebug_queries.currentRow][x]#>
-- Parameter ###x#<cfif StructKeyExists(thisParam, "sqlType")>(#thisParam.sqlType#)</cfif> = <cfif StructKeyExists(thisParam, "value")>#htmleditformat(thisParam.value)#</cfif><br />
</cfloop>
</code><br />
</cfif>
</div>
</cfloop>
</fieldset>
<cfcatch type="Any">
<!--- Error reporting query event --->
</cfcatch>
</cftry>
</cfif>
<!--- Stored Procs --->
<cfif bFoundStoredProc>
<cftry>
<p class="cfdebug"><hr/><b class="cfdebuglge"><a name="cfdebug_storedproc">Stored Procedures</a></b></p>
<p class="cfdebug">
<cfloop query="cfdebug_storedproc">
<!--- Output stored procedure details, remember, include result (output params) and attributes (input params) columns --->
<code><b>#cfdebug_storedproc.name#</b> (Datasource=#cfdebug_storedproc.datasource#, Time=#Max(cfdebug_storedproc.executionTime, 0)#ms) in #cfdebug_storedproc.template# @ #TimeFormat(cfdebug_storedproc.timestamp, "HH:mm:ss.SSS")#</code><br />
<table border=0 cellpadding=0 cellspacing=0>
<tr>
<td> </td>
<td>
<table border=1 cellpadding=2 cellspacing=2>
<tr bgcolor="gray"><td colspan="5" align="center"><font color="white">parameters</font></td></tr>
<tr><td><code><i>type</i></code></td><td><code><i>CFSQLType</i></code></td><td><code><i>value</i></code></td><td><code><i>variable</i></code></td><td><code><i>dbVarName</i></code></td></tr>
<cfloop index="x" from=1 to="#arrayLen(cfdebug_storedproc.attributes)#">
<cfset thisParam = #cfdebug_storedproc.attributes[cfdebug_storedproc.currentRow][x]#>
<tr>
<td> <code><cfif StructKeyExists(thisParam, "type")>#thisParam.type#</cfif></code></td>
<td> <code><cfif StructKeyExists(thisParam, "sqlType")>#thisParam.sqlType#</cfif></code></td>
<td> <code><cfif StructKeyExists(thisParam, "value")>#htmleditformat(thisParam.value)#</cfif></code></td>
<td> <code><cfif StructKeyExists(thisParam, "variable")>#thisParam.variable# = #CFDebugSerializable(thisParam.variable)#</cfif></code></td>
<td> <code><cfif StructKeyExists(thisParam, "dbVarName")>#thisParam.dbVarName#</cfif></code></td>
</tr>
</cfloop>
</table>
</td>
</tr>
<tr>
<td> </td>
<td>
<table border=1 cellpadding=2 cellspacing=2>
<tr bgcolor="gray"><td colspan="5" align="center"><font color="white">resultsets</font></td></tr>
<tr><td><code><i>name</i></code></td><td><code><i>resultset</i></code></td></tr>
<cfloop index="x" from=1 to="#arrayLen(cfdebug_storedproc.result)#">
<cfset thisParam = #cfdebug_storedproc.result[cfdebug_storedproc.currentRow][x]#>
<tr>
<td> <code><cfif StructKeyExists(thisParam, "name")>#thisParam.name#</cfif></code></td>
<td> <code><cfif StructKeyExists(thisParam, "resultSet")>#thisParam.resultSet#</cfif></code></td>
</tr>
</cfloop>
</table>
</td>
</tr>
</table>
</cfloop>
</p>
<cfcatch type="Any">
<!--- Error reporting stored proc event --->
</cfcatch>
</cftry>
</cfif>
<!--- :: CFTimer :: --->
<cfif bFoundTimer>
<p class="cfdebug"><hr/><b class="cfdebuglge"><a name="cfdebug_timer">CFTimer Times</a></b></p>
<p class="cfdebug">
<cfloop query="cfdebug_timer">
<cftry>
<img src='#getpageContext().getRequest().getContextPath()#/CFIDE/debug/images/#Replace(cfdebug_timer.priority, " ", "%20")#_16x16.gif' alt="#cfdebug_timer.priority# type">
[#val(cfdebug_timer.endTime) - val(cfdebug_timer.startTime)#ms] <i>#cfdebug_timer.message#</i><br />
<cfcatch type="Any"></cfcatch>
</cftry>
</cfloop>
</p>
</cfif>
<!--- Tracing --->
<cfif bFoundTrace>
<p class="cfdebug"><hr/><b class="cfdebuglge"><a name="cfdebug_trace">Trace Points</a></b></p>
<p class="cfdebug">
<cfset firstTrace=true>
<cfset prevDelta=0>
<cfloop query="cfdebug_trace">
<cfset deltaFromRequest = Val(cfdebug_trace.endTime)>
<cfset deltaFromLast = Val(deltaFromRequest-prevDelta)>
<cftry>
<img src='#getpageContext().getRequest().getContextPath()#/CFIDE/debug/images/#Replace(cfdebug_trace.priority, " ", "%20")#_16x16.gif' alt="#cfdebug_trace.priority# type"> [#TimeFormat(cfdebug_trace.timestamp, "HH:mm:ss.lll")# #cfdebug_trace.template# @ line: #cfdebug_trace.line#] [#deltaFromRequest# ms (<cfif firstTrace>1st trace<cfelse>#deltaFromLast# ms</cfif>)] - <cfif #cfdebug_trace.category# NEQ "">[#cfdebug_trace.category#]</cfif> <cfif #cfdebug_trace.result# NEQ "">[#cfdebug_trace.result#]</cfif> <i>#cfdebug_trace.message#</i><br />
<cfcatch type="Any"></cfcatch>
</cftry>
<cfset prevDelta = deltaFromRequest>
<cfset firstTrace=false>
</cfloop>
</p>
</cfif>
<!--- SCOPE VARIABLES --->
<cfif bFoundScopeVars>
<p class="cfdebug"><hr/><b class="cfdebuglge"><a name="cfdebug_scopevars">Scope Variables</a></b></p>
<cftry>
<cfif IsDefined("APPLICATION") AND IsStruct(APPLICATION) AND StructCount(APPLICATION) GT 0 AND cfdebugger.check("ApplicationVar")>
<pre><b>Application Variables:</b>
#sortedScope(application)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("CGI") AND IsStruct(CGI) AND StructCount(CGI) GT 0 AND cfdebugger.check("CGIVar")>
<pre><b>CGI Variables:</b>
#sortedScope(cgi)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("CLIENT") AND IsStruct(CLIENT) AND StructCount(CLIENT) GT 0 AND cfdebugger.check("ClientVar")>
<pre><b>Client Variables:</b>
#sortedScope(client)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("COOKIE") AND IsStruct(COOKIE) AND StructCount(COOKIE) GT 0 AND cfdebugger.check("CookieVar")>
<pre><b>Cookie Variables:</b>
#sortedScope(cookie)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("FORM") AND IsStruct(FORM) AND StructCount(FORM) GT 0 AND cfdebugger.check("FormVar")>
<pre><b>Form Fields:</b>
#sortedScope(form)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("REQUEST") AND IsStruct(REQUEST) AND StructCount(REQUEST) GT 0 AND cfdebugger.check("RequestVar")>
<pre><b>Request Parameters:</b>
#sortedScope(request)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("SERVER") AND IsStruct(SERVER) AND StructCount(SERVER) GT 0 AND cfdebugger.check("ServerVar")>
<pre><b>Server Variables:</b>
#sortedScope(server)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("SESSION") AND IsStruct(SESSION) AND StructCount(SESSION) GT 0 AND cfdebugger.check("SessionVar")>
<pre><b>Session Variables:</b>
#sortedScope(session)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("URL") AND IsStruct(URL) AND StructCount(URL) GT 0 AND cfdebugger.check("URLVar")>
<pre><b>URL Parameters:</b>
#sortedScope(url)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
<cftry>
<cfif IsDefined("Attributes") AND IsStruct(Attributes) AND StructCount(Attributes) GT 0>
<pre><b>Attributes Variables:</b>
#sortedScope(Attributes)#</pre>
</cfif>
<cfcatch type="Any"></cfcatch>
</cftry>
</cfif>
<cfset duration = getTickCount() - startTime>
<cfif displayDebug>
<font size="-1" class="cfdebug">
<i>Debug Rendering Time: #duration# ms</i>
</font><br />
</td>
</tr>
</table>
</cfif>
</cfoutput>
<cfsetting enablecfoutputonly="No">
</cfif>
<cfscript>
function CFDebugSerializable(variable)
{
var ret = "";
try
{
if(IsSimpleValue(variable))
{
ret = xmlFormat(variable);
}
else
{
if (IsStruct(variable))
{
ret = ("Struct (" & StructCount(variable) & ")");
}
else if(IsArray(variable))
{
ret = ("Array (" & ArrayLen(variable) & ")");
}
else if(IsQuery(variable))
{
ret = ("Query (" & variable.RecordCount & ")");
}
else
{
ret = ("Complex type");
}
}
}
catch("any" ex)
{
ret = "undefined";
}
return ret;
}
// UDF - tree writing
function drawNode(nTree, indent, id, highlightThreshold) {
var templateOuput = "";
if( nTree[id].duration GT highlightThreshold ) {
templateOutput = "<font color='red'><span class='template_overage'>(#nTree[id].duration#ms) " & nTree[id].template & " @ line " & #nTree[id].line# & "</span></font><br>";
} else {
templateOutput = "<span class='template'>(#nTree[id].duration#ms) " & nTree[id].template & " @ line " & #nTree[id].line# & "</span><br>";
}
writeOutput(repeatString(" ·", indent + 1) & " <img src='#getpageContext().getRequest().getContextPath()#/CFIDE/debug/images/arrow.gif' alt='arrow' border='0'><img src='#getpageContext().getRequest().getContextPath()#/CFIDE/debug/images/endDoc.gif' alt='top level' border='0'> " & templateOutput);
return "";
}
function drawTree(tree, indent, id, highlightThreshold) {
var alength = 1;
var i = 1;
var templateOuput = "";
if( structKeyExists(tree, id) )
{
// top level nodes (application.cfm,cgi.script_name,etc) have a -1 parent line number
if(tree[id].line EQ -1) {
if( Tree[id].duration GT highlightThreshold )
{
writeoutput( "<font color='red'><span class='template_overage'><b>(#Tree[id].duration#ms) " & Tree[id].template & "</b></span></font><br>" );
}
else
{
writeoutput( "<span class='template'><b>(#Tree[id].duration#ms) " & Tree[id].template & "</b></span><br>" );
}
} else {
if( Tree[id].duration GT highlightThreshold ) {
templateOutput = "<font color='red'><span class='template_overage'>(#Tree[id].duration#ms) " & Tree[id].template & " @ line " & #Tree[id].line# & "</span></font><br>";
} else {
templateOutput = "<span class='template'>(#Tree[id].duration#ms) " & Tree[id].template & " @ line " & #Tree[id].line# & "</span><br>";
}
writeoutput( repeatString(" ·", indent + 1) & " <img src='#getpageContext().getRequest().getContextPath()#/CFIDE/debug/images/arrow.gif' alt='arrow' border='0'><img src='#getpageContext().getRequest().getContextPath()#/CFIDE/debug/images/parentDoc.gif' alt='top level' border='0'> " & templateOutput );
}
if( isArray( tree[id].children ) and arrayLen( tree[id].children ) ) {
alength = arrayLen( tree[id].children );
for( i = 1; i lte alength; i = i + 1 ) {
if( isArray(tree[id].children[i].children) and arrayLen( tree[id].children[i].children ) gt 0 ) {
drawTree(tree, indent + 1, tree[id].children[i].templateid, highlightThreshold);
} else {
drawNode(tree, indent + 1, tree[id].children[i].templateid, highlightThreshold);
}
}
} else {
// single template, no includes?
//drawNode(tree, indent + 1, tree[id].template, highlightThreshold);
}
}
return "";
}
</cfscript>
<cffunction name="sortedScope" output="false">
<cfargument name="scope">
<cfset retVal="">
<cfset keys = structKeyArray(scope)>
<cfset arraySort(keys,"text")>
<cfloop index="x" from=1 to="#arrayLen(keys)#">
<cfset keyName = keys[x]>
<cfset retVal = retVal & keyName & "=">
<cftry>
<cfset keyValue = CFDebugSerializable(scope[keyname])>
<cfcatch>
<cfset keyValue = "undefined">
</cfcatch>
</cftry>
<cfset retVal = retVal & keyValue & Chr(13) & Chr(10)>
</cfloop>
<cfreturn retVal>
</cffunction>