view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension Net::Frame::Layer::SNMP.

1.02 Fri Dec  9 17:48:36 EST 2016
   - Fixed bug in pack() for agentAddr.
   - Fixed bug in getLength - now uses pack() instead of raw().
   - Updated _inetNtoa() to use N::F::L inet6Ntoa.

1.01 Tue Mar 12 17:48:36 EST 2013
   - Updated MANIFEST with new tests.
   - Updated minor bug in varbinds().

1.00 Tue Mar 12 17:48:36 EST 2013
   - first public release

lib/Net/Frame/Layer/SNMP.pm  view on Meta::CPAN

            }
         }
      );
      if (defined($snmpasn->error)) {
         print $snmpasn->error;
         return
      }
   } elsif ($self->pdu_type == NF_SNMP_PDUTYPE_TRAP) {
      my $agent_addr;
      if ($self->agentAddr =~ /:/) {
         $agent_addr = inet6Aton($self->agentAddr)
      } else {
         $agent_addr = inetAton($self->agentAddr)
      }
      $raw = $snmpasn->encode(
         version   => $self->version,
         community => $self->community,
         pdu_type  => {
            $PDUTYPES[$self->pdu_type] => {
               entOid       => $self->entOid,
               agentAddr    => $agent_addr,

lib/Net/Frame/Layer/SNMP.pm  view on Meta::CPAN

   push @varbinds, \%hash2;

   return @varbinds;
}

sub _inetNtoa {
    my ($addr) = @_;
    if (length($addr) == 4) {
        return inet_ntoa($addr)
    } else {
        return inet6Ntoa($addr)
    }
}

1;

__END__

=head1 NAME

Net::Frame::Layer::SNMP - Simple Network Management Protocol layer object