photo-helpers

Unnamed repository; edit this file 'description' to name the repository.
git clone git://code.clttr.info/photo-helpers.git
Log | Files | Refs | README | LICENSE

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:
MREADME.md | 3---
Mafm | 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) {