From ee4fb8bcb48117c9a707491bf8fa41183f857ec9 Mon Sep 17 00:00:00 2001
From: Heuzef <contact@heuzef.com>
Date: Wed, 25 Sep 2019 17:47:54 +0200
Subject: [PATCH] Add somes libs

---
 backuppc_check.pl | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

diff --git a/backuppc_check.pl b/backuppc_check.pl
index dac94be..1c0cebc 100644
--- a/backuppc_check.pl
+++ b/backuppc_check.pl
@@ -2,12 +2,15 @@
 
 use lib "/usr/share/BackupPC/lib";
 use BackupPC::Lib;
+use BackupPC::CGI::Lib qw(:all);
+use BackupPC::View;
+use BackupPC::XS qw(:all);
+use Encode qw/decode_utf8/;
 use POSIX;
 use JSON;
 use Getopt::Long;
 use Statistics::Descriptive;
 use Data::Dumper;
-use File::Find;
 
 my $host   = undef;
 
@@ -119,19 +122,7 @@ print("Random file : ");
 
 print("Random file");
 print("\n");
-my $last_full_path = "/var/lib/BackupPC/pc/$host/$last_full_num/";
 
-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");