use strict;
use warnings;
use Net::Telnet;
use Nagios::Plugin;


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


#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 Michael.Sonnnenburg@provaris.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/');
        $t->open("10.0.10.61");
        $t->login($host, $password);
        my @lines = $t->cmd("show slot");
        print @lines;