_________________________________________

#! /usr/bin/perl

use strict;

use Net::SNMP;

my $uptimeOID = '1.3.6.1.2.1.1.3.0';

foreach my $host (@ARGV)
{
    my ($session, $error) = Net::SNMP->session(
        -hostname  =>  $host,
        -community => 'public',
        -port      => 161
        );

    warn ("ERROR for $host: $error\n") unless (defined($session));

    my $result = $session->get_request(
        -varbindlist => [$uptimeOID]
        );

    if (!defined($result))
    {
        warn ("ERROR: " . $session->error . "\n");
    }
    else
    {
        my $days = $result->{$uptimeOID};
        my @TEMP_ARRAY_1 = split(",", $days);
        $TEMP_ARRAY_1[0] =~ s/days//g;
        my @TEMP_ARRAY_2 = split(":", $TEMP_ARRAY_1[1]);
        $days = $TEMP_ARRAY_1[0] + $TEMP_ARRAY_2[0] / 24 + $TEMP_ARRAY_2[1] / ( 60 * 24 );	
        print $days;
	if($days == 0)
	{
		my $res = `fcping -d`;
		my @temp_arr = split(" ", $res);
		my $port = $temp_arr[2];
		chomp($temp = `fcping $port`);
		@TEMP_1 = split("and", $temp);
		@TEMP_2 = split(" ", $TEMP_1[1]);
		if($TEMP_2[0] eq "0")
		{
			print "Network Issue";
	
		}
		else
		{
			print "Check HBA Status";
		}

	}
    }

    $session->close;
}

___________________________________________


##</code><code>##

# fcping -d

Discovered Port 50:06:0E:80:03:27:AA:11

# fcping 50:06:0E:80:03:27:AA:11

Pinging port 50:06:0E:80:03:27:AA:11, LUN 0 with SCSI Inquiry:

Port 50:06:0E:80:03:27:AA:11 replies in 0.013 s as HITACHI  OPEN-E          .

Port 50:06:0E:80:03:27:AA:11 replies in 0.014 s as HITACHI  OPEN-E          .

Port 50:06:0E:80:03:27:AA:11 replies in 0.012 s as HITACHI  OPEN-E          .

3 successful and 0 unsuccessful pings.

Average ping time: 0.013 s.

Minimum ping time: 0.012 s.

Maximum ping time: 0.014 s.