|
||||||
|;
print RRDs::error if (RRDs::error);
}
sub get_classmaps() {
=pod
get_classmaps() retrieves class-map names from database.
If $mode is "RRD", the class-map list is taken from
directory with RRD databases, else from SQL table.
=cut
my($dbh,$mode,$rrds)=@_;
my @cmap;
# if ($mode=~/^rrd$/i) {
opendir(DH,$rrds) or die "opendir: $!";
@cmap=grep(/\.rrd$/,readdir(DH));
closedir(DH);
map { s/^(.*)\.rrd$/$1/ } @cmap;
# } else {
# return() unless $dbh;
# my $sth=$dbh->prepare('show fields from trafget');
# $sth->execute();
# while (my $map=($sth->fetchrow_array)[0]) {
# $map eq 'time' ? next : push(@cmap,$map);
# }
# }
# return(sort(@cmap));
return(@cmap);
}
sub get_cmap_rgb() {
=pod
get_cmap_rgb() defines AREA and LINE# colours, reverts 'em into RRGGBB
hexadecimal format and forms an array of 'em.
=cut
my $cgi=shift;
return() unless $cgi;
my($color,$cmap)=@_;
my @rgb=qw/r g b/;
push(@{$$color{'area'}},$$color{'lo'});
push(@{$$color{'line'}},$$color{'hi'});
if ($cmap>0) {
my %lo=&hex_to_rgb($$color{'lo'});
my %hi=&hex_to_rgb($$color{'hi'});
my %step=map { $_,($hi{$_}-$lo{$_})/$cmap } @rgb;
for my $map (1..$cmap) {
%lo=map { $_,$lo{$_}+=$step{$_} } @rgb;
push(@{$$color{'area'}},sprintf("%.2x%.2x%.2x",@lo{@rgb}));
%hi=map { $_,$hi{$_}-=$step{$_} } @rgb;
push(@{$$color{'line'}},sprintf("%.2x%.2x%.2x",@hi{@rgb}));
}
}
}
sub hex_to_rgb() {
=pod
hex_to_rgb() takes colour in RRGGBB hexadecimal format (as in HTML)
and converts it to a hash, containing corresponding decimal values.
=cut
my $hex=shift;
my @key=qw/r g b/;
my(@rgb)=$hex=~/^([\da-f]{2})([\da-f]{2})([\da-f]{2})$/i or return();
my %rgb=map { $key[$_],hex($rgb[$_]) } (0..2);
return(%rgb);
}
sub get_vrules() {
=pod
get_vrules() returns an array, containing RRDs VRULE set. Takes
CGI handler as a primary argument and optionally rule colour in
RRGGBB hexadecimal format (as in HTML).
=cut
my($cgi,$rgb)=@_;
return() unless $cgi;
$rgb||='FF0000';
my $now=time();
my @rule;
my $mode=$cgi->param('mode');
$mode||='daily';
if ($mode eq 'daily') {
push(@rule,my $rule=timelocal(0,0,0,(localtime($now))[3..5]));
push(@rule,$rule-=86400);
} elsif ($mode eq 'monthly' or $mode eq 'weekly') {
my $wday=(localtime($now))[6];
push(@rule,my $rule=timelocal(0,0,0,(localtime($now-86400*$wday))[3..5]));
push(@rule,$rule-=604800) for (0..($mode eq 'weekly'?0:3));
}
map { s/($_)/sprintf("VRULE:%s#%s",$1,$rgb)/e } @rule;
return(@rule);
}
sub put_mode_menu() {
=pod
put_mode_menu() builds graph mode selection menu (4 radio buttons -
daily, weekly, monthly and yearly). The function requires only one
argument - a CGI handler.
=cut
my $cgi=shift or return();
my @mode=qw/
daily
weekly
monthly
yearly
/;
my %mode=map{$mode[$_],qq| \u\L$mode[$_]\E |}(0..$#mode);
print $cgi->radio_group(
-name => 'mode',
-default => 'daily',
-values => \@mode,
# -linebreak => 1,
-linebreak => 0,
-labels => \%mode
);
}
sub put_cmap_menu() {
=pod
put_cmap_menu() builds a nice formatted table, containing group of
checkboxes. For now variable format is not similar to CGI::checkbox_group,
but in the future may be i'll rewrite the function.
$cgi - CGI handler;
$cmap - reference to an array, containing class-map names;
$dscr - reference to a hash, containing client names, correspondingly
to a class-map names;
$dflt - reference to an array, containing default class-map names;
$n - number of table columns, default is 3;
$b - border width, default is 0.
=cut
no strict 'subs';
tie(my %addon,Tie::IxHash,
cmap_all => 'Select all data sources',
clear_all => 'Clear all data sources',
defaults => 'Revert to defaults'
);
my $cgi=shift or return();
my($cmap,$dscr,$dflt,$n,$b)=@_;
return() unless $cgi;
my @form=$cgi->param('cmap');
if (defined($cgi->param('clear_all'))) {
$cgi->delete('cmap');
} elsif (defined($cgi->param('defaults'))) {
$cgi->param('cmap',@$dflt);
} elsif (defined($cgi->param('cmap_all'))) {
$cgi->param('cmap',@$cmap);
}
$cgi->delete($_) foreach keys %addon;
my $w=sprintf(qq| width="%.2f%%"|,100/abs($n||=3));
printf(qq|| |,$n); print $cgi->checkbox( -name => $_, -label => " $addon{$_}" ); print qq| |
| ", ($i==$#$cmap ? ($n+1-$k) : 1), (int($i/$n))==0 ? $w : ''); print $cgi->checkbox( -name => 'cmap', -value => $$cmap[$i], -label => ($$dscr{$cmap[$i]}?" $$dscr{$cmap[$i]}":" \u\L$cmap[$i]\E") ); print " | \n"; print "