Proyectos de Subversion Moodle

<?php

/**

 * Library for basic performance monitoring and tuning

 *

 * This file is part of ADOdb, a Database Abstraction Layer library for PHP.

 *

 * @package ADOdb

 * @link https://adodb.org Project's web site and documentation

 * @link https://github.com/ADOdb/ADOdb Source code and issue tracker

 *

 * The ADOdb Library is dual-licensed, released under both the BSD 3-Clause

 * and the GNU Lesser General Public Licence (LGPL) v2.1 or, at your option,

 * any later version. This means you can use it in proprietary products.

 * See the LICENSE.md file distributed with this source code for details.

 * @license BSD-3-Clause

 * @license LGPL-2.1-or-later

 *

 * @copyright 2000-2013 John Lim

 * @copyright 2014 Damien Regad, Mark Newnham and the ADOdb community

 */

// security - hide paths

if (!defined('ADODB_DIR')) die();

/*

	MSSQL has moved most performance info to Performance Monitor

*/

class perf_mssqlnative extends adodb_perf{

	var $sql1 = 'cast(sql1 as text)';

	var $createTableSQL = "CREATE TABLE adodb_logsql (

		  created datetime NOT NULL,

		  sql0 varchar(250) NOT NULL,

		  sql1 varchar(4000) NOT NULL,

		  params varchar(3000) NOT NULL,

		  tracer varchar(500) NOT NULL,

		  timer decimal(16,6) NOT NULL

		)";

	var $settings = array(

	'Ratios',

		'data cache hit ratio' => array('RATIO',

			"select round((a.cntr_value*100.0)/b.cntr_value,2) from master.dbo.sysperfinfo a, master.dbo.sysperfinfo b where a.counter_name = 'Buffer cache hit ratio' and b.counter_name='Buffer cache hit ratio base'",

			'=WarnCacheRatio'),

		'prepared sql hit ratio' => array('RATIO',

			array('dbcc cachestats','Prepared',1,100),

			''),

		'adhoc sql hit ratio' => array('RATIO',

			array('dbcc cachestats','Adhoc',1,100),

			''),

	'IO',

		'data reads' => array('IO',

		"select cntr_value from master.dbo.sysperfinfo where counter_name = 'Page reads/sec'"),

		'data writes' => array('IO',

		"select cntr_value from master.dbo.sysperfinfo where counter_name = 'Page writes/sec'"),

	'Data Cache',

		'data cache size' => array('DATAC',

		"select cntr_value*8192 from master.dbo.sysperfinfo where counter_name = 'Total Pages' and object_name='SQLServer:Buffer Manager'",

			'' ),

		'data cache blocksize' => array('DATAC',

			"select 8192",'page size'),

	'Connections',

		'current connections' => array('SESS',

			'=sp_who',

			''),

		'max connections' => array('SESS',

			"SELECT @@MAX_CONNECTIONS",

			''),

		false

	);

	function __construct(&$conn)

	{

		if ($conn->dataProvider == 'odbc') {

			$this->sql1 = 'sql1';

			//$this->explain = false;

		}

		$this->conn =& $conn;

	}

	function Explain($sql,$partial=false)

	{

		$save = $this->conn->LogSQL(false);

		if ($partial) {

			$sqlq = $this->conn->qstr($sql.'%');

			$arr = $this->conn->GetArray("select distinct sql1 from adodb_logsql where sql1 like $sqlq");

			if ($arr) {

				foreach($arr as $row) {

					$sql = reset($row);

					if (crc32($sql) == $partial) break;

				}

			}

		}

		$s = '<p><b>Explain</b>: '.htmlspecialchars($sql).'</p>';

		$this->conn->Execute("SET SHOWPLAN_ALL ON;");

		$sql = str_replace('?',"''",$sql);

		global $ADODB_FETCH_MODE;

		$save = $ADODB_FETCH_MODE;

		$ADODB_FETCH_MODE = ADODB_FETCH_NUM;

		$rs =& $this->conn->Execute($sql);

		//adodb_printr($rs);

		$ADODB_FETCH_MODE = $save;

		if ($rs) {

			$rs->MoveNext();

			$s .= '<table bgcolor=white border=0 cellpadding="1" callspacing=0><tr><td nowrap align=center> Rows<td nowrap align=center> IO<td nowrap align=center> CPU<td align=left> &nbsp; &nbsp; Plan</tr>';

			while (!$rs->EOF) {

				$s .= '<tr><td>'.round($rs->fields[8],1).'<td>'.round($rs->fields[9],3).'<td align=right>'.round($rs->fields[10],3).'<td nowrap><pre>'.htmlspecialchars($rs->fields[0])."</td></pre></tr>\n"; ## NOTE CORRUPT </td></pre> tag is intentional!!!!

				$rs->MoveNext();

			}

			$s .= '</table>';

			$rs->NextRecordSet();

		}

		$this->conn->Execute("SET SHOWPLAN_ALL OFF;");

		$this->conn->LogSQL($save);

		$s .= $this->Tracer($sql);

		return $s;

	}

	function Tables($orderby='1')

	{

	global $ADODB_FETCH_MODE;

		$save = $ADODB_FETCH_MODE;

		$ADODB_FETCH_MODE = ADODB_FETCH_NUM;

		//$this->conn->debug=1;

		$s = '<table border=1 bgcolor=white><tr><td><b>tablename</b></td><td><b>size_in_k</b></td><td><b>index size</b></td><td><b>reserved size</b></td></tr>';

		$rs1 = $this->conn->Execute("select distinct name from sysobjects where xtype='U'");

		if ($rs1) {

			while (!$rs1->EOF) {

				$tab = $rs1->fields[0];

				$tabq = $this->conn->qstr($tab);

				$rs2 = $this->conn->Execute("sp_spaceused $tabq");

				if ($rs2) {

					$s .= '<tr><td>'.$tab.'</td><td align=right>'.$rs2->fields[3].'</td><td align=right>'.$rs2->fields[4].'</td><td align=right>'.$rs2->fields[2].'</td></tr>';

					$rs2->Close();

				}

				$rs1->MoveNext();

			}

			$rs1->Close();

		}

		$ADODB_FETCH_MODE = $save;

		return $s.'</table>';

	}

	function sp_who()

	{

		$arr = $this->conn->GetArray('sp_who');

		return sizeof($arr);

	}

	function HealthCheck($cli=false)

	{

		$this->conn->Execute('dbcc traceon(3604)');

		$html =  adodb_perf::HealthCheck($cli);

		$this->conn->Execute('dbcc traceoff(3604)');

		return $html;

	}

}