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 01ddff3a8bd9cc92d077f297341db191377dd43c
parent bf3beee64b9c76fdeac5dba41de52a0494d45862
Author: René Wagner <apollo@rw-net.de>
Date:   Sun, 29 Sep 2019 21:32:09 +0200

add more information about processing to orphaned_sidecar_cleaner.pl

Diffstat:
Morphaned_sidecar_cleaner.pl | 11++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/orphaned_sidecar_cleaner.pl b/orphaned_sidecar_cleaner.pl @@ -29,8 +29,6 @@ foreach my $arg ( @ARGV ) } } -print "working directory: $delete_dir \r\n"; - main($delete_dir, $delete_flag); exit 0; @@ -40,6 +38,10 @@ sub main my ( $dir, $delete ) = @_; my ( $delcounter ) = 0; + print "working directory: $delete_dir \r\n"; + print 'action : '. ($delete_flag ? 'delete' : 'list only') . "\r\n \r\n"; + print "files with missing raw:\r\n"; + # alle Dateien in allen Unterordnern *.spd *.spf suchen my $rule = File::Find::Rule->new; $rule->file; @@ -55,14 +57,13 @@ sub main $delcounter++; if ( $delete ) { - print " Deleting"; - unlink $file or warn " failed: $!"; + unlink $file or warn " Deletion failed: $!"; } print "\r\n"; } } - print "Found $delcounter orphaned sidecar files found.\r\n"; + print "\r\nfound $delcounter orphaned sidecar files found.\r\n"; } sub exists_raw_filename