SNMP::...scoVTP(3pm)

💖 SNMP::Info::CiscoVTP — the 3pm perl page 💖

okay so bestie, welcome to the User Contributed Perl Documentation page for SNMP::Info::CiscoVTP, a little 3pm manpage moment. Go grab a strawberry drink, we're doing VLANs. 🍓

---

✨ NAME ✨

SNMP::Info::CiscoVTP — SNMP Interface to Cisco's VLAN Management MIBs 🫶

👑 AUTHOR 👑

Max Baker — icon behavior, honestly.

🌈 SYNOPSIS 🌈

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

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

literally just let it figure out which subclass it belongs to and print that out. she's self-aware 💅

🦋 DESCRIPTION 🦋

SNMP::Info::CiscoVTP is a subclass of SNMP::Info that hands you the tea on a Cisco device's VLAN and VTP Domain membership. no cap, that's the whole gig.

bestie, listen — use it or create it inside a subclass of SNMP::Info. Do not use it directly. that's a hard rule, not a suggestion 🙈

🌸 Inherited Classes 🌸

None. she comes from nowhere, she's a self-made queen. 💀

⭐ Required MIBs ⭐

• CISCO-VTP-MIB
• CISCO-VLAN-MEMBERSHIP-MIB
• CISCO-VLAN-IFTABLE-RELATIONSHIP-MIB

🎀 GLOBALS 🎀

• $vtp->vtp_version() — maps to "vtpVersion"
• $vtp->vtp_maxstore() — maps to "vtpMaxVlanStorage"
• $vtp->vtp_notify() — maps to "vtpNotificationsEnabled"
• $vtp->vtp_notify_create() — maps to "vtpVlanCreatedNotifEnabled"
• $vtp->vtp_notify_delete() — maps to "vtpVlanDeletedNotifEnabled"
• $vtp->vtp_trunk_set_serial() — maps to "vlanTrunkPortSetSerialNo"

💅 TABLE METHODS 💅

heads up bestie: your device is only gonna implement a subset of these methods. don't come for me if half of them vibe-check as empty.

• $vtp->i_vlan() — hands you a mapping between "ifIndex" and the assigned VLAN ID for access ports, plus the default VLAN ID for trunk ports.
• $vtp->i_untagged() — an alias for "i_vlan". same girl, different name. 👯
• $vtp->i_vlan_membership() — returns a reference to a hash of arrays: key = "ifIndex", value = an array of VLAN IDs. these are the VLANs that are members of the enabled VLAN list for the port.

Example:

my $interfaces = $vtp->interfaces();
my $vlans      = $vtp->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";
}

• $vtp->i_subinterfaces() — returns a reference to a hash of arrays: key = "ifIndex", value = an array of "ifIndex". these are the VLAN subinterfaces (the "l2vlan" type) belonging to the parent ("ethernetCsmacd" type) interface.

Example:

my $interfaces = $vtp->interfaces();
my $i_subs     = $vtp->i_subinterfaces();

foreach my $iid (sort keys %$interfaces) {
  my $port = $interfaces->{$iid};
  my $subs = join(',', sort(map {$interfaces->{$_}} @{$i_subs->{$iid}}));
  print "Port: $port has subinterfaces: $subs\n";
}

• $vtp->i_vlan_membership_untagged() — returns a reference to a hash of arrays: key = "ifIndex", value = an array of VLAN IDs. these are the VLANs that are members of the untagged egress list for the port.

🧚 VLAN Table ("CISCO-VTP-MIB::vtpVlanTable") 🧚

go read ftp://ftp.cisco.com/pub/mibs/supportlists/wsc5000/wsc5000-communityIndexing.html — it's a genuinely good treaty on how to connect to the VLANs. iykyk, this one's a classic.

• $vtp->v_index() — maps to "vtpVlanIndex"
• $vtp->v_state() — maps to "vtpVlanState"
• $vtp->v_type() — maps to "vtpVlanType"
• $vtp->v_name() — maps to "vtpVlanName"
• $vtp->v_mtu() — maps to "vtpVlanMtu"
• $vtp->v_said() — maps to "vtpVlanDot10Said"
• $vtp->v_ring() — maps to "vtpVlanRingNumber"
• $vtp->v_bridge() — maps to "vtpVlanBridgeNumber"
• $vtp->v_stp() — maps to "vtpVlanStpType"
• $vtp->v_parent() — maps to "vtpVlanParentVlan"
• $vtp->v_trans1() — maps to "vtpVlanTranslationalVlan1"
• $vtp->v_trans2() — maps to "vtpVlanTranslationalVlan2"
• $vtp->v_btype() — maps to "vtpVlanBridgeType"
• $vtp->v_hop_are() — maps to "vtpVlanAreHopCount"
• $vtp->v_hop_ste() — maps to "vtpVlanSteHopCount"
• $vtp->v_crf() — maps to "vtpVlanIsCRFBackup"
• $vtp->v_type_ext() — maps to "vtpVlanTypeExt"
• $vtp->v_if() — maps to "vtpVlanIfIndex"

🔥 VLAN Membership Table ("CISCO-VLAN-MEMBERSHIP-MIB::vmMembershipTable") 🔥

• $vtp->i_vlan_type() — Static, Dynamic, or multiVlan, your pick bestie. maps to ("vmVlanType")
• $vtp->i_vlan2() — the VLAN that an access port is assigned to. maps to ("vmVlan")
• $vtp->i_vlan_stat() — Inactive, active, or shutdown. maps to ("vmPortStatus")
• $vtp->i_vlan_1() — each bit represents a VLAN. this one covers 0 through 1023. maps to ("vmVlans")
• $vtp->i_vlan_2() — each bit represents a VLAN. this one covers 1024 through 2047. maps to ("vmVlans2k")
• $vtp->i_vlan_3() — each bit represents a VLAN. this one covers 2048 through 3071. maps to ("vmVlans3k")
• $vtp->i_vlan_4() — each bit represents a VLAN. this one covers 3072 through 4095. maps to ("vmVlans4k")

🌈 VLAN Membership Voice VLAN Table 🌈

this one lives at ("CISCO-VLAN-MEMBERSHIP-MIB::vmVoiceVlanTable")

• $vtp->i_voice_vlan() — maps to "vmVoiceVlanId"

💜 Management Domain Table ("CISCO-VTP-MIB::managementDomainTable") 💜

• $vtp->vtp_d_name() — maps to "managementDomainName"
• $vtp->vtp_d_mode() — maps to "managementDomainLocalMode"
• $vtp->vtp_d_rev() — maps to "managementDomainConfigRevNumber"
• $vtp->vtp_d_updater() — maps to "managementDomainLastUpdater"
• $vtp->vtp_d_last() — maps to "managementDomainLastChange"
• $vtp->vtp_d_status() — maps to "managementDomainRowStatus"
• $vtp->vtp_d_tftp() — maps to "managementDomainTftpServer"
• $vtp->vtp_d_tftp_path() — maps to "managementDomainTftpPathname"
• $vtp->vtp_d_pruning() — maps to "managementDomainPruningState"
• $vtp->vtp_d_ver() — maps to "managementDomainVersionInUse"

🩷 VLAN Trunk Port Table ("CISCO-VTP-MIB::vlanTrunkPortTable") 🩷

• $vtp->vtp_trunk_mgmt_dom() — maps to "vlanTrunkPortManagementDomain"
• $vtp->vtp_trunk_encaps_t() — maps to "vlanTrunkPortEncapsulationType"
• $vtp->vtp_trunk_vlans() — maps to "vlanTrunkPortVlansEnabled"
• $vtp->vtp_trunk_vlans_2k() — maps to "vlanTrunkPortVlansEnabled2k"
• $vtp->vtp_trunk_vlans_3k() — maps to "vlanTrunkPortVlansEnabled3k"
• $vtp->vtp_trunk_vlans_4k() — maps to "vlanTrunkPortVlansEnabled4k"
• $vtp->vtp_trunk_native() — maps to "vlanTrunkPortNativeVlan"
• $vtp->i_pvid() — maps to "vlanTrunkPortNativeVlan"
• $vtp->vtp_trunk_rstat() — maps to "vlanTrunkPortRowStatus"
• $vtp->vtp_trunk_dyn() — maps to "vlanTrunkPortDynamicState"
• $vtp->vtp_trunk_dyn_stat() — maps to "vlanTrunkPortDynamicStatus"
• $vtp->vtp_trunk_vtp() — maps to "vlanTrunkPortVtpEnabled"
• $vtp->vtp_trunk_encaps() — maps to "vlanTrunkPortEncapsulationOperType"

💀 SET METHODS 💀

these are the methods that give you SNMP set functionality for methods that got overridden, or that give you a simpler interface to complex set operations. for the general tea on set operations, go read "SETTING DATA VIA SNMP" in SNMP::Info. 📚

• $vtp->set_i_vlan ( vlan, ifIndex ) — changes an access (untagged) port VLAN. you must supply the numeric VLAN ID and the port "ifIndex". only use this one on end station (non-trunk) ports, okay? 🫶

Example:

my %if_map = reverse %{$vtp->interfaces()};
$vtp->set_i_vlan('2', $if_map{'FastEthernet0/1'})
  or die "Couldn't change port VLAN. ",$vtp->error(1);

• $vtp->set_i_pvid ( pvid, ifIndex ) — sets the port default VLAN. again, you must supply the numeric VLAN ID and the port "ifIndex". this one is only for trunk ports, periodt.

Example:

my %if_map = reverse %{$vtp->interfaces()};
$vtp->set_i_pvid('2', $if_map{'FastEthernet0/1'})
  or die "Couldn't change port default VLAN. ",$vtp->error(1);

• $vtp->set_i_untagged ( vlan, ifIndex ) — this one tries to work out whether the port referenced by ifIndex is trunking, and if it is, it returns the value of "set_i_pvid". otherwise you get the value of "set_i_vlan". she's doing the thinking so you don't have to. 😌
• $vtp->set_add_i_vlan_tagged ( vlan, ifIndex ) — adds the VLAN to the enabled VLANs list of the port. yes, you must supply the numeric VLAN ID and port "ifIndex".

Example:

my %if_map = reverse %{$vtp->interfaces()};
$vtp->set_add_i_vlan_tagged('2', $if_map{'FastEthernet0/1'})
  or die "Couldn't add port to egress list. ",$vtp->error(1);

• $vtp->set_remove_i_vlan_tagged ( vlan, ifIndex ) — removes the VLAN from the enabled VLANs list of the port. and yeah, you must supply the numeric VLAN ID and port "ifIndex".

Example:

my %if_map = reverse %{$vtp->interfaces()};
$vtp->set_remove_i_vlan_tagged('2', $if_map{'FastEthernet0/1'})
  or die "Couldn't add port to egress list. ",$vtp->error(1);

---

okay that's the whole page, no notes. this one's from perl v5.40.1, dated 2026-02-28, and it's filed under SNMP::...scoVTP(3pm) in the User Contributed Perl Documentation. love that for her. mwah, go configure some VLANs responsibly bestie 💖✨🎀