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 9d83562e956ffaa5aa96aa838e56c91d8591d92b
parent 22efbb727194eb9068a17bb1255f11b1a0c4c2d3
Author: guzzisti <apollo@rw-net.dew>
Date:   Sat, 28 Sep 2019 13:09:28 +0200

fix wrong function name & update README.md

Diffstat:
MREADME.md | 7+++++--
Morphaned_sidecar_cleaner.pl | 3+--
2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/README.md b/README.md @@ -3,6 +3,7 @@ This rather small scripts written in [Perl](https://perl.org) provide useful fun ## required perl modules The following perl modules are required for running the scripts. + - Cwd - File::Spec - File::Basename @@ -13,4 +14,7 @@ The following perl modules are required for running the scripts. ## description ## orphaned sidecar cleaner -Deletes all sidecar files in the given directory or alternatively in the current working directory when the associated raw file is missing. -\ No newline at end of file +Deletes all sidecar files in the given directory or alternatively in the current working directory when the associated raw file is missing. + +## multiversion sidecar cleaner +Deletes Silkypix Sidecar files when newer versions of the files are available. This usually happens when a file is opened in a newer version of Silkypix, as the sidecar files are version specific. diff --git a/orphaned_sidecar_cleaner.pl b/orphaned_sidecar_cleaner.pl @@ -6,7 +6,6 @@ use warnings; use strict; use Cwd; -use File::Spec; use File::Basename; use File::Find::Rule; use File::Find; @@ -66,7 +65,7 @@ sub main print "Found $delcounter orphaned sidecar files found.\r\n"; } -sub get_raw_filename +sub exists_raw_filename { my ( $original_file ) = @_;