1SNMP::Info::Layer3::ExtUrseemre(C3o)ntributed Perl DocumSeNnMtPa:t:iIonnfo::Layer3::Extreme(3)
2
3
4
6 SNMP::Info::Layer3::Extreme - Perl5 Interface to Extreme Network
7 Devices
8
10 Eric Miller, Bill Fenner
11
13 # Let SNMP::Info determine the correct subclass for you.
14 my $extreme = new SNMP::Info(
15 AutoSpecify => 1,
16 Debug => 1,
17 DestHost => 'myswitch',
18 Community => 'public',
19 Version => 2
20 )
21 or die "Can't connect to DestHost.\n";
22
23 my $class = $extreme->class();
24
25 print "SNMP::Info determined this device to fall under subclass : $class\n";
26
28 Provides abstraction to the configuration information obtainable from
29 an Extreme device through SNMP.
30
31 Inherited Classes
32 SNMP::Info::Layer3
33 SNMP::Info::MAU
34 SNMP::Info::EDP
35
36 Required MIBs
37 EXTREME-BASE-MIB
38 EXTREME-SYSTEM-MIB
39 EXTREME-FDB-MIB
40 EXTREME-VLAN-MIB
41 EXTREME-POE-MIB
42 EXTREME-STP-EXTENSIONS-MIB
43 Inherited Classes' MIBs
44 See classes listed above for their required MIBs.
45
47 These are methods that return scalar value from SNMP
48
49 $extreme->model()
50 Returns model type. Checks $extreme->id() against the EXTREME-
51 BASE-MIB.
52
53 $extreme->vendor()
54 Returns "extreme"
55
56 $extreme->os()
57 Returns "xos" or "extremeware" depending on description()
58
59 $extreme->os_ver()
60 Parses device operating system version from description()
61
62 $extreme->serial()
63 Returns serial number
64
65 ("extremeSystemID")
66
67 $extreme->temp()
68 Returns system temperature
69
70 ("extremeCurrentTemperature")
71
72 $extreme->ps1_status()
73 Returns status of power supply 1
74
75 ("extremePowerSupplyStatus.1")
76
77 $extreme->ps2_status()
78 Returns status of power supply 2
79
80 ("extremePowerSupplyStatus.2")
81
82 $extreme->fan()
83 Returns fan status
84
85 ("extremeFanOperational.1")
86
87 $extreme->mac()
88 Returns base mac
89
90 ("dot1dBaseBridgeAddress")
91
92 Globals imported from SNMP::Info::Layer3
93 See documentation in "GLOBALS" in SNMP::Info::Layer3 for details.
94
95 Globals imported from SNMP::Info::MAU
96 See documentation in "GLOBALS" in SNMP::Info::MAU for details.
97
98 Globals imported from SNMP::Info::EDP
99 See documentation in "GLOBALS" in SNMP::Info::EDP for details.
100
102 These are methods that return tables of information in the form of a
103 reference to a hash.
104
105 Overrides
106 $extreme->interfaces()
107 Returns a mapping between the Interface Table Index (iid) and the
108 physical port name.
109
110 $extreme->i_duplex()
111 Parses mau_index and mau_link to return the duplex information for
112 interfaces.
113
114 $extreme->i_duplex_admin()
115 Parses "mac_index","mau_autostat","mau_type_admin" in order to find
116 the admin duplex setting for all the interfaces.
117
118 Returns either (auto,full,half).
119
120 $extreme->i_ignore()
121 Returns reference to hash. Increments value of IID if port is to
122 be ignored.
123
124 Ignores VLAN meta interfaces and loopback
125
126 $extreme->fw_mac()
127 ("extremeFdbMacFdbMacAddress")
128
129 $extreme->fw_port()
130 ("extremeFdbMacFdbPortIfIndex")
131
132 $extreme->fw_status()
133 ("extremeFdbMacFdbStatus")
134
135 $extreme->lldp_if()
136 Returns the mapping to the SNMP Interface Table. Extreme LLDP uses
137 the bridge index rather than ifIndex.
138
139 $extreme->i_vlan()
140 Returns a mapping between "ifIndex" and the VLAN.
141
142 $extreme->i_vlan_membership()
143 Returns reference to hash of arrays: key = "ifIndex", value = array
144 of VLAN IDs. These are the VLANs which are members of the egress
145 list for the port.
146
147 Example:
148 my $interfaces = $extreme->interfaces();
149 my $vlans = $extreme->i_vlan_membership();
150
151 foreach my $iid (sort keys %$interfaces) {
152 my $port = $interfaces->{$iid};
153 my $vlan = join(',', sort(@{$vlans->{$iid}}));
154 print "Port: $port VLAN: $vlan\n";
155 }
156
157 $extreme->i_vlan_membership_untagged()
158 Returns reference to hash of arrays: key = "ifIndex", value = array
159 of VLAN IDs. These are the VLANs which are members of the untagged
160 egress list for the port.
161
162 $extreme->v_index()
163 Returns VLAN IDs
164
165 $extreme->v_name()
166 Returns VLAN names
167
168 ("extremeVlanIfDescr")
169
170 $extreme->bp_index()
171 Returns reference to hash of bridge port table entries map back to
172 interface identifier (iid)
173
174 Returns ("ifIndex") for both key and value since we're using
175 EXTREME-FDB-MIB rather than BRIDGE-MIB.
176
177 $extreme->peth_port_power()
178 Power supplied by PoE ports, in milliwatts
179
180 ("extremePethPortMeasuredPower")
181
182 $extreme->peth_power_watts()
183 The configured maximum amount of in-line power available to the
184 slot.
185
186 ("extremePethSlotPowerLimit")
187
188 Spanning Tree Instance Globals
189 $extreme->stp_i_mac()
190 Returns the MAC extracted from ("extremeStpDomainBridgeId").
191
192 $extreme->stp_i_id()
193 Returns the unique identifier of the STP domain.
194
195 ("extremeStpDomainStpdInstance")
196
197 $extreme->stp_i_time()
198 Returns time since last topology change detected. (100ths/second)
199
200 ("extremeStpDomainTimeSinceTopologyChange")
201
202 $extreme->stp_i_time()
203 Returns time since last topology change detected. (100ths/second)
204
205 ("extremeStpDomainTimeSinceTopologyChange")
206
207 $extreme->stp_i_time()
208 Returns the total number of topology changes detected.
209
210 ("extremeStpDomainTopChanges")
211
212 $extreme->stp_i_root()
213 Returns root of STP.
214
215 ("extremeStpDomainDesignatedRoot")
216
217 $extreme->stp_i_root_port()
218 Returns the port number of the port that offers the lowest cost
219 path to the root bridge.
220
221 ("extremeStpDomainRootPortIfIndex")
222
223 $extreme->stp_i_priority()
224 Returns the port number of the port that offers the lowest cost
225 path to the root bridge.
226
227 ("extremeStpDomainBridgePriority")
228
229 Spanning Tree Protocol Port Table
230 $extreme->stp_p_id()
231 ("extremeStpPortPortIfIndex")
232
233 $extreme->stp_p_stg_id()
234 ("extremeStpDomainStpdInstance")
235
236 $extreme->stp_p_priority()
237 ("extremeStpPortPortPriority")
238
239 $extreme->stp_p_state()
240 ("extremeStpPortPortState")
241
242 $extreme->stp_p_cost()
243 ("extremeStpPortPathCost")
244
245 $extreme->stp_p_root()
246 ("extremeStpPortDesignatedRoot")
247
248 $extreme->stp_p_bridge()
249 ("extremeStpPortDesignatedBridge")
250
251 $extreme->stp_p_port()
252 ("extremeStpPortDesignatedPort")
253
254 Table Methods imported from SNMP::Info::Layer3
255 See documentation in "TABLE METHODS" in SNMP::Info::Layer3 for details.
256
257 Table Methods imported from SNMP::Info::MAU
258 See documentation in "TABLE METHODS" in SNMP::Info::MAU for details.
259
260 Table Methods imported from SNMP::Info::EDP
261 See documentation in "TABLE METHODS" in SNMP::Info::EDP for details.
262
264 These are methods that provide SNMP set functionality for overridden
265 methods or provide a simpler interface to complex set operations. See
266 "SETTING DATA VIA SNMP" in SNMP::Info for general information on set
267 operations.
268
269 $extreme->set_i_vlan ( vlan, ifIndex )
270 Changes an access (untagged) port VLAN, must be supplied with the
271 numeric VLAN ID and port "ifIndex". This method should only be
272 used on end station (non-trunk) ports.
273
274 Example:
275 my %if_map = reverse %{$extreme->interfaces()};
276 $extreme->set_i_vlan('2', $if_map{'FastEthernet0/1'})
277 or die "Couldn't change port VLAN. ",$extreme->error(1);
278
279 $extreme->set_i_pvid ( pvid, ifIndex )
280 Sets port default VLAN, must be supplied with the numeric VLAN ID
281 and port "ifIndex". This method should only be used on trunk
282 ports.
283
284 Example:
285 my %if_map = reverse %{$extreme->interfaces()};
286 $extreme->set_i_pvid('2', $if_map{'FastEthernet0/1'})
287 or die "Couldn't change port default VLAN. ",$extreme->error(1);
288
289 $extreme->set_add_i_vlan_tagged ( vlan, ifIndex )
290 Adds the VLAN to the enabled VLANs list of the port, must be
291 supplied with the numeric VLAN ID and port "ifIndex".
292
293 Example:
294 my %if_map = reverse %{$extreme->interfaces()};
295 $extreme->set_add_i_vlan_tagged('2', $if_map{'FastEthernet0/1'})
296 or die "Couldn't add port to egress list. ",$extreme->error(1);
297
298 $extreme->set_remove_i_vlan_tagged ( vlan, ifIndex )
299 Removes the VLAN from the enabled VLANs list of the port, must be
300 supplied with the numeric VLAN ID and port "ifIndex".
301
302 Example:
303 my %if_map = reverse %{$extreme->interfaces()};
304 $extreme->set_remove_i_vlan_tagged('2', $if_map{'FastEthernet0/1'})
305 or die "Couldn't add port to egress list. ",$extreme->error(1);
306
308 $extreme->munge_power_stat()
309 Removes 'present' and changes 'not' to 'Not' in the front of a
310 string.
311
312 $extreme->munge_true_ok()
313 Replaces 'true' with "OK" and 'false' with "Not OK".
314
315
316
317perl v5.36.1 2023-07-17 SNMP::Info::Layer3::Extreme(3)