<?php
/**
 * Darwin System Class
 *
 * PHP version 5
 *
 * @category  PHP
 * @package   PSI Darwin OS class
 * @author    Michael Cramer <BigMichi1@users.sourceforge.net>
 * @copyright 2009 phpSysInfo
 * @license   http://opensource.org/licenses/gpl-2.0.php GNU General Public License
 * @version   SVN: $Id: class.Darwin.inc.php 638 2012-08-24 09:40:48Z namiltd $
 * @link      http://phpsysinfo.sourceforge.net
 */
 /**
 * Darwin sysinfo class
 * get all the required information from Darwin system
 * information may be incomplete
 *
 * @category  PHP
 * @package   PSI Darwin OS class
 * @author    Michael Cramer <BigMichi1@users.sourceforge.net>
 * @copyright 2009 phpSysInfo
 * @license   http://opensource.org/licenses/gpl-2.0.php GNU General Public License
 * @version   Release: 3.0
 * @link      http://phpsysinfo.sourceforge.net
 */
class Darwin extends BSDCommon
{
	/**
	 * define the regexp for log parser
	 */
	/* public function __construct()
	{
		parent::__construct();
		$this->error->addWarning("The Darwin version of phpSysInfo is a work in progress, some things currently don't work!");
		$this->setCPURegExp1("/CPU: (.*) \((.*)-MHz (.*)\)/");
		$this->setCPURegExp2("/(.*) ([0-9]+) ([0-9]+) ([0-9]+) ([0-9]+)/");
		$this->setSCSIRegExp1("/^(.*): <(.*)> .*SCSI.*device/");
	} */

	/**
	 * get a value from sysctl command
	 *
	 * @param string $key key of the value to get
	 *
	 * @return string
	 */
	protected function grabkey($key)
	{
		if (CommonFunctions::executeProgram('sysctl', $key, $s, PSI_DEBUG)) {
			$s = preg_replace('/'.$key.': /', '', $s);
			$s = preg_replace('/'.$key.' = /', '', $s);

			return $s;
		} else {
			return '';
		}
	}

	/**
	 * get a value from ioreg command
	 *
	 * @param string $key key of the value to get
	 *
	 * @return string
	 */
	private function _grabioreg($key)
	{
		if (CommonFunctions::executeProgram('ioreg', '-c "'.$key.'"', $s, PSI_DEBUG)) {
			/* delete newlines */
			$s = preg_replace("/\s+/", " ", $s);
			/* new newlines */
			$s = preg_replace("/[\|\t ]*\+\-o/", "\n", $s);
			/* combine duplicate whitespaces and some chars */
			$s = preg_replace("/[\|\t ]+/", " ", $s);

			$lines = preg_split("/\n/", $s, -1, PREG_SPLIT_NO_EMPTY);
			$out = "";
			foreach ($lines as $line) {
				if (preg_match('/^([^<]*) <class '.$key.',/', $line)) {
					$out .= $line."\n";
				}
			}

			return $out;
		} else {
			return '';
		}
	}

	/**
	 * UpTime
	 * time the system is running
	 *
	 * @return void
	 */
	private function _uptime()
	{
		if (CommonFunctions::executeProgram('sysctl', '-n kern.boottime', $a, PSI_DEBUG)) {
			$tmp = explode(" ", $a);
			if ($tmp[0]=="{") { /* kern.boottime= { sec = 1096732600, usec = 885425 } Sat Oct 2 10:56:40 2004 */
				$data = trim($tmp[3], ",");
				$this->sys->setUptime(time() - $data);
			} else { /* kern.boottime= 1096732600 */
				$this->sys->setUptime(time() - $a);
			}
		}
	}

	/**
	 * get CPU information
	 *
	 * @return void
	 */
	protected function cpuinfo()
	{
		$dev = new CpuDevice();
		if (CommonFunctions::executeProgram('hostinfo', '| grep "Processor type"', $buf, PSI_DEBUG)) {
			$dev->setModel(preg_replace('/Processor type: /', '', $buf));
			$buf=$this->grabkey('hw.model');
			if (!is_null($buf) && (trim($buf) != "")) {
				$this->sys->setMachine(trim($buf));
				if (CommonFunctions::rfts(APP_ROOT.'/data/ModelTranslation.txt', $buffer)) {
					$buffer = preg_split("/\n/", $buffer, -1, PREG_SPLIT_NO_EMPTY);
					foreach ($buffer as $line) {
						$ar_buf = preg_split("/:/", $line, 3);
						if (trim($buf) === trim($ar_buf[0])) {
							$dev->setModel(trim($ar_buf[2]));
							$this->sys->setMachine($this->sys->getMachine().' - '.trim($ar_buf[1]));
							break;
						}
					}
				}
			}
			$buf=$this->grabkey('machdep.cpu.brand_string');
			if (!is_null($buf) && (trim($buf) != "") &&
				 ((trim($buf) != "i486 (Intel 80486)") || ($dev->getModel() == ""))) {
				$dev->setModel(trim($buf));
			}
			$buf=$this->grabkey('machdep.cpu.features');
			if (!is_null($buf) && (trim($buf) != "")) {
				if (preg_match("/ VMX/", $buf)) {
					$dev->setVirt("vmx");
				} elseif (preg_match("/ SVM/", $buf)) {
					$dev->setVirt("svm");
				}
			}
		}
		$dev->setCpuSpeed(round($this->grabkey('hw.cpufrequency') / 1000000));
		$dev->setBusSpeed(round($this->grabkey('hw.busfrequency') / 1000000));
		$bufn=$this->grabkey('hw.cpufrequency_min');
		$bufx=$this->grabkey('hw.cpufrequency_max');
		if (!is_null($bufn) && (trim($bufn) != "") && !is_null($bufx) && (trim($bufx) != "") && ($bufn != $bufx)) {
			$dev->setCpuSpeedMin(round($bufn / 1000000));
			$dev->setCpuSpeedMax(round($bufx / 1000000));
		}
		$buf=$this->grabkey('hw.l2cachesize');
		if (!is_null($buf) && (trim($buf) != "")) {
			$dev->setCache(round($buf));
		}
		$ncpu = $this->grabkey('hw.ncpu');
		if (is_null($ncpu) || (trim($ncpu) == "") || (!($ncpu >= 1)))
			$ncpu = 1;
		for ($ncpu ; $ncpu > 0 ; $ncpu--) {
			$this->sys->setCpus($dev);
		}
	}

	/**
	 * get the pci device information out of ioreg
	 *
	 * @return void
	 */
	protected function pci()
	{
		if (!$arrResults = Parser::lspci(false)) { //no lspci port
			$s = $this->_grabioreg('IOPCIDevice');
			$lines = preg_split("/\n/", $s, -1, PREG_SPLIT_NO_EMPTY);
			foreach ($lines as $line) {
				$dev = new HWDevice();
				if (!preg_match('/"IOName" = "([^"]*)"/', $line, $ar_buf)) {
					$ar_buf = preg_split("/[\s@]+/", $line, 19);
				}
				if (preg_match('/"model" = <?"([^"]*)"/', $line, $ar_buf2)) {
					$dev->setName(trim($ar_buf[1]). ": ".trim($ar_buf2[1]));
				} else {
					$dev->setName(trim($ar_buf[1]));
				}
				$this->sys->setPciDevices($dev);
			}
		} else {
			foreach ($arrResults as $dev) {
				$this->sys->setPciDevices($dev);
			}
		}
	}

	/**
	 * get the ide device information out of ioreg
	 *
	 * @return void
	 */
	protected function ide()
	{
		$s = $this->_grabioreg('IOATABlockStorageDevice');
		$lines = preg_split("/\n/", $s, -1, PREG_SPLIT_NO_EMPTY);
		foreach ($lines as $line) {
					$dev = new HWDevice();
					if (!preg_match('/"Product Name"="([^"]*)"/', $line, $ar_buf))
					   $ar_buf = preg_split("/[\s@]+/", $line, 19);
					$dev->setName(trim($ar_buf[1]));
					$this->sys->setIdeDevices($dev);
		}

		$s = $this->_grabioreg('IOAHCIBlockStorageDevice');
		$lines = preg_split("/\n/", $s, -1, PREG_SPLIT_NO_EMPTY);
		foreach ($lines as $line) {
					$dev = new HWDevice();
					if (!preg_match('/"Product Name"="([^"]*)"/', $line, $ar_buf))
					   $ar_buf = preg_split("/[\s@]+/", $line, 19);
					$dev->setName(trim($ar_buf[1]));
					$this->sys->setIdeDevices($dev);
		}
	}

	/**
	 * get the usb device information out of ioreg
	 *
	 * @return void
	 */
	protected function usb()
	{
		$s = $this->_grabioreg('IOUSBDevice');
		$lines = preg_split("/\n/", $s, -1, PREG_SPLIT_NO_EMPTY);
		foreach ($lines as $line) {
					$dev = new HWDevice();
					if (!preg_match('/"USB Product Name" = "([^"]*)"/', $line, $ar_buf))
					   $ar_buf = preg_split("/[\s@]+/", $line, 19);
					$dev->setName(trim($ar_buf[1]));
					$this->sys->setUsbDevices($dev);
		}
	}

	/**
	 * get the scsi device information out of ioreg
	 *
	 * @return void
	 */
	protected function scsi()
	{
		$s = $this->_grabioreg('IOBlockStorageServices');
		$lines = preg_split("/\n/", $s, -1, PREG_SPLIT_NO_EMPTY);
		foreach ($lines as $line) {
					$dev = new HWDevice();
					if (!preg_match('/"Product Name"="([^"]*)"/', $line, $ar_buf))
					   $ar_buf = preg_split("/[\s@]+/", $line, 19);
					$dev->setName(trim($ar_buf[1]));
					$this->sys->setScsiDevices($dev);
		}
	}

	/**
	 * get memory and swap information
	 *
	 * @return void
	 */
	protected function memory()
	{
		$s = $this->grabkey('hw.memsize');
		if (CommonFunctions::executeProgram('vm_stat', '', $pstat, PSI_DEBUG)) {
			// calculate free memory from page sizes (each page = 4096)
			if (preg_match('/^Pages free:\s+(\S+)/m', $pstat, $free_buf)) {
				if (preg_match('/^Anonymous pages:\s+(\S+)/m', $pstat, $anon_buf)
				   && preg_match('/^Pages wired down:\s+(\S+)/m', $pstat, $wire_buf)
				   && preg_match('/^File-backed pages:\s+(\S+)/m', $pstat, $fileb_buf)) {
						// OS X 10.9 or never
						$this->sys->setMemFree($free_buf[1] * 4 * 1024);
						$this->sys->setMemApplication(($anon_buf[1]+$wire_buf[1]) * 4 * 1024);
						$this->sys->setMemCache($fileb_buf[1] * 4 * 1024);
					if (preg_match('/^Pages occupied by compressor:\s+(\S+)/m', $pstat, $compr_buf)) {
						$this->sys->setMemBuffer($compr_buf[1] * 4 * 1024);
					}
				} else {
					if (preg_match('/^Pages speculative:\s+(\S+)/m', $pstat, $spec_buf)) {
						$this->sys->setMemFree(($free_buf[1]+$spec_buf[1]) * 4 * 1024);
					} else {
						$this->sys->setMemFree($free_buf[1] * 4 * 1024);
					}
					$appMemory = 0;
					if (preg_match('/^Pages wired down:\s+(\S+)/m', $pstat, $wire_buf)) {
						$appMemory += $wire_buf[1] * 4 * 1024;
					}
					if (preg_match('/^Pages active:\s+(\S+)/m', $pstat, $active_buf)) {
						$appMemory += $active_buf[1] * 4 * 1024;
					}
					$this->sys->setMemApplication($appMemory);

					if (preg_match('/^Pages inactive:\s+(\S+)/m', $pstat, $inactive_buf)) {
						$this->sys->setMemCache($inactive_buf[1] * 4 * 1024);
					}
				}
			} else {
				$lines = preg_split("/\n/", $pstat, -1, PREG_SPLIT_NO_EMPTY);
				$ar_buf = preg_split("/\s+/", $lines[1], 19);
				$this->sys->setMemFree($ar_buf[2] * 4 * 1024);
			}

			$this->sys->setMemTotal($s);
			$this->sys->setMemUsed($this->sys->getMemTotal() - $this->sys->getMemFree());

			if (CommonFunctions::executeProgram('sysctl', 'vm.swapusage | colrm 1 22', $swapBuff, PSI_DEBUG)) {
				$swap1 = preg_split('/M/', $swapBuff);
				$swap2 = preg_split('/=/', $swap1[1]);
				$swap3 = preg_split('/=/', $swap1[2]);
				$dev = new DiskDevice();
				$dev->setName('SWAP');
				$dev->setMountPoint('SWAP');
				$dev->setFsType('swap');
				$dev->setTotal($swap1[0] * 1024 * 1024);
				$dev->setUsed($swap2[1] * 1024 * 1024);
				$dev->setFree($swap3[1] * 1024 * 1024);
				$this->sys->setSwapDevices($dev);
			}
		}
	}

	/**
	 * get the thunderbolt device information out of ioreg
	 *
	 * @return void
	 */
	protected function _tb()
	{
		$s = $this->_grabioreg('IOThunderboltPort');
		$lines = preg_split("/\n/", $s, -1, PREG_SPLIT_NO_EMPTY);
		foreach ($lines as $line) {
					$dev = new HWDevice();
					if (!preg_match('/"Description" = "([^"]*)"/', $line, $ar_buf))
					   $ar_buf = preg_split("/[\s@]+/", $line, 19);
					$dev->setName(trim($ar_buf[1]));
					$this->sys->setTbDevices($dev);
		}
	}

	/**
	 * get network information
	 *
	 * @return void
	 */
	private function _network()
	{
		if (CommonFunctions::executeProgram('netstat', '-nbdi | cut -c1-24,42- | grep Link', $netstat, PSI_DEBUG)) {
			$lines = preg_split("/\n/", $netstat, -1, PREG_SPLIT_NO_EMPTY);
			foreach ($lines as $line) {
				$ar_buf = preg_split("/\s+/", $line, 10);
				if (!empty($ar_buf[0])) {
					$dev = new NetDevice();
					$dev->setName($ar_buf[0]);
					$dev->setTxBytes($ar_buf[8]);
					$dev->setRxBytes($ar_buf[5]);
					$dev->setErrors($ar_buf[4] + $ar_buf[7]);
					if (isset($ar_buf[10])) {
						$dev->setDrops($ar_buf[10]);
					}
					if (defined('PSI_SHOW_NETWORK_INFOS') && (PSI_SHOW_NETWORK_INFOS) && (CommonFunctions::executeProgram('ifconfig', $ar_buf[0].' 2>/dev/null', $bufr2, PSI_DEBUG))) {
						$bufe2 = preg_split("/\n/", $bufr2, -1, PREG_SPLIT_NO_EMPTY);
						foreach ($bufe2 as $buf2) {
							if (preg_match('/^\s+ether\s+(\S+)/i', $buf2, $ar_buf2))
								$dev->setInfo(($dev->getInfo()?$dev->getInfo().';':'').preg_replace('/:/', '-', strtoupper($ar_buf2[1])));
							elseif (preg_match('/^\s+inet\s+(\S+)\s+netmask/i', $buf2, $ar_buf2))
								$dev->setInfo(($dev->getInfo()?$dev->getInfo().';':'').$ar_buf2[1]);
							elseif ((preg_match('/^\s+inet6\s+([^\s%]+)\s+prefixlen/i', $buf2, $ar_buf2)
								  || preg_match('/^\s+inet6\s+([^\s%]+)%\S+\s+prefixlen/i', $buf2, $ar_buf2))
								  && ($ar_buf2[1]!="::") && !preg_match('/^fe80::/i', $ar_buf2[1]))
								$dev->setInfo(($dev->getInfo()?$dev->getInfo().';':'').strtolower($ar_buf2[1]));
							elseif (preg_match('/^\s+media:\s+/i', $buf2) && preg_match('/[\(\s](\d+)(G*)base/i', $buf2, $ar_buf2)) {
								if (isset($ar_buf2[2]) && strtoupper($ar_buf2[2])=="G") {
									$unit = "G";
								} else {
									$unit = "M";
								}
								if (preg_match('/[<\s]([^\s<]+)-duplex/i', $buf2, $ar_buf3))
									$dev->setInfo(($dev->getInfo()?$dev->getInfo().';':'').$ar_buf2[1].$unit.'b/s '.strtolower($ar_buf3[1]));
								else $dev->setInfo(($dev->getInfo()?$dev->getInfo().';':'').$ar_buf2[1].$unit.'b/s');
							}
						}
					}
					$this->sys->setNetDevices($dev);
				}
			}
		}
	}

	/**
	 * get icon name
	 *
	 * @return void
	 */
	protected function distro()
	{
		$this->sys->setDistributionIcon('Darwin.png');
		if (!CommonFunctions::executeProgram('system_profiler', 'SPSoftwareDataType', $buffer, PSI_DEBUG)) {
			parent::distro();
		} else {
			$arrBuff = preg_split("/\n/", $buffer, -1, PREG_SPLIT_NO_EMPTY);
			foreach ($arrBuff as $line) {
				$arrLine = preg_split("/:/", $line, -1, PREG_SPLIT_NO_EMPTY);
				if (trim($arrLine[0]) === "System Version") {
					$distro = trim($arrLine[1]);

					if (preg_match('/(^Mac OS)|(^OS X)/', $distro)) {
						$this->sys->setDistributionIcon('Apple.png');
						if (preg_match('/((^Mac OS X Server)|(^Mac OS X)|(^OS X Server)|(^OS X)) (\d+\.\d+)/', $distro, $ver)
							&& ($list = @parse_ini_file(APP_ROOT."/data/osnames.ini", true))
							&& isset($list['OS X'][$ver[6]])) {
							$distro.=' '.$list['OS X'][$ver[6]];
						}
					}

					$this->sys->setDistribution($distro);

					return;
				}
			}
		}
	}

	/**
	 * Processes
	 *
	 * @return void
	 */
	protected function _processes()
	{
		if (CommonFunctions::executeProgram('ps', 'aux', $bufr, PSI_DEBUG)) {
			$lines = preg_split("/\n/", $bufr, -1, PREG_SPLIT_NO_EMPTY);
			$processes['*'] = 0;
			foreach ($lines as $line) {
				if (preg_match("/^\S+\s+\d+\s+\S+\s+\S+\s+\d+\s+\d+\s+\S+\s+(\w)/", $line, $ar_buf)) {
					$processes['*']++;
					$state = $ar_buf[1];
					if ($state == 'U') $state = 'D'; //linux format
					elseif ($state == 'I') $state = 'S';
					elseif ($state == 'D') $state = 'd'; //invalid
					if (isset($processes[$state])) {
						$processes[$state]++;
					} else {
						$processes[$state] = 1;
					}
				}
			}
			if ($processes['*'] > 0) {
				$this->sys->setProcesses($processes);
			}
		}
	}

	/**
	 * get the information
	 *
	 * @see PSI_Interface_OS::build()
	 *
	 * @return Void
	 */
	public function build()
	{
		parent::build();
		$this->_uptime();
		$this->_network();
		$this->_processes();
		$this->_tb();
	}
}