packages: nagios-plugin-check_raid/check_raid - MSA volumes check from /sys...

[glen]

Author: glen                         Date: Tue Oct 20 18:52:36 2009 GMT
Module: packages                      Tag: HEAD
---- Log message:
- MSA volumes check from /sys
- write PID to uucp lockfile

---- Files affected:
packages/nagios-plugin-check_raid:
   check_raid (1.61 -> 1.62) 

---- Diffs:

================================================================
Index: packages/nagios-plugin-check_raid/check_raid
diff -u packages/nagios-plugin-check_raid/check_raid:1.61 
packages/nagios-plugin-check_raid/check_raid:1.62
--- packages/nagios-plugin-check_raid/check_raid:1.61   Sun Oct 18 13:29:27 2009
+++ packages/nagios-plugin-check_raid/check_raid        Tue Oct 20 20:52:31 2009
@@ -794,17 +794,29 @@
        $message .= "cciss: ".join(', ', @status) if @status;
 }
 
+# check from /sys if there are any MSA VOLUME's present.
+sub sys_have_msa {
+       for my $file (</sys/block/*/device/model>) {
+               open my $fh, '<', $file or next;
+               my $model = <$fh>;
+               close($fh);
+               return 1 if ($model =~ /^MSA.+VOLUME/);
+       }
+       return 0;
+}
+
 sub check_hp_msa {
-       my $device = "/dev/ttyS0";
+       # TODO: unhardcode out modem dev
+       my $ctldevice = "/dev/ttyS0";
 
        # status messages pushed here
        my @status;
 
-       my $modem = new SerialLine($device);
+       my $modem = new SerialLine($ctldevice);
        my $fh = $modem->open();
        unless ($fh) {
                $status = $ERRORS{WARNING} unless $status;
-               $message .= "hp_msa: Can't open $device";
+               $message .= "hp_msa: Can't open $ctldevice";
                return;
        }
 
@@ -1050,8 +1062,8 @@
 check_megarc if $megarc;
 check_cmdtool2 if $cmdtool2;
 check_cciss if -d "/proc/driver/cciss";
-# TODO: better detect, unhardcode out modem dev
-check_hp_msa if -e "/dev/mail_storage/spool"; # pretty stupid test
+check_hp_msa if sys_have_msa;
+
 
 if ($message) {
        if ($status == $ERRORS{OK}) {
@@ -1100,6 +1112,7 @@
                return 0;
        }
        open(my $fh, '>', $lockfile) || croak "Can't create lock: $lockfile\n";
+       print $fh $$;
        close($fh);
 
        $self->{lockfile} = $lockfile;
================================================================

---- CVS-web:
    
http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/nagios-plugin-check_raid/check_raid?r1=1.61&r2=1.62&f=u

_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit