Add setddns.pl to core32

[people/pmueller/ipfire-2.x.git] / html / cgi-bin / index.cgi

diff --git a/html/cgi-bin/index.cgi b/html/cgi-bin/index.cgi
index df783151516ec2ed25436fc3a7cc18ab136f8110..2ae0ecf4ceae6d0c68717d5daa43f709ab027a99 100644 (file)
--- a/html/cgi-bin/index.cgi
+++ b/html/cgi-bin/index.cgi
@@ -28,6 +28,7 @@ use strict;
 require '/var/ipfire/general-functions.pl';
 require "${General::swroot}/lang.pl";
 require "${General::swroot}/header.pl";
+require "/opt/pakfire/lib/functions.pl";
 
 my %cgiparams=();
 my %pppsettings=();
@@ -416,11 +417,26 @@ foreach my $line (@df) {
        }
 }
 
+# S.M.A.R.T. health warning
+my @files = `/bin/ls /var/run/smartctl_out_hddtemp-*`;
+foreach my $file (@files) {
+       chomp ($file);
+       my $disk=`echo $file | cut -d"-" -f2`;
+       chomp ($disk);
+       if (`/bin/grep "SAVE ALL DATA" $file`) {
+               $warnmessage .= "$Lang::tr{'smartwarn1'} $disk $Lang::tr{'smartwarn2'}<br>\n";
+       }
+}
+
 if ($warnmessage) {
        print "<tr><td align='center' bgcolor=$Header::colourred colspan='3'><font color='white'>$warnmessage</font></table>";
 }
 print <<END;
 </table>
+END
+;
+&Pakfire::dblist("upgrade", "notice");
+print <<END;
 
 END
 } else {