|
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 && -r $filename ); |
351 |
return unless ( -f $filename && -r $filename ); |
| 351 |
return unless ( open(my $dump, '<', $filename) ); |
352 |
return unless ( open(my $dump, '<', $filename) ); |
| 352 |
- |
|
|