master
Heuzef 5 years ago
parent 38f883dab0
commit 6b22377b16
  1. 14
      backuppc_check.pl

@ -7,6 +7,7 @@ use JSON;
use Getopt::Long; use Getopt::Long;
use Statistics::Descriptive; use Statistics::Descriptive;
use Data::Dumper; use Data::Dumper;
use File::Find;
my $host = undef; my $host = undef;
@ -119,7 +120,18 @@ print("Random file : ");
print("Random file"); print("Random file");
print("\n"); print("\n");
my $last_full_path = "/var/lib/BackupPC/pc/$host/$last_full_num/"; my $last_full_path = "/var/lib/BackupPC/pc/$host/$last_full_num/";
print("last_full_path : $last_full_path");
my @files;
finddepth(\&wanted, $last_full_path);
foreach my $file ( @files ) {
print("$file\n");
}
sub wanted {
push @files, $File::Find::name;
return;
};
print("\n----------------\n"); print("\n----------------\n");

Loading…
Cancel
Save