javonet-ruby-sdk 2.6.7 → 2.6.8

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Handler/CommandHandler/LoadLibraryHandler.pm

@@ -4,39 +4,136 @@ use warnings FATAL => 'all';
 use lib 'lib';
 use Moose;
 use File::Basename;
+use Cwd qw(abs_path);
 use Nice::Try;
 use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
+# Track loaded libraries by absolute path
+our %LOADED_LIBRARIES;
+
 sub new {
     my $class = shift;
-    my $self = {
-        required_parameters_count => 1
+    my $self  = {
+        required_parameters_count => 1,
+        @_,    # optional extras
     };
     return bless $self, $class;
 }
 
 sub process {
-    my ($self, $command) = @_;
+    my ( $self, $command ) = @_;
     try {
         my $current_payload_ref = $command->{payload};
-        my @cur_payload = @$current_payload_ref;
-        my $parameters_length = @cur_payload;
-        if ($parameters_length != $self->{required_parameters_count}) {
+        my @cur_payload         = @$current_payload_ref;
+        my $parameters_length   = @cur_payload;
+
+        if ( $parameters_length != $self->{required_parameters_count} ) {
             die Exception->new("Exception: LoadLibrary parameters mismatch");
         }
+
         my $path_to_file = $command->{payload}[0];
-        my $path_to_file_dir = dirname($path_to_file);
-        my $file_name = basename($path_to_file);
 
-        push(@INC, "$path_to_file_dir");
-        eval(require $file_name);
+        if ( !defined $path_to_file || $path_to_file eq '' ) {
+            die Exception->new(
+                "Cannot load module: Library path is required but was not provided"
+            );
+        }
+
+        # ---------------------------------------------------------------------
+        # Normalize file extension
+        # If no extension is given, try "<file>.pm"
+        # ---------------------------------------------------------------------
+        my $normalized_path = $path_to_file;
+
+        if ( $normalized_path !~ /\.[^\/\\]+$/ ) {    # no extension
+            my $with_pm = $normalized_path . '.pm';
+            if ( -e $with_pm ) {
+                $normalized_path = $with_pm;
+            }
+        }
+
+        # Resolve to absolute path if possible
+        my $absolute_path =
+            abs_path($normalized_path)
+                // abs_path($path_to_file)
+                // $normalized_path;
+
+        # Check that the file exists
+        if ( !-e $absolute_path ) {
+            die Exception->new("Cannot load module: Library not found: $path_to_file");
+        }
+
+        # ---------------------------------------------------------------------
+        # Load only once by absolute path
+        # ---------------------------------------------------------------------
+        if ( $LOADED_LIBRARIES{$absolute_path} ) {
+            return 0;
+        }
+
+        my $path_to_file_dir = dirname($absolute_path);
+        my $file_name        = basename($absolute_path);
+
+        # Ensure directory is in @INC
+        if ( !grep { $_ eq $path_to_file_dir } @INC ) {
+            push @INC, $path_to_file_dir;
+        }
+
+        # ---------------------------------------------------------------------
+        # Validate Perl module syntax before requiring
+        # ---------------------------------------------------------------------
+        #_validate_perl_syntax($absolute_path); #causes issues
+
+        # ---------------------------------------------------------------------
+        # Load the file
+        # ---------------------------------------------------------------------
+        eval {
+            require $file_name;
+            1;
+        } or do {
+            my $err = $@ || 'Unknown error';
+            die Exception->new("Cannot load module: $absolute_path\n$err");
+        };
+
+        # Mark library as loaded
+        $LOADED_LIBRARIES{$absolute_path} = 1;
+
         return 0;
     }
-    catch ( $e ) {
+    catch ($e) {
         return Exception->new($e);
     }
 }
 
+sub get_loaded_libraries {
+    my ($self) = @_;
+    return [ keys %LOADED_LIBRARIES ];
+}
+
+# -------------------------------------------------------------------------
+# Validate syntax using "perl -c <file>"
+# -------------------------------------------------------------------------
+sub _validate_perl_syntax {
+    my ($absolute_path) = @_;
+
+    my $perl = $^X || 'perl';
+
+    my $pid = open my $fh, '-|', $perl, '-c', $absolute_path;
+    if ( !defined $pid ) {
+        # If perl cannot be spawned, we silently skip validation.
+        return;
+    }
+
+    my $output = do { local $/; <$fh> // '' };
+    close $fh;
+    my $exit_code = $? >> 8;
+
+    if ( $exit_code != 0 ) {
+        die Exception->new(
+            "Cannot load module: syntax check failed for $absolute_path\n$output"
+        );
+    }
+}
+
 no Moose;
 1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/deps/lib/perl5/MSWin32-x64-multi-thread/perllocal.pod

@@ -1,4 +1,4 @@
-=head2 Wed Nov 19 14:56:18 2025: C<Module> L<Data::Cmp|Data::Cmp>
+=head2 Tue Nov 25 20:56:11 2025: C<Module> L<Test::Fatal|Test::Fatal>
 
 =over 4
 
@@ -12,7 +12,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.010>
+C<VERSION: 0.018>
 
 =item *
 
@@ -20,7 +20,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:27 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
+=head2 Tue Nov 25 20:56:18 2025: C<Module> L<autobox|autobox>
 
 =over 4
 
@@ -34,7 +34,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.40>
+C<VERSION: v3.0.2>
 
 =item *
 
@@ -42,7 +42,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:30 2025: C<Module> L<Test::Fatal|Test::Fatal>
+=head2 Tue Nov 25 20:56:22 2025: C<Module> L<Scalar::Util::Numeric|Scalar::Util::Numeric>
 
 =over 4
 
@@ -56,7 +56,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 0.018>
+C<VERSION: 0.40>
 
 =item *
 
@@ -64,7 +64,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:33 2025: C<Module> L<autobox|autobox>
+=head2 Tue Nov 25 20:56:25 2025: C<Module> L<Data::Cmp|Data::Cmp>
 
 =over 4
 
@@ -78,7 +78,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v3.0.2>
+C<VERSION: 0.010>
 
 =item *
 
@@ -86,7 +86,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:37 2025: C<Module> L<Safe::Isa|Safe::Isa>
+=head2 Tue Nov 25 20:56:35 2025: C<Module> L<YAML::PP|YAML::PP>
 
 =over 4
 
@@ -100,15 +100,15 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.000010>
+C<VERSION: v0.39.0>
 
 =item *
 
-C<EXE_FILES: >
+C<EXE_FILES: bin/yamlpp-events bin/yamlpp-highlight bin/yamlpp-load bin/yamlpp-load-dump bin/yamlpp-parse-emit>
 
 =back
 
-=head2 Wed Nov 19 14:56:46 2025: C<Module> L<YAML::PP|YAML::PP>
+=head2 Tue Nov 25 20:56:37 2025: C<Module> L<Safe::Isa|Safe::Isa>
 
 =over 4
 
@@ -122,15 +122,15 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: v0.39.0>
+C<VERSION: 1.000010>
 
 =item *
 
-C<EXE_FILES: bin/yamlpp-events bin/yamlpp-highlight bin/yamlpp-load bin/yamlpp-load-dump bin/yamlpp-parse-emit>
+C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:49 2025: C<Module> L<PPI|PPI>
+=head2 Tue Nov 25 20:56:40 2025: C<Module> L<PPI|PPI>
 
 =over 4
 
@@ -152,7 +152,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:53 2025: C<Module> L<PPI::XS|PPI::XS>
+=head2 Tue Nov 25 20:56:44 2025: C<Module> L<PPI::XS|PPI::XS>
 
 =over 4
 
@@ -174,7 +174,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:57 2025: C<Module> L<Want|Want>
+=head2 Tue Nov 25 20:56:49 2025: C<Module> L<Want|Want>
 
 =over 4
 
@@ -196,7 +196,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:56:59 2025: C<Module> L<Nice::Try|Nice::Try>
+=head2 Tue Nov 25 20:56:51 2025: C<Module> L<Nice::Try|Nice::Try>
 
 =over 4
 
@@ -218,7 +218,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:57:01 2025: C<Module> L<Attribute::Util|Attribute::Util>
+=head2 Tue Nov 25 20:56:55 2025: C<Module> L<Data::UUID|Data::UUID>
 
 =over 4
 
@@ -232,7 +232,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.07>
+C<VERSION: 1.227>
 
 =item *
 
@@ -240,7 +240,7 @@ C<EXE_FILES: >
 
 =back
 
-=head2 Wed Nov 19 14:57:05 2025: C<Module> L<Data::UUID|Data::UUID>
+=head2 Tue Nov 25 20:56:58 2025: C<Module> L<Attribute::Util|Attribute::Util>
 
 =over 4
 
@@ -254,7 +254,7 @@ C<LINKTYPE: dynamic>
 
 =item *
 
-C<VERSION: 1.227>
+C<VERSION: 1.07>
 
 =item *
 

data/lib/javonet-ruby-sdk/Binaries/Perl/Windows/X64/lib/Javonet/Core/Handler/CommandHandler/LoadLibraryHandler.pm

@@ -4,39 +4,136 @@ use warnings FATAL => 'all';
 use lib 'lib';
 use Moose;
 use File::Basename;
+use Cwd qw(abs_path);
 use Nice::Try;
 use aliased 'Javonet::Core::Exception::Exception' => 'Exception';
 extends 'Javonet::Core::Handler::CommandHandler::AbstractCommandHandler';
 
+# Track loaded libraries by absolute path
+our %LOADED_LIBRARIES;
+
 sub new {
     my $class = shift;
-    my $self = {
-        required_parameters_count => 1
+    my $self  = {
+        required_parameters_count => 1,
+        @_,    # optional extras
     };
     return bless $self, $class;
 }
 
 sub process {
-    my ($self, $command) = @_;
+    my ( $self, $command ) = @_;
     try {
         my $current_payload_ref = $command->{payload};
-        my @cur_payload = @$current_payload_ref;
-        my $parameters_length = @cur_payload;
-        if ($parameters_length != $self->{required_parameters_count}) {
+        my @cur_payload         = @$current_payload_ref;
+        my $parameters_length   = @cur_payload;
+
+        if ( $parameters_length != $self->{required_parameters_count} ) {
             die Exception->new("Exception: LoadLibrary parameters mismatch");
         }
+
         my $path_to_file = $command->{payload}[0];
-        my $path_to_file_dir = dirname($path_to_file);
-        my $file_name = basename($path_to_file);
 
-        push(@INC, "$path_to_file_dir");
-        eval(require $file_name);
+        if ( !defined $path_to_file || $path_to_file eq '' ) {
+            die Exception->new(
+                "Cannot load module: Library path is required but was not provided"
+            );
+        }
+
+        # ---------------------------------------------------------------------
+        # Normalize file extension
+        # If no extension is given, try "<file>.pm"
+        # ---------------------------------------------------------------------
+        my $normalized_path = $path_to_file;
+
+        if ( $normalized_path !~ /\.[^\/\\]+$/ ) {    # no extension
+            my $with_pm = $normalized_path . '.pm';
+            if ( -e $with_pm ) {
+                $normalized_path = $with_pm;
+            }
+        }
+
+        # Resolve to absolute path if possible
+        my $absolute_path =
+            abs_path($normalized_path)
+                // abs_path($path_to_file)
+                // $normalized_path;
+
+        # Check that the file exists
+        if ( !-e $absolute_path ) {
+            die Exception->new("Cannot load module: Library not found: $path_to_file");
+        }
+
+        # ---------------------------------------------------------------------
+        # Load only once by absolute path
+        # ---------------------------------------------------------------------
+        if ( $LOADED_LIBRARIES{$absolute_path} ) {
+            return 0;
+        }
+
+        my $path_to_file_dir = dirname($absolute_path);
+        my $file_name        = basename($absolute_path);
+
+        # Ensure directory is in @INC
+        if ( !grep { $_ eq $path_to_file_dir } @INC ) {
+            push @INC, $path_to_file_dir;
+        }
+
+        # ---------------------------------------------------------------------
+        # Validate Perl module syntax before requiring
+        # ---------------------------------------------------------------------
+        #_validate_perl_syntax($absolute_path); #causes issues
+
+        # ---------------------------------------------------------------------
+        # Load the file
+        # ---------------------------------------------------------------------
+        eval {
+            require $file_name;
+            1;
+        } or do {
+            my $err = $@ || 'Unknown error';
+            die Exception->new("Cannot load module: $absolute_path\n$err");
+        };
+
+        # Mark library as loaded
+        $LOADED_LIBRARIES{$absolute_path} = 1;
+
         return 0;
     }
-    catch ( $e ) {
+    catch ($e) {
         return Exception->new($e);
     }
 }
 
+sub get_loaded_libraries {
+    my ($self) = @_;
+    return [ keys %LOADED_LIBRARIES ];
+}
+
+# -------------------------------------------------------------------------
+# Validate syntax using "perl -c <file>"
+# -------------------------------------------------------------------------
+sub _validate_perl_syntax {
+    my ($absolute_path) = @_;
+
+    my $perl = $^X || 'perl';
+
+    my $pid = open my $fh, '-|', $perl, '-c', $absolute_path;
+    if ( !defined $pid ) {
+        # If perl cannot be spawned, we silently skip validation.
+        return;
+    }
+
+    my $output = do { local $/; <$fh> // '' };
+    close $fh;
+    my $exit_code = $? >> 8;
+
+    if ( $exit_code != 0 ) {
+        die Exception->new(
+            "Cannot load module: syntax check failed for $absolute_path\n$output"
+        );
+    }
+}
+
 no Moose;
 1;

data/lib/javonet-ruby-sdk/Binaries/Php/javonet/core/handler/LoadLibraryHandler.php

@@ -27,29 +27,38 @@ final class LoadLibraryHandler extends AbstractHandler
     {
         if ($command->getPayloadSize() < self::REQUIRED_ARGUMENTS_COUNT) {
             throw new JavonetArgumentsMismatchException(
-            self::class,
+                self::class,
                 self::REQUIRED_ARGUMENTS_COUNT
             );
         }
 
         $assemblyName = (string) $command->getPayload()[0];
+
         if (!file_exists($assemblyName)) {
             throw new Exception('File not found: ' . $assemblyName);
         }
 
-        if (in_array($assemblyName, self::$loadedLibraries, true)) {
+        // Normalize path first
+        $canonicalPath = realpath($assemblyName);
+        if ($canonicalPath === false) {
+            throw new Exception('Cannot resolve path: ' . $assemblyName);
+        }
+
+        // Already loaded? bail out early
+        if (in_array($canonicalPath, self::$loadedLibraries, true)) {
             return 0;
         }
 
-        if (is_dir($assemblyName)) {
-            $this->loadDirectory($assemblyName);
-        } elseif (pathinfo($assemblyName, PATHINFO_EXTENSION) === 'phar') {
-            $this->loadPharFile($assemblyName);
+        // Use canonical path for type detection as well
+        if (is_dir($canonicalPath)) {
+            $this->loadDirectory($canonicalPath);
+        } elseif (pathinfo($canonicalPath, PATHINFO_EXTENSION) === 'phar') {
+            $this->loadPharFile($canonicalPath);
         } else {
-            $this->loadPhpFile($assemblyName);
+            $this->loadPhpFile($canonicalPath);
         }
 
-        self::$loadedLibraries[] = $assemblyName;
+        self::$loadedLibraries[] = $canonicalPath;
         return 0;
     }
 
@@ -79,51 +88,69 @@ final class LoadLibraryHandler extends AbstractHandler
             throw new Exception('PHAR file is not readable: ' . $pharPath);
         }
 
+        $realPath = realpath($pharPath);
+        if ($realPath === false) {
+            throw new Exception('Cannot resolve PHAR path: ' . $pharPath);
+        }
+
         try {
-            $phar = new Phar($pharPath);
+            $phar = new Phar($realPath);
 
             $currentIncludePath = get_include_path();
-            if (strpos($currentIncludePath, $pharPath) === false) {
-                set_include_path($currentIncludePath . PATH_SEPARATOR . $pharPath);
-                $this->loadedClassPaths[] = $pharPath;
+            if (strpos($currentIncludePath, $realPath) === false) {
+                set_include_path($currentIncludePath . PATH_SEPARATOR . $realPath);
+                $this->loadedClassPaths[] = $realPath;
             }
 
             if (isset($phar['bootstrap.php'])) {
-                include_once 'phar://' . $pharPath . '/bootstrap.php';
+                include_once 'phar://' . $realPath . '/bootstrap.php';
             }
         } catch (Exception $e) {
             throw new Exception(sprintf('Error loading PHAR file %s : %s', $pharPath, $e->getMessage()));
         }
     }
 
+    private static array $loadedPhpFiles = []; // optional extra safeguard
+
     private function loadPhpFile(string $filePath): void
     {
         if (!is_readable($filePath)) {
             throw new Exception('PHP file is not readable: ' . $filePath);
         }
 
-        $fileExtension = pathinfo($filePath, PATHINFO_EXTENSION);
+        $realPath = realpath($filePath);
+        if ($realPath === false) {
+            throw new Exception('Cannot resolve PHP file path: ' . $filePath);
+        }
+
+        $fileExtension = pathinfo($realPath, PATHINFO_EXTENSION);
         if (!in_array($fileExtension, ['php', 'inc'], true)) {
-            throw new Exception('File is not a valid PHP file: ' . $filePath);
+            throw new Exception('File is not a valid PHP file: ' . $realPath);
         }
 
-        $code = file_get_contents($filePath);
+        // OPTIONAL: skip if we already loaded this exact file
+        if (in_array($realPath, self::$loadedPhpFiles, true)) {
+            return;
+        }
+
+        $code = file_get_contents($realPath);
         if ($code === false) {
-            throw new Exception(sprintf('Failed to read php file: %s', $filePath));
+            throw new Exception(sprintf('Failed to read php file: %s', $realPath));
         }
 
         try {
             token_get_all($code, TOKEN_PARSE);
         } catch (ParseError $e) {
-            throw new Exception(sprintf('PHP syntax error in file %s: %s', $filePath, $e->getMessage()));
+            throw new Exception(sprintf('PHP syntax error in file %s: %s', $realPath, $e->getMessage()));
         }
 
         $lastError = error_get_last();
         if ($lastError && $lastError['type'] === E_PARSE) {
-            throw new Exception(sprintf('PHP syntax error in file %s: %s', $filePath, $lastError['message']));
+            throw new Exception(sprintf('PHP syntax error in file %s: %s', $realPath, $lastError['message']));
         }
 
-        include_once $filePath;
+        include_once $realPath;
+        self::$loadedPhpFiles[] = $realPath;
     }
 
     private function autoloadPhpFilesFromDirectory(string $directory): void
@@ -134,7 +161,15 @@ final class LoadLibraryHandler extends AbstractHandler
 
         foreach ($iterator as $file) {
             if ($file->isFile() && $file->getExtension() === 'php') {
-                include_once $file->getPathname();
+                $realPath = $file->getRealPath() ?: $file->getPathname();
+
+                // Optional: same guard as loadPhpFile
+                if (in_array($realPath, self::$loadedPhpFiles, true)) {
+                    continue;
+                }
+
+                include_once $realPath;
+                self::$loadedPhpFiles[] = $realPath;
             }
         }
     }

data/lib/javonet-ruby-sdk/Binaries/Php/javonet/core/interpreter/Interpreter.php

@@ -44,7 +44,7 @@ final class Interpreter
             return $responseByteArray;
         }
 
-        $response = (new CommandDeserializer($responseByteArray))->deserialize();
+        $response = CommandDeserializer::deserialize($responseByteArray);
         if ($this->debugMode === 'TRUE') {
             echo 'Received command: ' . $response;
             MessageHelper::getInstance()->sendMessageToAppInsights('ReceivedCommand', $response->toString());
@@ -89,7 +89,7 @@ final class Interpreter
 
     public function process(array $byteArray): CommandInterface
     {
-        $receivedCommand = (new CommandDeserializer($byteArray))->deserialize();
+        $receivedCommand = CommandDeserializer::deserialize($byteArray);
         if ($this->debugMode === 'TRUE') {
             echo 'Received command: ' . $receivedCommand;
             MessageHelper::getInstance()->sendMessageToAppInsights('ReceivedCommand', $receivedCommand->toString());