<?php
// (c) Copyright 2002-2016 by authors of the Tiki Wiki CMS Groupware Project
// 
// All Rights Reserved. See copyright.txt for details and a complete list of authors.
// Licensed under the GNU LESSER GENERAL PUBLIC LICENSE. See license.txt for details.
// $Id: wikiplugin_gdgraph.php 57962 2016-03-17 20:02:39Z jonnybradley $

// plugin that uses lib/graph-engine/ to produce simple graphs on screen
// Usage
// {GDGRAPH(various parameters)}
//  x,y data
// {GDGRAPH}


function wikiplugin_gdgraph_info()
{
	return array(
		'name' => tra('GDGraph'),
		'documentation' => 'PluginGDGraph',
		'description' => tra('Create a simple graph from supplied data'),
		'tags' => array('basic'),
		'prefs' => array('wikiplugin_gdgraph'),
		'body' => tra('Comma-separated data (x,y) to be graphed. A useful option is to generate this data from a LIST
			or CUSTOMSEARCH using a .tpl template or trackerlist plugin placed in the body'),
		'iconname' => 'chart',
		'format' => 'html',
		'introduced' => tra('14, backported to 12.4'),
		'params' => array(
			'type' => array(
				'required' => true,
				'name' => tra('Graph Type'),
				'description' => tra('Defines what ype of graph or chart is to be generated'),
				'since' => '14.0',
				'filter' => 'word',
				'options' => array(
					array('text' => tra('Vertical Bar'), 'value' => 'barvert'),
					array('text' => tra('Horizontal Bar'), 'value' => 'barhoriz'),
/*					array('text' => tra('Multiline'), 'value' => 'multiline'),
					array('text' => tra('Pie'), 'value' => 'pie'),*/
				),
			),
			'title' => array(
				'required' => false,
				'name' => tra('Graph Title'),
				'description' => tra('Displayed above the graph'),
				'since' => '14.0',
				'filter' => 'text',
				'default' => '',
			),
			'alttag' => array(
				'required' => false,
				'name' => tra('Alt Tag'),
				'description' => tra('Text for image alt tag'),
				'since' => '14.0',
				'filter' => 'text',
				'default' => 'GDgraph graph image',
			),			
/*			'bg' => array(
				'required' => false,
				'name' => tra('Background color'),
				'description' => tra('As defined by CSS, name, or color hex code - not used yet'),
				'filter' => 'text',
				'default' => '',
			),*/
			'width' => array(
				'required' => false,
				'name' => tra('Graph Image Width'),
				'description' => tr('Overall width in pixels. Default value is %0.', '<code>300</code>'),
				'since' => '14.0',
				'filter' => 'digits',
				'default' => 300,
			),
			'height' => array(
				'required' => false,
				'name' => tra('Graph Image Height'),
				'description' => tr('Sets the total height in pixels of the image generated to display the entire graph
					- if not set and %0 is %1 then the image height will be calculated from the number of x,y pairs,
					which is useful if the number of x,y pairs is not known eg they are generated using (say) a LIST,
					CUSTOMSEARCH or trackerlist plugin. The auto height option only works properly if the title is not
					shown.', '<code>type</code>', '<code>barhoriz</code>'
				),
				'since' => '14.0',
				'filter' => 'digits',
				'default' => 0,
			),
/*			'class' => array(
				'required' => false,
				'name' => tra('CSS Class'),
				'description' => tra('Apply custom CSS class to the surrounding div - not used yet'),
			),
			'id' => array(
				'required' => false,
				'name' => tra('ID'),
				'description' => tra('Apply an id to the surrounding div - not used yet'),
			),
			'float' => array(
				'required' => false,
				'name' => tra('Float Position'),
				'description' => tra('Set the alignment for the div surrounding the graph. For elements with a width of
					less than 100%, other elements will wrap around it unless the clear parameter is appropriately set
					- not used yet'),
			),*/
		),
	);
}

function wikiplugin_gdgraph($data, $params)
{
	// check required param
	if (!isset($params['type']) || ($params['type'] !== 'barvert' && $params['type'] !== 'barhoriz')) {
		return ("<span class='error'>missing or wrong graph type parameter - ony barvert and barhoriz available at present</span>");
	}

	// set default params
	$plugininfo = wikiplugin_gdgraph_info();
	$default = array();
	foreach ($plugininfo['params'] as $key => $param) {
		$default["$key"] = $param['default'];
	}
	$params = array_merge($default, $params);

	// parse the body content to allow data to be generated from other plugins and strip tags
	$data = TikiLib::lib('parser')->parse_data($data, array('noparseplugins' => false, 'suppress_icons' => true));
	// strip tags
	$data = strip_tags($data);

	// split into xy array using a comma as the split parameter with x-data as even number indices and y-data odd indices
	$data = explode("\n", $data);
	// remove empties
	$data = array_filter($data);

	$xy = array();
	foreach ($data as $line) {
		$pair = explode(',', $line);
		if (count($pair) !== 2) {
			return "<span class='error'>gdgraph plugin: ERROR: xy data count mismatch - odd number of values</span>";
		}
		$xy[] = $pair;
	}

	if (empty($xy)) {
		return "<span class='error'>gdgraph plugin: ERROR: there must be at least one XY data pair</span>";
	}

	// Set height dynamically for barhoriz if not set as a parameter or default to 300
	if (empty($params['height'])) {
		if ($params['type'] === 'barhoriz') {
			$params['height'] = count($xy) * 25 + 18; // tested over a range of 3 to 50 x,y pairs but only works OK if title is not displayed
		} else {
			$params['height'] = 300;		// better than nothing?
		}
	}

// -------------------------------------------------------
// Construct separate XY data strings from the array data to suit the graph-engine libraries - and check that at least one y value is non-zero.
// The XY data strings should each contain the same number
// of data elements.
	$ynonzero = false;
	$xydata = array('xdata' => array(), 'ydata' => array());
	for ($i = 0; $i < count($xy); $i++) {
		$xydata['xdata'][] = $xy[$i][0];
		$xydata['ydata'][] = floatval($xy[$i][1]);
		if (floatval($xy[$i][1]) !== 0.0 ) {
			$ynonzero = true;
		}
	}
// if all y-values are zero don't bother doing the graph
	if (!$ynonzero) {
		return "<span class='error'>All ".count($xy)." y-values are zero: so no graph drawn</span>";
	}
	
	$imgparams = array(
		'type' => $params['type'],
		'title' => $params['title'],
		'height' => $params['height'],
		'width' => $params['width'],
		'usexydata' => json_encode($xydata),
	);

	$ret = '<div class="wp-gdgraph">'.
		'<img src="tiki-gdgraph.php?'. http_build_query($imgparams, '', '&amp;') . '" alt="'.$params['alttag'].'">'.
		'</div>';

	return $ret;

}
