html/cgi-bin/hardwaregraphs.cgi

   1 #!/usr/bin/perl
   2 #
   3 # This code is based on hddGraph and mbmongraph
   4 # written by weizen_42 and distributed under the
   5 # terms of the GPLv2.
   6 # http://www.ban-solms.de/t/IPCop-mbmongraph.html
   7 # http://www.ban-solms.de/t/IPCop-hddgraph.html
   8 #
   9
  10 use strict;
  11
  12 # enable only the following on debugging purpose
  13 # use warnings;
  14 # use CGI::Carp 'fatalsToBrowser';
  15
  16 require '/var/ipfire/general-functions.pl';
  17 require "${General::swroot}/lang.pl";
  18 require "${General::swroot}/header.pl";
  19
  20 my %cgiparams=();
  21 my @cgigraphs=();
  22 my @graphs=();
  23
  24 &Header::showhttpheaders();
  25
  26 my $graphdir = "/srv/web/ipfire/html/graphs";
  27
  28 &Header::getcgihash(\%cgiparams);
  29
  30 $ENV{'QUERY_STRING'} =~ s/&//g;
  31 @cgigraphs = split(/graph=/,$ENV{'QUERY_STRING'});
  32 $cgigraphs[1] = '' unless defined $cgigraphs[1];
  33
  34 my %mbmon_settings = ();
  35 my %mbmon_values = ();
  36 &General::readhash("/var/log/mbmon-values", \%mbmon_values);
  37 my $key;
  38
  39 if ( $cgiparams{'ACTION'} eq $Lang::tr{'save'} )
  40 {
  41   $mbmon_settings{'GRAPH_TEMP'} = ($cgiparams{'TEMP'} eq 'on');
  42   $mbmon_settings{'GRAPH_FAN'} = ($cgiparams{'FAN'} eq 'on');
  43   $mbmon_settings{'GRAPH_VOLT'} = ($cgiparams{'VOLT'} eq 'on');
  44   $mbmon_settings{'GRAPH_HDD'} = ($cgiparams{'HDD'} eq 'on');
  45
  46   foreach my $line (sort keys %cgiparams)
  47   {
  48     if ( index($line, "LINE-") != -1 )
  49     {
  50       $mbmon_settings{$line} = 'on';
  51     }
  52
  53     if ( index($line, "LABEL-") != -1 )
  54     {
  55       $mbmon_settings{$line} = $cgiparams{$line};
  56     }
  57   }
  58
  59   &General::writehash("${General::swroot}/mbmon/settings", \%mbmon_settings);
  60 }
  61 else
  62 {
  63   &General::readhash("${General::swroot}/mbmon/settings", \%mbmon_settings);
  64 }
  65
  66 my $selected_temp = '';
  67 my $selected_fan = '';
  68 my $selected_volt = '';
  69 my $selected_hdd = '';
  70
  71 $selected_temp = "checked='checked'" if ( $mbmon_settings{'GRAPH_TEMP'} == 1 );
  72 $selected_fan  = "checked='checked'" if ( $mbmon_settings{'GRAPH_FAN'} == 1 );
  73 $selected_volt = "checked='checked'" if ( $mbmon_settings{'GRAPH_VOLT'} == 1 );
  74 $selected_hdd = "checked='checked'" if ( $mbmon_settings{'GRAPH_HDD'} == 1 );
  75
  76 my %mbmon_graphs = ();
  77 foreach $key ( sort(keys %mbmon_values) )
  78 {
  79   $mbmon_graphs{$key} = "checked='checked'" if ( $mbmon_settings{'LINE-'.$key} eq 'on' );
  80   if ( !defined($mbmon_settings{'LABEL-'.$key}) )
  81   {
  82     $mbmon_settings{'LABEL-'.$key} = $key;
  83   }
  84 }
  85
  86 &Header::openpage($Lang::tr{'harddisk temperature graphs'}, 1, '');
  87
  88 &Header::openbigbox('100%', 'left');
  89
  90 ###############
  91 # DEBUG DEBUG
  92 #&Header::openbox('100%', 'left', 'DEBUG');
  93 #my $debugCount = 0;
  94 #foreach my $line (sort keys %cgiparams) {
  95 #  print "$line = $cgiparams{$line}<br />\n";
  96 #  $debugCount++;
  97 #}
  98 #print "&nbsp;Count: $debugCount\n";
  99 #&Header::closebox();
 100 # DEBUG DEBUG
 101 ###############
 102
 103 if ($cgigraphs[1] =~ /(temp|fan|volt)/)
 104 {
 105   my $graph = $cgigraphs[1];
 106   my $graphname = $Lang::tr{"mbmon $cgigraphs[1]"};
 107   &Header::openbox('100%', 'center', "$graphname $Lang::tr{'graph'}");
 108
 109   if (-e "$graphdir/mbmon-${graph}-day.png")
 110   {
 111     my $ftime = localtime((stat("$graphdir/mbmon-${graph}-day.png"))[9]);
 112     print "<center>";
 113     print "<b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br /><hr />\n";
 114     print "<img src='/graphs/mbmon-${graph}-day.png' border='0' /><hr />";
 115     print "<img src='/graphs/mbmon-${graph}-week.png' border='0' /><hr />";
 116     print "<img src='/graphs/mbmon-${graph}-month.png' border='0' /><hr />";
 117     print "<img src='/graphs/mbmon-${graph}-year.png' border='0' />";
 118   }
 119   else
 120   {
 121     print $Lang::tr{'no information available'};
 122   }
 123   &Header::closebox();
 124   print "<div align='center'><table width='80%'><tr><td align='center'>";
 125   print "<a href='/cgi-bin/mbmongraph.cgi'>";
 126   print "$Lang::tr{'back'}</a></td></tr></table></div>\n";
 127 }
 128 elsif ($cgigraphs[1] =~ /(hdd)/)
 129 {
 130   my $graph = $cgigraphs[1];
 131   my $graphname = $Lang::tr{"harddisk temperature"};
 132   &Header::openbox('100%', 'center', "$graphname $Lang::tr{'graph'}");
 133
 134     if (-e "$graphdir/hddtemp-day.png")
 135      {
 136       my $ftime = localtime((stat("$graphdir/hddtemp-day.png"))[9]);
 137       print "<center>";
 138       print "<b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br /><hr />\n";
 139       print "<img src='/graphs/hddtemp-day.png' border='0' /><hr />";
 140       print "<img src='/graphs/hddtemp-week.png' border='0' /><hr />";
 141       print "<img src='/graphs/hddtemp-month.png' border='0' /><hr />";
 142       print "<img src='/graphs/hddtemp-year.png' border='0' />";
 143       if ( -e "/var/log/hddgraph_smartctl_out" )
 144       {
 145         my $output = `/bin/cat /var/log/hddgraph_smartctl_out`;
 146         $output = &Header::cleanhtml($output);
 147         print "<hr><pre>$output</pre>\n";
 148       }
 149     }
 150     else
 151     {
 152       print $Lang::tr{'no information available'};
 153     }
 154   &Header::closebox();
 155   print "<div align='center'><table width='80%'><tr><td align='center'>";
 156   print "<a href='/cgi-bin/mbmongraph.cgi'>";
 157   print "$Lang::tr{'back'}</a></td></tr></table></div>\n";
 158 }
 159 else
 160 {
 161   if ( $mbmon_settings{'GRAPH_TEMP'} == 1 )
 162   {
 163     &Header::openbox('100%', 'center', "$Lang::tr{'mbmon temp'} $Lang::tr{'graph'}");
 164     if (-e "$graphdir/mbmon-temp-day.png")
 165     {
 166       my $ftime = localtime((stat("$graphdir/mbmon-temp-day.png"))[9]);
 167       print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
 168       print "<a href='/cgi-bin/mbmongraph.cgi?graph=temp'>";
 169       print "<img src='/graphs/mbmon-temp-day.png' border='0' />";
 170       print "</a>";
 171     }
 172     else
 173     {
 174       print $Lang::tr{'no information available'};
 175     }
 176     print "<br />\n";
 177     &Header::closebox();
 178   }
 179
 180   if ( $mbmon_settings{'GRAPH_FAN'} == 1 )
 181   {
 182     &Header::openbox('100%', 'center', "$Lang::tr{'mbmon fan'} $Lang::tr{'graph'}");
 183     if (-e "$graphdir/mbmon-fan-day.png")
 184     {
 185       my $ftime = localtime((stat("$graphdir/mbmon-fan-day.png"))[9]);
 186       print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
 187       print "<a href='/cgi-bin/mbmongraph.cgi?graph=fan'>";
 188       print "<img src='/graphs/mbmon-fan-day.png' border='0' />";
 189       print "</a>";
 190     }
 191     else
 192     {
 193       print $Lang::tr{'no information available'};
 194     }
 195     print "<br />\n";
 196     &Header::closebox();
 197   }
 198
 199   if ( $mbmon_settings{'GRAPH_VOLT'} == 1 )
 200   {
 201     &Header::openbox('100%', 'center', "$Lang::tr{'mbmon volt'} $Lang::tr{'graph'}");
 202     if (-e "$graphdir/mbmon-volt-day.png")
 203     {
 204       my $ftime = localtime((stat("$graphdir/mbmon-volt-day.png"))[9]);
 205       print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
 206       print "<a href='/cgi-bin/mbmongraph.cgi?graph=volt'>";
 207       print "<img src='/graphs/mbmon-volt-day.png' border='0' />";
 208       print "</a>";
 209     }
 210     else
 211     {
 212       print $Lang::tr{'no information available'};
 213     }
 214     print "<br />\n";
 215     &Header::closebox();
 216   }
 217
 218   if ( $mbmon_settings{'GRAPH_HDD'} == 1 )
 219   {
 220     &Header::openbox('100%', 'center', $Lang::tr{'harddisk temperature'});
 221     if (-e "$graphdir/hddtemp-day.png")
 222      {
 223       my $ftime = localtime((stat("$graphdir/hddtemp-day.png"))[9]);
 224       print "<center>";
 225       print "<b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br /><hr />\n";
 226       print "<a href='/cgi-bin/hddgraph.cgi?graph=hdd'>";
 227       print "<img src='/graphs/hddtemp-day.png' border='0' /><hr />";
 228       print "</a>";
 229     }
 230     else
 231     {
 232       print $Lang::tr{'no information available'};
 233     }
 234     print "<br />\n";
 235     &Header::closebox();
 236   }
 237
 238   &Header::openbox('100%', 'center', $Lang::tr{'settings'});
 239 print <<END
 240 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 241 <table width='100%'>
 242 <tr><td colspan='2'><input type='checkbox' name='TEMP' $selected_temp />&nbsp;$Lang::tr{'mbmon temp'} $Lang::tr{'graph'}</td></tr>
 243 <tr><td colspan='2'><input type='checkbox' name='FAN' $selected_fan />&nbsp;$Lang::tr{'mbmon fan'} $Lang::tr{'graph'}</td></tr>
 244 <tr><td colspan='2'><input type='checkbox' name='VOLT' $selected_volt />&nbsp;$Lang::tr{'mbmon volt'} $Lang::tr{'graph'}</td></tr>
 245 <tr><td colspan='2'><input type='checkbox' name='HDD' $selected_hdd />&nbsp;$Lang::tr{'harddisk temperature'}-$Lang::tr{'graph'}</td></tr>
 246 </table>
 247 <hr />
 248 <table width='100%' border='0' cellspacing='1' cellpadding='0'>
 249 <tr><td align='center' width='10%'><b>$Lang::tr{'mbmon display'}</b></td><td align='center' width='15%'>&nbsp;</td><td align='center' width='15%'><b>$Lang::tr{'mbmon value'}</b></td><td align='left'><b>$Lang::tr{'mbmon label'}</b></td></tr>
 250 END
 251 ;
 252
 253 my $i = 0;
 254 foreach $key ( sort(keys %mbmon_values) )
 255 {
 256   if ( $i % 2 )
 257   {
 258     print("<tr bgcolor='$Header::table2colour'>");
 259   }
 260   else
 261   {
 262     print("<tr bgcolor='$Header::table1colour'>");
 263   }
 264   $mbmon_settings{'LABEL-'.$key} = &Header::cleanhtml($mbmon_settings{'LABEL-'.$key});
 265   print("<td align='center'><input type='checkbox' name='LINE-$key' $mbmon_graphs{$key}/></td>");
 266   print("<td>$key</td><td align='center'>$mbmon_values{$key}</td>\n");
 267   print("<td>&nbsp;<input type='text' name='LABEL-$key' value='$mbmon_settings{'LABEL-'.$key}' size='25' /></td></tr>\n");
 268   $i++;
 269 }
 270
 271 print <<END
 272 </table>
 273
 274 <table width='100%'>
 275 <tr><td class='base' valign='top'>&nbsp;</td><td width='40%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'save'}' /></td></tr>
 276 </table>
 277
 278 </form>
 279 END
 280 ;
 281   &Header::closebox();
 282 }
 283
 284 &Header::closebox();
 285
 286 &Header::closebigbox();
 287 &Header::closepage();