Subversion Repositories camp_sysinfo_client_3

Rev

Rev 87 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 87 Rev 251
Line 1... Line 1...
1 
#!/usr/bin/env perl
 1 
#!/usr/bin/env perl
2 
use warnings;
 2 
use warnings;
3 
use strict;
3 
use strict;
- 
 
 4 
 
- 
 
 5 
use Data::Dumper;
4 
 
 6 
 
5 
# Description: get information on md (RAID)
 7 
# Description: get information on md (RAID)
6 
 
 8 
 
7 
our $VERSION = '1.0';
 9 
our $VERSION = '1.0';
8 
 
 10 
 
Line 11... Line 13...
11 
# Date:  2017-11-24
 13 
# Date:  2017-11-24
12 
 
 14 
 
13 
# get some information on RAID arrays covered by mdadm
 15 
# get some information on RAID arrays covered by mdadm
14 
 
 16 
 
15 
BEGIN {
 17 
BEGIN {
16 
   push @INC, shift;
 18 
   use FindBin;
- 
 
 19 
   use File::Spec;
- 
 
 20 
   use lib File::Spec->catdir($FindBin::Bin);
- 
 
 21 
   eval( 'use library;' ); die "Could not find library.pm in the code directory\n" if $@;
- 
 
 22 
   eval( 'use Data::Dumper;' );
17 
}
 23 
}
18 
 
 24 
 
- 
 
 25 
# check for valid OS.
- 
 
 26 
exit 1 unless &checkOS( { 'linux' => undef } );
- 
 
 27 
 
- 
 
 28 
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
19 
use library;
 29 
# script returns a 2
- 
 
 30 
foreach my $command ( 'mdadm', 'fdisk' ) {
- 
 
 31 
   exit 2 unless &validCommandOnSystem( $command );
- 
 
 32 
}
20 
 
 33 
 
21 
# category we will use for all values found
 34 
# category we will use for all values found
22 
# see sysinfo for a list of valid categories
 35 
# see sysinfo for a list of valid categories
23 
my $CATEGORY = 'diskinfo';
 36 
my $CATEGORY = 'diskinfo';
24 
 
 37 
 
Line 33... Line 46...
33 
 
 46 
 
34 
# now, return the tab delimited output (to STDOUT). $CATEGORY is the first
 47 
# now, return the tab delimited output (to STDOUT). $CATEGORY is the first
35 
# item, name as recognized by sysinfo is the second and the value is
 48 
# item, name as recognized by sysinfo is the second and the value is
36 
# the last one. For multiple entries, place on separate lines (ie, newline separated)
 49 
# the last one. For multiple entries, place on separate lines (ie, newline separated)
37 
 
 50 
 
38 
# check for commands we want to run
 - 
 
39 
my %commands = (
- 
 
40 
                  'mdadm' => '',
 - 
 
41 
                  'fdisk' => ''
 - 
 
42 
               );
 - 
 
43 
 
 - 
 
44 
# check the commands for validity
 - 
 
45 
foreach my $command ( keys %commands ) {
 - 
 
46 
   $commands{$command} = &validCommandOnSystem( $command );
 - 
 
47 
}
 - 
 
48 
 
 - 
 
49 
# bail if we don't have the commands we need
 - 
 
50 
exit 1 unless $commands{'mdadm'};
 - 
 
51 
 
 51 
 
52 
exit 1 unless -e '/proc/mdstat';
 52 
exit 1 unless -e '/proc/mdstat';
53 
 
 53 
 
54 
open MD,'</proc/mdstat' or exit 1;
 54 
open MD,'</proc/mdstat' or exit 1;
55 
my @temp = <MD>;
 55 
my @temp = <MD>;
Line 63... Line 63...
63 
      my $device = $1;
 63 
      my $device = $1;
64 
      my @components = split( /\s+/, $2 );
 64 
      my @components = split( /\s+/, $2 );
65 
      shift @components;
 65 
      shift @components;
66 
      push @results, "$CATEGORY\t$device\tlevel\t" . shift(@components);
 66 
      push @results, "$CATEGORY\t$device\tlevel\t" . shift(@components);
67 
      push @results, "$CATEGORY\t$device\tcomponents\t" . join( " ", @components );
 67 
      push @results, "$CATEGORY\t$device\tcomponents\t" . join( " ", @components );
68 
      my $temp = qx( $commands{mdadm} --detail /dev/$device | grep 'Array Size' | cut -d':' -f2 | cut -d' ' -f2 );
 68 
      my $temp = qx( mdadm --detail /dev/$device | grep 'Array Size' | cut -d':' -f2 | cut -d' ' -f2 );
69 
      chomp $temp;
 69 
      chomp $temp;
70 
      push @results, "$CATEGORY\t$device\tsize\t$temp";
 70 
      push @results, "$CATEGORY\t$device\tsize\t$temp";
71 
   }
 71 
   }
72 
}
 72 
}
73 
 
 73