my $count = 0;
my $status : shared = "OK";
my @screenPID;
+my $backup_dir = "/data/hadeb04/backup/.snapshots";
my @backup_list = ("depc234",
"hadeb05",
while(1){
#--- check the presence of all 5 directories inside
- my @array = `ls /data/backup/.snapshots/hourly.0/`;
+ my @array = `ls $backup_dir/hourly.0/`;
#--- check time of only the latest dir: hourly.0
- my @dir = `ls -ltr /data/backup/.snapshots/`;
+ my @dir = `ls -ltr $backup_dir/`;
- foreach my $line (@array)
- {
+ foreach my $line (@array) {
+ chop($line);
+
#--- count directories
foreach my $bdir (@backup_list){
- if( $line =~ /($bdir)/ ){
+ if( $line eq $bdir ){
$count ++;
}
}