#!/usr/bin/perl

use Data::Dumper;
use strict;
use warnings;


use common::sense;

use lib '/root/snmp_monitor/trunk';

use SNMPMonitor;
use SNMPMonitor::Plugin;


BEGIN {
    print STDERR "starting $0\n";
}

# Private vars
my $root_oid = '.1.3.6.1.4.1.99999.';

my $monitor = SNMPMonitor->new;

my @plugins = $monitor->plugins();

#print "Found Plugins: \n" . Dumper @plugins;

print STDERR "\nFound Plugins: \n";
print STDERR "Plugin: $_ \n" foreach @plugins;
print STDERR "\n";

my @objects;
push @objects, $_->new($root_oid) foreach @plugins;

print STDERR "\n\n--> Plugins Dump:\n" . Dumper @plugins;
print STDERR "\n\n--> Objects Dump:\n" . Dumper @objects;

foreach my $obj (@objects) {

    print STDERR "Print Test; \n" . $obj->print_test;

    print STDERR "Full Name: " . $obj->full_name . "\n";
    print STDERR "Name: " . $obj->name . "\n";
    print STDERR "OID: " . $obj->plugin_oid . "\n";
    print STDERR "Root OID: " . $obj->root_oid . "\n";
    print STDERR "Full OID: " . $obj->full_oid . "\n\n";
}