IxNetwork
view release on metacpan or search on metacpan
lib/IxNetwork/IxNetworkSecure.pm view on Meta::CPAN
our $SSL_ERROR;
my $dependenciespath;
my $libraryFilePath;
BEGIN {
my ($volume, $directory, $file) = File::Spec->splitpath(__FILE__);
$libraryFilePath = File::Spec->rel2abs($directory);
$directory = File::Spec->catdir( (File::Spec->rel2abs($directory), 'dependencies') );
$dependenciespath = $directory;
}
use lib $dependenciespath;
use IO::Socket::SSL;
use LWP::UserAgent;
use Protocol::WebSocket::Client;
use JSON::PP;
use URI::Escape;
use constant NL => "\r\n";
package IxNetworkSecure;
=head1 new
=cut
lib/IxNetwork/IxNetworkSecure.pm view on Meta::CPAN
if ((lc($session->{state}) eq 'initial') or (lc($session->{state}) eq 'stopped')) {
$self->_restSend('POST', $self->{_connectionInfo}->{sessionUrl}.'/operations/start', {applicationType => $connectArgs->{-product}}, $connectArgs->{-connectTimeout});
}
$self->_waitForState('active', $self->{_connectionInfo}->{sessionUrl}, $connectArgs->{-connectTimeout});
if ($self->_parseAsBool($connectArgs->{-allowOnlyOneConnection})) {
$self->_isSessionAvailable($session, 1);
}
if ($self->{_connectionInfo}->{wsVerb} eq 'wss') {
$self->{_websocket} = new IO::Socket::SSL(
PeerHost => $self->{_connectionInfo}->{hostname}.':'.$self->{_connectionInfo}->{port},
PeerPort => $self->{_connectionInfo}->{verb},
SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE
) or die "IO::Socket::SSL reported: $! (ssl_error=$SSL_ERROR)";
} else {
$self->{_websocket} = new IO::Socket::INET(
PeerAddr => $self->{_connectionInfo}->{hostname}.':'.$self->{_connectionInfo}->{port},
PeerPort => $self->{_connectionInfo}->{verb},
) or die "IO::Socket::INET reported: $!";
}
$self->{_ws_client} = new Protocol::WebSocket::Client(url => $self->{_connectionInfo}->{wsUrl}, max_fragments_amount=> 10240, max_payload_size=> $self->{_serverPayloadSize});
$self->{_ws_client}->on(write => sub {
my ($ws) = shift;
lib/IxNetwork/checkDependencies.pm view on Meta::CPAN
print "WARNING Default IPv6 Module Does not exist ";
print "Loading IXIA specific IPv6 Module\n";
use lib $ipv6Path;
};
package checkDependencies;
sub checkDeps {
my @missingDependencies = ();
my $ret = eval {
require IO::Socket::SSL;
IO::Socket::SSL->import();
1;
};
if (!$ret and $@) {
push(@missingDependencies, "IO::Socket::SSL");
}
my $ret = eval {
require LWP::UserAgent;
LWP::UserAgent->import();
1;
};
if (!$ret and $@) {
push(@missingDependencies, "LWP::UserAgent");
}
my $ret = eval {
lib/IxNetwork/cpanfile view on Meta::CPAN
requires 'IO::Socket::SSL';
requires 'LWP::UserAgent';
requires 'Protocol::WebSocket::Client';
requires 'JSON::PP';
requires 'URI::Escape';
requires 'Time::Seconds';
requires 'LWP::Protocol::https';
( run in 0.734 second using v1.01-cache-2.11-cpan-fd5d4e115d8 )