From 8e8edb48d19145b321bbf31c1e2230b93b3f2aa5 Mon Sep 17 00:00:00 2001
From: nick n <39005454+inphobia@users.noreply.github.com>
Date: Sat, 2 Sep 2023 20:36:49 +0200
Subject: [PATCH] if ciscosb can provide actual powerdraw surely aoscx can't
 trail behind that (#499)

---
 lib/SNMP/Info/Layer3/ArubaCX.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/lib/SNMP/Info/Layer3/ArubaCX.pm b/lib/SNMP/Info/Layer3/ArubaCX.pm
index 7dfb0929..e0399eb0 100644
--- a/lib/SNMP/Info/Layer3/ArubaCX.pm
+++ b/lib/SNMP/Info/Layer3/ArubaCX.pm
@@ -56,6 +56,7 @@ $VERSION = '3.94';
     %SNMP::Info::IEEE802_Bridge::MIBS,
     'ARUBAWIRED-FAN-MIB' => 'arubaWiredFanName',
     'ARUBAWIRED-VSF-MIB' => 'arubaWiredVsfTrapEnable',
+    'ARUBAWIRED-POE-MIB' => 'arubaWiredPoePethPsePortAveragePower',
     'ARUBAWIRED-POWERSUPPLY-MIB' => 'arubaWiredPSUName',
 );
 
@@ -73,6 +74,7 @@ $VERSION = '3.94';
     %SNMP::Info::Layer3::FUNCS,
     %SNMP::Info::IEEE802dot3ad::FUNCS,
     %SNMP::Info::IEEE802_Bridge::FUNCS,
+    'peth_port_power' => 'arubaWiredPoePethPsePortAveragePower',
     'fan_names' => 'arubaWiredFanName',
     'fan_states' => 'arubaWiredFanState',
     'psu_names' => 'arubaWiredPSUName',
@@ -264,7 +266,11 @@ Subclass for devices running ArubaOS-CX
 =over
 
 =item F<ARUBAWIRED-FAN-MIB>
+
 =item F<ARUBAWIRED-VSF-MIB>
+
+=item F<ARUBAWIRED-POE-MIB>
+
 =item F<ARUBAWIRED-POWERSUPPLY-MIB>
 
 =item Inherited Classes' MIBs
@@ -333,6 +339,15 @@ See documentation in L<SNMP::Info::IEEE802dot3ad> for details.
 These are methods that return tables of information in the form of a reference
 to a hash.
 
+=over
+
+=item $cx->peth_port_power()
+
+Power supplied by PoE ports, in milliwatts.
+(C<arubaWiredPoePethPsePortAveragePower>)
+
+=back
+
 =head2 Overrides
 
 =over