use lib "/usr/local/nagios/libexec";
use utils qw(%ERRORS $TIMEOUT);
my $o_host = undef; # hostname
my $o_community = undef; # community
my $o_port = 161; # port
my $o_warn = undef; # warning limit
my $o_crit= undef; # critical limit
my $o_timeout= 10;
my $exit_code = undef;
my $o_type=undef;
my $output=undef;
my $o_perf= undef;
if (!defined($session)) {
printf("ERROR: %s.\\n", $error);
exit $ERRORS{"UNKNOWN"};
}
my $resultat=undef;
# Get rid of UTF8 translation in case of accentuated caracters (thanks to Dimo Velev).
$session->translate(Net::SNMP->TRANSLATE_NONE);
my $new_read_bytes;
my $new_write_bytes;
my $left_shift= 2**32;
my $last_read_bytes = 0;
my $last_write_bytes = 0;
my $row ;
my $last_check_time ;
my $update_time;
my @last_values=undef;