### DOKU ###
=pod

LOGICAL UNIT NUMBER 7
Name:  POOL_0_VMVOL_07
Current State:  Ready

Und hier stehe ich an, ich muss den Code so anpassen, das der mir für Nagios den Output wie folgt generiert:

Name: POOL_0_VMVOL_07, State: Ready

Wenn State nicht Ready ist, dann warning!

=cut

### /DOKU ###

sub check_lun_info {
	open( NAVICLIOUT, "$NAVICLI_CMD -h $opt_host lun -list -state |" );

	my $sp_line = 0;
	my $error_count = 0;
	my %out = ();
	my $warn = 0;
	while (<NAVICLIOUT>) {
    	# First lets check for errors before proceeding
        check_for_errors($_);
		
		if (/(LOGICAL UNIT NUMBER)\s+(\d+)/) {
			#$out{lun}="$1 $2";
			$out{lun}="$2";
			next;
		}
		
		if (/(Name:)\s+(\w+)/) {
			#$out{name} = "$1 $2";
			$out{name} = "$2";
			next;
		}
		
		if (/(Current State:)\s+(\w+)/) {
			#$out{state} = "$1 $2";
			$out{state} = "$2";
			$warn = uc $out{state} ne 'READY';
			++$error_count if $warn;
			next;
		}
		
		if (defined $out{state} 
			and defined $out{lun} 
			and defined $out{name}) 
		{
			$output .= "$out{name}:$out{state},";
            %out = ();
			next;
		}
	}		
	
	close (NAVICLIOUT);
	
	if ($error_count == 0 && $output ne "") {
		$state = 'OK';
	} 
	elsif ($output eq "") {
		$output = "UNKNOWN: No output from $NAVICLI";
		$state = 'UNKNOWN';
	} 
	else {
		 if ($warn) {
			$state = 'WARNING';
                 }
		 else {		 
			$state = 'CRITICAL';
		 }
	}
    $output =~ s/,$//;
	print $output."\n";
	exit $states{$state};
}