webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-28 11:43:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Modified makegraphs

Browse Source
This commit is contained in:
Maniacikarus
2008-10-01 15:18:04 +02:00
parent 2c6a4efbbb
commit 5468f10298
1 changed files with 90 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files

185
src/scripts/makegraphs
View File

@@ -1,26 +1,24 @@
#!/usr/bin/perl #!/usr/bin/perl
############################################################################ ###############################################################################
# # # #
# This file is part of the IPCop Firewall. # # IPFire.org - A linux based firewall #
# # # Copyright (C) 2008 Michael Tremer & Christian Schmidt #
# IPCop is free software; you can redistribute it and/or modify # # #
# it under the terms of the GNU General Public License as published by # # This program is free software: you can redistribute it and/or modify #
# the Free Software Foundation; either version 2 of the License, or # # it under the terms of the GNU General Public License as published by #
# (at your option) any later version. # # the Free Software Foundation, either version 3 of the License, or #
# # # (at your option) any later version. #
# IPCop is distributed in the hope that it will be useful, # # #
# but WITHOUT ANY WARRANTY; without even the implied warranty of # # This program is distributed in the hope that it will be useful, #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # # but WITHOUT ANY WARRANTY; without even the implied warranty of #
# GNU General Public License for more details. # # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
# # # GNU General Public License for more details. #
# You should have received a copy of the GNU General Public License # # #
# along with IPCop; if not, write to the Free Software # # You should have received a copy of the GNU General Public License #
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # along with this program. If not, see <http://www.gnu.org/licenses/>. #
# # # #
# Copyright (C) 2004-01-19 Mark Wormgoor <mark@wormgoor.com>. # ###############################################################################
# #
############################################################################
use strict; use strict;
#use warnings; #use warnings;
@@ -40,97 +38,94 @@ my %mainsettings = ();
&General::readhash("${General::swroot}/main/settings", \%mainsettings); &General::readhash("${General::swroot}/main/settings", \%mainsettings);
&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color); &General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
sub updatehdddata sub updatehdddata{
{ my $disk = $_[0];
my $disk = $_[0]; my $standby;
my $standby; my @array = split(/\//,$disk);
my @array = split(/\//,$disk);
if ( ! -e "$mainsettings{'RRDLOG'}/hddshutdown-".$array[$#array].".rrd"){ if ( ! -e "$mainsettings{'RRDLOG'}/hddshutdown-".$array[$#array].".rrd"){
# database did not exist -> create # database did not exist -> create
RRDs::create ("$mainsettings{'RRDLOG'}/hddshutdown-".$array[$#array].".rrd", "--step=300", RRDs::create ("$mainsettings{'RRDLOG'}/hddshutdown-".$array[$#array].".rrd", "--step=300",
"DS:standby:GAUGE:600:0:1", "DS:standby:GAUGE:600:0:1",
"RRA:AVERAGE:0.5:1:576", "RRA:AVERAGE:0.5:1:576",
"RRA:AVERAGE:0.5:6:672", "RRA:AVERAGE:0.5:6:672",
"RRA:AVERAGE:0.5:24:732", "RRA:AVERAGE:0.5:24:732",
"RRA:AVERAGE:0.5:144:1460"); "RRA:AVERAGE:0.5:144:1460");
$ERROR = RRDs::error; $ERROR = RRDs::error;
print "Error in RRD::create for hddshutdown-".$array[$#array].": $ERROR\n" if $ERROR; print "Error in RRD::create for hddshutdown-".$array[$#array].": $ERROR\n" if $ERROR;
} }
if (-e "/tmp/hddshutdown-".$array[$#array]) {$standby = 1;} if (-e "/tmp/hddshutdown-".$array[$#array]) {$standby = 1;}
else {$standby = 0;} else {$standby = 0;}
RRDs::update ("$mainsettings{'RRDLOG'}/hddshutdown-".$array[$#array].".rrd", "-t", "standby", "N:$standby"); RRDs::update ("$mainsettings{'RRDLOG'}/hddshutdown-".$array[$#array].".rrd", "-t", "standby", "N:$standby");
$ERROR = RRDs::error; $ERROR = RRDs::error;
print "Error in RRD::update for hddshutdown-".$array[$#array].": $ERROR\n" if $ERROR; print "Error in RRD::update for hddshutdown-".$array[$#array].": $ERROR\n" if $ERROR;
if ( ! -e "$mainsettings{'RRDLOG'}/hddtemp-".$array[$#array].".rrd"){ if ( ! -e "$mainsettings{'RRDLOG'}/hddtemp-".$array[$#array].".rrd"){
# database did not exist -> create # database did not exist -> create
RRDs::create ("$mainsettings{'RRDLOG'}/hddtemp-".$array[$#array].".rrd", "--step=300", RRDs::create ("$mainsettings{'RRDLOG'}/hddtemp-".$array[$#array].".rrd", "--step=300",
"DS:temperature:GAUGE:600:0:100", "DS:temperature:GAUGE:600:0:100",
"RRA:AVERAGE:0.5:1:576", "RRA:AVERAGE:0.5:1:576",
"RRA:AVERAGE:0.5:6:672", "RRA:AVERAGE:0.5:6:672",
"RRA:AVERAGE:0.5:24:732", "RRA:AVERAGE:0.5:24:732",
"RRA:AVERAGE:0.5:144:1460"); "RRA:AVERAGE:0.5:144:1460");
$ERROR = RRDs::error; $ERROR = RRDs::error;
print "Error in RRD::create for hdd-".$array[$#array].": $ERROR\n" if $ERROR; print "Error in RRD::create for hdd-".$array[$#array].": $ERROR\n" if $ERROR;
} }
# Temperaturlesen w<>rde die Platte aufwecken!!! # Temperaturlesen w<>rde die Platte aufwecken!!!
if (!$standby){ if (!$standby){
$temp = 0; $temp = 0;
my $smart_output = ''; my $smart_output = '';
system("$path_smartctl -iHA -d ata /dev/$disk > /var/log/smartctl_out_hddtemp-$disk"); system("$path_smartctl -iHA -d ata /dev/$disk > /tmp/smartctl_out_hddtemp-$disk");
if ( -e "/var/log/smartctl_out_hddtemp-".$array[$#array] ){ if ( -e "/tmp/smartctl_out_hddtemp-".$array[$#array] ){
my $hdd_output = `cat /var/log/smartctl_out_hddtemp-$array[$#array] | grep Temperature_`; my $hdd_output = `cat /tmp/smartctl_out_hddtemp-$array[$#array] | grep Temperature_`;
my @t = split(/\s+/,$hdd_output); my @t = split(/\s+/,$hdd_output);
$temp = $t[9]; $temp = $t[9];
}else{$temp = 0;} }else{$temp = 0;}
print "Temperature for ".$array[$#array]."->".$temp."<-\n"; print "Temperature for ".$array[$#array]."->".$temp."<-\n";
# Nur ins RDD wenn nicht 0 (sonst klappt die min Anzeige nicht) # Nur ins RDD wenn nicht 0 (sonst klappt die min Anzeige nicht)
if ($temp){ if ($temp){
RRDs::update ("$mainsettings{'RRDLOG'}/hddtemp-".$array[$#array].".rrd", "-t", "temperature", "N:$temp"); RRDs::update ("$mainsettings{'RRDLOG'}/hddtemp-".$array[$#array].".rrd", "-t", "temperature", "N:$temp");
$ERROR = RRDs::error; $ERROR = RRDs::error;
print "Error in RRD::update for hdd-".$array[$#array].": $ERROR\n" if $ERROR; print "Error in RRD::update for hdd-".$array[$#array].": $ERROR\n" if $ERROR;
} }
} }
} }
## Update ipac logs
#system ('/usr/sbin/fetchipac');
## Update vnstat ## Update vnstat
system ('/usr/bin/vnstat -u'); system ('/usr/bin/vnstat -u');
my @disks = `kudzu -qps -c HD | grep device: | cut -d" " -f2 | sort | uniq`; my @disks = `kudzu -qps -c HD | grep device: | cut -d" " -f2 | sort | uniq`;
system("unlink /tmp/hddstatus && touch /tmp/hddstatus"); system("unlink /tmp/hddstatus && touch /tmp/hddstatus");
foreach (@disks){ foreach (@disks){
my $disk = $_; my $disk = $_;
chomp $disk; chomp $disk;
print "Working on disk ".$disk.".\n"; print "Working on disk ".$disk.".\n";
my $status = ""; my $status = "";
my $diskstats = ""; my $diskstats = "";
my $newdiskstats = ""; my $newdiskstats = "";
my @array = split(/\//,$disk); my @array = split(/\//,$disk);
$diskstats = `cat /tmp/hddstats-$array[$#array]`; $diskstats = `cat /tmp/hddstats-$array[$#array]`;
chomp $diskstats; chomp $diskstats;
my $newdiskstats = `/usr/bin/iostat -d -t $disk | tail -2 | head -1 | awk '{ print \$5","\$6}'`; my $newdiskstats = `/usr/bin/iostat -d -t $disk | tail -2 | head -1 | awk '{ print \$5","\$6}'`;
chomp $newdiskstats; chomp $newdiskstats;
my $status = `hdparm -C /dev/$disk | tail -1 | cut -d: -f2`; my $status = `hdparm -C /dev/$disk | tail -1 | cut -d: -f2`;
chomp $status; chomp $status;
if ($status !~/standby/ || $diskstats ne $newdiskstats){ if ($status !~/standby/ || $diskstats ne $newdiskstats){
if (-e "/tmp/hddshutdown-".$array[$#array]){system("unlink /tmp/hddshutdown-".$array[$#array]);} if (-e "/tmp/hddshutdown-".$array[$#array]){system("unlink /tmp/hddshutdown-".$array[$#array]);}
} }
if (-e "/tmp/hddshutdown-".$array[$#array]){$status = " standby\n";} if (-e "/tmp/hddshutdown-".$array[$#array]){$status = " standby\n";}
else{$status = " active\n";} else{$status = " active\n";}
open(DATEI, ">>/tmp/hddstatus") || die "Datei nicht gefunden"; open(DATEI, ">>/tmp/hddstatus") || die "Datei nicht gefunden";
print DATEI $disk."-".$status; print DATEI $disk."-".$status;
close(DATEI); close(DATEI);
updatehdddata($disk); updatehdddata($disk);
} }