analyse.pl
上传用户:shbosideng
上传日期:2013-05-04
资源大小:1555k
文件大小:1k
源码类别:

SNMP编程

开发平台:

C/C++

  1. # analyse.pl
  2. #
  3. # CGI script to generate an HTML page showing WAN traffic broken down by source
  4. # or destination. Most of the work is done by another script "pie.pl".
  5. # This script is invoked by http://netmanager/whodo/analyse.html
  6. #
  7. # Modification History
  8. ######################
  9. # 17 Nov 98 Tony Farr Original coding
  10. ##############################################################################
  11. use strict;
  12. use CGI;
  13. use CGI::Carp qw(fatalsToBrowser);
  14. my $q = new CGI;
  15. my $title= "WAN Traffic by ".( defined($q->param('src')) ? "Destination" : "Source" );
  16. print $q->header,
  17. $q->start_html($title),
  18. $q->h1($title),
  19. $q->hr;
  20. my $gifurl= $q->url(-query=>1);
  21. $gifurl =~ s/analyse.pl/pie.pl/i; # pie.pl uses same path & arguments
  22. print $q->img({-src=>$gifurl, -align=>'CENTER', -alt=>'Generating pie graph...'});
  23. print $q->hr,
  24. $q->small,
  25. $q->ul(
  26. $q->li("This page was produced at ".localtime(time)." (aest)." ),
  27. $q->li( $q->param("src") ?
  28. "Only sources matching the expression "".$q->param("src")."" have been included."
  29. :
  30. $q->param("dest") ?
  31. "Only destinations matching the expression "".$q->param("dest")."" have been included."
  32. :
  33. "All WAN traffic is included."
  34. )
  35. );
  36. print $q->end_html;
  37. exit 0;