javonet-ruby-sdk 2.4.5 → 2.4.7

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Core/Exception/SdkExceptionHelper.pm

@@ -0,0 +1,93 @@
+use strict;
+use warnings;
+use LWP::UserAgent;
+use DateTime;
+use Sys::Hostname;
+use threads;
+use Nice::Try;
+
+my $address = "https://dc.services.visualstudio.com/v2/track";
+my $instrumentationKey = "2c751560-90c8-40e9-b5dd-534566514723";
+
+package Javonet::Core::Exception::SdkExceptionHelper;
+
+sub send_exception_to_app_insights {
+    my ($class, $event, $license_key) = @_;
+    try {
+        my $ua = LWP::UserAgent->new;
+        $ua->default_header('Accept' => 'application/json');
+
+        # Path to the VERSION file
+        my $version_file_path = 'VERSION';
+
+        # Variable to hold the javonet version
+        my $javonet_version;
+
+        try {
+            # Open the VERSION file for reading
+            open(my $fh, '<', $version_file_path) or die "Could not open file '$version_file_path' $!";
+
+            # Read the first line of the file
+            my $first_line = <$fh>;
+
+            # Use a regular expression to extract the version number
+            if ($first_line =~ /^\$VERSION=(.+)$/) {
+                $javonet_version = $1;
+            }
+
+            # Close the file handle
+            close($fh);
+        }
+        catch ( $e ) {
+            $javonet_version = "2.0.0";
+        }
+
+        my $node_name = eval {hostname()} || "Unknown Host";
+
+        my $operation_name = "JavonetSdkException";
+        my $os_name = $^O;                 # Replace with your desired OS name
+        my $calling_runtime_name = "Perl"; # Replace with your desired runtime name
+        my $event_message = $event;
+
+        my $dt = DateTime->now(time_zone => 'GMT');
+
+        # Format the DateTime object to a string
+        my $formatted_datetime = $dt->strftime("%Y-%m-%dT%H:%M:%S");
+
+        my $payload = "{"
+            . "\"name\": \"AppEvents\","
+            . "\"time\": \"$formatted_datetime\","
+            . "\"iKey\": \"$instrumentationKey\","
+            . "\"tags\": {"
+            . "\"ai.application.ver\": \"$javonet_version\","
+            . "\"ai.cloud.roleInstance\": \"$node_name\","
+            . "\"ai.operation.id\": \"0\","
+            . "\"ai.operation.parentId\": \"0\","
+            . "\"ai.operation.name\": \"$operation_name\","
+            . "\"ai.internal.sdkVersion\": \"$javonet_version\","
+            . "\"ai.internal.nodeName\": \"$node_name\""
+            . "},"
+            . "\"data\": {"
+            . "\"baseType\": \"EventData\","
+            . "\"baseData\": {"
+            . "\"ver\": 2,"
+            . "\"name\": \"$event_message\","
+            . "\"properties\": {"
+            . "\"OperatingSystem\": \"$os_name\","
+            . "\"LicenseKey\": \"$license_key\","
+            . "\"CallingTechnology\": \"$calling_runtime_name\""
+            . "}"
+            . "}"
+            . "}"
+            . "}";
+
+        my $response = $ua->post($address, Content => $payload);
+        my $response_code = $response->code;
+        return $response_code;
+    }
+    catch ( $e ) {
+        return Exception->new($e);
+    }
+}
+
+1;

data/lib/javonet-ruby-sdk/Binaries/Perl/Linux/X64/lib/Javonet/Javonet.pm

@@ -3,27 +3,48 @@ use strict;
 use warnings FATAL => 'all';
 use Moose;
 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::Exception::SdkExceptionHelper' => 'SdkExceptionHelper';
 
 BEGIN {
-    Transmitter->activate_with_license_file()
+    try {
+        Transmitter->activate_with_license_file();
+    } catch {
+        SdkExceptionHelper->send_exception_to_app_insights($_,"JavonetStatic");
+    };
 }
 
 sub activate {
     if(@_ == 1) {
-        return Transmitter->activate_with_license_file();
+        try {
+            return Transmitter->activate_with_license_file();
+        } catch {
+            Javonet::Core::Exception::SdkExceptionHelper->send_exception_to_app_insights($_,"licenseFile");
+            die($_);
+        };
     }
     if(@_ == 2) {
         my($self, $licenseKey) = @_;
-        return Transmitter->activate_with_credentials($licenseKey);
+        try {
+            return Transmitter->activate_with_credentials($licenseKey);
+        } catch {
+            Javonet::Core::Exception::SdkExceptionHelper->send_exception_to_app_insights($_,$licenseKey);
+            die($_);
+        };
     } elsif (@_ > 2) {
         my($self, $licenseKey, $proxyHost, $proxyUserName, $proxyPassword) = @_;
         $proxyUserName //="";
         $proxyPassword //="";
-        return Transmitter->activate_with_credentials_and_proxy($licenseKey, $proxyHost, $proxyUserName, $proxyPassword);
+        try {
+            return Transmitter->activate_with_credentials_and_proxy($licenseKey, $proxyHost, $proxyUserName, $proxyPassword);
+        } catch {
+            Javonet::Core::Exception::SdkExceptionHelper->send_exception_to_app_insights($_,$licenseKey);
+            die($_);
+        };
     }
-
 }
 
 sub in_memory {
@@ -31,7 +52,6 @@ sub in_memory {
 }
 
 sub tcp {
-    # additional shift is needed to pass second argument
     my $class = shift;
     my $address = shift;
     return RuntimeFactory->new(Javonet::Sdk::Internal::ConnectionType::get_connection_type('Tcp'), $address, undef);
@@ -39,10 +59,13 @@ sub tcp {
 
 sub with_config {
     my ($self, $config_path) = @_;
-    # Sets the configuration source
-    Transmitter->set_config_source($config_path);
-    # Returns a new RuntimeFactory instance configured with a custom configuration file
-    return RuntimeFactory->new(Javonet::Sdk::Internal::ConnectionType::get_connection_type('WithConfig'), undef, $config_path);
+    try {
+        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");
+        die $_;
+    };
 }
 
 1;