Subversion Repositories camp_sysinfo_client_3

Rev

Rev 251 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 251 Rev 256
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 
use Data::Dumper;
 - 
 
5 
 
 4 
 
- 
 
 5 
use version ; our $VERSION = 'v2.1.0';
- 
 
 6 
 
6 
# Description: Use smartctl, lsblk and geom to get disk information
 7 
# Use smartctl, lsblk and geom to get disk information
- 
 
 8 
# Author: R. W. Rodolico
- 
 
 9 
# Date:   2018-04-02
- 
 
 10 
#
7 
# will decode lsblk first. Then use geom to get information on BSD systems
 11 
# will decode lsblk first. Then use geom to get information on BSD systems
8 
# finally, smartctl will be used to gather additional information.
 12 
# finally, smartctl will be used to gather additional information.
- 
 
 13 
#
- 
 
 14 
# Revision History
9 
 
 15 
#
10 
# 20200224 RWR v2.1
 16 
# 20200224 RWR v2.1
11 
# large re-organization of code and inclusion to get basic information from lsblk if it is on the system
 17 
# large re-organization of code and inclusion to get basic information from lsblk if it is on the system
- 
 
 18 
#
12 
 
 19 
 
13 
our $VERSION = '2.1';
 - 
 
14 
 
 - 
 
15 
# R. W. Rodolico
 - 
 
16 
# grabs smart readings from all drives in system
 - 
 
17 
# note that in the case of some hardware RAID controller, will list the components of a "drive" and the drive itself,
 20 
# find our location and use it for searching for libraries. library.pm must be in the same directory as the calling script
18 
# so you may have up to twice the number of entries than you have physical drives, for example, if you have a megaraid
 - 
 
19 
# controller where each physical drive is also a single logical drive.
 - 
 
20 
 
 - 
 
21 
# find our location and use it for searching for libraries
 21 
# or, if run interactively, in the parent of the modules
22 
BEGIN {
 22 
BEGIN {
23 
   use FindBin;
 23 
   use FindBin;
24 
   use File::Spec;
 24 
   use File::Spec;
- 
 
 25 
   # prepend the bin directory and its parent
25 
   use lib File::Spec->catdir($FindBin::Bin);
 26 
   use lib File::Spec->catdir($FindBin::Bin), File::Spec->catdir("$FindBin::Bin/..");
26 
   eval( 'use library;' );
 27 
   eval( 'use library;' );
27 
   die "Could not find library.pm in the code directory\n" if $@;
 28 
   die sprintf( "Could not find library.pm in %s, INC is %s\n", __FILE__, join( "\n", @INC ) ) if $@;
28 
   eval( 'use Data::Dumper;' );
 - 
 
29 
}
 29 
}
30 
 
 30 
 
- 
 
 31 
#####
- 
 
 32 
##### Change these to match your needs
- 
 
 33 
#####
- 
 
 34 
 
- 
 
 35 
# Make this a list of all the modules we are going to use. You can replace undef with the version you need, if you like
- 
 
 36 
my $modulesList = {
- 
 
 37 
        'Data::Dumper'     => undef,
- 
 
 38 
   };
- 
 
 39 
 
- 
 
 40 
# hash of commands that are needed for the system. key is the name of the command and, in some cases, the value will become
- 
 
 41 
# the full path (from which or where)
- 
 
 42 
 
- 
 
 43 
# WARNING: This will only work on FreeBSD until the system is updated. We only work with geom
- 
 
 44 
my $commandsList = {
- 
 
 45 
        'smartctl' => undef,
31 
# check for valid OS
 46 
#        'geom' => undef,
- 
 
 47 
#        'lsblk' => undef,
- 
 
 48 
   };
- 
 
 49 
 
- 
 
 50 
# list of operating systems this module can be used on.
- 
 
 51 
my $osList = {
- 
 
 52 
#         'mswin32' => undef,
32 
exit 2 unless &checkOS( { 'linux' => undef, 'freebsd' => undef } );
 53 
         'freebsd' => undef,
- 
 
 54 
         'linux'   => undef,
- 
 
 55 
   };
33 
 
 56 
 
34 
exit 0 unless checkDate( 'm' ); # run this only on first of month
 57 
# the category the return data should go into. See sysinfo for a list
- 
 
 58 
my $CATEGORY = 'attributes';
35 
 
 59 
 
- 
 
 60 
#####
- 
 
 61 
##### End of required
- 
 
 62 
#####
- 
 
 63 
 
- 
 
 64 
# some variables needed for our system
- 
 
 65 
my $errorPrepend = 'error: in ' . __FILE__; # this is prepended to any error messages
- 
 
 66 
my @out; # temporary location for each line of output
- 
 
 67 
 
- 
 
 68 
# Try to load the modules we need. If we can not, then make a list of missing modules for error message.
- 
 
 69 
for my $module ( keys %$modulesList ) {
- 
 
 70 
   eval ( "use $module;" );
- 
 
 71 
   push @out, "$errorPrepend Could not load $module" if $@;
- 
 
 72 
}
- 
 
 73 
 
- 
 
 74 
if ( ! @out && ! checkOS ( $osList ) ) { # check if we are on an acceptible operating system
- 
 
 75 
    push @out, "$errorPrepend Invalid Operating System";
- 
 
 76 
}
- 
 
 77 
if ( !@out && ! validCommandOnSystem ( $commandsList ) ) {
- 
 
 78 
   push @out, "$errorPrepend Can not find some commands needed";
- 
 
 79 
}
- 
 
 80 
if ( !@out ) { # we made it, we have everything, so do the processing
- 
 
 81 
   #####
- 
 
 82 
   ##### Your code starts here. Remember to push all output onto @out
- 
 
 83 
   #####
- 
 
 84
36 
my %driveDefinitions; # this will be a global that everything will put info into
 85 
   my %driveDefinitions; # this will be a global that everything will put info into
37 
 
 86 
 
38 
my %ignoreDriveTypes = ( # a list of drive "types" used by virtuals that we just ignore.
 87 
   my %ignoreDriveTypes = ( # a list of drive "types" used by virtuals that we just ignore.
39 
         'VBOX HARDDISK' => 1,
 88 
            'VBOX HARDDISK' => 1,
40 
         );
 89 
            );
41 
 
 90 
 
42 
 
 91 
 
43 
# routine used by geom to process one block at a time.
 92 
   # routine used by geom to process one block at a time.
44 
# first parameter is a pointer to a hash to populate, the rest are
 93 
   # first parameter is a pointer to a hash to populate, the rest are
45 
# considered to be a splice of an array that contains only one
 94 
   # considered to be a splice of an array that contains only one
46 
# block. Returns the name of the device
 95 
   # block. Returns the name of the device
47 
sub doGeomBlock {
 96 
   sub doGeomBlock {
48 
   my $hashPointer = shift;
 97 
      my $hashPointer = shift;
49 
#   die join( "\n", @_ ) . "\n";
 98 
   #   die join( "\n", @_ ) . "\n";
50 
   while ( my $line = shift ) {
 99 
      while ( my $line = shift ) {
51 
      if ( $line ) {
 100 
         if ( $line ) {
52 
         my ($key, $value) = split( ':', $line );
 101 
            my ($key, $value) = split( ':', $line );
53 
         if ( $key =~ m/^\d+\.\s+(.*)$/ ) {
 102 
            if ( $key =~ m/^\d+\.\s+(.*)$/ ) {
54 
            $key = $1;
 103 
               $key = $1;
- 
 
 104 
            }
- 
 
 105 
            $key = &trim( $key );
- 
 
 106 
            $value = &trim( $value );
- 
 
 107 
            $hashPointer->{$key} = $value;
55 
         }
 108 
         }
56 
         $key = &trim( $key );
 - 
 
57 
         $value = &trim( $value );
 - 
 
58 
         $hashPointer->{$key} = $value;
 - 
 
59 
      }
 109 
      }
- 
 
 110 
   #   die Dumper( $hashPointer );
- 
 
 111 
      return $hashPointer->{'Name'} ? $hashPointer->{'Name'} : 'Unknown';
60 
   }
 112 
   }
61 
#   die Dumper( $hashPointer );
 - 
 
62 
   return $hashPointer->{'Name'} ? $hashPointer->{'Name'} : 'Unknown';
 - 
 
63 
}
 - 
 
64 
 
 113 
 
65 
# grab data from geom command (BSD) and import parts of it into driveDefinitions
 114 
   # grab data from geom command (BSD) and import parts of it into driveDefinitions
66 
sub geom {
 115 
   sub geom {
67 
   my $line = 0;
 116 
      my $line = 0;
68 
   my $startBlock = 0;
 117 
      my $startBlock = 0;
69 
   my $endBlock = 0;
 118 
      my $endBlock = 0;
70 
   my @report = `geom disk list`;
 119 
      my @report = `geom disk list`;
71 
   chomp @report;
 120 
      chomp @report;
72 
 
 121 
 
73 
   while ( $line < scalar( @report ) ) {
 122 
      while ( $line < scalar( @report ) ) {
74 
      #print "Working on $line\n";
 123 
         #print "Working on $line\n";
75 
      while ( $line < scalar( @report ) && $report[$line] !~ m/^Geom name:\s+(.*)$/ ) {
 124 
         while ( $line < scalar( @report ) && $report[$line] !~ m/^Geom name:\s+(.*)$/ ) {
76 
         $line++;
 125 
            $line++;
77 
      }
 - 
 
78 
      $endBlock = $line - 1;
 - 
 
79 
      if ( $endBlock > $startBlock ) {
 - 
 
80 
         my $thisDrive = {};
 - 
 
81 
         my $key = &doGeomBlock( $thisDrive, @report[$startBlock..$endBlock] );
 - 
 
82 
         # die "$key\n" . Dumper( $thisDrive );
 - 
 
83 
         $key = '/dev/' . $key;
 - 
 
84 
         $driveDefinitions{$key}{'Capacity'} = $thisDrive->{'Mediasize'} if defined $thisDrive->{'Mediasize'};
 - 
 
85 
         if ( defined( $driveDefinitions{$key}{'Capacity'} ) && $driveDefinitions{$key}{'Capacity'} =~ m/^(\d+)/ ) {
 - 
 
86 
            $driveDefinitions{$key}{'Capacity'} = $1;
 - 
 
87 
         }
 126 
         }
- 
 
 127 
         $endBlock = $line - 1;
- 
 
 128 
         if ( $endBlock > $startBlock ) {
- 
 
 129 
            my $thisDrive = {};
- 
 
 130 
            my $key = &doGeomBlock( $thisDrive, @report[$startBlock..$endBlock] );
- 
 
 131 
            # die "$key\n" . Dumper( $thisDrive );
- 
 
 132 
            $key = '/dev/' . $key;
- 
 
 133 
            $driveDefinitions{$key}{'Capacity'} = $thisDrive->{'Mediasize'} if defined $thisDrive->{'Mediasize'};
- 
 
 134 
            if ( defined( $driveDefinitions{$key}{'Capacity'} ) && $driveDefinitions{$key}{'Capacity'} =~ m/^(\d+)/ ) {
- 
 
 135 
               $driveDefinitions{$key}{'Capacity'} = $1;
- 
 
 136 
            }
88 
         $driveDefinitions{$key}{'Model'} = $thisDrive->{'descr'} if defined $thisDrive->{'descr'};
 137 
            $driveDefinitions{$key}{'Model'} = $thisDrive->{'descr'} if defined $thisDrive->{'descr'};
89 
         $driveDefinitions{$key}{'Serial'} = $thisDrive->{'ident'} if defined $thisDrive->{'ident'};
 138 
            $driveDefinitions{$key}{'Serial'} = $thisDrive->{'ident'} if defined $thisDrive->{'ident'};
90 
         $driveDefinitions{$key}{'Sector Size'} = $thisDrive->{'Sectorsize'} if defined $thisDrive->{'Sectorsize'};
 139 
            $driveDefinitions{$key}{'Sector Size'} = $thisDrive->{'Sectorsize'} if defined $thisDrive->{'Sectorsize'};
91 
         $driveDefinitions{$key}{'Rotation'} = $thisDrive->{'rotationrate'} if defined $thisDrive->{'rotationrate'};
 140 
            $driveDefinitions{$key}{'Rotation'} = $thisDrive->{'rotationrate'} if defined $thisDrive->{'rotationrate'};
92 
 
 141 
 
93 
         $startBlock = $line;
 142 
            $startBlock = $line;
94 
#         die Dumper( $thisDrive );
 143 
   #         die Dumper( $thisDrive );
- 
 
 144 
         }
- 
 
 145 
         $line++;
95 
      }
 146 
      }
96 
      $line++;
 - 
 
97 
   }
 - 
 
98 
 
 147 
 
99 
}
 148 
   }
100 
 
 149 
 
101 
 
 150 
 
102 
 
 151 
 
103 
# acquires information using lsblk, if it is available
 152 
   # acquires information using lsblk, if it is available
104 
# uses global %driveDefinitions to store the results
 153 
   # uses global %driveDefinitions to store the results
105 
 
 154 
 
106 
sub lsblk {
 155 
   sub lsblk {
107 
   eval ( 'use JSON qw( decode_json );' );
 156 
      eval ( 'use JSON qw( decode_json );' );
108 
   if ( $@ ) {
 157 
      if ( $@ ) {
109 
      warn "Could not load JSON library\n";
158 
         warn "Could not load JSON library\n";
110 
      return;
 159 
         return;
111 
   }
 160 
      }
112
161
113 
   my $output = qx'lsblk -bdJO 2>/dev/null';
 162 
      my $output = qx'lsblk -bdJO 2>/dev/null';
114 
   # older versions do not have the O option, so we'll run it without
 163 
      # older versions do not have the O option, so we'll run it without
115 
   $output = qx'lsblk -bdJ 2>/dev/null' if $?;
 164 
      $output = qx'lsblk -bdJ 2>/dev/null' if $?;
116 
   my $drives = decode_json( join( '', $output ) );
 165 
      my $drives = decode_json( join( '', $output ) );
117 
   $drives = $drives->{'blockdevices'};
 166 
      $drives = $drives->{'blockdevices'};
118 
   while ( my $thisDrive = shift @{$drives} ) {
 167 
      while ( my $thisDrive = shift @{$drives} ) {
119 
      if ( $thisDrive->{'type'} eq 'disk' ) {
 168 
         if ( $thisDrive->{'type'} eq 'disk' ) {
120 
         my $key = '/dev/' . $thisDrive->{'name'};
 169 
            my $key = '/dev/' . $thisDrive->{'name'};
121 
         $driveDefinitions{$key}{'Capacity'} = $thisDrive->{'size'};
 170 
            $driveDefinitions{$key}{'Capacity'} = $thisDrive->{'size'};
122 
         $driveDefinitions{$key}{'Model'} = $thisDrive->{'model'} if defined $thisDrive->{'model'};
 171 
            $driveDefinitions{$key}{'Model'} = $thisDrive->{'model'} if defined $thisDrive->{'model'};
123 
         $driveDefinitions{$key}{'Serial'} = $thisDrive->{'serial'} if defined $thisDrive->{'serial'};
 172 
            $driveDefinitions{$key}{'Serial'} = $thisDrive->{'serial'} if defined $thisDrive->{'serial'};
- 
 
 173 
         }
124 
      }
 174 
      }
125 
   }
 175 
   }
126 
}
 - 
 
127 
 
 176 
 
128 
 
 177 
 
129 
sub getSmartInformationReport {
 178 
   sub getSmartInformationReport {
130 
   my ($drive, $type) = @_;
 179 
      my ($drive, $type) = @_;
131 
   $type = '' if ( $type =~ m/scsi/ );
 180 
      $type = '' if ( $type =~ m/scsi/ );
132 
   my @report = `smartctl -i $drive $type`;
 181 
      my @report = `smartctl -i $drive $type`;
133 
   chomp @report;
 182 
      chomp @report;
134 
   my %reportHash;
 183 
      my %reportHash;
135 
   for ( my $i = 0; $i < @report; $i++ ) {
 184 
      for ( my $i = 0; $i < @report; $i++ ) {
136 
      if ( $report[$i] =~ m/^(.*):(.*)$/ ) {
 185 
         if ( $report[$i] =~ m/^(.*):(.*)$/ ) {
137 
         $reportHash{$1} = trim($2);
 186 
            $reportHash{$1} = trim($2);
- 
 
 187 
         }
138 
      }
 188 
      }
139 
   }
 - 
 
140 
   return \%reportHash;
 189 
      return \%reportHash;
141 
} # getSmartInformationReport
 190 
   } # getSmartInformationReport
142 
 
 191 
 
143 
sub getSmartAttributeReport {
 192 
   sub getSmartAttributeReport {
144 
   my ($drive, $type) = @_;
 193 
      my ($drive, $type) = @_;
145 
   $type = '' if ( ! defined( $type ) || $type =~ m/scsi/ );
 194 
      $type = '' if ( ! defined( $type ) || $type =~ m/scsi/ );
146 
   my @report = `smartctl -A $drive $type`;
 195 
      my @report = `smartctl -A $drive $type`;
147 
   chomp @report;
 196 
      chomp @report;
148 
   my %reportHash;
 197 
      my %reportHash;
149 
   my %headers;
 198 
      my %headers;
150 
   # bypass all the header information
 199 
      # bypass all the header information
151 
   my $i;
 200 
      my $i;
152 
   for ( $i = 0; $i < @report && $report[$i] !~ m/^ID#/; $i++ ) {}
 201 
      for ( $i = 0; $i < @report && $report[$i] !~ m/^ID#/; $i++ ) {}
153 
   if ( $i < @report ) { # did we get an actual report? some drives will not give us one
 202 
      if ( $i < @report ) { # did we get an actual report? some drives will not give us one
154 
      my $char = 0;
 203 
         my $char = 0;
155 
      while ( $char < length($report[$i]) ) {
 204 
         while ( $char < length($report[$i]) ) {
156 
         substr( $report[$i],$char ) =~ m/^([^ ]+\s*)/;
 205 
            substr( $report[$i],$char ) =~ m/^([^ ]+\s*)/;
157 
         my $header = $1;
 206 
            my $header = $1;
158 
         my $start = $char;
 207 
            my $start = $char;
159 
         my $length = length($header);
 208 
            my $length = length($header);
160 
         if ( $header = &trim( $header ) ) {
 209 
            if ( $header = &trim( $header ) ) {
161 
            $headers{$header}{'start'} = $start;
 210 
               $headers{$header}{'start'} = $start;
162 
            $headers{$header}{'length'} = $length-1;
 211 
               $headers{$header}{'length'} = $length-1;
- 
 
 212 
            }
- 
 
 213 
            $char += $length;
- 
 
 214 
         }
- 
 
 215 
         while ( ++$i < @report ) {
- 
 
 216 
            last unless $report[$i];
- 
 
 217 
            my $id = &trim(substr( $report[$i], $headers{'ID#'}{'start'}, $headers{'ID#'}{'length'} ));
- 
 
 218 
            my $name = &trim(substr( $report[$i], $headers{'ATTRIBUTE_NAME'}{'start'}, $headers{'ATTRIBUTE_NAME'}{'length'} ));
- 
 
 219 
            my $value = &trim(substr( $report[$i], $headers{'RAW_VALUE'}{'start'} ));
- 
 
 220 
            $reportHash{$id}{'value'} = $value;
- 
 
 221 
            $reportHash{$id}{'name'} = $name;
163 
         }
 222 
         }
164 
         $char += $length;
 - 
 
165 
      }
 - 
 
166 
      while ( ++$i < @report ) {
 - 
 
167 
         last unless $report[$i];
 - 
 
168 
         my $id = &trim(substr( $report[$i], $headers{'ID#'}{'start'}, $headers{'ID#'}{'length'} ));
 - 
 
169 
         my $name = &trim(substr( $report[$i], $headers{'ATTRIBUTE_NAME'}{'start'}, $headers{'ATTRIBUTE_NAME'}{'length'} ));
 - 
 
170 
         my $value = &trim(substr( $report[$i], $headers{'RAW_VALUE'}{'start'} ));
 - 
 
171 
         $reportHash{$id}{'value'} = $value;
 - 
 
172 
         $reportHash{$id}{'name'} = $name;
 - 
 
173 
      }
 223 
      }
- 
 
 224 
      #print Dumper( \%reportHash ); die;
- 
 
 225 
      return \%reportHash;
174 
   }
 226 
   }
175 
   #print Dumper( \%reportHash ); die;
 - 
 
176 
   return \%reportHash;
 - 
 
177 
}
 - 
 
178 
 
 227 
 
179 
 
 228 
 
180 
sub getAttributes {
 229 
   sub getAttributes {
181 
   my ($drive,$type,$sectorSize) = @_;
 230 
      my ($drive,$type,$sectorSize) = @_;
182 
 
 231 
 
183 
   my $report = &getSmartAttributeReport( $drive, $type );
 232 
      my $report = &getSmartAttributeReport( $drive, $type );
184 
 
 233 
 
185 
   # first let's get total disk writes
 234 
      # first let's get total disk writes
186 
   if ( defined( $report->{'241'} ) && defined( $sectorSize ) ) {
 235 
      if ( defined( $report->{'241'} ) && defined( $sectorSize ) ) {
187 
      $sectorSize =~ m/^(\d+)/;
 236 
         $sectorSize =~ m/^(\d+)/;
188 
      $driveDefinitions{$drive}{'writes'} = $report->{'241'} * $sectorSize;
 237 
         $driveDefinitions{$drive}{'writes'} = $report->{'241'} * $sectorSize;
189 
   }
 238 
      }
190 
   # find total uptime
 239 
      # find total uptime
191 
   if ( defined( $report->{'9'} ) ) {
 240 
      if ( defined( $report->{'9'} ) ) {
192 
      $report->{'9'}->{'value'} =~ m/^(\d+)/;
 241 
         $report->{'9'}->{'value'} =~ m/^(\d+)/;
193 
      $driveDefinitions{$drive}{'uptime'} = $1;
 242 
         $driveDefinitions{$drive}{'uptime'} = $1;
- 
 
 243 
      }
194 
   }
 244 
   }
195 
}
 - 
 
196 
 
 245 
 
197 
sub getInformation {
 246 
   sub getInformation {
198 
   my ($drive, $type) = @_;
 247 
      my ($drive, $type) = @_;
199 
 
 248 
 
200 
   my $report = &getSmartInformationReport( $drive, $type );
 249 
      my $report = &getSmartInformationReport( $drive, $type );
201 
 
 250 
 
202 
   my %info;
 251 
      my %info;
203 
   my %keys = (
252 
      my %keys = (
204 
                  'Model Family'  => {
253 
                     'Model Family'  => {
205 
                                          'tag' => 'Make',
 254 
                                             'tag' => 'Make',
206 
                                          'regex' => '(.*)'
 255 
                                             'regex' => '(.*)'
207 
                                      },
 256 
                                         },
208 
                  'Device Model'  => {
257 
                     'Device Model'  => {
209 
                                          'tag' => 'Model',
 258 
                                             'tag' => 'Model',
210 
                                          'regex' => '(.*)'
 259 
                                             'regex' => '(.*)'
211 
                                      },
 260 
                                         },
212 
                  'Serial number' => {
261 
                     'Serial number' => {
213 
                                          'tag' => 'Serial',
 262 
                                             'tag' => 'Serial',
214 
                                          'regex' => '(.*)'
 263 
                                             'regex' => '(.*)'
215 
                                      },
 264 
                                         },
216 
                  'Serial Number' => {
265 
                     'Serial Number' => {
217 
                                          'tag' => 'Serial',
 266 
                                             'tag' => 'Serial',
218 
                                          'regex' => '(.*)'
 267 
                                             'regex' => '(.*)'
219 
                                      },
 268 
                                         },
220 
                  'User Capacity' => {
269 
                     'User Capacity' => {
221 
                                          'tag' => 'Capacity',
 270 
                                             'tag' => 'Capacity',
222 
                                          'regex' => '([0-9,]+)'
 271 
                                             'regex' => '([0-9,]+)'
223 
                                      },
 272 
                                         },
224 
                  'Logical block size' =>{
273 
                     'Logical block size' =>{
225 
                                          'tag' => 'Sector Size',
 274 
                                             'tag' => 'Sector Size',
226 
                                          'regex' => '(\d+)'
 275 
                                             'regex' => '(\d+)'
227 
                                      },
 276 
                                         },
228 
                  'Sector Size'   => {
277 
                     'Sector Size'   => {
229 
                                          'tag' => 'Sector Size',
 278 
                                             'tag' => 'Sector Size',
230 
                                          'regex' => '(\d+)'
 279 
                                             'regex' => '(\d+)'
231 
                                      },
 280 
                                         },
232 
                  'Rotation Rate' => {
281 
                     'Rotation Rate' => {
233 
                                          'tag' => 'Rotation',
 282 
                                             'tag' => 'Rotation',
234 
                                          'regex' => '(.*)'
 283 
                                             'regex' => '(.*)'
235 
                                      },
 284 
                                         },
236 
               );
 285 
                  );
237 
   foreach my $key ( keys %keys ) {
 286 
      foreach my $key ( keys %keys ) {
238 
      if ( defined( $report->{$key} ) && $report->{$key} =~ m/$keys{$key}->{'regex'}/ ) {
 287 
         if ( defined( $report->{$key} ) && $report->{$key} =~ m/$keys{$key}->{'regex'}/ ) {
239 
         $driveDefinitions{$drive}{$keys{$key}->{'tag'}} = $1;
 288 
            $driveDefinitions{$drive}{$keys{$key}->{'tag'}} = $1;
- 
 
 289 
         }
240 
      }
 290 
      }
241 
   }
 291 
   }
242 
}
 - 
 
243 
 
 292 
 
244 
sub smartctl {
 293 
   sub smartctl {
245 
   # Get all the drives on the system
 294 
      # Get all the drives on the system
246 
   my %allDrives;
 295 
      my %allDrives;
247 
   eval{
296 
      eval{
248 
      %allDrives = map { $_ =~ '(^[a-z0-9/]+)\s+(.*)\#'; ($1,$2) } `smartctl --scan`;
297 
         %allDrives = map { $_ =~ '(^[a-z0-9/]+)\s+(.*)\#'; ($1,$2) } `smartctl --scan`;
249 
   };
 298 
      };
250 
   return if ( $@ ); # we failed to get anything back
 299 
      return if ( $@ ); # we failed to get anything back
- 
 
 300
- 
 
 301 
 
- 
 
 302 
      # output the drives and information as tab delimited,
- 
 
 303 
      foreach my $thisDrive ( sort keys %allDrives ) {
- 
 
 304 
         $driveDefinitions{$thisDrive}{'type'} = $allDrives{$thisDrive};
- 
 
 305 
         &getInformation( $thisDrive, $allDrives{$thisDrive} );
- 
 
 306 
         #print Dumper( $info ); die;
- 
 
 307 
         my $attributes = &getAttributes( $thisDrive, $allDrives{$thisDrive}, $driveDefinitions{$thisDrive}{'Sector Size'} );
- 
 
 308 
         #print Dumper( $attributes ); die;
- 
 
 309 
         #print Dumper( $info ); die;
- 
 
 310 
      }
251
311
252 
 
 - 
 
253 
   # output the drives and information as tab delimited,
 - 
 
254 
   foreach my $thisDrive ( sort keys %allDrives ) {
 - 
 
255 
      $driveDefinitions{$thisDrive}{'type'} = $allDrives{$thisDrive};
 - 
 
256 
      &getInformation( $thisDrive, $allDrives{$thisDrive} );
 - 
 
257 
      #print Dumper( $info ); die;
 - 
 
258 
      my $attributes = &getAttributes( $thisDrive, $allDrives{$thisDrive}, $driveDefinitions{$thisDrive}{'Sector Size'} );
 - 
 
259 
      #print Dumper( $attributes ); die;
 - 
 
260 
      #print Dumper( $info ); die;
 - 
 
261 
   }
 312 
   }
262
- 
 
263 
}
 - 
 
264 
 
 - 
 
265 
 
 - 
 
266 
 
 - 
 
267 
# category we will use for all values found
 - 
 
268 
# see sysinfo for a list of valid categories
 - 
 
269 
my $CATEGORY = 'attributes';
 - 
 
270 
 
 - 
 
271 
# run the commands necessary to do whatever you want to do
 - 
 
272 
# The library entered above has some helper routines
 - 
 
273 
# validCommandOnSystem -- passed a name, returns the fully qualified path or '' if it does not exist
 - 
 
274 
# cleanUp - passed a delimiter and a string, does the following (delimiter can be '')
 - 
 
275 
#           chomps the string (removes trailing newlines)
 - 
 
276 
#           removes all text BEFORE the delimiter, the delimiter, and any whitespace
 - 
 
277 
#           thus, the string 'xxI Am x  a weird string' with a newline will become
 - 
 
278 
#           'a weird string' with no newline
 - 
 
279 
 
 - 
 
280 
# now, return the tab delimited output (to STDOUT). $CATEGORY is the first
 - 
 
281 
# item, name as recognized by sysinfo is the second and the value is
 - 
 
282 
# the last one. For multiple entries, place on separate lines (ie, newline separated)
 - 
 
283 
 
 - 
 
284 
# check for commands we want to run
 - 
 
285 
my %commands = (
- 
 
286 
                  'smartctl' => '',
 - 
 
287 
                  'lsblk' => '',
 - 
 
288 
                  'geom' => '',
 - 
 
289 
               );
 - 
 
290 
 
 - 
 
291 
# check the commands for validity
 - 
 
292 
foreach my $command ( keys %commands ) {
 - 
 
293 
   $commands{$command} = &validCommandOnSystem( $command );
 - 
 
294 
}
 - 
 
295 
 
 313 
 
- 
 
 314 
   # first, get basic information using lsblk for linux systems
- 
 
 315 
   #&lsblk() if $commands{'lsblk'};
- 
 
 316 
   # now, try geom for bsd systems
296 
# bail if we don't have the commands we need
 317 
   #&geom() if $commands{'geom'};
- 
 
 318 
 
- 
 
 319 
   #die Dumper( \%driveDefinitions );
297 
exit 1 unless $commands{'smartctl'} || $commands{'lsblk'} || $commands{'geom'};
 320 
   # finally, populate whatever using smartctl if it is on system.
- 
 
 321 
   &smartctl();
- 
 
 322 
 
- 
 
 323 
   for my $drive ( sort keys %driveDefinitions ) {
- 
 
 324 
      # don't print iSCSI definitions
- 
 
 325 
      next if defined( $driveDefinitions{$drive}{'Transport protocol'} ) && $driveDefinitions{$drive}{'Transport protocol'} eq 'ISCSI';
- 
 
 326 
      #also, blow off our ignored types
- 
 
 327 
      next if ( defined( $driveDefinitions{$drive}{'Model'} ) && defined( $ignoreDriveTypes{ $driveDefinitions{$drive}{'Model'} }  ) );
- 
 
 328
- 
 
 329 
      # remove comma's from capacity
- 
 
 330 
      $driveDefinitions{$drive}{'Capacity'} =~ s/,//g if $driveDefinitions{$drive}{'Capacity'};
- 
 
 331 
      foreach my $key ( sort keys %{$driveDefinitions{$drive}} ) {
- 
 
 332 
         push @out,  "$CATEGORY\t$drive $key\t$driveDefinitions{$drive}{$key}" if defined $driveDefinitions{$drive}{$key};
- 
 
 333 
      }
- 
 
 334 
   }
298 
 
 335 
 
299 
# first, get basic information using lsblk for linux systems
 - 
 
300 
&lsblk() if $commands{'lsblk'};
 - 
 
301 
# now, try geom for bsd systems
 - 
 
302 
&geom() if $commands{'geom'};
 - 
 
303 
 
 - 
 
304 
#die Dumper( \%driveDefinitions );
 - 
 
305 
# finally, populate whatever using smartctl if it is on system.
 - 
 
306 
&smartctl() if $commands{'smartctl'};
 - 
 
307 
 
 - 
 
308 
for my $drive ( sort keys %driveDefinitions ) {
 - 
 
309 
   # don't print iSCSI definitions
 - 
 
310 
   next if defined( $driveDefinitions{$drive}{'Transport protocol'} ) && $driveDefinitions{$drive}{'Transport protocol'} eq 'ISCSI';
 - 
 
311 
   #also, blow off our ignored types
 - 
 
312 
   next if ( defined( $driveDefinitions{$drive}{'Model'} ) && defined( $ignoreDriveTypes{ $driveDefinitions{$drive}{'Model'} }  ) );
 - 
 
313
336
314 
   # remove comma's from capacity
 337 
   #####
315 
   $driveDefinitions{$drive}{'Capacity'} =~ s/,//g if $driveDefinitions{$drive}{'Capacity'};
 - 
 
316 
   foreach my $key ( sort keys %{$driveDefinitions{$drive}} ) {
 338 
   ##### Your code ends here.
317 
      print "$CATEGORY\t$drive $key\t$driveDefinitions{$drive}{$key}\n" if defined $driveDefinitions{$drive}{$key};
 - 
 
318 
   }
 339 
   #####
319 
}
 340 
}
320 
 
 341 
 
- 
 
 342 
# If we are testing from the command line (caller is undef), print the results for debugging
- 
 
 343 
print join( "\n", @out ) . "\n" unless caller;
- 
 
 344 
# called by do, which has a value of the last assignment made, so make the assignment. The equivilent of a return
- 
 
 345 
my $return = join( "\n", @out );
321 
 
 346 
 
322 
exit 0;
 -