#!/usr/bin/perl


($w, $c)=@ARGV;

use DBI;
use POSIX;
use Net::Ping;
use IO::Socket;

$dbh = DBI->connect ( "dbi:mysql:dbname=ocsweb;host=localhost","root");
if ( !defined $dbh ) {
die "Cannot connect to database!\n";
}

$sql="select count(*) from hardware;";
$sth=$dbh->prepare($sql);
if ( !defined $sth ) {
   die "Cannot prepare statement: $DBI::errstr\n";
   exit(1);
}
$sth->execute;

$value = $sth->fetchrow();


if ($value >= $c){
	print "Critical - Numero de hosts acima do limite contratado ($value hosts) | hosts=$value;$w;$c;0;\n";
	exit (2);
}
if ($value >= $w){
        print "Warning - Numero de hosts acima do limite contratado ($value hosts) | hosts=$value;$w;$c;0;\n";
        exit (1);
}

	print "Ok - Numero de hosts dentro do limite contratado ($value hosts) | hosts=$value;$w;$c;0;\n";
        exit (0);