Skip to content
This repository was archived by the owner on Aug 5, 2025. It is now read-only.
Open
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
13 changes: 13 additions & 0 deletions check_dirvish_freshness
Original file line number Diff line number Diff line change
Expand Up @@ -15,6 +15,8 @@ use File::Slurp;
use Time::ParseDate;
use DateTime;

use File::Spec;

my $help;
my $long_help;
my $warning;
Expand Down Expand Up @@ -46,11 +48,22 @@ my @critical_images;
my @warning_images;
my $vaultcount;

# Read in list of vaults to skip
my @skips;
@skips = read_file("$bank/.check_skip") if ( -f "$bank/.check_skip" && -r "$bank/.check_skip" );
chomp @skips;

for my $vault ( glob("$bank/*") ) {

$vaultcount++;
my @images;

# Skip if it is in the skip list
my ($volume,$directories,$file) = File::Spec->splitpath( $vault );
if ( $file ~~ @skips ){
next;
}

for my $image ( glob("$vault/*") ) {

# Skip dirvish metadata directory
Expand Down