codeShare by everfro

<!---

--->
<cfif IsDebugMode()>
<cfsilent>
<cfset startTime = getTickCount()>
<cfscript>
formEncoding = getEncoding("FORM");
urlEncoding = getEncoding("URL");
setEncoding("FORM", formEncoding);
setEncoding("URL", urlEncoding);
</cfscript>
</cfsilent>

<cfset undefined = "">

<cftry>
<cfobject action="CREATE" type="JAVA" class="coldfusion.server.ServiceFactory" name="factory">
<cfset cfdebugger = factory.getDebuggingService()>
<cfcatch type="Any"></cfcatch>
</cftry>

<cfset qEvents = cfdebugger.getDebugger().getData()>


<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>
<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>

<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>

<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>

<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>

<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>

<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>

<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>

<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>

<cfparam name="displayDebug" default="false" type="boolean">
<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>

<cfif bFoundTemplates>

<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>

<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>
<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> 
<cfelse>
<p class="cfdebug"><hr/><b class="cfdebuglge">Execution Time</b></p>
<a name="cfdebug_templates">
No top level page was found.
</cfif> 
</cfif>

<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, "|"))>

<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>

<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=