IPDR

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

					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.

META.json  view on Meta::CPAN

            "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"
}

META.yml  view on Meta::CPAN

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.560 second using v1.01-cache-2.11-cpan-4d50c553e7e )