IPDR
view release on metacpan or search on metacpan
or server utilisation. Default is 10.
Any data received is then sent on to the remote IP and Port using
a clear channel TCP connection accepted by the Cisco module. SSL
sending may be added in the future release
Currently the remote sending is only supported on the Cisco and
CiscoSSL modules.
Added CiscoSSL module. Really this is the Cisco module but using
IO::Socket::SSL and pointers to a CA and Host key with
SSLKeyFile
SSLHostFile
Example keys are included in the distribution TO GET YOU GOING BUT
DO NOT USE THEM IN ANY PRODUCTION ENVIRONMENT!! YOU HAVE BEEN WARNED
See CiscoSSL on how to create a key using openssl and how to apply
it to the router side.
"ExtUtils::MakeMaker" : "0"
}
},
"configure" : {
"requires" : {
"ExtUtils::MakeMaker" : "0"
}
},
"runtime" : {
"requires" : {
"IO::Socket::SSL" : "0",
"Math::BigInt" : "1.77",
"Test::More" : "0",
"Time::HiRes" : "0",
"Unicode::MapUTF8" : "1.11"
}
}
},
"release_status" : "stable",
"version" : "0.41"
}
license: unknown
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: '1.4'
name: IPDR
no_index:
directory:
- t
- inc
requires:
IO::Socket::SSL: '0'
Math::BigInt: '1.77'
Test::More: '0'
Time::HiRes: '0'
Unicode::MapUTF8: '1.11'
version: '0.41'
Makefile.PL view on Meta::CPAN
WriteMakefile(
NAME => 'IPDR',
AUTHOR => 'Andrew S. Kennedy <shamrock@cpan.org>',
VERSION_FROM => 'lib/IPDR.pm',
ABSTRACT => 'IPDR Client Modules',
PL_FILES => {},
PREREQ_PM => {
'Test::More' => 0,
'Unicode::MapUTF8' => 1.11,
'Time::HiRes' => 0,
'IO::Socket::SSL' => 0,
'Math::BigInt' => 1.77
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'IPDR-Collection-*' },
);
lib/IPDR/Collection/Cisco.pm view on Meta::CPAN
package IPDR::Collection::Cisco;
use warnings;
use strict;
use IO::Select;
use IO::Socket;
use IO::Socket::SSL;
use POSIX;
use Time::HiRes qw( usleep ualarm gettimeofday tv_interval clock_gettime clock_getres );
$SIG{CHLD}="IGNORE";
=head1 NAME
IPDR::Collection::Cisco - IPDR Collection Client (Cisco Specification)
=head1 VERSION
lib/IPDR/Collection/Cisco.pm view on Meta::CPAN
if ( !$remoteip || !$remoteport )
{
waitpid($child,0);
exit(0);
}
if ( !$remotespeed )
{ $remotespeed=10; }
my $lsr;
if ( $self->{_GLOBAL}{'RemoteSecure'} )
{
$lsr = IO::Socket::SSL->new
(
PeerAddr => $remoteip,
PeerPort => $remoteport,
SSL_key_file => $self->{_GLOBAL}{'SSLKeyFile'},
ReuseAddr => 1,
Proto => 'tcp',
Timeout => 5
);
}
else
lib/IPDR/Collection/Cisco.pm view on Meta::CPAN
waitpid($child,0);
exit(0);
}
}
}
else
{
my $lsr;
if ( $self->{_GLOBAL}{'RemoteSecure'} )
{
$lsr = IO::Socket::SSL->new
(
PeerAddr => $self->{_GLOBAL}{'RemoteIP'},
PeerPort => $self->{_GLOBAL}{'RemotePort'},
SSL_key_file => $self->{_GLOBAL}{'SSLKeyFile'},
ReuseAddr => 1,
Proto => 'tcp',
Timeout => 5
);
}
else
lib/IPDR/Collection/CiscoSSL.pm view on Meta::CPAN
package IPDR::Collection::CiscoSSL;
use warnings;
use strict;
use IO::Select;
use IO::Socket;
#use IO::Socket::SSL qw(debug3);
use IO::Socket::SSL;
use POSIX;
use Time::HiRes qw( usleep ualarm gettimeofday tv_interval clock_gettime clock_getres );
$SIG{CHLD}="IGNORE";
=head1 NAME
IPDR::Collection::CiscoSSL - IPDR Collection Client (Cisco Specification)
=head1 VERSION
lib/IPDR/Collection/CiscoSSL.pm view on Meta::CPAN
{
my ( $self ) = shift;
if ( !$self->test_64_bit() && $self->{_GLOBAL}{'Force32BitMode'}==0 )
{
# if you forgot to run make test, this will clobber
# your run anyway.
die '64Bit support not available must stop.';
}
my $lsn = IO::Socket::SSL->new
(
SSL_key_file => $self->{_GLOBAL}{'SSLKeyFile'},
SSL_cert_file => $self->{_GLOBAL}{'SSLCertFile'},
Listen => 1024,
LocalAddr => $self->{_GLOBAL}{'ServerIP'},
LocalPort => $self->{_GLOBAL}{'ServerPort'},
ReuseAddr => 1,
Proto => 'tcp',
Timeout => $self->{_GLOBAL}{'Timeout'}
);
lib/IPDR/Collection/CiscoSSL.pm view on Meta::CPAN
if ( !$remoteip || !$remoteport )
{
waitpid($child,0);
exit(0);
}
if ( !$remotespeed )
{ $remotespeed=10; }
my $lsr;
if ( $self->{_GLOBAL}{'RemoteSecure'} )
{
$lsr = IO::Socket::SSL->new
(
PeerAddr => $remoteip,
PeerPort => $remoteport,
SSL_key_file => $self->{_GLOBAL}{'SSLKeyFile'},
ReuseAddr => 1,
Proto => 'tcp',
Timeout => 5
);
}
else
lib/IPDR/Collection/CiscoSSL.pm view on Meta::CPAN
waitpid($child,0);
exit(0);
}
}
}
else
{
my $lsr;
if ( $self->{_GLOBAL}{'RemoteSecure'} )
{
$lsr = IO::Socket::SSL->new
(
PeerAddr => $self->{_GLOBAL}{'RemoteIP'},
PeerPort => $self->{_GLOBAL}{'RemotePort'},
SSL_key_file => $self->{_GLOBAL}{'SSLKeyFile'},
ReuseAddr => 1,
Proto => 'tcp',
Timeout => 5
);
}
else
lib/IPDR/Collection/Client.pm view on Meta::CPAN
package IPDR::Collection::Client;
use warnings;
use strict;
use IO::Select;
use IO::Socket;
use IO::Socket::SSL qw(debug3);
use Unicode::MapUTF8 qw(to_utf8 from_utf8 utf8_supported_charset);
use Time::localtime;
use Time::HiRes qw( usleep ualarm gettimeofday tv_interval clock_gettime clock_getres );
use Math::BigInt;
$SIG{CHLD}="IGNORE";
=head1 NAME
IPDR::Collection::Client - IPDR Collection Client
lib/IPDR/Collection/Client.pm view on Meta::CPAN
waitpid($child,0);
exit(0);
}
if ( !$remotespeed )
{
$remotespeed=10;
}
my $lsr;
if ( $self->{_GLOBAL}{'RemoteSecure'} )
{
$lsr = IO::Socket::SSL->new
(
PeerAddr => $remoteip,
PeerPort => $remoteport,
SSL_key_file => $self->{_GLOBAL}{'SSLKeyFile'},
ReuseAddr => 1,
Proto => 'tcp',
Timeout => 5
);
}
else
lib/IPDR/Collection/Client.pm view on Meta::CPAN
}
}
else
{
if ($child=fork)
{ } elsif (defined $child)
{
my $lsr;
if ( $self->{_GLOBAL}{'RemoteSecure'} )
{
$lsr = IO::Socket::SSL->new
(
PeerAddr => $self->{_GLOBAL}{'RemoteIP'},
PeerPort => $self->{_GLOBAL}{'RemotePort'},
SSL_key_file => $self->{_GLOBAL}{'SSLKeyFile'},
ReuseAddr => 1,
Proto => 'tcp',
Timeout => 5
);
}
else
( run in 0.389 second using v1.01-cache-2.11-cpan-fd5d4e115d8 )