Net::Frame::Layer::OSPF::Lls - OSPF Lls type object

Net-Frame-Layer-OSPF documentation Contained in the Net-Frame-Layer-OSPF distribution.

Index

Code Index:

NAME

Top

Net::Frame::Layer::OSPF::Lls - OSPF Lls type object

SYNOPSIS

Top

   use Net::Frame::Layer::OSPF::Lls;

   my $layer = Net::Frame::Layer::OSPF::Lls->new(
      identifier     => getRandom16bitsInt(),
      sequenceNumber => getRandom16bitsInt(),
      payload        => '',
   );
   $layer->pack;

   print 'RAW: '.$layer->dump."\n";

   # Read a raw layer
   my $layer = Net::Frame::Layer::OSPF::Lls->new(raw => $raw);

   print $layer->print."\n";
   print 'PAYLOAD: '.unpack('H*', $layer->payload)."\n"
      if $layer->payload;

DESCRIPTION

Top

This modules implements the encoding and decoding of the OSPF Lls object.

See also Net::Frame::Layer for other attributes and methods.

ATTRIBUTES

Top

identifier

Identification number.

sequenceNumber

Sequence number.

The following are inherited attributes. See Net::Frame::Layer for more information.

raw
payload
nextLayer

METHODS

Top

new
new (hash)

Object constructor. You can pass attributes that will overwrite default ones. See SYNOPSIS for default values.

The following are inherited methods. Some of them may be overriden in this layer, and some others may not be meaningful in this layer. See Net::Frame::Layer for more information.

layer
computeLengths
computeChecksums
pack
unpack
encapsulate
getLength
getPayloadLength
print
dump

CONSTANTS

Top

No constants here.

SEE ALSO

Top

Net::Frame::Layer::OSPF, Net::Frame::Layer

AUTHOR

Top

Patrice <GomoR> Auffret

COPYRIGHT AND LICENSE

Top

Copyright (c) 2006-2007, Patrice <GomoR> Auffret

You may distribute this module under the terms of the Artistic license. See LICENSE.Artistic file in the source distribution archive.

Net-Frame-Layer-OSPF documentation Contained in the Net-Frame-Layer-OSPF distribution. 
#
# $Id: Lls.pm,v 1.2 2007/03/13 18:19:39 gomor Exp $
#
package Net::Frame::Layer::OSPF::Lls;
use strict;
use warnings;

use Net::Frame::Layer qw(:consts :subs);
our @ISA = qw(Net::Frame::Layer);

our @AS = qw(
   checksum
   dataLength
   rawTlv
);
our @AA = qw(
   tlvList
);
__PACKAGE__->cgBuildIndices;
__PACKAGE__->cgBuildAccessorsScalar(\@AS);
__PACKAGE__->cgBuildAccessorsScalar(\@AA);

use Net::Frame::Layer::OSPF qw(:consts);

sub new {
   shift->SUPER::new(
      checksum   => 0,
      dataLength => 0,
      tlvList    => [],
      @_,
   );
}

sub getLength {
   #my $self = shift;
   #my $len = 4;
   #if ($self->rawTlv) {
      #$len += length($self->rawTlv);
   #}
   #print "TLV LEN: $len\n";
   #$len;
   0;
}

sub pack {
   my $self = shift;

   my $raw = $self->SUPER::pack('nn', $self->checksum, $self->dataLength)
      or return undef;

   if ($self->rawTlv) {
      $raw .= $self->SUPER::pack('a*', $self->rawTlv)
         or return undef;
   }

   $self->raw($raw);
}

sub unpack {
   my $self = shift;

   my ($checksum, $dataLength, $payload) =
      $self->SUPER::unpack('nn a*', $self->raw)
         or return undef;

   $self->checksum($checksum);
   $self->dataLength($dataLength);

   # XXX: handle TLV
   $self->rawTlv($payload);

   #$self->payload($payload);

   $self;
}

sub print {
   my $self = shift;

   my $l = $self->layer;
   sprintf
      "$l: checksum:0x%04x  dataLength:%d\n".
      "$l: rawTlv:%s",
         $self->checksum,
         $self->dataLength,
         CORE::unpack('H*', $self->rawTlv),
   ;
}

1;

__END__