The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

Revision history for sFlow.pm

v. 0.02
  + fix: sub _decodeEthernetFrameData, substr 24 not 20
  - flowDataLength not in sample hash anymore
  + fix: header size byte for substr must be mod 4 == 0

v. 0.03
  + offset for unpack to avoid substr
  + single quotes in case no double quotes needed
  + dereference data only once in subs
  + Net::IP:bintoip() replaced

v. 0.03X
  + ether header decoding also in sFlow.pm (much faster!)
  + agent ip fixed, N instead of B32
  + undef added, line: ($sFlowSample->{$keyName}) = 
    unpack("a$offset B32", $sFlowDatagramPacked);
  + s/Labes/Label/

v. 0.04X
  + formatiing
  + off by one error fixed
  + some more bugs fixed

v. 0.05
  - removed chars from version
  + binary header for debugging retured as well ($sFlowSample->{HeaderBin})
  + LICENSE file added
  + pod error fixed
  + example script sFluxDebug.pl added
  + check for vlan tag and add 4 bytes to length if present
  + ARP header length returned as 64 byte

v. 0.06
  + add padding to datalength if smaller then 64Byte
  + assume all packets type 'other' as 64 bytes
  + ip v4 address decoding in samples fixed
  + decode gateway - bugfix
  + ether type constants added
  + HeaderVer renamed to HeaderType
  + HeaderType returns the corresponding ether type code

v. 0.07
  + bugfix - ifInOctets, ifInDiscards
  + bugfix - $sFlowSample->{ifAdminStatus}, $sFlowSample->{ifOperStatus}
  + bugfix - examples/sFluxDebug.pl in printing DestMac address


Elisa Jasinska <elisa.jasinska@ams-ix.net>
2007/09/18