48 lines
948 B
Perl
Executable File
48 lines
948 B
Perl
Executable File
#!/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 ###
|
|
|