Subversion Repositories sysadmin_scripts

Rev

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

Rev 155 Rev 173
Line 435... Line 435...
435 
 
 435 
 
436 
sub report {
 436 
sub report {
437 
   my @headers;
 437 
   my @headers;
438 
   my @report;
 438 
   my @report;
439 
 
 439 
 
- 
 
 440 
   #die Dumper( $driveDefinitions ) . "\n";
- 
 
 441 
 
440 
   for my $drive ( sort keys %$driveDefinitions ) {
 442 
   for my $drive ( sort keys %$driveDefinitions ) {
441 
      my @line;
 443 
      my @line = ();
442 
      # don't print iSCSI definitions
 444 
      # don't print iSCSI definitions
443 
      next if defined( $driveDefinitions->{$drive}->{'Transport protocol'} ) && $driveDefinitions->{$drive}->{'Transport protocol'} eq 'ISCSI';
 445 
      next if defined( $driveDefinitions->{$drive}->{'Transport protocol'} ) && $driveDefinitions->{$drive}->{'Transport protocol'} eq 'ISCSI';
444 
      #also, blow off our ignored types
 446 
      #also, blow off our ignored types
445 
      next if ( defined( $driveDefinitions->{$drive}->{'Model'} ) && defined( $ignoreDriveTypes->{ $driveDefinitions->{$drive}->{'Model'} }  ) );
 447 
      next if ( defined( $driveDefinitions->{$drive}->{'Model'} ) && defined( $ignoreDriveTypes->{ $driveDefinitions->{$drive}->{'Model'} }  ) );
446
448