<?php
/* $Id$ */
echo "Mammut WebService helper 0.5\n\n";

ini_set('display_errors ', 'stdout');
error_reporting(E_ALL);

if ($argc < 2) {
	help();
	die();
}

$ops = getopt('cd::n::o::w::');

if (array_key_exists('c',$ops)) {
	// o = output
	// w = wsdl
	// d = target dir
	// n = target namespace
	echo "Generating client '{$ops['o']}' for\n{$ops['w']}\n";
	$ns = false;
	if (array_key_exists('n', $ops)) {
		$ns = str_replace('.','\\',$ops['n']);
		echo "namespace:\t{$ns}\n";
	}
	$dir = '';
	if (array_key_exists('d', $ops)) {
		$dir = $ops['d'].'/';
		if (!file_exists($dir))
			mkdir($dir);
		echo "directory:\t{$dir}\n";
	}
	echo "\n";
	
	$php = "<?php /* \$Id\$ */\n";
	if ($ns)
		$php .= "namespace {$ns};\n\n";
	$php .= "(defined('MAMMUT') && (basename(__FILE__) != basename(\$_SERVER['PHP_SELF']))) or die('ACCESS DENIED');\n";
	$php .= "\n";
	$php .= "class {$ops['o']} {\n";
	$php .= "	protected \$address;\n";
	$php .= "	protected \$client;\n";
	$php .= "\n";
	$php .= "	public function __construct() {\n";
	$php .= "	}\n";
	$php .= "\n";
	$php .= "	public function __init(\$address, \$param = array()) {\n";
	$php .= "		\$this->address = \$address;\n";
	$php .= "		\$this->client = new \\SoapClient(\$address, \$param);\n";
	$php .= "	}\n";

	$client = new SoapClient($ops['w']);
			
// 	var_dump($client->__getTypes());
			
	foreach ($client->__getTypes() as $type) {
		$parts = explode(' ',$type,3);
		echo "Generating value type {$parts[1]}\n";
		switch ($parts[0]) {
			case 'struct':
				preg_match('#\\{(.*)\\}#mis', $parts[2], $match);
				$elements = explode(';', $match[1]);
				
				$php2 = "<?php /* \$Id\$ */\n";
				if ($ns)
					$php2 .= "namespace {$ns};\n\n";
				$php2 .= "(defined('MAMMUT') && (basename(__FILE__) != basename(\$_SERVER['PHP_SELF']))) or die('ACCESS DENIED');\n";
				$php2 .= "\nclass {$parts[1]} {\n";
				foreach ($elements as $e) {
					if (trim($e) == '')
						continue;
					$e2 = explode(' ',trim($e));
					$php2 .= "	public \${$e2[1]};\n";
				}
				$php2 .= "}\n";
				
				file_put_contents($dir.'cls.'.strtolower($parts[1]).'.php',$php2);
				break;
		}
	}
			
// 	var_dump($client->__getFunctions());
		
	foreach ($client->__getFunctions() as $function) {
		preg_match('#([a-zA-Z0-9]+) ([a-zA-Z0-9]+)\\((.*)\\)#', $function, $match);
		echo "Generating method {$match[2]}\n";
		$params = isset($match[3]) ? $match[3] : '';
		$params = explode(',', $params);
		$php .= "\n	/**\n";
		$php .= "	 * @return {$match[1]}\n";
		$php .= "	 */\n";
		$php .= "	public function {$match[2]}({$match[3]}) {\n";
		$php .= "		\$_param = [\n";
		foreach ($params as $p) {
			preg_match('#([a-zA-Z0-9]+)\s+\\$([a-zA-Z0-9]+)#', $p, $match2);
			$php .= "			'{$match2[2]}' => is_object(\$$match2[2]) ? (array) \$$match2[2] : \$$match2[2],\n";
		}
		$php .= "		];\n";
// 				$php .= "		return \$_result;\n";
// 				$php .= "		return \$_result;\n";
		$php .= "		\$_result = \$this->client->__soapCall('{$match[2]}', \$_param);\n";
		$php .= "		if (is_object(\$_result)) {\n";
		$php .= "			\$_result2 = new {$match[1]}();\n";
		$php .= "			foreach (\$_result as  \$_key => \$val)\n";
		$php .= "				\$_result2->\$_key = \$_result->\$_key;\n";
		$php .= "			\$_result = \$_result2;\n";
		$php .= "		}\n";
		$php .= "		return \$_result;\n";
		$php .= "	}\n";
	}
	
	$php .= "}\n";
	
	file_put_contents($dir.'cls.'.strtolower($ops['o']).'.php',$php);
	
	echo "Generated\n";
}
else
	help();

function help() {
	global $argv;
	
	echo "Usage:\n";
	echo basename($argv[0])."\t -c -o=[target] -w=[wsdl] {-d=[targetDir]}\tgenerates a client from a wsdl adress\n";
}