From f6b97735b5bfaef4f167d3a664f1195b744b3fad Mon Sep 17 00:00:00 2001
From: garnier-quentin <garnier.quentin@gmail.com>
Date: Tue, 21 May 2019 08:36:08 +0200
Subject: [PATCH] Fix oracle disconnect

---
 centreon-plugins/centreon/plugins/dbi.pm              | 5 ++++-
 centreon-plugins/database/oracle/mode/sessionusage.pm | 1 +
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/centreon-plugins/centreon/plugins/dbi.pm b/centreon-plugins/centreon/plugins/dbi.pm
index 4cf583fc1..423ec41ef 100644
--- a/centreon-plugins/centreon/plugins/dbi.pm
+++ b/centreon-plugins/centreon/plugins/dbi.pm
@@ -201,7 +201,10 @@ sub set_version {
 sub disconnect {
     my ($self) = @_;
     
-    $self->{instance}->disconnect if (defined($self->{instance}));
+    if (defined($self->{instance})) {
+        $self->{statement_handle} = undef;
+        $self->{instance}->disconnect();
+    }
 }
     
 sub connect {
diff --git a/centreon-plugins/database/oracle/mode/sessionusage.pm b/centreon-plugins/database/oracle/mode/sessionusage.pm
index 6661a078e..b349e1fca 100644
--- a/centreon-plugins/database/oracle/mode/sessionusage.pm
+++ b/centreon-plugins/database/oracle/mode/sessionusage.pm
@@ -63,6 +63,7 @@ sub run {
     my $session = $self->{sql}->fetchrow_array();
     $self->{sql}->disconnect();
 
+    $session =~ s/,/./g;
     my $exit_code = $self->{perfdata}->threshold_check(value => $session, threshold => [ { label => 'critical', exit_litteral => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
     $self->{output}->output_add(severity => $exit_code,
                                   short_msg => sprintf("%.2f%% of session resources used.", $session));