]>
Commit | Line | Data |
---|---|---|
cd1a2927 MT |
1 | #!/usr/bin/perl |
2 | ||
5468f102 CS |
3 | ############################################################################### |
4 | # # | |
5 | # IPFire.org - A linux based firewall # | |
ea31a62a | 6 | # Copyright (C) 2008-2013 IPFire Team <info@ipfire.org> # |
5468f102 CS |
7 | # # |
8 | # This program is free software: you can redistribute it and/or modify # | |
9 | # it under the terms of the GNU General Public License as published by # | |
10 | # the Free Software Foundation, either version 3 of the License, or # | |
11 | # (at your option) any later version. # | |
12 | # # | |
13 | # This program is distributed in the hope that it will be useful, # | |
14 | # but WITHOUT ANY WARRANTY; without even the implied warranty of # | |
15 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # | |
16 | # GNU General Public License for more details. # | |
17 | # # | |
18 | # You should have received a copy of the GNU General Public License # | |
19 | # along with this program. If not, see <http://www.gnu.org/licenses/>. # | |
20 | # # | |
21 | ############################################################################### | |
60cbd6e7 | 22 | |
cd1a2927 MT |
23 | use strict; |
24 | #use warnings; | |
25 | ||
26 | use RRDs; | |
986e08d9 | 27 | require "/var/ipfire/general-functions.pl"; |
cd1a2927 MT |
28 | require "${General::swroot}/lang.pl"; |
29 | ||
cd1a2927 | 30 | # Settings |
cd1a2927 | 31 | $ENV{PATH}="/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin"; |
a68fedca | 32 | my $temp = ''; |
52345790 | 33 | my $ERROR; |
52345790 MT |
34 | my $path_smartctl = "/usr/sbin/smartctl"; |
35 | ||
4b4aec3a CS |
36 | my %color = (); |
37 | my %mainsettings = (); | |
38 | &General::readhash("${General::swroot}/main/settings", \%mainsettings); | |
8186b372 | 39 | &General::readhash("/srv/web/ipfire/html/themes/ipfire/include/colors.txt", \%color); |
52345790 | 40 | |
dd7d74eb AF |
41 | if ( $mainsettings{'RRDLOG'} eq "" ){ |
42 | $mainsettings{'RRDLOG'}="/var/log/rrd"; | |
43 | &General::writehash("${General::swroot}/main/settings", \%mainsettings); | |
44 | } | |
45 | ||
5468f102 CS |
46 | sub updatehdddata{ |
47 | my $disk = $_[0]; | |
48 | my $standby; | |
49 | my @array = split(/\//,$disk); | |
50 | ||
51 | if ( ! -e "$mainsettings{'RRDLOG'}/hddshutdown-".$array[$#array].".rrd"){ | |
52 | # database did not exist -> create | |
53 | RRDs::create ("$mainsettings{'RRDLOG'}/hddshutdown-".$array[$#array].".rrd", "--step=300", | |
54 | "DS:standby:GAUGE:600:0:1", | |
55 | "RRA:AVERAGE:0.5:1:576", | |
56 | "RRA:AVERAGE:0.5:6:672", | |
57 | "RRA:AVERAGE:0.5:24:732", | |
58 | "RRA:AVERAGE:0.5:144:1460"); | |
59 | $ERROR = RRDs::error; | |
60 | print "Error in RRD::create for hddshutdown-".$array[$#array].": $ERROR\n" if $ERROR; | |
61 | } | |
62 | ||
965f4547 | 63 | if (-e "/var/run/hddshutdown-".$array[$#array]) {$standby = 1;} |
5468f102 CS |
64 | else {$standby = 0;} |
65 | ||
66 | RRDs::update ("$mainsettings{'RRDLOG'}/hddshutdown-".$array[$#array].".rrd", "-t", "standby", "N:$standby"); | |
67 | $ERROR = RRDs::error; | |
68 | print "Error in RRD::update for hddshutdown-".$array[$#array].": $ERROR\n" if $ERROR; | |
69 | ||
70 | if ( ! -e "$mainsettings{'RRDLOG'}/hddtemp-".$array[$#array].".rrd"){ | |
71 | # database did not exist -> create | |
72 | RRDs::create ("$mainsettings{'RRDLOG'}/hddtemp-".$array[$#array].".rrd", "--step=300", | |
73 | "DS:temperature:GAUGE:600:0:100", | |
74 | "RRA:AVERAGE:0.5:1:576", | |
75 | "RRA:AVERAGE:0.5:6:672", | |
76 | "RRA:AVERAGE:0.5:24:732", | |
77 | "RRA:AVERAGE:0.5:144:1460"); | |
78 | $ERROR = RRDs::error; | |
79 | print "Error in RRD::create for hdd-".$array[$#array].": $ERROR\n" if $ERROR; | |
80 | } | |
81 | ||
82 | # Temperaturlesen w�rde die Platte aufwecken!!! | |
83 | if (!$standby){ | |
84 | $temp = 0; | |
85 | my $smart_output = ''; | |
bf97c674 | 86 | system("$path_smartctl -iHA /dev/$disk > /var/run/smartctl_out_hddtemp-$disk"); |
965f4547 | 87 | if ( -e "/var/run/smartctl_out_hddtemp-".$array[$#array] ){ |
ca9c45b3 AF |
88 | my $hdd_nvme = `grep "NVMe Log" /var/run/smartctl_out_hddtemp-$array[$#array]`; |
89 | if ( $hdd_nvme !~/NVMe Log/ ) { | |
90 | my $hdd_output = `cat /var/run/smartctl_out_hddtemp-$array[$#array] | grep Temperature_`; | |
91 | my @t = split(/\s+/,$hdd_output); | |
92 | $temp = $t[9]; | |
93 | } else { | |
94 | my $hdd_output = `cat /var/run/smartctl_out_hddtemp-$array[$#array] | grep Temperature:`; | |
95 | my @t = split(/\s+/,$hdd_output); | |
96 | $temp = $t[1]; | |
97 | } | |
98 | } else { $temp = 0; } | |
5468f102 CS |
99 | print "Temperature for ".$array[$#array]."->".$temp."<-\n"; |
100 | # Nur ins RDD wenn nicht 0 (sonst klappt die min Anzeige nicht) | |
101 | if ($temp){ | |
102 | RRDs::update ("$mainsettings{'RRDLOG'}/hddtemp-".$array[$#array].".rrd", "-t", "temperature", "N:$temp"); | |
103 | $ERROR = RRDs::error; | |
104 | print "Error in RRD::update for hdd-".$array[$#array].": $ERROR\n" if $ERROR; | |
105 | } | |
106 | } | |
52345790 MT |
107 | } |
108 | ||
ca9c45b3 | 109 | my @disks = `ls -1 /sys/block | grep -E '^sd|^nvme|^mmcblk|^xvd|^vd|^md' | sort | uniq`; |
8845173b | 110 | system("unlink /var/run/hddstatus 2>/dev/null && touch /var/run/hddstatus"); |
350b52c5 | 111 | foreach (@disks){ |
5468f102 CS |
112 | my $disk = $_; |
113 | chomp $disk; | |
114 | print "Working on disk ".$disk.".\n"; | |
115 | ||
116 | my $status = ""; | |
117 | my $diskstats = ""; | |
118 | my $newdiskstats = ""; | |
119 | my @array = split(/\//,$disk); | |
120 | ||
8845173b | 121 | $diskstats = `cat /var/run/hddstats-$array[$#array] 2>/dev/null`; |
5468f102 CS |
122 | chomp $diskstats; |
123 | my $newdiskstats = `/usr/bin/iostat -d -t $disk | tail -2 | head -1 | awk '{ print \$5","\$6}'`; | |
124 | chomp $newdiskstats; | |
125 | my $status = `hdparm -C /dev/$disk | tail -1 | cut -d: -f2`; | |
126 | chomp $status; | |
127 | ||
128 | if ($status !~/standby/ || $diskstats ne $newdiskstats){ | |
8845173b | 129 | if (-e "/var/run/hddshutdown-".$array[$#array]){system("unlink /var/run/hddshutdown-".$array[$#array]." 2>/dev/null");} |
5468f102 CS |
130 | } |
131 | ||
965f4547 | 132 | if (-e "/var/run/hddshutdown-".$array[$#array]){$status = " standby\n";} |
5468f102 CS |
133 | else{$status = " active\n";} |
134 | ||
965f4547 | 135 | open(DATEI, ">>/var/run/hddstatus") || die "Datei nicht gefunden"; |
5468f102 CS |
136 | print DATEI $disk."-".$status; |
137 | close(DATEI); | |
138 | ||
139 | updatehdddata($disk); | |
6c666a3b | 140 | } |