analyse.pl
上传用户:shbosideng
上传日期:2013-05-04
资源大小:1555k
文件大小:1k
- # 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;