45 lines
1.4 KiB
Perl
45 lines
1.4 KiB
Perl
package App::Netdisco::Worker::Plugin::Renumber;
|
|
|
|
use Dancer ':syntax';
|
|
use App::Netdisco::Worker::Plugin;
|
|
use aliased 'App::Netdisco::Worker::Status';
|
|
|
|
use NetAddr::IP qw/:rfc3021 :lower/;
|
|
use App::Netdisco::Util::Device qw/get_device renumber_device/;
|
|
|
|
register_worker({ phase => 'check' }, sub {
|
|
my ($job, $workerconf) = @_;
|
|
|
|
return Status->error('Missing device (-d).')
|
|
unless defined shift->device;
|
|
|
|
my $new_ip = NetAddr::IP->new($job->extra);
|
|
unless ($new_ip and $new_ip->addr ne '0.0.0.0') {
|
|
return Status->error("Bad host or IP: ".($job->extra || '0.0.0.0'));
|
|
}
|
|
|
|
debug 'NB: this feature will change the primary IP of a device to support migrations';
|
|
debug 'NB: use the device_identity feature if you wish to steer Netdisco in choosing the canonical IP of devices';
|
|
|
|
return Status->done('Renumber is able to run');
|
|
});
|
|
|
|
register_worker({ phase => 'main' }, sub {
|
|
my ($job, $workerconf) = @_;
|
|
my ($device, $port, $extra) = map {$job->$_} qw/device port extra/;
|
|
|
|
my $old_ip = $device->ip;
|
|
my $new_ip = NetAddr::IP->new($extra);
|
|
|
|
my $new_dev = get_device($new_ip->addr);
|
|
if ($new_dev and $new_dev->in_storage and ($new_dev->ip ne $device->ip)) {
|
|
return Status->error(sprintf "Already know new device as: %s.", $new_dev->ip);
|
|
}
|
|
|
|
renumber_device($device, $new_ip);
|
|
return Status->done(sprintf 'Renumbered device %s to %s (%s).',
|
|
$device->ip, $new_ip, ($device->dns || ''));
|
|
});
|
|
|
|
true;
|