<?php
/**
 * This file is part of GameQ.
 *
 * GameQ is free software; you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * GameQ is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

/**
 * Ventrilo Protocol Class
 *
 * This class provides some functionality for getting status information for ventrilo
 * servers.  Note that a password is not required for versions >= 3.0.3
 *
 * This code ported from GameQ v1.  Credit to original author(s) as I just updated it to
 * work within this new system.
 *
 * @author Austin Bischoff <austin@codebeard.com>
 */
class GameQ_Protocols_Ventrilo extends GameQ_Protocols
{
	/**
	 * Normalization for this protocol class
	 *
	 * @var array
	 */
	protected $normalize = array(
		// General
		'general' => array(
			'dedicated' => array('dedicated'),
			'hostname' => array('name'),
			'password' => array('auth'),
			'numplayers' => array('clientcount'),
			'maxplayers' => array('maxclients'),
	        'players' => array('players'),
			'teams' => array('teams'),
		),

		// Player
		'player' => array(
	        //'score' => array('score'),
		),

		// Team
		'team' => array(
			//'score' => array('tickets'),
		),
	);

	/**
	 * Array of packets we want to look up.
	 * Each key should correspond to a defined method in this or a parent class
	 *
	 * @var array
	 */
	protected $packets = array(
		self::PACKET_STATUS => "V\xc8\xf4\xf9`\xa2\x1e\xa5M\xfb\x03\xccQN\xa1\x10\x95\xaf\xb2g\x17g\x812\xfbW\xfd\x8e\xd2\x22r\x034z\xbb\x98",
	);

	/**
	 * Methods to be run when processing the response(s)
	 *
	 * @var array
	 */
	protected $process_methods = array(
		"process_status",
	);

	/**
	 * Default port for this server type
	 *
	 * @var int
	 */
	protected $port = 3784; // Default port, used if not set when instanced

	/**
	 * Set to run in linear mode
	 *
	 * @var string
	 */
	protected $packet_mode = self::PACKET_MODE_LINEAR;

	/**
	 * The protocol being used
	 *
	 * @var string
	 */
	protected $protocol = 'ventrilo';

	/**
	 * String name of this protocol class
	 *
	 * @var string
	 */
	protected $name = 'ventrilo';

	/**
	 * Longer string name of this protocol class
	 *
	 * @var string
	 */
	protected $name_long = "Ventrilo";

	protected $join_link = "ventrilo://%s:%d/";

	/**
	 * Encryption table for the header
	 *
	 * @var array
	 */
	protected $head_encrypt_table = array(
		0x80, 0xe5, 0x0e, 0x38, 0xba, 0x63, 0x4c, 0x99, 0x88, 0x63, 0x4c, 0xd6, 0x54, 0xb8, 0x65, 0x7e,
		0xbf, 0x8a, 0xf0, 0x17, 0x8a, 0xaa, 0x4d, 0x0f, 0xb7, 0x23, 0x27, 0xf6, 0xeb, 0x12, 0xf8, 0xea,
		0x17, 0xb7, 0xcf, 0x52, 0x57, 0xcb, 0x51, 0xcf, 0x1b, 0x14, 0xfd, 0x6f, 0x84, 0x38, 0xb5, 0x24,
		0x11, 0xcf, 0x7a, 0x75, 0x7a, 0xbb, 0x78, 0x74, 0xdc, 0xbc, 0x42, 0xf0, 0x17, 0x3f, 0x5e, 0xeb,
		0x74, 0x77, 0x04, 0x4e, 0x8c, 0xaf, 0x23, 0xdc, 0x65, 0xdf, 0xa5, 0x65, 0xdd, 0x7d, 0xf4, 0x3c,
		0x4c, 0x95, 0xbd, 0xeb, 0x65, 0x1c, 0xf4, 0x24, 0x5d, 0x82, 0x18, 0xfb, 0x50, 0x86, 0xb8, 0x53,
		0xe0, 0x4e, 0x36, 0x96, 0x1f, 0xb7, 0xcb, 0xaa, 0xaf, 0xea, 0xcb, 0x20, 0x27, 0x30, 0x2a, 0xae,
		0xb9, 0x07, 0x40, 0xdf, 0x12, 0x75, 0xc9, 0x09, 0x82, 0x9c, 0x30, 0x80, 0x5d, 0x8f, 0x0d, 0x09,
		0xa1, 0x64, 0xec, 0x91, 0xd8, 0x8a, 0x50, 0x1f, 0x40, 0x5d, 0xf7, 0x08, 0x2a, 0xf8, 0x60, 0x62,
		0xa0, 0x4a, 0x8b, 0xba, 0x4a, 0x6d, 0x00, 0x0a, 0x93, 0x32, 0x12, 0xe5, 0x07, 0x01, 0x65, 0xf5,
		0xff, 0xe0, 0xae, 0xa7, 0x81, 0xd1, 0xba, 0x25, 0x62, 0x61, 0xb2, 0x85, 0xad, 0x7e, 0x9d, 0x3f,
		0x49, 0x89, 0x26, 0xe5, 0xd5, 0xac, 0x9f, 0x0e, 0xd7, 0x6e, 0x47, 0x94, 0x16, 0x84, 0xc8, 0xff,
		0x44, 0xea, 0x04, 0x40, 0xe0, 0x33, 0x11, 0xa3, 0x5b, 0x1e, 0x82, 0xff, 0x7a, 0x69, 0xe9, 0x2f,
		0xfb, 0xea, 0x9a, 0xc6, 0x7b, 0xdb, 0xb1, 0xff, 0x97, 0x76, 0x56, 0xf3, 0x52, 0xc2, 0x3f, 0x0f,
		0xb6, 0xac, 0x77, 0xc4, 0xbf, 0x59, 0x5e, 0x80, 0x74, 0xbb, 0xf2, 0xde, 0x57, 0x62, 0x4c, 0x1a,
		0xff, 0x95, 0x6d, 0xc7, 0x04, 0xa2, 0x3b, 0xc4, 0x1b, 0x72, 0xc7, 0x6c, 0x82, 0x60, 0xd1, 0x0d,
	);

	/**
	 * Encryption table for the data
	 *
	 * @var array
	 */
	protected $data_encrypt_table = array(
		0x82, 0x8b, 0x7f, 0x68, 0x90, 0xe0, 0x44, 0x09, 0x19, 0x3b, 0x8e, 0x5f, 0xc2, 0x82, 0x38, 0x23,
		0x6d, 0xdb, 0x62, 0x49, 0x52, 0x6e, 0x21, 0xdf, 0x51, 0x6c, 0x76, 0x37, 0x86, 0x50, 0x7d, 0x48,
		0x1f, 0x65, 0xe7, 0x52, 0x6a, 0x88, 0xaa, 0xc1, 0x32, 0x2f, 0xf7, 0x54, 0x4c, 0xaa, 0x6d, 0x7e,
		0x6d, 0xa9, 0x8c, 0x0d, 0x3f, 0xff, 0x6c, 0x09, 0xb3, 0xa5, 0xaf, 0xdf, 0x98, 0x02, 0xb4, 0xbe,
		0x6d, 0x69, 0x0d, 0x42, 0x73, 0xe4, 0x34, 0x50, 0x07, 0x30, 0x79, 0x41, 0x2f, 0x08, 0x3f, 0x42,
		0x73, 0xa7, 0x68, 0xfa, 0xee, 0x88, 0x0e, 0x6e, 0xa4, 0x70, 0x74, 0x22, 0x16, 0xae, 0x3c, 0x81,
		0x14, 0xa1, 0xda, 0x7f, 0xd3, 0x7c, 0x48, 0x7d, 0x3f, 0x46, 0xfb, 0x6d, 0x92, 0x25, 0x17, 0x36,
		0x26, 0xdb, 0xdf, 0x5a, 0x87, 0x91, 0x6f, 0xd6, 0xcd, 0xd4, 0xad, 0x4a, 0x29, 0xdd, 0x7d, 0x59,
		0xbd, 0x15, 0x34, 0x53, 0xb1, 0xd8, 0x50, 0x11, 0x83, 0x79, 0x66, 0x21, 0x9e, 0x87, 0x5b, 0x24,
		0x2f, 0x4f, 0xd7, 0x73, 0x34, 0xa2, 0xf7, 0x09, 0xd5, 0xd9, 0x42, 0x9d, 0xf8, 0x15, 0xdf, 0x0e,
		0x10, 0xcc, 0x05, 0x04, 0x35, 0x81, 0xb2, 0xd5, 0x7a, 0xd2, 0xa0, 0xa5, 0x7b, 0xb8, 0x75, 0xd2,
		0x35, 0x0b, 0x39, 0x8f, 0x1b, 0x44, 0x0e, 0xce, 0x66, 0x87, 0x1b, 0x64, 0xac, 0xe1, 0xca, 0x67,
		0xb4, 0xce, 0x33, 0xdb, 0x89, 0xfe, 0xd8, 0x8e, 0xcd, 0x58, 0x92, 0x41, 0x50, 0x40, 0xcb, 0x08,
		0xe1, 0x15, 0xee, 0xf4, 0x64, 0xfe, 0x1c, 0xee, 0x25, 0xe7, 0x21, 0xe6, 0x6c, 0xc6, 0xa6, 0x2e,
		0x52, 0x23, 0xa7, 0x20, 0xd2, 0xd7, 0x28, 0x07, 0x23, 0x14, 0x24, 0x3d, 0x45, 0xa5, 0xc7, 0x90,
		0xdb, 0x77, 0xdd, 0xea, 0x38, 0x59, 0x89, 0x32, 0xbc, 0x00, 0x3a, 0x6d, 0x61, 0x4e, 0xdb, 0x29,
	);

    /*
     * Internal methods
     */

	/**
	 * Pre-process the server status data that was returned.
	 *
	 * @param array $packets
	 * @throws GameQ_ProtocolsException
	 */
	public function preProcess_status($packets=array())
	{
		$packets_return = array();

		foreach ($packets AS $packet)
		{
			# Header :
			$header = substr ($packet, 0, 20);
			$header_items = array ();

			$key = array_shift (unpack ("n1", $header));
			$chars = unpack ("C*", substr ($header, 2));

			$a1 = $key & 0xFF;
			$a2 = $key >> 8;

			if ($a1 == 0)
			{
				throw new GameQ_ProtocolsException(__METHOD__.": Header key is invalid");
			}

			$table = $this->head_encrypt_table;


			$key = 0;
			for( $i = 1; $i <= count( $chars ); $i++ )
			{
				$chars[$i] -=  ( $table[$a2] + (( $i - 1 ) % 5 )) & 0xFF;
				$a2 = ($a2 + $a1) & 0xFF;
				if ( ( $i % 2 ) == 0 )
				{
					$short_array = unpack( "n1", pack( "C2", $chars[$i - 1], $chars[$i] ));
					$header_items[$key] = $short_array[1];
					++$key;
				}
			}

			$header_items = array_combine(array(
				'zero',
				'cmd',
				'id',
				'totlen',
				'len',
				'totpck',
				'pck',
				'datakey',
				'crc'
				), $header_items);

			// Check to make sure the number of packets match
			if ($header_items['totpck'] != count($packets))
			{
				throw new GameQ_ProtocolsException(__METHOD__.": Too less packets recieved");
			}

			# Data :
			$table = $this->data_encrypt_table;

			$a1 = $header_items['datakey'] & 0xFF;
			$a2 = $header_items['datakey'] >> 8;

			if ( $a1 == 0 )
			{
				throw new GameQ_ProtocolsException(__METHOD__.": Data key is invalid");
			}

			$chars = unpack( "C*", substr ($packet, 20) );
			$data = "";
			for( $i = 1; $i <= count( $chars ); $i++ )
			{
				$chars[$i] -= ($table[$a2] + (( $i - 1 ) % 72 )) & 0xFF;
				$a2 = ($a2 + $a1) & 0xFF;
				$data .= chr($chars[$i]);
			}

			//@todo: Check CRC ???

			$packets_return[$header_items['pck']] = $data;
		}

		return implode('', $packets_return);
	}

    /**
     * Process the server status information
     *
     * @throws GameQ_ProtocolsException
     */
	protected function process_status()
	{
		// Make sure we have a valid response
		if(!$this->hasValidResponse(self::PACKET_STATUS))
		{
			return array();
		}

		// Let's preprocess the status
		$data = $this->preProcess_status($this->packets_response[self::PACKET_STATUS]);

		// Set the result to a new result instance
		$result = new GameQ_Result();

		// Explode the data into lines
		$lines = explode("\n", $data);

		// Always dedicated
		$result->add('dedicated', TRUE);

		// Loop the lines
		foreach($lines AS $line)
		{
			// Trim all the outlying space
			$line = trim($line);

			// We dont have anything in this line
			if(strlen($line) == 0)
			{
				continue;
			}

			/**
			 * Everything is in this format: ITEM: VALUE
			 *
			 * Example:
			 * ...
			 * MAXCLIENTS: 175
			 * VOICECODEC: 3,Speex
			 * VOICEFORMAT: 31,32 KHz%2C 16 bit%2C 9 Qlty
			 * UPTIME: 9167971
			 * PLATFORM: Linux-i386
			 * VERSION: 3.0.6
			 * ...
			 */

			// Check to see if we have a colon, every line should
			if(($colon_pos = strpos($line, ":")) !== FALSE && $colon_pos > 0)
			{
				// Split the line into key/value pairs
				list($key, $value) = explode(':', $line, 2); // Only return 2 items in the array incase of colon in $value

				// Lower the font of the key
				$key = strtolower($key);

				// Trim the value of extra space
				$value = trim($value);

				// Switch and offload items as needed
				switch($key)
				{
					case 'client':
						$this->client($value, $result);
						break;

					case 'channel':
						$this->channel($value, $result);
						break;

					// Ignore these
					case 'channelfields':
					case 'clientfields':
						break;

					// By default we just add they key as an item
					default:
						$result->add($key, $this->convertSpecialChars($value));
						break;
				}
			}
		}

		unset($key, $value, $line, $lines, $data);

        return $result->fetch();
	}

	/**
	 * Convert the special characters within a value
	 *
	 * @param string $data
	 * @return mixed
	 */
	protected function convertSpecialChars($data)
	{
		return preg_replace_callback(
			'|%([0-9A-F]{2})|',
			create_function(
				'$matches',
				'return chr (hexdec ($matches[0]));'
			),
			$data);
	}

	/**
	 * Break up the channel items into usable parts
	 *
	 * @param string $data
	 * @param GameQ_Result $result
	 */
	protected function channel($data, GameQ_Result &$result)
	{
		$items = explode (",", $data);
		foreach ($items as $item)
		{
			$temp = explode("=", $item);
			$key = strtolower($temp[0]);
			$value = $temp[1];
			$result->addTeam($key, $this->convertSpecialChars($value));
		}
	}

	/**
	 * Break up the clients into usable parts
	 *
	 * @param string $data
	 * @param GameQ_Result $result
	 */
	protected function client($data, GameQ_Result &$result)
	{
		$items = explode(",", $data);

		foreach ($items as $item)
		{
			$temp = explode("=", $item);
			$key = strtolower($temp[0]);
			$value = $temp[1];
			$result->addPlayer($key, $this->convertSpecialChars($value));
		}
	}
}