Hi,
I am trying to setup an netflow monitor with Net::Flow.
This is working Oke, with the folowing code:
use strict;
use Net::Flow qw(decode) ;
use IO::Socket::INET;
my $receive_port = 9993 ;
my $packet = undef ;
my $TemplateArrayRef = undef ;
my $sock = IO::Socket::INET->new( LocalPort =>$receive_port, Proto =>
'udp') ;
while ($sock->recv($packet,1548)) {
my ($HeaderHashRef,$FlowArrayRef,$ErrorsArrayRef)=() ;
( $HeaderHashRef, $TemplateArrayRef, $FlowArrayRef, $ErrorsArrayRef)
= Net::Flow::decode($packet, $TemplateArrayRef) ;
# some more processing....
}
Now I would like to determine the ipaddress of the sending node. I have
been trying with my "($client_port, $client_ip) = sockaddr_in( $packet
..... )", but evereything I tried has not been very successfull.
Who knows how to do this.
Help greatly appreciated.
Bernard
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
