File: mdadm

package info (click to toggle)
logwatch 7.14-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,572 kB
  • sloc: perl: 8,290; sh: 354; makefile: 38
file content (129 lines) | stat: -rw-r--r-- 4,647 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129

########################################################
# Please file all bug reports, patches, and feature
# requests under:
#      https://sourceforge.net/p/logwatch/_list/tickets
# Help requests and discusion can be filed under:
#      https://sourceforge.net/p/logwatch/discussion/
########################################################

#####################################################
## Copyright (c) 2012 Pat Riehecky
## Covered under the included MIT/X-Consortium License:
##    http://www.opensource.org/licenses/mit-license.php
## All modifications and contributions by other persons to
## this script are assumed to have been donated to the
## Logwatch project and thus assume the above copyright
## and licensing terms.  If you want to make contributions
## under your own copyright or a different license this
## must be explicitly stated in the contribution an the
## Logwatch project reserves the right to not accept such
## contributions.  If you have made significant
## contributions to this script and want to claim
## copyright please contact logwatch-devel@lists.sourceforge.net.
#########################################################

use strict;

my $Detail = $ENV{'LOGWATCH_DETAIL_LEVEL'} || 0;
my $enable_scan = $ENV{'mdadm_enable_scan'} || 0;
my $ignore_missing = $ENV{'mdadm_ignore_missing'} || 0;

my @devices = ();
my $mdadm;


if (
    open($mdadm, "<", "/etc/mdadm.conf") or
    open($mdadm, "<", "/etc/mdadm/mdadm.conf") or
    open($mdadm, "-|", "mdadm --detail --scan")) {
   while (<$mdadm>) {
       if (/^ARRAY/) {
         push(@devices,(split())[1]);
       }
     }
     close($mdadm);
   }

DEV: foreach my $dev (@devices) {
  my %mdhash;

  if ($dev =~ /<ignore>/) {
    next;
  }

  open(MDADM,"mdadm --misc --detail $dev 2>&1 |");
  while (<MDADM>) {
    if ($_ =~ /cannot open .*: No such file or directory/) {
      print $_ unless $ignore_missing;
      close(MDADM);
      next DEV;
    }

    $mdhash{'level'} = $1 if ($_ =~ /Raid Level ?: ?(.*)$/);
    $mdhash{'active'} = $1 if ($_ =~ /Active Devices ?: ?(.*)$/);
    $mdhash{'working'} = $1 if ($_ =~ /Working Devices ?: ?(.*)$/);
    $mdhash{'failed'} = $1 if ($_ =~ /Failed Devices ?: ?(.*)$/);
    $mdhash{'spare'} = $1 if ($_ =~ /Spare Devices ?: ?(.*)$/);
    $mdhash{'state'} = $1 if ($_ =~ /State ?: ?(.*)$/);
    $mdhash{'rebuild'} = $1 if ($_ =~ /Rebuild Status ?: ?(.*)$/);
    push(@{$mdhash{'good devices'}},$1) if ($_ =~ /sync .*(\/dev\/[\w\d\-\_]*)/);
    push(@{$mdhash{'middle devices'}},$1) if ($_ =~ /rebuilding .*(\/dev\/[\w\d\-\_]*)/);
    push(@{$mdhash{'bad devices'}},$1) if ($_ =~ /faulty .*(\/dev\/[\w\d\-\_]*)/);
  }
  close(MDADM);

  if ($Detail <= 4) {
    if (lc($mdhash{'state'}) =~ /clean|active/) {
      print "$dev : $mdhash{'state'}\n" if $Detail;
    } else {
      print "$dev : $mdhash{'state'}\n";
      if (defined($mdhash{'middle devices'})) {
        if (defined($mdhash{'rebuild'}) and ($mdhash{'rebuild'} ne '')) {
          print "\tRebuilding status: $mdhash{'rebuild'}\n";
        }
        print "\tRebuilding @{$mdhash{'middle devices'}}\n";
      }
      if (defined($mdhash{'bad devices'})) {
        print "\tFailed @{$mdhash{'bad devices'}}\n";
      }
    }
  }
  elsif($Detail <= 9) {
    if (lc($mdhash{'state'}) =~ /clean|active/) {
      print "$dev : $mdhash{'state'} - @{$mdhash{'good devices'}}\n";
    } else {
      print "$dev : $mdhash{'state'}\n";
      if (@{$mdhash{'middle devices'}}) {
        if (defined($mdhash{'rebuild'}) and ($mdhash{'rebuild'} ne '')) {
          print "\tRebuilding status: $mdhash{'rebuild'}\n";
        }
        print "\t  Rebuilding : @{$mdhash{'middle devices'}}\n";
      }
      if (@{$mdhash{'bad devices'}}) {
        print "\t      Failed : @{$mdhash{'bad devices'}}\n";
      }
      print "\t        Good : @{$mdhash{'good devices'}}\n";
    }
  } else {
    print "$dev : $mdhash{'state'}\n";
    print "\t  Raid Level : $mdhash{'level'}\n";
    if (defined($mdhash{'good devices'}) and @{$mdhash{'good devices'}}) {
      print "\tGood Devices : @{$mdhash{'good devices'}}\n";
    }
    if (defined ($mdhash{'middle devices'}) and @{$mdhash{'middle devices'}}) {
      if (defined($mdhash{'rebuild'}) and ($mdhash{'rebuild'} ne '')) {
        print "\tRebuilding status: $mdhash{'rebuild'}\n";
      }
      print "\t  Rebuilding : @{$mdhash{'middle devices'}}\n";
    }
    if (defined($mdhash{'bad devices'}) and @{$mdhash{'bad devices'}}) {
      print "\t      Failed : @{$mdhash{'bad devices'}}\n";
    }
    if ($mdhash{'spare'} ne 0) {
      print "\t      Spares : $mdhash{'spare'}\n";
    }
    print "\n";
  }
}