Supress error output:

diff --git a/status/sensors-monitor.pl b/status/sensors-monitor.pl
index 43478e1..2c7282c 100644 (file)
--- a/status/sensors-monitor.pl
+++ b/status/sensors-monitor.pl
@@ -65,7 +65,7 @@ sub get_sensors_values
 {
 if (!defined(@get_sensors_cache)) {
        local @rv;
-       open(SENS, "sensors |");
+       open(SENS, "sensors 2>/dev/null |");
        while(<SENS>) {
                if (/^([^:]+):\s+([0-9\.\+\-]+)\s*(\S+)\s+\(min\s+=\s+([0-9\.\+\-]+)\s*(\S+),\s+max\s+=\s+([0-9\.\+\-]+)/) {
                        # Value with min and max

diff --git a/status/sslcert-monitor.pl b/status/sslcert-monitor.pl
index 6002ee4..b265c91 100644 (file)
--- a/status/sslcert-monitor.pl
+++ b/status/sslcert-monitor.pl
@@ -43,7 +43,6 @@ else {
 local $info = &backquote_command("openssl x509 -in ".quotemeta($certfile).
                                 " -inform PEM -text -noout -enddate ".
                                 " </dev/null 2>&1");
-print STDERR "info=$info\n";
 
 # Check dates
 &foreign_require("mailboxes", "mailboxes-lib.pl");
@@ -55,7 +54,6 @@ if ($info =~ /Not\s+After\s*:\s*(.*)/i) {
        $end = &mailboxes::parse_mail_date("$1");
        }
 local $now = time();
-print STDERR "start=$start end=$end now=$now\n";
 if ($start && $now < $start) {
        # Too new?!
        $desc = &text('sslcert_estart', &make_date($start));