135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New netdisco-do command "show" for diagnostic reporting

Browse Source
This commit is contained in:
Oliver Gorwits
2014-08-04 22:14:14 +01:00
parent 70531a17f1
commit f63527644a
4 changed files with 34 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Netdisco/bin/netdisco-do
View File

@@ -73,7 +73,11 @@ unless ($action) {
# create worker (placeholder object for the role methods)
{
package MyWorker;
use Moo;
use Module::Load ();
use Data::Printer ();
with 'App::Netdisco::Daemon::Worker::Poller::Device';
with 'App::Netdisco::Daemon::Worker::Poller::Arpnip';
with 'App::Netdisco::Daemon::Worker::Poller::Macsuck';
@@ -82,7 +86,6 @@ unless ($action) {
with 'App::Netdisco::Daemon::Worker::Interactive::DeviceActions';
with 'App::Netdisco::Daemon::Worker::Interactive::PortActions';
use Module::Load ();
eval { Module::Load::load 'App::Netdisco::Util::Graph' };
sub graph {
App::Netdisco::Util::Graph::graph();
@@ -94,6 +97,22 @@ unless ($action) {
App::Netdisco::Util::NodeMonitor::monitor();
return ('done', 'Generated monitor data.');
}
use App::Netdisco::Util::SNMP ();
sub show {
$extra ||= 'interfaces'; my $class = undef;
($class, $extra) = split(/::([^:]+)$/, $extra);
if ($class and $extra) {
$class = 'SNMP::Info::'.$class;
}
else {
$extra = $class;
undef $class;
}
my $i = App::Netdisco::Util::SNMP::snmp_connect($device, $class);
Data::Printer::p($i->$extra);
return ('done', "Showed $extra response from $device.");
}
}
my $worker = MyWorker->new();