[Phpcms-plugins-cvs] onlineEditor4phpCMS/include/pclzip/pcltrace pcltrace.lib.php,NONE,1.1
Brought to you by:
mjahn
Menu
▾
▴
[Phpcms-plugins-cvs] onlineEditor4phpCMS/include/pclzip/pcltrace pcltrace.lib.php,NONE,1.1
|
From: Martin J. <mj...@us...> - 2004-05-21 21:13:13
|
Update of /cvsroot/phpcms-plugins/onlineEditor4phpCMS/include/pclzip/pcltrace In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19385/include/pclzip/pcltrace Added Files: pcltrace.lib.php Log Message: cleaned for release --- NEW FILE: pcltrace.lib.php --- <? // -------------------------------------------------------------------------------- // PhpConcept Library (PCL) Trace 2.0-beta1 // -------------------------------------------------------------------------------- // License GNU/GPL - Vincent Blavet - August 2003 // http://www.phpconcept.net // -------------------------------------------------------------------------------- // // The PCL Trace library description is not available yet. // This library was first released only with PclZip library. // An independant release will be soon available on http://www.phpconcept.net // // -------------------------------------------------------------------------------- // // Warning : // This library and the associated files are non commercial, non professional // work. // It should not have unexpected results. However if any damage is caused by // this software the author can not be responsible. // The use of this software is at the risk of the user. // // -------------------------------------------------------------------------------- // ----- Version $g_pcltrace_version = "2.0-beta1"; // ----- Internal variables // These values must be change by PclTrace library functions $g_pcl_trace_mode = "memory"; $g_pcl_trace_filename = "trace.txt"; $g_pcl_trace_name = array(); $g_pcl_trace_index = 0; $g_pcl_trace_level = 0; $g_pcl_trace_suspend = false; //$g_pcl_trace_entries = array(); // ----- For compatibility reason define ('PCLTRACE_LIB', 1); // -------------------------------------------------------------------------------- // Function : TrOn($p_level, $p_mode, $p_filename) // Description : // Parameters : // $p_level : Trace level // $p_mode : Mode of trace displaying : // 'normal' : messages are displayed at function call // 'memory' : messages are memorized in a table and can be display by // TrDisplay() function. (default) // 'log' : messages are writed in the file $p_filename // -------------------------------------------------------------------------------- function PclTraceOn($p_level=1, $p_mode="memory", $p_filename="trace.txt") { TrOn($p_level, $p_mode, $p_filename); } function TrOn($p_level=1, $p_mode="memory", $p_filename="trace.txt") { global $g_pcl_trace_level; global $g_pcl_trace_mode; global $g_pcl_trace_filename; global $g_pcl_trace_name; global $g_pcl_trace_index; global $g_pcl_trace_entries; global $g_pcl_trace_suspend; // ----- Enable trace mode $g_pcl_trace_level = $p_level; // ----- Memorize mode and filename switch ($p_mode) { case "normal" : case "memory" : case "log" : $g_pcl_trace_mode = $p_mode; break; default : $g_pcl_trace_mode = "logged"; } // ----- Memorize filename $g_pcl_trace_filename = $p_filename; $g_pcl_trace_suspend = false; } // -------------------------------------------------------------------------------- // -------------------------------------------------------------------------------- // Function : IsTrOn() // Description : // Return value : // The trace level (0 for disable). // -------------------------------------------------------------------------------- function PclTraceIsOn() { return IsTrOn(); } function IsTrOn() { global $g_pcl_trace_level; return($g_pcl_trace_level); } // -------------------------------------------------------------------------------- // -------------------------------------------------------------------------------- // Function : TrOff() // Description : // Parameters : // -------------------------------------------------------------------------------- function PclTraceOff() { TrOff(); } function TrOff() { global $g_pcl_trace_level; global $g_pcl_trace_mode; global $g_pcl_trace_filename; global $g_pcl_trace_name; global $g_pcl_trace_index; // ----- Clean $g_pcl_trace_mode = "memory"; unset($g_pcl_trace_entries); unset($g_pcl_trace_name); unset($g_pcl_trace_index); // ----- Switch off trace $g_pcl_trace_level = 0; } // -------------------------------------------------------------------------------- // -------------------------------------------------------------------------------- // Function : PclTraceSuspend() // Description : // Parameters : // -------------------------------------------------------------------------------- function PclTraceSuspend() { global $g_pcl_trace_suspend; $g_pcl_trace_suspend = true; } // -------------------------------------------------------------------------------- // -------------------------------------------------------------------------------- // Function : PclTraceResume() // Description : // Parameters : // -------------------------------------------------------------------------------- function PclTraceResume() { global $g_pcl_trace_suspend; $g_pcl_trace_suspend = false; } // -------------------------------------------------------------------------------- // -------------------------------------------------------------------------------- // Function : TrFctStart() // Description : // Just a trace function for debbugging purpose before I use a better tool !!!! // Start and stop of this function is by $g_pcl_trace_level global variable. // Parameters : // $p_level : Level of trace required. // -------------------------------------------------------------------------------- function PclTraceFctStart($p_file, $p_line, $p_name, $p_param="", $p_message="") { TrFctStart($p_file, $p_line, $p_name, $p_param, $p_message); } function TrFctStart($p_file, $p_line, $p_name, $p_param="", $p_message="") { global $g_pcl_trace_level; global $g_pcl_trace_mode; global $g_pcl_trace_filename; global $g_pcl_trace_name; global $g_pcl_trace_index; global $g_pcl_trace_entries; global $g_pcl_trace_suspend; // ----- Look for disabled trace if (($g_pcl_trace_level < 1) || ($g_pcl_trace_suspend)) return; // ----- Add the function name in the list if (!isset($g_pcl_trace_name)) $g_pcl_trace_name = $p_name; else $g_pcl_trace_name .= ",".$p_name; // ----- Update the function entry $i = sizeof($g_pcl_trace_entries); $g_pcl_trace_entries[$i]['name'] = $p_name; $g_pcl_trace_entries[$i]['param'] = $p_param; $g_pcl_trace_entries[$i]['message'] = ""; $g_pcl_trace_entries[$i]['file'] = $p_file; $g_pcl_trace_entries[$i]['line'] = $p_line; $g_pcl_trace_entries[$i]['index'] = $g_pcl_trace_index; $g_pcl_trace_entries[$i]['type'] = "1"; // means start of function // ----- Update the message entry if ($p_message != "") { $i = sizeof($g_pcl_trace_entries); $g_pcl_trace_entries[$i]['name'] = ""; $g_pcl_trace_entries[$i]['param'] = ""; $g_pcl_trace_entries[$i]['message'] = $p_message; $g_pcl_trace_entries[$i]['file'] = $p_file; $g_pcl_trace_entries[$i]['line'] = $p_line; $g_pcl_trace_entries[$i]['index'] = $g_pcl_trace_index; $g_pcl_trace_entries[$i]['type'] = "3"; // means message } // ----- Action depending on mode PclTraceAction($g_pcl_trace_entries[$i]); // ----- Increment the index $g_pcl_trace_index++; } // -------------------------------------------------------------------------------- // -------------------------------------------------------------------------------- // Function : TrFctEnd() // Description : // Just a trace function for debbugging purpose before I use a better tool !!!! // Start and stop of this function is by $g_pcl_trace_level global variable. // Parameters : // $p_level : Level of trace required. // -------------------------------------------------------------------------------- function PclTraceFctEnd($p_file, $p_line, $p_return=1, $p_message="") { TrFctEnd($p_file, $p_line, $p_return, $p_message); } function TrFctEnd($p_file, $p_line, $p_return=1, $p_message="") { global $g_pcl_trace_level; global $g_pcl_trace_mode; global $g_pcl_trace_filename; global $g_pcl_trace_name; global $g_pcl_trace_index; global $g_pcl_trace_entries; global $g_pcl_trace_suspend; // ----- Look for disabled trace if (($g_pcl_trace_level < 1) || ($g_pcl_trace_suspend)) return; // ----- Extract the function name in the list // ----- Remove the function name in the list if (!($v_name = strrchr($g_pcl_trace_name, ","))) { $v_name = $g_pcl_trace_name; $g_pcl_trace_name = ""; } else { $g_pcl_trace_name = substr($g_pcl_trace_name, 0, strlen($g_pcl_trace_name)-strlen($v_name)); $v_name = substr($v_name, -strlen($v_name)+1); } // ----- Decrement the index $g_pcl_trace_index--; // ----- Update the message entry if ($p_message != "") { $i = sizeof($g_pcl_trace_entries); $g_pcl_trace_entries[$i]['name'] = ""; $g_pcl_trace_entries[$i]['param'] = ""; $g_pcl_trace_entries[$i]['message'] = $p_message; $g_pcl_trace_entries[$i]['file'] = $p_file; $g_pcl_trace_entries[$i]['line'] = $p_line; $g_pcl_trace_entries[$i]['index'] = $g_pcl_trace_index; $g_pcl_trace_entries[$i]['type'] = "3"; // means message } // ----- Update the function entry $i = sizeof($g_pcl_trace_entries); $g_pcl_trace_entries[$i]['name'] = $v_name; $g_pcl_trace_entries[$i]['param'] = $p_return; $g_pcl_trace_entries[$i]['message'] = ""; $g_pcl_trace_entries[$i]['file'] = $p_file; $g_pcl_trace_entries[$i]['line'] = $p_line; $g_pcl_trace_entries[$i]['index'] = $g_pcl_trace_index; $g_pcl_trace_entries[$i]['type'] = "2"; // means end of function // ----- Action depending on mode PclTraceAction($g_pcl_trace_entries[$i]); } // -------------------------------------------------------------------------------- // -------------------------------------------------------------------------------- // Function : TrFctMessage() // Description : // Parameters : // -------------------------------------------------------------------------------- function PclTraceFctMessage($p_file, $p_line, $p_level, $p_message="") { TrFctMessage($p_file, $p_line, $p_level, $p_message); } function TrFctMessage($p_file, $p_line, $p_level, $p_message="") { global $g_pcl_trace_level; global $g_pcl_trace_mode; global $g_pcl_trace_filename; global $g_pcl_trace_name; global $g_pcl_trace_index; global $g_pcl_trace_entries; global $g_pcl_trace_suspend; // ----- Look for disabled trace if (($g_pcl_trace_level < $p_level) || ($g_pcl_trace_suspend)) return; // ----- Update the entry $i = sizeof($g_pcl_trace_entries); $g_pcl_trace_entries[$i]['name'] = ""; $g_pcl_trace_entries[$i]['param'] = ""; $g_pcl_trace_entries[$i]['message'] = $p_message; $g_pcl_trace_entries[$i]['file'] = $p_file; $g_pcl_trace_entries[$i]['line'] = $p_line; $g_pcl_trace_entries[$i]['index'] = $g_pcl_trace_index; $g_pcl_trace_entries[$i]['type'] = "3"; // means message of function // ----- Action depending on mode PclTraceAction($g_pcl_trace_entries[$i]); } // -------------------------------------------------------------------------------- // -------------------------------------------------------------------------------- // Function : TrMessage() // Description : // Parameters : // -------------------------------------------------------------------------------- function PclTraceMessage($p_file, $p_line, $p_level, $p_message="") { TrMessage($p_file, $p_line, $p_level, $p_message); } function TrMessage($p_file, $p_line, $p_level, $p_message="") { global $g_pcl_trace_level; global $g_pcl_trace_mode; global $g_pcl_trace_filename; global $g_pcl_trace_name; global $g_pcl_trace_index; global $g_pcl_trace_entries; global $g_pcl_trace_suspend; // ----- Look for disabled trace if (($g_pcl_trace_level < $p_level) || ($g_pcl_trace_suspend)) return; // ----- Update the entry $i = sizeof($g_pcl_trace_entries); $g_pcl_trace_entries[$i]['name'] = ""; $g_pcl_trace_entries[$i]['param'] = ""; $g_pcl_trace_entries[$i]['message'] = $p_message; $g_pcl_trace_entries[$i]['file'] = $p_file; $g_pcl_trace_entries[$i]['line'] = $p_line; $g_pcl_trace_entries[$i]['index'] = $g_pcl_trace_index; $g_pcl_trace_entries[$i]['type'] = "4"; // means simple message // ----- Action depending on mode PclTraceAction($g_pcl_trace_entries[$i]); } // -------------------------------------------------------------------------------- // -------------------------------------------------------------------------------- // Function : TrDisplay() // Description : // Parameters : // -------------------------------------------------------------------------------- function PclTraceDisplay() { TrDisplay(); } function TrDisplay() { global $g_pcl_trace_level; global $g_pcl_trace_mode; global $g_pcl_trace_filename; global $g_pcl_trace_name; global $g_pcl_trace_index; global $g_pcl_trace_entries; global $g_pcl_trace_suspend; // ----- Look for disabled trace if (($g_pcl_trace_level <= 0) || ($g_pcl_trace_mode != "memory") || ($g_pcl_trace_suspend)) return; $v_font = "\"Verdana, Arial, Helvetica, sans-serif\""; // ----- Trace Header echo "<table width=100% border=0 cellspacing=0 cellpadding=0>"; echo "<tr bgcolor=#0000CC>"; echo "<td bgcolor=#0000CC width=1>"; echo "</td>"; echo "<td><div align=center><font size=3 color=#FFFFFF face=$v_font>Trace</font></div></td>"; echo "</tr>"; echo "<tr>"; echo "<td bgcolor=#0000CC width=1>"; echo "</td>"; echo "<td>"; // ----- Content header echo "<table width=100% border=0 cellspacing=0 cellpadding=0>"; // ----- Display $v_again=0; for ($i=0; $i<sizeof($g_pcl_trace_entries); $i++) { // ---- Row header echo "<tr>"; echo "<td><table width=100% border=0 cellspacing=0 cellpadding=0><tr>"; $n = ($g_pcl_trace_entries[$i]['index']+1)*10; echo "<td width=".$n."><table width=100% border=0 cellspacing=0 cellpadding=0><tr>"; for ($j=0; $j<=$g_pcl_trace_entries[$i]['index']; $j++) { if ($j==$g_pcl_trace_entries[$i]['index']) { if (($g_pcl_trace_entries[$i]['type'] == 1) || ($g_pcl_trace_entries[$i]['type'] == 2)) echo "<td width=10><div align=center><font size=2 face=$v_font>+</font></div></td>"; } else echo "<td width=10><div align=center><font size=2 face=$v_font>|</font></div></td>"; } //echo "<td> </td>"; echo "</tr></table></td>"; echo "<td width=2></td>"; switch ($g_pcl_trace_entries[$i]['type']) { case 1: echo "<td><font size=2 face=$v_font>".$g_pcl_trace_entries[$i]['name']."(".$g_pcl_trace_entries[$i]['param'].")</font></td>"; break; case 2: echo "<td><font size=2 face=$v_font>".$g_pcl_trace_entries[$i]['name']."()=".$g_pcl_trace_entries[$i]['param']."</font></td>"; break; case 3: case 4: echo "<td><table width=100% border=0 cellspacing=0 cellpadding=0><td width=20></td><td>"; echo "<font size=2 face=$v_font>".$g_pcl_trace_entries[$i]['message']."</font>"; echo "</td></table></td>"; break; default: echo "<td><font size=2 face=$v_font>".$g_pcl_trace_entries[$i]['name']."(".$g_pcl_trace_entries[$i]['param'].")</font></td>"; } echo "</tr></table></td>"; echo "<td width=5></td>"; echo "<td><font size=1 face=$v_font>".basename($g_pcl_trace_entries[$i]['file'])."</font></td>"; echo "<td width=5></td>"; echo "<td><font size=1 face=$v_font>".$g_pcl_trace_entries[$i]['line']."</font></td>"; echo "</tr>"; } // ----- Content footer echo "</table>"; // ----- Trace footer echo "</td>"; echo "<td bgcolor=#0000CC width=1>"; echo "</td>"; echo "</tr>"; echo "<tr bgcolor=#0000CC>"; echo "<td bgcolor=#0000CC width=1>"; echo "</td>"; echo "<td><div align=center><font color=#FFFFFF face=$v_font> </font></div></td>"; echo "</tr>"; echo "</table>"; } // -------------------------------------------------------------------------------- // -------------------------------------------------------------------------------- // Function : PclTraceAction() // Description : // Parameters : // -------------------------------------------------------------------------------- function PclTraceAction($p_entry) { global $g_pcl_trace_level; global $g_pcl_trace_mode; global $g_pcl_trace_filename; global $g_pcl_trace_name; global $g_pcl_trace_index; global $g_pcl_trace_entries; if ($g_pcl_trace_mode == "normal") { for ($i=0; $i<$p_entry['index']; $i++) echo "---"; if ($p_entry['type'] == 1) echo "<b>".$p_entry['name']."</b>(".$p_entry['param'].") : ".$p_entry['message']." [".$p_entry[file].", ".$p_entry[line]."]<br>"; else if ($p_entry['type'] == 2) echo "<b>".$p_entry['name']."</b>()=".$p_entry['param']." : ".$p_entry['message']." [".$p_entry[file].", ".$p_entry[line]."]<br>"; else echo $p_entry['message']." [".$p_entry['file'].", ".$p_entry['line']."]<br>"; } } // -------------------------------------------------------------------------------- ?> |
