use lib "/usr/local/nagios/libexec";
use strict;
use Net::Telnet;
use Nagios::Plugin;
use strict;
use Getopt::Long;

my $host ="nagios";
my $password ="nagios";

my @slot;
my @slot1;
my @slot2;
my @slot3;
my @slot4;
my @slot5;
my @slot6;
my @slot7;
my @slot8;

my $Sresult;
my $output;
my $result;
my @result;
my @type;
my @output;
my @pref;

#nagios
my $np = Nagios::Plugin->new(
        usage =>
"Usage: %s [-H <host>] [-h <help>] [-p <password>]",
        shortname => "check_slot",
        license => 'This nagios plugin is free software, and comes with ABSOLUTELY
                                NO WARRANTY. It may be used, redistributed and/or modified under
                                the terms of the GNU General Public Licence (see
                                http://www.fsf.org/licensing/licenses/gpl.txt).',
        blurb =>'(contact Michi1s@web.de)',
);
$np->add_arg(
        spec     => 'host|H=s',
        help     => '-H, --host=STRING\n',
        required => '0',
);
$np->add_arg(
        spec     => 'help|h=s',
        help     => '-h, --help=STRING\n',
        required => '0',
);
$np->add_arg(
        spec     => 'password|p=s',
        help     => '-p, --password=STRING\n',
        required => '0',
);
$np->getopts;


$host =                 ( defined( $np->opts->host )            ? $np->opts->host : $host );
$password =     ( defined( $np->opts->password )        ? $np->opts->password : $password );


        my $t = new Net::Telnet (Timeout => 10,
                              Prompt => '/Provaris GmbH/');
                                                          my $fh = $t->dump_log('skylla.log');
        $t->open("10.0.10.61");
        $t->login($host, $password);
                 @slot1 = $t->cmd("show slot 1");
                 @slot2 = $t->cmd("show slot 2");
                 @slot3 = $t->cmd("show slot 3");
                 @slot4 = $t->cmd("show slot 4");
                 @slot5 = $t->cmd("show slot 5");
                 @slot6 = $t->cmd("show slot 6");
                 @slot7 = $t->cmd("show slot 7");
                 @slot8 = $t->cmd("show slot 8");       

                 @slot[1] = "@slot1";
                 @slot[2] = "@slot2";
                 @slot[3] = "@slot3";
                 @slot[4] = "@slot4";
                 @slot[5] = "@slot5";
                 @slot[6] = "@slot6";
                 @slot[7] = "@slot7";
                 @slot[8] = "@slot8";   
        

        @result = slotState(@slot);
        @type = slotType(@slot);
        
        $Sresult = "@result";
        
        if (defined @output){
        $output = "@output";
        }
        
        for(my $i=1;$i<= 8; $i++){
        @pref[$i] = "@type[$i]$output slot $i";
        }
        $output = "@pref";
        

        
        #übergabe an nagios 
        if ($Sresult =~ m/0/){
        $result = 0;
        }       
        if ($Sresult =~ m/3/){
        $result = 1;
        }       
        if ($Sresult =~ m/2/){
        $result = 2;
        }
        
$np->nagios_exit( CRITICAL, $output ) if ( $result eq "2" );
$np->nagios_exit( WARNING,  $output ) if ( $result eq "1" );
$np->nagios_exit( OK,       $output ) if ( $result eq "0" );
$np->nagios_die('state of connection is UNKNOWN');

sub slotState(@) {
my @slot = @_;
        for(my $i=1;$i<= 8; $i++){
        
        if ( @slot[$i] =~ /State:/ ) {
                @slot[$i] = split( "\n", $' );  
                }
                        if (@slot[$i] =~ /Operational/){
                        @result[$i] = 0;
                        }
                                elsif (@slot[$i] =~ /Empty/){
                                @result[$i] = 3;                                                                
                                        }else{
                                        @slot[$i] = @output[$i];
                                        @result[$i] = 2;
                                        }
}
return @result;
}                                       
                                
sub slotType(@) {
my @slot = @_;
        for(my $i=1;$i<= 8; $i++){
        if ( @slot[$i] =~ /HW Module Type:/ ) {
                @slot[$i] = split( "\n", $' );  
        }       
}
return @slot;
}