#! /usr/bin/perl -w

# Charles VIARD 27.05.2005

# Ce script verifie que syslog-ng fontionne sur vaucluse

use strict;

use SNMP;
use Data::Dumper;

# Configuration
my $key		= 'password';
my $oid		= '1.3.6.1.4.1.5100.1.101.1';

# Variables

my $r;

#

sub usage()
{
	print "Usage: $0 hostname\n";
	exit(3);
}

# Debut

&usage if not defined($ARGV[0]);

my $host = shift;

# Polling

SNMP::initMib();

my $sess = new SNMP::Session(DestHost => $host, Community => $key, UseSprintValue => 1, Version => '1');
if (not defined($sess)) { print "Impossible d'ouvrir une session SNMP avec $host !\n"; exit(3); }
$r = $sess->get([$oid]);
if (not defined($r) or $r eq 'NULL' ) { print "Erreur lors du poll SNMP de $host !\n"; exit(3); }

$r =~ s/"//g;

if ($r =~ /^!/) {
	print "ERREUR: $r\n";
	exit(2);
}

print "syslogng : OK\n";
exit(0);