sld-admin/sld-filebackups-py
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed the perl.pl file

Browse Source
This commit is contained in:
Simone Cusano
2026-03-14 10:55:20 +00:00
parent 83a65ab26e
commit ddf31a41be
2 changed files with 2 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
.gitignore vendored
View File

@@ -1,3 +1,4 @@
# Ignora tutti i backup # Ignora tutti i backup
backups/ backups/
__pycache__/ __pycache__/
perl.pl

47
perl.pl
View File

@@ -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 ###