SNMP::...HP4000(3pm)

✨ NAME ✨

SNMP::...HP4000 — it's the SNMP::Info::Layer2::HP4000 module, bestie 💅 and it's your SNMP interface to the older HP ProCurve switches (the 1600, 2400, 2424M, 4000 and 8000 girlies, specifically). This page lives in the 3pm manual section, under User Contributed Perl Documentation. 🎀

---

🌸 AUTHOR 🌸

Max Baker 👑

---

🦋 SYNOPSIS 🦋

okay so the whole vibe here is: you let SNMP::Info figure out which subclass is the right one for your switch, no cap 💖

# Let SNMP::Info determine the correct subclass for you.
my $hp = new SNMP::Info(
                         AutoSpecify => 1,
                         Debug       => 1,
                         DestHost    => 'myswitch',
                         Community   => 'public',
                         Version     => 2
                       )
   or die "Can't connect to DestHost.\n";

my $class      = $hp->class();
print "SNMP::Info determined this device to fall under subclass : $class\n";

periodt. 💅

---

🌈 DESCRIPTION 🌈

So basically this module gives you abstraction for all the configuration info you can pull off an HP ProCurve Switch via SNMP. ✨

ngl, watch out: some HP Switches will connect via SNMP version 1, but a lot of the config data will just… not be available. 😭 So make sure you try connecting with Version 2 first, and then fail back to version 1. fr fr.

🧚 Inherited Classes 🧚

• SNMP::Info::Layer2
• SNMP::Info::MAU

👑 Required MIBs 👑

• RFC1271-MIB — included in the V2 mibs from Cisco
• HP-ICF-OID
• HP-VLAN — (this MIB is new with SNMP::Info 0.8) 🎉
• STATISTICS-MIB
• NETSWITCH-MIB
• CONFIG-MIB

The last five MIBs listed are from HP and can be found at <http://www.hp.com/rnd/software> or <http://www.hp.com/rnd/software/MIBs.htm>. 🫶

---

💜 Change Log 💜

• Version 0.4 — Removed ENTITY-MIB e_*() methods to separate sub-class — SNMP::Info::Entity

---

💖 GLOBALS 💖

These are methods that return a scalar value from SNMP. iconic.

• $hp->cpu() — Returns CPU Utilization in percentage. 📈
• $hp->log() — Returns all the log entries from the switch's log that are not Link up or down messages. (we're filtering the noise, bestie 🧹)
• $hp->mem_free() — Returns bytes of free memory
• $hp->mem_total() — Return bytes of total memory
• $hp->mem_used() — Returns bytes of used memory
• $hp->model() — Returns the model number of the HP Switch. Will translate between the HP Part number and the common model number with this map :

 %MODEL_MAP = (
                'J4093A' => '2424M',
                'J4110A' => '8000M',
                'J4120A' => '1600M',
                'J4121A' => '4000M',
                'J4122A' => '2400M',
                'J4122B' => '2424M',
                );

• $hp->os() — Returns hp
• $hp->os_bin() — "hpSwitchRomVersion.0"
• $hp->os_ver() — Tries to use os_version() and if that fails will try and cull the version from the description field. 🙈
• $hp->os_version() — "hpSwitchOsVersion.0"
• $hp->serial() — Returns serial number if available through SNMP
• $hp->slots() — Returns number of entries in $hp->e_name that have slot in them.
• $hp->vendor() — hp
• $hp->fan() — Returns fan status 🌀
• $hp->ps1_status() — Power supply 1 status
• $hp->ps2_status() — Power supply 2 status

🌟 Globals imported from SNMP::Info::Layer2 🌟

See documentation in "GLOBALS" in SNMP::Info::Layer2 for details.

🌟 Globals imported from SNMP::Info::MAU 🌟

See documentation in "GLOBALS" in SNMP::Info::MAU for details.

---

🎀 TABLE METHODS 🎀

These are methods that return tables of information in the form of a reference to a hash. (a hash ref, bestie, we love a data structure 💅)

🔥 Overrides 🔥

• $hp->interfaces() — Uses $hp->i_description()
• $hp->i_duplex() — Returns reference to map of IIDs to current link duplex.
• $hp->i_duplex_admin() — Returns reference to hash of IIDs to admin duplex setting.
• $hp->vendor_i_type() — Returns reference to hash of IIDs to HP specific port type ("hpSwitchPortType").
• $hp->i_name() — Crosses i_name() with $hp->e_name() using $hp->e_port() and i_alias()
• $hp->i_vlan() — Returns a mapping between "ifIndex" and the PVID (default VLAN) or untagged port when using HP-VLAN.
• $hp->i_vlan_membership() — Returns reference to hash of arrays: key = "ifIndex", value = array of VLAN IDs. These are the VLANs which are members of the egress list for the port. It is the union of tagged, untagged, and auto ports.

  Example:
  my $interfaces = $hp->interfaces();
  my $vlans      = $hp->i_vlan_membership();

  foreach my $iid (sort keys %$interfaces) {
    my $port = $interfaces->{$iid};
    my $vlan = join(',', sort(@{$vlans->{$iid}}));
    print "Port: $port VLAN: $vlan\n";
  }

• $hp->i_vlan_membership_untagged() — Returns reference to hash of arrays: key = "ifIndex", value = array of VLAN IDs. These are the VLANs which are members of the untagged egress list for the port.
• $hp->v_index() — Returns VLAN IDs
• $hp->v_name() — Returns VLAN names
• $hp->bp_index() — Returns reference to hash of bridge port table entries map back to interface identifier (iid)

Returns ("ifIndex") for both key and value for 1600, 2424, 4000, and 8000 models since they seem to have problems with BRIDGE-MIB 😭

🌟 Table Methods imported from SNMP::Info::Layer2 🌟

See documentation in "TABLE METHODS" in SNMP::Info::Layer2 for details.

🌟 Table Methods imported from SNMP::Info::MAU 🌟

See documentation in "TABLE METHODS" in SNMP::Info::MAU for details.

---

🫶 SET METHODS 🫶

These are methods that provide SNMP set functionality for overridden methods or provide a simpler interface to complex set operations. See "SETTING DATA VIA SNMP" in SNMP::Info for general information on set operations.

• set_i_vlan()
• set_i_vlan_tagged()

slay. that's the whole set list. 💅✨

---

and that's a wrap, bestie!! 🦋 this page is perl v5.40.1, dated 2026-02-28, and it's SNMP::...HP4000(3pm) — go forth and poll your switches, you've got this 💖👑