| Server IP : 184.154.167.98 / Your IP : 3.145.174.65 Web Server : Apache System : Linux pink.dnsnetservice.com 4.18.0-553.22.1.lve.1.el8.x86_64 #1 SMP Tue Oct 8 15:52:54 UTC 2024 x86_64 User : puertode ( 1767) PHP Version : 8.2.26 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/src/csf/ConfigServer/ |
Upload File : |
###############################################################################
# Copyright 2006-2023, Way to the Web Limited
# URL: http://www.configserver.com
# Email: sales@waytotheweb.com
###############################################################################
## no critic (RequireUseWarnings, ProhibitExplicitReturnUndef, ProhibitMixedBooleanOperators, RequireBriefOpen)
# start main
package ConfigServer::ServerStats;
use strict;
use lib '/usr/local/csf/lib';
use Fcntl qw(:DEFAULT :flock);
use Exporter qw(import);
our $VERSION = 1.02;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw();
my %minmaxavg;
# end main
###############################################################################
# start init
sub init {
eval ('use GD::Graph::bars;'); ##no critic
if ($@) {return undef}
eval ('use GD::Graph::pie;'); ##no critic
if ($@) {return undef}
eval ('use GD::Graph::lines;'); ##no critic
if ($@) {return undef}
}
# end init
###############################################################################
# start graphs
sub graphs {
my $type = shift;
my $system_maxdays = shift;
my $imghddir = shift;
my $img;
$| = 1;
require GD::Graph::bars;
import GD::Graph::bars;
require GD::Graph::pie;
import GD::Graph::pie;
require GD::Graph::lines;
import GD::Graph::lines;
sysopen (my $STATS,"/var/lib/csf/stats/system", O_RDWR | O_CREAT);
flock ($STATS, LOCK_SH);
my @stats = <$STATS>;
chomp @stats;
close ($STATS);
if (@stats > 1) {
local $SIG{__DIE__} = undef;
my $time = time;
my %stata;
foreach my $line (@stats) {
my ($thistime,undef) = split(/\,/,$line);
if (time - $thistime > (86400 * $system_maxdays)) {next}
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($thistime);
$stata{$year}{$mon}{$mday}{$hour}{$min} = $line;
}
if ($type eq "cpu") {
my (@h,@p,@t);
my $cputotal_prev;
my $cpuidle_prev;
my $cpuiowait_prev;
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $cputotal eq "") {
$cputotal_prev = 0;
$cpuidle_prev = 0;
$cpuiowait_prev = 0;
push @p,undef;
push @t,undef;
} else {
my $idle_diff = $cpuidle - $cpuidle_prev;
my $iowait_diff = $cpuiowait - $cpuiowait_prev;
my $total_diff = $cputotal - $cputotal_prev;
if ($total_diff == 0) {
$cputotal_prev = 0;
$cpuidle_prev = 0;
$cpuiowait_prev = 0;
push @p,undef;
push @t,undef;
next;
}
my $idle_use = 100 - 100 * ($total_diff - $idle_diff) / $total_diff;
my $iowait_use = 100 - 100 * ($total_diff - $iowait_diff) / $total_diff;
$cpuidle_prev = $cpuidle;
$cpuiowait_prev = $cpuiowait;
$cputotal_prev = $cputotal;
push @p,$idle_use;
push @t,$iowait_use;
&minmaxavg("HOUR","1Idle",$idle_use);
&minmaxavg("HOUR","2IOWAIT",$iowait_use);
}
}
if ($minmaxavg{HOUR}{"1Idle"}{CNT} > 0) {$minmaxavg{HOUR}{"1Idle"}{AVG} /= $minmaxavg{HOUR}{"1Idle"}{CNT}}
if ($minmaxavg{HOUR}{"2IOWAIT"}{CNT} > 0) {$minmaxavg{HOUR}{"2IOWAIT"}{AVG} /= $minmaxavg{HOUR}{"2IOWAIT"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => '% CPU',
x_label_skip => 3,
line_width => 2,
title => 'CPU Usage in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Idle IOWAIT));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "cpu") {
my (@h,@p,@t);
my $cputotal_prev;
my $cpuidle_prev;
my $cpuiowait_prev;
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $cputotal eq "") {
$cputotal_prev = 0;
$cpuidle_prev = 0;
$cpuiowait_prev = 0;
push @p,undef;
push @t,undef;
} else {
my $idle_diff = $cpuidle - $cpuidle_prev;
my $iowait_diff = $cpuiowait - $cpuiowait_prev;
my $total_diff = $cputotal - $cputotal_prev;
if ($total_diff == 0) {
$cputotal_prev = 0;
$cpuidle_prev = 0;
$cpuiowait_prev = 0;
push @p,undef;
push @t,undef;
next;
}
my $idle_use = 100 - 100 * ($total_diff - $idle_diff) / $total_diff;
my $iowait_use = 100 - 100 * ($total_diff - $iowait_diff) / $total_diff;
$cpuidle_prev = $cpuidle;
$cpuiowait_prev = $cpuiowait;
$cputotal_prev = $cputotal;
push @p,$idle_use;
push @t,$iowait_use;
&minmaxavg("DAY","1Idle",$idle_use);
&minmaxavg("DAY","2IOWAIT",$iowait_use);
}
}
if ($minmaxavg{DAY}{"1Idle"}{CNT} > 0) {$minmaxavg{DAY}{"1Idle"}{AVG} /= $minmaxavg{DAY}{"1Idle"}{CNT}}
if ($minmaxavg{DAY}{"2IOWAIT"}{CNT} > 0) {$minmaxavg{DAY}{"2IOWAIT"}{AVG} /= $minmaxavg{DAY}{"2IOWAIT"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => '% CPU',
x_label_skip => 60,
title => 'CPU Usage in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Idle IOWAIT));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "cpu") {
my (@h,@p,@t);
my $cputotal_prev;
my $cpuidle_prev;
my $cpuiowait_prev;
$minmaxavg{WEEK}{"1Idle"}{MIN} = 100;
$minmaxavg{WEEK}{"1Idle"}{MAX} = 0;
$minmaxavg{WEEK}{"2IOWAIT"}{MIN} = 100;
$minmaxavg{WEEK}{"2IOWAIT"}{MAX} = 0;
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $idle_avg;
my $iowait_avg;
my $cnt_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $cputotal ne "") {
my $idle_diff = $cpuidle - $cpuidle_prev;
my $iowait_diff = $cpuiowait - $cpuiowait_prev;
my $total_diff = $cputotal - $cputotal_prev;
if ($total_diff == 0) {
$cputotal_prev = 0;
$cpuidle_prev = 0;
$cpuiowait_prev = 0;
next;
}
my $idle_use = 100 - 100 * ($total_diff - $idle_diff) / $total_diff;
my $iowait_use = 100 - 100 * ($total_diff - $iowait_diff) / $total_diff;
$cpuidle_prev = $cpuidle;
$cpuiowait_prev = $cpuiowait;
$cputotal_prev = $cputotal;
$idle_avg += $idle_use;
$iowait_avg += $iowait_use;
$cnt_avg++;
} else {
$cputotal_prev = 0;
$cpuidle_prev = 0;
$cpuiowait_prev = 0;
}
}
unless (defined $cnt_avg) {
push @p,undef;
push @t,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$idle_avg/$cnt_avg;
push @t,$iowait_avg/$cnt_avg;
&minmaxavg("WEEK","1Idle",($idle_avg/$cnt_avg));
&minmaxavg("WEEK","2IOWAIT",($iowait_avg/$cnt_avg));
}
}
if ($minmaxavg{WEEK}{"1Idle"}{CNT} > 0) {$minmaxavg{WEEK}{"1Idle"}{AVG} /= $minmaxavg{WEEK}{"1Idle"}{CNT}}
if ($minmaxavg{WEEK}{"2IOWAIT"}{CNT} > 0) {$minmaxavg{WEEK}{"2IOWAIT"}{AVG} /= $minmaxavg{WEEK}{"2IOWAIT"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => '% CPU',
x_label_skip => 24,
title => 'CPU Usage in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Idle IOWAIT));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "cpu") {
my (@h,@p,@t);
my $cputotal_prev;
my $cpuidle_prev;
my $cpuiowait_prev;
$minmaxavg{MONTH}{"1Idle"}{MIN} = 100;
$minmaxavg{MONTH}{"1Idle"}{MAX} = 0;
$minmaxavg{MONTH}{"2IOWAIT"}{MIN} = 100;
$minmaxavg{MONTH}{"2IOWAIT"}{MAX} = 0;
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $idle_avg;
my $iowait_avg;
my $cnt_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $cputotal ne "") {
my $idle_diff = $cpuidle - $cpuidle_prev;
my $iowait_diff = $cpuiowait - $cpuiowait_prev;
my $total_diff = $cputotal - $cputotal_prev;
if ($total_diff == 0) {
$cputotal_prev = 0;
$cpuidle_prev = 0;
$cpuiowait_prev = 0;
next;
}
my $idle_use = 100 - 100 * ($total_diff - $idle_diff) / $total_diff;
my $iowait_use = 100 - 100 * ($total_diff - $iowait_diff) / $total_diff;
$cpuidle_prev = $cpuidle;
$cpuiowait_prev = $cpuiowait;
$cputotal_prev = $cputotal;
$idle_avg += $idle_use;
$iowait_avg += $iowait_use;
$cnt_avg++;
} else {
$cputotal_prev = 0;
$cpuidle_prev = 0;
$cpuiowait_prev = 0;
}
}
unless (defined $cnt_avg) {
push @p,undef;
push @t,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$idle_avg/$cnt_avg;
push @t,$iowait_avg/$cnt_avg;
&minmaxavg("MONTH","1Idle",($idle_avg/$cnt_avg));
&minmaxavg("MONTH","2IOWAIT",($iowait_avg/$cnt_avg));
}
}
if ($minmaxavg{MONTH}{"1Idle"}{CNT} > 0) {$minmaxavg{MONTH}{"1Idle"}{AVG} /= $minmaxavg{MONTH}{"1Idle"}{CNT}}
if ($minmaxavg{MONTH}{"2IOWAIT"}{CNT} > 0) {$minmaxavg{MONTH}{"2IOWAIT"}{AVG} /= $minmaxavg{MONTH}{"2IOWAIT"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => '% CPU',
x_label_skip => 24,
title => "CPU Usage in last $system_maxdays days",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Idle IOWAIT));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mem") {
my (@h,@p,@t,@c,@a,@b);
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $memtotal eq "") {
push @p,undef;
push @t,undef;
push @c,undef;
push @a,undef;
push @b,undef;
} else {
$memfree = $memtotal - $memfree;
$memswapfree = $memswaptotal - $memswapfree;
push @p,$memtotal;
push @t,$memfree;
push @c,$memcached;
push @a,$memswaptotal;
push @b,$memswapfree;
&minmaxavg("HOUR","1Used",$memfree);
&minmaxavg("HOUR","2Cached",$memcached);
&minmaxavg("HOUR","3SwapUsed",$memswapfree);
}
}
if ($minmaxavg{HOUR}{"1Used"}{CNT} > 0) {$minmaxavg{HOUR}{"1Used"}{AVG} /= $minmaxavg{HOUR}{"1Used"}{CNT}}
if ($minmaxavg{HOUR}{"2Cached"}{CNT} > 0) {$minmaxavg{HOUR}{"2Cached"}{AVG} /= $minmaxavg{HOUR}{"2Cached"}{CNT}}
if ($minmaxavg{HOUR}{"3SwapUsed"}{CNT} > 0) {$minmaxavg{HOUR}{"3SwapUsed"}{AVG} /= $minmaxavg{HOUR}{"3SwapUsed"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t],[reverse @c],[reverse @a],[reverse @b]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred purple blue green) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => 'Memory (KB)',
x_label_skip => 3,
title => 'Memory Usage in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Total Used Cached SwapTotal SwapUsed));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mem") {
my (@h,@p,@c,@t,@a,@b);
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $memtotal eq "") {
push @p,undef;
push @t,undef;
push @c,undef;
push @a,undef;
push @b,undef;
} else {
$memfree = $memtotal - $memfree;
$memswapfree = $memswaptotal - $memswapfree;
push @p,$memtotal;
push @t,$memfree;
push @c,$memcached;
push @a,$memswaptotal;
push @b,$memswapfree;
&minmaxavg("DAY","1Used",$memfree);
&minmaxavg("DAY","2Cached",$memcached);
&minmaxavg("DAY","3SwapUsed",$memswapfree);
}
}
if ($minmaxavg{DAY}{"1Used"}{CNT} > 0) {$minmaxavg{DAY}{"1Used"}{AVG} /= $minmaxavg{DAY}{"1Used"}{CNT}}
if ($minmaxavg{DAY}{"2Cached"}{CNT} > 0) {$minmaxavg{DAY}{"2Cached"}{AVG} /= $minmaxavg{DAY}{"2Cached"}{CNT}}
if ($minmaxavg{DAY}{"3SwapUsed"}{CNT} > 0) {$minmaxavg{DAY}{"3SwapUsed"}{AVG} /= $minmaxavg{DAY}{"3SwapUsed"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t],[reverse @c],[reverse @a],[reverse @b]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred purple blue green) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => 'Memory (KB)',
x_label_skip => 60,
title => 'Memory Usage in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Total Used Cached SwapTotal SwapUsed));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mem") {
my (@h,@p,@t,@c,@a,@b);
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $memtotal_avg;
my $memfree_avg;
my $memcached_avg;
my $memswaptotal_avg;
my $memswapfree_avg;
my $cnt_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $memtotal ne "") {
$memfree = $memtotal - $memfree;
$memswapfree = $memswaptotal - $memswapfree;
$memtotal_avg += $memtotal;
$memfree_avg += $memfree;
$memcached_avg += $memcached;
$memswaptotal_avg += $memswaptotal;
$memswapfree_avg += $memswapfree;
$cnt_avg++;
}
}
unless (defined $cnt_avg) {
push @p,undef;
push @t,undef;
push @c,undef;
push @a,undef;
push @b,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$memtotal_avg/$cnt_avg;
push @t,$memfree_avg/$cnt_avg;
push @c,$memcached_avg/$cnt_avg;
push @a,$memswaptotal_avg/$cnt_avg;
push @b,$memswapfree_avg/$cnt_avg;
&minmaxavg("WEEK","1Used",($memfree_avg/$cnt_avg));
&minmaxavg("WEEK","2Cached",($memcached_avg/$cnt_avg));
&minmaxavg("WEEK","3SwapUsed",($memswapfree_avg/$cnt_avg));
}
}
if ($minmaxavg{WEEK}{"1Used"}{CNT} > 0) {$minmaxavg{WEEK}{"1Used"}{AVG} /= $minmaxavg{WEEK}{"1Used"}{CNT}}
if ($minmaxavg{WEEK}{"2Cached"}{CNT} > 0) {$minmaxavg{WEEK}{"2Cached"}{AVG} /= $minmaxavg{WEEK}{"2Cached"}{CNT}}
if ($minmaxavg{WEEK}{"3SwapUsed"}{CNT} > 0) {$minmaxavg{WEEK}{"3SwapUsed"}{AVG} /= $minmaxavg{WEEK}{"3SwapUsed"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t],[reverse @c],[reverse @a],[reverse @b]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred purple blue green) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Memory (KB)',
x_label_skip => 24,
title => 'Memory Usage in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Total Used Cached SwapTotal SwapUsed));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mem") {
my (@h,@p,@t,@c,@a,@b);
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $memtotal_avg;
my $memfree_avg;
my $memcached_avg;
my $memswaptotal_avg;
my $memswapfree_avg;
my $cnt_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $memtotal ne "") {
$memfree = $memtotal - $memfree;
$memswapfree = $memswaptotal - $memswapfree;
$memtotal_avg += $memtotal;
$memfree_avg += $memfree;
$memcached_avg += $memcached;
$memswaptotal_avg += $memswaptotal;
$memswapfree_avg += $memswapfree;
$cnt_avg++;
}
}
unless (defined $cnt_avg) {
push @p,undef;
push @t,undef;
push @c,undef;
push @a,undef;
push @b,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$memtotal_avg/$cnt_avg;
push @t,$memfree_avg/$cnt_avg;
push @c,$memcached_avg/$cnt_avg;
push @a,$memswaptotal_avg/$cnt_avg;
push @b,$memswapfree_avg/$cnt_avg;
&minmaxavg("MONTH","1Used",($memfree_avg/$cnt_avg));
&minmaxavg("MONTH","2Cached",($memcached_avg/$cnt_avg));
&minmaxavg("MONTH","3SwapUsed",($memswapfree_avg/$cnt_avg));
}
}
if ($minmaxavg{MONTH}{"1Used"}{CNT} > 0) {$minmaxavg{MONTH}{"1Used"}{AVG} /= $minmaxavg{MONTH}{"1Used"}{CNT}}
if ($minmaxavg{MONTH}{"2Cached"}{CNT} > 0) {$minmaxavg{MONTH}{"2Cached"}{AVG} /= $minmaxavg{MONTH}{"2Cached"}{CNT}}
if ($minmaxavg{MONTH}{"3SwapUsed"}{CNT} > 0) {$minmaxavg{MONTH}{"3SwapUsed"}{AVG} /= $minmaxavg{MONTH}{"3SwapUsed"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t],[reverse @c],[reverse @a],[reverse @b]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred purple blue green) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Memory (Bytes)',
x_label_skip => 24,
title => "Memory Usage in last $system_maxdays days",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Total Used Cached SwapTotal SwapUsed));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "load") {
my (@h,@p,@t,@a);
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $load1 eq "") {
push @p,undef;
push @t,undef;
push @a,undef;
} else {
push @p,$load1;
push @t,$load5;
push @a,$load15;
&minmaxavg("HOUR","1Load_1",$load1);
&minmaxavg("HOUR","2Load_5",$load5);
&minmaxavg("HOUR","3Load_15",$load15);
}
}
if ($minmaxavg{HOUR}{"1Load_1"}{CNT} > 0) {$minmaxavg{HOUR}{"1Load_1"}{AVG} /= $minmaxavg{HOUR}{"1Load_1"}{CNT}}
if ($minmaxavg{HOUR}{"2Load_5"}{CNT} > 0) {$minmaxavg{HOUR}{"2Load_5"}{AVG} /= $minmaxavg{HOUR}{"2Load_5"}{CNT}}
if ($minmaxavg{HOUR}{"3Load_15"}{CNT} > 0) {$minmaxavg{HOUR}{"3Load_15"}{AVG} /= $minmaxavg{HOUR}{"3Load_15"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t],[reverse @a]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred purple) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => 'Load Average',
x_label_skip => 3,
title => 'Load Averages in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Load_1 Load_5 Load_15));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "load") {
my (@h,@p,@t,@a);
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $load1 eq "") {
push @p,undef;
push @t,undef;
push @a,undef;
} else {
push @p,$load1;
push @t,$load5;
push @a,$load15;
&minmaxavg("DAY","1Load_1",$load1);
&minmaxavg("DAY","2Load_5",$load5);
&minmaxavg("DAY","3Load_15",$load15);
}
}
if ($minmaxavg{DAY}{"1Load_1"}{CNT} > 0) {$minmaxavg{DAY}{"1Load_1"}{AVG} /= $minmaxavg{DAY}{"1Load_1"}{CNT}}
if ($minmaxavg{DAY}{"2Load_5"}{CNT} > 0) {$minmaxavg{DAY}{"2Load_5"}{AVG} /= $minmaxavg{DAY}{"2Load_5"}{CNT}}
if ($minmaxavg{DAY}{"3Load_15"}{CNT} > 0) {$minmaxavg{DAY}{"3Load_15"}{AVG} /= $minmaxavg{DAY}{"3Load_15"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t],[reverse @a]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred purple) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => 'Load Average',
x_label_skip => 60,
title => 'Load Averages in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Load_1 Load_5 Load_15));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "load") {
my (@h,@p,@t,@a);
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $load1_avg;
my $load5_avg;
my $load15_avg;
my $cnt_avg = 0;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $load1 ne "") {
$load1_avg += $load1;
$load5_avg += $load5;
$load15_avg += $load15;
$cnt_avg++;
}
}
unless (defined $cnt_avg) {
push @p,undef;
push @t,undef;
push @a,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$load1_avg/$cnt_avg;
push @t,$load5_avg/$cnt_avg;
push @a,$load15_avg/$cnt_avg;
&minmaxavg("WEEK","1Load_1",($load1_avg/$cnt_avg));
&minmaxavg("WEEK","2Load_5",($load5_avg/$cnt_avg));
&minmaxavg("WEEK","3Load_15",($load15_avg/$cnt_avg));
}
}
if ($minmaxavg{WEEK}{"1Load_1"}{CNT} > 0) {$minmaxavg{WEEK}{"1Load_1"}{AVG} /= $minmaxavg{WEEK}{"1Load_1"}{CNT}}
if ($minmaxavg{WEEK}{"2Load_5"}{CNT} > 0) {$minmaxavg{WEEK}{"2Load_5"}{AVG} /= $minmaxavg{WEEK}{"2Load_5"}{CNT}}
if ($minmaxavg{WEEK}{"3Load_15"}{CNT} > 0) {$minmaxavg{WEEK}{"3Load_15"}{AVG} /= $minmaxavg{WEEK}{"3Load_15"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t],[reverse @a]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred purple) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Load Average',
x_label_skip => 24,
title => 'Load Averages in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Load_1 Load_5 Load_15));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "load") {
my (@h,@p,@t,@a);
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $load1_avg;
my $load5_avg;
my $load15_avg;
my $cnt_avg = 0;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $load1 ne "") {
$load1_avg += $load1;
$load5_avg += $load5;
$load15_avg += $load15;
$cnt_avg++;
}
}
unless (defined $cnt_avg) {
push @p,undef;
push @t,undef;
push @a,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$load1_avg/$cnt_avg;
push @t,$load5_avg/$cnt_avg;
push @a,$load15_avg/$cnt_avg;
&minmaxavg("MONTH","1Load_1",($load1_avg/$cnt_avg));
&minmaxavg("MONTH","2Load_5",($load5_avg/$cnt_avg));
&minmaxavg("MONTH","3Load_15",($load15_avg/$cnt_avg));
}
}
if ($minmaxavg{MONTH}{"1Load_1"}{CNT} > 0) {$minmaxavg{MONTH}{"1Load_1"}{AVG} /= $minmaxavg{MONTH}{"1Load_1"}{CNT}}
if ($minmaxavg{MONTH}{"2Load_5"}{CNT} > 0) {$minmaxavg{MONTH}{"2Load_5"}{AVG} /= $minmaxavg{MONTH}{"2Load_5"}{CNT}}
if ($minmaxavg{MONTH}{"3Load_15"}{CNT} > 0) {$minmaxavg{MONTH}{"3Load_15"}{AVG} /= $minmaxavg{MONTH}{"3Load_15"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t],[reverse @a]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred purple blue) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Load Average',
x_label_skip => 24,
title => "Load Averages in last $system_maxdays days",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Load_1 Load_5 Load_15));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "net") {
my (@h,@p,@t);
my $netin_prev;
my $netout_prev;
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $netin eq "") {
$netin_prev = 0;
$netout_prev = 0;
push @p,undef;
push @t,undef;
} else {
if ($netin_prev < $netin or $netin eq "") {
push @p,undef;
$netin_prev = $netin;
} else {
my $netin_val = ($netin_prev - $netin) / 60;
push @p,$netin_val;
$netin_prev = $netin;
&minmaxavg("HOUR","1Inbound",$netin_val);
}
if ($netout_prev < $netout or $netout eq "") {
push @t,undef;
$netout_prev = $netout;
} else {
my $netout_val = ($netout_prev - $netout) / 60;
push @t,$netout_val;
$netout_prev = $netout;
&minmaxavg("HOUR","2Outbound",$netout_val);
}
}
}
if ($minmaxavg{HOUR}{"1Inbound"}{CNT} > 0) {$minmaxavg{HOUR}{"1Inbound"}{AVG} /= $minmaxavg{HOUR}{"1Inbound"}{CNT}}
if ($minmaxavg{HOUR}{"2Outbound"}{CNT} > 0) {$minmaxavg{HOUR}{"2Outbound"}{AVG} /= $minmaxavg{HOUR}{"2Outbound"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => 'Bytes/Second',
x_label_skip => 3,
title => 'Network Usage in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Inbound Outbound));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "net") {
my (@h,@p,@t);
my $netin_prev;
my $netout_prev;
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $netin eq "") {
$netin_prev = 0;
$netout_prev = 0;
push @p,undef;
push @t,undef;
} else {
if ($netin_prev < $netin or $netin eq "") {
push @p,undef;
$netin_prev = $netin;
} else {
my $netin_val = ($netin_prev - $netin) / 60;
push @p,$netin_val;
$netin_prev = $netin;
&minmaxavg("DAY","1Inbound",$netin_val);
}
if ($netout_prev < $netout or $netout eq "") {
push @t,undef;
$netout_prev = $netout;
} else {
my $netout_val = ($netout_prev - $netout) / 60;
push @t,$netout_val;
$netout_prev = $netout;
&minmaxavg("DAY","2Outbound",$netout_val);
}
}
}
if ($minmaxavg{DAY}{"1Inbound"}{CNT} > 0) {$minmaxavg{DAY}{"1Inbound"}{AVG} /= $minmaxavg{DAY}{"1Inbound"}{CNT}}
if ($minmaxavg{DAY}{"2Outbound"}{CNT} > 0) {$minmaxavg{DAY}{"2Outbound"}{AVG} /= $minmaxavg{DAY}{"2Outbound"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => 'Bytes/Second',
x_label_skip => 60,
title => 'Network Usage in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Inbound Outbound));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "net") {
my (@h,@p,@t);
my $netin_prev;
my $netout_prev;
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $netin_avg;
my $netout_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time eq "" or $netin eq "") {
$netin_prev = 0;
$netout_prev = 0;
} else {
if ($netin_prev < $netin or $netin eq "") {
$netin_prev = $netin;
} else {
my $netin_val = ($netin_prev - $netin) / 60;
$netin_avg = $netin_avg + $netin_val;
$netin_prev = $netin;
}
if ($netout_prev < $netout or $netout eq "") {
$netout_prev = $netout;
} else {
my $netout_val = ($netout_prev - $netout) / 60;
$netout_avg = $netout_avg + $netout_val;
$netout_prev = $netout;
}
}
}
unless (defined $netin_avg) {
push @p,undef;
} else {
push @p,($netin_avg/60);
&minmaxavg("WEEK","1Inbound",($netin_avg/60));
}
unless (defined $netout_avg) {
push @t,undef;
} else {
push @t,($netout_avg/60);
&minmaxavg("WEEK","2Outbound",($netout_avg/60));
}
}
if ($minmaxavg{WEEK}{"1Inbound"}{CNT} > 0) {$minmaxavg{WEEK}{"1Inbound"}{AVG} /= $minmaxavg{WEEK}{"1Inbound"}{CNT}}
if ($minmaxavg{WEEK}{"2Outbound"}{CNT} > 0) {$minmaxavg{WEEK}{"2Outbound"}{AVG} /= $minmaxavg{WEEK}{"2Outbound"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Bytes/Second',
x_label_skip => 24,
title => 'Network Usage in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Inbound Outbound));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "net") {
my (@h,@p,@t);
my $netin_prev;
my $netout_prev;
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $netin_avg;
my $netout_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time eq "" or $netin eq "") {
$netin_prev = 0;
$netout_prev = 0;
} else {
if ($netin_prev < $netin or $netin eq "") {
$netin_prev = $netin;
} else {
my $netin_val = ($netin_prev - $netin) / 60;
$netin_avg = $netin_avg + $netin_val;
$netin_prev = $netin;
}
if ($netout_prev < $netout or $netout eq "") {
$netout_prev = $netout;
} else {
my $netout_val = ($netout_prev - $netout) / 60;
$netout_avg = $netout_avg + $netout_val;
$netout_prev = $netout;
}
}
}
unless (defined $netin_avg) {
push @p,undef;
} else {
push @p,($netin_avg/60);
&minmaxavg("MONTH","1Inbound",($netin_avg/60));
}
unless (defined $netout_avg) {
push @t,undef;
} else {
push @t,($netout_avg/60);
&minmaxavg("MONTH","2Outbound",($netout_avg/60));
}
}
if ($minmaxavg{MONTH}{"1Inbound"}{CNT} > 0) {$minmaxavg{MONTH}{"1Inbound"}{AVG} /= $minmaxavg{MONTH}{"1Inbound"}{CNT}}
if ($minmaxavg{MONTH}{"2Outbound"}{CNT} > 0) {$minmaxavg{MONTH}{"2Outbound"}{AVG} /= $minmaxavg{MONTH}{"2Outbound"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Bytes/Second',
x_label_skip => 24,
title => "Network Usage in last $system_maxdays days",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Inbound Outbound));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "disk") {
my (@h,@p,@t);
my $diskread_prev;
my $diskwrite_prev;
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $diskread eq "") {
$diskread_prev = 0;
$diskwrite_prev = 0;
push @p,undef;
push @t,undef;
} else {
if ($diskread_prev < $diskread or $diskread eq "") {
push @p,undef;
$diskread_prev = $diskread;
} else {
my $diskread_val = ($diskread_prev - $diskread) / 60;
push @p,$diskread_val;
$diskread_prev = $diskread;
&minmaxavg("HOUR","1Reads",$diskread_val);
}
if ($diskwrite_prev < $diskwrite or $diskwrite eq "") {
push @t,undef;
$diskwrite_prev = $diskwrite;
} else {
my $diskwrite_val = ($diskwrite_prev - $diskwrite) / 60;
push @t,$diskwrite_val;
$diskwrite_prev = $diskwrite;
&minmaxavg("HOUR","2Writes",$diskwrite_val);
}
}
}
if ($minmaxavg{HOUR}{"1Reads"}{CNT} > 0) {$minmaxavg{HOUR}{"1Reads"}{AVG} /= $minmaxavg{HOUR}{"1Reads"}{CNT}}
if ($minmaxavg{HOUR}{"2Writes"}{CNT} > 0) {$minmaxavg{HOUR}{"2Writes"}{AVG} /= $minmaxavg{HOUR}{"2Writes"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => 'IO/Second',
x_label_skip => 3,
title => 'Disk Usage in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Reads Writes));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "disk") {
my (@h,@p,@t);
my $diskread_prev;
my $diskwrite_prev;
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $diskread eq "") {
$diskread_prev = 0;
$diskwrite_prev = 0;
push @p,undef;
push @t,undef;
} else {
if ($diskread_prev < $diskread or $diskread eq "") {
push @p,undef;
$diskread_prev = $diskread;
} else {
my $diskread_val = ($diskread_prev - $diskread) / 60;
push @p,$diskread_val;
$diskread_prev = $diskread;
&minmaxavg("DAY","1Reads",$diskread_val);
}
if ($diskwrite_prev < $diskwrite or $diskwrite eq "") {
push @t,undef;
$diskwrite_prev = $diskwrite;
} else {
my $diskwrite_val = ($diskwrite_prev - $diskwrite) / 60;
push @t,$diskwrite_val;
$diskwrite_prev = $diskwrite;
&minmaxavg("DAY","2Writes",$diskwrite_val);
}
}
}
if ($minmaxavg{DAY}{"1Reads"}{CNT} > 0) {$minmaxavg{DAY}{"1Reads"}{AVG} /= $minmaxavg{DAY}{"1Reads"}{CNT}}
if ($minmaxavg{DAY}{"2Writes"}{CNT} > 0) {$minmaxavg{DAY}{"2Writes"}{AVG} /= $minmaxavg{DAY}{"2Writes"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => 'IO/Second',
x_label_skip => 60,
title => 'Disk Usage in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Reads Writes));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "disk") {
my (@h,@p,@t);
my $diskread_prev;
my $diskwrite_prev;
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $diskread_avg;
my $diskwrite_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time eq "" or $diskread eq "") {
$diskread_prev = 0;
$diskwrite_prev = 0;
} else {
if ($diskread_prev < $diskread or $diskread eq "") {
$diskread_prev = $diskread;
} else {
$diskread_avg = $diskread_avg + ($diskread_prev - $diskread)/60;
$diskread_prev = $diskread;
}
if ($diskwrite_prev < $diskwrite or $diskwrite eq "") {
$diskwrite_prev = $diskwrite;
} else {
$diskwrite_avg = $diskwrite_avg + ($diskwrite_prev - $diskwrite)/60;
$diskwrite_prev = $diskwrite;
}
}
}
unless (defined $diskread_avg) {
push @p,undef;
} else {
push @p,($diskread_avg/60);
&minmaxavg("WEEK","1Reads",($diskread_avg/60));
}
unless (defined $diskwrite_avg) {
push @t,undef;
} else {
push @t,($diskwrite_avg/60);
&minmaxavg("WEEK","2Writes",($diskwrite_avg/60));
}
}
if ($minmaxavg{WEEK}{"1Reads"}{CNT} > 0) {$minmaxavg{WEEK}{"1Reads"}{AVG} /= $minmaxavg{WEEK}{"1Reads"}{CNT}}
if ($minmaxavg{WEEK}{"2Writes"}{CNT} > 0) {$minmaxavg{WEEK}{"2Writes"}{AVG} /= $minmaxavg{WEEK}{"2Writes"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'IO/Second',
x_label_skip => 24,
title => 'Disk Usage in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Reads Writes));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "disk") {
my (@h,@p,@t);
my $diskread_prev;
my $diskwrite_prev;
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $diskread_avg;
my $diskwrite_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time eq "" or $diskread eq "") {
$diskread_prev = 0;
$diskwrite_prev = 0;
} else {
if ($diskread_prev < $diskread or $diskread eq "") {
$diskread_prev = $diskread;
} else {
$diskread_avg = $diskread_avg + ($diskread_prev - $diskread)/60;
$diskread_prev = $diskread;
}
if ($diskwrite_prev < $diskwrite or $diskwrite eq "") {
$diskwrite_prev = $diskwrite;
} else {
$diskwrite_avg = $diskwrite_avg + ($diskwrite_prev - $diskwrite)/60;
$diskwrite_prev = $diskwrite;
}
}
}
unless (defined $diskread_avg) {
push @p,undef;
} else {
push @p,($diskread_avg/60);
&minmaxavg("MONTH","1Reads",($diskread_avg/60));
}
unless (defined $diskwrite_avg) {
push @t,undef;
} else {
push @t,($diskwrite_avg/60);
&minmaxavg("MONTH","2Writes",($diskwrite_avg/60));
}
}
if ($minmaxavg{MONTH}{"1Reads"}{CNT} > 0) {$minmaxavg{MONTH}{"1Reads"}{AVG} /= $minmaxavg{MONTH}{"1Reads"}{CNT}}
if ($minmaxavg{MONTH}{"2Writes"}{CNT} > 0) {$minmaxavg{MONTH}{"2Writes"}{AVG} /= $minmaxavg{MONTH}{"2Writes"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'IO/Second',
x_label_skip => 24,
title => "Disk Usage in last $system_maxdays days",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Reads Writes));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "email") {
my (@h,@p,@t);
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $mailin eq "") {
push @p,undef;
push @t,undef;
} else {
push @p,$mailin;
push @t,$mailout;
&minmaxavg("HOUR","1Received",$mailin);
&minmaxavg("HOUR","2Sent",$mailout);
}
}
if ($minmaxavg{HOUR}{"1Received"}{CNT} > 0) {$minmaxavg{HOUR}{"1Received"}{AVG} /= $minmaxavg{HOUR}{"1Received"}{CNT}}
if ($minmaxavg{HOUR}{"2Sent"}{CNT} > 0) {$minmaxavg{HOUR}{"2Sent"}{AVG} /= $minmaxavg{HOUR}{"2Sent"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => 'Emails',
x_label_skip => 3,
title => 'Email Usage in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Received Sent));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "email") {
my (@h,@p,@t);
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $mailin eq "") {
push @p,undef;
push @t,undef;
} else {
push @p,$mailin;
push @t,$mailout;
&minmaxavg("DAY","1Received",$mailin);
&minmaxavg("DAY","2Sent",$mailout);
}
}
if ($minmaxavg{DAY}{"1Received"}{CNT} > 0) {$minmaxavg{DAY}{"1Received"}{AVG} /= $minmaxavg{DAY}{"1Received"}{CNT}}
if ($minmaxavg{DAY}{"2Sent"}{CNT} > 0) {$minmaxavg{DAY}{"2Sent"}{AVG} /= $minmaxavg{DAY}{"2Sent"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred purple) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => 'Emails',
x_label_skip => 60,
title => 'Email Usage in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Received Sent));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "email") {
my (@h,@p,@t);
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $mailin_avg;
my $mailout_avg;
my $cnt_avg = 0;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $mailin ne "") {
$mailin_avg += $mailin;
$mailout_avg += $mailout;
$cnt_avg++;
}
}
unless (defined $cnt_avg) {
push @p,undef;
push @t,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$mailin_avg/$cnt_avg;
push @t,$mailout_avg/$cnt_avg;
&minmaxavg("WEEK","1Received",($mailin_avg/$cnt_avg));
&minmaxavg("WEEK","2Sent",($mailout_avg/$cnt_avg));
}
}
if ($minmaxavg{WEEK}{"1Received"}{CNT} > 0) {$minmaxavg{WEEK}{"1Received"}{AVG} /= $minmaxavg{WEEK}{"1Received"}{CNT}}
if ($minmaxavg{WEEK}{"2Sent"}{CNT} > 0) {$minmaxavg{WEEK}{"2Sent"}{AVG} /= $minmaxavg{WEEK}{"2Sent"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Emails',
x_label_skip => 24,
title => 'Email Usage in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Received Sent));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "email") {
my (@h,@p,@t);
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $mailin_avg;
my $mailout_avg;
my $cnt_avg = 0;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $mailin ne "") {
$mailin_avg += $mailin;
$mailout_avg += $mailout;
$cnt_avg++;
}
}
unless (defined $cnt_avg) {
push @p,undef;
push @t,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$mailin_avg/$cnt_avg;
push @t,$mailout_avg/$cnt_avg;
&minmaxavg("MONTH","1Received",($mailin_avg/$cnt_avg));
&minmaxavg("MONTH","2Sent",($mailout_avg/$cnt_avg));
}
}
if ($minmaxavg{MONTH}{"1Received"}{CNT} > 0) {$minmaxavg{MONTH}{"1Received"}{AVG} /= $minmaxavg{MONTH}{"1Received"}{CNT}}
if ($minmaxavg{MONTH}{"2Sent"}{CNT} > 0) {$minmaxavg{MONTH}{"2Sent"}{AVG} /= $minmaxavg{MONTH}{"2Sent"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Emails',
x_label_skip => 24,
title => "Email Usage in last $system_maxdays",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Received Sent));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "temp") {
my (@h,@p);
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $cputemp eq "") {
push @p,undef;
} else {
push @p,$cputemp;
&minmaxavg("HOUR","1CPU",$cputemp);
}
}
if ($minmaxavg{HOUR}{"1CPU"}{CNT} > 0) {$minmaxavg{HOUR}{"1CPU"}{AVG} /= $minmaxavg{HOUR}{"1CPU"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => 'Centigrade',
x_label_skip => 3,
title => 'CPU Temp in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend("Highest Core Temperature");
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "temp") {
my (@h,@p);
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $cputemp eq "") {
push @p,undef;
} else {
push @p,$cputemp;
&minmaxavg("DAY","1CPU",$cputemp);
}
}
if ($minmaxavg{DAY}{"1CPU"}{CNT} > 0) {$minmaxavg{DAY}{"1CPU"}{AVG} /= $minmaxavg{DAY}{"1CPU"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred purple) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => 'Centigrade',
x_label_skip => 60,
title => 'CPU Temp in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend("Highest Core Temperature");
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "temp") {
my (@h,@p);
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $cputemp_avg;
my $cnt_avg = 0;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $cputemp ne "") {
$cputemp_avg += $cputemp;
$cnt_avg++;
}
}
unless (defined $cnt_avg) {
push @p,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$cputemp_avg/$cnt_avg;
&minmaxavg("WEEK","1CPU",($cputemp_avg/$cnt_avg));
}
}
if ($minmaxavg{WEEK}{"1CPU"}{CNT} > 0) {$minmaxavg{WEEK}{"1CPU"}{AVG} /= $minmaxavg{WEEK}{"1CPU"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Centigrade',
x_label_skip => 24,
title => 'CPU Temp in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend("Highest Core Temperature");
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "temp") {
my (@h,@p);
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $cputemp_avg;
my $cnt_avg = 0;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $cputemp ne "") {
$cputemp_avg += $cputemp;
$cnt_avg++;
}
}
unless (defined $cnt_avg) {
push @p,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$cputemp_avg/$cnt_avg;
&minmaxavg("MONTH","1CPU",($cputemp_avg/$cnt_avg));
}
}
if ($minmaxavg{MONTH}{"1CPU"}{CNT} > 0) {$minmaxavg{MONTH}{"1CPU"}{AVG} /= $minmaxavg{MONTH}{"1CPU"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Centigrade',
x_label_skip => 24,
title => "CPU Temp in last $system_maxdays days",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend("Highest Core Temperature");
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqldata") {
my (@h,@p,@t);
my $mysqlin_prev;
my $mysqlout_prev;
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $mysqlin eq "") {
$mysqlin_prev = 0;
$mysqlout_prev = 0;
push @p,undef;
push @t,undef;
} else {
if ($mysqlin_prev < $mysqlin or $mysqlin eq "") {
push @p,undef;
$mysqlin_prev = $mysqlin;
} else {
my $mysqlin_val = ($mysqlin_prev - $mysqlin) / 60;
push @p,$mysqlin_val;
$mysqlin_prev = $mysqlin;
&minmaxavg("HOUR","1Inbound",$mysqlin_val);
}
if ($mysqlout_prev < $mysqlout or $mysqlout eq "") {
push @t,undef;
$mysqlout_prev = $mysqlout;
} else {
my $mysqlout_val = ($mysqlout_prev - $mysqlout) / 60;
push @t,$mysqlout_val;
$mysqlout_prev = $mysqlout;
&minmaxavg("HOUR","2Outbound",$mysqlout_val);
}
}
}
if ($minmaxavg{HOUR}{"1Inbound"}{CNT} > 0) {$minmaxavg{HOUR}{"1Inbound"}{AVG} /= $minmaxavg{HOUR}{"1Inbound"}{CNT}}
if ($minmaxavg{HOUR}{"2Outbound"}{CNT} > 0) {$minmaxavg{HOUR}{"2Outbound"}{AVG} /= $minmaxavg{HOUR}{"2Outbound"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => 'Bytes/Second',
x_label_skip => 3,
title => 'MySQL Data in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Inbound Outbound));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqldata") {
my (@h,@p,@t);
my $mysqlin_prev;
my $mysqlout_prev;
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $mysqlin eq "") {
$mysqlin_prev = 0;
$mysqlout_prev = 0;
push @p,undef;
push @t,undef;
} else {
if ($mysqlin_prev < $mysqlin or $mysqlin eq "") {
push @p,undef;
$mysqlin_prev = $mysqlin;
} else {
my $mysqlin_val = ($mysqlin_prev - $mysqlin) / 60;
push @p,$mysqlin_val;
$mysqlin_prev = $mysqlin;
&minmaxavg("DAY","1Inbound",$mysqlin_val);
}
if ($mysqlout_prev < $mysqlout or $mysqlout eq "") {
push @t,undef;
$mysqlout_prev = $mysqlout;
} else {
my $mysqlout_val = ($mysqlout_prev - $mysqlout) / 60;
push @t,$mysqlout_val;
$mysqlout_prev = $mysqlout;
&minmaxavg("DAY","2Outbound",$mysqlout_val);
}
}
}
if ($minmaxavg{DAY}{"1Inbound"}{CNT} > 0) {$minmaxavg{DAY}{"1Inbound"}{AVG} /= $minmaxavg{DAY}{"1Inbound"}{CNT}}
if ($minmaxavg{DAY}{"2Outbound"}{CNT} > 0) {$minmaxavg{DAY}{"2Outbound"}{AVG} /= $minmaxavg{DAY}{"2Outbound"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => 'Bytes/Second',
x_label_skip => 60,
title => 'MySQL Data in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Inbound Outbound));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqldata") {
my (@h,@p,@t);
my $mysqlin_prev;
my $mysqlout_prev;
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $mysqlin_avg;
my $mysqlout_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time eq "" or $mysqlin eq "") {
$mysqlin_prev = 0;
$mysqlout_prev = 0;
} else {
if ($mysqlin_prev < $mysqlin or $mysqlin eq "") {
$mysqlin_prev = $mysqlin;
} else {
my $mysqlin_val = ($mysqlin_prev - $mysqlin) / 60;
$mysqlin_avg = $mysqlin_avg + $mysqlin_val;
$mysqlin_prev = $mysqlin;
}
if ($mysqlout_prev < $mysqlout or $mysqlout eq "") {
$mysqlout_prev = $mysqlout;
} else {
my $mysqlout_val = ($mysqlout_prev - $mysqlout) / 60;
$mysqlout_avg = $mysqlout_avg + $mysqlout_val;
$mysqlout_prev = $mysqlout;
}
}
}
unless (defined $mysqlin_avg) {
push @p,undef;
} else {
push @p,($mysqlin_avg/60);
&minmaxavg("WEEK","1Inbound",($mysqlin_avg/60));
}
unless (defined $mysqlout_avg) {
push @t,undef;
} else {
push @t,($mysqlout_avg/60);
&minmaxavg("WEEK","2Outbound",($mysqlout_avg/60));
}
}
if ($minmaxavg{WEEK}{"1Inbound"}{CNT} > 0) {$minmaxavg{WEEK}{"1Inbound"}{AVG} /= $minmaxavg{WEEK}{"1Inbound"}{CNT}}
if ($minmaxavg{WEEK}{"2Outbound"}{CNT} > 0) {$minmaxavg{WEEK}{"2Outbound"}{AVG} /= $minmaxavg{WEEK}{"2Outbound"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Bytes/Second',
x_label_skip => 24,
title => 'MySQL Data in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Inbound Outbound));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqldata") {
my (@h,@p,@t);
my $mysqlin_prev;
my $mysqlout_prev;
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $mysqlin_avg;
my $mysqlout_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time eq "" or $mysqlin eq "") {
$mysqlin_prev = 0;
$mysqlout_prev = 0;
} else {
if ($mysqlin_prev < $mysqlin or $mysqlin eq "") {
$mysqlin_prev = $mysqlin;
} else {
my $mysqlin_val = ($mysqlin_prev - $mysqlin) / 60;
$mysqlin_avg = $mysqlin_avg + $mysqlin_val;
$mysqlin_prev = $mysqlin;
}
if ($mysqlout_prev < $mysqlout or $mysqlout eq "") {
$mysqlout_prev = $mysqlout;
} else {
my $mysqlout_val = ($mysqlout_prev - $mysqlout) / 60;
$mysqlout_avg = $mysqlout_avg + $mysqlout_val;
$mysqlout_prev = $mysqlout;
}
}
}
unless (defined $mysqlin_avg) {
push @p,undef;
} else {
push @p,($mysqlin_avg/60);
&minmaxavg("MONTH","1Inbound",($mysqlin_avg/60));
}
unless (defined $mysqlout_avg) {
push @t,undef;
} else {
push @t,($mysqlout_avg/60);
&minmaxavg("MONTH","2Outbound",($mysqlout_avg/60));
}
}
if ($minmaxavg{MONTH}{"1Inbound"}{CNT} > 0) {$minmaxavg{MONTH}{"1Inbound"}{AVG} /= $minmaxavg{MONTH}{"1Inbound"}{CNT}}
if ($minmaxavg{MONTH}{"2Outbound"}{CNT}) {$minmaxavg{MONTH}{"2Outbound"}{AVG} /= $minmaxavg{MONTH}{"2Outbound"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Bytes/Second',
x_label_skip => 24,
title => "MySQL Data in last $system_maxdays days",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Inbound Outbound));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqlqueries") {
my (@h,@p,@t);
my $mysqlq_prev;
my $mysqlsq_prev;
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $mysqlq eq "") {
$mysqlq_prev = 0;
push @p,undef;
} else {
if ($mysqlq_prev < $mysqlq or $mysqlq eq "") {
push @p,undef;
$mysqlq_prev = $mysqlq;
} else {
my $mysqlq_val = ($mysqlq_prev - $mysqlq);
push @p,$mysqlq_val;
$mysqlq_prev = $mysqlq;
&minmaxavg("HOUR","1Queries",$mysqlq_val);
}
}
}
if ($minmaxavg{HOUR}{"1Queries"}{CNT} > 0) {$minmaxavg{HOUR}{"1Queries"}{AVG} /= $minmaxavg{HOUR}{"1Queries"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => 'Queries',
x_label_skip => 3,
title => 'MySQL Queries in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Queries));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqlqueries") {
my (@h,@p,@t);
my $mysqlq_prev;
my $mysqlsq_prev;
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $mysqlq eq "") {
$mysqlq_prev = 0;
push @p,undef;
} else {
if ($mysqlq_prev < $mysqlq or $mysqlq eq "") {
push @p,undef;
$mysqlq_prev = $mysqlq;
} else {
my $mysqlq_val = ($mysqlq_prev - $mysqlq);
push @p,$mysqlq_val;
$mysqlq_prev = $mysqlq;
&minmaxavg("DAY","1Queries",$mysqlq_val);
}
}
}
if ($minmaxavg{DAY}{"1Queries"}{CNT} > 0) {$minmaxavg{DAY}{"1Queries"}{AVG} /= $minmaxavg{DAY}{"1Queries"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => 'Queries',
x_label_skip => 60,
title => 'MySQL Queries in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Queries));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqlqueries") {
my (@h,@p,@t);
my $mysqlq_prev;
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $mysqlq_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time eq "" or $mysqlq eq "") {
$mysqlq_prev = 0;
} else {
if ($mysqlq_prev < $mysqlq or $mysqlq eq "") {
$mysqlq_prev = $mysqlq;
} else {
my $mysqlq_val = ($mysqlq_prev - $mysqlq);
$mysqlq_avg = $mysqlq_avg + $mysqlq_val;
$mysqlq_prev = $mysqlq;
}
}
}
unless (defined $mysqlq_avg) {
push @p,undef;
} else {
push @p,($mysqlq_avg/60);
&minmaxavg("WEEK","1Queries",($mysqlq_avg/60));
}
}
if ($minmaxavg{WEEK}{"1Queries"}{CNT} > 0) {$minmaxavg{WEEK}{"1Queries"}{AVG} /= $minmaxavg{WEEK}{"1Queries"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Queries',
x_label_skip => 24,
title => 'MySQL Queries in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Queries));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqlqueries") {
my (@h,@p,@t);
my $mysqlq_prev;
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $mysqlq_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time eq "" or $mysqlq eq "") {
$mysqlq_prev = 0;
} else {
if ($mysqlq_prev < $mysqlq or $mysqlq eq "") {
$mysqlq_prev = $mysqlq;
} else {
my $mysqlq_val = ($mysqlq_prev - $mysqlq);
$mysqlq_avg = $mysqlq_avg + $mysqlq_val;
$mysqlq_prev = $mysqlq;
}
}
}
unless (defined $mysqlq_avg) {
push @p,undef;
} else {
push @p,($mysqlq_avg/60);
&minmaxavg("MONTH","1Queries",($mysqlq_avg/60));
}
}
if ($minmaxavg{MONTH}{"1Queries"}{CNT} > 0) {$minmaxavg{MONTH}{"1Queries"}{AVG} /= $minmaxavg{MONTH}{"1Queries"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Queries',
x_label_skip => 24,
title => "MySQL Queries in last $system_maxdays",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Queries));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqlslowqueries") {
my (@h,@p,@t);
my $mysqlsq_prev;
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $mysqlq eq "") {
$mysqlsq_prev = 0;
push @t,undef;
} else {
if ($mysqlsq_prev < $mysqlsq or $mysqlsq eq "") {
push @t,undef;
$mysqlsq_prev = $mysqlsq;
} else {
my $mysqlsq_val = ($mysqlsq_prev - $mysqlsq);
push @t,$mysqlsq_val;
$mysqlsq_prev = $mysqlsq;
&minmaxavg("HOUR","1Slow_Queries",$mysqlsq_val);
}
}
}
if ($minmaxavg{HOUR}{"1Slow_Queries"}{CNT} > 0) {$minmaxavg{HOUR}{"1Slow_Queries"}{AVG} /= $minmaxavg{HOUR}{"1Slow_Queries"}{CNT}}
my @data = ([reverse @h],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => 'Slow Queries',
x_label_skip => 3,
title => 'MySQL Slow Queries in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Slow_Queries));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqlslowqueries") {
my (@h,@p,@t);
my $mysqlsq_prev;
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $mysqlq eq "") {
$mysqlsq_prev = 0;
push @t,undef;
} else {
if ($mysqlsq_prev < $mysqlsq or $mysqlsq eq "") {
push @t,undef;
$mysqlsq_prev = $mysqlsq;
} else {
my $mysqlsq_val = ($mysqlsq_prev - $mysqlsq);
push @t,$mysqlsq_val;
$mysqlsq_prev = $mysqlsq;
&minmaxavg("DAY","1Slow_Queries",$mysqlsq_val);
}
}
}
if ($minmaxavg{DAY}{"1Slow_Queries"}{CNT} > 0) {$minmaxavg{DAY}{"1Slow_Queries"}{AVG} /= $minmaxavg{DAY}{"1Slow_Queries"}{CNT}}
my @data = ([reverse @h],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => 'Slow Queries',
x_label_skip => 60,
title => 'MySQL Slow Queries in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Slow_Queries));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqlslowqueries") {
my (@h,@p,@t);
my $mysqlsq_prev;
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $mysqlsq_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time eq "" or $mysqlsq eq "") {
$mysqlsq_prev = 0;
} else {
if ($mysqlsq_prev < $mysqlsq or $mysqlsq eq "") {
$mysqlsq_prev = $mysqlsq;
} else {
my $mysqlsq_val = ($mysqlsq_prev - $mysqlsq);
$mysqlsq_avg = $mysqlsq_avg + $mysqlsq_val;
$mysqlsq_prev = $mysqlsq;
}
}
}
unless (defined $mysqlsq_avg) {
push @t,undef;
} else {
push @t,($mysqlsq_avg/60);
&minmaxavg("WEEK","1Slow_Queries",($mysqlsq_avg/60));
}
}
if ($minmaxavg{WEEK}{"1Slow_Queries"}{CNT} > 0) {$minmaxavg{WEEK}{"1Slow_Queries"}{AVG} /= $minmaxavg{WEEK}{"1Slow_Queries"}{CNT}}
my @data = ([reverse @h],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Slow Queries',
x_label_skip => 24,
title => 'MySQL Slow Queries in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Slow_Queries));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqlslowqueries") {
my (@h,@p,@t);
my $mysqlsq_prev;
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $mysqlsq_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time eq "" or $mysqlsq eq "") {
$mysqlsq_prev = 0;
} else {
if ($mysqlsq_prev < $mysqlsq or $mysqlsq eq "") {
$mysqlsq_prev = $mysqlsq;
} else {
my $mysqlsq_val = ($mysqlsq_prev - $mysqlsq);
$mysqlsq_avg = $mysqlsq_avg + $mysqlsq_val;
$mysqlsq_prev = $mysqlsq;
}
}
}
unless (defined $mysqlsq_avg) {
push @t,undef;
} else {
push @t,($mysqlsq_avg/60);
&minmaxavg("MONTH","1Slow_Queries",($mysqlsq_avg/60));
}
}
if ($minmaxavg{MONTH}{"1Slow_Queries"}{CNT} > 0) {$minmaxavg{MONTH}{"1Slow_Queries"}{AVG} /= $minmaxavg{MONTH}{"1Slow_Queries"}{CNT}}
my @data = ([reverse @h],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Slow Queries',
x_label_skip => 24,
title => "MySQL Slow Queries in last $system_maxdays",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Slow_Queries));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqlconns") {
my (@h,@p,@t);
my $mysqlcn_prev;
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $mysqlq eq "") {
$mysqlcn_prev = 0;
push @p,undef;
push @t,undef;
} else {
if ($mysqlcn_prev < $mysqlcn or $mysqlcn eq "") {
push @p,undef;
$mysqlcn_prev = $mysqlcn;
} else {
my $mysqlcn_val = ($mysqlcn_prev - $mysqlcn);
push @p,$mysqlcn_val;
$mysqlcn_prev = $mysqlcn;
&minmaxavg("HOUR","1Connections",$mysqlcn_val);
}
if ($mysqlth eq "") {
push @t,undef;
} else {
push @t,$mysqlth;
&minmaxavg("HOUR","2Threads",$mysqlth);
}
}
}
if ($minmaxavg{HOUR}{"1Connections"}{CNT} > 0) {$minmaxavg{HOUR}{"1Connections"}{AVG} /= $minmaxavg{HOUR}{"1Connections"}{CNT}}
if ($minmaxavg{HOUR}{"2Threads"}{CNT} > 0) {$minmaxavg{HOUR}{"2Threads"}{AVG} /= $minmaxavg{HOUR}{"2Threads"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => '',
x_label_skip => 3,
title => 'MySQL Connections & Threads in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Connections Threads));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqlconns") {
my (@h,@p,@t);
my $mysqlcn_prev;
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $mysqlq eq "") {
$mysqlcn_prev = 0;
push @p,undef;
push @t,undef;
} else {
if ($mysqlcn_prev < $mysqlcn or $mysqlcn eq "") {
push @p,undef;
$mysqlcn_prev = $mysqlcn;
} else {
my $mysqlcn_val = ($mysqlcn_prev - $mysqlcn);
push @p,$mysqlcn_val;
$mysqlcn_prev = $mysqlcn;
&minmaxavg("DAY","1Connections",$mysqlcn_val);
}
if ($mysqlth eq "") {
push @t,undef;
} else {
push @t,$mysqlth;
&minmaxavg("DAY","2Threads",$mysqlth);
}
}
}
if ($minmaxavg{DAY}{"1Connections"}{CNT} > 0) {$minmaxavg{DAY}{"1Connections"}{AVG} /= $minmaxavg{DAY}{"1Connections"}{CNT}}
if ($minmaxavg{DAY}{"2Threads"}{CNT} > 0) {$minmaxavg{DAY}{"2Threads"}{AVG} /= $minmaxavg{DAY}{"2Threads"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => '',
x_label_skip => 60,
title => 'MySQL Connections & Threads in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Connections Threads));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqlconns") {
my (@h,@p,@t);
my $mysqlcn_prev;
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $mysqlcn_avg;
my $mysqlth_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time eq "" or $mysqlq eq "") {
$mysqlcn_prev = 0;
} else {
if ($mysqlcn_prev < $mysqlcn or $mysqlcn eq "") {
$mysqlcn_prev = $mysqlcn;
} else {
my $mysqlcn_val = ($mysqlcn_prev - $mysqlcn);
$mysqlcn_avg = $mysqlcn_avg + $mysqlcn_val;
$mysqlcn_prev = $mysqlcn;
}
$mysqlth_avg = $mysqlth_avg + $mysqlth;
}
}
unless (defined $mysqlcn_avg) {
push @p,undef;
} else {
push @p,($mysqlcn_avg/60);
&minmaxavg("WEEK","1Connections",($mysqlcn_avg/60));
}
unless (defined $mysqlth_avg) {
push @t,undef;
} else {
push @t,($mysqlth_avg/60);
&minmaxavg("WEEK","2Threads",($mysqlth_avg/60));
}
}
if ($minmaxavg{WEEK}{"1Connections"}{CNT} > 0) {$minmaxavg{WEEK}{"1Connections"}{AVG} /= $minmaxavg{WEEK}{"1Connections"}{CNT}}
if ($minmaxavg{WEEK}{"2Threads"}{CNT} > 0) {$minmaxavg{WEEK}{"2Threads"}{AVG} /= $minmaxavg{WEEK}{"2Threads"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => '',
x_label_skip => 24,
title => 'MySQL Connections & Threads in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Connections Threads));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "mysqlconns") {
my (@h,@p,@t);
my $mysqlcn_prev;
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $mysqlcn_avg;
my $mysqlth_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time eq "" or $mysqlq eq "") {
$mysqlcn_prev = 0;
} else {
if ($mysqlcn_prev < $mysqlcn or $mysqlcn eq "") {
$mysqlcn_prev = $mysqlcn;
} else {
my $mysqlcn_val = ($mysqlcn_prev - $mysqlcn);
$mysqlcn_avg = $mysqlcn_avg + $mysqlcn_val;
$mysqlcn_prev = $mysqlcn;
}
$mysqlth_avg = $mysqlth_avg + $mysqlth;
}
}
unless (defined $mysqlcn_avg) {
push @p,undef;
} else {
push @p,($mysqlcn_avg/60);
&minmaxavg("MONTH","1Connections",($mysqlcn_avg/60));
}
unless (defined $mysqlth_avg) {
push @t,undef;
} else {
push @t,($mysqlth_avg/60);
&minmaxavg("MONTH","2Threads",($mysqlth_avg/60));
}
}
if ($minmaxavg{MONTH}{"1Connections"}{CNT} > 0) {$minmaxavg{MONTH}{"1Connections"}{AVG} /= $minmaxavg{MONTH}{"1Connections"}{CNT}}
if ($minmaxavg{MONTH}{"2Threads"}{CNT} > 0) {$minmaxavg{MONTH}{"2Threads"}{AVG} /= $minmaxavg{MONTH}{"2Threads"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => '',
x_label_skip => 24,
title => "MySQL Connections & Threads in last $system_maxdays days",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Connections Threads));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "apachecpu") {
my (@h,@p);
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $apachecpu eq "") {
push @p,undef;
} else {
push @p,$apachecpu;
&minmaxavg("HOUR","1Apache_CPU",$apachecpu);
}
}
if ($minmaxavg{HOUR}{"1Apache_CPU"}{CNT} > 0) {$minmaxavg{HOUR}{"1Apache_CPU"}{AVG} /= $minmaxavg{HOUR}{"1Apache_CPU"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => 'Percentage',
x_label_skip => 3,
title => 'Apache CPU Usage in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend("Apache CPU");
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "apachecpu") {
my (@h,@p);
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $apachecpu eq "") {
push @p,undef;
} else {
push @p,$apachecpu;
&minmaxavg("DAY","1Apache_CPU",$apachecpu);
}
}
if ($minmaxavg{DAY}{"1Apache_CPU"}{CNT} > 0) {$minmaxavg{DAY}{"1Apache_CPU"}{AVG} /= $minmaxavg{DAY}{"1Apache_CPU"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred purple) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => 'Percentage',
x_label_skip => 60,
title => 'Apache CPU Usage in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend("Apache CPU");
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "apachecpu") {
my (@h,@p);
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $apachecpu_avg;
my $cnt_avg = 0;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $apachecpu ne "") {
$apachecpu_avg += $apachecpu;
$cnt_avg++;
}
}
unless (defined $cnt_avg) {
push @p,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$apachecpu_avg/$cnt_avg;
&minmaxavg("WEEK","1Apache_CPU",($apachecpu_avg/$cnt_avg));
}
}
if ($minmaxavg{WEEK}{"1Apache_CPU"}{CNT} > 0) {$minmaxavg{WEEK}{"1Apache_CPU"}{AVG} /= $minmaxavg{WEEK}{"1Apache_CPU"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Percentage',
x_label_skip => 24,
title => 'Apache CPU Usage in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend("Apache CPU");
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "apachecpu") {
my (@h,@p);
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $apachecpu_avg;
my $cnt_avg = 0;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $apachecpu ne "") {
$apachecpu_avg += $apachecpu;
$cnt_avg++;
}
}
unless (defined $cnt_avg) {
push @p,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$apachecpu_avg/$cnt_avg;
&minmaxavg("MONTH","1Apache_CPU",($apachecpu_avg/$cnt_avg));
}
}
if ($minmaxavg{MONTH}{"1Apache_CPU"}{CNT} > 0) {$minmaxavg{MONTH}{"1Apache_CPU"}{AVG} /= $minmaxavg{MONTH}{"1Apache_CPU"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Percentage',
x_label_skip => 24,
title => "Apache CPU Usage in last $system_maxdays",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend("Apache CPU");
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "apacheconn") {
my (@h,@p);
my $apacheacc_prev;
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $apacheacc eq "") {
$apacheacc_prev = 0;
push @p,undef;
} else {
if ($apacheacc_prev < $apacheacc or $apacheacc eq "") {
push @p,undef;
$apacheacc_prev = $apacheacc;
} else {
my $apacheacc_val = ($apacheacc_prev - $apacheacc);
push @p,$apacheacc_val;
$apacheacc_prev = $apacheacc;
&minmaxavg("HOUR","1Connections",$apacheacc_val);
}
}
}
if ($minmaxavg{HOUR}{"1Connections"}{CNT} > 0) {$minmaxavg{HOUR}{"1Connections"}{AVG} /= $minmaxavg{HOUR}{"1Connections"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => '',
x_label_skip => 3,
title => 'Apache Connections in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Connections));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "apacheconn") {
my (@h,@p,@t);
my $apacheacc_prev;
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $apacheacc eq "") {
$apacheacc_prev = 0;
push @p,undef;
} else {
if ($apacheacc_prev < $apacheacc or $apacheacc eq "") {
push @p,undef;
$apacheacc_prev = $apacheacc;
} else {
my $apacheacc_val = ($apacheacc_prev - $apacheacc);
push @p,$apacheacc_val;
$apacheacc_prev = $apacheacc;
&minmaxavg("DAY","1Connections",$apacheacc_val);
}
}
}
if ($minmaxavg{DAY}{"1Connections"}{CNT} > 0) {$minmaxavg{DAY}{"1Connections"}{AVG} /= $minmaxavg{DAY}{"1Connections"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => '',
x_label_skip => 60,
title => 'Apache Connections in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Connections));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "apacheconn") {
my (@h,@p,@t);
my $apacheacc_prev;
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $apacheacc_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time eq "" or $apacheacc eq "") {
$apacheacc_prev = 0;
} else {
if ($apacheacc_prev < $apacheacc or $apacheacc eq "") {
$apacheacc_prev = $apacheacc;
} else {
my $apacheacc_val = ($apacheacc_prev - $apacheacc);
$apacheacc_avg = $apacheacc_avg + $apacheacc_val;
$apacheacc_prev = $apacheacc;
}
}
}
unless (defined $apacheacc_avg) {
push @p,undef;
} else {
push @p,($apacheacc_avg/60);
&minmaxavg("WEEK","1Connections",($apacheacc_avg/60));
}
}
if ($minmaxavg{WEEK}{"1Connections"}{CNT} > 0) {$minmaxavg{WEEK}{"1Connections"}{AVG} /= $minmaxavg{WEEK}{"1Connections"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => '',
x_label_skip => 24,
title => 'Apache Connections in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Connections Threads));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "apacheconn") {
my (@h,@p,@t);
my $apacheacc_prev;
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $apacheacc_avg;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time eq "" or $apacheacc eq "") {
$apacheacc_prev = 0;
} else {
if ($apacheacc_prev < $apacheacc or $apacheacc eq "") {
$apacheacc_prev = $apacheacc;
} else {
my $apacheacc_val = ($apacheacc_prev - $apacheacc);
$apacheacc_avg = $apacheacc_avg + $apacheacc_val;
$apacheacc_prev = $apacheacc;
}
}
}
unless (defined $apacheacc_avg) {
push @p,undef;
} else {
push @p,($apacheacc_avg/60);
&minmaxavg("MONTH","1Connections",($apacheacc_avg/60));
}
}
if ($minmaxavg{MONTH}{"1Connections"}{CNT} > 0) {$minmaxavg{MONTH}{"1Connections"}{AVG} /= $minmaxavg{MONTH}{"1Connections"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => '',
x_label_skip => 24,
title => "Apache Connections in last $system_maxdays",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Connections Threads));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "apachework") {
my (@h,@p,@t);
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $apachebwork eq "") {
push @p,undef;
push @t,undef;
} else {
push @p,$apachebwork;
push @t,$apacheiwork;
&minmaxavg("HOUR","1Busy",$apachebwork);
&minmaxavg("HOUR","2Idle",$apacheiwork);
}
}
if ($minmaxavg{HOUR}{"1Busy"}{CNT} > 0) {$minmaxavg{HOUR}{"1Busy"}{AVG} /= $minmaxavg{HOUR}{"1Busy"}{CNT}}
if ($minmaxavg{HOUR}{"2Idle"}{CNT} > 0) {$minmaxavg{HOUR}{"2Idle"}{AVG} /= $minmaxavg{HOUR}{"2Idle"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => 'Workers',
x_label_skip => 3,
title => 'Apache Workers in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Busy Idle));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "apachework") {
my (@h,@p,@t);
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $apachebwork eq "") {
push @p,undef;
push @t,undef;
} else {
push @p,$apachebwork;
push @t,$apacheiwork;
&minmaxavg("DAY","1Busy",$apachebwork);
&minmaxavg("DAY","2Idle",$apacheiwork);
}
}
if ($minmaxavg{DAY}{"1Busy"}{CNT} > 0) {$minmaxavg{DAY}{"1Busy"}{AVG} /= $minmaxavg{DAY}{"1Busy"}{CNT}}
if ($minmaxavg{DAY}{"2Idle"}{CNT} > 0) {$minmaxavg{DAY}{"2Idle"}{AVG} /= $minmaxavg{DAY}{"2Idle"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred purple) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => 'Workers',
x_label_skip => 60,
title => 'Apache Workers in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Busy Idle));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "apachework") {
my (@h,@p,@t);
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $apachebwork_avg;
my $apacheiwork_avg;
my $cnt_avg = 0;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $apachebwork ne "") {
$apachebwork_avg += $apachebwork;
$apacheiwork_avg += $apacheiwork;
$cnt_avg++;
}
}
unless (defined $cnt_avg) {
push @p,undef;
push @t,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$apachebwork_avg/$cnt_avg;
push @t,$apacheiwork_avg/$cnt_avg;
&minmaxavg("WEEK","1Busy",($apachebwork_avg/$cnt_avg));
&minmaxavg("WEEK","2Idle",($apacheiwork_avg/$cnt_avg));
}
}
if ($minmaxavg{WEEK}{"1Busy"}{CNT} > 0) {$minmaxavg{WEEK}{"1Busy"}{AVG} /= $minmaxavg{WEEK}{"1Busy"}{CNT}}
if ($minmaxavg{WEEK}{"2Idle"}{CNT} > 0) {$minmaxavg{WEEK}{"2Idle"}{AVG} /= $minmaxavg{WEEK}{"2Idle"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Workers',
x_label_skip => 24,
title => 'Apache Workers in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Busy Idle));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "apachework") {
my (@h,@p,@t);
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $apachebwork_avg;
my $apacheiwork_avg;
my $cnt_avg = 0;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $apachebwork ne "") {
$apachebwork_avg += $apachebwork;
$apacheiwork_avg += $apacheiwork;
$cnt_avg++;
}
}
unless (defined $cnt_avg) {
push @p,undef;
push @t,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$apachebwork_avg/$cnt_avg;
push @t,$apacheiwork_avg/$cnt_avg;
&minmaxavg("MONTH","1Busy",($apachebwork_avg/$cnt_avg));
&minmaxavg("MONTH","2Idle",($apacheiwork_avg/$cnt_avg));
}
}
if ($minmaxavg{MONTH}{"1Busy"}{CNT} > 0) {$minmaxavg{MONTH}{"1Busy"}{AVG} /= $minmaxavg{MONTH}{"1Busy"}{CNT}}
if ($minmaxavg{MONTH}{"2Idle"}{CNT} > 0) {$minmaxavg{MONTH}{"2Idle"}{AVG} /= $minmaxavg{MONTH}{"2Idle"}{CNT}}
my @data = ([reverse @h],[reverse @p],[reverse @t]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'Workers',
x_label_skip => 24,
title => "Apache Workers in last $system_maxdays",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend( qw(Busy Idle));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "diskw") {
my (@h,@p);
for (my $mins = 0; $mins < 60;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$min;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $diskw eq "") {
push @p,undef;
} else {
push @p,$diskw;
&minmaxavg("HOUR","1Disk_Write",$diskw);
}
}
if ($minmaxavg{HOUR}{"1Disk_Write"}{CNT} > 0) {$minmaxavg{HOUR}{"1Disk_Write"}{AVG} /= $minmaxavg{HOUR}{"1Disk_Write"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Minute',
y_label => 'MB/s',
x_label_skip => 3,
title => 'Disk Write Performance in last hour',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend("Disk_Write");
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemhour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "diskw") {
my (@h,@p);
for (my $mins = 0; $mins < 1440;$mins++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($mins * 60));
push @h,$hour;
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$min});
if ($time eq "" or $diskw eq "") {
push @p,undef;
} else {
push @p,$diskw;
&minmaxavg("DAY","1Disk_Write",$diskw);
}
}
if ($minmaxavg{DAY}{"1Disk_Write"}{CNT} > 0) {$minmaxavg{DAY}{"1Disk_Write"}{AVG} /= $minmaxavg{DAY}{"1Disk_Write"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred purple) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => 'MB/s',
x_label_skip => 60,
title => 'Disk Write Performance in last 24 hours',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend("Disk_Write");
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemday.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "diskw") {
my (@h,@p);
for (my $hours = 0; $hours < 168;$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $diskw_avg;
my $cnt_avg = 0;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $diskw ne "") {
$diskw_avg += $diskw;
$cnt_avg++;
}
}
unless (defined $cnt_avg) {
push @p,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$diskw_avg/$cnt_avg;
&minmaxavg("WEEK","1Disk_Write",($diskw_avg/$cnt_avg));
}
}
if ($minmaxavg{WEEK}{"1Disk_Write"}{CNT} > 0) {$minmaxavg{WEEK}{"1Disk_Write"}{AVG} /= $minmaxavg{WEEK}{"1Disk_Write"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'MB/s',
x_label_skip => 24,
title => 'Disk Write Performance in last 7 days',
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend("Disk_Write");
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemweek.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
if ($type eq "diskw") {
my (@h,@p);
for (my $hours = 0; $hours < (24 * $system_maxdays);$hours++) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time - ($hours * 60 * 60));
push @h,$mday;
my $diskw_avg;
my $cnt_avg = 0;
for (my $mins = 59; $mins >= 0;$mins--) {
my ($time,$cputotal,$cpuidle,$cpuiowait,$memtotal,$memfree,$memswaptotal,$memswapfree,$load1,$load5,$load15,$netin,$netout,$diskread,$diskwrite,$mailin,$mailout,$cputemp,$mysqlin,$mysqlout,$mysqlq,$mysqlsq,$mysqlcn,$mysqlth,$apachecpu,$apacheacc,$apachebwork,$apacheiwork,$diskw,$memcached) = split(/\,/,$stata{$year}{$mon}{$mday}{$hour}{$mins});
if ($time and $diskw ne "") {
$diskw_avg += $diskw;
$cnt_avg++;
}
}
unless (defined $cnt_avg) {
push @p,undef;
} else {
if ($cnt_avg == 0) {$cnt_avg = 1}
push @p,$diskw_avg/$cnt_avg;
&minmaxavg("MONTH","1Disk_Write",($diskw_avg/$cnt_avg));
}
}
if ($minmaxavg{MONTH}{"1Disk_Write"}{CNT} > 0) {$minmaxavg{MONTH}{"1Disk_Write"}{AVG} /= $minmaxavg{MONTH}{"1Disk_Write"}{CNT}}
my @data = ([reverse @h],[reverse @p]);
my $hour_graph = GD::Graph::lines->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Day (Hourly Average)',
y_label => 'MB/s',
x_label_skip => 24,
title => "Disk Write Performance in last $system_maxdays",
borderclrs => $hour_graph->{dclrs},
transparent => 0,
);
$hour_graph->set_legend("Disk_Write");
$hour_graph->plot(\@data);
$img = $imghddir."lfd_systemmonth.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
}
}
return;
}
# end graphs
###############################################################################
# start charts
sub charts {
my $cc_lookups = shift;
my $imghddir = shift;
my $img;
$| = 1;
require GD::Graph::bars;
import GD::Graph::bars;
require GD::Graph::pie;
import GD::Graph::pie;
require GD::Graph::lines;
import GD::Graph::lines;
sysopen (my $STATS,"/var/lib/csf/stats/lfdstats", O_RDWR | O_CREAT);
flock ($STATS, LOCK_SH);
my @stats = <$STATS>;
chomp @stats;
close ($STATS);
if (@stats) {
my $time = time;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
# Blocks by lfd in the last 24 hours
my $cnt = $hour + 1;
if ($cnt > 23) {$cnt = 0}
my (@h,@p,@t,@hp,@cp);
my %triggers;
for (my $hours = 0; $hours < 24;$hours++) {
push @h,$cnt;
my ($permdate,$permcount,$tempdate,$tempcount) = split(/\,/,$stats[$cnt]);
if ($time - $permdate > (24 * 60 * 60)) {$permdate = 0; $permcount = 0}
if ($time - $tempdate > (24 * 60 * 60)) {$tempdate = 0; $tempcount = 0}
push @p,$permcount;
push @t,$tempcount;
my @line = split(/\,/,$stats[$cnt]);
for (my $loop = 4; $loop < @line; $loop+=2) {
if ($time - $line[$loop] > (24 * 60 * 60)) {next}
my ($triggerstat,$triggercount) = split(/\:/,$line[$loop+1]);
$triggers{$triggerstat} += $triggercount;
}
$cnt++;
if ($cnt > 23) {$cnt = 0}
}
my @data = ([@h],[@p],[@t]);
my $hour_graph = GD::Graph::bars->new(750,350);
$hour_graph->set( dclrs => [ qw(yellow dred) ] );
$hour_graph->set(
x_label => 'Hour',
y_label => 'Total Blocks',
long_ticks => 1,
tick_length => 0,
x_ticks => 0,
title => 'Blocks by lfd in the last 24 hours',
cumulate => 1,
borderclrs => $hour_graph->{dclrs},
bar_spacing => 4,
shadow_depth => 1,
transparent => 0,
x_label_position => 1/2,
);
$hour_graph->set_legend( qw(Permanent Temporary));
$hour_graph->plot(\@data);
$img = $imghddir."lfd_hour.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $hour_graph->gd->gif();
close ($OUT);
foreach my $key (keys %triggers) {
push @hp, "$key ($triggers{$key})";
push @cp, $triggers{$key};
}
my @piedata = ([@hp],[@cp]);
my $hour_pie_graph = GD::Graph::pie->new( 400, 300 );
$hour_pie_graph->set(
title => 'Block triggers in the last 24 hours',
label => 'Trigger in csf.conf',
axislabelclr => 'black',
pie_height => 36,
l_margin => 15,
r_margin => 15,
start_angle => 235,
transparent => 0,
);
$hour_pie_graph->plot(\@piedata);
$img = $imghddir."lfd_pie_hour.gif";
open (my $OUT2, ">", "$img");
flock ($OUT2, LOCK_EX);
binmode ($OUT2);
print $OUT2 $hour_pie_graph->gd->gif();
close ($OUT2);
# Blocks by lfd in the last 30 Days
my $maxdays = 30;
my ($hsec,$hmin,$hhour,$hmday,$hmon,$hyear,$hwday,$hyday,$hisdst) = localtime($time - (29 * 24 * 60 * 60));
my $hdim = (31,28,31,30,31,30,31,31,30,31,30,31)[$hmon];
if ($hmon == 1 && (($hyear % 4 == 0) && ($hyear % 100 != 0) && ($hyear % 400 == 0))) {$hdim++}
if ($hmon == 1) {
$maxdays = $hdim;
($hsec,$hmin,$hhour,$hmday,$hmon,$hyear,$hwday,$hyday,$hisdst) = localtime($time - (($maxdays - 1) * 24 * 60 * 60));
}
$cnt = $hmday;
my (@hh,@ph,@th,@hhp,@hcp);
my %htriggers;
for (my $days = 1; $days <= $maxdays;$days++) {
push @hh,$cnt;
my ($permdate,$permcount,$tempdate,$tempcount) = split(/\,/,$stats[$cnt+24]);
if ($time - $permdate > (($maxdays - 1) * 24 * 60 * 60)) {$permdate = 0; $permcount = 0}
if ($time - $tempdate > (($maxdays - 1) * 24 * 60 * 60)) {$tempdate = 0; $tempcount = 0}
push @ph,$permcount;
push @th,$tempcount;
my @line = split(/\,/,$stats[$cnt+24]);
for (my $loop = 4; $loop < @line; $loop+=2) {
if ($time - $line[$loop] > (($maxdays - 1) * 24 * 60 * 60)) {next}
my ($triggerstat,$triggercount) = split(/\:/,$line[$loop+1]);
$htriggers{$triggerstat} += $triggercount;
}
$cnt++;
if ($cnt > $hdim) {$cnt = 1}
}
my @datah = ([@hh],[@ph],[@th]);
my $day_graph = GD::Graph::bars->new(750,350);
$day_graph->set( dclrs => [ qw(yellow dred) ] );
$day_graph->set(
x_label => 'Day',
y_label => 'Total Blocks',
long_ticks => 1,
tick_length => 0,
x_ticks => 0,
title => "Blocks by lfd in the last $maxdays Days",
cumulate => 1,
borderclrs => $day_graph->{dclrs},
bar_spacing => 4,
shadow_depth => 1,
transparent => 0,
x_label_position => 1/2,
);
$day_graph->set_legend( qw(Permanent Temporary));
$day_graph->plot(\@datah);
$img = $imghddir."lfd_month.gif";
open (my $OUT3, ">", "$img");
flock ($OUT3, LOCK_EX);
binmode ($OUT3);
print $OUT3 $day_graph->gd->gif();
close ($OUT3);
foreach my $key (keys %htriggers) {
push @hhp, "$key ($htriggers{$key})";
push @hcp, $htriggers{$key};
}
my @hpiedata = ([@hhp],[@hcp]);
my $day_pie_graph = GD::Graph::pie->new( 400, 300 );
$day_pie_graph->set(
title => "Block triggers in the last $maxdays days",
label => 'Trigger in csf.conf',
axislabelclr => 'black',
pie_height => 36,
l_margin => 15,
r_margin => 15,
start_angle => 235,
transparent => 0,
);
$day_pie_graph->plot(\@hpiedata);
$img = $imghddir."lfd_pie_day.gif";
open (my $OUT4, ">", "$img");
flock ($OUT4, LOCK_EX);
binmode ($OUT4);
print $OUT4 $day_pie_graph->gd->gif();
close ($OUT4);
# Blocks by lfd in the last 12 months
$cnt = $mon + 2;
if ($cnt > 12) {$cnt = 1}
my (@hy,@py,@ty,@yhp,@ycp);
my %ytriggers;
for (my $months = 1; $months < 13;$months++) {
push @hy,$cnt;
my ($permdate,$permcount,$tempdate,$tempcount) = split(/\,/,$stats[$cnt+55]);
if ($time - $permdate > (364 * 24 * 60 * 60)) {$permdate = 0; $permcount = 0}
if ($time - $tempdate > (364 * 24 * 60 * 60)) {$tempdate = 0; $tempcount = 0}
push @py,$permcount;
push @ty,$tempcount;
my @line = split(/\,/,$stats[$cnt+55]);
for (my $loop = 4; $loop < @line; $loop+=2) {
if ($time - $line[$loop] > (364 * 24 * 60 * 60)) {next}
my ($triggerstat,$triggercount) = split(/\:/,$line[$loop+1]);
$ytriggers{$triggerstat} += $triggercount;
}
$cnt++;
if ($cnt > 12) {$cnt = 1}
}
my @datay = ([@hy],[@py],[@ty]);
my $year_graph = GD::Graph::bars->new(750,350);
$year_graph->set( dclrs => [ qw(yellow dred) ] );
$year_graph->set(
x_label => 'Month',
y_label => 'Total Blocks',
long_ticks => 1,
tick_length => 0,
x_ticks => 0,
title => 'Blocks by lfd in the last 12 months',
cumulate => 1,
borderclrs => $year_graph->{dclrs},
bar_spacing => 4,
shadow_depth => 1,
transparent => 0,
x_label_position => 1/2,
);
$year_graph->set_legend( qw(Permanent Temporary));
$year_graph->plot(\@datay);
$img = $imghddir."lfd_year.gif";
open (my $OUT5, ">", "$img");
flock ($OUT5, LOCK_EX);
binmode ($OUT5);
print $OUT5 $year_graph->gd->gif();
close ($OUT5);
foreach my $key (keys %ytriggers) {
push @yhp, "$key ($ytriggers{$key})";
push @ycp, $ytriggers{$key};
}
my @ypiedata = ([@yhp],[@ycp]);
my $year_pie_graph = GD::Graph::pie->new( 400, 300 );
$year_pie_graph->set(
title => 'Block triggers in the last 12 months',
label => 'Trigger in csf.conf',
axislabelclr => 'black',
pie_height => 36,
l_margin => 15,
r_margin => 15,
start_angle => 235,
transparent => 0,
);
$year_pie_graph->plot(\@ypiedata);
$img = $imghddir."lfd_pie_year.gif";
open (my $OUT6, ">", "$img");
flock ($OUT6, LOCK_EX);
binmode ($OUT6);
print $OUT6 $year_pie_graph->gd->gif();
close ($OUT6);
if ($cc_lookups) {
# Total Top 30 Country Code blocks by lfd
my (@ccy,@ccx);
my %ccs;
my $cntcc;
my @line = split(/\,/,$stats[69]);
for (my $x = 0; $x < @line; $x+=2) {$ccs{$line[$x]} = $line[$x+1]}
foreach my $key (sort {$ccs{$b} <=> $ccs{$a}} keys %ccs) {
push @ccy,$key;
push @ccx,$ccs{$key};
$cntcc++;
if ($cntcc > 29) {last}
}
my @datacc = ([@ccy],[@ccx]);
my $cc_graph = GD::Graph::bars->new(750,350);
$cc_graph->set( dclrs => [ qw(yellow) ] );
$cc_graph->set(
x_label => 'Country Code',
y_label => 'Total Blocks',
long_ticks => 1,
tick_length => 0,
x_ticks => 0,
title => 'Total Top 30 Country Code blocks by lfd',
cumulate => 1,
borderclrs => $cc_graph->{dclrs},
bar_spacing => 4,
shadow_depth => 1,
transparent => 0,
x_label_position => 1/2,
);
$cc_graph->plot(\@datacc);
$img = $imghddir."lfd_cc.gif";
open (my $OUT, ">", "$img");
flock ($OUT, LOCK_EX);
binmode ($OUT);
print $OUT $cc_graph->gd->gif();
close ($OUT);
}
}
return;
}
# end charts
###############################################################################
# start minmaxavg
sub minmaxavg {
my $graph = shift;
my $name = shift;
my $value = shift;
unless (defined $minmaxavg{$graph}{$name}{MIN}) {$minmaxavg{$graph}{$name}{MIN} = $value}
unless (defined $minmaxavg{$graph}{$name}{MAX}) {$minmaxavg{$graph}{$name}{MAX} = $value}
if ($minmaxavg{$graph}{$name}{MIN} > $value) {$minmaxavg{$graph}{$name}{MIN} = $value}
if ($minmaxavg{$graph}{$name}{MAX} < $value) {$minmaxavg{$graph}{$name}{MAX} = $value}
$minmaxavg{$graph}{$name}{AVG} += $value;
$minmaxavg{$graph}{$name}{CNT}++;
return;
}
# end minmaxavg
###############################################################################
# start graphs_html
sub graphs_html {
my $imgdir = shift;
my $html;
$html .= "<table class='table table-bordered'>\n";
$html .= "<tr><td>\n";
$html .= "<p align='center'><img class='img-responsive' src='".$imgdir."lfd_systemhour.gif?text=".time."'><br><table border='0' align='center'>\n";
foreach my $key (sort keys %{$minmaxavg{HOUR}}) {
my $item = $key;
if ($key =~ /^\d(.*)$/) {$item = $1}
$html .= "<tr><td><b>$item</b></td>";
$html .= "<td>Min:<b>".sprintf("%.2f",$minmaxavg{HOUR}{$key}{MIN})."</b></td>";
$html .= "<td>Max:<b>".sprintf("%.2f",$minmaxavg{HOUR}{$key}{MAX})."</b></td>";
$html .= "<td>Avg:<b>".sprintf("%.2f",$minmaxavg{HOUR}{$key}{AVG})."</b></td></tr>\n";
}
$html .= "</table></p><div class='bs-callout bs-callout-info'>Note: This graph displays per minute statistics unless otherwise stated</div></td></tr><tr><td>\n";
$html .= "<p align='center'><img class='img-responsive' src='".$imgdir."lfd_systemday.gif?text=".time."'><br><table border='0' align='center'>\n";
foreach my $key (sort keys %{$minmaxavg{DAY}}) {
my $item = $key;
if ($key =~ /^\d(.*)$/) {$item = $1}
$html .= "<tr><td><b>$item</b></td>";
$html .= "<td>Min:<b>".sprintf("%.2f",$minmaxavg{DAY}{$key}{MIN})."</b></td>";
$html .= "<td>Max:<b>".sprintf("%.2f",$minmaxavg{DAY}{$key}{MAX})."</b></td>";
$html .= "<td>Avg:<b>".sprintf("%.2f",$minmaxavg{DAY}{$key}{AVG})."</b></td></tr>\n";
}
$html .= "</table></p><div class='bs-callout bs-callout-info'>Note: This graph displays per minute statistics unless otherwise stated</div></td></tr><tr><td>\n";
$html .= "<p align='center'><img class='img-responsive' src='".$imgdir."lfd_systemweek.gif?text=".time."'><br><table border='0' align='center'>\n";
foreach my $key (sort keys %{$minmaxavg{WEEK}}) {
my $item = $key;
if ($key =~ /^\d(.*)$/) {$item = $1}
$html .= "<tr><td><b>$item</b></td>";
$html .= "<td>Min:<b>".sprintf("%.2f",$minmaxavg{WEEK}{$key}{MIN})."</b></td>";
$html .= "<td>Max:<b>".sprintf("%.2f",$minmaxavg{WEEK}{$key}{MAX})."</b></td>";
$html .= "<td>Avg:<b>".sprintf("%.2f",$minmaxavg{WEEK}{$key}{AVG})."</b></td></tr>\n";
}
$html .= "</table></p><div class='bs-callout bs-callout-info'>Note: This graph displays an hourly average of the per minute statistics, so you will not see the peak minute values</div></td></tr><tr><td>\n";
$html .= "<p align='center'><img class='img-responsive' src='".$imgdir."lfd_systemmonth.gif?text=".time."'><br><table border='0' align='center'>\n";
foreach my $key (sort keys %{$minmaxavg{MONTH}}) {
my $item = $key;
if ($key =~ /^\d(.*)$/) {$item = $1}
$html .= "<tr><td><b>$item</b></td>";
$html .= "<td>Min:<b>".sprintf("%.2f",$minmaxavg{MONTH}{$key}{MIN})."</b></td>";
$html .= "<td>Max:<b>".sprintf("%.2f",$minmaxavg{MONTH}{$key}{MAX})."</b></td>";
$html .= "<td>Avg:<b>".sprintf("%.2f",$minmaxavg{MONTH}{$key}{AVG})."</b></td></tr>\n";
}
$html .= "</table></p><div class='bs-callout bs-callout-info'>Note: This graph displays an hourly average of the per minute statistics, so you will not see the peak minute values</div></td></tr>\n</table>\n";
return $html;
}
# end graphs_html
###############################################################################
# start charts_html
sub charts_html {
my $cc_lookups = shift;
my $imgdir = shift;
my $html;
$html .= "<table class='table table-bordered'>\n";
$html .= "<tr><td>\n";
$html .= "<p align='center'><img class='img-responsive' src='".$imgdir."lfd_hour.gif?text=".time."'></p><p> </p>\n";
$html .= "<p align='center'><img class='img-responsive' src='".$imgdir."lfd_pie_hour.gif?text=".time."'></p>\n";
$html .= "</td></tr><tr><td>\n";
$html .= "<p align='center'><img class='img-responsive' src='".$imgdir."lfd_month.gif?text=".time."'></p><p> </p>\n";
$html .= "<p align='center'><img class='img-responsive' src='".$imgdir."lfd_pie_day.gif?text=".time."'></p>\n";
if ($cc_lookups) {
$html .= "</td></tr><tr><td>\n";
$html .= "<p align='center'><img class='img-responsive' src='".$imgdir."lfd_year.gif?text=".time."'></p><p> </p>\n";
$html .= "<p align='center'><img class='img-responsive' src='".$imgdir."lfd_pie_year.gif?text=".time."'></p>\n";
$html .= "</td></tr>\n<tr><td>\n";
$html .= "<p align='center'><img class='img-responsive' src='".$imgdir."lfd_cc.gif?text=".time."'></p>\n";
} else {
$html .= "</td></tr>\n<tr><td>\n";
$html .= "<p align='center'><img class='img-responsive' src='".$imgdir."lfd_year.gif?text=".time."'></p><p> </p>\n";
$html .= "<p align='center'><img class='img-responsive' src='".$imgdir."lfd_pie_year.gif?text=".time."'></p>\n";
}
$html .= "</td></tr>\n</table>\n";
return $html;
}
# end charts_html
###############################################################################
1;