Subversion Repositories camp_sysinfo_client_3

# routine used by geom to process one block at a time.

# first parameter is a pointer to a hash to populate, the rest are

# considered to be a splice of an array that contains only one

# block. Returns the name of the device

sub doGeomBlock {

   my $hashPointer = shift;

#   die join( "\n", @_ ) . "\n";

   while ( my $line = shift ) {

      if ( $line ) {

         my ($key, $value) = split( ':', $line );

         if ( $key =~ m/^\d+\.\s+(.*)$/ ) {

            $key = $1;

         }

         $key = &trim( $key );

         $value = &trim( $value );

         $hashPointer->{$key} = $value;

      }

   }

#   die Dumper( $hashPointer );

   return $hashPointer->{'Name'} ? $hashPointer->{'Name'} : 'Unknown';

}

# grab data from geom command (BSD) and import parts of it into driveDefinitions

sub geom {

   my $line = 0;

   my $startBlock = 0;

   my $endBlock = 0;

   my @report = `geom disk list`;

   chomp @report;

   while ( $line < scalar( @report ) ) {

      #print "Working on $line\n";

      while ( $line < scalar( @report ) && $report[$line] !~ m/^Geom name:\s+(.*)$/ ) {

         $line++;

      }

      $endBlock = $line - 1;

      if ( $endBlock > $startBlock ) {

         my $thisDrive = {};

         my $key = &doGeomBlock( $thisDrive, @report[$startBlock..$endBlock] );

         # die "$key\n" . Dumper( $thisDrive );

         $key = '/dev/' . $key;

         $driveDefinitions{$key}{'Capacity'} = $thisDrive->{'Mediasize'} if defined $thisDrive->{'Mediasize'};

         if ( defined( $driveDefinitions{$key}{'Capacity'} ) && $driveDefinitions{$key}{'Capacity'} =~ m/^(\d+)/ ) {

            $driveDefinitions{$key}{'Capacity'} = $1;

         }

         $driveDefinitions{$key}{'Model'} = $thisDrive->{'descr'} if defined $thisDrive->{'descr'};

         $driveDefinitions{$key}{'Serial'} = $thisDrive->{'ident'} if defined $thisDrive->{'ident'};

         $driveDefinitions{$key}{'Sector Size'} = $thisDrive->{'Sectorsize'} if defined $thisDrive->{'Sectorsize'};

         $driveDefinitions{$key}{'Rotation'} = $thisDrive->{'rotationrate'} if defined $thisDrive->{'rotationrate'};

         $startBlock = $line;

#         die Dumper( $thisDrive );

      }

      $line++;

   }

}

#die Dumper( \%driveDefinitions );