@BigSister::common::options = ( ); use lib "$ENV{BIGSISTER_CHROOT}/usr/share/bigsister/bin"; use lib "$ENV{BIGSISTER_CHROOT}/usr/share/bigsister/uxmon"; #inslib use BigSister::common; proginit(); use strict; require bscgi; use Statusmon::Statusmon; use Statusmon::Grapher; use Statusmon::RRDi; my $dl = $BigSister::common::dl; my $grapher = new Statusmon::Grapher(); my $rrd = new Statusmon::RRDi(); my @colors = ( "0000FF", "FF0000", "010101", "D0D020", "FF00FF", "00FFFF" ); # "20D020", bscgi::mainloop( \&one_pass, "structured_bg", 300 ); sub one_pass { my( $skin, %cgivars ) = @_; my $days = $cgivars{"DAYS"}; my $host = $cgivars{"HOST"}; my $graph = $cgivars{"GRAPH"}; my $start = $cgivars{"START"}; my $mode = $cgivars{"MODE"}; my $end = $cgivars{"END"}; my $zoom = $cgivars{"ZOOM"}; if( $mode ne "html" ) { $mode = "graph"; } unless( $zoom ) { $zoom = 100; } my @index = $grapher->get_index( $host ); my $maingraph = {}; for( my $i=0; $i<=$#index; $i++ ) { $maingraph = $grapher->read_graphdef( $index[$i]->{"fileid"} ) if($index[$i]->{"graph-id"} eq $graph); last if( $maingraph->{"graph"} ); } unless( $maingraph->{"graph-id"} ) { unavailable( $host, $graph ); return; }