Browse Source

handle alternative names for ARP and XMP sidecards

closes #1 & #3
master
René Wagner 4 weeks ago
parent
commit
4aa4125c13
Signed by: rwa GPG Key ID: 2B8BCD69606E7F19
  1. 3
      README.md
  2. 10
      afm

3
README.md

@ -17,9 +17,6 @@ Additionally the following perl modules need to be installed:
- File::Copy
- File::HomeDir
- File::Spec::Functions
- Perl::DBD::SQLite
- Perl::DBI
- Text::SimpleTable::AutoWidth
- File::Find::Rule
- File::Find

10
afm

@ -1,5 +1,5 @@
#!/usr/bin/perl
# Copyright(c) René Wagner 2019-2020
# Copyright(c) René Wagner 2019-2021
# https://src.clttr.info/rwa/photo-helpers
# published under BSD 3-Clause License
@ -14,7 +14,7 @@ use Getopt::Std;
$Getopt::Std::STANDARD_HELP_VERSION = 'true';
my $VERSION = '0.7';
my $VERSION = '0.8';
my $PROGRAM = 'ART File Mover';
my $configfile = catfile(File::HomeDir->my_home, '.afm.conf');
@ -76,6 +76,9 @@ sub move_files
my $outarp_file = $converted_file. '.out.arp';
my $raw_file = catfile(dirname($path), $filename .'.'. $opt_R);
my $rawarp_file = $raw_file. '.arp';
my $rawarp2_file = $filename. '.arp';
my $xmp_file = $raw_file. '.xmp';
my $xmp2_file = $filename. '.xmp';
print $raw_file .'...';
@ -91,6 +94,9 @@ sub move_files
# the processing files *.arp are optional and are fine to be absent
move($outarp_file, catfile($converted_destination_dir, basename($outarp_file)));
move($rawarp_file, catfile($destination_dir, basename($rawarp_file)));
move($rawarp2_file, catfile($destination_dir, basename($rawarp2_file)));
move($xmp_file, catfile($destination_dir, basename($xmp_file)));
move($xmp2_file, catfile($destination_dir, basename($xmp2_file)));
if ($opt_C ne '' && -d $opt_C)
{

Loading…
Cancel
Save