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

rename Core to Worker and move other packages around

Browse Source
This commit is contained in:
Oliver Gorwits
2017-09-03 18:45:00 +01:00
parent 4def0af0b0
commit 8eaa33770c
11 changed files with 71 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
lib/App/Netdisco/Backend/Status.pm
View File

@@ -1,67 +0,0 @@
package App::Netdisco::Backend::Status;
use strict;
use warnings;
use Moo;
use namespace::clean;
foreach my $slot (qw/
done
error
defer
message
/) {
has $slot => (
is => 'rw',
);
}
=head1 METHODS
=head2 ok
Returns true if C<done> is true and C<error> and C<defer> have not been set.
=cut
sub ok { return ($_[0]->done and not $_[0]->error and not $_[0]->defer) }
=head2 not_ok
Returns the logical inversion of C<ok>.
=cut
sub not_ok { return (not $_[0]->ok) }
=head2 status
Returns text equivalent of C<done>, C<defer>, or C<error>.
=cut
sub status {
my $self = shift;
return (
$self->done ? 'done'
: $self->defer ? 'defer'
: 'error';
);
}
=head2 update_job
Updates an L<App::Netdisco::Backend::Job> with status and message.
=cut
sub update_job {
my $self = shift;
my $job = shift or return;
$job->status( $self->status );
$job->log( $self->message );
}
1;

4
lib/App/Netdisco/Backend/Worker/Interactive/DeviceActions.pm
View File

@@ -1,6 +1,6 @@
package App::Netdisco::Backend::Worker::Interactive::DeviceActions;
use App::Netdisco::Core::Transport::SNMP;
use App::Netdisco::Transport::SNMP;
use App::Netdisco::Util::Device 'get_device';
use App::Netdisco::Backend::Util ':all';
@@ -22,7 +22,7 @@ sub _set_device_generic {
$data ||= '';
# snmp connect using rw community
my $info = App::Netdisco::Core::Transport::SNMP->writer_for($ip)
my $info = App::Netdisco::Transport::SNMP->writer_for($ip)
or return job_defer("Failed to connect to device [$ip] to update $slot");
my $method = 'set_'. $slot;

6
lib/App/Netdisco/Backend/Worker/Interactive/PortActions.pm
View File

@@ -1,7 +1,7 @@
package App::Netdisco::Backend::Worker::Interactive::PortActions;
use App::Netdisco::Util::Port ':all';
use App::Netdisco::Core::Transport::SNMP;
use App::Netdisco::Transport::SNMP;
use App::Netdisco::Util::Device 'get_device';
use App::Netdisco::Backend::Util ':all';
@@ -74,7 +74,7 @@ sub _set_port_generic {
if ($device->vendor ne 'netdisco') {
# snmp connect using rw community
my $info = App::Netdisco::Core::Transport::SNMP->writer_for($ip)
my $info = App::Netdisco::Transport::SNMP->writer_for($ip)
or return job_defer("Failed to connect to device [$ip] to control port");
my $iid = get_iid($info, $port)
@@ -127,7 +127,7 @@ sub power {
$data = 'false' if $data =~ m/^(off|no|down)$/;
# snmp connect using rw community
my $info = App::Netdisco::Core::Transport::SNMP->writer_for($ip)
my $info = App::Netdisco::Transport::SNMP->writer_for($ip)
or return job_defer("Failed to connect to device [$ip] to control power");
my $powerid = get_powerid($info, $port)

4
lib/App/Netdisco/Backend/Worker/Poller/Common.pm
View File

@@ -2,7 +2,7 @@ package App::Netdisco::Backend::Worker::Poller::Common;
use Dancer qw/:moose :syntax :script/;
use App::Netdisco::Core::Transport::SNMP;
use App::Netdisco::Transport::SNMP;
use App::Netdisco::Util::Device 'get_device';
use App::Netdisco::Backend::Util ':all';
use App::Netdisco::JobQueue qw/jq_queued jq_insert/;
@@ -63,7 +63,7 @@ sub _single_body {
return job_defer("$job_type deferred: $host is not ${job_type}able");
}
my $snmp = App::Netdisco::Core::Transport::SNMP->reader_for($device);
my $snmp = App::Netdisco::Transport::SNMP->reader_for($device);
if (!defined $snmp) {
return job_defer("$job_type failed: could not SNMP connect to $host");
}

4
lib/App/Netdisco/Backend/Worker/Poller/Device.pm
View File

@@ -2,7 +2,7 @@ package App::Netdisco::Backend::Worker::Poller::Device;
use Dancer qw/:moose :syntax :script/;
use App::Netdisco::Core::Transport::SNMP;
use App::Netdisco::Transport::SNMP;
use App::Netdisco::Util::Device qw/get_device is_discoverable_now/;
use App::Netdisco::Core::Discover ':all';
use App::Netdisco::Backend::Util ':all';
@@ -59,7 +59,7 @@ sub discover {
return job_defer("discover deferred: $host is not discoverable");
}
my $snmp = App::Netdisco::Core::Transport::SNMP->reader_for($device);
my $snmp = App::Netdisco::Transport::SNMP->reader_for($device);
if (!defined $snmp) {
return job_defer("discover failed: could not SNMP connect to $host");
}