Subversion Repositories camp_sysinfo_client_3

#! /usr/bin/env perl

use warnings;

use strict;

my $runDirectory = 'C:/Program Files (x86)/Online Diagnostics/oldiags/bin/';

my $command = 'pediags.exe sasdevdiag --show device';

chdir ( $runDirectory );

my $output = `$command`;

my @output = split( /[\r\n]/, $output );

#print $output;

my $currentDevice;

my $currentStatus;

my %outputInformation;

for ( my $i = 0; $i < @output; $i++ ) {

	next if $output[$i] =~ m/^\s*$/;

	my ( $tag,$value ) = split( ' : ', $output[$i] );

	$tag =~ s/\s+$//;

	$value =~ s/^\s+//;

	#print "[$tag]\n"; print "$value\n"; die;

	if ( $tag eq 'Device Index' ) {

		$currentDevice = $value;

		#print "CurrentDevice is $currentDevice\n";

	} else {

		$outputInformation{$currentDevice}{$tag} = $value;

	}

}

foreach my $device ( sort keys %outputInformation ) {

	if ( $outputInformation{$device}{'Device Class'} eq 'RAID Array Disk' )  {

		if ( $outputInformation{$device}{'Device Status'} eq 'Device is working properly.' ) {

			print "Device $device [$outputInformation{$device}{'Device Name'}] is working properly\n";

		}

	}

}

<>;

#foreach my $device ( sort keys %outputInformation ) {

#	print "Device $device\n";

#	my $temp = $outputInformation{$device};

#	foreach my $tag ( sort keys %$temp ) {

#		print "\t$tag\t$temp->{$tag}\n";

#	}

#}

1;