79 lines
2.5 KiB
Perl
79 lines
2.5 KiB
Perl
package App::Netdisco::DB::ResultSet::DevicePower;
|
|
use base 'App::Netdisco::DB::ResultSet';
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
=head1 ADDITIONAL METHODS
|
|
|
|
|
|
=head2 with_poestats
|
|
|
|
This is a modifier for any C<search()> which will add the following
|
|
additional synthesized columns to the result set:
|
|
|
|
=over 4
|
|
|
|
=item poe_capable_ports
|
|
|
|
Count of ports which have the ability to supply PoE.
|
|
|
|
=item poe_powered_ports
|
|
|
|
Count of ports with PoE administratively disabled.
|
|
|
|
=item poe_disabled_ports
|
|
|
|
Count of ports which are delivering power.
|
|
|
|
=item poe_errored_ports
|
|
|
|
Count of ports either reporting a fault or in test mode.
|
|
|
|
=item poe_power_committed
|
|
|
|
Total power that has been negotiated and therefore committed on ports
|
|
actively supplying power.
|
|
|
|
=item poe_power_delivering
|
|
|
|
Total power as measured on ports actively supplying power.
|
|
|
|
=back
|
|
|
|
=cut
|
|
|
|
sub with_poestats {
|
|
my ($rs, $cond, $attrs) = @_;
|
|
|
|
return $rs
|
|
->search_rs($cond, $attrs)
|
|
->search({},
|
|
{
|
|
'columns' => {
|
|
ip => \"DISTINCT ON (me.ip, me.module) me.ip",
|
|
module => 'module',
|
|
power => 'power::bigint',
|
|
status => 'status',
|
|
poe_capable_ports => \"COUNT(ports.port) OVER (PARTITION BY me.ip, me.module)",
|
|
poe_powered_ports => \"SUM(CASE WHEN ports.status = 'deliveringPower' THEN 1 ELSE 0 END) OVER (PARTITION BY me.ip, me.module)",
|
|
poe_disabled_ports => \"SUM(CASE WHEN ports.admin = 'false' THEN 1 ELSE 0 END) OVER (PARTITION BY me.ip, me.module)",
|
|
poe_errored_ports => \"SUM(CASE WHEN ports.status ILIKE '%fault' THEN 1 ELSE 0 END) OVER (PARTITION BY me.ip, me.module)",
|
|
poe_power_committed => \("SUM(CASE "
|
|
. "WHEN ports.status = 'deliveringPower' AND ports.class = 'class0' THEN 15.4 "
|
|
. "WHEN ports.status = 'deliveringPower' AND ports.class = 'class1' THEN 4.0 "
|
|
. "WHEN ports.status = 'deliveringPower' AND ports.class = 'class2' THEN 7.0 "
|
|
. "WHEN ports.status = 'deliveringPower' AND ports.class = 'class3' THEN 15.4 "
|
|
. "WHEN ports.status = 'deliveringPower' AND ports.class = 'class4' THEN 30.0 "
|
|
. "WHEN ports.status = 'deliveringPower' AND ports.class IS NULL THEN 15.4 "
|
|
. "ELSE 0 END) OVER (PARTITION BY me.ip, me.module)"),
|
|
poe_power_delivering => \("SUM(CASE WHEN (ports.power IS NULL OR ports.power = '0') "
|
|
. "THEN 0 ELSE round(ports.power/1000.0, 1) END) "
|
|
. "OVER (PARTITION BY me.ip, me.module)")
|
|
},
|
|
join => 'ports'
|
|
});
|
|
}
|
|
|
|
1;
|