]>
git.ipfire.org Git - people/pmueller/ipfire-2.x.git/blob - html/cgi-bin/hardwaregraphs.cgi
2 ###############################################################################
4 # IPFire.org - A linux based firewall #
5 # Copyright (C) 2008 Michael Tremer & Christian Schmidt #
7 # This program is free software: you can redistribute it and/or modify #
8 # it under the terms of the GNU General Public License as published by #
9 # the Free Software Foundation, either version 3 of the License, or #
10 # (at your option) any later version. #
12 # This program is distributed in the hope that it will be useful, #
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of #
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
15 # GNU General Public License for more details. #
17 # You should have received a copy of the GNU General Public License #
18 # along with this program. If not, see <http://www.gnu.org/licenses/>. #
20 ###############################################################################
24 # enable only the following on debugging purpose
26 use CGI
::Carp
'fatalsToBrowser';
28 require '/var/ipfire/general-functions.pl';
29 require "${General::swroot}/lang.pl";
30 require "${General::swroot}/header.pl";
31 require "${General::swroot}/graphs.pl";
34 my %mainsettings = ();
35 &General
::readhash
("${General::swroot}/main/settings", \
%mainsettings);
36 &General
::readhash
("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \
%color);
38 my %sensorsettings = ();
39 my $rrdlog = "/var/log/rrd";
41 my @sensorsgraphs = ();
42 my @sensorsdir = `ls -dA $rrdlog/collectd/localhost/sensors-*/`;
43 foreach (@sensorsdir){
47 push(@sensorsgraphs,$_);
51 my @querry = split(/\?/,$ENV{'QUERY_STRING'});
52 $querry[0] = '' unless defined $querry[0];
53 $querry[1] = 'hour' unless defined $querry[1];
55 if ( $querry[0] =~ "hwtemp"){
56 print "Content-type: image/png\n\n";
58 &Graphs
::updatehwtempgraph
($querry[1]);
59 }elsif ( $querry[0] =~ "hwfan"){
60 print "Content-type: image/png\n\n";
62 &Graphs
::updatehwfangraph
($querry[1]);
63 }elsif ( $querry[0] =~ "hwvolt"){
64 print "Content-type: image/png\n\n";
66 &Graphs
::updatehwvoltgraph
($querry[1]);
67 }elsif ( $querry[0] =~ "sd?" || $querry[0] =~ "hd?" ){
68 print "Content-type: image/png\n\n";
70 &Graphs
::updatehddgraph
($querry[0],$querry[1]);
72 &Header
::showhttpheaders
();
73 &Header
::openpage
($Lang::tr
{'harddisk temperature graphs'}, 1, '');
74 &Header
::openbigbox
('100%', 'left');
76 &Header
::getcgihash
(\
%sensorsettings);
78 if ( $sensorsettings{'ACTION'} eq $Lang::tr
{'save'} ) {
79 foreach(@sensorsgraphs){
81 $_ =~ /\/(.*)sensors
-(.*)\
/(.*)\.rrd/;
82 my $label = $2.$3;$label=~ s/-//g;
83 if ( $sensorsettings{'LINE-'.$label} ne "on" ){$sensorsettings{'LINE-'.$label} = 'off';}
84 elsif ( $sensorsettings{'LINE-'.$label} eq "on" ){$sensorsettings{'LINE-'.$label} = 'checked';}
86 &General
::writehash
("${General::swroot}/sensors/settings", \
%sensorsettings);
89 my @disks = `kudzu -qps -c HD | grep device: | cut -d" " -f2 | sort | uniq`;
94 my @array = split(/\//,$disk);
96 &Header
::openbox
('100%', 'center', "$array[$#array] $Lang::tr{'graph'}");
97 &Graphs
::makegraphbox
("hardwaregraphs.cgi",$array[$#array],"day");
101 &Header
::openbox
('100%', 'center', "hwtemp $Lang::tr{'graph'}");
102 &Graphs
::makegraphbox
("hardwaregraphs.cgi","hwtemp","day");
105 &Header
::openbox
('100%', 'center', "hwfan $Lang::tr{'graph'}");
106 &Graphs
::makegraphbox
("hardwaregraphs.cgi","hwfan","day");
109 &Header
::openbox
('100%', 'center', "hwvolt $Lang::tr{'graph'}");
110 &Graphs
::makegraphbox
("hardwaregraphs.cgi","hwvolt","day","375");
115 &Header
::closebigbox
();
116 &Header
::closepage
();
122 &Header
::openbox
('100%', 'center', "$Lang::tr{'mbmon settings'}");
125 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
126 <table width='100%' border='0' cellspacing='5' cellpadding='0' align='center'>
128 <td align='right' width='40%'><b>$Lang::tr{'mbmon display'}</b></td>
129 <td align='left'><b>$Lang::tr{'mbmon label'}</b></td>
134 foreach (@sensorsgraphs){
135 $_ =~ /\/(.*)sensors
-(.*)\
/(.*)\.rrd/;
136 my $label = $2.$3;$label=~ s/-//g;
137 $sensorsettings{'LABEL-'.$label}="$label";
138 $sensorsettings{'LINE-'.$label}="checked";
139 &General
::readhash
("${General::swroot}/sensors/settings", \
%sensorsettings);
140 print("<tr><td align='right'><input type='checkbox' name='LINE-$label' $sensorsettings{'LINE-'.$label} /></td>");
141 print("<td><input type='text' name='LABEL-$label' value='$sensorsettings{'LABEL-'.$label}' size='25' /></td></tr>\n");
146 <td align='center' colspan='2' ><input type='submit' name='ACTION' value=$Lang::tr{'save'} /></td>