Help for this page

Select Code to Download

Select or download this

  package My::SNMPDevice;
  use base 'Class::SNMP';
...
  );
  print "Has a " . $device->Uptime . " uptime\n";
  print "Port 4 is at speed " . $device->Ports->Entry(4)->Speed . " Mb
+ps\n";

Select or download this

  use SNMP::Trap;
  use My::SNMPDevice;  # A subclass of Class::SNMP
...
      my ($trap) = @_;
      print $trap->hostname . " is critical: " . $trap->alarmInformati
+on . "\n";
  }