From c03556c1fe4e130542669922c0afb04f700f419e Mon Sep 17 00:00:00 2001
From: Kevin Duret <kduret@centreon.com>
Date: Tue, 27 Aug 2024 11:39:42 +0200
Subject: [PATCH] fox

---
 .github/scripts/plugin-files.pl             | 112 ++++++++++++++++++++
 .github/scripts/plugins-source.container.pl |   4 +-
 .github/workflows/plugins.yml               |  17 +--
 src/centreon/plugins/dbi.pm                 |   2 +-
 4 files changed, 126 insertions(+), 9 deletions(-)
 create mode 100644 .github/scripts/plugin-files.pl

diff --git a/.github/scripts/plugin-files.pl b/.github/scripts/plugin-files.pl
new file mode 100644
index 000000000..150d8b6fd
--- /dev/null
+++ b/.github/scripts/plugin-files.pl
@@ -0,0 +1,112 @@
+#!/usr/bin/env perl
+
+use App::FatPacker;
+use File::Copy::Recursive;
+use File::Path;
+use File::Basename;
+use JSON;
+use Cwd qw(getcwd);
+
+my $pwd = (getcwd . '/');
+my $plugins_dir = ($pwd . 'src');
+my $packaging_dir = ($pwd . 'packaging');
+my $build_dir = ($pwd . 'build');
+
+# Prepare destination directory.
+File::Path::remove_tree($build_dir);
+File::Path::make_path($build_dir);
+
+
+chdir($packaging_dir);
+
+my @plugins = split / /, $plugins;
+foreach my $plugin (@plugins) {
+    chdir($packaging_dir);
+
+    # Load plugin configuration file.
+    my $package_path = $plugin;
+    if (! -f $package_path . '/pkg.json') {
+        if ($package_path =~ /(.+)=>(.+)/) {
+            $package_path = $1;
+            $plugin = $2;
+        }
+    }
+
+    if (-f $package_path . '/pkg.json') {
+        my $plugin_build_dir = $build_dir . '/' . $plugin;
+        File::Path::make_path($plugin_build_dir);
+
+        open($fh, '<', $package_path . '/pkg.json');
+        my $json_content = do { local $/; <$fh> };
+        close($fh);
+        $config = JSON::decode_json($json_content);
+
+        # Prepare plugin layout.
+        chdir($plugins_dir);
+        File::Path::remove_tree('lib');
+        File::Path::make_path('lib');
+        my @common_files = (
+            'centreon/plugins/http.pm',
+            'centreon/plugins/misc.pm',
+            'centreon/plugins/mode.pm',
+            'centreon/plugins/multi.pm',
+            'centreon/plugins/options.pm',
+            'centreon/plugins/output.pm',
+            'centreon/plugins/perfdata.pm',
+            'centreon/plugins/script.pm',
+            'centreon/plugins/statefile.pm',
+            'centreon/plugins/values.pm',
+            'centreon/plugins/backend/http/curl.pm',
+            'centreon/plugins/backend/http/curlconstants.pm',
+            'centreon/plugins/backend/http/lwp.pm',
+            'centreon/plugins/backend/http/useragent.pm',
+            'centreon/plugins/alternative/Getopt.pm',
+            'centreon/plugins/alternative/FatPackerOptions.pm',
+            'centreon/plugins/passwordmgr/environment.pm',
+            'centreon/plugins/passwordmgr/hashicorpvault.pm',
+            'centreon/plugins/passwordmgr/keepass.pm',
+            'centreon/plugins/passwordmgr/teampass.pm',
+            'centreon/plugins/templates/catalog_functions.pm',
+            'centreon/plugins/templates/counter.pm',
+            'centreon/plugins/templates/hardware.pm'
+        );
+        foreach my $file ((@common_files, @{$config->{files}})) {
+            if (-f $file) {
+                File::Copy::Recursive::fcopy($file, 'lib/' . $file);
+            } elsif (-d $file) {
+                File::Copy::Recursive::dircopy($file, 'lib/' . $file);
+            }
+        }
+        # Remove __END__ for Centreon Connector Perl compatibility.
+        system 'find', 'lib', '-name', '*.pm', '-exec', 'sed', '-i', ' /__END__/d', '{}', ';';
+
+        # Fatpack plugin.
+        my $fatpacker = App::FatPacker->new();
+        #my $content = $fatpacker->trace(
+        #    args => ["centreon_plugins.pl"],
+        #);
+        #my $content = $fatpacker->packlists_containing(["centreon_plugins.pl"]);
+        #my $content = $fatpacker->packlists_to_tree('/tmp/toto', ["centreon_plugins.pl"]);
+        my $file = "centreon_plugins.pl";
+        my $shebang = "";
+        my $script = "";
+        if ( defined $file and -r $file ) {
+            ($shebang, $script) = $fatpacker->load_main_script($file);
+        }
+
+        my @dirs = $fatpacker->collect_dirs();
+        my %files;
+        $fatpacker->collect_files($_, \%files) for @dirs;
+        print "impacted files of plugin $plugin";
+        while (my ($k,$v) = each %files) {
+            print "$k\n"
+        }
+        #use Data::Dumper;
+        #print Dumper(\%files);
+        #my $content = $fatpacker->fatpack_file("centreon_plugins.pl");
+        #open($fh, '>', "$plugin_build_dir/$config->{plugin_name}");
+        #print $fh $content;
+        #close($fh);
+        #chmod 0755, "$plugin_build_dir/$config->{plugin_name}"; # Add execution permission
+    }
+}
diff --git a/.github/scripts/plugins-source.container.pl b/.github/scripts/plugins-source.container.pl
index ae735b3af..7ea0fd7d3 100644
--- a/.github/scripts/plugins-source.container.pl
+++ b/.github/scripts/plugins-source.container.pl
@@ -118,7 +118,9 @@ foreach my $plugin (@plugins) {
         my %files;
         $fatpacker->collect_files($_, \%files) for @dirs;
         print "impacted files of plugin $plugin";
-        while (my ($k,$v)=each %files){print "$k\n"}
+        while (my ($k,$v) = each %files) {
+            print "$k\n"
+        }
         #use Data::Dumper;
         #print Dumper(\%files);
         #my $content = $fatpacker->fatpack_file("centreon_plugins.pl");
diff --git a/.github/workflows/plugins.yml b/.github/workflows/plugins.yml
index 5e0199bd7..ac5b685c4 100644
--- a/.github/workflows/plugins.yml
+++ b/.github/workflows/plugins.yml
@@ -70,6 +70,13 @@ jobs:
           jq --compact-output --null-input '$ARGS.positional' --args -- ${unique_files[@]} > plugins.txt
         shell: bash
 
+      - name: Prepare FatPacker
+        uses: shogo82148/actions-setup-perl@f551dafcc94572adc179bbddbb409b3ada8f8ff5 # v1.30.0
+        with:
+          perl-version: '5.34'
+          install-modules-with: cpm
+          install-modules: App::FatPacker File::Copy::Recursive JSON
+
       - name: Get plugins for build
         id: get_plugins
         if: ${{ steps.filter.outputs.common == 'true' || steps.filter.outputs.packages == 'true' || steps.filter.outputs.plugins == 'true' }}
@@ -82,13 +89,9 @@ jobs:
           fi
         shell: bash
 
-      - name: Prepare FatPacker
-        if: ${{ steps.get_plugins.outputs.plugins != '' }}
-        uses: shogo82148/actions-setup-perl@f551dafcc94572adc179bbddbb409b3ada8f8ff5 # v1.30.0
-        with:
-          perl-version: '5.34'
-          install-modules-with: cpm
-          install-modules: App::FatPacker File::Copy::Recursive JSON
+      - name: Plugins changes
+        run: |
+          perl .github/scripts/plugin-files.pl "${{ steps.get_plugins.outputs.plugins }}"
 
       - name: Run FatPacker
         if: ${{ steps.get_plugins.outputs.plugins != '' }}
diff --git a/src/centreon/plugins/dbi.pm b/src/centreon/plugins/dbi.pm
index 479157ab3..84284d441 100644
--- a/src/centreon/plugins/dbi.pm
+++ b/src/centreon/plugins/dbi.pm
@@ -17,7 +17,7 @@
 # See the License for the specific language governing permissions and
 # limitations under the License.
 #
-
+ 
 package centreon::plugins::dbi;
 
 use strict;