') which will create the per-site table if it does not exist. Use subsequent Profiler::Mark('' ) * calls to designate the measure points. The profiler will collect the statistics of start, end and all specified points which will * be dumped to the database as soon as the execution finishes. * Note: you can disable the profiler by simply not issuing Profiler::Start(); if that isn't done, any other calls to Profiler:: * would be ignored by the class * Note: PEAR Benchmark package must be installed for this to work. */ class Profiler { private static $profiler; private static $table_name; private static $db; private static $session; private static $location_cache; public static function Start($table_name) { self::$session = time(); self::$db = new Database_MySQL('localhost', 'root', null, 'performance'); self::$db->Query('CREATE TABLE IF NOT EXISTS ' . $table_name . ' LIKE template'); self::$table_name = 'performance.' . $table_name; self::$profiler = new Benchmark_Timer(); self::$profiler->start(); self::$location_cache = array('Start' => array('file' => $_SERVER['REQUEST_URI'], 'line' => 'null'), 'Stop' => array('file ' => null, 'line' => 'null')); register_shutdown_function('profiler_shutdown_callback'); } public static function Mark($label) { if (! self::$profiler) return; $trace = debug_backtrace(); self::$location_cache[$label] = array('file' => $trace[0]['file'], 'line' => $trace[0]['line']); self::$profiler->setMarker($label); } public static function Done() { if (! self::$profiler) return; self::$profiler->stop(); $profile = self::$profiler->getProfiling(); $db = self::$db; foreach ($profile as $position) { extract($position); $file = self::$location_cache[$name]['file']; $line = self::$location_cache[$name]['line']; foreach(array('time', 'diff', 'total', 'name', 'file') as $varname) $$varname = $db->Quote($$varname); $sql = 'INSERT INTO ' . self::$table_name . "(session, ip, label, time, diff, total, file, line) VALUES(" . self::$session . ',' . $db->Quote($_SERVER[REMOTE_ADDR]) . ", $name, $time, $diff, $total, $file, $line)"; $db->Query($sql); } } } function profiler_shutdown_callback() { Profiler::Done(); }