#	analyse.pl

#

# CGI script to generate an HTML page showing WAN traffic broken down by source

# or destination. Most of the work is done by another script "pie.pl".

# This script is invoked by http://netmanager/whodo/analyse.html

#

# Modification History

######################

# 17 Nov 98	Tony Farr	Original coding

##############################################################################

use strict;

use CGI;

use CGI::Carp qw(fatalsToBrowser);

my $q = new CGI;

my $title= "WAN Traffic by ".( defined($q->param('src')) ? "Destination" : "Source" );

print $q->header,

	$q->start_html($title),

	$q->h1($title),

	$q->hr;

my $gifurl= $q->url(-query=>1);

$gifurl =~ s/analyse\.pl/pie.pl/i;		# pie.pl uses same path & arguments

print $q->img({-src=>$gifurl, -align=>'CENTER', -alt=>'Generating pie graph...'});

print $q->hr,

	$q->small,

	$q->ul(

		$q->li("This page was produced at ".localtime(time)." (aest)." ),

		$q->li( $q->param("src") ?

					"Only sources matching the expression \"".$q->param("src")."\" have been included."

				:

					$q->param("dest") ?

						"Only destinations matching the expression \"".$q->param("dest")."\" have been included."

					:

						"All WAN traffic is included."

			)

	);

print $q->end_html;

exit 0;