-----------------------------------------------------
Data Mover Check For nasarrayname1 (127.0.0.1)
-----------------------------------------------------
DM is OK:  5 - slot_2 contacted
DM is OK:  5 - slot_3 contacted
DM is OK:  5 - slot_4 contacted
DM is OK:  5 - slot_5 contacted

-----------------------------------------------------
Data Mover Check For nasarrayname2 (127.0.0.2)
-----------------------------------------------------

-----------------------------------------------------
Data Mover Check For nasarrayname3 (127.0.0.3)
-----------------------------------------------------
DM is OK:  5 - slot_2 contacted
DM is OK:  5 - slot_3 contacted
DM is OK:  5 - slot_4 contacted
DM is OK:  5 - slot_5 contacted

##</code><code>##

-----------------------------------------------------
Data Mover Check For nasarrayname1 (127.0.0.1)
-----------------------------------------------------
DM is OK:  5 - slot_2 contacted
DM is OK:  5 - slot_3 contacted
DM is OK:  5 - slot_4 contacted
DM is OK:  5 - slot_5 contacted

-----------------------------------------------------
Data Mover Check For nasarrayname2 (127.0.0.2)
-----------------------------------------------------
DM is OK:  5 - slot_2 contacted
DM is OK:  5 - slot_3 contacted
DM is OK:  5 - slot_4 contacted
DM is OK:  5 - slot_5 contacted
-----------------------------------------------------
Data Mover Check For nasarrayname3 (127.0.0.3)
-----------------------------------------------------
DM is OK:  5 - slot_2 contacted
DM is OK:  5 - slot_3 contacted
DM is OK:  5 - slot_4 contacted
DM is OK:  5 - slot_5 contacted


##</code><code>##

my $username = 'username';
        my $password = 'password';
        
        my $ssh2 = Net::SSH2->new();
        
        
        print $mailfh "\n----------------------------";
        
        print $mailfh "\nData Mover Check For $ipname ($ipaddr)\n";
        
        print $mailfh "----------------------------\n";
        $ssh2->connect("$ipaddr") || die "PROBELM -$!";
        
        $ssh2->auth_password("$username","$password") || die "Username/Password not right";
        
        my $chan = $ssh2->channel();
        
        
        $chan->blocking(0);    
        $chan->exec('/nas/sbin/getreason');
        sleep 3;
        
        while (<$chan>)
        {
        chomp;
        
        next if (/10 - slot_0 primary control station/);
        if ($_ =~ /contacted$/)
        {
            
            print $mailfh "DM is OK: $_\n";
        }
        else
        {
            
            print $mailfh "POSSIBLE DM FAILURE:Please check $ipname ($ipaddr): $_ POSSIBLE DM FAILURE:\n";
        
        
        }