javonet-nodejs-sdk 2.5.9 → 2.5.11

package/Binaries/Perl/Linux/X64/lib/Javonet/Core/Transmitter/PerlTransmitter.pm

@@ -2,7 +2,7 @@ package Javonet::Core::Transmitter::PerlTransmitter;
 use strict;
 use warnings;
 use Cwd;
-use aliased 'Javonet::Core::Transmitter::PerlTransmitterWrapper' => 'PerlTransmitterWrapper' , qw(send_command activate);
+use aliased 'Javonet::Core::Transmitter::PerlTransmitterWrapper' => 'PerlTransmitterWrapper' , qw(send_command activate set_config_source set_javonet_working_directory);
 
 sub send_command {
     my ($self, $message_byte_array_ref) = @_;
@@ -20,4 +20,9 @@ sub set_config_source {
     PerlTransmitterWrapper->set_config_source($config_path);
 }
 
+sub set_javonet_working_directory {
+    my ($self, $working_directory) = @_;
+    PerlTransmitterWrapper->set_javonet_working_directory($working_directory);
+}
+
 1;

package/Binaries/Perl/Linux/X64/lib/Javonet/Core/Transmitter/PerlTransmitterWrapper.pm

@@ -15,6 +15,7 @@ my $read_response_native;
 my $activate_native;
 my $get_native_error_native;
 my $set_config_source_native;
+my $set_working_directory_native;
 
 sub initialize {
     my $osname = $^O;
@@ -53,6 +54,7 @@ sub initialize {
         $activate_native = $ffi->function('Activate' => ['string'] => 'int');
         $get_native_error_native = $ffi->function('GetNativeError' => [] => 'string');
         $set_config_source_native = $ffi->function('SetConfigSource' => ['string'] => 'int');
+        $set_working_directory_native = $ffi->function('SetWorkingDirectory' => ['string'] => 'int');
     }
 }
 
@@ -102,4 +104,17 @@ sub set_config_source {
     }
 }
 
+sub set_javonet_working_directory {
+    my ($self, $working_directory) = @_;
+    initialize();
+    my $set_working_directory_result = $set_working_directory_native->($working_directory);
+    if ($set_working_directory_result < 0) {
+        my $error_message = $get_native_error_native->();
+        die "Javonet set working directory result: $set_working_directory_result. Native error message: $error_message";
+    }
+    else {
+        return $set_working_directory_result;
+    }
+}
+
 1;

package/Binaries/Perl/Linux/X64/lib/Javonet/Javonet.pm

@@ -6,12 +6,12 @@ use lib 'lib';
 use Try::Tiny;
 use threads;
 use aliased 'Javonet::Sdk::Internal::RuntimeFactory' => 'RuntimeFactory';
-use aliased 'Javonet::Core::Transmitter::PerlTransmitter' => 'Transmitter', qw(activate_with_license_file activate_with_credentials activate_with_credentials_and_proxy);
+use aliased 'Javonet::Core::Transmitter::PerlTransmitter' => 'Transmitter', qw(activate send_command set_config_source set_javonet_working_directory);
 use aliased 'Javonet::Core::Exception::SdkExceptionHelper' => 'SdkExceptionHelper';
 use aliased 'Javonet::Sdk::Core::RuntimeLogger' => 'RuntimeLogger', qw(get_runtime_info);
 
 BEGIN {
-    SdkExceptionHelper->send_exception_to_app_insights("SdkMessage","Javonet Sdk initialized");
+    SdkExceptionHelper->send_exception_to_app_insights("SdkMessage", "Javonet Sdk initialized");
 }
 
 sub activate {
@@ -40,7 +40,7 @@ sub with_config {
         Transmitter->set_config_source($config_path);
         return RuntimeFactory->new(Javonet::Sdk::Internal::ConnectionType::get_connection_type('WithConfig'), undef, $config_path);
     } catch {
-        SdkExceptionHelper->send_exception_to_app_insights($_,"withConfig");
+        SdkExceptionHelper->send_exception_to_app_insights("SdkException", $_);
         die $_;
     };
 }
@@ -54,9 +54,27 @@ sub set_config_source {
     try {
         Transmitter->set_config_source($config_path);
     } catch {
-        SdkExceptionHelper->send_exception_to_app_insights($_,"setConfigSource");
+        SdkExceptionHelper->send_exception_to_app_insights("SdkException", $_);
         die $_;
     };
 }
 
+# Sets the working directory for the Javonet SDK.
+# @param $path [String] The working directory path.
+sub set_javonet_working_directory {
+    my ($self, $path) = @_;
+    try {
+        $path =~ s{\\}{/}g;
+        $path .= '/' unless $path =~ m{/$};
+        mkdir $path, 0700 unless -d $path;
+        #ActivationHelper->working_directory($path);
+        Transmitter->set_javonet_working_directory($path);
+    } catch {
+        SdkExceptionHelper->send_exception_to_app_insights("SdkException", $_);
+        die $_;
+    };
+}
+
+
+
 1;

package/Binaries/Perl/Windows/X64/deps/bin/yamlpp-events

@@ -0,0 +1,62 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use Encode;
+use YAML::PP::Parser;
+use YAML::PP::Common;
+use Getopt::Long;
+Getopt::Long::Configure('bundling');
+GetOptions(
+    'help|h' => \my $help,
+    'module|M=s' => \my $module,
+) or usage(1);
+
+usage(0) if $help;
+
+$module ||= 'YAML::PP';
+if ($module eq 'YAML::PP') {
+    $module = 'YAML::PP::Parser';
+}
+elsif ($module eq 'YAML::PP::LibYAML') {
+    require YAML::PP::LibYAML::Parser;
+    $module = 'YAML::PP::LibYAML::Parser';
+}
+elsif ($module eq 'YAML::PP::Ref') {
+    require YAML::PP::Ref;
+    $module = 'YAML::PP::Ref::Parser';
+}
+
+my ($file) = @ARGV;
+
+my $parser = $module->new(
+    receiver => sub {
+      my ($self, undef, $event) = @_;
+      print encode_utf8(YAML::PP::Common::event_to_test_suite($event, { flow => 1 })), "\n";
+    },
+    $file ? (reader => YAML::PP::Reader::File->new) : (),
+);
+if ($file) {
+    $parser->parse_file($file);
+}
+else {
+    my $yaml;
+    $yaml = do { local $/; <STDIN> };
+    $yaml = decode_utf8($yaml);
+    $parser->parse_string($yaml);
+}
+
+sub usage {
+    my ($rc) = @_;
+    print <<"EOM";
+Usage:
+
+    $0 [options] < file
+    $0 [options] file
+
+Options:
+    --module -M  Module to use for parsing. YAML::PP (default),
+                 YAML::PP::LibYAML or YAML::PP::Ref
+EOM
+    exit $rc;
+}

package/Binaries/Perl/Windows/X64/deps/bin/yamlpp-events.bat

@@ -0,0 +1,79 @@
+@rem = '--*-Perl-*--
+@set "ErrorLevel="
+@if "%OS%" == "Windows_NT" @goto WinNT
+@perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
+@set ErrorLevel=%ErrorLevel%
+@goto endofperl
+:WinNT
+@perl -x -S %0 %*
+@set ErrorLevel=%ErrorLevel%
+@if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" @goto endofperl
+@if %ErrorLevel% == 9009 @echo You do not have Perl in your PATH.
+@goto endofperl
+@rem ';
+#!/usr/bin/perl
+#line 16
+use strict;
+use warnings;
+
+use Encode;
+use YAML::PP::Parser;
+use YAML::PP::Common;
+use Getopt::Long;
+Getopt::Long::Configure('bundling');
+GetOptions(
+    'help|h' => \my $help,
+    'module|M=s' => \my $module,
+) or usage(1);
+
+usage(0) if $help;
+
+$module ||= 'YAML::PP';
+if ($module eq 'YAML::PP') {
+    $module = 'YAML::PP::Parser';
+}
+elsif ($module eq 'YAML::PP::LibYAML') {
+    require YAML::PP::LibYAML::Parser;
+    $module = 'YAML::PP::LibYAML::Parser';
+}
+elsif ($module eq 'YAML::PP::Ref') {
+    require YAML::PP::Ref;
+    $module = 'YAML::PP::Ref::Parser';
+}
+
+my ($file) = @ARGV;
+
+my $parser = $module->new(
+    receiver => sub {
+      my ($self, undef, $event) = @_;
+      print encode_utf8(YAML::PP::Common::event_to_test_suite($event, { flow => 1 })), "\n";
+    },
+    $file ? (reader => YAML::PP::Reader::File->new) : (),
+);
+if ($file) {
+    $parser->parse_file($file);
+}
+else {
+    my $yaml;
+    $yaml = do { local $/; <STDIN> };
+    $yaml = decode_utf8($yaml);
+    $parser->parse_string($yaml);
+}
+
+sub usage {
+    my ($rc) = @_;
+    print <<"EOM";
+Usage:
+
+    $0 [options] < file
+    $0 [options] file
+
+Options:
+    --module -M  Module to use for parsing. YAML::PP (default),
+                 YAML::PP::LibYAML or YAML::PP::Ref
+EOM
+    exit $rc;
+}
+__END__
+:endofperl
+@set "ErrorLevel=" & @goto _undefined_label_ 2>NUL || @"%COMSPEC%" /d/c @exit %ErrorLevel%

package/Binaries/Perl/Windows/X64/deps/bin/yamlpp-highlight

@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use YAML::PP::Highlight;
+use Encode;
+use Getopt::Long;
+
+GetOptions(
+    'help|h' => \my $help,
+    'expand-tabs|et!' => \my $expand_tabs,
+) or usage(1);
+
+$expand_tabs = 1 unless defined $expand_tabs;
+
+usage(0) if $help;
+
+my ($file) = @ARGV;
+my $yaml;
+
+unless ($file) {
+    $yaml = do { local $/; <STDIN> };
+    $yaml = decode_utf8($yaml);
+}
+
+my $error;
+my $tokens;
+if (defined $file) {
+    ($error, $tokens) = YAML::PP::Parser->yaml_to_tokens( file => $file );
+}
+else {
+    ($error, $tokens) = YAML::PP::Parser->yaml_to_tokens( string => $yaml );
+}
+my $highlighted = YAML::PP::Highlight->ansicolored($tokens, expand_tabs => $expand_tabs);
+print encode_utf8 $highlighted;
+if ($error) {
+    die $error;
+}
+
+sub usage {
+    my ($rc) = @_;
+    print <<"EOM";
+Usage:
+
+    $0 [options] < file
+    $0 [options] file
+
+Options:
+    --expand-tabs    --et         Expand tabs to 8 spaces (default true)
+    --no-expand-tabs --no-et      Don't expand tabs
+EOM
+    exit $rc;
+}
+

package/Binaries/Perl/Windows/X64/deps/bin/yamlpp-highlight.bat

@@ -0,0 +1,71 @@
+@rem = '--*-Perl-*--
+@set "ErrorLevel="
+@if "%OS%" == "Windows_NT" @goto WinNT
+@perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
+@set ErrorLevel=%ErrorLevel%
+@goto endofperl
+:WinNT
+@perl -x -S %0 %*
+@set ErrorLevel=%ErrorLevel%
+@if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" @goto endofperl
+@if %ErrorLevel% == 9009 @echo You do not have Perl in your PATH.
+@goto endofperl
+@rem ';
+#!/usr/bin/perl
+#line 16
+use strict;
+use warnings;
+
+use YAML::PP::Highlight;
+use Encode;
+use Getopt::Long;
+
+GetOptions(
+    'help|h' => \my $help,
+    'expand-tabs|et!' => \my $expand_tabs,
+) or usage(1);
+
+$expand_tabs = 1 unless defined $expand_tabs;
+
+usage(0) if $help;
+
+my ($file) = @ARGV;
+my $yaml;
+
+unless ($file) {
+    $yaml = do { local $/; <STDIN> };
+    $yaml = decode_utf8($yaml);
+}
+
+my $error;
+my $tokens;
+if (defined $file) {
+    ($error, $tokens) = YAML::PP::Parser->yaml_to_tokens( file => $file );
+}
+else {
+    ($error, $tokens) = YAML::PP::Parser->yaml_to_tokens( string => $yaml );
+}
+my $highlighted = YAML::PP::Highlight->ansicolored($tokens, expand_tabs => $expand_tabs);
+print encode_utf8 $highlighted;
+if ($error) {
+    die $error;
+}
+
+sub usage {
+    my ($rc) = @_;
+    print <<"EOM";
+Usage:
+
+    $0 [options] < file
+    $0 [options] file
+
+Options:
+    --expand-tabs    --et         Expand tabs to 8 spaces (default true)
+    --no-expand-tabs --no-et      Don't expand tabs
+EOM
+    exit $rc;
+}
+
+__END__
+:endofperl
+@set "ErrorLevel=" & @goto _undefined_label_ 2>NUL || @"%COMSPEC%" /d/c @exit %ErrorLevel%

package/Binaries/Perl/Windows/X64/deps/bin/yamlpp-load

@@ -0,0 +1,152 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use Data::Dumper;
+use YAML::PP;
+use YAML::PP::Common qw/ PRESERVE_ORDER /;
+use Encode;
+use Getopt::Long;
+Getopt::Long::Configure('bundling');
+
+GetOptions(
+    'help|h' => \my $help,
+    'boolean=s' => \my $boolean,
+    'cyclic' => \my $cyclic,
+    'duplicate-keys' => \my $duplicate_keys,
+    'merge' => \my $merge,
+    'catchall' => \my $catchall,
+    'perl' => \my $perl,
+    'module|M=s' => \my $module,
+    'yaml-version=s' => \my $yaml_version,
+) or usage(1);
+
+usage(0) if $help;
+
+$module ||= 'YAML::PP';
+$boolean ||= 'JSON::PP';
+$yaml_version ||= 1.2;
+my @yaml_versions = split m/,/, $yaml_version;
+my @schema = ('+');
+if ($merge) {
+    push @schema, 'Merge';
+}
+if ($perl) {
+    push @schema, 'Perl';
+}
+if ($catchall) {
+    push @schema, 'Catchall';
+}
+
+my ($file) = @ARGV;
+my $yaml;
+
+my $decode = 1;
+if ($module eq 'YAML::XS') {
+    $decode = 0;
+}
+if ($file) {
+    open my $fh, '<', $file or die "Can not open '$file'";
+    $yaml = do { local $/; <$fh> };
+    close $fh;
+}
+else {
+    $yaml = do { local $/; <STDIN> };
+}
+$yaml = decode_utf8($yaml) if $decode;
+
+my %codes = (
+    'YAML::PP' => \&yamlpp,
+    'YAML::PP::LibYAML' => \&yamlpplibyaml,
+    'YAML::PP::Ref' => \&yamlppref,
+    'YAML::XS' => \&yamlxs,
+    'YAML::Tiny' => \&yamltiny,
+    'YAML::Syck' => \&yamlsyck,
+    'YAML' => \&yaml,
+);
+
+my $code = $codes{ $module } or die "Module '$module' not supported";
+
+my @docs = $code->($yaml);
+
+sub _yamlpp {
+    my ($class, $yaml) = @_;
+    my $ypp = $class->new(
+        schema => \@schema,
+        boolean => $boolean,
+        cyclic_refs => $cyclic ? 'allow' : 'fatal',
+        duplicate_keys => $duplicate_keys ? 1 : 0,
+        preserve => PRESERVE_ORDER,
+        yaml_version => \@yaml_versions,
+    );
+    my @docs = $ypp->load_string($yaml);
+    return @docs;
+}
+sub yamlpp {
+    _yamlpp('YAML::PP' => $_[0]);
+}
+sub yamlpplibyaml {
+    eval { require YAML::PP::LibYAML };
+    _yamlpp('YAML::PP::LibYAML' => $_[0]);
+}
+sub yamlppref {
+    eval { require YAML::PP::Ref };
+    _yamlpp('YAML::PP::Ref' => $_[0]);
+}
+
+sub yamlxs {
+    eval { require YAML::XS };
+    my ($yaml) = @_;
+    no warnings 'once';
+    local $YAML::XS::LoadBlessed = $perl;
+    return YAML::XS::Load($yaml);
+}
+sub yamlsyck {
+    eval { require YAML::Syck };
+    my ($yaml) = @_;
+    no warnings 'once';
+    local $YAML::Syck::LoadBlessed = $perl;
+    local $YAML::Syck::ImplicitTyping = 1;
+    local $YAML::Syck::ImplicitUnicode = 1;
+    return YAML::Syck::Load($yaml);
+}
+sub yaml {
+    eval { require YAML };
+    my ($yaml) = @_;
+    no warnings 'once';
+    local $YAML::LoadBlessed = $perl;
+    return YAML::Load($yaml);
+}
+sub yamltiny {
+    eval { require YAML::Tiny };
+    my ($yaml) = @_;
+    return YAML::Tiny::Load($yaml);
+}
+
+local $Data::Dumper::Useqq = 1;
+local $Data::Dumper::Sortkeys = 1;
+print Data::Dumper->Dump([$docs[ $_ ]], ["doc$_"]) for 0 ..$#docs;
+
+
+sub usage {
+    my ($rc) = @_;
+    print <<"EOM";
+Usage:
+
+    $0 [options] < file
+    $0 [options] file
+
+Options:
+    --boolean=            'perl', 'JSON::PP', 'boolean'
+    --cyclic              Allow cyclic references
+    --duplicate-keys      Allow duplicate keys
+    --merge               Enable loading merge keys '<<'
+    --catchall            Ignore any unknown tags
+    --perl                Enable loading perl types and objects (use only
+                          on trusted input!)
+    --module -M           YAML::PP (default), YAML, YAML::PP::LibYAML,
+                          YAML::Syck, YAML::Tiny, YAML::XS, YAML::PP::Ref
+    --yaml-version=       '1.2' (default), '1.1', '1.2,1.1', '1.1,1.2'
+EOM
+    exit $rc;
+}