Initial commit - clean repository without history

perl.pl

@@ -0,0 +1,47 @@
+#!/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 ###
+