+ if (-e "$graphdir/hddtemp-$disk-month.png") {
+
+ &Header::openbox('100%', 'center', "Disk $disk $Lang::tr{'graph'}");
+ my $ftime = localtime((stat("$graphdir/hddtemp-$disk-month.png"))[9]);
+ print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
+ print "<img src='/graphs/hddtemp-$disk-day.png' border='0' />";
+ print "<br />\n";
+ &Header::closebox();
+ }
+ if (-e "$graphdir/hddtemp-$disk-year.png") {
+
+ &Header::openbox('100%', 'center', "Disk $disk $Lang::tr{'graph'}");
+ my $ftime = localtime((stat("$graphdir/hddtemp-$disk-year.png"))[9]);
+ print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
+ print "<img src='/graphs/hddtemp-$disk-year.png' border='0' />";
+ print "<br />\n";
+ &Header::closebox();
+ }
+}
+
+sub graphbox {
+ my $graph = $_[0];
+
+ &Header::openbox('100%', 'center', "$graph $Lang::tr{'graph'}");
+ if (-e "$graphdir/mbmon-$graph-week.png"){
+ my $ftime = localtime((stat("$graphdir/mbmon-$graph-day.png"))[9]);
+ print "<center>";
+ print "<b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
+ print "<img src='/graphs/mbmon-$graph-day.png' border='0' /><hr />";
+ }
+ else{print $Lang::tr{'no information available'};}
+ &Header::closebox();
+ &Header::openbox('100%', 'center', "$graph $Lang::tr{'graph'}");
+ if (-e "$graphdir/mbmon-$graph-month.png"){
+ my $ftime = localtime((stat("$graphdir/mbmon-$graph-month.png"))[9]);
+ print "<center>";
+ print "<b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
+ print "<img src='/graphs/mbmon-$graph-month.png' border='0' /><hr />";
+ }
+ else{print $Lang::tr{'no information available'};}
+ &Header::closebox();
+ &Header::openbox('100%', 'center', "$graph $Lang::tr{'graph'}");
+ if (-e "$graphdir/mbmon-$graph-year.png"){
+ my $ftime = localtime((stat("$graphdir/mbmon-$graph-year.png"))[9]);
+ print "<center>";
+ print "<b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
+ print "<img src='/graphs/mbmon-$graph-year.png' border='0' /><hr />";
+ }
+ else{print $Lang::tr{'no information available'};}
+ &Header::closebox();
+}
+
+sub mbmonbox{
+
+ foreach (@mbmongraphs){
+ chomp($_);
+ my @name=split(/\./,$_);my $label = $name[0]; $label=~ s/-//;
+ $mbmonsettings{'LABEL-'.$name[0]}="$label";
+ $mbmonsettings{'LINE-'.$name[0]}="checked";
+ }
+ &General::readhash("${General::swroot}/mbmon/settings", \%mbmonsettings);
+
+ &Header::openbox('100%', 'center', "$Lang::tr{'mbmon settings'}");
+ if ( $cgiparams{'ACTION'} eq $Lang::tr{'save'} ){print "Test";}
+
+ print <<END
+ <form method='post' action='$ENV{'SCRIPT_NAME'}'>
+ <table width='100%' border='0' cellspacing='5' cellpadding='0' align='center'>
+ <tr><td align='right' width='40%'><b>$Lang::tr{'mbmon display'}</b></td>
+ <td align='left'><b>$Lang::tr{'mbmon label'}</b></td>
+ </tr>
+END
+;
+ foreach (@mbmongraphs){
+ chomp($_);my @name=split(/\./,$_);
+ print("<tr><td align='right'><input type='checkbox' name='LINE-$name[0]' $mbmonsettings{'LINE-'.$name[0]} /></td>");
+ print("<td><input type='text' name='LABEL-$name[0]' value='$mbmonsettings{'LABEL-'.$name[0]}' size='25' /></td></tr>\n");
+ }
+ print <<END
+ <tr><td align='center' colspan='2' ><input type='submit' name='ACTION' value=$Lang::tr{'save'} /></td></tr>
+ </table>
+ </form>
+END
+;
+ &Header::closebox();