35 lines
988 B
Perl
35 lines
988 B
Perl
package App::Netdisco::Web::Plugin::AdminTask::DuplicateDevices;
|
|
|
|
use Dancer ':syntax';
|
|
use Dancer::Plugin::Ajax;
|
|
use Dancer::Plugin::DBIC;
|
|
use Dancer::Plugin::Auth::Extensible;
|
|
|
|
use App::Netdisco::Web::Plugin;
|
|
|
|
register_admin_task({
|
|
tag => 'duplicatedevices',
|
|
label => 'Duplicate Devices',
|
|
});
|
|
|
|
ajax '/ajax/content/admin/duplicatedevices' => require_role admin => sub {
|
|
my @set = schema('netdisco')->resultset('Device')->search({
|
|
serial => { '-in' => schema('netdisco')->resultset('Device')->search({
|
|
'-and' => [serial => { '!=', undef }, serial => { '!=', '' }],
|
|
}, {
|
|
group_by => ['serial'],
|
|
having => \'count(*) > 1',
|
|
columns => 'serial',
|
|
})->as_query
|
|
},
|
|
}, { columns => [qw/ip dns contact location name model os_ver serial/] })
|
|
->with_times->hri->all;
|
|
|
|
content_type('text/html');
|
|
template 'ajax/admintask/duplicatedevices.tt', {
|
|
results => \@set
|
|
}, { layout => undef };
|
|
};
|
|
|
|
true;
|