From ddf31a41be894683da43aa8b91157b9774604990 Mon Sep 17 00:00:00 2001
From: sld-admin <SimoNard91@gmail.com>
Date: Sat, 14 Mar 2026 10:55:20 +0000
Subject: [PATCH] Removed the perl.pl file

---
 .gitignore |  3 ++-
 perl.pl    | 47 -----------------------------------------------
 2 files changed, 2 insertions(+), 48 deletions(-)
 delete mode 100755 perl.pl

diff --git a/.gitignore b/.gitignore
index 222ac3c..7eef6a2 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,4 @@
 # Ignora tutti i backup
 backups/
-__pycache__/
\ No newline at end of file
+__pycache__/
+perl.pl
\ No newline at end of file
diff --git a/perl.pl b/perl.pl
deleted file mode 100755
index 4968bff..0000000
--- a/perl.pl
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use warnings;
-use JSON;
-use 5.010;
-
-
-### VARIABLES ###
-#my $backups_app_root="/opt/";
-my $backups_app_root="/home/sld-admin/Desktop/backups_script/";
-my $config=$backups_app_root . "config.json";
-my $listfile=$backups_app_root . "dir_backups.json";
-#my $home_backups="/home/backups/backups_root";
-my $home_backups=$backups_app_root . "backups";
-
-### JSON ARRAYS ###
-say $listfile;
-open(my $fh, "<", $listfile) or die $!;
-my $json_list_text = do { local $/; <$fh> };
-my $jsonlist = decode_json($json_list_text);
-
-say "\n### ENABLED FOR THE BACKUP";
-foreach my $item (@$jsonlist) {
-    my ($path, $flag) = @$item;
-    if ($flag > 0 ){
-        say "Path: " . $path #. " - Flag: " . $flag;
-    }
-}
-say "";
-
-say "### DISABLED FOR THE BACKUP";
-foreach my $item (@$jsonlist) {
-    my ($path, $flag) = @$item;
-    if ($flag == 0 ){
-        say "Path: " . $path #. " - Flag: " . $flag;
-    }
-}
-
-
-fun test
-
-
-
-
-
-### FUNCTIONS ###
-