#!/usr/bin/perl -w
use Net::SSH::Perl;
#use Net::SSH::Perl::Buffer (my @args);
use POSIX;
use Sys::Hostname;
use Term::ANSIColor qw(:constants);
use strict;

my $tmpout="";
#my $host="192.168.35.214";
my @nodeip = ("192.168.35.214","192.168.35.215") ;
my %node = ("192.168.35.214","NODE-HOST1","192.168.35.215","NODE-HOST2") ;
my $hlckdate = strftime "%Y-%m-%d",localtime ;
my $user="user" ;
my $pass="passwd";
my $cmd ="uname -a";
my $host = hostname;
#my $buffer = Net::SSH::Perl::Buffer->new;

foreach (@nodeip) {
    my $ssh = Net::SSH::Perl->new($_,protocol =>'2',port =>22,#debug => 1
    );
    $ssh->login($user, $pass);
    $ssh->register_handler("stdout",sub {my ($channel,$buffer) = @_; $tmpout = print $buffer->bytes;});
    #$ssh->register_handler("stdout",sub {my ($channel,$buffer) = @_; print $buffer->get_str;});
    
    print "\n\n==========================================================================================\n";
    print "            PERFORMING CHECK FOR $node{$_} \@ $hlckdate    \n";
    print "==========================================================================================\n"; 
   
    print BOLD,"OS INFO: ", RESET;
    $ssh->cmd($cmd);
    print BOLD,"\nSYS UPTIME: ",RESET;
    $ssh->cmd('uptime');
     print BOLD,"\nSYS RUN LEVEL:",RESET;
    $ssh->cmd('who -r');
     print BOLD,"\nFILESYSTEM INFO:\n",RESET;
    $ssh->cmd('df -h');
    print "\n\n CHECKING IF CURRENT SERVER IS ACTIVE ..............\n\n";
    $ssh->cmd('ifconfig -a | grep 192.168.35.216');
    print $tmpout;
    my @chksys = $tmpout;
    print @chksys ;
    print @chksys ;
        foreach (@chksys){
                             if(/192.168.35.216/){
                         print "----------------------------------------------------------------\n";
                         print "$host is active server.....performing other checks....\n";
                         print "----------------------------------------------------------------\n\n";
                         $ssh->cmd('ps -ef | grep manager');
                         #my nodeinfo1 = print @tmpout ;
                         print "----------------------------------\n";
                         print "NODE SERVICE:";
                         print "----------------------------------\n\n";
                         #foreach(@nodeinfo1){
                             #if(/grep/){    
                             #}else{
                             #    print $_;
                             #}
                        }
                      }
                    }

==========================================================================================
            PERFORMING CHECK FOR NODE-HOST1 @ 2010-11-24    
==========================================================================================
OS INFO: Linux host1 2.4.21-40.ELsmp #1 SMP Thu Feb 2 22:22:39 EST 2006 i686 i686 i386 GNU/Linux

SYS UPTIME:  20:46:33  up 13 days,  8:14,  0 users,  load average: 0.00, 0.01, 0.00

SYS RUN LEVEL:         run-level 3  Nov 11 12:32                   last=S  

FILESYSTEM INFO:
Filesystem            Size  Used Avail Use% Mounted on
/dev/cciss/c0d0p2     985M  273M  663M  30% /
/dev/cciss/c0d0p1      97M   26M   67M  28% /boot
/dev/vg00/home        4.9G  3.2G  1.5G  69% /home
/dev/vg00/informix    985M  469M  466M  51% /informix
/dev/vg00/log         2.9G  779M  2.0G  28% /log
/dev/vg00/opt         5.8G  993M  4.6G  18% /opt
none                  2.5G     0  2.5G   0% /dev/shm
/dev/vg00/tmp         2.9G   41M  2.7G   2% /tmp
/dev/vg00/usr         5.8G  3.0G  2.5G  55% /usr
/dev/vg00/var         2.0G  625M  1.3G  34% /var


 CHECKING IF CURRENT SERVER IS ACTIVE ..............

111

==========================================================================================
            PERFORMING CHECK FOR NODE-HOST2 @ 2010-11-24    
==========================================================================================
OS INFO: Linux host2 2.4.21-40.ELsmp #1 SMP Thu Feb 2 22:22:39 EST 2006 i686 i686 i386 GNU/Linux

SYS UPTIME:  20:46:53  up 223 days, 30 min,  0 users,  load average: 0.05, 0.08, 0.03

SYS RUN LEVEL:         run-level 3  Dec  4 16:52                   last=S  

FILESYSTEM INFO:
Filesystem            Size  Used Avail Use% Mounted on
/dev/cciss/c0d0p2     985M  233M  702M  25% /
/dev/cciss/c0d0p1      97M   26M   67M  28% /boot
/dev/vg00/home        4.9G  1.5G  3.2G  32% /home
/dev/vg00/informix    985M  323M  612M  35% /informix
/dev/vg00/log         2.9G  1.9G  896M  69% /log
/dev/vg00/opt         5.8G  950M  4.6G  17% /opt
none                  2.5G     0  2.5G   0% /dev/shm
/dev/vg00/tmp         2.9G   41M  2.7G   2% /tmp
/dev/vg00/usr         5.8G  3.0G  2.6G  54% /usr
/dev/vg00/var         2.0G  434M  1.5G  24% /var
/dev/vgraid/cdr       2.0G   33M  1.9G   2% /cdr
/dev/vgraid/prompts   2.0G   97M  1.8G   6% /prompts
/dev/vgraid/archive    20G   13G  6.5G  66% /archive
/dev/vgraid/ready     2.0G   34M  1.9G   2% /ready
/dev/vgraid/data      9.9G  2.0G  7.5G  21% /data
/dev/vgraid/mcx       9.9G  3.5G  6.0G  37% /mcx


 CHECKING IF CURRENT SERVER IS ACTIVE ..............

          inet addr:192.168.35.216  Bcast:192.168.35.255  Mask:255.255.255.0
111

print $tmpout;
    my @chksys = $tmpout;
    print @chksys ;
    print @chksys ;

inet addr:192.168.35.216  Bcast:192.168.35.255  Mask:255.255.255.0