Send netdisco-users mailing list submissions to
[email protected]
To subscribe or unsubscribe via the World Wide Web, visit
https://lists.sourceforge.net/lists/listinfo/netdisco-users
or, via email, send a message with subject or body 'help' to
[email protected]
You can reach the person managing the list at
[email protected]
When replying, please edit your Subject line so it is more specific
than "Re: Contents of netdisco-users digest..."
Today's Topics:
1. Enable/Disable Power Error - Possible Fix (Robert Lewis)
2. Re: Enable/Disable Power Error - Possible Fix (Oliver Gorwits)
--- Begin Message ---
I was receiving the following error when trying to disable or enable power
on a port. I am running version 2.38.9
[netdisco@netdisco Plugin]$ netdisco-do power -d X.X.X.X -p 2 -e off
[17645] 2018-01-14 20:14:48 info power: [172.38.7.3] started at Sun Jan 14
15:14:48 2018
[17645] 2018-01-14 20:14:48 info power: finished at Sun Jan 14 15:14:48
2018
[17645] 2018-01-14 20:14:48 info power: status error: error running job:
Global symbol "$pn" requires explicit package name at
/home/netdisco/perl5/lib/perl5/App/Netdisco/Worker/Plugin/Power.pm line 24.
Global symbol "$device" requires explicit package name at
/home/netdisco/perl5/lib/perl5/App/Netdisco/Worker/Plugin/Power.pm line 24.
Compilation failed in require at
/home/netdisco/perl5/lib/perl5/Module/Load.pm line 77.
Can't locate App/Netdisco/Worker/Plugin/Power in @INC (@INC contains:
/home/netdisco/perl5/lib/perl5/auto/share/dist/App-Netdisco/lib
/home/netdisco/perl5/lib /home/netdisco/perl5/bin/lib
/home/netdisco/perl5/lib/perl5/x86_64-linux-thread-multi
/home/netdisco/perl5/lib/perl5 /usr/local/lib64/perl5
/usr/local/share/perl5 /usr/lib64/perl5/vendor_perl
/usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at
/home/netdisco/perl5/lib/perl5/Module/Load.pm line 77.
Declaring the variable under the register_worker check phase seemed to
correct it.
[netdisco@netdisco Plugin]$ diff -u Power.pm.bak Power.pm
--- Power.pm.bak 2018-01-14 15:01:17.886718726 -0500
+++ Power.pm 2018-01-14 15:10:06.146710285 -0500
@@ -9,6 +9,7 @@
register_worker({ phase => 'check' }, sub {
my ($job, $workerconf) = @_;
+ my ($device, $pn) = map {$job->$_} qw/device port/;
return Status->error('Missing device (-d).') unless defined $job->device;
return Status->error('Missing port (-p).') unless defined $job->port;
return Status->error('Missing status (-e).') unless defined
$job->subaction;
@@ -30,7 +31,6 @@
register_worker({ phase => 'main', driver => 'snmp' }, sub {
my ($job, $workerconf) = @_;
my ($device, $pn) = map {$job->$_} qw/device port/;
-
# munge data
(my $data = $job->subaction) =~ s/-\w+//; # remove -other
$data = 'true' if $data =~ m/^(on|yes|up)$/;
--
Robert Lewis
--- End Message ---
--- Begin Message ---
Hi Robert
Many thanks indeed for the very clear bug report. I have released new
version of Netdisco (2.038028) with your patch, to CPAN.
regards,
oliver.
On 2018-01-14 20:22, Robert Lewis wrote:
I was receiving the following error when trying to disable or enable
power on a port. I am running version 2.38.9
[netdisco@netdisco Plugin]$ netdisco-do power -d X.X.X.X -p 2 -e off
[17645] 2018-01-14 20:14:48 info power: [172.38.7.3] started at Sun
Jan 14 15:14:48 2018
[17645] 2018-01-14 20:14:48 info power: finished at Sun Jan 14
15:14:48 2018
[17645] 2018-01-14 20:14:48 info power: status error: error running
job: Global symbol "$pn" requires explicit package name at
/home/netdisco/perl5/lib/perl5/App/Netdisco/Worker/Plugin/Power.pm
line 24.
Global symbol "$device" requires explicit package name at
/home/netdisco/perl5/lib/perl5/App/Netdisco/Worker/Plugin/Power.pm
line 24.
Compilation failed in require at
/home/netdisco/perl5/lib/perl5/Module/Load.pm line 77.
Can't locate App/Netdisco/Worker/Plugin/Power in @INC (@INC contains:
/home/netdisco/perl5/lib/perl5/auto/share/dist/App-Netdisco/lib
/home/netdisco/perl5/lib /home/netdisco/perl5/bin/lib
/home/netdisco/perl5/lib/perl5/x86_64-linux-thread-multi
/home/netdisco/perl5/lib/perl5 /usr/local/lib64/perl5
/usr/local/share/perl5 /usr/lib64/perl5/vendor_perl
/usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at
/home/netdisco/perl5/lib/perl5/Module/Load.pm line 77.
Declaring the variable under the register_worker check phase seemed to
correct it.
[netdisco@netdisco Plugin]$ diff -u Power.pm.bak Power.pm
--- Power.pm.bak 2018-01-14 15:01:17.886718726 -0500
+++ Power.pm 2018-01-14 15:10:06.146710285 -0500
@@ -9,6 +9,7 @@
register_worker({ phase => 'check' }, sub {
my ($job, $workerconf) = @_;
+ my ($device, $pn) = map {$job->$_} qw/device port/;
return Status->error('Missing device (-d).') unless defined
$job->device;
return Status->error('Missing port (-p).') unless defined
$job->port;
return Status->error('Missing status (-e).') unless defined
$job->subaction;
@@ -30,7 +31,6 @@
register_worker({ phase => 'main', driver => 'snmp' }, sub {
my ($job, $workerconf) = @_;
my ($device, $pn) = map {$job->$_} qw/device port/;
-
# munge data
(my $data = $job->subaction) =~ s/-w+//; # remove -other
$data = 'true' if $data =~ m/^(on|yes|up)$/;
--
Robert Lewis
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Netdisco mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/netdisco-users
--- End Message ---
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Netdisco mailing list - Digest Mode
[email protected]
https://lists.sourceforge.net/lists/listinfo/netdisco-users
