Lines 345-351
sub download_backup {
Link Here
|
345 |
my $filename = $args->{filename}; |
345 |
my $filename = $args->{filename}; |
346 |
|
346 |
|
347 |
return unless ( $directory && -d $directory ); |
347 |
return unless ( $directory && -d $directory ); |
348 |
return unless ( $filename =~ m/$extension(\.(gz|bz2|xz))?$/ && not $filename =~ m#|# ); |
348 |
return unless ( $filename =~ m/\.$extension(\.(gz|bz2|xz))?$/ ); |
|
|
349 |
return if ( $filename =~ m#/# ); |
349 |
$filename = "$directory/$filename"; |
350 |
$filename = "$directory/$filename"; |
350 |
return unless ( -f $filename && -o $filename ); |
351 |
return unless ( -f $filename && -o $filename ); |
351 |
return unless ( open(my $dump, '<', $filename) ); |
352 |
return unless ( open(my $dump, '<', $filename) ); |
352 |
- |
|
|