#!/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 ###