silkypix-helpers

commit 4aa4125c13c15d9b439302d9322fedcba769da24
parent f4f6ce7d1e07f9c1b98e4c7412f6fa527ea29fdc
Author: René Wagner <rwa@clttr.info>
Date:   Sat, 22 May 2021 21:17:59 +0200

handle alternative names for ARP and XMP sidecards

closes #1 & #3

Diffstat:
M
README.md
 | 
3
---
M
afm
 | 
10
++++++++--

2 files changed, 8 insertions(+), 5 deletions(-)
diff --git a/README.md b/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
 
diff --git a/afm b/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)
             {