<?php
#
# Copyright (C) 2008 Red Hat, Inc.
# Author: Andreas Thienemann <athienem@redhat.com>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU Library General Public License as published by
# the Free Software Foundation; version 2 only
#
# This program 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 Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# Copyright 2004, 2005 Red Hat, Inc.
#
# AUTHOR: Andreas Thienemann <athienem@redhat.com>
#

require_once('phplot-5.0.5/phplot.php');

// Get the data from the table, format it and write it out to a file
function chart_prepare($flowsrc, $starttime, $endtime) {
	global $date_fmt_str;
	global $dbh;


	// Define the plot properties
	$style = 'Top Destination';
	$chart_title = $style.' '.$flowsrc.' - '.strftime($date_fmt_str, $starttime).' to '.strftime($date_fmt_str, $endtime);
	$ytitle = 'Bytes';
	$output = tempnam('tmp/', 'plot');
	$data_colors = array('SkyBlue', 'green', 'orange', 'blue', 'purple', 'red', 'violet', 'azure1', 'yellow', 'DarkGreen');


	// Grab the data from the database
	// get top-talkers for the timespan: top 9 hosts plus rest-traffic
	$q = $dbh->prepare('SELECT IPDst, SUM(Bytes) AS TrafficSum
			FROM Flows
			WHERE TimeStop BETWEEN ? AND ?
			AND FlowSrc = ?
			GROUP BY IPDst
			ORDER BY TrafficSum DESC
			LIMIT 0, 9');
	$q->bindParam(1, $starttime, PDO::PARAM_INT);
	$q->bindParam(2, $endtime, PDO::PARAM_INT);
	$q->bindParam(3, sprintf('%u', ip2long($flowsrc)), PDO::PARAM_INT);
	$q->execute();

	// Fill the legend build the WHERE limit
	$legend = $q->fetchAll(PDO::FETCH_COLUMN, 0);
	$limit = '';
	for ($i = 0; $i < count($legend); $i++) {
		$limit .= @$legend[$i].', ';
		if (array_key_exists($i, $legend)) {
			$legend[$i] = long2ip($legend[$i]);
		} else {
			$legend[$i] = '';
		}
	}
	$legend[] = 'rest';
	$limit = substr($limit, 0, (strlen($limit) - 2));

	// divide the timespan into 5min intervals
	// query the traffic per talker in 5min intervals
	// Initialize the data_table
	$data = array();
	$steps = 0;
	$rest_table = array();
	for ($time1 = $starttime; $time1 < $endtime; $time1 += (5 * 60)) {
		$time2 = ($time1 + (5 * 60));
		$steps++;
		// Add the column header (time) to the data array
		$data[] = array(strftime('%H:%M', $time1));
		$q = $dbh->prepare('SELECT IPDst, SUM(Bytes) AS TrafficSum
				FROM Flows
				WHERE TimeStop BETWEEN ? AND ?
				AND IPDst IN ('.$limit.')
				AND FlowSrc = ?
				GROUP BY IPDst
				ORDER BY TrafficSum DESC
				LIMIT 0, 9');
		$q->bindParam(1, $time1, PDO::PARAM_INT);
		$q->bindParam(2, $time2, PDO::PARAM_INT);
		$q->bindParam(3, sprintf('%u', ip2long($flowsrc)), PDO::PARAM_INT);
		$q->execute();
		$r = $q->fetchAll();
		$i = (count($data) - 1);
		foreach ($r as $row) {
			$tmpdata[$i][$row[0]] = $row[1];
		}

		// Get the rest of the aggregated traffic to fill up the bars
		$q = $dbh->prepare('SELECT SUM(Bytes) AS TrafficSum
				FROM Flows
				WHERE TimeStop BETWEEN ? AND ?
				AND IPDst NOT IN ('.$limit.')
				AND FlowSrc = ?');
		$q->bindParam(1, $time1, PDO::PARAM_INT);
		$q->bindParam(2, $time2, PDO::PARAM_INT);
		$q->bindParam(3, sprintf('%u', ip2long($flowsrc)), PDO::PARAM_INT);
		$q->execute();
		$rest_table[] = $q->fetch();
	}

	// Iterate through the legend and fill the data array from the temporary data array
	// This function makes sure that each top talker is always at the same position
	// in the multidimensional data table.
	// This is necessary for phpplot to assign the same color to each host on
	// sequential columns
	// $ip is the key for the temp_data lookup
	foreach ($legend as $ip) {
		for($i = 0; $i < $steps; $i++) {
			if (array_key_exists($i, $tmpdata)) {
			// The "column" exists, let's sort the rows
				$key = sprintf('%u', ip2long($ip));
				if (array_key_exists($key, $tmpdata[$i])) {
					$data[$i][] = $tmpdata[$i][$key];
				} else {
					$data[$i][] = '';
				}
			} else {
				$data[$i][] = '';
			}
		}
	}


	// Append the data from the rest_table to the data array
	for($i = 0; $i < $steps; $i++) {
		$data[$i][(count($data[$i]) - 1)] = $rest_table[$i][0];
	}

	// Create the chart, write it to tmp/output.png
	$plot = new PHPlot(800, 400);
	$plot->SetIsInline(True);
	//$plot->SetPrintImage(False);
	$plot->SetImageBorderType('plain');
	$plot->SetDataColors($data_colors);


	$plot->SetPlotType('stackedbars');
	$plot->SetDataType('text-data');
	$plot->SetDataValues($data);

	$plot->SetTitle($chart_title);
	$plot->SetYTitle($ytitle);
	$plot->SetLegend($legend);

	$plot->SetXTickLabelPos('none');
	$plot->SetXTickPos('none');

	$plot->SetNumberFormat(',', '.');
	$plot->SetPrecisionY(0);

	$plot->SetOutputFile($output);
	$plot->DrawGraph();

	chmod($output, 0644);
	$target =  dirname($output).'/'.basename($output).'.png';
	if (rename($output, $target)) {
		return 'tmp/'.basename($target);
	} else {
		return False;
	}
}