index.php

<?php

/*
 * Copyright (c) 2006, CESNET
 * All rights reserved.
 *
 * LICENSE TERMS
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *
 *     * Redistributions of source code must retain the above copyright
 *       notice, this list of conditions and the following disclaimer.
 *     * Redistributions in binary form must reproduce the above copyright
 *       notice, this list of conditions and the following disclaimer in the
 *       documentation and/or other materials provided with the distribution.
 *     * Neither the name of the company nor the names of its contributors 
 *       may be used to endorse or promote products derived from this 
 *       software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, 
 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY 
 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL 
 * THE COMPANY OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; 
 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 
 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR 
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF 
 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 *
 * $Id$
 *
 */

/* require_once("common.php"); */

/* BEGINNING OF USER CONFIGURATION SECTION */

/* Picture of the monitored network to be shown in the user interface */
define(NET_IMG, "cesnet2-20060804-passivem.jpg");

/*
 * Define subjects
 */

/* 
 * Single-word names (without spaces) refering to monitored links.
 * They must be the same as "label" field in [subject] section in
 *	the abw.cfg configuration file. You can choose them here and edit
 * abw.cfg afterwards.
 */
$subject_label=array(
	"GN2_CESNET", 
	"Brno_PoP", 
	"Budejovice_PoP", 
	"Hradec_PoP", 
	"Liberec_PoP", 
	"Olomouc_PoP", 
	"Ostrava_PoP", 
	"Pardubice_PoP", 
	"Plzen_PoP", 
	"Prague_PoP", 
	"Usti_PoP"
);

/*
 * Description of monitored links, can include spaces. It is probably a good 
 * idea to make it the same as "description" field in [subject] section in 
 * the abw.cfg configuration file (but it is not required).
 */
$subject_description=array(
	"GN2 CESNET2", 
	"Brno PoP", 
	"Budejovice PoP", 
	"Hradec PoP", 
	"Liberec PoP", 
	"Olomouc PoP", 
	"Ostrava PoP", 
	"Pardubice PoP", 
	"Plzen PoP", 
	"Prague PoP", 
	"Usti PoP"
);

/*
 * Hostnames where results are stored in RRD files and from which they should
 * be retrieved. It can be a central station that communicates with remote
 * monitoring stations via DiMAPI. Or it can be individual remote monitoring
 * stations directly.
 */
$subject_hostname=array(
	"jra1-2.cesnet.cz", 
	"perfmon2.cesnet.cz", 
	"perfmon-budejovice.cesnet.cz", 
	"perfmon-hradec.cesnet.cz", 
	"perfmon-liberec.cesnet.cz", 
	"perfmon-olomouc.cesnet.cz", 
	"perfmon-ostrava.cesnet.cz", 
	"195.113.125.254", 
	"perfmon-plzen.cesnet.cz", 
	"perfmon1.cesnet.cz", 
	"perfmon-usti.cesnet.cz"
);

/* If 1 then the subject is disabled (shown gray in the user interface) */
$subject_disabled=array( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 );

/* END OF USER CONFIGURATION SECTION */

define(REMOTE_USERNAME, "abw");
define(GRAPH_SCRIPT, "/usr/local/abw/bin/rrd_graph_all.sh");
define(GRAPH_DIR, "/var/www/perfmon/abw/graph");
define(REMOTE_GRAPH_DIR, "/usr/local/abw/graph");

/*
 * Predefined time intervals and granularities
 *
 * Keep in mind the following requirements:
 *
 *   - each resolution must be >= time of one pixel on X axis
 *     (set in rrd_graph_all.sh) otherwise time of one pixel is used
 *
 *   - UNIX timestamps of both start time and end time must be multiples
 *     of both resolutions (set time_length accordingly and compute
 *     end time to be on boundary) and it is safer to skip the most recent
 *     samples, see variable $hhmmYYYYMMDD below
 *
 *   - RRD files must include RRA samples for the whole requested period,
 *     create RRD files to include enough RRA samples for possible browsing
 *     in time axis
 */

$time_description[0]="last 10 mins (interval 1 sec, avg/max 30 sec)";
$time_description[1]="last 1 hour (interval 10 sec, avg/max 3 min)";
$time_description[2]="last 10 hours (interval 1 min, avg/max 20 min)";
$time_description[3]="last 1 day (interval 3 min, avg/max 1 hour)";
$time_description[4]="last 1 week (interval 20 min, avg/max 6 hour)";
$time_description[5]="last 1 month (interval 3 hour, avg/max 1 day)";
$time_description[6]="last 1 year (interval 1 day, avg/max 1 month)";

$r1[0]=1;
$r2[0]=30;
$time_length[0]="10min";

$r1[1]=10;
$r2[1]=180;
$time_length[1]="1h";

$r1[2]=60;
$r2[2]=1200;
$time_length[2]="10h";

$r1[3]=180;
$r2[3]=3600;
$time_length[3]="1day";

$r1[4]=120;
$r2[4]=21600;
$time_length[4]="1week";

$r1[5]=10800;
$r2[5]=86400;
$time_length[5]="1month";

$r1[6]=86400;
$r2[6]=2628000;
$time_length[6]="1year";

/*
 * Define graph types
 */

$graph_type_label=array("l4", "apps");
$graph_type_description=array("L4", "Application");

/* For conversion of month number to month name */
$monthNumberToLongName=array("January", "February", "March", "April", "May", 
	"June", "July", "August", "September", "October", "November", "December");

function time_to_sec($number, $unit) {
	switch ($unit) {
		case "Seconds":
			return $number;
		case "Minutes":
			return $number * 60;
		case "Hours":
			return $number * 3600;
		case "Days":
			return $number * 86400;
		case "Weeks":
			return $number * 86400 * 7;
		case "Months":
			return $number * 86400 * 30;
		case "Years":
			return $number * 86400 * 365;
		default:
			return -1;
	}
} /* time_to_sec() */

function time_diff($time1, $time2) {
	if ($time2["sec"] > $time1["sec"]) {

		if ($time2["sec"] > ($time1["sec"]+1))
			$res=$time2["sec"] - $time1["sec"];
		else
			$res=0;

		$res=$res+(float)(1000000-$time1["usec"])/1000000 +
					 (float)($time2["usec"])/1000000;
	}
	else
		$res=(float)($time2["usec"]-$time1["usec"])/1000000;

	return $res;
} /* time_diff() */

/*
 * Start application
 */

$func="main()";

openlog($_SERVER['REMOTE_USER'], LOG_PID, LOG_LOCAL0);
syslog(LOG_INFO, "$func: starting");

echo "<html>\n";
echo "<head>\n";
echo "<link rel=\"StyleSheet\" type=\"text/css\" href=\"../../style.css\">\n";
echo "</head>\n";
echo "<body>\n";
echo "<h2>ABW - Passive bandwith usage monitoring</h2>\n";

echo "<a href=\"" . NET_IMG . "\"><img src=\"" . NET_IMG . "\" width=\"400\" align=\"right\"></a>\n";

if (!isset($subject_selected))
	$subject_selected=1;

echo "<form method=post action=\"index.php?action=gen_graph\">\n";

/*
 * Print form to select graph types
 */

/* if (!isset($graph_types))
	$graph_types[0]="l4"; */

echo "<b>Type of graphs:</b><p>\n";

foreach ($graph_type_label as $key => $value) {
	echo "$graph_type_description[$key] protocols ";
	echo "<input type=checkbox name=\"graph_types[]\" value=\"$value\"";
	if (isset($graph_types)) {
		if (in_array($value, $graph_types))
			echo " checked";
	}
	echo ">\n";
}

/*
 * Print form to select monitored links
 */

/* if (!isset($subjects))
	$subjects[0]="Prague_PoP"; */

$half=count($subject_label)/2 + $subject_label%2;
$i=0;

echo "<p>\n";
echo "<b>Monitored links:</b><p>\n";
echo "<table border=1>\n";
foreach ($subject_label as $key => $value) {
	if (($i%2)==0)
		echo "<tr>\n";
	echo "<td>$subject_description[$key]</td>";
	echo "<td><input type=checkbox name=\"subjects[]\" value=\"$value\"";
	if (isset($subjects)) {
		if (in_array($value, $subjects))
			echo " checked";
	}
	if ($subject_disabled[$key] > 0)
		echo " disabled";
	echo "></td>\n";
	if (($i%2)>0)
		echo "</tr>\n";
	$i++;
}

if (($i%2)==0)
	echo "<tr>\n";
echo "<td>all links</td>\n";
echo "<td><input type=checkbox name=\"subject_all\"";
if ($subject_all)
   echo " checked";
echo "></td>\n";
$i++;

if (($i%2)>0)
	echo "<td>&nbsp;</td><td>&nbsp;</td>";
echo "</tr></table>\n";

/*
 * Print form to select time granularities and periods
 */

echo "<p>\n";
echo "<b>Time period and granularity:</b><p>\n";

echo "<table>\n";

echo "<tr><td>Predefined:</td><td width=20>&nbsp;</td><td>User defined:</td></tr>\n";

echo "<tr><td><table border=1>\n";
foreach ($time_description as $key => $value) {
	echo "<tr>\n";
	echo "<td>$value</td>\n";
	$time_label=$r1[$key] . "_" . $r2[$key] . "_" . $time_length[$key];
   echo "<td><input type=checkbox name=\"times[]\" value=\"" . $time_label . "\"";
	if (isset($times)) {
		if (in_array($time_label, $times))
   		echo " checked";
	}
	echo "></td>\n";
	echo "</tr>\n";
}
echo "<tr>\n";
echo "<td>all predefined time periods</td>\n";
echo "<td><input type=checkbox name=\"time_all\"";
if ($time_all)
	echo " checked";
echo "></td>\n";
echo "</tr>\n";
echo "</table></td>\n";

echo "<td>&nbsp;</td><td><p>Start or end time:<br>";

echo "<select name=time_hour>";
	for ($i=0; $i<=23; $i++) {
		echo "<option value=$i";
		if ($time_hour==$i)
			echo " selected";
		echo ">";
		printf("%02d", $i);
		echo "</option>\n";
	}
echo "</select>\n";

echo "<select name=time_minute>";
	for ($i=0; $i<=59; $i++) {
		echo "<option value=$i";
		if ($time_minute==$i)
			echo " selected";
		echo ">";
		printf("%02d", $i);
		echo "</option>\n";
	}
echo "</select>\n";

echo "<select name=time_day>";
	for ($i=1; $i<=31; $i++) {
		echo "<option value=$i";
		if ($time_day==$i)
			echo " selected";
		echo ">$i</option>\n";
	}
echo "</select>\n";

echo "<select name=time_month>";
	for ($i=1; $i<=12; $i++) {
		echo "<option value=$i";
		if ($time_month==$i)
			echo " selected";
		echo ">" . $monthNumberToLongName[$i-1] . "</option>\n";
	}
echo "</select>\n";

echo "<select name=time_year>";
	for ($i=2006; $i<=2015; $i++) {
		echo "<option value=$i";
		if ($time_year==$i)
			echo " selected";
		echo ">$i</option>\n";
	}
echo "</select>\n";

echo "<p>Time length:<br>\n";
echo "<input type=text size=3 name=time_length_number value=\"$time_length_number\"></input>\n";

echo "<select name=time_length_unit>";
$time_length_units=array("Minutes", "Hours", "Days", "Weeks", "Months", 
	"Years");
foreach ($time_length_units as $value) {
	echo "<option value=$value";
	if ($time_length_unit==$value)
		echo " selected";
	echo ">$value</option>\n";
}
echo "</select>\n";

/* Interval + avg/max are as a separate table */
echo "<p><table><tr><td>Interval:</td><td>Avg/Max:</td></tr><tr>\n";
echo "<td><input type=text size=3 name=r1_number value=\"$r1_number\"></input>\n";
echo "<select name=r1_unit>";
$r1_units=array("Seconds", "Minutes", "Hours", "Days", "Weeks", "Months",
   "Years");
foreach ($r1_units as $value) {
	echo "<option value=$value";
	if ($r1_unit==$value)
		echo " selected";
	echo ">$value</option>\n";
}
echo "</select></td>\n";
echo "<td><input type=text size=3 name=r2_number value=\"$r2_number\"></input>\n";
echo "<select name=r2_unit>";
$r2_units=array("Seconds", "Minutes", "Hours", "Days", "Weeks", "Months",
   "Years");
foreach ($r2_units as $value) {
	echo "<option value=$value";
	if ($r2_unit==$value)
		echo " selected";
	echo ">$value</option>\n";
}
echo "</select></td>\n";
echo "</tr></table>\n";

if (!isset($time_type))
	$time_type="predefined";

echo "<p>Time type:<br>\n";
echo "Predefined <input type=radio name=\"time_type\" value=\"predefined\"";
if (!strcmp($time_type, "predefined"))
	echo " checked";
echo ">";
echo "  Start time <input type=radio name=\"time_type\" value=\"start_time\"";
if (!strcmp($time_type, "start_time"))
   echo " checked";
echo ">";
echo "  End time <input type=radio name=\"time_type\" value=\"end_time\"";
if (!strcmp($time_type, "end_time"))
   echo " checked";
echo ">";

echo "</td>\n";

echo "</tr></table\n";

/* echo "<p>Note: selecting all time periods will require a lot of processing time\n"; */

echo "<p>\n";
echo "<input type=submit name=button_name value=\"Generate graphs\">\n";

echo "</form><br>\n";

if ($action=="gen_graph") {

	$current_time=date("G:i:s Ymd", time());

	foreach (glob(GRAPH_DIR . "/*") as $filename)
      unlink($filename);

	/* If at least one graph type, one subject and one time period were
		selected, then generate and show graphs */

	if (isset($graph_types) && 
		 (isset($subjects) || $subject_all) && 
		 (isset($times) || $time_all || strcmp($time_type, "predefined"))) {

		$total_time=0;
		echo "<p>\n";
		echo "<table>\n";
		echo "<tr><td>Graph type</td><td>Link</td><td>Time (gen / copy)</td></tr>\n";

		/* Go over all selected graph types */

		foreach($graph_type_label as $graph_type_key => $graph_type_value) {
			if (in_array($graph_type_value, $graph_types)) {

				/* Go over all subjects and for each selected subject issue
					one remote command to generate graphs */

				$i=0;
				foreach ($subject_label as $subject_key => $subject_value) {
		      	if (($subject_all || in_array($subject_value, $subjects)) &&
						 !$subject_disabled[$subject_key]) {

						$hostname=$subject_hostname[$i];

						$command="ssh " . REMOTE_USERNAME . "@" . $subject_hostname[$i] . " \"" . GRAPH_SCRIPT . " -r --protocols=" . $graph_type_value . " --label=" . $subject_value . " --parameters_id=1";

						/* Append one --time argument for each selected time period */

						if (!strcmp($time_type, "predefined")) {
					
							foreach ($time_description as $time_key => $time_value) {
								$time_label=$r1[$time_key] . "_" . $r2[$time_key] . 
									"_" . $time_length[$time_key];
					   		if ($time_all || in_array($time_label, $times)) {
									$hhmmYYYYMMDD=date("G:i Ymd", (int)(time() / $r2[$time_key]) * $r2[$time_key] - $r2[$time_key]);

							 		$command=$command . " --time=\\\"" .
							 			$r1[$time_key] . " " . $r2[$time_key] . " " .
										$time_length[$time_key] . " " . $hhmmYYYYMMDD . "\\\"";
								}
							}
						} /* if (!strcmp($time_type, "predefined")) */
						else {
							/* echo "time_type: $time_type<br>\n";
							echo "time_hour: $time_hour<br>\n";
							echo "time_minute: $time_minute<br>\n";
							echo "time_day: $time_day<br>\n";
							echo "time_month: $time_month<br>\n";
							echo "time_year: $time_year<br>\n";
							echo "time_length_number: $time_length_number, time_length_unit: $time_length_unit<br>\n";
							echo "r1_number: $r1_number, r1_unit: $r1_unit<br>\n";
							echo "r2_number: $r2_number, r2_unit: $r2_unit<br>\n"; */
		
							/* Convert R1, R2 and time length to seconds, 
								adjust time_length to R2 boundary */

							$r1_sec=time_to_sec($r1_number, $r1_unit);
							$r2_sec=time_to_sec($r2_number, $r2_unit);
							/* echo "r1_sec: $r1_sec, r2_sec: $r2_sec<br>\n"; */
							if ($r1_sec<=0 || $r2_sec<=0 || $r2_sec<$r1_sec ||
								 ($r2_sec%$r1_sec)>0) {
							 	echo "Incorrect time or date specification.<br>\n";
							 	exit();
							}
							$time_length_sec=time_to_sec($time_length_number, 
								$time_length_unit);
							$time_length_sec=
								((int)($time_length_sec / $r2_sec)) * $r2_sec;
							if ($time_length_sec<=0) {
								echo "Incorrect time or date specification.<br>\n";
								exit();
							}

							/* Compute timestamp of start or end of requested period */

							$timestamp=strtotime($time_year . "-" . $time_month . "-" .
								$time_day . " " . $time_hour . ":" . $time_minute);
							/* echo "timestamp: $timestamp<br>\n"; */
							$hhmmYYYYMMDD=date("G:i Ymd", $timestamp);
							/* echo "hhmmYYYYMMDD: $hhmmYYYYMMDD<br>\n"; */

							/* If start time was given, then compute end time */

							if (!strcmp($time_type, "start_time")) {
								$timestamp=$timestamp + $time_length_sec;
								/* echo "timestamp + time_length: $timestamp<br>\n"; */
								$hhmmYYYYMMDD=date("G:i Ymd", $timestamp);
					      	/* echo "hhmmYYYYMMDD + time_length: $hhmmYYYYMMDD<br>\n"; */
							}

							/* Adjust timestamp to R2 boundary */

							$timestamp=((int)($timestamp / $r2_sec)) * $r2_sec;

							$command=$command . " --time=\\\"" . $r1_sec . " " . 
								$r2_sec . " " . $time_length_number . 
								$time_length_unit . " " . $hhmmYYYYMMDD . "\\\"";
									
						}
		
						/* Execute command and measure how long it takes */

						$command=$command . " 2>&1 > /dev/null\"";
						/* echo "Command: $command<br>\n"; */
						$time1=gettimeofday();
						system($command);
						$time2=gettimeofday();
						$diff=time_diff($time1, $time2);
						$total_time+=$diff;
						printf("<tr><td>%s protocols</td><td>%s</td><td>%.02fs / ", 
							$graph_type_description[$graph_type_key], $subject_value, 
							$diff);

						$command="scp " . REMOTE_USERNAME . "@" . $subject_hostname[$i] . ":" . REMOTE_GRAPH_DIR . "/* " . GRAPH_DIR;	
						/* echo "Command: $command<br>\n"; */
						$time1=gettimeofday(TRUE);
						system($command);
						$time2=gettimeofday(TRUE);
						$diff=time_diff($time1, $time2);
						$total_time+=$diff;
						printf("%.02fs</td></tr>\n", $diff);
					}
				$i++;
				}
			} /* if (in_array($graph_type_value, $graph_types)) */
		} /* foreach($graph_type_label as $graph_type_key => $graph_type_value) */
		printf("<tr><td>Total time</td><td>&nbsp;</td><td>%.02fs</td></tr>\n", $total_time);
		echo "</table>\n";

		echo "<p>\n<table>\n";
		$graphs=0;

		foreach($graph_types as $graph_type) {
			foreach ($subject_label as $subject_key => $subject_value) {
		      if (($subject_all || in_array($subject_value, $subjects)) &&
					 !$subject_disabled[$subject_key]) {

					if (!strcmp($time_type, "predefined")) {
					
						foreach ($time_description as $time_key => $time_value) {
							$time_label=$r1[$time_key] . "_" . $r2[$time_key] . "_" . 
								$time_length[$time_key];
					   	if ($time_all || in_array($time_label, $times)) {

								$graph_filename="graph/graph_" . $subject_value . "_" . 
									$graph_type . "_" . $r1[$time_key] . "s_" .
									$r2[$time_key] . "s_" . $time_length[$time_key] . 
									".png";

								if (($graphs%2)==0)
									echo "<tr>\n";
	
								echo "<td width=430 align=center>\n";
								echo "  <table>\n";
								echo "  <tr>\n";
								echo "    <td align=center><a href=\"$graph_filename\"><img width=400 src=\"$graph_filename\"></a></td>\n";
								echo "  </tr>\n";
								echo "  <tr>\n";
								echo "    <td align=center>" . $graph_type_description[array_search($graph_type, $graph_type_label)] . " protocols, Monitored link: " . $subject_description[$subject_key] . "<br>$time_description[$time_key]</td>\n";
								echo "  </tr>\n";
								echo "  </table>\n";
								echo "</td>\n";

								if (($graphs%2)!=0)
									echo "</tr>\n";
			
								$graphs++;
							}
						} 

					} /* if (!strcmp($time_type, "predefined")) */
					else {
						$graph_filename="graph/graph_" . $subject_value . "_" .
							$graph_type . "_" . $r1_sec . "s_" . $r2_sec . "s_" .
							$time_length_number . $time_length_unit . ".png";

						if (($graphs%2)==0)
							echo "<tr>\n";

						echo "<td width=430 align=center>\n";
						echo "  <table>\n";
						echo "  <tr>\n";
						echo "    <td align=center><a href=\"$graph_filename\"><img width=400 src=\"$graph_filename\"></a></td>\n";
						echo "  </tr>\n";
						echo "  <tr>\n";
						echo "    <td align=center>" . $graph_type_description[array_search($graph_type, $graph_type_label)] . " protocols, Monitored link: " . $subject_description[$subject_key] . "<br>$time_length_number $time_length_unit";
						if (!strcmp($time_type, "start_time"))
							echo " from";
						else
							echo " to";
						printf(" %02d:%02d %d-%02d-%02d", $time_hour, $time_minute,
							$time_year, $time_month, $time_day);
						echo "<br>(interval $r1_number $r1_unit, Avg/Max $r2_number $r2_unit)</td>\n";
						echo "  </tr>\n";
						echo "  </table>\n";
						echo "</td>\n";

						if (($graphs%2)!=0)
							echo "</tr>\n";
			
						$graphs++;
					}

				}
			} /* foreach($subject_label as $subject_key => $subject_value) */
		} /* foreach ($graph_types as $graph_type) */

		echo "</table>\n";

	} /* if (isset($graph_types) && ... */

} /* if ($action=="gen_graph") */

echo "</body>\n";
echo "</html>\n";

?>