Browse Source

photocp: make sure target archive directory exists

...which it sometimes may not, if not properly mounted or whatever.
main
Brennen Bearnes 8 months ago
parent
commit
b829d69c36
1 changed files with 4 additions and 0 deletions
  1. +4
    -0
      home/bin/photocp

+ 4
- 0
home/bin/photocp View File

@ -33,6 +33,10 @@ use File::HomeDir;
my $home = File::HomeDir->my_home;
my $archive_dir = $home . '/workspace/photos';
unless (-d $archive_dir) {
die "$archive_dir is not a directory";
}
my @sources = (
'/media/' . $ENV{'USER'} . '/EOS_DIGITAL',
'/media/' . $ENV{'USER'} . '/CANON_DC',


Loading…
Cancel
Save