-<?php\r
-/* \r
-V4.65 22 July 2005 (c) 2000-2005 John Lim (jlim@natsoft.com.my). All rights reserved.\r
- Released under both BSD license and Lesser GPL library license. \r
- Whenever there is any discrepancy between the two licenses, \r
- the BSD license will take precedence. See License.txt. \r
- Set tabs to 4 for best viewing.\r
- \r
- Latest version is available at http://adodb.sourceforge.net\r
- \r
- Library for basic performance monitoring and tuning.\r
- \r
- My apologies if you see code mixed with presentation. The presentation suits\r
- my needs. If you want to separate code from presentation, be my guest. Patches\r
- are welcome.\r
- \r
-*/\r
-\r
-if (!defined(ADODB_DIR)) include_once(dirname(__FILE__).'/adodb.inc.php');\r
-include_once(ADODB_DIR.'/tohtml.inc.php');\r
-\r
-define( 'ADODB_OPT_HIGH', 2);\r
-define( 'ADODB_OPT_LOW', 1);\r
-\r
-// returns in K the memory of current process, or 0 if not known\r
-function adodb_getmem()\r
-{\r
- if (function_exists('memory_get_usage'))\r
- return (integer) ((memory_get_usage()+512)/1024);\r
- \r
- $pid = getmypid();\r
- \r
- if ( strncmp(strtoupper(PHP_OS),'WIN',3)==0) {\r
- $output = array();\r
- \r
- exec('tasklist /FI "PID eq ' . $pid. '" /FO LIST', $output); \r
- return substr($output[5], strpos($output[5], ':') + 1);\r
- } \r
- \r
- /* Hopefully UNIX */\r
- exec("ps --pid $pid --no-headers -o%mem,size", $output);\r
- if (sizeof($output) == 0) return 0;\r
- \r
- $memarr = explode(' ',$output[0]);\r
- if (sizeof($memarr)>=2) return (integer) $memarr[1];\r
- \r
- return 0;\r
-}\r
-\r
-// avoids localization problems where , is used instead of .\r
-function adodb_round($n,$prec)\r
-{\r
- return number_format($n, $prec, '.', '');\r
-}\r
-\r
-/* return microtime value as a float */\r
-function adodb_microtime()\r
-{\r
- $t = microtime();\r
- $t = explode(' ',$t);\r
- return (float)$t[1]+ (float)$t[0];\r
-}\r
-\r
-/* sql code timing */\r
-function& adodb_log_sql(&$conn,$sql,$inputarr)\r
-{\r
- \r
- $perf_table = adodb_perf::table();\r
- $conn->fnExecute = false;\r
- $t0 = microtime();\r
- $rs =& $conn->Execute($sql,$inputarr);\r
- $t1 = microtime();\r
-\r
- if (!empty($conn->_logsql)) {\r
- $conn->_logsql = false; // disable logsql error simulation\r
- $dbT = $conn->databaseType;\r
- \r
- $a0 = split(' ',$t0);\r
- $a0 = (float)$a0[1]+(float)$a0[0];\r
- \r
- $a1 = split(' ',$t1);\r
- $a1 = (float)$a1[1]+(float)$a1[0];\r
- \r
- $time = $a1 - $a0;\r
- \r
- if (!$rs) {\r
- $errM = $conn->ErrorMsg();\r
- $errN = $conn->ErrorNo();\r
- $conn->lastInsID = 0;\r
- $tracer = substr('ERROR: '.htmlspecialchars($errM),0,250);\r
- } else {\r
- $tracer = '';\r
- $errM = '';\r
- $errN = 0;\r
- $dbg = $conn->debug;\r
- $conn->debug = false;\r
- if (!is_object($rs) || $rs->dataProvider == 'empty') \r
- $conn->_affected = $conn->affected_rows(true);\r
- $conn->lastInsID = @$conn->Insert_ID();\r
- $conn->debug = $dbg;\r
- }\r
- if (isset($_SERVER['HTTP_HOST'])) {\r
- $tracer .= '<br>'.$_SERVER['HTTP_HOST'];\r
- if (isset($_SERVER['PHP_SELF'])) $tracer .= $_SERVER['PHP_SELF'];\r
- } else \r
- if (isset($_SERVER['PHP_SELF'])) $tracer .= '<br>'.$_SERVER['PHP_SELF'];\r
- //$tracer .= (string) adodb_backtrace(false);\r
- \r
- $tracer = (string) substr($tracer,0,500);\r
- \r
- if (is_array($inputarr)) {\r
- if (is_array(reset($inputarr))) $params = 'Array sizeof='.sizeof($inputarr);\r
- else {\r
- // Quote string parameters so we can see them in the\r
- // performance stats. This helps spot disabled indexes.\r
- $xar_params = $inputarr;\r
- foreach ($xar_params as $xar_param_key => $xar_param) {\r
- if (gettype($xar_param) == 'string')\r
- $xar_params[$xar_param_key] = '"' . $xar_param . '"';\r
- }\r
- $params = implode(', ', $xar_params);\r
- if (strlen($params) >= 3000) $params = substr($params, 0, 3000);\r
- }\r
- } else {\r
- $params = '';\r
- }\r
- \r
- if (is_array($sql)) $sql = $sql[0];\r
- $arr = array('b'=>strlen($sql).'.'.crc32($sql),\r
- 'c'=>substr($sql,0,3900), 'd'=>$params,'e'=>$tracer,'f'=>adodb_round($time,6));\r
- //var_dump($arr);\r
- $saved = $conn->debug;\r
- $conn->debug = 0;\r
- \r
- $d = $conn->sysTimeStamp;\r
- if (empty($d)) $d = date("'Y-m-d H:i:s'");\r
- if ($conn->dataProvider == 'oci8' && $dbT != 'oci8po') {\r
- $isql = "insert into $perf_table values($d,:b,:c,:d,:e,:f)";\r
- } else if ($dbT == 'odbc_mssql' || $dbT == 'informix') {\r
- $timer = $arr['f'];\r
- if ($dbT == 'informix') $sql2 = substr($sql2,0,230);\r
-\r
- $sql1 = $conn->qstr($arr['b']);\r
- $sql2 = $conn->qstr($arr['c']);\r
- $params = $conn->qstr($arr['d']);\r
- $tracer = $conn->qstr($arr['e']);\r
- \r
- $isql = "insert into $perf_table (created,sql0,sql1,params,tracer,timer) values($d,$sql1,$sql2,$params,$tracer,$timer)";\r
- if ($dbT == 'informix') $isql = str_replace(chr(10),' ',$isql);\r
- $arr = false;\r
- } else {\r
- $isql = "insert into $perf_table (created,sql0,sql1,params,tracer,timer) values( $d,?,?,?,?,?)";\r
- }\r
-\r
- $ok = $conn->Execute($isql,$arr);\r
- $conn->debug = $saved;\r
- \r
- if ($ok) {\r
- $conn->_logsql = true; \r
- } else {\r
- $err2 = $conn->ErrorMsg();\r
- $conn->_logsql = true; // enable logsql error simulation\r
- $perf =& NewPerfMonitor($conn);\r
- if ($perf) {\r
- if ($perf->CreateLogTable()) $ok = $conn->Execute($isql,$arr);\r
- } else {\r
- $ok = $conn->Execute("create table $perf_table (\r
- created varchar(50),\r
- sql0 varchar(250), \r
- sql1 varchar(4000),\r
- params varchar(3000),\r
- tracer varchar(500),\r
- timer decimal(16,6))");\r
- }\r
- if (!$ok) {\r
- ADOConnection::outp( "<p><b>LOGSQL Insert Failed</b>: $isql<br>$err2</p>");\r
- $conn->_logsql = false;\r
- }\r
- }\r
- $conn->_errorMsg = $errM;\r
- $conn->_errorCode = $errN;\r
- } \r
- $conn->fnExecute = 'adodb_log_sql';\r
- return $rs;\r
-}\r
-\r
- \r
-/*\r
-The settings data structure is an associative array that database parameter per element.\r
-\r
-Each database parameter element in the array is itself an array consisting of:\r
-\r
-0: category code, used to group related db parameters\r
-1: either\r
- a. sql string to retrieve value, eg. "select value from v\$parameter where name='db_block_size'", \r
- b. array holding sql string and field to look for, e.g. array('show variables','table_cache'),\r
- c. a string prefixed by =, then a PHP method of the class is invoked, \r
- e.g. to invoke $this->GetIndexValue(), set this array element to '=GetIndexValue',\r
-2: description of the database parameter\r
-*/\r
-\r
-class adodb_perf {\r
- var $conn;\r
- var $color = '#F0F0F0';\r
- var $table = '<table border=1 bgcolor=white>';\r
- var $titles = '<tr><td><b>Parameter</b></td><td><b>Value</b></td><td><b>Description</b></td></tr>';\r
- var $warnRatio = 90;\r
- var $tablesSQL = false;\r
- var $cliFormat = "%32s => %s \r\n";\r
- var $sql1 = 'sql1'; // used for casting sql1 to text for mssql\r
- var $explain = true;\r
- var $helpurl = "<a href=http://phplens.com/adodb/reference.functions.fnexecute.and.fncacheexecute.properties.html#logsql>LogSQL help</a>";\r
- var $createTableSQL = false;\r
- var $maxLength = 2000;\r
- \r
- // Sets the tablename to be used \r
- function table($newtable = false)\r
- {\r
- static $_table;\r
-\r
- if (!empty($newtable)) $_table = $newtable;\r
- if (empty($_table)) $_table = 'adodb_logsql';\r
- return $_table;\r
- }\r
-\r
- // returns array with info to calculate CPU Load\r
- function _CPULoad()\r
- {\r
-/*\r
-\r
-cpu 524152 2662 2515228 336057010\r
-cpu0 264339 1408 1257951 168025827\r
-cpu1 259813 1254 1257277 168031181\r
-page 622307 25475680\r
-swap 24 1891\r
-intr 890153570 868093576 6 0 4 4 0 6 1 2 0 0 0 124 0 8098760 2 13961053 0 0 0 0 0 0 0 0 0 0 0 0 0 16 16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0\r
-disk_io: (3,0):(3144904,54369,610378,3090535,50936192) (3,1):(3630212,54097,633016,3576115,50951320)\r
-ctxt 66155838\r
-btime 1062315585\r
-processes 69293\r
-\r
-*/\r
- // Algorithm is taken from\r
- // http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/example__obtaining_raw_performance_data.asp\r
- if (strncmp(PHP_OS,'WIN',3)==0) {\r
- if (PHP_VERSION == '5.0.0') return false;\r
- if (PHP_VERSION == '5.0.1') return false;\r
- if (PHP_VERSION == '5.0.2') return false;\r
- if (PHP_VERSION == '5.0.3') return false;\r
- if (PHP_VERSION == '4.3.10') return false; # see http://bugs.php.net/bug.php?id=31737\r
- \r
- @$c = new COM("WinMgmts:{impersonationLevel=impersonate}!Win32_PerfRawData_PerfOS_Processor.Name='_Total'");\r
- if (!$c) return false;\r
- \r
- $info[0] = $c->PercentProcessorTime;\r
- $info[1] = 0;\r
- $info[2] = 0;\r
- $info[3] = $c->TimeStamp_Sys100NS;\r
- //print_r($info);\r
- return $info;\r
- }\r
- \r
- // Algorithm - Steve Blinch (BlitzAffe Online, http://www.blitzaffe.com)\r
- $statfile = '/proc/stat';\r
- if (!file_exists($statfile)) return false;\r
- \r
- $fd = fopen($statfile,"r");\r
- if (!$fd) return false;\r
- \r
- $statinfo = explode("\n",fgets($fd, 1024));\r
- fclose($fd);\r
- foreach($statinfo as $line) {\r
- $info = explode(" ",$line);\r
- if($info[0]=="cpu") {\r
- array_shift($info); // pop off "cpu"\r
- if(!$info[0]) array_shift($info); // pop off blank space (if any)\r
- return $info;\r
- }\r
- }\r
- \r
- return false;\r
- \r
- }\r
- \r
- /* NOT IMPLEMENTED */\r
- function MemInfo()\r
- {\r
- /*\r
-\r
- total: used: free: shared: buffers: cached:\r
-Mem: 1055289344 917299200 137990144 0 165437440 599773184\r
-Swap: 2146775040 11055104 2135719936\r
-MemTotal: 1030556 kB\r
-MemFree: 134756 kB\r
-MemShared: 0 kB\r
-Buffers: 161560 kB\r
-Cached: 581384 kB\r
-SwapCached: 4332 kB\r
-Active: 494468 kB\r
-Inact_dirty: 322856 kB\r
-Inact_clean: 24256 kB\r
-Inact_target: 168316 kB\r
-HighTotal: 131064 kB\r
-HighFree: 1024 kB\r
-LowTotal: 899492 kB\r
-LowFree: 133732 kB\r
-SwapTotal: 2096460 kB\r
-SwapFree: 2085664 kB\r
-Committed_AS: 348732 kB\r
- */\r
- }\r
- \r
- \r
- /*\r
- Remember that this is client load, not db server load!\r
- */\r
- var $_lastLoad;\r
- function CPULoad()\r
- {\r
- $info = $this->_CPULoad();\r
- if (!$info) return false;\r
- \r
- if (empty($this->_lastLoad)) {\r
- sleep(1);\r
- $this->_lastLoad = $info;\r
- $info = $this->_CPULoad();\r
- }\r
- \r
- $last = $this->_lastLoad;\r
- $this->_lastLoad = $info;\r
- \r
- $d_user = $info[0] - $last[0];\r
- $d_nice = $info[1] - $last[1];\r
- $d_system = $info[2] - $last[2];\r
- $d_idle = $info[3] - $last[3];\r
- \r
- //printf("Delta - User: %f Nice: %f System: %f Idle: %f<br>",$d_user,$d_nice,$d_system,$d_idle);\r
-\r
- if (strncmp(PHP_OS,'WIN',3)==0) {\r
- if ($d_idle < 1) $d_idle = 1;\r
- return 100*(1-$d_user/$d_idle);\r
- }else {\r
- $total=$d_user+$d_nice+$d_system+$d_idle;\r
- if ($total<1) $total=1;\r
- return 100*($d_user+$d_nice+$d_system)/$total; \r
- }\r
- }\r
- \r
- function Tracer($sql)\r
- {\r
- $perf_table = adodb_perf::table();\r
- $saveE = $this->conn->fnExecute;\r
- $this->conn->fnExecute = false;\r
- \r
- global $ADODB_FETCH_MODE;\r
- $save = $ADODB_FETCH_MODE;\r
- $ADODB_FETCH_MODE = ADODB_FETCH_NUM;\r
- if ($this->conn->fetchMode !== false) $savem = $this->conn->SetFetchMode(false);\r
- \r
- $sqlq = $this->conn->qstr($sql);\r
- $arr = $this->conn->GetArray(\r
-"select count(*),tracer \r
- from $perf_table where sql1=$sqlq \r
- group by tracer\r
- order by 1 desc");\r
- $s = '';\r
- if ($arr) {\r
- $s .= '<h3>Scripts Affected</h3>';\r
- foreach($arr as $k) {\r
- $s .= sprintf("%4d",$k[0]).' '.strip_tags($k[1]).'<br>';\r
- }\r
- }\r
- \r
- if (isset($savem)) $this->conn->SetFetchMode($savem);\r
- $ADODB_CACHE_MODE = $save;\r
- $this->conn->fnExecute = $saveE;\r
- return $s;\r
- }\r
-\r
- /* \r
- Explain Plan for $sql.\r
- If only a snippet of the $sql is passed in, then $partial will hold the crc32 of the \r
- actual sql.\r
- */\r
- function Explain($sql,$partial=false)\r
- { \r
- return false;\r
- }\r
- \r
- function InvalidSQL($numsql = 10)\r
- {\r
- \r
- if (isset($_GET['sql'])) return;\r
- $s = '<h3>Invalid SQL</h3>';\r
- $saveE = $this->conn->fnExecute;\r
- $this->conn->fnExecute = false;\r
- $perf_table = adodb_perf::table();\r
- $rs =& $this->conn->SelectLimit("select distinct count(*),sql1,tracer as error_msg from $perf_table where tracer like 'ERROR:%' group by sql1,tracer order by 1 desc",$numsql);//,$numsql);\r
- $this->conn->fnExecute = $saveE;\r
- if ($rs) {\r
- $s .= rs2html($rs,false,false,false,false);\r
- } else\r
- return "<p>$this->helpurl. ".$this->conn->ErrorMsg()."</p>";\r
- \r
- return $s;\r
- }\r
-\r
- \r
- /*\r
- This script identifies the longest running SQL\r
- */ \r
- function _SuspiciousSQL($numsql = 10)\r
- {\r
- global $ADODB_FETCH_MODE;\r
- \r
- $perf_table = adodb_perf::table();\r
- $saveE = $this->conn->fnExecute;\r
- $this->conn->fnExecute = false;\r
- \r
- if (isset($_GET['exps']) && isset($_GET['sql'])) {\r
- $partial = !empty($_GET['part']);\r
- echo "<a name=explain></a>".$this->Explain($_GET['sql'],$partial)."\n";\r
- }\r
- \r
- if (isset($_GET['sql'])) return;\r
- $sql1 = $this->sql1;\r
- \r
- $save = $ADODB_FETCH_MODE;\r
- $ADODB_FETCH_MODE = ADODB_FETCH_NUM;\r
- if ($this->conn->fetchMode !== false) $savem = $this->conn->SetFetchMode(false);\r
- //$this->conn->debug=1;\r
- $rs =& $this->conn->SelectLimit(\r
- "select avg(timer) as avg_timer,$sql1,count(*),max(timer) as max_timer,min(timer) as min_timer\r
- from $perf_table\r
- where {$this->conn->upperCase}({$this->conn->substr}(sql0,1,5)) not in ('DROP ','INSER','COMMI','CREAT')\r
- and (tracer is null or tracer not like 'ERROR:%')\r
- group by sql1\r
- order by 1 desc",$numsql);\r
- if (isset($savem)) $this->conn->SetFetchMode($savem);\r
- $ADODB_FETCH_MODE = $save;\r
- $this->conn->fnExecute = $saveE;\r
- \r
- if (!$rs) return "<p>$this->helpurl. ".$this->conn->ErrorMsg()."</p>";\r
- $s = "<h3>Suspicious SQL</h3>\r
-<font size=1>The following SQL have high average execution times</font><br>\r
-<table border=1 bgcolor=white><tr><td><b>Avg Time</b><td><b>Count</b><td><b>SQL</b><td><b>Max</b><td><b>Min</b></tr>\n";\r
- $max = $this->maxLength;\r
- while (!$rs->EOF) {\r
- $sql = $rs->fields[1];\r
- $raw = urlencode($sql);\r
- if (strlen($raw)>$max-100) {\r
- $sql2 = substr($sql,0,$max-500);\r
- $raw = urlencode($sql2).'&part='.crc32($sql);\r
- }\r
- $prefix = "<a target=sql".rand()." href=\"?hidem=1&exps=1&sql=".$raw."&x#explain\">";\r
- $suffix = "</a>";\r
- if ($this->explain == false || strlen($prefix)>$max) {\r
- $suffix = ' ... <i>String too long for GET parameter: '.strlen($prefix).'</i>';\r
- $prefix = '';\r
- }\r
- $s .= "<tr><td>".adodb_round($rs->fields[0],6)."<td align=right>".$rs->fields[2]."<td><font size=-1>".$prefix.htmlspecialchars($sql).$suffix."</font>".\r
- "<td>".$rs->fields[3]."<td>".$rs->fields[4]."</tr>";\r
- $rs->MoveNext();\r
- }\r
- return $s."</table>";\r
- \r
- }\r
- \r
- function CheckMemory()\r
- {\r
- return '';\r
- }\r
- \r
- \r
- function SuspiciousSQL($numsql=10)\r
- {\r
- return adodb_perf::_SuspiciousSQL($numsql);\r
- }\r
-\r
- function ExpensiveSQL($numsql=10)\r
- {\r
- return adodb_perf::_ExpensiveSQL($numsql);\r
- }\r
-\r
- \r
- /*\r
- This reports the percentage of load on the instance due to the most \r
- expensive few SQL statements. Tuning these statements can often \r
- make huge improvements in overall system performance. \r
- */\r
- function _ExpensiveSQL($numsql = 10)\r
- {\r
- global $ADODB_FETCH_MODE;\r
- \r
- $perf_table = adodb_perf::table();\r
- $saveE = $this->conn->fnExecute;\r
- $this->conn->fnExecute = false;\r
- \r
- if (isset($_GET['expe']) && isset($_GET['sql'])) {\r
- $partial = !empty($_GET['part']);\r
- echo "<a name=explain></a>".$this->Explain($_GET['sql'],$partial)."\n";\r
- }\r
- \r
- if (isset($_GET['sql'])) return;\r
- \r
- $sql1 = $this->sql1;\r
- $save = $ADODB_FETCH_MODE;\r
- $ADODB_FETCH_MODE = ADODB_FETCH_NUM;\r
- if ($this->conn->fetchMode !== false) $savem = $this->conn->SetFetchMode(false);\r
- \r
- $rs =& $this->conn->SelectLimit(\r
- "select sum(timer) as total,$sql1,count(*),max(timer) as max_timer,min(timer) as min_timer\r
- from $perf_table\r
- where {$this->conn->upperCase}({$this->conn->substr}(sql0,1,5)) not in ('DROP ','INSER','COMMI','CREAT')\r
- and (tracer is null or tracer not like 'ERROR:%')\r
- group by sql1\r
- having count(*)>1\r
- order by 1 desc",$numsql);\r
- if (isset($savem)) $this->conn->SetFetchMode($savem);\r
- $this->conn->fnExecute = $saveE;\r
- $ADODB_FETCH_MODE = $save;\r
- if (!$rs) return "<p>$this->helpurl. ".$this->conn->ErrorMsg()."</p>";\r
- $s = "<h3>Expensive SQL</h3>\r
-<font size=1>Tuning the following SQL could reduce the server load substantially</font><br>\r
-<table border=1 bgcolor=white><tr><td><b>Load</b><td><b>Count</b><td><b>SQL</b><td><b>Max</b><td><b>Min</b></tr>\n";\r
- $max = $this->maxLength;\r
- while (!$rs->EOF) {\r
- $sql = $rs->fields[1];\r
- $raw = urlencode($sql);\r
- if (strlen($raw)>$max-100) {\r
- $sql2 = substr($sql,0,$max-500);\r
- $raw = urlencode($sql2).'&part='.crc32($sql);\r
- }\r
- $prefix = "<a target=sqle".rand()." href=\"?hidem=1&expe=1&sql=".$raw."&x#explain\">";\r
- $suffix = "</a>";\r
- if($this->explain == false || strlen($prefix>$max)) {\r
- $prefix = '';\r
- $suffix = '';\r
- }\r
- $s .= "<tr><td>".adodb_round($rs->fields[0],6)."<td align=right>".$rs->fields[2]."<td><font size=-1>".$prefix.htmlspecialchars($sql).$suffix."</font>".\r
- "<td>".$rs->fields[3]."<td>".$rs->fields[4]."</tr>";\r
- $rs->MoveNext();\r
- }\r
- return $s."</table>";\r
- }\r
- \r
- /*\r
- Raw function to return parameter value from $settings.\r
- */\r
- function DBParameter($param)\r
- {\r
- if (empty($this->settings[$param])) return false;\r
- $sql = $this->settings[$param][1];\r
- return $this->_DBParameter($sql);\r
- }\r
- \r
- /*\r
- Raw function returning array of poll paramters\r
- */\r
- function &PollParameters()\r
- {\r
- $arr[0] = (float)$this->DBParameter('data cache hit ratio');\r
- $arr[1] = (float)$this->DBParameter('data reads');\r
- $arr[2] = (float)$this->DBParameter('data writes');\r
- $arr[3] = (integer) $this->DBParameter('current connections');\r
- return $arr;\r
- }\r
- \r
- /*\r
- Low-level Get Database Parameter\r
- */\r
- function _DBParameter($sql)\r
- {\r
- $savelog = $this->conn->LogSQL(false);\r
- if (is_array($sql)) {\r
- global $ADODB_FETCH_MODE;\r
- \r
- $sql1 = $sql[0];\r
- $key = $sql[1];\r
- if (sizeof($sql)>2) $pos = $sql[2];\r
- else $pos = 1;\r
- if (sizeof($sql)>3) $coef = $sql[3];\r
- else $coef = false;\r
- $ret = false;\r
- $save = $ADODB_FETCH_MODE;\r
- $ADODB_FETCH_MODE = ADODB_FETCH_NUM;\r
- if ($this->conn->fetchMode !== false) $savem = $this->conn->SetFetchMode(false);\r
- \r
- $rs = $this->conn->Execute($sql1);\r
- \r
- if (isset($savem)) $this->SetFetchMode($savem);\r
- $ADODB_FETCH_MODE = $save;\r
- if ($rs) {\r
- while (!$rs->EOF) {\r
- $keyf = reset($rs->fields);\r
- if (trim($keyf) == $key) {\r
- $ret = $rs->fields[$pos];\r
- if ($coef) $ret *= $coef;\r
- break;\r
- }\r
- $rs->MoveNext();\r
- }\r
- $rs->Close();\r
- }\r
- $this->conn->LogSQL($savelog);\r
- return $ret;\r
- } else {\r
- if (strncmp($sql,'=',1) == 0) {\r
- $fn = substr($sql,1);\r
- return $this->$fn();\r
- }\r
- $sql = str_replace('$DATABASE',$this->conn->database,$sql);\r
- $ret = $this->conn->GetOne($sql);\r
- $this->conn->LogSQL($savelog);\r
- \r
- return $ret;\r
- }\r
- }\r
- \r
- /*\r
- Warn if cache ratio falls below threshold. Displayed in "Description" column.\r
- */\r
- function WarnCacheRatio($val)\r
- {\r
- if ($val < $this->warnRatio) \r
- return '<font color=red><b>Cache ratio should be at least '.$this->warnRatio.'%</b></font>';\r
- else return '';\r
- }\r
- \r
- /***********************************************************************************************/\r
- // HIGH LEVEL UI FUNCTIONS\r
- /***********************************************************************************************/\r
-\r
- \r
- function UI($pollsecs=5)\r
- {\r
- \r
- $perf_table = adodb_perf::table();\r
- $conn = $this->conn;\r
- \r
- $app = $conn->host;\r
- if ($conn->host && $conn->database) $app .= ', db=';\r
- $app .= $conn->database;\r
- \r
- if ($app) $app .= ', ';\r
- $savelog = $this->conn->LogSQL(false); \r
- $info = $conn->ServerInfo();\r
- if (isset($_GET['clearsql'])) {\r
- $this->conn->Execute("delete from $perf_table");\r
- }\r
- $this->conn->LogSQL($savelog);\r
- \r
- // magic quotes\r
- \r
- if (isset($_GET['sql']) && get_magic_quotes_gpc()) {\r
- $_GET['sql'] = $_GET['sql'] = str_replace(array("\\'",'\"'),array("'",'"'),$_GET['sql']);\r
- }\r
- \r
- if (!isset($_SESSION['ADODB_PERF_SQL'])) $nsql = $_SESSION['ADODB_PERF_SQL'] = 10;\r
- else $nsql = $_SESSION['ADODB_PERF_SQL'];\r
- \r
- $app .= $info['description'];\r
- \r
- \r
- if (isset($_GET['do'])) $do = $_GET['do'];\r
- else if (isset($_POST['do'])) $do = $_POST['do'];\r
- else if (isset($_GET['sql'])) $do = 'viewsql';\r
- else $do = 'stats';\r
- \r
- if (isset($_GET['nsql'])) {\r
- if ($_GET['nsql'] > 0) $nsql = $_SESSION['ADODB_PERF_SQL'] = (integer) $_GET['nsql'];\r
- }\r
- echo "<title>ADOdb Performance Monitor on $app</title><body bgcolor=white>";\r
- if ($do == 'viewsql') $form = "<td><form># SQL:<input type=hidden value=viewsql name=do> <input type=text size=4 name=nsql value=$nsql><input type=submit value=Go></td></form>";\r
- else $form = "<td> </td>";\r
- \r
- $allowsql = !defined('ADODB_PERF_NO_RUN_SQL');\r
- \r
- if (empty($_GET['hidem']))\r
- echo "<table border=1 width=100% bgcolor=lightyellow><tr><td colspan=2>\r
- <b><a href=http://adodb.sourceforge.net/?perf=1>ADOdb</a> Performance Monitor</b> <font size=1>for $app</font></tr><tr><td>\r
- <a href=?do=stats><b>Performance Stats</b></a> <a href=?do=viewsql><b>View SQL</b></a>\r
- <a href=?do=tables><b>View Tables</b></a> <a href=?do=poll><b>Poll Stats</b></a>",\r
- $allowsql ? ' <a href=?do=dosql><b>Run SQL</b></a>' : '',\r
- "$form",\r
- "</tr></table>";\r
-\r
- \r
- switch ($do) {\r
- default:\r
- case 'stats':\r
- echo $this->HealthCheck();\r
- //$this->conn->debug=1;\r
- echo $this->CheckMemory();\r
- break;\r
- case 'poll':\r
- echo "<iframe width=720 height=80% \r
- src=\"{$_SERVER['PHP_SELF']}?do=poll2&hidem=1\"></iframe>";\r
- break;\r
- case 'poll2':\r
- echo "<pre>";\r
- $this->Poll($pollsecs);\r
- break;\r
- \r
- case 'dosql':\r
- if (!$allowsql) break;\r
- \r
- $this->DoSQLForm();\r
- break;\r
- case 'viewsql':\r
- if (empty($_GET['hidem']))\r
- echo " <a href=\"?do=viewsql&clearsql=1\">Clear SQL Log</a><br>";\r
- echo($this->SuspiciousSQL($nsql));\r
- echo($this->ExpensiveSQL($nsql));\r
- echo($this->InvalidSQL($nsql));\r
- break;\r
- case 'tables': \r
- echo $this->Tables(); break;\r
- }\r
- global $ADODB_vers;\r
- echo "<p><div align=center><font size=1>$ADODB_vers Sponsored by <a href=http://phplens.com/>phpLens</a></font></div>";\r
- }\r
- \r
- /*\r
- Runs in infinite loop, returning real-time statistics\r
- */\r
- function Poll($secs=5)\r
- {\r
- $this->conn->fnExecute = false;\r
- //$this->conn->debug=1;\r
- if ($secs <= 1) $secs = 1;\r
- echo "Accumulating statistics, every $secs seconds...\n";flush();\r
- $arro =& $this->PollParameters();\r
- $cnt = 0;\r
- set_time_limit(0);\r
- sleep($secs);\r
- while (1) {\r
-\r
- $arr =& $this->PollParameters();\r
- \r
- $hits = sprintf('%2.2f',$arr[0]);\r
- $reads = sprintf('%12.4f',($arr[1]-$arro[1])/$secs);\r
- $writes = sprintf('%12.4f',($arr[2]-$arro[2])/$secs);\r
- $sess = sprintf('%5d',$arr[3]);\r
- \r
- $load = $this->CPULoad();\r
- if ($load !== false) {\r
- $oslabel = 'WS-CPU%';\r
- $osval = sprintf(" %2.1f ",(float) $load);\r
- }else {\r
- $oslabel = '';\r
- $osval = '';\r
- }\r
- if ($cnt % 10 == 0) echo " Time ".$oslabel." Hit% Sess Reads/s Writes/s\n"; \r
- $cnt += 1;\r
- echo date('H:i:s').' '.$osval."$hits $sess $reads $writes\n";\r
- flush();\r
- \r
- if (connection_aborted()) return;\r
- \r
- sleep($secs);\r
- $arro = $arr;\r
- }\r
- }\r
- \r
- /*\r
- Returns basic health check in a command line interface\r
- */\r
- function HealthCheckCLI()\r
- {\r
- return $this->HealthCheck(true);\r
- }\r
- \r
- \r
- /*\r
- Returns basic health check as HTML\r
- */\r
- function HealthCheck($cli=false)\r
- {\r
- $saveE = $this->conn->fnExecute;\r
- $this->conn->fnExecute = false; \r
- if ($cli) $html = '';\r
- else $html = $this->table.'<tr><td colspan=3><h3>'.$this->conn->databaseType.'</h3></td></tr>'.$this->titles;\r
- \r
- $oldc = false;\r
- $bgc = '';\r
- foreach($this->settings as $name => $arr) {\r
- if ($arr === false) break;\r
- \r
- if (!is_string($name)) {\r
- if ($cli) $html .= " -- $arr -- \n";\r
- else $html .= "<tr bgcolor=$this->color><td colspan=3><i>$arr</i> </td></tr>";\r
- continue;\r
- }\r
- \r
- if (!is_array($arr)) break;\r
- $category = $arr[0];\r
- $how = $arr[1];
projects / phppgadmin.git / commitdiff